564 lines
27 KiB
Mathematica
564 lines
27 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 9.0' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 157, 7]
|
|
NotebookDataLength[ 27157, 554]
|
|
NotebookOptionsPosition[ 26804, 537]
|
|
NotebookOutlinePosition[ 27139, 552]
|
|
CellTagsIndexPosition[ 27096, 549]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"numRegion", "[",
|
|
RowBox[{"expr_", ",",
|
|
RowBox[{"var_Symbol:", "x"}], ",",
|
|
RowBox[{"range", ":",
|
|
RowBox[{"{",
|
|
RowBox[{"xmin_", ",", "xmax_"}], "}"}], ":",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0"}], "}"}]}], ",",
|
|
RowBox[{"opts", ":",
|
|
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=",
|
|
RowBox[{"Module", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"le", "=",
|
|
RowBox[{"LogicalExpand", "[",
|
|
RowBox[{"Reduce", "[",
|
|
RowBox[{"expr", ",", "var", ",", "Reals"}], "]"}], "]"}]}], ",",
|
|
"y", ",", "opendots", ",", "closeddots", ",", "max", ",", "min", ",",
|
|
"len"}], "}"}], ",",
|
|
RowBox[{
|
|
RowBox[{"opendots", "=",
|
|
RowBox[{"Cases", "[",
|
|
RowBox[{
|
|
RowBox[{"Flatten", "[",
|
|
RowBox[{"le", "/.",
|
|
RowBox[{
|
|
RowBox[{"And", "|", "Or"}], "\[Rule]", "List"}]}], "]"}], ",",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"n_", "<", "var"}], "|",
|
|
RowBox[{"n_", ">", "var"}], "|",
|
|
RowBox[{"var", "<", "n_"}], "|",
|
|
RowBox[{"var", ">", "n_"}]}], "\[RuleDelayed]", "n"}]}], "]"}]}],
|
|
";", "\[IndentingNewLine]",
|
|
RowBox[{"closeddots", "=",
|
|
RowBox[{"Cases", "[",
|
|
RowBox[{
|
|
RowBox[{"Flatten", "[",
|
|
RowBox[{"le", "/.",
|
|
RowBox[{
|
|
RowBox[{"And", "|", "Or"}], "\[Rule]", "List"}]}], "]"}], ",",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"n_", "\[LessEqual]", "var"}], "|",
|
|
RowBox[{"n_", "\[GreaterEqual]", "var"}], "|",
|
|
RowBox[{"var", "\[LessEqual]", "n_"}], "|",
|
|
RowBox[{"var", "\[GreaterEqual]", "n_"}]}], "\[RuleDelayed]",
|
|
"n"}]}], "]"}]}], ";", "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"max", ",", "min"}], "}"}], "=",
|
|
RowBox[{"If", "[",
|
|
RowBox[{
|
|
RowBox[{"TrueQ", "[",
|
|
RowBox[{"xmin", "<", "xmax"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"xmin", ",", "xmax"}], "}"}], ",",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"Max", ",", "Min"}], "}"}], "@",
|
|
RowBox[{"Cases", "[",
|
|
RowBox[{"le", ",",
|
|
RowBox[{"_", "?", "NumericQ"}], ",", "Infinity"}], "]"}]}], "//",
|
|
"Through"}]}], "]"}]}], ";", "\[IndentingNewLine]",
|
|
RowBox[{"len", "=",
|
|
RowBox[{"max", "-", "min"}]}], ";", "\[IndentingNewLine]",
|
|
RowBox[{"RegionPlot", "[",
|
|
RowBox[{
|
|
RowBox[{"le", "&&",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "<", "y", "<", "1"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"var", ",",
|
|
RowBox[{"min", "-",
|
|
RowBox[{"len", "/", "10"}]}], ",",
|
|
RowBox[{"max", "+",
|
|
RowBox[{"len", "/", "10"}]}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"y", ",",
|
|
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
|
|
RowBox[{"Epilog", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{"Thick", ",", "Red", ",",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"Line", "[",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"#", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"#", ",",
|
|
RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], "&"}], "/@",
|
|
"closeddots"}], ",", "Dotted", ",",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"Line", "[",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"#", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"#", ",",
|
|
RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], "&"}], "/@",
|
|
"opendots"}]}], "}"}]}], ",",
|
|
RowBox[{"Axes", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{"True", ",", "False"}], "}"}]}], ",",
|
|
RowBox[{"Frame", "\[Rule]", "False"}], ",",
|
|
RowBox[{"AspectRatio", "\[Rule]", ".05"}], ",",
|
|
RowBox[{"Ticks", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"1.1", ",",
|
|
RowBox[{"Subscript", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "r"}], ",", "B"}], "]"}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"1.2", ",",
|
|
RowBox[{
|
|
RowBox[{"Subscript", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "r"}], ",", "B"}], "]"}], "+", "\[Delta]"}]}],
|
|
"}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"1.84", ",",
|
|
RowBox[{
|
|
RowBox[{"Subscript", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "r"}], ",", "0"}], "]"}], "-", "\[Delta]"}]}],
|
|
"}"}]}], "}"}], ",",
|
|
RowBox[{"{", "}"}]}], "}"}]}], ",",
|
|
RowBox[{"AxesLabel", " ", "\[Rule]", " ",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"u", ",", "0"}], "}"}], "opts"}]}]}], "]"}]}]}], "]"}]}],
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
|
RowBox[{"numRegion", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"y", "<", "1.15"}], "||",
|
|
RowBox[{"1.2", "\[LessEqual]", "y", "\[LessEqual]", "1.84"}]}], ",",
|
|
"y"}], "]"}]}], "Input",
|
|
CellChangeTimes->{{3.607864493952816*^9, 3.6078645195720043`*^9}, {
|
|
3.607864741471542*^9, 3.607864954598319*^9}, {3.6078653018184013`*^9,
|
|
3.607865524345045*^9}, {3.607866192063891*^9, 3.6078664178646917`*^9}, {
|
|
3.607866552998549*^9, 3.607866961321631*^9}, {3.6078671025077963`*^9,
|
|
3.6078671119299593`*^9}, {3.607867159099209*^9, 3.607867180264756*^9}, {
|
|
3.607867243678753*^9, 3.607867347050746*^9}, {3.607867379075852*^9,
|
|
3.607867576859871*^9}, {3.6078676111678953`*^9, 3.607867655732607*^9}, {
|
|
3.607867695812258*^9, 3.607867783472434*^9}, {3.607868544578424*^9,
|
|
3.607868835322131*^9}, {3.6081272239303923`*^9, 3.608127302476953*^9}, {
|
|
3.608127337780991*^9, 3.6081276408879547`*^9}, {3.608803251850823*^9,
|
|
3.6088032770723543`*^9}, {3.608803329830451*^9, 3.608803360057716*^9}, {
|
|
3.608803392425502*^9, 3.6088034128570557`*^9}, 3.608803445621389*^9, {
|
|
3.608846619478655*^9, 3.608846619771644*^9}}],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[GraphicsComplexBox[CompressedData["
|
|
1:eJxlmntwVdUVhyPgCEgUFXlJACVCCKAMkAzi49gGkNGU0hR5iQmCoBi0ykMN
|
|
oiUoFwNiKMbKdKgFKlEoxlYIYLgQAgkQRORpeCZAbgIJj9jwrIApPet8vzO9
|
|
+o/zzVpr557v7L323kfvHf2HpLH1IiIisutHRPzv30uHLFm55al/O+Xrp22t
|
|
q6vJ33+5Xkb/n32O61PYs/+Y8+Kxh6Mbbbn7gvjjaTNL+23zuSiqcmXR1Ivi
|
|
ixv6Z/Trdkl8/6jPk4vKfH76poa9+s2/LJ655MVGRX2viHMTikv7Xva5ItR5
|
|
VeGy/4jvDszO6DvyJ3G/TqeTC2+7Kp6y7alefQt8Xjp+RaPCSdf8520cWZbQ
|
|
8bof93y8P+7wxZzFZ+QDxgeMDxgfMD5gfMD4gPEB4wPGB4wPGB8wPmB8wPjQ
|
|
83o+FPd8dLu9T3RyQpV8wPiA8QHjA8YHjA8YHzA+YHzA+IDxAeMDxgeMDxgf
|
|
el7Ph+Kejz1rFiRFVlTIB4wPGB8wPmB8wPiA8QHjA8YHjA8YHzA+YHzA+IDx
|
|
oef1fCju+Xhj1OXpwcAJ+YDxAeMDxgeMDxgfMD5gfMD4gPEB4wPGB4wPGB8w
|
|
PvS8ng/FPR+971yRXDKoVD5gfMD4gPEB4wPGB4wPGB8wPmB8wPiA8QHjA8YH
|
|
jA89r+dDcc/HjDHj18VllcgHjA8YHzA+YHzA+IDxAeMDxgeMDxgfMD5gfMD4
|
|
gPGh5/V8KO752LGqY8uskl3yAeMDxgeMDxgfMD5gfMD4gPEB4wPGB4wPGB8w
|
|
PmB86Hk9H4p7Pro02VYViiuUDxgfMD5gfMD4gPEB4wPGB4wPGB8wPmB8wPiA
|
|
8QHjQ8/r+VDc83Elr/HcQO1y+YDxAeMDxgeMDxgfMD5gfMD4gPEB4wPGB4wP
|
|
GB8wPvS8ng/FPR9BYwcfMD5gfMD4gPEB4wPGB4wPGB8wPmB8wPiA8QHjA8aH
|
|
ntfzobjno43NF/mA8QHjA8YHjA8YHzA+YHzA+IDxAeMDxgeMDxgfMD70vJ4P
|
|
xT0fhdZP5APGB4wPGB8wPmB8wPiA8QHjA8YHjA8YHzA+YHzA+NDzej4U93xM
|
|
tf1GPmB8wPiA8QHjA8YHjA8YHzA+YHzA+IDxAeMDxgeMDz2v50Nxz0d3O4/I
|
|
B4wPGB8wPmB8wPiA8QHjA8YHjA8YHzA+YHzA+IDxoef1fCju+Zhk51X5gPEB
|
|
4wPGB4wPGB8wPmB8wPiA8QHjA8YHjA8YHzA+9LyeD8U9HzvtPiMfMD5gfMD4
|
|
gPEB4wPGB4wPGB8wPmB8wPiA8QHjA8aHntfzobjno7Pdd+UDxgeMDxgfMD5g
|
|
fMD4gPEB4wPGB4wPGB8wPmB8wPjQ83o+FPd8vGffQ+QDxgeMDxgfMD5gfMD4
|
|
gPEB4wPGB4wPGB8wPmB8wPjQ83o+FP//74VO2PdCJ+x7oRP2vdAJ+17ohH0v
|
|
dMK+Fzph3wudsO+FTtj3Qifse6ET9r3QCfte6IR9L3TCvhc6Yd8LnbDvhc7L
|
|
A1ZOCgytdeLd/nouHz7knteqxdPd/eikONo9v4TE2939+5j4qFt/SNzJzd8n
|
|
PuHGt4urXM4TR7j/5AThby2u37vH6sXtbHzxfvv74i32+8Tt7feLp9nziX+w
|
|
5xf3Mj/icH98f4X5/gjz/U2/3/v+BPP9Beb7A8z9G+b+CXP/grl/wJy/Yc6f
|
|
MOcvmPMHzP4Ls//A9F+Y/gOz/r6bPbltIHhe8431BlfdMeGx7PjzTkowITYh
|
|
7Ww++cxH8mHyG4xdMqy2dbXyma/kw+Qvi7xp1uJgpfKZz+TD5A9cnZI7KLlc
|
|
+cx38mHyK935UKZ81gP5MPndXV8Hlc96IR8mf6rrf4/yWU/kw+QH3OffqnzW
|
|
G/kw+T3cv7dK+axH8mHyP3Xr/6L3y3olHya/wPW1UfmsZ31/9pj8bu782Kl8
|
|
1jv5MPk73Pm4X/n0A/Jh8me48/OI8ukX5MPkL2ycmRjz1XHl00/Ih8m//Fz3
|
|
tmmRFcqn35APk5/0ze6a4tRTyqcfkQ+T/2XTSQWtt59WPv2KfJj8Ji82+yg1
|
|
piac9f7/ZePlP5o38kL9765pfbJ/wPf2HLuvPOm66mHWL/WsV+ph8vl7MOuZ
|
|
3zPEfGg81jPjwdSTD7PeGe+qvQ+Nx3pnPJh68mH6AeMtsvmg8egHjAdTTz5M
|
|
v2C82TYfNR79gvFg6smH6SeMt8/Wg8ajnzAeTD35MP2G8R619ajx6DeMB1NP
|
|
Pkw/Yrxd1g80Hv2I8WDqyYfpV4zXfJ3bjzQe/YrxYOrJh+lnjNfMxncYj37G
|
|
eDD15MP0O8Z7w55f49Hv9N+nPKaefJh+yHgT7f1oPPoh48HUkw/TLxkvxuaP
|
|
xqNfMh5MPfkw/ZTxSm1+azz6KePB1JMP028Z70lbfxqPfst4MPXkw/Rjxltq
|
|
/UHj0Y8ZD6aefJh+zXgR1r80Hv2a8WDqyYfp54w30vqpxqOfMx5MPflh/VnM
|
|
+ZXxOb8S5/yq+eadX2HOr5qf3vkV5vyq+eCdXzXfvPMrzPkV5vwKc36FOb/C
|
|
nF/Vr7zzq/qhd36FOb/CnF9hzq9w+PkVX+mj23SuzPT3T+L4I87+RhyfxNmv
|
|
dB7y/BJn/yGOb+LsJ8TxT5z9gTjvgzj9njjvhzj9mzjvizj9mDjvjzj9lTjv
|
|
kzj9kjjvlzj9jzjvmzj9jDjvnzj9iTjzgTj9hjjzgzj9gzjzhTj9gDjzhzjr
|
|
mzjziTjrtVlZl7oZPf35U77+d5GBV/3/v4c48wdmvsDMD5j5APP+Yd43zPuF
|
|
eZ8w7w/mfcG8H5j3AeMfxjeMXxifMP5g+tnOuZ3nDR1X66xefWdW6oJz+fCI
|
|
lNc2te5zOv9MID5lyI38Fcu6f5TaskaclJRZ0DrvdP6V8YnPLrzh+3h11+SS
|
|
G/XwnIe6pJQ09HnmR3M+CPTx8x88kTE3sLxafy+i4a4fiw+f1PiXfjpbU/zM
|
|
KeV3eaQ6L+7ISfH+2afWxSWeVP1n/3ygXdrbIdUv/Hti27TrIeV/HxpQFXrb
|
|
57SeT1SHzpar/snhc38T0+646h9P/EdizN+OK3/K3M9bZLXzud2RpS2zMo+p
|
|
vrT+gcs56YdVv6Pqrks56UeU32tCkw8CMw6LA40afRgYfUj1MU9/PDiyaJ/q
|
|
mz+8OymyaL/y31lffCp0Iw7vGrGlOrR0r+rLE5eOLmm6Q/WbWkallDTdqfwP
|
|
o26bE7hzhzh+2C2ZgT3Fqj9T6vSOeXC96gev+6Rl1icblZ8w/Y6MQI/14syL
|
|
9f8U+Hqt6j9ov2x4ZEW66nvXzJ8XqF2g/Ce6xB+rq0sXD411WfNv25/3Hw/l
|
|
rnWob1JXcSqUu8oh/zX7e+L77feofnfMq2vi9hWrvnbklby4fVuV39GeV/yO
|
|
+VB9280/vRPM3qv67kc3TA9m71H+NvMtft3eh+r3vfbofcljDqm+cs5N0clj
|
|
Dvp/z963uKvNB9X3b7rxRF3mMdUPjFpSXnf7MeXfY/PN92HzUfWLXnhu1aBz
|
|
5apfPjkhd9Ar5cqfYvNd/K2tB9Vf21AvsDjxpOob7AgFFu+oVP5uW2/iTrYe
|
|
VT+k+WdDa5dXq35Uh8Cw2thq5Xex9S5Ot36g+lUv9+uc0Oic6oNTO8UmZJxV
|
|
fob1E3GZ9RsnrN872XG9fowdV/uL/g+TH75fsD/A7A8w+wPM/gCzP8DsDzD7
|
|
A8z+ALM/wOwPMPsDzP4Asz/A7A8w+wPM/gCzP+CP7xXaH+z9iBve+usuCVVn
|
|
8snn+4T2D5sP4hUrFw2vnV2lfL4/qP/nu/NPnDSybtbirpXK5/uC+r3Nd/Gl
|
|
BsmrB+08oXy+H6i/2/oS93kmrbiurFT5fB8gfsTWs/i9FfEdkzscUD73f+Id
|
|
rX+Id14/PyM4brfyud8TP279Stz109H5cYOLlM/9nXil9Ufx9XpTyotTv1I+
|
|
93PiC9u5/Vjra83ERfEJadl6v9y/9Xut/4vvmdqtWVaLzcrnfk18r+034k2p
|
|
w79MHbBL+dyfibe3/U38ZuuFgyJvLlE+92PiP9h+Kn6guPR8TsFR5XP/Vf+0
|
|
/Vt8Yd28p2KcE8rnfqt+aecF8cC7ekSl/bVC+dxf1R9vcc8n4uUv7T1XfPWU
|
|
8rmfqh/a+UncYNPkja1H+OuL+6f6n52/xM+3aj4/dW1NOPvrz8YT59jv8deP
|
|
PY/4ivkQx5tP8XR7H+Lt9j7FsTYfxOdtPokLbD7q90bZfBZvsfUgnmbrSdzD
|
|
1qO41taz/36sH4i/sH7i+7V+JL/0d5j+rvns9XeY/g7T32H6O0x/h+nvMP0d
|
|
pr/D9HeY/g7T32H6O0x/h+nvMP0dDu/v7Jfsj/R79t8Ntv+KI35OiU0Yf1b7
|
|
Kf2e+PO234s/y94wrLZxtfLp98Qb2vlC/ORvo2YtXlGpfPo98Rw7z4jPXX4r
|
|
d9DAcuXT73U/sfOTOOZXuVvrysqUT7/XeHZeE0+cPzE6ucNB5dPvdb6186E4
|
|
WP5genDcHuXT74nXe9Y9j4obv3RoXdzgrcqn3xOPtfOvuE+r5dWh3JXKp98T
|
|
33jOPW/r/DQtMCMjULtQ75d+T7y/ne/Fj+TktshqUaB8+j3xr+0+If7i1oeT
|
|
S+btVD79nvhtdn8Rz+41Kiny5h+UT78nXmj3JfHj5Usu5hQcUT79Xr/X7mfi
|
|
a9smJsbkH1c+/Z74ArsPioe0b9Y2Lcq/L9PvdX+w+6f//G/k1hS/dUr59Hud
|
|
1+0+7N9fvh9S0PrQaeXT78Pu0+IJHa/MT+39C9b7b2rj6bzIeuU8/FDF1a11
|
|
a2rEPZ2RF3Oq/PMt65X40bkjLuUMPyMuOZnXIXlOlf7eante1bN+yX83/pvo
|
|
5Kv+/fztea2SIrv563mE+VU961n3h7IWv4+8sT/B9z705vTgjfOb+k2x+z5V
|
|
z/om/7tZr6cHHzshnrf5y2dLjpWqfoDNH9Wz3sk/Nmp5SsnGo+JDzVLz4qIP
|
|
qH6+zVfVs/7Jj/36hWBcgxJx9LiYFlkv7Fb9WlsfqqcfkD+5/v2tsp7YJT7w
|
|
yrcnQ08XqT7R1qPq6Q+6Ty4rPB26e7N4Rb+WMwMTv1L9BVv/qqdfkN+3+/Ws
|
|
wMRs1Tc01vxrY/1G9wP6B/mv2t/z2X6Pvx7Hu/1N9fQT3aftecUTzIfqV1k/
|
|
VT39hfw25lt8n70P1b9k/Vv19Bvy99j7Fh+w+aD69rZfqJ7+Q/77Nt/ExTYf
|
|
VV9t+5Pq6UfkR9l8F3ew9eD3Z9sPVU9/0vcrW2/iP9p6VP0i239VT78if6+t
|
|
d/FB6wf++7vu7veqp3/p+531F7HXf5z/Ag+Y5bQ=
|
|
"], {{
|
|
{RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458],
|
|
EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
|
|
1:eJxVmnkcllMWx597n1RKe6m0077v+x6tkpRMQiNC+6ailBbtKSWEaUWUqLFl
|
|
zBhrlKSiLClKKaHQFBFmztf5vZ/X/HE+5+73d+5z77nnd9+3woARVwyPSZI0
|
|
z5EkqekiJsGEsvNNrDg5x6S0SR6TvCbFVZbTpKRJLpPcJhdIn2tyR/C+xUxK
|
|
qYz+ZTTGeSZVVM885U3ymxQwKav6fCYlNA9zVFB9QZM7g/etbPKipTeZFLJ0
|
|
RZPCsmOelfU1PdikquYBe3WNC/Ya0mCvKQ3eeiblhKu+NPPXkQ1grCtNu1rq
|
|
V1r5fLLnX4bhnyYXssbCUc1kWnDsTUyayo4qqisufI1MLpJNLVQH9pbSYG+m
|
|
fozbSmXY0VoaXG2ka5u0F27su8KkrUk7SR3VdVA9ds8IjrGzyWuWftWkgaU7
|
|
mjQUxl7qz9hd/mRTN+HD7u6yAeyXSYO3q9rSrofKwN5TuMF3qcag/+WqbyN7
|
|
Sut79Nb8YB+gdowxOzh29kF/4WD+q0wukR1Xyz6wXyvczNlPZWC8Rpq6t2zM
|
|
zSYXW/o6te0urLW1jjdoftb4etkGpr9qfvI3qp71u8Wkj3ANVBk2bbN53jG5
|
|
0tJDZAd4h0qDcZg0GIdLY8cIaTDeqnUB11hp5h8tTGAcI027kerHmo2Spt04
|
|
9QPjJGECy+0mN8uOBcHP3ESTKcIElp1WvsPkJktPVj+w3ylNuzsS78u495vc
|
|
ZTLD5AHpmSbThWm06kcL+wxpbF0UfP75JncLC2PvsfLdJuMtPdfkNmGfqX6s
|
|
zVThZQ0WqB+23qu6aSb3yAawL5KeorqRwrdQ/Wi3RHVgv08a7IvVj3HfNHnG
|
|
5FmTpcI0y+R5k0dMHjV52GSOsC8Jbt8yk9XCtEhtF2nslbIBLKukabf8T2uz
|
|
QnqB5lgsW9dq3cGyRjaA/XFpvs8Dwed/2uQx9aPd51b+mcmDll5v8pCwP5Hp
|
|
Z7JZtj5nstfafmIy29J/F6aVWo+Vwv6sNLa+KExg+Yc0Y78gG8CySXqN5lit
|
|
tdmgNWMNXlI/bH1NdRtNXjZ5MoM9uH2vqG658B228kMm6yz9uurA/oY02F/V
|
|
2mzQt2R/cYbeEia+bUsbo7pJDZOtwo19uzQnY7yjMmw9Zu2+4l6x9Hsm/xLe
|
|
LbKf/suC991p8r7GwL69asc8e4SVffeB6rFjm+ZhbT5UPd/qE5O31f8jlWHH
|
|
x9LUlbF585qcZ/Kp5gH7CcsfN3mXvWGyXdhXBsd40OSIyW7hOirN/IdlAxi/
|
|
lKbdF7Jvl/Kvy56v1A+MxxPHsc/ka2HFjm+k96ruHdl9TP1o9x/DdtJkv6W/
|
|
N/lM2L9VP8Z9JDj2k7SXHeA6JX3I5Cfhxr5c1v606R8lh1V3RvXYfVY4wPuz
|
|
yrDpF2nqcgfvz9i/qi02/S582B2szXfCviY4xtT0b2pLuxwhiz1ncNzgO2Pp
|
|
n0xOWPqc4PWnZM8ufY9zg88P9uLB2+XUt/9FdqwNPmdR7YufZUe+4PVg/83S
|
|
v5r819L5g8pMCggrNuUJPg/9CxOgBrfvtDCxjiU0P2t8fnDbwFRMGMiXVD3r
|
|
Vzr4uOC6QGXYVEqaurKyB7zlpMFYXhqM0YLlYFLQ0hcRhwbHWC34upTQ+S6h
|
|
+asIExirStNuvdapkkllpYvJL5QUxrrCBJZawoodtaU5fw1NLhSWmupHu3rq
|
|
B/ZchjenSQVL11E/xu1m0sykucml0i1MmgpTFdVXEfbm0tjaRpjA0laasVvJ
|
|
BrC0lq6lcatpbTbI7sYm7dQPWzurrAnfwfDmNalv6UtMGsjWJn9as/bqh61d
|
|
VAf2rtJgf0ZjdgrZ+J54t7sw4Y/7BI+74RE9ZAPYL5fG1qB6+MaVwdPwpl6y
|
|
ASyF2BcmHSzdU/1YmyukaTcpOF8qmmR5FJwEjgUXgLfAgUooD38i5iX2zaF6
|
|
uBAcq5T651E9+Vwaj/74aO4c7onLZCu2wVVYC7gLHKuC8vAq0gU1DzyjinBU
|
|
U35KcD5WSTior6x1YQ3hMPC5ssINjurqT554uXaS5WA1hLuW8vmEq2yS5WzV
|
|
kywHq6P6esqX1nj0rxEdH2sLD6sv264Kzl3ANz04H2ss3PCRJkmWR7WSTc1U
|
|
B264SHNhob5lkuVa9JkZnDt1SpwzddA+A2u7xLkCWNsrn+F1LYS9rcaCY8FR
|
|
4Cp/CZ5uJFs7qH9VYQEfXIS4/VrZAH/prPHgGj3Vlnbd1B+e0Utzd1ddhqd1
|
|
lz1wlx7C2ktjddM812hduib/z5f6CVM3lWED/KaPMMFf4DN9g5dj25zgnO0v
|
|
Gquf2sG3estmMPWXncRTxFXEyv2Cx/K3COv1iXMWsA9Qvo/q4SpXB09fJZvg
|
|
NHAb+NZArQvrdYP6X6F68vODvy8MSrJca3iS5WZDkiw3Gyoc8JRRspn6wbJh
|
|
pPpnuNbIJMvlhmkf9JQdl2ms/kmWy90qXOOUh2ONkz3MAwe5QzgmK78wOE+b
|
|
IBzUT9S6sIa3JVlOODrJ8rTJSZZ3TRfuqYlzGHBPU36AcI2RHVPUP8PT7lL9
|
|
TOVHaTz6t9L3w1a42izZdk1w3gO+xcE53jzhhr/M1zzwl0XCca/y4Ib3LEyy
|
|
nO0e2b1A/SepfoFwLFF/eAkcaJZww1/uS7K89I98cD72tyTL8egPV4P3wH+u
|
|
DZ6eK7uXqv/KxLkCnGFV4jznGeGgbkWS5W8rhXu18hk+tkY4nlAe3HCfR4Vj
|
|
jfIZfrha6wWXWSYca9WfPHzlaeGGA8GFrguefjjJ8kb6w/PWyh7yG9V/hWwi
|
|
vzQ4V3wq8VibmPtT4XhONv81OCd4Wbi5o55PslzuBeGgHs7TP3h6vXDDV+At
|
|
cLKXZA92v6j+Ga5I/uHgvO7fWms4zhvC/VrifAncrysPDu7Ot7Qu1L8i3JvV
|
|
/znVb06yPJD+t+mbz9HaP6+2L2ottgrXNuXhdttkD/MQa+8Sjg+UXx6c4+0Q
|
|
Dup3al1Yw+1ary3CDY7d6k8e7vOxcMOV9gj3R8pvEq4tsmOP+pPfq/5b9Q33
|
|
JlkeSH/ue+4o7i443z7ZRmxFjEVcCVb40UHNB685KjsOqS7D9w5r7iPKrwrO
|
|
Gw8kWa54RHMf01iPBudmPwgfXOcbYfxa7d7X2Idkx3G1GxCcM8H14H+UYwP8
|
|
j3I4VVnFmcSp2AA/Oqmx4CSnNPaPyoP7J+WZH45zVph+Uz7D8X4WvrPKY9sZ
|
|
9c9w16+F9Xf1Z274DTwHfHAjAtQbgqe/T7K8FKxwu99lM3l4Ev2ph0ORfzw4
|
|
b4zBbYA3UYcNcCXyYIIrkQcrXAk+leFRcA/soQw+hU1wKNrB+QoIB/bDp6jL
|
|
cL/86lNaY2EPvAp+tS44tywi3HCoYsJdXPkb1T4IdwnV5Rauklov+hWVPSXV
|
|
7qi+wxlhLyMcGS5XLWR5YDmNASeqHLJckT0CLywvO58KzvEqygb4GTxtoNKF
|
|
tS5lNV9RjQe3AUcerSsYawhHcWHJ8MiqwoF9NdWujPZpba1jLdVleGMt4a2n
|
|
PQ0vrCfbwAfHgmvdpDRYNwbnbI00P2e7uTC1VD7DFZuGLFdsJnvgZY1lX1Pl
|
|
wdpK/cEBf2onfPCm1iHLLcnfHJwHNgxZbkl/OGJ72dNAbS7WGrRT/+HB4z9i
|
|
vxHBY0diQXDAGzuHLG/sItzdlM/wwB7C0VN5cMOpugtHD+UzXJr+zwbnnx1D
|
|
lgfSf0hwTgIfgS/2kv2DgnNLeGVj4eokO3qp/9Dg3ACfOyx4PE0sPTg4j4WX
|
|
bpc/w4eNDB5LEUddb3pc8LrRwe947vcxwe9X7tbbgp8lztHtwfdrYfUboL7j
|
|
g/sa/Mytwe9y7uaxwefgTpqgPXSRbB0qzHzHW/SdsHWwMPN9Rui7TNT3bihb
|
|
h8nGvvqWf/AKrWNF2QUu5h0VPPbiDkaPlo3YOkY2Yuutwnyj7CwsWycIM7aO
|
|
l43YepvWBFvHykb20UitLbZOFGZ4aPXoPBkN34crTw7O/+GnfJNRwlnN2lRV
|
|
u5rqBzedGpzPVlIb+vK7LTEuMRPxRa3ofeC0dwXnt3Dbbtawq8lj7EvT3U2e
|
|
YP+ZvtzkSdbO9EWp4+J31ZeC/3ZZ3cqqpT5eedP5U7etrOnzUl+vcqbzpb5e
|
|
nU13Mllt6SqmK6eOvZbpmiazgvPwTRp/oJUNNcyv8y0t3cfk75buEt1v4uev
|
|
trK+Js9ZurfpXiZPW/ofwsrvv9dZ2U3Ry8pYOm/q32mT2jDXpdF9F+epm6W7
|
|
Kn+9tb3F0i8HXyNiCOKHulZex2QufUw3Mrkn+G9I8BO4Cb9tva8yuOF7wTls
|
|
SRvv3eC/3/G7F9wMXsbvUB8F/70DLvNxcC72YfA6xpml8WlTKnod5eThJNQ3
|
|
MCz1Te4Ozuk+CM5JdwXHxJxtrL61yYOWb2+6ncnfOG+mLzZZYemWpluY3C97
|
|
dmiuZlbW1OTe4O8n/J7N778XRJ8jY9NOta+tfcfbA+8d/1T73bIL7JdYm4uj
|
|
xxalbew8qZ+rNVb2Y/Rzs8H0r9H9XwGr/y26Xyhk6f9G9x3rTP8c3S+sNv2f
|
|
6Oe1oLX5PbovKG7pc1I/8/db2dfRz3FhDk3qfmS5lX0f/dyXtLJcqfsCzgYx
|
|
EPFPJ6vvGD3meMzq11u6sMkySz9qOnf0OIa4inds9s6PwWNU7H1ce6mzxuBu
|
|
X8X5s3w+7UFig0ra852VZ951wsD5XKez0CH6HIxfwsbJmbovK2I6pO4T51qb
|
|
g9F92zTTn0b3fwtMH47ut2aa/iy6L+SPIO9G96+TTX8c3SdNML0num8rZWOf
|
|
m7rvv8B07tR93zirfz+6zx5tekd033y+1edI3a/dYGVvRffTnFvONbHQQ1Z2
|
|
PLpPLWptY+p+v5jpNHV/utjqj0b36+wdYnti3kHUW/5tyw8w/UbUHWJ6a/R7
|
|
hrVqrz7tovMHeFNH7UFiQH5n3679/K7yV+qc8dskv2O2is4b4bBto/MveAzn
|
|
Z7nGpE3L6NyyjenWasd5oy98k7PEmeftAj/IWyHvhC/rfOGjmli/xtHfOFpr
|
|
PHhePUvXjf5G1lT18HjmhF/DTc+XD2Mcxvu3ziD3wCvB7w7OOW8WvFe0iM7P
|
|
M+nmGgvNm8Yy4VksH9Us+tzU4VOWak0ov092wV3h4fxGWSe6jdxB+FDe+PCN
|
|
3aPHQ8SQxEPERcQ2fCv43cHEff2zqufbtVUdffHj9MGHb9ReKqQ7hfdq7sbn
|
|
g9+P3CUbNRf35wvB71zWknda3iP5Xsv1jfCn+HF8aX2td1/drdO1hthVW/35
|
|
LnP0HRtGfxvkXa1RdL/MONwZC7WGDaKPSzvS87UmfHPe5Saqb0PlWcvDWs91
|
|
WlveN75UOWWcAf6bwv9SSuhMkN6scvbzUu1p9jNlW1T+qfY5/pnfaOHtcHbW
|
|
41utyT6V75c+ofQJ+T24ZHmb97vgYzAub6m8o7I2W7U+xXXPsyf5T9EbwknZ
|
|
ayp/VWnKB2oczmbGHt6BM+3qq36b2vRWG+Zn372pvddB7RmD39C/Ec5y3Ata
|
|
2+9kF+Xs5f3az/yf4aDWmbXjzYu1ZM32hWzZ52pTxsY8oHLG5U2HM8G3OqK5
|
|
8AdHdXbKRv+W9OU8faHzeEBjMs5azUGb0tG/Gd/rVPDfqvdrnmPCjx3fq5z6
|
|
08G/VYXofSg/qb6U4xd/CO7HtmmsP9aBeIH7Lfg6HRP+4+pP38xY7BFiPsbi
|
|
bhrIHZL6eWMvtZE/ZCx+9+Wu/C56rEacdiF3usbkN+hf1IayMyr/NnrcQMwA
|
|
r+Ydgd9eOcucQ/YY9/kPutO5e88Gv38Zi/bc1dw/50S/T38Vnj9+w5WttD0Q
|
|
/X7lbj0ZPd69PYNd7eHJ8Hx+Sz0W/Y7kfjwS/Y7kfjwUPbYgruD34hxqT7+o
|
|
dEXTafQxU5UX1By0w9YV+GYcWnR+C1fn91C4IryX3xmJJ85TeQW1AeN40yNS
|
|
j03hjvDM3qbHmB6S+vkkjsklPHeaHp96bDrR0mNSjy9HWPrm1M9VTrVnrodN
|
|
35v6WhMbFRIe7uQ3dS8/wh2a+ro/gG9MPU4Cb361f9z0CuJC009yb1u6AGPj
|
|
L1Pfo5Wj21lfdhSSLcQXb0ePMTqojrXhDmEM/P9C07NS92vEU6wl8RVjFNE4
|
|
3Jn4KXzMR9FjEeIQ+BD3K3cr37CS1opYnjPJecSf4X/xM8QUxMr4pXOj4wYz
|
|
fhdugI+CNxDfEz8T//4UPQZmPapoTfAx+BT8AP4Dn8UZ5Hxznjl/u6LHf8R+
|
|
+DZ8Med3d/S4ipgKH4avwYe8Fz0OHqZzxr5nz++NHrcRs22LHnMP1X6vqD15
|
|
WmeV8wjGwsJJDH4qehwOd4XD5tBdDF/NlJFmG8Nr4arcp6ejc8gJKqul8mnK
|
|
w3/hznBp7m6+VVF9rwyvhlNzv9PmTmGorvZwhV+i8wXigmLCwB3BXc49viU6
|
|
f4A7kOd+byIMpLlHuP/BRtmZ6Hx4ourrqM3m6LwFzjJbvokYY390TjJa49eV
|
|
vzrLPkr9HSSvzi/ryf7KrT02z/T01O8MYi/iM+6IYfiV6HErcRlxGHfWWCu/
|
|
IzpvJHYjhiNenASPj363cMfRnvGIPWhDfHK7tZkS/Y5hnhaaKxMXEhMuUB/a
|
|
L9HcxKKLlAbD3TbOkuj3zYOmF6e+16bSL/V9PcPSk1Pfm6O4B6Jzy7tNz0x9
|
|
L89hvVPf+8T/cCr8OfF7R51fYhDuCPbwIiubm/r5mGTpcamfUWIu4i1iLWIu
|
|
0sRgxJXElztkI/E09zIcC/4Ad1imdjs0LzjgILRtpfYr1QZe8KDNuTK6LyeG
|
|
5+4jjiKWb600MQB9KVtk7ZdGv+se0fg/6F4GG2MTDxIXEk/OU36Q1pxvQdxI
|
|
jEkbvg+xNPgP6HvRfrBiDL7pA5qLdgeFv73aP6R1gFNwh7Lm2H0fY6fuA+bw
|
|
FhI9blpm+v7U/cTNlu6fur8kTidex/fC4b6KzuMGmR6Quq8lNieO5x0GLngi
|
|
Oh8cZvqm1H0qPPXz6FwVvkx7Yn44/TfReT1+nrngBevVjjbPCAdvPvO0D4jn
|
|
6+u81ROGPGo/C/+Rehw2nXVNPRbcoHGwhXsPn84YxLfEHpx1OPcX0Xk3PPvL
|
|
6Fx7tuZl78FN34nOT5dpP8Dv2MudtJ+5m0jzXrCKPZL6nbPWZHXq98NjJstT
|
|
xzGENUud4z3Ft0rdR95o0i91nzfV9OzoseZY08NTv6NmmJ4fPb6Du++Mzt95
|
|
A/gk6r3Y9OjU76u1OndwZ94V9kV/W6Cct4siWivWnzeNUey71O893hi2R39n
|
|
oG0XtSceI813473hw+hvDuvVjjeTCxN/U6qQ+HvDB9HfHP4H7tbfrw==
|
|
"]],
|
|
PolygonBox[CompressedData["
|
|
1:eJwtlncYj1UcxX/3XjJCj5LRTkZ7096lnZWQVfbee6+M7JW9Z0lPEqGirRKR
|
|
osRDipIeUppCn/Oc94/z/M557/t73/ve+/2ecy9u2K5a25jL5daBPOAEohF4
|
|
KuRyLcGslMu9iy4HCoD/QENQg7EW4HV4G+75DF4KfgrogbXQrUFBxqbpmfBu
|
|
4BJ0adAH3hc0ZaweejV8DSgHLwv6wweAIvCXuKcZvBcojF6EbgrvCfKjx6Of
|
|
hXcBBdAvaI7wrqAQeh66CbwHOB09C90Y3h1UQVfWO+BLwTrGJqFPaq7w9WAq
|
|
OvFbBjwNHkDPZvxz1msGeiL6RPB/6qGfQC+BR1AH/ZDmAN/L/XXRj6IXoo+i
|
|
56CnoGP0O94G49D/MF5a6wjuQk9FL+P+AO+qeaDbgoTui64Lbw/uR9+nbwye
|
|
Y2t9q/YQ/h6Ygh6L/jv4HY/DHwOLg+f8CPxhsCB4jnfC7wBTgucwkf+PRP8O
|
|
PwYehFcCc4O/cRjj/dE/wPeDsehh6MPwI2AkejD6IPxnkA8+mmvPwDuD09DP
|
|
oxvAO4EcuiO6NryN1hTdE10H3g7kQQ9UDcE7gOZ6Ftfegr8N8sKHcK0+vCO4
|
|
B303mA6fAS6DXwoGwQeDtdz7XPLcLoS/BUYlf+vF8DfB8ORvuQheE9yumtPz
|
|
mO4S9Bx0IX4Lq4/gNcCrjC8HC7g2A52P3/z6LngtsEK9BF5TrSbvVQn4y2AB
|
|
uii/Z4Lq8GpgGeOvgKpcuzx57hV5fw10RfRY9Qd6FboLejv6XPgK0AK9AV0S
|
|
Xg1chR6qveT+6uhrtQfoWugq6PLJvVgWvRLdAb0VfQ58NeiD3os+H/4kuAE9
|
|
Sv7A/W+ge6C/RZ+n9QC3oCegRzBeWXuT3PtF0cvVy8l7V1y9pL5L9opijG9H
|
|
74iuddXALvju6L1VDeyB742uHe35N/Cd0bWhHtkE3xxdS/KoLfCt0b2kGtsG
|
|
/zK6ttRjteH3JteKPPId9MzkvSurWga90XuC16A+umqyl5wFPkB/GO2l8sz9
|
|
8APRXqWaXwMfkNwrF+jb1dvJtVAJfIreGO2lNdXD8IXJtVA+2pvnJteaPPoZ
|
|
1WRyrVUADbQnybVSBmxAfwxaBXv8bYzdCiYF13BnvQu9MdjTr4FfDYYH18SE
|
|
ZA+Tdx1HT072PHldLvOyufzmifY0eevs6DF57PTkNdLa5M1qe5l0dI2rtudH
|
|
j6nG5a0z4aeCPbaOegl9NliJHpLck+rFQ5pjcs+qV39FL9K3w4tl7+ibvOZa
|
|
6+8Y75pco6rNHcG9+yK8SHQPj0/OBGXBv1qj5Ewok81pWnJNlM2+eWCyh8g7
|
|
DjA+OtnT5eV/oOcn75H25ozo3l8azeUB8oaF0Vkrj5B3t+H3/WAPV1Y2Q68N
|
|
zkxlZRP0quDMrJvcM+oVXWuW7BHyhg+CvbEFel2wR16Bbhc9NiTYC1uh1wd7
|
|
YqNkD1Dv61qD5B4tns1BWd442wtl+lH4b9FZq4xtlewx8pZPgr1wMbpgtCfO
|
|
Tq5R1aauHQZHorNZZwbVXqfo/6oG/4L/HX0W0BmgOeMdVNPwj8AxrXP02UCZ
|
|
/y/8OGgefIY4qV6M7iX1QMNkzy2RrUnTZI8sma25smIE/MfgzBia7Anygl+C
|
|
s254ttfKPGXvmOgxZbCycyh6X3CGKvtGZbWqDByTfEbQ2eDP4GydlNWKMnZQ
|
|
8hlA2a85/AQ/GH220ZlnH/z76OxUZl7P/deBkcEefGXyHmtv5fHto9dMa6UM
|
|
UNZPjn63Mr87vD3XtgR7/M3wm8D4YM/ur71B7wz29ArwG/XNwZnTW3NBfxWc
|
|
Ocr+cVkv6gwwIvkMpbPT0eCzw4RorjOE3tUP/XXwO7slZ5qyTNf07D5Zr+od
|
|
8q5B6N3BHqazzPRob9KZpmXyGbVUViOHtDfRZ1GdEdsmZ5qybBO6Y3JmKiu/
|
|
QPdMzjhl2y50r+QMU3bpnfr2XuhtIVsD9NTMK3TGUjY8l3mNMqJf8plBZwXV
|
|
hNZyQPZsrWm75AxW9m4O3stu0Vx7qr3pkc1NeySv7pLNXZ7dKTmDlb2a07zk
|
|
zCifedr/yW+HpA==
|
|
"]]}]}, {}, {}, {}, {}},
|
|
{GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
|
|
1:eJwl0rkyXQEcx/FzXYlYEi4S+5pHkEeIF1DkASiSKK4ZhTEKhcIMYxQKhUKh
|
|
UFB4AZ0g9tiSkLj2NbYkQgjiYxSf+f/mO3PmFOeUVNZURENBELQRx/1O5yWv
|
|
KOcNb6mnhS76GWSKGCfBw8MRSinjNeW8oyQcBP+84IpL+nimFfPXvuCcXp5q
|
|
Rfyxz/hNDylaIb/sn5zSTbJWwIl9zBFdJGn5HNo/OKCTRC2PfXuPXTp4ouWy
|
|
Y2+zRTsJWg6b9gbrtPJYy2bNXiVGM4+0LFbs73yjiXjtBcv2El9pJKw954v9
|
|
mUUaiNMyWbDnmaOOkJbBrP2JGWrvP56WzrQ9xSRR/hPRJ9xxxqjmljT9ozvK
|
|
CFXckKoPux8YopJrBngfevhX7gBapE6I
|
|
"]], LineBox[CompressedData["
|
|
1:eJwl1Pc3lXEAx/Hb3uuc+gPa2nvvjYxSSqEkM4QQQhRCEaIkhNA4jdPe+y/r
|
|
9Zx+eN/X/fxw73me7z33mZuaH3dxVCgUmuglbHQoNMb7OXytRCON8zhfCxRj
|
|
JzGdC7lIi3XEPs8chnGJluqoncl8LuNyrVCcncMiruQqrdYxO5+lXMO1Wqfj
|
|
dhEruJ4btFHxdimruYmbtUUn7ArWciu3abtO2tVs4A7u1C4l2LW8xd3co706
|
|
ZTewlfu4Xwd02r7FDh7kIYUr0W5lFyMYqcNKsjvYwyhGB2epZLuL/YwNzjE4
|
|
M52xezjEuOBcgjPQWbufTxgf3GdwT0qxh/icCcF1B9eoc8H1+W0PKVwRitRh
|
|
RSlaMYrVER1VnI7puGb7/Cs99l0vOcwXHOFfPuIzDvApB/mHDznCXg6zj7/5
|
|
gIO8zwF28xfvsY+d7OVd/uQddrON99nOH7zNu2xmJ1v4nTfZzka2sYnfeIMt
|
|
rGMz6/mV19nEGjbyGr/wKutZyTpW8TOv8BrLWMNyfuJlVrGYlSzhR15iOQtY
|
|
xkJ+4EWWMJfFzON7XmAhs1jAbL5jBvOYxlym8y1Tmc0UZvEc3/AsM5nMDJ5h
|
|
LGf5f8/UDE3XNE3VFE3WpOBZoAkar3EaG/r/bPgH6Z9xNQ==
|
|
"]]}}],
|
|
AspectRatio->0.05,
|
|
Axes->{True, False},
|
|
AxesLabel->{
|
|
FormBox["u", TraditionalForm],
|
|
FormBox["0", TraditionalForm]},
|
|
Epilog->{
|
|
Thickness[Large],
|
|
RGBColor[1, 0, 0], {
|
|
LineBox[{{1.2, 1}, {1.2, -1}}],
|
|
LineBox[{{1.84, 1}, {1.84, -1}}]},
|
|
Dashing[{0, Small}], {
|
|
LineBox[{{1.15, 1}, {1.15, -1}}]}},
|
|
Method->{"TransparentPolygonMesh" -> True, "AxesInFront" -> True},
|
|
PlotRange->{{1.081, 1.909}, {-1, 1}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{
|
|
Scaled[0.02],
|
|
Scaled[0.02]},
|
|
Ticks->{{{1.1,
|
|
FormBox[
|
|
SubscriptBox[
|
|
RowBox[{"-", "r"}], "B"], TraditionalForm]}, {1.2,
|
|
FormBox[
|
|
RowBox[{
|
|
SubscriptBox[
|
|
RowBox[{"-", "r"}], "B"], "+", "\[Delta]"}], TraditionalForm]}, {
|
|
1.84,
|
|
FormBox[
|
|
RowBox[{
|
|
SubscriptBox[
|
|
RowBox[{"-", "r"}], "0"], "-", "\[Delta]"}],
|
|
TraditionalForm]}}, {}}]], "Output",
|
|
CellChangeTimes->{
|
|
3.607867749227479*^9, 3.607867786585499*^9, 3.607868587378818*^9, {
|
|
3.607868639064415*^9, 3.607868696806839*^9}, 3.607868746769415*^9, {
|
|
3.607868794963891*^9, 3.6078688389460506`*^9}, 3.608127268025208*^9,
|
|
3.608127305438632*^9, 3.608127341226541*^9, 3.6081273750819073`*^9, {
|
|
3.60812741126084*^9, 3.608127446917796*^9}, {3.60812748164819*^9,
|
|
3.608127643565487*^9}, 3.608803418665922*^9, 3.608803450065078*^9, {
|
|
3.608846656545684*^9,
|
|
3.608846666514297*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJylVwswnFcUvvu0xJJEWK+EVZ1oq1WMKZ02M4lOajw7045ppp16bYJBJF4R
|
|
1CvEVNqkpRMVEpQhhpYlqXZWJKLoQ5t6TJOhTJDIEq10rdeydM+9/8rSn6Wd
|
|
2Xv/e+4953znnnvOuXd9guLCjkYFxYWHBFm/GRN0Iiw8JNb6cHSMaorFQIgR
|
|
hhCysEYwXlENqW5F9VsJhw6hXfijw15cXPw8IiJCKhAIQoqLi7OSk5PzIyMj
|
|
uQsLC8hsCzwKzMPhy2SytPT09Lfq6urS09LSdGdnZ5EjgdqNP1zL0dFRGZ/P
|
|
B3Uw0+Dj4xOVl5dnvvkyBZCakZHxWltbG1Cvtre3A5gawIiw3LWzs4MloOr9
|
|
/PxERUVFyGKTNT5eY++/d+9e3Llz58B2s7GxsXEi0uXs7Iy3oaJ05ufnf3Jx
|
|
cUH69CJCYghZZR2prKzMjY+PJ7xE22fHjx+/7unpWRIYGCj29fXFztuzTX4d
|
|
wh+Zn5/v2tnZSSjC3+Th4fFCX18fU6lU5kVFRe0bHh5GozT6mYT/kampKWN5
|
|
eRlTqvbAwsKCsp9el/WaLRpPTEwM2tjYYBXEZK53Y2Njh5ubG1Duzc3Nna6u
|
|
rrButH0R7sYbHTcxMYHjAOql7u7u4pCQEPVG10BQG/3Fyclph1wuB4o3NzfX
|
|
a29vr94orS5qoxz4cJrd3d0R52J4eLjaUaDvDYlEot4CRP4cj8fTn56ehrbM
|
|
YDAAR/9/yuNlZlhBQQFiV/v7+8MBAvV2bW0ttbVrXl5ezl1dXUCxlpaWBmxt
|
|
bdEf2nAp4YzU1NSDLS0tQL1++/ZtyGpiExHmaQrTIVF+opLo49jY2DMpKSk7
|
|
p6amwN0UCoTR3wYGBmA9hDSgIuPti+DTYOJYYH8SExMD+QvUiz09PZTcs/39
|
|
/aUBAQHgPPve3t7fHBwc0AO8prseSm9mZiYnMTER8vf02bNnwfHqoKDVsyb6
|
|
OVAWwF+JOTk5HyUkJIBF6kpDu2ZAE8/k/NlGk5OT75eXlwPMexUVFaObqNlN
|
|
L0IZRyUNR6FQvFtVVQUNGeKelZSdnX3iwoULmNIhc/enrKxGFywt+SsyGXUd
|
|
sGRKPh9UBddevoy4mI/7aXR0dHxubq5aJyCeP3nyJJOogQL1RWhoKKaukrns
|
|
pKSkY4WFhZg6CD3zaaiwoKoHXblyBVNrbYcqF5R6ptCgtXMcGeKeZSJpHdnT
|
|
3PYAUzpkTr6guwPEDFeePFlvu2W7ZADpYT6e4a0OqXnTjUGgoGUFHz0F3/1f
|
|
NXbb1YrvVBF1gu9u3d91s30MUweh17CX/WFmZiaMzB8+fAi3lNW/TA5My7qE
|
|
unrnVDcm9LTmyRd3kLk7nVJVPAAfW9jw7V3f83k1GUfDkvZelww8hmlNaOHQ
|
|
0JCvWCyGHNg7MjKiHfrwtcIG/5+rq5krSqUaenpJX38VWrmK8bJ2ZfmFjR+U
|
|
lZVhjnVu3ray/r+sbB/NmJpqxtuMQk+PRtlzpDRCujR6e3tDFl4ODg4GL8Cd
|
|
xNCKNa3Q098oPuix4I6Eg3br6OiAXAssKSkRSKVS7VjyeV299VgbeJxgceAk
|
|
bxw6dAgoqHBFIpGIKsvIBl5qiGVtrRqqxkwmgrcanlOpR1ipoYpSwhRzVYJH
|
|
4gUuN7jQoLAPCYVC5sbWc4n1WDWMoO0kcwculUreqamp2cKxU96DigR394HW
|
|
1la4fH91dHS0GRwc3MR7m+AP/LnvGalcINCMlDXp8xT/ebIKUQH1WuOhsN3w
|
|
+M9JMrP189euzKOhQHzkh8pKzfTdYOvalb1SWtnq0dTUtO30hesxK/jYKU1l
|
|
g48thRMyY+MtHMpaZXAupyOiM2zETb8jM9zTFki1zxy+qf0RXSR8Ll9WfW9/
|
|
9esuTImgpwGAfwzwssGvGzPcP7WMpgD43ayvRxcJH7wj/KurqzElgl4TADH+
|
|
AbIbr4U=\
|
|
\>"]]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{740, 623},
|
|
WindowMargins->{{Automatic, 9}, {34, Automatic}},
|
|
FrontEndVersion->"9.0 for Linux x86 (64-bit) (February 7, 2013)",
|
|
StyleDefinitions->"Default.nb"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[579, 22, 6450, 163, 455, "Input"],
|
|
Cell[7032, 187, 19756, 347, 75, 17236, 304, "CachedBoxData", "BoxData", \
|
|
"Output"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|