(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    160715,       3178]
NotebookOptionsPosition[    156512,       3032]
NotebookOutlinePosition[    156885,       3048]
CellTagsIndexPosition[    156842,       3045]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Einf\[UDoubleDot]hrung in Mathematica VI", "Title",
 CellChangeTimes->{{3.4482507264097567`*^9, 3.4482507460778503`*^9}, 
   3.44825361697365*^9, 3.448855008294998*^9, 3.44893870837551*^9, {
   3.448941707534998*^9, 3.448941708145051*^9}, 3.448948530089929*^9, 
   3.449378264511839*^9}],

Cell["van der Waals - Gas", "Subtitle",
 CellChangeTimes->{{3.448938590732884*^9, 3.4489386022738667`*^9}, {
  3.448938649957876*^9, 3.448938658914235*^9}, {3.448938716065817*^9, 
  3.4489387272806807`*^9}, {3.448941713365099*^9, 3.448941719484932*^9}, {
  3.448948535454302*^9, 3.448948539402977*^9}, {3.4493782678507423`*^9, 
  3.449378278092846*^9}, {3.449383822907406*^9, 3.449383832360598*^9}}],

Cell["\[Copyright] J\[UDoubleDot]rgen Schnack, 2010/04/20", "Subtitle",
 CellChangeTimes->{{3.448250762552552*^9, 3.448250765800383*^9}, {
  3.4482508007927856`*^9, 3.4482508105527687`*^9}, {3.448855011325067*^9, 
  3.4488550128519773`*^9}, {3.448938662166596*^9, 3.448938662529645*^9}, {
  3.44937828293874*^9, 3.4493782835856857`*^9}, {3.480734531376333*^9, 
  3.480734534906995*^9}}],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[CellGroupData[{

Cell["van der Waals - Gas I", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.44937850596771*^9, 3.449378517131495*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"p", "+", 
     FractionBox["a", 
      SuperscriptBox["v", "2"]]}], ")"}], "*", 
   RowBox[{"(", 
    RowBox[{"v", "-", "b"}], ")"}]}], "=", 
  RowBox[{"R", "*", "T"}]}]], "Text",
 CellChangeTimes->{
  3.449378835073537*^9, {3.449378867215275*^9, 3.4493789127846003`*^9}, {
   3.449378988834962*^9, 3.4493789901935987`*^9}},
 FontSize->36,
 FontColor->RGBColor[1, 0, 0]],

Cell[CellGroupData[{

Cell[TextData[{
 "Gaskonstante R=8.31451 ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["m", "2"], " ", "kg"}], 
    RowBox[{
     SuperscriptBox["s", "2"], " ", "K", " ", "mol", "    "}]], 
   TraditionalForm]]]
}], "Subsection",
 CellChangeTimes->{{3.4493793192475653`*^9, 3.4493793245823936`*^9}},
 FontSize->18],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["van der Waals - Gas II", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"R", "=", "8.31451"}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", "=", "1"}], ";"}]}], "Input",
 CellChangeTimes->{{3.4493799356534433`*^9, 3.4493799370595417`*^9}, {
  3.449379968676941*^9, 3.449380013075857*^9}, {3.4493800683574038`*^9, 
  3.4493800698279123`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Explizite Darstellung, V in ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    SuperscriptBox["m", "3"], "mol"], TraditionalForm]]],
 ", T in K"
}], "Subsection",
 FontSize->18],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", 
    RowBox[{"T_", ",", "v_"}], "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"R", "*", "T"}], 
     RowBox[{"(", 
      RowBox[{"v", "-", "b"}], ")"}]], "-", 
    FractionBox["a", 
     SuperscriptBox["v", "2"]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4493806673103743`*^9, 3.44938067243929*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "[", 
  RowBox[{"0.5", ",", "0.99"}], "]"}]], "Input",
 CellChangeTimes->{{3.497776178559486*^9, 3.497776195060484*^9}}],

Cell[BoxData[
 RowBox[{"-", "436.1315810121413`"}]], "Output",
 CellChangeTimes->{3.497776196211678*^9, 3.54302564316597*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,
 CellChangeTimes->{3.448855172350502*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["van der Waals - Gas III", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, 3.449379647232115*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.4", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.5", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.6", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.7", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.8", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.9", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"1.0", ",", "v"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "b", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Green", ",", "Blue", ",", "Cyan", ",", "Black"}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<V\>\"", ",", "\"\<p\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Isothermen\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.48073462052957*^9, 3.480734622837948*^9}, {3.497775411685054*^9, 
   3.497775497812148*^9}, {3.543025589206369*^9, 3.543025592443679*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwd13k8VN/7APCZIVv2fWdmkDYJWct5ioQKCdmyRPZKKUmSIhFFQpZEooQi
yRbuxYwilbV8VJRkq1QMxpbf/f7mn3m9X+d5zn3uzD3POZd65ITtUQqJRPpC
JpH+981QOM6jTptBpP//8MDrg8e0rm6cQZqDLlENvVwgqVQafdRkBplSSq7w
i3KCx+Rkr4nLDPqSr72VdYkMxc/Xq9FCZtCrcwtZuvAPzUb5nSUlzCC2qH+X
cdcCuiY1KtNQR4zf/n7X+f1f1DusEpjdPYNsmDl5khd+IqUnXvXnJmcQOH2R
F3z5HQWcyxdwpLBQnmTCSgdlCFWafnXTlSWc4D14bU8P+iekXC6uxUJRzDmO
fVk4svjoRp6xYCGSc8naU/dzscGTn+6XnWMhjyzzdLN7vZj6DrnZ6zeJfN2H
sVJSn7EQHmezoEdEfl913froYayxJ+O2ZRMLQXZO+LTRKMaT+2Fc/T8WEt4d
dpJUN4HZBkgacv8l5rPsGJAj/8JyttknfOeZReYkWX1Pvj+YVkf35nz9WdSv
E/Vz84dpLOK2yMUom1nk0RfYza3Awl4esel085tFfkGjZ35ZzWKiGknUHVGz
qFNXS1L4+BzmuvDmlFzGLCo3weMTzs9jDxj8jIWyWaT+tJrLL4yN/U3aK9H/
chaFNUpg2UcXsFi1turU+Vk0bkzWSBZfwpSpCaQzInOI1BFi8XpsCauT229h
v3EOsXnuyl0uXcbsJIVStu2eQ+YSv+1TvFawKeGuAQn3OeT3VeFmu8A/LG7t
Lfpc2ByKC3O6/KPkH0bjsg96nzKHOjufiz0yXsUOLfWvpLfOoU+GIb17aCR8
ejbL7OyXOfQz92bsaVcSnvjHNenQ4hxyODpboZxCwtV+KPbric8js03rWYkt
JBz//kVZWmMecblGj8z+IeHOX/L92Xvm0Z+Cl76psmScNeBd0e85j8YbHk7l
ABm/0ae2VHN+Hkn71lSaepFx9c5xk8y0eYS/dV+ovkzGm9uLE8+VzSPWcR0d
lVwy7soM6nNqm0fdEnq7n9WQ8TlMQ9Hw2zzK6tlzL/EdGU+u++MjuzKP4no3
nu/7RsY3PK8oW5Rko/7EkxPls2ScUXaaPaDJRs2sMF5YQ8HdinV3vrBkIzt8
UClflIKzC9jx2d5slBgQXcVSoOApuXXd5yPZKOaCZ83BdRR8U1aEnGsGG4U9
9Ez4T4OCt6Yae2+vYCNGj4N6rg4F90giPZbvYKOBLPOt9foUfDG+eXb5OxtN
f9Tg2mNEwVNjYow/r7KRm6Zxv912Cq5x0exqg8wCChAbfrFAjLed4+nM0V5A
ioIXa80NKbj36XbpyP0LyHZS/PNBPQr+73iip5vvAjL99N50kzYFz/C3Kja+
tID6K95oDG+m4FrewjOK2QtIPjB9zRWi3g63bqPVygWksbg/iK5MwX2cUmOG
3i6gXS9qLV5LUXCSncMbbHwB2ZTUdccLUvAsK2nJPMoi0jojnRrIScF1LAbc
ouQXkb5p+fmIBTL+1uTOQw/dRcTnIfr15S8yTjFQNqAGLCJ23mqLfi8Zv6M9
fIkcs4hGCuP3nGol47oaBe1fcxbRk5nnRwSJ/yuAru6a37WIEtc+PHgzk4xz
Kk4WXP6xiMJyszPj4sn4XenSX0fWLCEWnDzCcY6MdwtoXqQbLKGps5uM8xzI
uBFbL78gbwmxC6xlNQTIOP+bPeMPTiyj9McLn32DSHj6EZpu59Vl5HBZa6zJ
kYQrsZejF3KXkaJDbd+8KQnXolco7etcRkH99KMUBRLueE7+0F/NFSSs3Db9
9PYqVqD6l2k0vYKO1w5bfNz3D9sRmXW/8/QqchtqK/WuXMJaxc78XUhcRRXN
c3fcEpYwm0fWiF64imqCVFtPHlnCvHs5P57pW0WlG/3nx4WXsN1pevECciRg
KyZ9MzqxiAX+uIdXnCdBo3B/h7XWAlZ9O3TLynYyCEZYOH56P4c5zpA39ZmT
ISjx4J0Dz+awRavr6o/tyNBe95o5nTSHGXMVUA8HkYHrdrBXrcUc1nq6S6wh
mwxxb/6ju2CzWO+BTeyIRTKM/HvCQ3rGwqbXDuPL1RQQLfpBrn0xjaX6Hmvo
baFA8Yk31nU505huC7u29B0FFpU9v49enMbCw4WeuY5RgP/jBccm02mMPLG9
sF6SA4IHPbef7fyLCbfejo84wwGk6Giplt9/MI2o/bbLWpyg/Ouek27mFBYW
kmXZhzhB/NHbMA2vKazJZ2zXk32c4NrN+Bu5eQqz239J28OHE077F31Ta/mF
nZd9Ls7I5AS/AF63mOmf2KtK+Q8JpDVgE8JWoXj+wI5M/HCRe7sGorbkp4ec
G8dKP+nbsQbWgCvH3Lew/ePY7Lsr+96MrYFPdK8DrdRxLK5KacdFMhc4HK7P
0Xs9hpVFH1T8psMFrHuQ6kMdw5YVXnwpzuYCvsPrHyQOfMfSba8dNfTnBsf8
YPxdxDfM8ZbXF70z3GCc9DbrkMs3TKZ3u8u2S9wAxV8/iRh+w+7Y/7bRzOSG
T7uczeXZw9g9R7vtam3cMEXLK74YOoyVuimKia7ngbCSkRqDiK9Yc0AFPjFO
WPldXL3tEBZTkmA0xuIB9nGTWW25IWz3T++qERIvhLlIKa58G8ReHZMqHZLm
Bc4Ll6Mvhw5ib4IjbveZ84KHYdyYZe5nrD/U7HhTES/kDfi6u69+xH5dHpDL
9OODqKMyp7fM9WMOLmdSbp/hA4Zukxofox/DtYV50y/zgfeRa7hWSj+WMrJ7
LuUOH5T/DosM3NKP6Zo97Uzs5IOOvLNbg459wKJ4465E6a8FdeaanbrzfZho
8rbfvjz8UHPDgOOicQ923q/zqI8EP4wE3XwhL9GDjUDgJ28aP3xJPPCN/aMb
q/qb1+a5nR9IB1hvA7K6MZeD/AUuwfxgWnbEZ/1iF1Yg+c3Rup8fHPGVqipG
J6aXk9ysWyQAwb1SFq1cb7DI2LYb7EoB8OO9c8GhpQNjnKC41DUJwHi1ccOe
qA7MZtfpmR0fiXjVwwOWS68xv7FDKrsFBaFmbd+25tl2LGurUuzB04KQcdEu
YWrpFfaP+dgiGITA72ctgAUTMy0bldDaLwR/aJEn3wkzsWsZSsMzTkIgXNtZ
8rifgUkF3gw/GyIE5R5vwN6fgWkKnymJfCAE7NdbDUxutGBbN9+NNeMShs4d
pXVbRpswr7NHx+2ChCFPTqLJNL0BaxZ9JWR+irAVN3f1jgZM+ckGPaMwYYBC
EbGs7/XY4MjvK9QYYUhmHf9VpluPOduG06eyhcFG5eY8z2AdZrs5ye3qa2Hw
2BeqOwo12K5vNb21G0RAOJzUpHnwGXYvUm65VFMESIEfg29yP8NIspH0PF0R
0MzYbWtTX4E12picit0lAjZCmWmjahWYYeMboYPOIqBcl4r7kJ5iWpnDlj/j
RQD3F5i4FvcYo1rzNylOEPNd8P9qLl2I2VVZ+6T8FgEIdPZrTyjAYhVureWa
EwEPl9XuNaQC7OcPGYdfFFH4c2w/+cFkPlYTt+7HC3lR8FB89OPYqzzMqnmX
hJONKETJpp71sczEIrad879VLQr4Q57u+6eisbI79YLcjcR47lBvc9olbJiD
VBnO+F88f0dG6EXMvDv2n2eXKJCw5Es0uTBM7ETqLc0fhDVvza0x9MKKi8oa
3iiKAanCVXb80inULzcqwhMrBh786/a/+XwTvXx0gi2QSLgson9fdgqq0lsY
FEsRI/rHkYHJQ7fQrYP8pUp3xQAXCR6MfZuKrBK0zPSqxEB598M3bk9vI8Zi
ZLjPKJFfq/fxqlUOKv9P6hvDTBxIyiXXZefvo1zfe23t+whX+Pe+My9AN2Y3
lHfaEk4w0FPNKkCBIsYXPrmJg8eLjwYVRoVIzcJbihUqDja0w/5Hwh+gOzXl
e+kPxeHLcNrQ5dEidPW2ReUlbgn4kiTf/yniMRrZnL/bX0AChNdIjYg2P0a7
GIvvbcQkAPg9dyxyPUHLf0oWlJQkoFPP8tBg0hN0ylIQNeoS+XerY7nuliHX
le62xaMSUL5bgU/8fTnS9HIdCmFIAL7j7aRQWwW6vlAZ7NIuATaHxz5IjVWg
ySQBikknkU9p/L3C+QwV1jeqiH4i4vFEOArPkKwkNaB8RgLiZJfxgufPEGfb
d9ZPmiSMw+ph3qxK1K9xgs/nkiS8UlH1PLG3CvHeLJJ5e1USiooMZBt8q5Dh
zFd13RvEeF1h2Hh0FbpTbbeHK1sSynOfdPe/qEKeYBjzoFISkrt+P1LZUI0m
D6z5NzomCfqiP29cJ9WgldPZf32tpCAZ23i0Ia0WaXzoJXXaSUG5mIK+0JNa
5GEgKKzvQnhwrMiktRY1r0Rp8PhJgX5rIcturhbFxvoEFl2SgvGJzwoK9nVI
OGPr9/FKKQAJadcjAi8Q7cXLfn85abBxWO0u8a9HQqZ71ntTpQHP6j+rcaEe
LXe0nnNbJw39awVVs5Pr0ftBpuxBbWmQ7tVc0qquR9coDNfte6VBuODrTneO
BjRtgX8RPC8NRY88tmC3G1BLf834swFp0ESh0sZPG1G5p77Bky/S8Ipcbb2l
uRHdnayOLxolrj+3MVCgpxGFLVdtyJmWBrbuq/xkViPapPw8KJZPBuI8c12e
62Io1ffpH0dDGfDgvdkXX40h77lH7JVMGbA8FR7EsseR6l6+l2F5MiCcIur1
8zCORnMD0mYeyIC0U1/SwFEc+Vls1Jp4JgOnnt2vzTyDo6A7pYG9b2QgyDkp
oSAVRyG7ygaLybJgXE79OtuJo8s3KhmH/GXB0tFbtXtXEzL5Jn6r+4QsFHCc
WSy0aEKc+mc894cSbot3PGnThGK/bvu3K1oWVJg3308dbkLxOtV6GjmykN4h
O3YlrAklD9QWc3bJgjN3Wuam0iaUq4YlP9WXA5Ji1rtsgWb0NnqKVxDJwc8s
e/9DYs3o3xeF6IDdcnB3aPD3Wplm5JodcYZuKweO3HnD7irNSFbY0DktUA6E
jfL1Kg2bUfpCJf3cXTnYHhtnJuHTjG50FFcBpzyorzfY+7O6GTWuH9iSwycP
ao+MZ3rqm9GvWN5HC8LyMOh4P/h5UzPat9Mvu0JBHuxc7bl8XjcjvirVKBU9
eRgRoR2KHGxGV3LzLHgC5IFmar/rJkcLijiV/undO3nYpM1nEWTRgnzn1t5u
7CPid/xec3B/C7INv3Tg8Ud5cOAQFNt2oAWtvxzUem1MHnRvFWv+cGxB72/u
Kt+9Kg/1XrJLSn4taOvTqegXGgrgKPWrrexKCxr9bbbx4XUFSJTw1rna0IK6
Quq/p91SgOLfrQ+/4C2ofn5rXkymAvh9vDi/jdGCbq3KSxwpVIA4/+3be9tb
EAjN/JNvUIBBjpHXQx9aULZGbnfKTwW4y9VwQfdvC7I5Nn8ucq8ijKutyK0o
M5BQw/6KXwcUIawm+byUCgO95S+YdHVUhEivJ4mb1zHQ/lIbF6OjisD69qhv
32YGsvzxaDs7UhE0FvyiHA0YyNTfdfVkhSLULNhLFtkwkN7RppijMkpw2ZFb
3SyCgeYqpRp6lZTgX6UPdSiSgao4j8+aqCkBxaH34OlLDKRTIOtD01aCUpfr
IbdiGUjzW8ieoX1K4DrqubYwmYE2eKrxOUUpwTXem7PSBQykeDghad+YEuSl
su8cfsVAmT3reK1+KUFzgKu7RzsDiVsyLlvPKAFt9vIOjw4GWqu3csZ2lajn
r4bjoU4GiojT0yhdqww4RrKj9zOQ35FH4hV0Zeju3sTQGWMgkLz+teGgMqjM
dE9aczBR5AGXu40OytBf2WC9xMlELxLXu2BOyhDE+kQv4GIiXY7WXtxdGUL7
QulTvEy06c+/ly2BypCv2tjiJcxEMu3BT9qilcH8IJbzQZ6Jpi/Yne97pgw1
h8O//dVmIlklsbOS1cpgYxn6MWgbE+3Eu04dqlMGtUMP1b7rMlEyxTrgP1wZ
siqSm94YMJHGVQunz2+UYeDUVvuLiIkCko31vo8pA4MzZ4+PJROlbF3RUvuh
DD6Sayqr9zJRbfcLDd8pZZD9+juHaz8T8UgYqE2wiPkeXmDdsWaiB5naEr/I
VJA105wpsWOi4Xz1GZYcFfp1W7zs3ZiIz3RsapsSFf6IOvZedGeird8LJ0Np
VMhrmZt46MFEUevow2x1KqQ6fhD4e4SJFEsVupa3UaHmmXG4ry8TOT8XLeO0
ocL2CN2p0RNM1P1yOUA8hgrpbG9uuEjM94u23ewqFd4OPPRViiLuV9RCIOwa
FfhpuS+XCe8/nFb2MZkKkmI3bjy9zESvpjez8nOo0PFh6wmOWCZqVHC/sLWa
CjaBChstE5lIweSKlVcdFSr+yJ7gu85EEX4lSmkNVHh14mTXK8IGz+ab2C1U
MJS/wUZJTFRpnsyFd1KBx+szh3QKExWHNCVZTVKBMRh0P/g2E/FmjnlE/aLC
zZSxB2IZTOTXKKBV8YcKl01Dv1cSVuV17pWYp8KRlkbZ6Uwmyrs7Lf2ZgwbO
TvT0Q3eYKL2Nnh+oQAP3cHxvZx4TzU5ZhOQo0+Bi7kjHoXtMZCcebPqOTgN9
A+GCz4RF3OtHtTbQQDho1Xkkn4kSWXYbF3VpULnvmPRgARNFK8VWxtnQwPPA
s20xRUwEjtYPog/SQJeaHTdJeDlZOiPSgQYDt59HWj9iolBKyfnTrjTQywpz
kigm6v/+bpeHHw2mR8t/JJcQ9Stm6rgE0iBBujz8J+FhhyNqDsdpMLGlvMqs
lIlcXrF4952mwX+RMYbzhK1KZLr0omjg2sFOMX/CRGtHhpu1oon6rC6XZBJ+
JV9auTmWBlfjU8InCO+8YZxBT6TBoNgsXCljIp2TXu5CGTS4K74n6XE5sT70
Hv8aLaPBYk+jVnMFE70/ETr0tYIGhrYfd6wSTilCXZ+eE/VT60SMnjERv2x3
ZfcLGhxnqUuXEf63PHe+8SUN6iC8Ma6SWJ/b8GO17TRw2ueuUU847Hi8e+Ub
Glj14SemCP8dkjMp7qGBlr9JoPVzJhppBr70IRpseCThxVHFRPeWeJeTh2mQ
X1IZsZmwm07Pr4TvNMh4YRnsQPhD4dGuSz9oIDgQO1FAOHVQoyViigZ8v9HJ
dsI2UuzKs39pcF5Z8sMU4fa4axnH5mlQHbJtp041E8U2Hbzmt0gDxHNtjz1h
k0X5CK8VGqTkiWqeIVwfWObuxEGHuPCOkqeEzxWEHbDjokNvLXnnW8K6n3ea
WPPSQWvxVP0E4TKrXrXdQnRIcOEOUKhhIodf1w9FidJB2Uo/W4/wcsKeuBcS
dHA9PXfFhvD9DeTaOWk6mE1c3uhH2LKtbmKrPB2W4hWuRxL+43ta9pgSHQTn
OUtvEb7NpbG3iEaHgbTQ+IeER0zulSqupwMMjsW8Jpww7PzZaRMdGnRdCz8S
1rokLpi2hQ6BVNP4ScL9Sm+NO7WI/N/vt7IJX2y8emKtLh28cMs8zlomUju8
M8/MgKj/Ym+fEOGOpcXOS9vpYDrxsEeGcEhWJbkB0QFdm8+iEZY1OK7F3kUH
4ybWpg2E8Q/rvLTN6GCJv7umSdg39Out4xZ0EL9R/XwbYUGJbMajfXTYwj3w
xIBw5TO72RFrOtgNeZ3dTtjFVlBN+SAdHuZHCRsTpvx96eDiQAdytfP5/7ko
6dLVdCc6qByWq91B2FrDqKbLlQ6cFZPtRoTnOljj/B50IJX/fqpP+E7gExlz
LzrIatqc0CFswudnGe1D3M8PTc4thCeLqOcb/ekQfv75SXXCyXs+liwE0UHu
MKlWmbDeaOonnWA6UP5ofZQiPBhjJRAcQoe+sGP/CRCOofMYl4QS8bR3lRTC
G5qbjo+eo0Piypnjc8Tv2+VxPpd6gQ4b11zkniActqrT6RpFh0h5rksDhBXv
TpEyoulQJ6L2qZ0wc3vR1p5YOkzfZcvUEQ766HlE8BoddAPTjYoI10r3tcQk
08FqzU2NS4Q9qm+wsFt0eNchQwkizOVgrrqUTge+NmaDPWG7Wy9iT+bQ4Vxt
z19VwlMC+RZuxXSIjbsfUEs8r6mlLuGZj+ng6bc+J5uw0V6Jkt5yOvTo2OAR
hOPi4vj3VtNB80/JJyPCdI4T7/QYdGgn37r2+H/r6Z46KeQlHbguKLpfJRwM
w5pP2ukwEnt1kwfhxgv2KSpddFBrWHkuSNiRbWQvMkiHcofUXHdivbsWZzyQ
+EqH5HXCJ3UIe7rOzsuMEM/DtKg3D+EA/EkWbZIOfueGnj4m+kVEHPWL9hwd
dIzbKVNEv7knzR3oIKgCSNhkvRnRnx60e9U7i6hAk3PKSQHCxRG4gLu4CnRV
DI71PCWety/nyn1lVaCgL8TTjXBr0c/ZMDUVSN2YlONP9L9J/e6obGMVsBix
G3Ii+uXUpEZ37k4VkK9+6iFOeOZOAr3AVAWGn/TIvX1MrGfS7tZSSxWI37tr
FyIs1Fa9ttFBBa4FFXpJE/1Zxykn/ctxFdj5ySrtAdH/L5zzK1XNVYFO7ePh
esT+UVO2qUc2XwVWv/7n/uk+E7G+/1kQKlSB7U6p2VGEg2zP7VksVoGH3m7S
L4n9x3XjteG3VSrwU5Nbfx+xPxl+LpEOe6sCluqrt/TuMhEbfse0r6iADf6h
NZ3YL3XOPivBSKowzjC/vY5w8OOz3ZUcqjAz5NRZnc5E4zIk5VxeVfDVjo18
n0b002nhFyESqpB3WnSAP5WJqgq0/spvVoXw+h5Ot2Ri/fOEHj7hqgrxpb6v
0uKYKKNgQ0uBuyqMiBpV8RJuhCH1gSOqoCFtu+bCVeK8cs6cZeqvChfcW9s8
ifNB/oRsgmyoKjwo516hxzBRZztWw0xShT9J4mkJxPlj03VecfkWVYi1fVf2
4wwTfRfJaX+1Xg1u7O5fFvRkop7pOI+ACTXwkQIvKnE+M7a6USFXuw7mTJp6
U1cZKLz6tBvlijo0Lu395tfKQFvZStpbTdbDvFUG+d91Bjr6bKTlhMgG4At5
6mFnxUASZscvzHVtgMa7lrE7RBgofbQ/ueLGRghf8b1n1duCUsmHPSJdNkHE
ZsfK8JstSIBV6Jgiuxl2TL1c22Xbgjg8eQSqJjaDitLThUHBFnS6cMsktUQD
MowLWQ/eNaPqeT1qi98WcOvfGSeS0oyMhjfxGcppgvOWd+ZfrJuRo45yhu55
TZCv4HjeLtqMKk2UOY2+aULTwq/A0K4mxP5PWMHZYitEtuzcaZHShBY/elnm
FG0FH/Xy87sdm5Bhdov9uJAWRMx7+wXINiH91itnDgVrwczO015lX3GkFKa/
6+tbLTA8MOy9tgRHpmPzP09t0wZxwzrjwWAcrWuWKVVP0wbn9cNReUY4umZv
zdubrg2BIf8JPzfE0c/xGJ+LGdpgrj5b2WaAo3KhP8rvs7Wh3i3TYEYPR4aH
W9Oi87XhfthNnT06OLJin7o4WKYNFf2Kf6c34ei0Rodtars2tOyyinZSxNH7
JnI56tAG3qCI28EKODKw1xP48UYbdA69wq7K4+jf+fyXO7u0YVC3Zl+VLI7i
2sK2//6gDSK034fEpXCU7a2qZvldG6qEjmn3ChHx887Rs6Pa0GloHf9TEEce
Cclf8sa1YSXRYoaTsErFUtb8D20oELjCocuPoyerXUKF09qQxsEvkcmDI+Fb
3MdsWNoQxbq/toKbeP9W29G+NKsNJ6tsJF9z4Uh/f1GM7YI2KI6P+q5w4ijr
y+evK4va0HHy3RNJwishYujRsjb4kF7zanIQ1+e2uGP3j5hP4b8wCwqOmrMi
F1ZXtcHhwMLSETKO/g/D1D8K
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwd13c8ld8fAPBLErK3e6+dKGXdiiLnE1HIyMhMKcmqpJSVkZ2mkIxQSEok
o/0I18q49yahkpW9knHt3/P93X/u6/06n7Oe55zPOY/sqQuWZ1gJBEI2C4Hw
378wzfjL2tFZRPj/jwO6L/58UhQwi3bp843nUjaC0n7S3K17s6gjtEbpZf4G
uMThYOj9bBaN/+RG4RRW4Mj8PqzUOYt8iNEZm7jWkaWn6L5Nf2dRZVD3Ma+E
FZSx2yb+D8ccqiQ8FXXVWUIaTYydj7XmUDH1zGX+iTkU/EAgNMxiDh2Ov80n
Pf0P1Z2yoDm7z6Fh/S4VX54Z5LTY7EtKmUNhq7XGg7ITKK+Gu2axCG9PoEGK
PjyC/t4xEemom0OEE7vqHDoHUfTWhorEhTnUI2gbaqrSi2Rk4wl+AvMo7NHX
BVT0E70jmRrZKM8jQtzvzYPm39EkP71L5ARejplaJX9tRLGb78vP+88jKNBW
JZZ/RnLsNt7tCXi5ZNXlbdtKkO1yx2pyLV4/+8BSuPVzbGYu1fBqD15+dLZQ
wuoDdnPa6Y7tEl6fzzEwnkjFKv/0yIirLCBCXXrk6X80zKHnsQfz0ALqGft3
6/Ofr9hsl2tJh8sCOqllcm6iqB1Tog3rP0xaQDDbVF7+9QdW1VhwM6BoAWVV
tMXzqndjTlTvb/YNC8iCZyq0fU8PdvfdtBtxFY9fJ/2KN+jDtpeVFC2JMhEo
isd7a/ZjNUWXmV1qTEQ4u5tniDSAMXOYcWmuTPQmcf9dDewPlpD5jhEUwkS0
UfYkjdBBbEdqMMkphYliH0tEKu8awmoTdV11Spiox7XkVXb3EHbyDqGQ3MRE
HWLqDwVDh7GluKq5lT9MpNRfajAnMoIlRkbq/lpnIv/MqNfvnoxgDQEctAzK
InIPjk5Myh3FXC83ioeYLqKUwNn6i8QxbO38TRfns4vI4jez81PMGJbiYVag
G76IKnWptm0TY5iGK/8/qbRFRLvgfm+j6TjW5MzQXi9dRHa3ttOzc8cxN/vE
yN8ti0h8QDBpdmEcSzUTF81iXUKEoILuzhsT2C6jLucw8hLK14tVnfkygbXo
pz89uWcJiWfozDVtmsTcdZ2nwWIJQaHlzVzdSYx1r8xeWc8lZJFYkVTqM4ml
U/rCWSKX0DArB0nt0SS2RyWnsTdjCfFPVBSb1E1iNCU3oaqKJeSuvzdZa3wS
85RXcnpMx8tb9dsUeKYwNqnRnOtjS6j+83F72D6FPRJ/MXFq4zJS2lUl/Fp/
CtMSOr9HX3oZyTyv5HtqP4UxeNRC5fcuI//Kl1H63lOYN8dM3QarZVR8IGKp
MGgKY99Qyj/gjdc/q2bBFTuFZa362ddELyNxPXpX4L0pTJup+Tgnaxnxi3y8
JJMyhbXPLI5GvsPjl+/FE9OnMJ+J95QzbcuIQ+CQdkzGFMY1fC3YYHIZDe+2
sY7Ay3P6EFWBYwXBJTaf7Q+nMN1fLLzscitITWlsNfn+FNbxvfrYoPYKyt/9
/Ghf/BTmy4jKrLVZQZVJzKIt16cw7uZDw3kXVhCBe9bB78oUlnxKbg8tZgXJ
eLNld3tMYdLMlYjFzBXEnHLsfOc4heXf+k6Xe7OCxCue1RCPTGEa8iXSR2h4
e13EUF7tKezDm5vn/IZX0EmFnTG5SlOYgdnZ948Iq0irWq1mUngKswsg2/5V
W0WHCcef00YmsT7ehRyi0SrKsi9zi2RMYl459Bl9l1VU+dUzUubdJBbSGn07
+d4qKh7cmaEXPYnlKPylas/g7V1K8fMUmsRU3n8ROsO1hvLd+cayZiewCos8
l9tya8h/W76K6LcJrDHIcbXHcg0NJ20k996fwKbp1F3Rr9cQv/Huc32cE9j+
kNQntMvrSKu7IWbm1xhWK+T3d/HmOuqZdTv7qnwMs3hmjuRz11FKX8hNqTtj
mGsb2w+/b+to2mlLhBgawwySNON4SAQIuyRkuzF9FPMay64sCSJAjYmiqK3p
CFbx4Irqqg4L8A98HPR4MojZ/WPZ8e0wC5ADt915EzCILZndUiq0ZoG2A75n
hC0GMV32HNnj3izw0526e3HlD1Z7mS70MY0F/E3nitJs/2BtR3cwg5dYoN7t
d5+uwAA2s7mvcqWCFYbts5Vb03qxxLPnPrZVs0KpVNa3Ar9ebE818+2LVlaw
c81WKzTvxQID+V47DbHCSoajiSJbL8YyopP7QXQDZKUpmS6e78H4ax/EBftt
gBQdBft7Kd2YSpip5YoGG8Q+szq/ybQL87+UavwNsUH98SGrexu7sM9uQ3ov
j7DB3a/0K6GfOjFr03DKSTfcpvH8seqdWBCxTLjmIRu4f302ZkjuwOpLyd/j
CRuB9oH711G2duzUyJgjqWUjyIx7Nb8lM7AXP7WsZ7s2Qv2ty+5OvXRsrjXq
SPPQRlDbHn7OIY+OxZZL7w9lYQf3pTzJs+p0rCjCSqp/Fzv42K68rTChYSuS
73sK0tghLLiJ8Eq2GUu2vHFmn8cm8CnMnd5aWovZ3T/do+m3CXpuhj2Xsa/F
JNp0HHeHb4KwutWP2WtULN1mykLtIR6fws6raULFsu2sdbY24PFO51xTR6ux
F85SQoLbOGB6MEU398BnrMqzpHJkmAPUPFmLOx+8wSKfx2sPzXIAVCn9HSO8
wQzGXcsHCJzAL/m5osezAqs/J/bitzgnnCybTfc+UI41+wQ/+HaYE7JYLsaP
MF9jHVcMz3/O5wTI0npUJlOETVzvIj105wLCyUqNdZcM7JijX8IDPy4IkyJ/
lzqYhlVS+DmTr3MBJPtB0baHWMKAwXxCOh7fZPBs83oitsfwFe0mDfe9BSPl
nDgsjDM2KkxrMxBu0wMWHc4iwbu7p85ycEMlsTvvNncWCnKnnXET4QaZE1ym
T0ay0AB4/XSVw72t7oIlNRuV/81qcNHB4+VK/eL8nyBHK+4cRx9uAKv50tSW
PJQj2m9n3sENJz0HVnW1C5Fmxt2qPfk8UNneNvY2oRSFRDfcZpbipu1GrmOl
qOYCq+O7z7iFAl9c1y9DFnqX/+3/wQM+CYonpWfKkPuQ7RYDXl6YXit4On24
AqWqS0dbXcat1lX66tdbtEYtNPIBPsgq3F/h8OwTOlg0KKJhygf8b2zstsx8
QjdSpPv+2fNBT+Sf0qB9GBLzuhd49RIfEH6Tg9obMKTG7/c8JI8P8g2HmE8v
ViL1nY+iDdn5obgHk50P+4xOXz0zbO3ND5V54R07A6pRlWA932FffuCXytMR
SqpGMi+3a2r78wOHXPTv1uJq1D0wFSUbyQ92r4/QWoeqkYNloPxkGj/IVNNp
01Y1yHLnHeeYL/yQ5Wr8amQLFen1v2l7u10AfIjfUjWf16LsENLKCzUBkLHs
xS5W1SICMUQ+a48ATMdcnozrrEWfLPR9o/UEoPLHbWWbTXVo36dmPisH3KIH
vJ1c6pDGwz7j8TgB8M95etCWrx7JmnN/lhoRAIuefqu91g3IutzcLWFKAN4E
5y3u9GhA0ZL3N7PPC0C9dbkuS0gDGh+TODbBKgil1GHfg08b0JtYxbH3ZEEI
FprYqM9sQGZVeiL2FoJA+9zWZpLYiIJ3B3jcrxCEu+fPRX0t+4KK0j/wbvok
CGHatEFm7RfUt4FQGlgjCMWcUy9ZO76gw4zoNRe6IMRe/Shes/gFCV1IvK82
Jgh2jeoNrDpNqCC/6GOzlBAcvv7lSsL7JtRBGhTgiBYCpbKkV2z5zaju2QUm
z00hqHlnOCFc1ozKNRe7hRKEoNL5t6pAVTO6b8X9QvqREAgHW2i2/GhGZvEa
hprlQsAW33fwOG8LqlkKCXQbFILEHsOIwQstqLhTrL/GUBhih+y+HVNoRZln
sxsajwjDTW8NXqJaK7o9t72YZikM+dGdF5r2tSIvAd1rP52FgbbvEMe6eSva
auQqNntFGFL4DrM8CmhF6W+KTeSfCkOw/h6D9oZWFPPAqDR8kwi4z+knuKjS
0MDOxwYePCJw+Nf9E6UUGtKrWWq3EBIBY7Uma4IWDa1MP1+UlhaBI+OhXRFA
Q77GvOjTHhGofT13eN9RGnJaZTQsnRGBfOe7e70v0pDaaaffl2pEICxqgSJV
SEO3Fkt9HBtFIHD5p3leMQ2N3uFh1aeJQKnM3odKpTSU++HTFsGfIqD2hMgg
vachoqisZ/E/EQiuf1zwsZ6G2Br+zI7LiYI3/1XDuT4a6lC5wOUWLgqXHRVy
XYXoiPNevkRLjChwLfsKhojS0b5/vUp7bouCmwNX/j0JOkqvsD7EniYKWoc5
vJ9K05EL7IvMKxWFvmtGu24r09Ho0Y1rg0Oi0BatGWuuR0ekUl0e80lR8Fc8
J8NnQEdHRP3JFbOi4OQf7NhwiI6Kukb3xbCIgXWz4fedpnR0+TTtqiJJDPa0
cBdV2NLR6uW0v2fNxMDYeD/nNy86UvneRqBZi4HowD85vfN0dHIvL7+Woxg4
bDI2L/Cho6rVMBUOdzHoJp1d8vKjo+hoN6/8cDHomTWyLAuhI/4U9T/DpXh/
H5bzz9ylI7n3dR0eJHEwMxKVcC+mI76Dh7a5yooD7T1p45YSOlppqg1wVhSH
9v5Ui5+v6ai9m0q0oojD6DSfuF4FHd1grXHSMREHQmTjn76PdDRjVNnDGyQO
7hLLFtca6eg3A6lzhovDms09A5YmOmpyxMI3xIjDvJv87/BmOso790mOmSAO
Oq++CQTQ6Mjh3gfX3gJxcDK5Noza6ai6483w6y5xSD1c0KvRS0fFLlp7X/aI
g3/mRp6IPjp6NFoRlz8oDjffOUvS+unIf6V8e8aMOOTrHFs5OUhHO2TKvKO5
JMDsk52k8xgdJZ59NW23TwKO1D5Rbpilo/BptQNWIAGGvE/OjszR0fmA4num
hhLgrpRRzb5Ax78DizT0LCXA2SR9RGsRfx4vCy8re0pA+ky4edAqHbnOP2Ou
PpQAFx7V60EbGUjBhKvOP0sC7I4plUewM9BgpmfSvzwJiKy+1xC7iYHcjZQ1
Rl5LwPGag5lxnAzknf7Cq61ZAhyqOv3deBjokl5RdwELEYbyGGfvCjPQrgd8
hQocREiZX7/qLsJAs2MXgrJ4iZDObfN0vygDXUlSE08mEcHN8qnvbzEGChx+
dTR8NxG6TaUVWEgMdP12aY2tBxE+O+lrVMowkH6/8H3GBSKUqPLNeMkyEJuW
n4vpFSKwNwZsFpFjoOje3Wt6EUTgVpG0PyHPQHG7KjRVMoiQlKBe2abAQMZx
YuzPnhDhg2hBoddWBuLqvtomX0CEK2bK/ARFBroZo3VRooIIfpq5B2SVGOhu
19sCNjoRMjM5XhtsZ6CjqsSA0O9ECA/0z63HLRgZeGjpF95/mqaikTIDJe7U
HpgaJUKj66U/ejsYKCXsg+QPNhJI1zzKlVBhIPtv5HGbzSSoYj/jFYebuP3a
O5oACVy2PO+cx53+db9trRQJIoPW3zeqMlDmVuzuKy0SNK50jx9TZ6CWiElO
XkSCroSJtBLcaz2SEZ4GJDC1vSDDrcFATmnBfvKWJMhb+1v6BjeRf59DkhcJ
7CxU7ZkUfP7nPL7+vUiCnModLPq7GCigMeWImT8JovJvJMbj7ohc0N0URYLB
WWKs6G4GSl4slQ94hI/nUfG40B4Gqj02kP4thwRijyf2muGeey0kqvGcBEr3
H8RE47Y+78sxVkECtcGrKn9xR37JDj/0iQQJ9fU35TUZ6LUSfelJDQmaH7+f
s8It2K864UQnQRpryt+XuPXghNvb7yRIoobHdeK+mHH7t0g3CeLZePewajEQ
zXaC3jJKgnmWsXZT3IQysonyXxL0m8vRfHCrCh6piVkgQfuBhqF7uG83FZQD
GxnIN/iDW3B/2talmsFFBnurkNUR3BPRnM8W+clgUjSft2EvA5EHtOSOiZGB
73FHIAn3kQPuaSWSZDCTCwtSxx386IEw3xYyxEgaPjfA/Xy59pbXdjJcDg7j
tsPdZTfPXq9GBlC8nu2Om6tcIWyLJhnaOdO8r+LeJ2SzGLafDLzi4j6RuD18
In1/6ZNh5qj+yzu4U5pfj+01xuPrTm97iLt+e79rsgUZUh997M/CvRAj2D1z
jAwvhRJ+5+He+ueArflxMuiHS0s/x31M7yLt+WkyWJ7KzinEHZWZZcThSYbC
Yxa+L3GXrrRWufqQgUPx1I3/ygfs17U/XyHDZD3nVAFuoQqVMslrZGg6dfXx
f+3rCTurBEaQodu8I++//n0v3nraHkcG8S22aym4s1s+yFDukoG7mPT8v/HT
lMcf3kkmQxebSdF/8yPEkYTG08lA8N/E449bbdD45uEnZNj+1KfWA/cJ/cCN
uc/IIBb85Jc97ttZz0JYislwSO2d9WHcn1Y7Fo6X4+OxaNq5G/ekA8fFdx/I
IFo16SmDW/KN5qhoNRnuVlN4uf57P77JP1tbySBo6XKnA3+/Z+c3P/j0DR+f
+o+jGG7LwPCjhT/IUPajozwH97br3rU3hsjwsWz8vBduYfa+sIAJMsRlHaQe
+W993bDVdv9HhgHGk5oduNvv6RUbrJOh/MpgzTC+PqtE3nju2igJoydW6mtw
Fz7cqSC/WRI4o0KCM3FHZounEsQkIYAmxrTArf5qMuK9iiSU9Lufy8H3B3m3
q27BLkn4afxG/ApujredzJR9klBVPBBqiLu7subcFUNJOO40GtOP78ebtFRb
dWdJ+NXTnc+L+6o1v6CMqyRQbtkdb8f376mOqCZeT0nQ5S7sTMe9t8fnwLif
JFwzqVHdintwylD56S1JeFTkFLgdzwf0Sx/+JN2XBJFZj+RhPF98WFDPinwo
CckBvVG5uO+vk0VO5UpCnnLFAAk38P1bI3+UBJs4rYYlNQZKU8lkJIxLQsx3
2VPX8fwVXSJ8K3xGEojftziq4Pbdc+OQD1MS5Ceu7O/cyUCHdf0+mLJJQXWp
cbUy7nlTkzwOshRU6u9gVuP50+LcQkCIiRSo7WpVqMLzL99H05KJo1JAVrn6
zhp3C3fOqJOdFMh+d5AexPO16QsLR+0zUhANgic34jYee6bDDJECL7uw4d14
vj/o4bR+sUQKbiQKepzEzwvNM58jz0hIw6Y6Rbc/4nj/pWIf26SlwdPr2oA1
7nK283P6W6VhpNLXpRo/j3blEN3kKNJwXSHRKQM/r9T6Lx36fUQaDn19H2yA
n2/bXbZy2YdJg6pwfsxZPgaSOh5/58iQNGCHQm4vszHQw6+KnGYT0kA0dVu2
wy1sXHPd/J801BTnF5RtYKDNmqt+luvSEOu+8NWbFV+/sZoqLzbLQFZohhdj
nY7cTz0TLpGXgVufXwQGLdERiN7q/WglA2nHN4DJFH5fuWYd9O21DOTnasXz
facjorTQVdEKGZB/b2tAwe8fByrpvrbvZICRJ+187Bsd3WU19+yslIEvVbpF
qV/x+1iMkf2vZhmIt7wzTMLvL553dTX/DMnAg7rCQJYGOup7rPRvliQLgWJf
CCfe0RGjbsVTOFIWFD0vxN9Jo6MI6ejSWAs5CDnboq/jgN8Hzdq2GvDJw5If
4ZEEft+0Y2rbCHTLQ+Xn6fvRrTR0LcD9hULmFjCNUFRSi6OhSxxXjl9wUoBK
Bz7VUH0a+iOQ0Vi/bSt0pUblhk21oq8zsSc9R7bCyo0Uj/ZTrUjX7HYJ6a0i
dF//OsD80oICKy47s0YpwfgviVXhfS1InSlNUdffBmnX925wLW1GZ14PVF8Q
2A5aZl3DR7c2IxHD89fm6dshcsONrOycJpQ82HG35LYyBOZLOzorNaFEluMn
Qxx3wErEBZe2nC+IZzbXLoG4E8L+mqnp7PyCNrhw8JSP7IQVUscia1Ejupyr
Oir7XAXc4zgpdjqNqGJBU7baXRXK42x39Lc0IO2+HVz7SGoQavf8k5djA7Lb
JZOyJ0gNHqfMDT6dqUel+jJs2v1qUJm+98XRyHrE7OSXdDBSBzbnK+3ypHq0
9OO0cUa+Ony3Wvvx+T3+PZlWbTPMpwEWO5Wf7rWtQ1q1UX62Phrw9GZmFGGl
Fkn7a+n1tmgA2dglez6nFh0cWhj33U2B+l3tcdJGtUixSuKFUhIFtJy/2tTN
UdENG3POtmQKZH3h0rabpaLx4Ui30BQKEG9xHRmZoaJivmmZ9jQKpCoY/d08
TUX7jtcmRTymwKVwnsNWo1RkxvQN7S6igOzjzbKj3VR0WaXJMrGRArweVCut
eipq/8xSjJooMILF5LbUUtFeG02esWYKdPgclDtDpaK1oMd1B+gUYDW7n55Q
RUWxDf46U98p0C3adn/qAxWluSpsNf5DgZRtpjGvXuHxCw4Rc4MU2GRZEWVc
TEUn4+/2ZA1TYOh72cv+l1S0pWQ5dWGMAr2Jx8JEX1DRy3U6X+4MBU5v85MN
yaMi/vubzlnMUoDzNu2SeC4VXdq6v3F5jgJbE29NlzyhIi3T/EjLRXz+u4Q8
hrOoKLXnV+/qEl5fsdU1IpOKVi8JoWcrFCBc+HpD6hHe/yajdOs1Cpx7K/Hj
bToVVaWGLK6v4+MvS7OxSaOi/wEPsGj3
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwd13k81F0XAHAkyc4shOxbktSUhJyTrV2ylJAoJFQeqRRJCJUQbZZKpVKP
olIkNUQLI0bZ/UgSskQKY3/v884/8/l+7nbucu6dUd1zyM5LgI+PL5Cfj++/
b5GVy3dXVIwA3/8/whitVZ5/aWwEOnWy6w+qCqGK6nm+I9KjcO3T49vPledi
ocKWDY6LR6Go632isa4g/pKqaWbsHoWMLJ6Mk4cAxoomq48Gj0LsMvq8l3H8
qCbk6F+fNAoooq3aXcKHOyYbp6+8J/VdzM+uS5iB4ZFU62Pto5D13LPhjP40
xA25JuyYGIVGIYeYG62TUPyjXUVOfwxiHQqEjH3Gwbn99n7eujEYsr8svN6c
B3+bPZ82eozBta8PtKwWjYEOt8ci5fIYuKvvvHpJYQTeVjyMO54zBnIRYWol
mn/B9Z1/3c7yMbBVOiWSaPwHEguHvOWnx4D7wGSBcsRv0H3+NGeCyYOA4Yp1
I8+GoCwniNdswIMhweOiy1sHgZfJO5vmyYPc8KSXB8b7Ielm4eeQMFJfJTj/
540+0EsNVXC9xgOuk72mpH0vuCfwPVKsJPVNipM4nd1QflyYe501DrkwWDR2
/Tt4BlXIhW0ZB6k83w6/rA6YORjn4bZvHHye7t/Nev0NlntK/VFKGwduZewf
YcF2qHT7bDKbNw586e8WXvJtA++dl6K+Vo1DxoaI8Zg2ClJt5JgZAhMQ8HqB
1shYE6zY0OwWrjgBKrIeygrpjVBlkX7f3XACuOczWKJbG0BgtcpqVV9S/4VS
+Z+2WkhndZzmjyJWX8KtKfwChvqZFd+uk/Y/q+0s73wGX3Ud19s1EyClsmjz
n6tcEFTqzYzomwD8yamKtq6GG3LZA3vmTkL7AYHT1wM/wWdxg1PqqycBQ7Y9
755XAf7Cwx/m2E+S/uy4Fw59BKE5eVKd/pPAF13xNv7nezDhrbqdmUHa35Oe
1yZdBvXD471RhaT95G4u9eYtBAy8YnnVEu/4lHclpAQyO+CdpvAUFI9asyos
3oBZK7+EkNoU4HVJt0J6ETQ2lG7vMiHlar0zj/gKQezTup57h6YgfPiv5D3N
F3Blj5ohN2YK+M7Or7c7kQfKvKnI8ZukfZmf6pbvT2G5+lPlzVxSXprqVd6W
A0UFcQeO9BDvdFzspvYIrGz2vbrBNw3hQdv2rz37EJyOK+74bUA8HjmgU3QX
OiTGMuU3TAOfbpDQ9zN3wC+zZtjCg/hWyt7tB2/B39XZeOA48btKlV89NyCs
Ojr+ykVigYM/ovTTQNjLg2I/IC5iUif/vQoXJ0x0f5ZM/xcPY2zXJcjU/P3O
ZJhYXl3TtyAO9F9xaF4iM8DnOqErviEG8m3vecSr/edp+2+GEYBd4Tn5xsQB
L54fnz4BFSEu0+12xIlvqtRMAsFB2nCTiB+xkYhG9lpPaL0nlcKKJA5Pe//H
2gq8Tfu6XNOI3VM1Vcpt2UM171ZEPyMO/nyvs8+TfWJfRkQOh1jlQvU67QD2
nOkT3MbvxEGKCpabjrDjkhyVBKb+G/+f9IKu42ymjoH/Yvos8OndEbaZOcnO
eC1S6KBH/JHdb84JZ+va/5gXZkksZ9ncujOCndfDdrzvSvy3yoP2KJK9Jiz1
DjeI+ODsqYH3Uez3tCO/x+OI5RcYeT04w7Z9sBXU7xIPF+rt3R7NbjbTvbD5
NbHK9eXF1dFsz1rBliN1xLevtVrJxrB/7f+qc3OAOMNIOEc/hl0062rSKcCH
fK7S27NIefjGjR08CeJR5hPul2i21eVVZ8UViK113770jGaLtGsYqGkTB0l5
9XDOsKt0ZRoMWcTFQnJ1ImfYyUdmT24CYp7qvn61KLZTcb+G+ybi3nv2CYxI
9kLRZk7QDuKk6Hxa52l2h+OHwLN7iSO075YlhLPvZeQtuHGIONE65h0rjO3X
d6v4aQixsMnWDfNC2AaGCfs+xBAb5W47mH6M/Tc8VIJKJs7asj9k5DA7jLnD
dW42sdyvtIW8fWwLD8s58gXEaBatk+/GFs5e9lC/jFjl34p3bhvYF9eK8XZQ
xBk2b7we7YTtceM3/Hv+K6c9KB/3BvmGLqvTf//rX9PiSWEAZPqXJD8U40c+
09RMyAuB/KtHl06bEs9w3hm9PAtOf/j16tYT68y/HF0ZBxM2F3QeORCfKNIz
GEwAM6FM1V3+xOc4vqIGyfA+qIb2Oo14jso4NZgCtdv0eKET/Bg+589LDaNM
GBbtKJ7KF8DwjkzP6zNPQD98i93UckF0l1j96JVBCQQfTt1YB4JosOR6ctDR
Eijx7jZ/vFkQVSY5fdOvSsBhy2mWu7cghh8K2hxi/RZC5J/Ty1IEyX6HlY84
lcLHPMWG83xzcajpsXJJ4DvY87PPRaFqLoaLN2l0B5ZDNmXk8Ld5LtrWz/31
T245jFSf2fypey7mdsUk5AyUQ+wL5TWn+IUw47wjn/m+CsiJtFf6vkII+XSl
97/azoGpha/aH6aRdzZE7CpX6xNcsTvnZbx/HuJVk8RgKy44Je9tX3VkHiZe
VDwXv4sLC2pNXVaenoe8uHeTp49wId1x0NYgZR6uH3gUwX+XC7ecHEy1yufh
UM/nIU+BGsh2U6LJLBJGvgADVtWLGnjr+7T4Z48wuvd9yq0W+gJR/5436f4r
jFzxnKnX8l/Aqt/zRSfffByqNHwbp/8FPh6Qzf4qNx9t1YRXVjp+gU8BoVfr
1s/H2JfVqvW3v0DjUeuDJVnzMe5p09iyVbUwENGskOIjgqE7Sy4MbqiD7S5H
kq4eEcH+p62bol3qoJglNf9KhAim54Q0TvnXQVKn1WhSuggaGNrOP5dQB4bW
T7hxXBEs0G4MXfSlDsLnx54JNxJFJ9EBrdsO9fDzm9pUmJUoKro/+LHBsx7s
Cl8HnrQTxXbbfUq1h+tBw+/P7hP+opg+4XgvMakeyivdjIMyRDHrtevdx1X1
IJO4cnCfsBj6MH5n317bACE+XC9vhhhmCdbGnyHvYSf6UZ5qYqizw+LUll0N
8OJ3RrmHqRhm7/TQuxDcAC72YpkuAWIoZZlB4z5qgEzmd6etjWI41Hz0aDSt
EVZdT3xrmCWOlxyPyhdXNkJYdHk8L08cxQZ83HY1NELZIQGXwhJxrPWiVvz4
1gi25kF/1rSI45CL+cLno43g071Dw0pCAm3nFh/cqdwEqcuUo+2DJNDSSVaF
698E7fJOdozTpFz3arbm0SbQEryo1HBBAkM7j3/cd6oJntUL5Dvfl0An1Q7t
pxeboDKkq9ujWQJV1gRW7XneBDPvHm0IQEnk+zQZsmW8CSxzuhjLt0hi6MDP
zuP8zXDumnLHn52SyFNyyb00vxlk/S6eOHZYEhuVR1ovL2gGA6kj/4bdk8RM
vfDL5UbNsGzJjWhrISlMn2XMigc1w95jXj0O/lKYNfBemN3WDG9lPkquD5TC
3N/7ZsI7m0Hlse4qk2ApdDi/0dOwtxnaOgfPqEZJYXBAFidkpBmc7U6o/0qT
whViLyQOi7aA3ZIEtxiOFBaMdZupr2yBJx9/nzlRI4WNG1Pfaxi3gJSnw6MD
DVKoYzrYKg8tUJW6YMr+O+nfuH62c30LbBTOTFGZlELXjJM/h11awPx7Qe1L
XWkcMmJw5oS3wK0whalsA2ls15NT3B7VQt6NMPUMQ2nkDcydcyO2Bd7YWgRG
m0tjovIIV+JiCxi/+SRp7yyNllbeikdvtcDylI6N/WelMXdb+S2f4ha4uMIq
8GuCNAZf3hegUNYCQ9X3Uz5flkY0kS4r+9ACj4UO9BTckkbbhfasyaoW0A0a
O3PmpTReUkgo5FEtoLpVrETppzT2S0oHmI+1gMOLrd5Jg9KoWPHE+v5EC0Qv
TBYVGpVGA2SO88+0QH/fgu0DAjJ48LAMK0WQgoJY7b5XijJovWpPqa00BTZv
zRk7bWUweI6N6bAOBacXRRdWbpdB8yBju6LFFOQllu/GXTLoe5sDJ/UpkN9t
+1DbVwanXnq3fmdR8GNyF4xGyuBHC+E3VmYUhK48vj85Xwa5z6bv+GyjICe9
SGLeGxkMNTo2fc+ego45fHknymRQ0VhZptWRgvWfo2c8amQwvLD0toEzBbRD
l5IN+mQwb0ip7ugeCqzrG4wyf8ug+959oUGeFASvUWiT5ZF4AnG9rzcFbaK3
dWYFaai4vjTczJeCh1k5rz8p0TBUck/9uX8oaJX8s2etJg11suQENx2mQOqY
ofDzxTTkfTlbOOcIBUetXtulG9Ewc3D5sFswBWs7Krp97Who9/449TqMgkaF
LmnhaBp6WpZS2uco+PDgEE88joYVg2+U3c9T8GLVeBstiYYfTVZHJMVRkGwv
lq18g4ajJ/aX/4gn63t+ufWqFzR8yhR2WpdMwZoFRXprimio13Q/ftslCvTu
W9Es3tLw3qU+3e2XKZhf6tRuU0XiKQl+YXOVgrKJsBPeXTSc8EyeO5NKwbNY
YQ//fhoGe111pNIouM1MWhc4TMMyi0U2z9MpOLX8Lj1shoYbz4Xt3HGDAmNf
zuPLTDpGUdMvXW9RsIjncDlNkY6mjPql0rcpkItuC7mlRsf18jLxxcQjt36v
f6RPx4iaN2pSmRTkNsl+L7OmY2zkncjD9yi4ue9WecVmOm40vEvju09B/Ihu
LteOjpaOwx9jiP2kzU5SbnT0LBUtic2iwPnmh70dnnQMaDsnI/CA7PeSbRt7
fOkop/Lq3lFirQ2esn+P0tHWTzFv20MKGA0D0+OhdAxXeWBSQCzodaxzNoL0
d+SGmvy/FHwLP/dENIGOOCm4mEvMlaBfk75Mx6Ivoc4a2RS8Sb8eJptGx/pX
vnODiNMLcjep36ejWozFz7mPKDhvbbx80SM6Zip2LF1PfKK2VG7pMzqmW7uJ
RxP77Nkyu+IlmW9gcCybeMdQ/Q9jNh1DZ7vu/yW2DnOvxHd0fLNle6DmYwpW
iPU+teaQ+VX5/NpGrJ56OGVzDR11aflqJ4hldKZP2TXQcXNrNeMGMd+LaG+n
Vjq6LTGqek08aCG1xe07mb+dn10TcVtNCsvzJx2zeM1ZQ8SVu9XlfQfpGL16
sGFODgWvBrL5AkbomPRAqEuG+GGIYfeRSToO7TvatJD42vziTyH8DPyrd65A
gzjm6oa80/MYWOsUdVabuHPJbav94gzsbcrco0VsXjZRb0tjoDD0e6gS33S2
9zFawEAnZ60LcsRTQ/+OKyszMP0is1eU2DlG8Pw8TQYO9R4LmyTx5S/cpTio
y8DiBdNbu4npec8f1Rsw0O68rWc1ceBGCXhjyMDcw/SSZ8TV7d7cu6YM7G/q
8LtErHeM7XHBnIGdmVt8/yE+Jy73J2g9A2Pvt5VsJO6+ExDlasNA00eywSrE
lsblDEsHBmpEByYNk/24zVW9v9iZjEfzYJYQu05/Lp/wIv35pQTYE79MXuzS
4cfAwsKb22SJmbpR/eX/MDCcevqkgZyPmu0rJVNOMtA7RV3Qhlh/4EJGeCQD
8xby8QsSx0V2LfM5y8ACt+6LL8h5s8696rDqMgPpP8KjpInvWA/9UEpjoMSv
I0MvyXnla11/TOgWWa9tk4K7iV/Nn0ipyybx3eozuUnOu8Fe16+HyxgYH2Jy
gEfy5cJ4XoBLBQMzlIsfRBP3JogLWHAZ+Lg44oU08d2iNxoyFAP1mTIOSiT/
5Jmqvrl/GOhwTkhThuTnsezjk1fHGRjVsHN/zB0Kas0/x52aJeOXNt4ZJ/mc
cCgyx0aUiVRjtXgdyX/B8h9/+9WYmG57cKXPTQo8dptF1+ow0bJH7t935L54
M3JFtkifiQaXl5moEB9XW2983piJukP2RZXkfvkV8vDUIjsmNpafL5pD7qNG
/UMi3qeZmHeAP3CA3G/zL2YtqIphYtf5HW1ixMZ/vukYxjNR3rpv2aIkko/5
DuuE0pgY0eN5xymRjI/GUffymOg+T9YsmdyfvdvmznR1M1Fufl52SBQFCnlm
4lt/MbG5paDLL5KCzcxgxfy/TAx1bt++M4K8L829xjH8sjhjvKl/cTgFQXu5
x7QVZNHTuc8/N4SC6aC03/tsZPFx5tKXxoFkfxtq+bgOsmge2X6Mj7wP7qsl
pIxcZFFI1jmv9BAFb6fD9YV9ZFHvfWa++QEKoqO9/bJOk/qHFHep+5D349qy
Hz15suhw+Hdh4C4K1F59aNyvIIdCr/3XeFlTIGm5bpGnqhwO2a71n7Ik+VP5
/ribthzmWQ43XLSgoL7tnbw9Sw4rs+3/yUdy3gXKXE03yeHEDcXJAWMKhjcU
t0uEyOEeYaV6kaUUlDYW9DxrlkNv/lVrmEwKPEcf8KZTFuD1bypVU19b4KYW
O/GJkQIm9Q79/kp+v4QGXqGqqxUx/tyaiYnKZrA9MHY8bJMS9tbefD13bTMo
7TqfsLlbGRdbhdt8vNsEwycdQuqeqWCQYp6GFr0JPn+Y8qVHqeLsDj3aqWON
EKkcnRdrq4YbtUr9DdsbIMemVstKUh31zKajNbY3gBPPxFG6TR11nGSddpXV
w8njPtmaNzXwSb9ssiXWw2Hho7sOuWqi2dfe48/e1sEP6esVHxdpoXTwAu1x
szr4Mhzr7vtTC9ef4uVbfawFM5v4pwovtfFbe+AJ/c21cCI/yE3gjA6Kth8+
317/BZbxlFnLLBahkssBAa8DX8DrWWfpIWldfHrpdIH27GdgWB88OVqji5p5
nq0C6Z/hSldj4tP4xVj0wE9kldlnuMS/yz3MRQ/hgMU8WaoGxP/edUqSX4Ie
E74Pv0TWwBwPYfEXP5egb9xsaLJ2DQTdXdqr+q8+Kva+KIiq5UL+2CrVUp+l
GHPd0Kf5DBdMOvREjBUM8HOxRWoIi/wfW6FyzTDEAHVOdcud+VwNeRYqgibf
DfANnOnXW1UNvCaphc4blmEs76HfzJ0qmGjZu/F61jIy/82mZspVYJxW6tgj
uRw19v7+IXzpExi9P3NkR8BydG6ouL+N+QmUg43Mv1Utxxnz9tZvNyrBsnus
P3AlC4OXDte6q1aC9tsF2TqXWUhPLtP9lcOBc45b59deYeEXdVOvyUcc6O+J
8j51jYUDv5W/C2dzIFdySKU+jYXH+nlZGlkcMN71/nLkbRaanzvrsjuDAza8
wFNtOSyM9+PZfkvkQJB+pd2lChbuTDDVkA3kQH0Jfy5UsvAjLfmZXgAHVjuu
Eu/7xMIT54qjzA9yYCbk9oe1NSzU8DrYf9CXA7HlwaaDDSx8KPqyumIPB9I8
NbU2/iDxWyxpibcn9cecI0e6WGi6XzkiaxsH3M8ntmf0sLBGTc337VYOaDyd
TB3rY6Gyos706CYOPJ6tkbw7zEKDrW1L9lpyQCp53gHbvyxM0p5uCTPnwGGt
NRWTIyxs/qeiIhU5YLQlK8punIXMcPD9YsqBVLKM0xMsHKeq5IeMOTB9mAYP
plh4rbVFVHw1GX/ehnSHGTJfR+c1uqs48DY1bHx2loXe8mY561Zy4H8WENTa

     "]]}, 
   {RGBColor[0, 1, 1], LineBox[CompressedData["
1:eJwd1nk8Vd33OPDr3msek8qUmXok00XG1pI0fUoeKbPIEBEKhWQOlSQkaVKp
VCqPREmFZEq5ZEoqlXsQRVKu+bt/v/PPeb1fZ5999rDWOlt5T7CdD51GoyEP
jfb/7i8v+aTsK5oE2v+/BLCm6U5a5INJkJCZ+v11mB9dXwV2ODVOQuGXqDvW
m/gxo2LMV3ZuEgpuJ0gkLOZDzUclD6aXcmH9bMY+djwv1j4I4/bocgF7BRsz
/zCRW8A9fsGbC2k3uuMSRxiYeaWi7UgMF0aa5uIsgxmolRct55rLBYElxaGZ
f+nocZp2T76ZC+1eRcGaknRsjBRgX2JNwdja81aeETT0DmuSjtk2BaURB73a
ZGk4H5Tm6b53CqRUfJsl4xdA31vit8KFKahiWlSe1JyHZvc2s4XSKSiWipiU
TZ0DX6fspM9vp6AvZ8vGtcOzkGcjvTSfPg3r5fck7K2eAYPNPe5x8tPQXxR2
i89gBt5aXbzlYTQNcdlBUoF3p4FuomSivG8aAtUDdNpvTcE+1ZWu11qnIfew
UUZa2yQwFb4XJAxPg8EHz75q30m4LF30Yw/vDGQ8uvo9bv4vtInqxqqazIDE
i1XFcsZ/IVBgvJ6xYwbUXHYdqHj/B/gYpRL9gTMg3dHU7RfzB8y4a64V5M/A
polrT1PYE9A5PvU9qWIG/Gb7ImuPTkDIj6csn/YZcPzUueX26gko+Aqv1AVm
IVo6IEbs7G8QebNx8GbwLDgWRASPxo5Dzh4VI3bKLOjutbprsn4cFLmziVNX
ZiEp5IPERqFx0FctUdzKnoVcmYGO0Au/wDFS3uGX7hxUvkjuv8Meg69ikwWy
m+cgbLTaK//qGAQUtI5bec7BBCO48E/oGMS0JKfnnJmDEK+a8LPyY1Cg/uuV
2fgcSKRV162e+gnaT18v9hGah1SzvfZD939Cue1Nz3SVeXCU2mTyxvcnNB1x
meuzmwfjDLz1pvcHjLW+Mkh+OA8rbwxcF+obgai9+QkPXs+D9On6LPcbI8CY
i2J3f5uHwoxnd30DR2DpSt3AVVILwO1xz/JcGAaLmLzr7LAFYH9tlHu6Zhjq
Fof/mkpbAGmtmxa+gsNge3s7qN5YAAlhmdCA3u/g3c78EN6xAH3n1ti7JX+H
n/6fV175sQAY+NVhjdt3qFxwNeun01DJUkV2g+F3sD675rioHA0dlenHPw8O
gVCfmq7KChrSUhIeONUOwVtNyS4jFg03fRZLGsgfAseqETWP/9Gw2KS/QdFt
CAKGr1aVHKFh4e7vYyZfBkHX6PTe+hQaevTbCafUDsJEXLRYbxYN/fyGA4sL
ByFmqYMrbxHpb/b4dGzoIFh5rmfIPiYOOJku6zwIAkV6d7Rryfgmxo2iLAfh
jKUI16GXht3zz51CJQdhV9rU5cBB4vyZGPrsAMh2UdbxE+T9jGHhddQAFARW
Z90R4cGVcN3yReUAlJ87pDNnzoMC60eKWAcGwPE3j1bHJh70eNn6Ut5jAKZt
Tq28Z8+Dherd1KntA7CWr0DZLZAHU5UPjkzpDECfp46CYQQPVhVp9/xQGoCE
ZxWyoknEpqODLpIDUBfWuvjZBR58vC0l9vxfCvzYrhJnb/FgnJ1i454hCoS0
BkX2P+TBhjPTj873UrDt2zzv8tc8mCt1sG99LQXt/2pxo6d5EOuXR1nlUnDo
XvmEPR8dQ1avstFKp0Ba0OqXFqkj3ovLwvcnUeBa5fS99x86ur794TZ6gIJ5
OQ5Vakjqjtej7FX+FOQfDvmWZklHmqa9ULkHBd+0U3rNnei4vr4OHtpSkHRC
8r2UDx0HXeWGFDdToEFd6hgJoSO6JV9/Z0nBvkulby+m0nFTo8QDAQMKxoW/
Vs2W0zEjsynpkBwF2Xv3P2t/ScfUPTufDy6hwOgl90lRCx37d+UzsiUoiIoS
f+g6QEfjzP7Y03wUyHfmPTD4TcfScd7yXh4KnutpFIks0LHbvHjKdY4DPEPm
NyqXMrDvpqjQrwkOXFvfcDVbhYGVDe4q9F8cWJ+/43KgNgM3+c724A8OpDrs
Oye/gYHt/w4prqM4oPnwT9bEvwx01HxpQv/GgWax+IxmN2KbLLHhzxyQqDt3
PDqcgdJ6uxz1ezhQoqyabB/PQKXHgufSuzhgf/R+gtYpBkqEdKiKd3Dgb7dJ
LPM8A/1ecCZK2jiQa/DqSG8BAwVqafyRbA6YZthGlBYzUJfu4ubxlgO9wx/C
0ipJ/xv38/g1c0Dx+vh+83YG9k/MHWpv4EDV/NF9Un0MjAh3jFxTz4E9zoJ7
R4bJfBo7NctfcYBZlu1VO8lAY57J/+xqOXBzkZLHRQYT44RzTAVfcmDT/ruu
YeJMNBd68+d9NQe+Nxg5bZVjIu1Ci0xtFQfS1Gp2qq1g4gT/6y91LzigHbfN
blaf/Ldc6k59ec6BiNC8LR3AxCTrmt904mrfgXX3tzLRdcDmv7XPOCDkbGCW
4sREdnXNt6xKsh7b4lkevkzM+BR7n4f4Mr5dZRLKxED9JtOUpxwYZMmpScYx
sU/vSrkqsf4KP/nhNCbKn0536qzgwBHZR1K155n4eFm282XiWlG66KWbTMy/
PT4VRSzGs5330EMmShlJRAcQO05cmLOpIu2b7DSDia8NDP5Z8YaJjrnzdseI
R3oMf9J6mFg0KrX5HrHh2wTqPUXmo2XgTRHHVLd8KvnNRKXUCJouGU9DqXzX
SRover92izlOLFno3+ItyosZPVfXjRO7XCirt5DlRfPFK8v8yfwK0hlVS1fw
Yvuhj9ajxD/jbR+PsnhxLO/SngSyPsbhl4obkNhJOl6FrF+C3/fCq9t48bHF
Y5kW4iXbk87v2MuL3HCVe/8j++G+rvWMVhgvVrWcuCNL9qvQUOEELzlX0MbU
V0wQm8s/jirP48XSu7X1tWR/9wwNu8i9Jd+PVolkk/go6jW2n+jhRRF9i1UD
JH7+tBzb+maAF8NSk+aZTST+yxQtYnn4UMBqPt2exNuDxB0K3wz4sKoq+YxJ
Kwdmlz/tu3OBDx+7PjnZ/oEDOXYnfEz9+TGf7rM1YZysd5ZX35pwfmSXzpZ2
/uaATLu5i2E8P/bOrw/Q/MOBiztHbXXP86Nfls6GlkkOXHW0N9do5Edd/Hlc
mORrkbvCYsl/BLDqdmfCGn4Kgq5MnhI3FMDcxEixMAEKdPrYAqKWAsiNW+Vw
X5CCEs/EeX4nASyoPP9OToSCcu/BoblUATSWNkvqJvWiZl9J1dCgABYav6Wa
ZEh9unvSbGBCAOU12qM+yFJgPeJd1k8TxOwx7feDpP407F9W9FlaEGlPbjZM
LafgTUj0uY5Nglj73mLHb2UK0v/bKfnOXhC736YvG1KhwHZc+xTbQxDtsNnh
gyoFbaFfEl5HCGLD7uerHqlT0H1oQ1B1oSDmmD/71+IfCs6XKw49LxVErVkT
1aWaFDhzuV6VVYIYF2hvPEz8MfKuU3m3IF7mGV56QouCr9ES1vcEhDDPMmZZ
ng4FBc+GXtyREsKIiqpwe10KfOZrTAuVhHBMMPWXkB4Fg7HhuteNhTBo+wZW
oD4FPxJ65M77CWGCq0PKAqm3u1zCM8+FCyGVlbPuliEFVSwJwZwEIbRxjbXb
YkRBZr/138yLQpjhneebsIaCmcq+wDO3hZA2mu27zJgC77NHvp0uI/0p1JXc
Ijba8B87jU2e89E0K0wouKKwdePJj0IokvDQztyUAoFJ6tnx70JoOzda84T4
wy35u8lMYWz3f3T4phkF6+PKlY8tEsaDD3KfLjGn4L6jXW6igjB6VJRZxxHH
CaYeizMWRrZJ6OqNFhQMfVGZjbEWxl0eP05eJ7areHbwqJ0wchc56M8QP810
HDqyWxgb/p5UtllLgVrA791RgcI47nXG+SLxKav0zohIYby84uwnDvFfuX+2
HU4WxlrXkfuaQEFjs7tpWL4wqmnfMr1JrH9jqvjgPWGM2xE81Ut88Wj2igMV
wpjR/q+wOFLAu0vncnC9MK695XDQnDhIu0kqqF0YR7Lv6PoQd/H5nAz8Ioz9
5tmbjhPj5wWegJ/CKLX8aGUh8e3yvAj/GWFMzR9Of0ksmWE4uldABCtZiTXv
iY/4sX18lxC7M5yHifsxoNdbRQRz+jc4com3yfDt8NIRQb/BdVU08n8t+5Xf
6GkugknL+M4yiRWbzNBjswj2dZe/ZxCnXussc98lgoHx587Mk/fHow6sdvMS
wYRTMy8miF12iBS4hJD2n2z9KOLaVbdknY+S/hZk0t8RazPXnXE8IYJS/j8N
KonP9fbyO5wTwYvsSI98YtqjwzE7C0Sw+dARqThi/1OSf3b8J4JB0a/sXYjb
fO4F2D0XwVlTc3V9YrO1m77avhZBm6sdx5nEBUu/OW7vFsEt2bnJbWS9RUeP
tmzjkOc7LipeJD5UL71h67gI5vfxO3kS9115WLllQQTX7l+0RoV4c4QNa7OI
KFY0zD37RPa3xHbo9kYZUVRqVxzPIZb/J0lpg4YolnK7urYQ/3z/RNQKRXH+
SXPjDRI/DiX2SZbbRLF7leDnrcRVJ0anwVkUFXx6ykdJPGaaqQ+ah4lic355
3UriNZcyaowKRbGqYqbXj8R3THJjOrdUFLn6CZ1jJB9qg+kuFdWi6KG67XMY
se26sN8WH0Txmr+F3gGSP34DDmrWYmIYdqPJyYzk3312xhifnBjOqiTZFpD8
nHjSWNmwQgxD7phECxLHp5nt3GophnUjXccaWBTk6Skm7wgTw5WS0UMyJP/7
ZB3tlsSLIX06XdyH1AcN5hmFrlNiWNwUfaaI1I+HnfRy51tiOL81s1JXm4Lm
I9SAZ48YtjMem4itIue9V/c2h6A42iyTUldRI/n5gFqiv00cY4w+OxmS+nYi
V/HrbydxdA96bmJN6t+ygDNRh0PFcTrxjJiLEgW6EuF3Y24SO284t1ueAr3V
l5M38ElgCP/NQ+zFFHgd9hm0D5RAbuLNzFAaqc+SDeKbDkqg7r61OuYLHFC6
r7nGLEIC2+n+gfR5DnzqHz2mnCSBBVZnu1JmOOBsF6X684IEBl2I7zn0lwN2
q0+7p7yWwEz3s22DwxxY9+1x+xPNReg4vrvfkJy3lLeLVCsMLcLeZdJyBtfI
+aNsu2/m6CIc09zU4JLPgeTlWcJ8fxch7a7f7fjL5DwwLLPrB10SGesclzbk
ceBx6orhp/KS6D9O8WAWB2xq1i1xspVEvnfSGz8nciDaMNI/q1wStRyv1fz2
4kC3HLVIIHkxyne5FWsocSDl3ObSeP4lqOS+p+rQuX7o1g4W8o1firMvghTN
hPpB5Wl9t7+cNHrmftHVC/oG3n9vc+fOy+BPZ0FR+PgVrmi8yPjPWA61A+OP
GFh9heiDOb0tLfKY8iWtJL34C9jun4yM+Z8CvjN9fKdA6wsouJ08vXVAEW2U
LVO2XO+D8aP2RzoeKuHVxmW7L6/sg7b62X1SScr4wXooL2jHZ0hUTC5NtVVB
WU75WV3fT/DApl3DWlwV9/BNB+tkfQRHrtnORZ9UMfOnhbzBk144GulXpH5F
DWV2Ccw7Tn6AUIFDbsGu6ljpVVc7YPkBOIsuNTX8o4HlKiEzesk98G481WPf
kAZKPVEzU/r8HtbapJfIPVmBO2nRCR767yGqPMydfmwlqrY655ZldIMeV5Gl
Z/UPjk1YMHJp3eDzsP9l8CJN3EzPidYI6IIlG4KO/m3VxFTfpO+lnE7Ioboz
StJXoXnsxoG1fp2QzePmEeOihXHSLR9fcjpAdOKGY6bsamRG3zcXPNABDE8B
0bKh1dgltPjojcl2CLuh8135rjYmiQ85fDzRDuWTa5Rf+ukg65ClqZVaO5h9
1RIyldNF3w69nZZP3oGjgVKu0RFd7C4JVNdzegelVkpMs2+6uPuA31Lmnzbg
vpdY7rxZD1Mbg+MCc9pg+oPXlkuFeui2c5uNm2UbmF54uXNQXB+jm10kAwdb
wbjuWLhDiD4KLJrx/je3FRQjjNd9eauPY5d0TvlubYX1A5MjBw1ZuHQJv0Tr
LBtW1MgUrTzLwqlvPbFCj9hwYud2wfYcFjKfl21seciGkcEk39hcFnrclbXI
LmFDsfiYUucFFt5xsi9WKGaDqVvd2cRrLDzRmFBueJcNNtyDsZ8esDA27yAG
XmVDmHazXXYTC9t6nKanT7Ghs5qnGJpZ2MFq8XiVxgaTnWtEh9+wUNzu8u/T
J9kwf+RavWUrC9Wfq11WP86G1MYI89EuFprTWnh3JLHhgre6xhYOC4vuJy8r
iyLtJ50T/1AsNK2ygsRINniczOjLH2ThJ6P6TNsINqiVzORNDrPwfuts5XA4
G+4vtIrfGCfjq1BdrnaADRJZ/PttJ1iY3id1bTyYDaEaFk0zf1hYfyvRrjqI
DcbbCpPsplgoRD0y3B3Ihry+j1/mplm4afNeP+0ANsyFLobbsyyU0ThYN+dP
vs+/+aL9PAsLIt5sf+PHhpq8mKmFBRYehhDmpb1s+D86+mSE
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwdlHs01Akbx2eGYdIot7xCJJdUVvSTu56nUttFiGmpkISR6iXSBbnk1lYr
SSrqJY2yu0rJsm1tuRTRujUuU2atW7lEZsYYY8yM1/s+53zPcz7nfJ7z/Pc1
CorwCqGQSKS7C/nfzs5yW+1nKgHS/4eGLVvvPAy0lYBiiuTRpRplpDisdDAK
l0Ce+/eV04uVMdzY3K+oXQK3vJ+aZb6moqLBGOvCVwkU6cdE74+i4n90SieC
qHNQkXlNw2c1FT+oWiUaO8yB38Mum7s3FdFJbFfEKpwDzkfrnqNXFbBLMDuW
+seCL/1U2rVXASMnXhAhHXMwRLv0z+QyBWQNwFtTmhTe9bVZ8IooSG/+fuRB
hBTeSMWbalvImBu0yrYtQwpjute1mIVkNBRLU2YLpBCs0fbQIpqMG4zLDd3a
pHDlsecTsR4Zfc/p+/CtZMApa8M/zpFwYMkMS3enDJoMSrovepPwGKtdsPWw
DCLv9rk7W5IwoTU9M/fagr9ksjvyr3lgmfLfOglk0LftjODlazlYvnivGaIi
h47t6o4+SXKo8nxwOHOVHFjLC08f2iKHpriDsj6vBW4/mZrdJANe+1ub9Gdy
CFzilJs0JoVYZuGFsvdysNe/2ZP2mxQUZLFtnEE56DziTD5NloK2udXxdVrz
YJLA7D+0QgouCXn3207NQ2l/o2jH4Tmo14zhz16ZB7cAbdpzmznw/NkDjIvn
QZwU5aCzaA6COxR7YjrnwbxR8M/lCglsu2H3o6oeCYdi0qUlyySg0mditWo1
CUceuiXxJ2ehZa1Gty1BwnfjmyxlTbPgWz1uEribhEkZl4d3pczCsa/3qsvj
SPgkz8Fxs1QMVrZXmQ0ZJLyVwzpnzBWDMCl+Cfc6CemVjJHil2JI0Pbxo5aS
kDHlsyg+UQzXNtPFPlwS2hzzINHoYqi6eXq9zJmM9NJApxqXGfCdIlt07iCj
2tOHlSlmMyBx/8n8EYOMv5cmpJctnYFNSiwj/+NkDJyqf+UwKIL6U+2af+aT
saS5aPGnTBGEtfmp3XhIxncWMzYlsSJQsRihn3i2cC/I828JFcGeQTl1xXsy
jtNa5Loogo69FuJ4CRlN1rszLoim4fSjKiFDiYIMlqmAOzQNOou28i00KGhQ
xPNLZk+DX/X+Me4aCmY6ue6693QaBi0zuM77KejFER/XPDkNgsUD1dIqCoa5
Jj2+MieEHOaJPzvqKJijbu76cUIItnXi56WtFNyU1+d+oE8IsbFLn/kNU9Bi
X23U9FshkEedi19qK6BacIdu9HUhqNXf/DE+RgHD3EImqmyFUG5knM5IVkDX
wPFzXeuEwDj/+ILFTwrIOxn/TtdICLds3sZxWQroF6RWqk4XguF9wQnnDgV8
kkE5yxqcAsukPV7SDYpo4Wio03RrCs5G5+3qBEXkFrgftrk6BTWhw1seuymi
iNk59SptChh7konAUEUs8uS7boiegjjd37Te3FZER7fge4keU/CuQr/7MomK
ZjzmAWvVKdAoOdoarErF4wFaVj7UKTiYX9ngokvFNw4b1+bIBPAt2fP3SYKK
5XzTsr3fBLDMI/W2N5OKvQG81JY2AQSNfj2o10JFk4MZOdG3BVDKtWcIP1HR
9Uz8BCdbANOtaW7Nw1S8c/k63eOKAC5WGrokkpUw59qU+/FEAZSleBsM2ihh
Qn6wSVCoAKQrXvT9kq+EXs3dZyW2Asj1uhTieFQZ2/R/MDfp54Pv9SN9djEL
vZYVoxHN5cPyDueDG5OVsTDfe7yxmw939k16Wt1WRi2d1M+ZLXy458twNmtU
RmHa8z1RL/lQGmCgqbGGhtU/qYhSbvOhNry8enSEhh/+zJNo+/Jh4sInvdth
KmisNHw/ZYAHPxyMyb4Zo4LrVheUve3lQTWhtij3ggoejQzUX9zDg+yhbaLs
Oyqo5LN9qIDNA9vtT9uutKmghrSxafIND5IWXUxLsl+MYlHVfYMSHmhkbZxk
0ugY/G37v05G8sDublatbYkqHjAN6LJX5sGRMyEjjONqqH9ttDDj2jcw8qDX
GIyqY/XD1fL6HRPA0fuiTkvXRCX6gSiHua+QcXNnRbLyMuRcpbzc3z0GHMsI
ldBkbTRo5KYlNo3CqhcNnKN6Oggf6HXrn49AsOhnsez2clyyjfIssWkYCsxe
Zz2110OtIyrys5wvEB+Vy21t1ccGmWS4QPIZPE/MnEvYbYDWlwtP19t/BgP/
y1fdhg1RceWW4SfRQyA4z4jrfLYSaWmdv65pGIQPDdJwrVQj5C73Vi/71yCk
GKZXXPRchcK9PxxadnoAytw7zLYtNcbdzDiLFSP94Ct22qfea4wJWzZEUn36
4fy5sFLTAhOsPhRfYdvdB9G00/4Rfqa4QtimnBnYB5/V7za9W2OG/s31reHN
/wBbcDEwfNQMewWeryTTvbDJPbNc7/lqbDRMu5St0wuxVacCKGnm6FC7ufjK
rr/BWmxIWG9dg7WZSxTfX+dCyLOhugj1tTgQ8QuadvfAsu3/Pi9qX4vjOqyZ
0PU9kPuFk1WeuQ5fMozfbM/+BDlk/8CEgxZYW3egInLyI6gKi32zdb/DBzJ+
y6aAj6BwmKZaOfoduv5odr6qgQOnitePGf1qiRM2ejMbN3OgasbOqC5sPfa5
u9FLa7vBacBCxVHPCsWjhmrK0A2+Nitv2cZZof6DkFeGjV1QsXWlotOgFfZu
yaw86d4F4o9qKw7stMb32irvP37qBEnPkV13S6xR+9ipBL3oTnDMr9s3snQD
ModfPWUrdYJ9fVqMT+QGDKpUE50r7gDDs/Zb+lsWWDdind/ODnAdnhmP2khg
hMaN3/gjbFhdu7zU/AaBYQneYyuy2XBpn8eijlwCV4a3cguz2DA+khqaeIvA
Jv9imslVNjxZylvZlU+grosFfd0VNjj6199IKSJwqhlrnNLZ4C6OSuwtI9Bu
PozDjGXDKcu/vHKaCBSfuBE0FsSGrhryE/iLwLd/dzBPHWaDwz471a/NBPYH
cFnyQ2yQxxU1bG4nsGqnRr2mPxsuNp51nuwmkBVbcx992JAfbGq26zOBd1+c
rmHtXvBnDqRMfyGw6/0Zlw272BB4OauvcIRAht953usdbDApn8ub+Uqg+42Q
uZ5tbHg83760WEAgc4/vfW1kg9p15ROeQgK9v1vXVbyJDdFmLk1z0wQWaRfB
Rhc22O8pSfWaJZBGd6tkOLIhr+/vfpmEQC0TZt2QPRtk0Zrws5TAUH+RUozd
wn/lnXcYcgLz6ieSqLZsqM1LmJ2fJ/Dlyc3WuTZs+C9eA6sd
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwdT3k41AsbnY1hypLoiuxLcSfbT8j2vpQWN2u2GolESlIiydKoyJUkSjF1
r7b76ZKEuH03faRsLSKGIkmyRDc0zBhm5vN953nOc/445zzve3T2RHuHUUgk
0sVF/k97mjTXDhwRAen/kMGUtvTs/Isi0P4gp2H4hI63Daae202L4P1gI/sI
mY4mf79YHsYQw2Q8f+hapzTWeP4Rkq0rhixl9zWlxdLYmsgSDXiL4eq9G2q7
t0vjZPtzy/RKMagaOH1LrpBCh5TCW29iJSCM6DbdmUfDxuVxU3NZEtjytvT4
7hgaet71AL07ErBwLA0UedFwbyetN65LAiafhzJ5SjR0uWz9q5w6CXO+uagd
4VCRMaBvpruahGukDyr3plDxtbFStxVBwllLO7eGPVQMqJvQD/6FhCsSvGco
TCpGjt+oq0gkYTNFUjvdQEEzqwv7ms6SMKW3rZpcQkEeO0m+L4+EvN6VrxJy
KZiywj9QqpSEzrEPGdf2UPCi01KBfx8Jk0o+GkXSKVhz5ZipyJ6MDI6BZ2wI
GQN+kJldW8hog5VpSe5kFLqfX3PPh4zbbjUvfWlHRkfp2zq7DpJx4cCfG+x+
ImNjbPvyWg4ZbYV1JUQ7CTu9mIIkIRm9axvjjniS8Ni9Gp6PNAUFPYX9Xk4k
VJXdMMVUoqCLxmlJmAUJA+t2fO0zoiC/qTnGQIWEn03O9tnvoCDFTd721SMJ
TC8ZrFuooWAGcNSCxsRwaV9Ubefi7qEjBkZP3ojBqkHwqLSNgvKyU5wDf4nh
xAmFysARCtqH5BrcyhADecz+zuMVVCzn3SiPYopBsfHKr0lxVNzI/r3Mjy2C
Ch29dJ9UKh4f2l78JVIEPsllp5jnqdj3s7zknr8Irlo+T+y7vdjfU9Q5bCoC
rVvTUfadVJxUTq/qH1wAE7ab94IFDQM3sfbreS/A8aOFrl1AQ8Gqx1v2wQLU
h484l22joXMg9UI/cwF83FKJ4HAaCh/crAiVWYBEtYfKzwpomJ+VolJePw/N
Vau6z5GksFBYNHPdfh6Uive37ZWTwpy2bseHzHlgcaqbHNSkcGK/X8KPVfPw
T6rnX98JKfyqImIOioSg4nGmYPs+Kaw75UHE1wthz9g4S/21FPbFJ0+I3YVQ
2mfjw3svhWzfnS6OTkKYaUvb9mpECklvhwo4hBAyqrUcTpKl8Q9yhF+ZqhDu
n96u+dlSGn/jSrFXD83BgsbfA39ypHHLREcJgz0H+d6ZYbb76ej5V4IxvUUA
AXmhA9ZxdDzUeLBV+EQAKzvtWetS6fimhnZLXCWAa77fPc0K6HgsfHK11Q0B
3AjwsTdsWfTHE7lBJwRQGqS5XMlIBosa7xofNBXA0wMVdWOjMui++3Xqllt8
OFNyzm6EJ4POFcPrvxbywWVib/UQSRbDKSVD+bl8aI76qfSjqiwG0I7lKp7i
w6vDSVe6tshi/xhvPDWEDz3HNh2qL5bFAvJ9sbMuH76deq9eEMFAapDumbN/
zoIfKy73ShwDQ2k/amtuzkIdoSibf4qBJRapClOFs5A75DKbe42BzxLhcsq5
WbDa9OBN1hsG6s/ksSlRs8CWzUhj2yxBhld1eYH5LCjlrPu+T2Ypjjpvc4ur
mwHr6zlPrYrl0C/K0dFhigcp6S3Zgio5nOzKzrUd58GzaArr3/VyqH8qrcr+
Cw88nWN/OPTKYfKkrZ3HOx5EjPjru8jLY/qMh0dpPQ8KzbXSt8fKo1q0yWvH
PB6In9/behgVMN6+KCFrPQ9C48NGfQ4qoq5HfrfbxR+g47G0XnNsGXZwOJOl
8dPQoz68TCZ9OcZr/6xmGDkFZ69srUqlq2BzcDvrt3OT0GMSzQhPXYGOHa4T
DZnfQffvpp796qqosdTG14T2D+ydvSsQFaxEpul8QF3NBPxu+J+cBzbqKNyR
x66NGoekmPy+trZVKKW2X+PBxq/gGcVPSPlFEy/0ZjiPbhwDzV3nLmwb0cLH
mhs2/7RxFKaTfRK7KrXxEOYJqsJGoKNp4YDyGR1szTHv+iNtGE5rpVdleOoi
68Gbo0qPvsB9905DFwU9DH8xV3RT+gsECOx8l/XrYcV5l47DXkOQnBBRavC7
PsZc4o3VVXyGozLHdkUHGiCr2nHtGu3P8GXZ9dZmI0OkPJbv8MochLfTGcEH
xgzRN/9J0QHpQXB0z65Qf7Qaf9PavHXPyU9woiY2iJK2Bot3KO8wp3wCc4EW
Yb7BCF0vRVNO5g1AWOVQQ/QyY3x8aDclV2cAVDYdSp5tN0bPFw20lQkfIX+4
J6ci+2e0N5YUuT/uh0vkXcEpLCZSooczNeY+gBzvTkCu2lrcenJdSOwvH4Aa
IiNXPbYWy+m2yS1X+iD2julXnRIT9Nvplp/N74UavrVOQ4QpZq3271cO6QW7
QSbDVt0Ms8RyL14+ew8BltpXrRLNMLggyF9+/Xuo2qBNs/tshkHKVX4f//UO
BO8UNXZuNUeFvbdVNmu9A2FvqOv1YnNsY3PK3t3uAVtOg++oggV6U3S97Ax6
wKYxLc7/sAXWsgzP3qzoBq3jNs6fXlvg2/yyFq9N3bBxhD8Rs47AFgU9llIX
F1Y/XVm65jKB3aovfcyjuZDp6yHbmU+g7YrRIzFRXJgYPRN+8iqBlopmnZWR
XChXmNTmcgjM1KZFWEdwwXZX4+XTNwlkdYhbnUK44C6IOdl/n8DvobsPh27n
QqzJS+9LrQRqkttb31lzgVtPLoeXBD48+/6QnhUX1vtay42/IrAyUs0vypIL
4sSbTU7tBLp2Sb6RzbmQ0XLc/ns3gUtmKp1MjLnA2Wtg6PqFwOzm8Mi8VYt5
/s7TM8MExnSX2H1S40LwuZyBotHFfamEu+lKLuhXzBfyxwn8J+D1+pcqXCiT
tCvcmSbQfSDLSFaBC4p59ChPHoGqJ5wYO+S4cNTQoXV+hsDktDrm3SVcsHEr
PuM9RyDdYtDKVYYLhQMfPomEBA6IwzU50lwQHV0OdxcW/790YvMEbfE+fes1
HzGBucryFQ5ULjwtTJmTSAgk31YKukDmwn8BotMf7A==
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwdkHk41AsfxWeGMUaGQbpkr7hIol+WkO/3ZrmihEb28mYpvVxdS1myE22S
2+Va2jxZKkWltGgxuqJLRYMZ+5KtbEnGMrje9zzPec5f55zn+agdDnbyo5BI
pPhV/y/NiNZxqV4Skv4vUazMPrF1yYyM4r25FNFNNHT9TtZpsSHjULG0XiWd
hgv2FzTvsshoNuV44PWkCJqL3FTzCiSjjee3Yl6VCNaGNcm8yCPj9Qvljgvu
Ishx1Jk7tUBGaR//6huFVDxxt3KGJULBNz0bLA0yqChHt/imI03ByNELDmui
qej52u1LpxYF1UOCMcqRigO6qZ1mbhRs672UZEGm4vSa/teCSgo6KXnUZP9X
GC8fCXrBqaHg+gCp1CY3YTSsmXta+oGC48/jw3baCGNUlORDz2EK3jTUDyxR
F0byqFlh1TohLGEbbazoF0JmbfaZU+FCKNE+VrngK4S68XudBNuE0fKWndfL
FApGhObatoAwijSulWs8ScFq/+Fd9/YIo1WJnOxKAAVZexMIb39hLKZrZ7yz
p2D0+kdr3+QI40n/BsspeQrWVSi2nSNRMZUSZEN9vMqhJOCDL4OK7tcbi+i3
yeiR9/jtzvXU1X1TX62rZJxIcHgySVBRUumY89PTZJTdl5yz/wgVHfa3TUm6
kfHw6FcPhfdUtH23Y4MVhYylncasmXYqdsvnv2/ik/DHh5Q9jcNU1GPkyYSN
kzDtscrOOLIIdhhP6M5xSViWtF95YLsIdqV9CpotJ6FA6Xnv7TwRvEo9EnzB
l4RZTmf9TAJo2LD/is6X8hVw/cOn1yichscFPomJN1ZAnmPmYZBAQxLnkRuR
uQL5zpMOejk05FR4HusKXYEbriwzjXoa3nY0P2RnvAKlB5VlpLVE8dSKzSHW
38vAPvbg9eiIKNaRKPSoiSVIvnPOdHhGFDvJ6hElfUtgNeb7+DOJjiFvK1RH
OEtQF/RTaY8cHXe5pgbkPl+CxuOnslts6Og5osKoPbME3BPWv1WX0BGIbC1Z
rSUYT2xXyDkqhgOPvHzPhQjggEd4Zna4GOb0WTfc8hfAa4JJz0oUw9GZG5Q2
dwFkfraazcwXw9jrxtZeFgIwtL7/8fxHMdw+4WUoKyuAeHpaSrzxGlx/p+LF
2ueLIJ1hMHlEVBwDsx2TIpmLYHQlg21YwkD7R8pFv3TMQ+zp+vS5CgZqVhgU
eTTPw5tgisezagZ6Lsy0xtTPg8OusO87OxjoKHHmfHvlPBwddtlkJSGBY9Yp
179fnodcfZXT+8MkULFg6Fm2wzws/31393GUxC7W5i22jXPgc9JvhBXIxAct
ld1tPD6wpeskbUKYqNhz79pPn/igek/byDSCidpKuQzPBj50f55MUUtm4sS2
wNbpl3xwd4raOJG32r+7EOBykw9OWy4eTP2HiW41AgN+MB92DTzhPNWWwvn5
4KmjYnxQ2yderTwqhW98Nh6etZ0FrsKQlOhpGfxiohVdxp2B1OzdFQk0WSyI
vMG7eOc7cHWDxfwT1mF5kKdWcuE0bHj+lhugIIeCgvuhWcXfwHf21txSjjwW
ikfFxTdPwTWNVxn3jRUwWDOdnECeglMhWZ0fPiiihWGbEzt9AhyC+JGxdso4
vvl3CTHHcVD2Ondxz7AKhilZFsesHYPpGFZ0y0NV5Cw6WKHwV2h+Kzi2NlkN
n9CYOVe/j0KSyumKNIcNyGbapUkKRqDMnqNhJbkR47dGyGqqj4DrnKmzVPdG
HOK6bu+0G4aYyKOl6tc24ab6QBW79CEIFT3hFeypjjkRpU7snkEYlLryrk5L
A1lSJmYTWwbh03Sa97FRDTR5yOpvu/QZzO3THyg8/Rldy+z2Rk8PQFRl2EFK
iiZub049pHhoAPTnVAh9Cy0k+toS5br6we/h55pgKW1MKwzwveTSD7LWv8XM
Nmkj7+W3NL++Psga4mY8SN+M3XHj5ptD++Ay2cs71kMH1RhP9fzIfcCYKXTN
XL8Fw+Kr5ln5vSD0H1HG49EtKFFT9HKc6IWwwq1f1O7oYlVcnMHw3R6o5Bup
1Rzdisakw+UxK91g2q8jZqKgh8oygpRM225w3a76l2G0Hhacd5kSlHRBhYWq
sOmAHnYN8mb3kLtgjsdUct+tj473zb0rfDphocPH9kqJPqZmsbuzWzvAJK/G
eURyG5oqpUwVWHSAcW1KuMvxbbiObCb3z6t2UIkw3tX3fhtaykwc+dWiHSyH
+WMhBgRuYNwnEdU8+JktX6r5J4FWDy1fWe7hwVnnfXROFoEsNolmacuDsZFk
/7i/CMxnP7tmYcODcskp1dY8AueEOmssLHlg4lX7Z1IBgTWtVZxfzXhgPxcS
111GYFGds+ghHR6E6TY4XX5HoOVlcaJenAet1eRyaCCwUL83vFmMBzucjRhf
GwlMjnCldYryYDm64O0vTQR2eI/LTgnzIK0+wmyyjcDfg4t6FJa4kOerrmE7
SGBsywHZxHEuLPPdk34MEcgY6NmR8ZUL3ucyeq+PEGhePHrn6igXNj1YzOV/
JfC8olFE1SAX7q00SRZOE2gQWl222MUF5h+0IIcZAjtrXczFO7kQqrHz3eIP
Al1muuWV2rlgvLck2WmeQKprRCW0ciG3t6tvaYHA2zz/SEcOF5ZCZeCWgEBS
w3KqT/PqP213PmuZwLTDugPhH7nAzo2dX1lZ5ds6cDbtPRf+BXvGpTM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"V\"", TraditionalForm], 
    FormBox["\"p\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Helvetica", FontSize -> 18},
  ImageSize->{437., Automatic},
  PlotLabel->FormBox["\"Isothermen\"", TraditionalForm],
  PlotRange->{{0, 20}, {-3, 3}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.497776239053112*^9, 3.543025643268695*^9}]
}, Open  ]],

Cell["\<\
Wie geht die Funktion f\[UDoubleDot]r kleine V weiter?\
\>", "Text",
 CellChangeTimes->{{3.543025725665419*^9, 3.543025778382265*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p", "[", 
     RowBox[{"0.5", ",", "v"}], "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", 
     RowBox[{"0.5", "*", "b"}], ",", 
     RowBox[{"0.999", "*", "b"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Green", ",", "Blue", ",", "Cyan", ",", "Black"}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<V\>\"", ",", "\"\<p\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<Isothermen (unphysikalischer Bereich)\>\""}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.48073462052957*^9, 3.480734622837948*^9}, {3.497775411685054*^9, 
   3.497775497812148*^9}, {3.4977762459058247`*^9, 3.497776339987256*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV13k0VV0UAHDJ3ERRESUis1JIYguFa56eqUiDJiHzlDkipVISaSBDEkKU
8aQiJYlEqEx5976pSIjKd76/3vqtt+47Z+9zz977bTzoa3eEm4uLy2sRF9f/
nwq5IbxcXENwv/P6sLQoDWnwWPw2WDQE8txd6QoiNKTnJc2O5R4CKv+3wNbl
NGSn1PZhMe8QiF1T1jUWoKEzFRL3+IWG4IZ375OAP46oq7nBcIXoEKRcTqRP
jzmiyNHFMesVhiC7puFcarUj6tx0aW6XzRA0XCzrI90c0cXd87U6hUPQYt5V
8PeOA3rgsvil/+wQbP6+3yz3rz1anpvGWWU6DN+dPuvDUXuUlOAzGnhrGPbf
osYcOuyQx0HGxpXfh0Hx5v2FbFM7ZNn/RNl37wjcvhc+OoRsUWzcEsftN0fA
u+1r1H5jWyQqP9+qyRqBfnMl5rVeG9RwSI9vxnAU2IaW5brHbdDLm5IXp9JH
QVbw3hIuQRu0ii9G03V0FBZ+6AoFeVqjEEGtomidMdgn+FqSVWqFdgokHx5O
HoPMzw8aREWt0Kq7aizu4THYWiBzMjPUEmmccE5P1foGWSllS0RZFqhcbUOC
XeI3eLALFDMCLJDxhR0GfYPfgEvzSI7GH3OkTefsyVIdh9Wrnl3add0cGQzM
rJY8Ow6bFv8JVNc0R2kLCfx8A+OwfE2qpvcQgfQ2lO1WUaaDQeNapdpsAm1a
+fJTkgodpJ7svlaQRaClvAOnR1XpkHnfBKXfIFA/gy83awsdPBU1aX7XCRRc
7c4tqEWHU+1F8RrpBCq1XP78mwEdHghP/OpPIdCGyFPGt2nYGl9b6sMJtOiT
ssnKODqIHzrB3baPQB/hWCctng4WS93EfrkRqLjgnkt2Ah3+eSR92IjtECjl
vSmJDq1xLKczLgQqWLHislYqHVZ5ewbtohGI2DvZ75pBBySwbsOANYGuVD7x
ySumQ3sIb0+WEYG8JH7N0B/QgbrMvjloSCDd2K2xKg/p8DJMTHQD9phVcfrj
Mjpc23hBuMCAQFqM7CetVXRwLvxrXK+H45WO5mY10oFb2KVScAeBZC/uydje
TQeTo8rHFFUJ9ISXC/l/oMPj5y6ZCSoEsjpTS5X30GF60D5wSJlA4d7qeqp9
OJ+9kluylAjUSYiPyX2mA3+JbK2YAoGi+Nlb19DpYJcUtlVVlkB9MVff/p6j
g3q2T/QXcQL5zFrNaP+hQ07QiYPW2Iv9BDcG/6WD8tr5KbSWQGoeUYGTC3Qo
cd+nWLCGQGf1jq1j8pDQSz3qChUjkMac7vHB5SQYfC0zBhECpQaM8jTJkJAq
p3fNVpBAKZpvVNduImGX3N/THQIEOjdTQTstR8I9xRAZC+yEiLgiWQUSJtUd
F8z4CRQZv9HinCoJQx30h9a8BPJO90i33UHCexQvEL+IQCccTeqLdUi4eNle
exn2sTXq3xbrkiBqN7Yrk4tAh7P/aVXrkZAZIvK2fMEM7cvL6ZcwIuF1kyw/
668Zsqgc2DhmSYK3ouyK83NmiAh6TuhZk9Bz+vczGWxT7QcBGTYk/DBpt6r7
bYaM68JfmtqT8HBab4Yza4Z2PRc//tCZhGOzOskHZsyQSrdTefAhEg5EXh72
njJDS3526wuGkfDtr8d35e9maFphxNk8nARnKasjYxwzNOL+w/9CBAkjmYa3
c7CfvF5aKBJFguwBngMrsb1y96yQiCdhNmK/BC/bDDXb1nxVukDCzq1Xbq1g
mqHSpJe/vS/i/E37e39gmKEbDd2rytJIELBLXJSF7af4w2TbFRL6PVbHbcZe
v0ixXPc6CQ+u3B0xp8xQeHlWjMVdEgYTttnU0vF640VZF3NxPFUaxeexbSVr
qjrzSFi/8VnHfmyFc92kQwEJ/yqPh/Jgf/RYarv/AQlNc3wObuN4f9ckTt4u
IcGLlS2wDfvhG4Wzww9J2O8Qm7wEO0F7z9Mj5SSsm9s40fjNDGmsiNro85iE
4e287urY6/ek6pZXk8DFdzRiGbZgRJbjZA0JRDLdizVmhobGq5ODa0lgVajf
L8Ful3yZ96QOn9+RU1wXsWvsuhvm6kloHnks74d9sfH7RFQT3m+B47AWdvjU
3yXPEPb9TcHrsI8oLZVf3EyC+w92Pxf2rgwF16QXJCSv8RTrGDVD1CnP5rQ2
EjRS/B38sXdxbg6wXuP9Nf164oZ9yadvyqydBKVZIdG92Dt8rTfzvMPvm41C
mRR26vcUA89OEh7devddCHvIt8Wl8T0JNGsThd8jZuicn15q6AcSrlyhYvuw
B3+E5vf04HhbH+e1YW85XdWo0UuCS961xjrshInvvWl9eP8N/V2l2L2nlSdY
n0jQ+/dxKBdbadJLiBggQSZ7kLyOHeWfK1s4SIKQpD7zAnbX5OddPF9IIJ2t
yARs+QBxmudXEtLCDwxFYof/dPBtHCJheq61Owi7I+DSuXUjJMTn9zX7YstM
vbkbOkqCzfXxhyewgwL563rGSAiGvde8sF9NGX7QGMfxeViEHcKWDIpip9FJ
+Cxk5eqJ7ffrKR+bJKGv6M6OA9gvgn5tIBg4vz9viP7vtdNbdAqZJOydSeP8
b+9gbzseNgkKqz+1HMRG04UnPTkkcHjac45gi4aMJjR+J2GuvSngOPaxmfW3
1k2QYNG+xMwHuz7EtSZ0koSWx/zrA7GFZ6919vwkIfbykp/h2IdC31Mav0hY
3uD7Kg67enbp4kvTJHQyU2+dxxYKM5Vkz+B6trk+6Bq2++94TeI3rl/vaFZ3
sCvCmqwK5/D5ZFUrlGDzzc0d5fmD48nQ5H2K7RquFev5l4SSzWpjLdjcEQ8r
13FRUOw4U/wNmzZPtocuouBIQFT6NHZxxKbxHm4KPiqyogXw+2Ibmb32Ei8F
LzRYR9Sx7/35uJXNR8G5t9oHjLFnI1eaEwIUbL8y6OGKfedM8hmeJRQQ/EV+
ydhTf19keC6lQO99SlwutmkUV3njMgq6ZvWz67G/R4WMhApTUBl9feQntuFC
xXyPCAVqH+ZERPB9yIjmiG5bRYHr6Ydm6tj6MUdM2GIUHD4R1+2DfYXr7gFi
DQXVd73kL2GPxwyGFa6lYO8nqfiK/+9frH2J5zoKRAUvuM1hf47bLfJRmoKM
YzrpGfh+T66af60iQ0HLSfvwJmy+/KqEeFkK+JRyDlPYW1o3z26Rp+BLh56x
wf/1Y8nyr+eVKZCz1dk5h33jZmvmiAoFxjYOe5RxPSpVjbXTUcP5075H+79e
9VlPvRzfQsFVRe8LL7BVrvaX7NaiIHHEn3abNEO75a56ZWpTwM0QuNWHTau2
lP6+gwKurT84K3F9jOlD6Td1KeApMylNwe6WLAyfMaCgts2oNBHX0/D8ANOH
5jifh+aWPWKZoTQtVW4eS3wew6TEPPa91vE6VysK+lPua+/F9buDclEXsKXA
cLt17lfsjWoGqw/RKFg5ym26AfeHV9VLx9Z6UrBaY7Vm1wTOl0lLju9BCsJH
XP1VJ3G++qKdWg5RIDvo1JKMLTk/+TrAiwJ6jmHVnp/4fsGnRx0nKfhadKLq
Ne4/a17lRycEU7CvaPyBIO5XEm/PKr0IoaBOjFLzxZbsOtKzOIyCvor64h5s
6UE55fgICqreeVzMx/1O6Uf+x9gYClaNHBS2ncfnv7ZANTqFgsgkOq33nxky
kErsazxPwYhbyTUL3F+NZLzi/6VS8DT3fHcztqmK/KczaRR8ktlhVYH7sa1B
QULkVZw/u0oihxv352MFA2G3KDieUFOfx4fnp1OJiU9vU+AnH75eEff/4/5e
W3/foWD5wvzZMmyfSPmk0DwKrFN/Hm3C80LIpQKNkCIKUrmexzOF8HzxpCA5
sIKCG0JlkUErCFQuUKjt20KBFU9/hj2eZ9Y5Vw23tVIQs8e7QkCCQImFz85v
aqNgs+XAyiZst72DXz+9oeDPc3RPXZJAfAki54zfU/BaZ0RKegOB9i1E9IkP
UhBRvXtCX45AAtM2YS8mKNCuXJYdqkGggD3usht+UrAj+2Kq0zYCfbl68m3Y
FAVDa/J6tbcTqHJb4kb1Gfz9UrMzfzQJ5H66ru3GHwoGH/8Tz9AhUBVLTsKX
nwGyi3m0l+wmkMfoXK24FAOMY6xFuW3x/FegRtu/ngHauq0v5rGFTxycuLOB
AQnZjdXTdgRCP9o2K8gw4MTmas8fDgSS/pd5VWszA3xKS79NOhNoZK22j/1W
BlhJT2hpeuJ8WwVsvLCHAWbss0WV/gRqFCms79yL1w+Edx8DCLS6p99J1JQB
J6umLOYDCdTqZngxm2DAahlVG9MQAikcF5m/b82AzL/TyZMRBGLEl31ocWGA
n7Guz7mzBDr1lJnE5cMAmh+/ThOe5xMv5DzX82VAheilFQJ4/r/jab0Q7seA
qDT2XrubBOoSrAz+5c8Ah3y1AcYtAu1wDT/CCGGAPCVfpnKPQNzzAkYfYhlQ
5Le74mcpga7vkv9XeI0B04W8NVdf4vMW7tP5lsGAm9EfVJe0Euj1WHKQTCYD
uu7JbIh/RaA/qWzWzSwGCNcVBIa8IdDBz1UDl28zYHmu52L/9wRSiTJ6GnGf
AXvzFvzLPhPoWdOBQOsGBpDZq0ZtZwhk+AXKChvx73WujZL6TaAXf9YzFpoY
oHV5epYxR6BXOp89ypsZ0JypmH7+H4E6Kl3MRV4x4L2RTuQorzkaLLST6e5i
QH9fi+53UXM0nWbcSSMZ8GpHd1r0dnOkfEBBxX0VEyKvp3i+DzNHWZOqzrdF
mWDZ8GRyJsIcCZ3dljAkxgS1WJVA6ShzRN7XHzy4lgmBbQqWIXHm6N5Ph9Sj
Ukw4UJsTueu8OVqfFMvy28yEY+zjC3I55ki4tL8kXpcJNdmvbaKbzdHUfKrq
/UNMEM2+JH1rlQVq72ty5j3ChKKhnp6zqy1Q3uPJeE8vJuQuKzHyE7dAdr7O
/eLHmZAR2GtruQH/PxyRTUrxYcL6JlqwgrIF8m6rHToZxoROI4v+w0YWaCyD
TFdLw/v5rB7EF2yBurcaz1XWMiEzIkY1fMwCZcblrP5dxwSl0Z183+gWaF/3
tIZ+AxNSxwPe2jEt0Hjg/ZOvmpggpKO8VXvSAs3VLP88+IIJhy36rshyWSIZ
/U9NvO/w+l9OTaZKWiJ/wues0ygTFF24D1Y5WSLhQ5nC80tYQIXPyPzstUQZ
L3zf6ixjQQvrTp74oCWSlDdJCV3OAnKbZ77RkCVSoH4tnhZmQRPXix25pCUy
8LWf+SHGgtcde2aTf1ui0xHLv4xvYIFs6JFHfJJWqCs94UHXNhYk75IubD9k
ha6+8Ntb7MaClOeBjbQFKxTnF8TNs58Fp9vNykgea3RaMrxxvzsLpoJ/9kYL
WSOrwHgtEU8WvDqrTW8Qs0b8mzLkQ71YIKwdezNMxRqFx9fx7T3NgvrO88FT
rtbI05CvdTiRBYOGqsdl6q2RDUcoXvccCwyfmA16NVsj/awVcC2ZBRpyMhaP
Xlkjicm1NaapLJir0NJz7rFGH+4qF5ZdZkH78+ty3znWyHSRbdKZmyww+OF8
M0/EBqmhbBPxChaoqbYLnjC1QUJDLVNulSwIP2WUWW1ug8YXJu7eqmJBc4e7
Ep+1DboFpn9ka1jwL3PR0VJHG7SsaapcrZ4FNsM37soeskGsBksJ4xYWOB97
pnQvygYV1y2wfPpZcOzYCcU1T2xQ4oBS1qMBFhibS61/U2eDDs47mkwNskBC
cPOFuCYbJKFbcjfsKwvUqYeM+RYblFzrTEsYw/Fe4l8r/tEGHXv6qOkGB+f3
usc01y8btLnm0JUX3GyICvywokDTFnlvrNeX4WGD1Lpflso7bVH5eVFmNC8b
LOTzLR7r26IdB14a6QqwIfKgX36viS0yFdz869EyNlxVjoygudqiE24Mp9tr
2eAEazINY2xR6YKfVLgaGxKzDDX5Om3R5PG2tl51Nnh/fc7a0mOLtD5sDNbc
yobmpVfNPfttUVNRV8ePbWw4WFa/oXvMFnXabo85qsOGln1Tgn9+4+fzZkYc
jNlgJZ7mekLODmmaRhWpu7LBtaJHdTbGDu187vAr0Y0N+iE+a94m2iEDfWXD
L/vYcCC/JK0o1Q4R2/sGUj3YMBvfbB+QaYcOSGusYBxmw5qZU8Yu5XYoZfZb
0D1fHM/Jns++w3ZoqMjSSPwsGxRCTfTFzOzRN9lNl/wS2VAYbPGu09oeMW7N
DbYm4e+p9U5Xafbo19XC4OAUNqyPbo7adtgeCcUuKu5OY8OeIKec7mh7pOny
WPhiFhsePGudLHhij1IEpb5wl7Nh08kl5gtbHNCZWXFJo0ds2K0KHMsdDsiP
vto1voIN99+MiueDA3J8Kfxx8WM2UHGM3aesHJB0LE8HTy0buLSTPLy8HVDN
LLOB7wUbVnecuiBQ7IDG6LU5Qn1sKE0wTgxTcUS9H2sGiE9s4HSeC5/e7ohe
v6wSP9/Pht9veX+e0XNEZXml15Z8ZkPwmtW1JVaOKNwj98LSETZYFvKUnD/t
iER6k88sZ7GBb+jC8gNPHZF+i/P+lVwc8JGa0ZmypaEbC3FZpxZxoHj0tgra
R0NTOx72vuLmwJyX1q3sozRU/GCRXTQvB2rb+c/EnqGhNZeL97KEOLBaK6Rq
aTEN/XD7o94ihp9PqLusz+eE8iZuc4crc8Cyo/WlcLsT+qf0GnpUOCCwx0ZW
5JMTcj08FblFjQNZ3GmP5cadkHCv6cz4Fg7E9DqopnI5o8j6Caa9Fgcu7VkX
aa/ljGhJRj2quzmw94EH13S+MxKQohcO0zhgtfKdz78MF2TzWvujnDMHggcy
5/ryXdCNkHM8J1w4kN9dJ/amygUpdSl6Trpx4GNbcfd0lwuyTPKWWOzJgfSm
kkR/YVd0ZWIiddNJDmhcF+1VveSKJFv+nD4azYGuBWFG4D03dDjA8s6DGA5U
WVeWP6l2Qw+lb3V8j+WA6ikwl2xzQ/oRoByagPPR8Wi3MccNeW6JGzuXzAEJ
7iln6Z37UEEWv1NxOgfOPRZTpPXtQ1t8V+5iF3JgV+79FYe3uqOdqsNCyvfx
+h+K/UZN3JExs+zTsWIOOGdZX7zg7o6cjlqGjJXgeNbHfT2U6o6iPM5VDDzi
gJOB+355hjtqt/6n8LqOAy3NPuuCSj3Qx2VvZ/gbOHCSY3B4sNUDJXWt8N2N
rUUvunCm3QP9B7ock7I=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"V\"", TraditionalForm], 
    FormBox["\"p\"", TraditionalForm]},
  AxesOrigin->{0.5, -128.},
  BaseStyle->{FontFamily -> $CellContext`Helvetica, FontSize -> 18},
  ImageSize->{748., Automatic},
  PlotLabel->FormBox[
   "\"Isothermen (unphysikalischer Bereich)\"", TraditionalForm],
  PlotRange->{{0.5, 0.999}, {-127.19516316885424`, -51.76855714337434}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.449465672583102*^9, 3.480734771546811*^9, {3.4977754158519373`*^9, 
   3.497775498245407*^9}, {3.497776273096389*^9, 3.49777634087783*^9}, 
   3.543025643376172*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["van der Waals - Gas IV: krit. Punkt", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, {3.4493805712999287`*^9, 3.449380591703601*^9}, 
   3.4493812242464743`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dp1", "[", 
   RowBox[{"T_", ",", "v_"}], "]"}], "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"p", "[", 
     RowBox[{"T", ",", "v"}], "]"}], ",", "v"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, 
   3.449381224246962*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"8.31451`", " ", "T"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "v"}], ")"}], "2"]]}], "+", 
  FractionBox["40", 
   SuperscriptBox["v", "3"]]}]], "Output",
 CellChangeTimes->{3.449465672876645*^9, 3.48073477172964*^9, 
  3.497775416017721*^9, 3.543025643489449*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dp2", "[", 
   RowBox[{"T_", ",", "v_"}], "]"}], "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"dp1", "[", 
     RowBox[{"T", ",", "v"}], "]"}], ",", "v"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, 
   3.449381224250511*^9, {3.449465626304205*^9, 3.449465632670858*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"16.62902`", " ", "T"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "v"}], ")"}], "3"]], "-", 
  FractionBox["120", 
   SuperscriptBox["v", "4"]]}]], "Output",
 CellChangeTimes->{3.449465673010662*^9, 3.480734771737474*^9, 
  3.497775416249365*^9, 3.543025643592114*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KP1", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"dp1", "[", 
        RowBox[{"T", ",", "v"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"dp2", "[", 
        RowBox[{"T", ",", "v"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"T", ",", "v"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, {
   3.44938072652171*^9, 3.449380731447811*^9}, {3.44938076197738*^9, 
   3.449380798025185*^9}, {3.449380830700314*^9, 3.449380837481848*^9}, {
   3.449380922059348*^9, 3.449380923210347*^9}, 3.449381224253866*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Solve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Solve\\\", ButtonNote -> \
\\\"Solve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.543025644261633*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"T", "\[Rule]", "0.7127210053179233`"}], ",", 
    RowBox[{"v", "\[Rule]", "3.`"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.449465673222389*^9, 3.480734771950691*^9, 
  3.497775417000915*^9, 3.5430256442808933`*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,
 CellChangeTimes->{3.449381224256858*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["van der Waals - Gas V", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, 3.449379647232115*^9, {3.44938091077328*^9, 
   3.44938091229323*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.7127210053179233", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.5", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.6", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.7", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.8", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.9", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"1.0", ",", "v"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "b", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Red", ",", "Black", ",", "Black", ",", "Black", ",", "Black", ",", 
      "Black", ",", "Black"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<V\>\"", ",", "\"\<p\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Isothermen\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.4493809355559883`*^9, 3.449381014887783*^9}, {3.480734659363483*^9, 
   3.480734661518053*^9}, {3.543025601780888*^9, 3.543025604875659*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwd1nk4VG0bAPCxzJgZY88SspOEMFmSuu8KISSpSCQpQuW1lFBJQivRZitK
URFJkep9qUirIWSriJyxlTVj/07f+edcv+t+1vMs91H1Pui8h59CoRjzUSh/
3z5f1UOuj04A5f8PHZPKh/bKz05Ag/OpfrcqIdR5XFw4JcMDLo2VbKEvhK8L
Q3mtBjzoBm7U4wwa8nJ4p9N9eBB7Skk+7DQVk2+U10ce4wFdxl/ZVoiKumlR
Cjuu8cBpZ37Bx9OC6JVIKVD8wANBZlGiaoYAvj1C52SyJ0Fjdud3+jAf+oS+
kzvmMAmuMjsdvRP5cO7AuV2evpNQLCGpJWfIh0Y+4qNK6ZNgk7GST+oYBT94
1q+cLyGdJ9kgt4SCe90uxX7/NAly0kvpkwXzkOYoJ5PFPwWvfSTi28PmYLlt
q2e04hRYXkm8mtg5C5/WZeR6mUyBAV1JUNd5FvhXqKxQ9Z+CnIB2S981M+Cv
rr3jZt0UcBZcksbNUyCo1JcT0z8FA/uT9eM7J+G6XP6gN3Ua8tY3tIaETEK9
iMFx9RXTYJYasr88mweB9JE3ApunwWI2p7dxFQ9oAiXi3YHTYBOXJij/dQJW
8kxv5mRNg58mKzNfYwKaRib7YsunIWnQRan6wx8IGnzG3tMwDRX/meheP/wH
cn5AlSZ9BgbMzQSWNo4D6+N67p2DM6BRICOyqWAMrnirmXDiZ0BFoPGM3/4x
UObNnJy8QdpDyHLzsjEwUi9WtufMQHjjrSP7ykbB9YjitmGDWbB8575M89sI
/BCdyJG3nQUnQpm58/4IBOTUjazbNQvtSk80aREjcKw27sKVi7OAu4iRIIUR
yNEcrlo5MgvdNKbx9f3DoP/svdQe5hyUpU8XalgNQ6nTnV0X1Ejrxrx8t2gY
3kW6z3Y4z0EsfecVl/ohGKqrWh73iFwXYdrLU+uHIMI3K6bw/RwIZuu/0ls8
BAKzEZzmrjmgT2mlPxUaAhltg8ClC+ZB+4e6b/WV37DqWNotTug85LGq1O+X
/YJqqbDhyXPzwDmfX9gd+wuc7m4E9dvzwD13Uvm08y/waRBsC2ucB7PdKcV9
w4Ngddn0tIgCBV03L1zBwEFgdmgYqC2moPjwrGmSzCB80pH8YsKmYHTu5YgV
vwbAtWJAw2sDBZO2JXp8zhqAgP7siuJICl77rKm6RXIADEwSfd/Ek3HNoyKL
hvthLDpKtD2FgnJVSTMfOf1wTGbbDmo+BZFvmL8+uR8urmHxtrVTkN6x0+xf
lX7Yem7yeiCXgglPfwZp0/pB/kuP1YkxCg49Og+OA32QE1iZco/Fh0FmXZyy
8j4ovXpo2awFH1JqYrPjdvaB6yifbqMNH5ZdC0gptuuDKcfz2gUufJgnaCcW
ZNIHq2k5qh6BfOjUNFSUJNYH1aF1Ui/S+VA7Rc6bWtMLfpwd4pdz+dAvoTLf
rbQXmLpc1v5HfIg6OcIaub3g0DVHXfSeD1U8z4+IJvRCwyZdXtQUH8rdHtUd
dOyFQwWlYy40fsQPnA3Za3pBjrFuWFeSHzMGT9g8Xt4LOyrc+tqX8CNr6TXx
UYVe6NKPb7dw48f8Uy8rYn9xIfaMZMuCPfwY/WyXxZ8uLmj1ZDYOBPEjbyTq
3OMWLvhnlnzKSODH5oZtxdLVXBgR/lExU8qPlNlnYotvcuGS7/4XDa/40WaJ
3Pu6VC6YvOI9za/lx+fN0nefXeRCRITYox0EPzqdErS3juGCYlNa4fJRfuy+
Z9nXFcGFfw218lnz/GiWtsKjPIQLfL0Wt5/LCKBcd/x34b1cuGlZk31JTQDz
AwykY3dywTJr8/VAfQG8tqsoYJkbFxK2+V9VtBbADL472vIOXBCvvno6KkwA
K6zdAhVNuVCsqh7nckIAVdI+jDGMuOBy9EGM7nmyfpJ1jYoeF64tr4pszyHj
z0pHqtS5YJ7kFF5SJIBeb+qXOitzob2/LfTcc3I8dt0hAgpcUL41st+iQQDN
/hWxqJPkQsXcUf8FHQLo9GSe0y/KBe/tDN+BfgG0T3W4vliYC3ckVLwyBAQx
x+r+hnkBLuhHOzjPGAnimFo7VXaCgPCQNLtGEMSy9V8OdY8SULmXWPvAXhBt
DP0U64YIcHE4wfbaK4hmdissBfsJuI6flq4IEcTX+cfHbbgEcNkKGpLRghhd
KLXi7k8CIuUfL3idKogdp9VlnnYQ8FqEXyTzDuk/siK+3wgQ5dtIPfRIEK91
zDvptRNwk+COL/4oiHlLxkvmvxAw0Gr8i9IqiHQw3cFsIsD4U0xPS48gcqVS
PHUaCKgpUfxylkJF3uEjpbkcAiTz9tX6iFBxSLayXKCWAPf0J29WyVPxdZZX
cPBHAn6dcCr7zaaijYdb/Kl3BJiFZRbVIBWzDpg+0n5LQIxfX162AxXpCWsM
2t8QIL0xNnWzLxUvcff9/KeKAM+1dRd1Q8m8ZhDB3PyagDxjpTPUE1SMjfPf
vvYVARaKZRGlaeR4StQibSsJiBOjhiTlkvE1ti5eFQTU8jsH7CuhooHdD7+T
/xHg3dvvrvCJiq5ZTw8PvCAgv93MZayVis/7JVMMSY/XnrL/SFBxgfqvpSee
E7D6Vb3lnTGyPm2ipfUZAQlPlFcd56NhvtNF09Wk6+8GGruK0lDX8E3nvXIC
FDOf6hkq0HDA1CxchXThyc1KXctp2J5WN6bxlADeoSyZ52toiJlJWo/KCFjr
Pyh62ZGGWVPX2mxIn/MwFzrgTkPFqNj/fpYS0OQUP2/tR0ODQY3o06RVLBsm
lMNoODYU9pFNep+p6hDvBA0tTRLdup8QMLPoWce9dBpaLH9M2UbaWoLecjKP
hhpOtDNypBMFt9TteEzDWJtE/e+PCWieyH5r/JKGC+wM790jrdb/q1K0loau
E5nlEaQDv60sJ9po6DSwQXkj6Sd1CcUVXBq+Ph+Qupg0parxXuo4DStU2/sF
SNuWqd0K5hfChGWqbV0lBCTfP5i+QUwImzVc9d6Qbr/+PEVDUQhrVuvfKyCt
lcw4N6sthKySJvmrpINObY1tMhbCaGU+u5Oky8NvRRWuFcIobY5AMGmBwKHQ
hI1ke74c6d2k7Xeu2r9rB1k+/rfjVtJXnM/sMd8nhGXpIcc3kHZN2d1hGiaE
H7bXU9eRXthg4W58QgiTdCLHV5JuXSDTZHReCGf88nRMSGds+e1kkCqEee0n
YgxJe1ypea93m5yPrWybHmmlL9nWSx8KoZeWu9RS0h2ykZXaL4TQ4p9FwktI
Z7u6WGi9FULdW7Rbi0l7p+qVqjeS9SuTn2uR1milGal2kv9151jmf/1TviNf
aZCc3/uEOU3Sd9yfLlacJPt/2Dn4134ZyTcXUulY4l088NdLvgYskpWgo9wF
546/7ltkdW3BIjp2a9Y/+Ot8TyUpySV09NMfX/3XB25MnBczpqPPnWXhGqSX
dXDoImvIeHz2WnXSQyr3TjId6Ljjq2S8KuniXSfnhNzoSB//ra9MOuTmjiPU
PXQcyLLSUCS9vMt4jP8fOpalvNgkR/qPuthBylE6LuCk3ZQiXerD7Z1NoKO2
3hN+UdLhtyt9pi/R0f53hKcQafOetO+8LDqGhnbdnH9EwLRW6PY/+XTkjYa9
+EP6ua9D42gZHVU2rckYIH0sT8tp+DUZn2/R6yQNvfPvfnHI9me27mogTdFp
sRpop6NrnaNWNemX/sUVvVw6JpQ0BD4hHXv/7EpijGzvQZjmbdJWAz5PuikM
jG4wXpNMmqa32vAHi4GCV84/PEq6Zr9s/nc5BqpI+fr5kj79YEjrqwYDDeIV
XDeStvv9NrvVgIE2FUEhxqQ/BkVdbbRh4PP3GlPTxQRceLhF8rMLAztk5Bza
STuN6J/neDEw2Z+TVk66PqQz5n04A9FgeDKI9KWS8tmaWAaG2o6N25DeMp4S
Xp3EwMDgwUol0s2HrA9U5jFQqa725quHBKSWKvf+W8LACg/p28mkt/N4u59X
MDD2X6rzTtJfj9x3K21moF2XypnhIjJflMc2lHQzkMVaSi0l7TXtsbF4iIHO
q9OZEaR/RIlbFdCZOPc98yqvkICcF73/3VvAxKLDbhIlpPfMvTTPU2Givfq7
yUDS3ONhBrfMmHhoPXWu6QEBgzGtCql+TOxh7V1+toCAre5hyVfDmMiUdOhY
QrqCLc64EsPEO9/4tlTlk/dBt9Wf5AwmRlWPxozcJ8DE+iHnHIeJ4mPXfDXv
EXBDyX792a9MbFc5+OnuXQLoEz0vTvcxkbfyQIsO6bZcxftxgsKoa3/gk1oe
AdGMhFPRZsJ47u3Yj97bBPR2qs0csxJGE/5m2c2knctfBB91FsZw/dK2shzy
/AWM7owIFMZqiwpGxC0C3n7wNA/NEsaixyWt9VlkPksy/u1LZ2HNxLrnX9PI
fOrH2bNXmoUaDdxQMdLdGNDuo8bCC01Wj1elkvfhcNbbXRYsHGrYzUm8Sua/
zawc9yAWLjc7eJ55ifyeMl2uG5tZ6Pllk6/7OQJEfh+tdfjJwuLUPyZbzxJw
6I2ctf0IC2M/Xcx1OEPen+GObFuWCDI3aYUZJZD5s+WpyDoUQa1QY3rDSQJM
M5NemuSJ4KWUsPAjEeT5iHt7gVcighovt7laHSHz/UF+9/JKEbSclNIQDSf3
39rQ0VVtIugYff3slTDyPiG2aViJiuLrS6/GYoIISDNUjtscKoqxwd7yH/cQ
MFdVYBuEYvhvqHMIOBJgWdgjbeQghnJiVsGF9gScuab8Y9RNDPca3vikuIEA
2YCLEYdDxFBxS9OD3+sJMBAPu3/sjhh68yrCD60hwFDvepw1TRzprg8vCi8n
YPfhPVyXQHFcMJ3x9YAseV4la8RsgsUxaYXdomJpMr890DFdGS6O3P2fokal
CPjW/fuUaqw4XniUkxskTu535wj1X+niaOlkyL+FQa6vXqJn/Htx3C4fE1wz
1QNru8oanupIoHdnouzB9h5Q3ciqVOqVwGqnIynb03ugWaFHgh4nhVqq83z+
8z8h/qptyQkhaSzh2tnPeP+EZv2DzL0nZLAh/3RObFU3qD1707xPQQ5fKP/M
TpTvBp8/d3mzqQvR0kettOhoF9zQ+i/poZkC+tlmtIQ2/4Co4CvttbWKeOuC
usJqix/gtH/iyLENSihsfVYhpKgTlDzOJtoTyuh5V+G/48qdMHLUJbLxkQoS
zPj5yOsdUP9mxn9BrCr+CpHm813YASeV40oSnNRQt1iiMMv8OxQ6NmhZianj
gePZHq6e38CVt3KLxDd1rN8Rcl8v8iscPeKXr3lDA4WFBDYdftgOIfRDHgd3
aGJyf/OhvrE2+CmR+a5miRa2TLkkSxu1weeRBC//Xi30uudwrz22FVY7XihW
eLoYc41Ktg/UtUBEaagn/ylttMq1bM7UaQFDnjLbcN0SLBI9T718uRn2POp+
dVBCB/9NE3+rNf0FpK0PHP1Tp4NWbeZmrv98gSs9zUnFF5aiBK9IsO13E1zi
8/A65q6L0cGL7NfuawKRsduuyfJ6aO4Wk8sdagSBXXSRJ716mGjKnqwNaYTQ
28v6VO/r45JyWfmXAo1QOmGq+spvGW79p/mwYloDrPyhyzRXMMDwqzHAW9oA
rstVrplEGuAzWX2OytvPULJORXBllwF2xeX2yHh/Bl6L+KLttoZY8Ijt85ny
Gabadttl5hliR0z6891368E8/dUWrpgRWuP9FzMO9WBWfSpsW5AR7qu+FFg0
XQfK4WZrOz8ZoWm2EetJQR1YEhMDwcZs/ECw/Gfc62Dxy4X52pfZ2Hrj4IMN
knVwZstGRsMVNq6185KhS9TBADd27/FrbEz841bwWqwOisSGVJrS2ajohH6r
RerA3KP68smbbNx1vFJ8Ob0OHHnBx78VslEm/oe69hwHQvU/OF96x0YN4xQR
dh8Hmir5iuADGx/oh60b53JgxRZTkf6PbEzS18wtJTgwF3nzzZo6Nkperpmw
+MmBhLfhFr+/sJHeKvrCtoMD6T6aWnY/2VhZZVAb0ESWn9h+cryHjUd2BX01
aOSA19mkjiwuGxkx3XJ/PnNAo3g6baKfjVvtLWVP1HHgwXyd2O0RNn4OajZI
/cAB8RSh/U5jbLQ+V5y78z0HQrRWvZseZ+M3n7ANWu84YOaQF+s8ycaAtMSF
JW84kNbxtXN2io0WGg3rIqs5MBsiBXdn2Nj5ui1tbRXZv5BthsscG3UWZiox
X3PgZdqxyfl5Nu6vEK2te8mB/wEeoxAs
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd13c8ld8fAPBLErK3e6+dKGXdiiLnE1HIyMhMKcmqpJSVkZ2mkIxQSEok
o/0I18q49yahkpW9knHt3/P93X/u6/06n7Oe55zPOY/sqQuWZ1gJBEI2C4Hw
378wzfjL2tFZRPj/jwO6L/58UhQwi3bp843nUjaC0n7S3K17s6gjtEbpZf4G
uMThYOj9bBaN/+RG4RRW4Mj8PqzUOYt8iNEZm7jWkaWn6L5Nf2dRZVD3Ma+E
FZSx2yb+D8ccqiQ8FXXVWUIaTYydj7XmUDH1zGX+iTkU/EAgNMxiDh2Ov80n
Pf0P1Z2yoDm7z6Fh/S4VX54Z5LTY7EtKmUNhq7XGg7ITKK+Gu2axCG9PoEGK
PjyC/t4xEemom0OEE7vqHDoHUfTWhorEhTnUI2gbaqrSi2Rk4wl+AvMo7NHX
BVT0E70jmRrZKM8jQtzvzYPm39EkP71L5ARejplaJX9tRLGb78vP+88jKNBW
JZZ/RnLsNt7tCXi5ZNXlbdtKkO1yx2pyLV4/+8BSuPVzbGYu1fBqD15+dLZQ
wuoDdnPa6Y7tEl6fzzEwnkjFKv/0yIirLCBCXXrk6X80zKHnsQfz0ALqGft3
6/Ofr9hsl2tJh8sCOqllcm6iqB1Tog3rP0xaQDDbVF7+9QdW1VhwM6BoAWVV
tMXzqndjTlTvb/YNC8iCZyq0fU8PdvfdtBtxFY9fJ/2KN+jDtpeVFC2JMhEo
isd7a/ZjNUWXmV1qTEQ4u5tniDSAMXOYcWmuTPQmcf9dDewPlpD5jhEUwkS0
UfYkjdBBbEdqMMkphYliH0tEKu8awmoTdV11Spiox7XkVXb3EHbyDqGQ3MRE
HWLqDwVDh7GluKq5lT9MpNRfajAnMoIlRkbq/lpnIv/MqNfvnoxgDQEctAzK
InIPjk5Myh3FXC83ioeYLqKUwNn6i8QxbO38TRfns4vI4jez81PMGJbiYVag
G76IKnWptm0TY5iGK/8/qbRFRLvgfm+j6TjW5MzQXi9dRHa3ttOzc8cxN/vE
yN8ti0h8QDBpdmEcSzUTF81iXUKEoILuzhsT2C6jLucw8hLK14tVnfkygbXo
pz89uWcJiWfozDVtmsTcdZ2nwWIJQaHlzVzdSYx1r8xeWc8lZJFYkVTqM4ml
U/rCWSKX0DArB0nt0SS2RyWnsTdjCfFPVBSb1E1iNCU3oaqKJeSuvzdZa3wS
85RXcnpMx8tb9dsUeKYwNqnRnOtjS6j+83F72D6FPRJ/MXFq4zJS2lUl/Fp/
CtMSOr9HX3oZyTyv5HtqP4UxeNRC5fcuI//Kl1H63lOYN8dM3QarZVR8IGKp
MGgKY99Qyj/gjdc/q2bBFTuFZa362ddELyNxPXpX4L0pTJup+Tgnaxnxi3y8
JJMyhbXPLI5GvsPjl+/FE9OnMJ+J95QzbcuIQ+CQdkzGFMY1fC3YYHIZDe+2
sY7Ay3P6EFWBYwXBJTaf7Q+nMN1fLLzscitITWlsNfn+FNbxvfrYoPYKyt/9
/Ghf/BTmy4jKrLVZQZVJzKIt16cw7uZDw3kXVhCBe9bB78oUlnxKbg8tZgXJ
eLNld3tMYdLMlYjFzBXEnHLsfOc4heXf+k6Xe7OCxCue1RCPTGEa8iXSR2h4
e13EUF7tKezDm5vn/IZX0EmFnTG5SlOYgdnZ948Iq0irWq1mUngKswsg2/5V
W0WHCcef00YmsT7ehRyi0SrKsi9zi2RMYl459Bl9l1VU+dUzUubdJBbSGn07
+d4qKh7cmaEXPYnlKPylas/g7V1K8fMUmsRU3n8ROsO1hvLd+cayZiewCos8
l9tya8h/W76K6LcJrDHIcbXHcg0NJ20k996fwKbp1F3Rr9cQv/Huc32cE9j+
kNQntMvrSKu7IWbm1xhWK+T3d/HmOuqZdTv7qnwMs3hmjuRz11FKX8hNqTtj
mGsb2w+/b+to2mlLhBgawwySNON4SAQIuyRkuzF9FPMay64sCSJAjYmiqK3p
CFbx4Irqqg4L8A98HPR4MojZ/WPZ8e0wC5ADt915EzCILZndUiq0ZoG2A75n
hC0GMV32HNnj3izw0526e3HlD1Z7mS70MY0F/E3nitJs/2BtR3cwg5dYoN7t
d5+uwAA2s7mvcqWCFYbts5Vb03qxxLPnPrZVs0KpVNa3Ar9ebE818+2LVlaw
c81WKzTvxQID+V47DbHCSoajiSJbL8YyopP7QXQDZKUpmS6e78H4ax/EBftt
gBQdBft7Kd2YSpip5YoGG8Q+szq/ybQL87+UavwNsUH98SGrexu7sM9uQ3ov
j7DB3a/0K6GfOjFr03DKSTfcpvH8seqdWBCxTLjmIRu4f302ZkjuwOpLyd/j
CRuB9oH711G2duzUyJgjqWUjyIx7Nb8lM7AXP7WsZ7s2Qv2ty+5OvXRsrjXq
SPPQRlDbHn7OIY+OxZZL7w9lYQf3pTzJs+p0rCjCSqp/Fzv42K68rTChYSuS
73sK0tghLLiJ8Eq2GUu2vHFmn8cm8CnMnd5aWovZ3T/do+m3CXpuhj2Xsa/F
JNp0HHeHb4KwutWP2WtULN1mykLtIR6fws6raULFsu2sdbY24PFO51xTR6ux
F85SQoLbOGB6MEU398BnrMqzpHJkmAPUPFmLOx+8wSKfx2sPzXIAVCn9HSO8
wQzGXcsHCJzAL/m5osezAqs/J/bitzgnnCybTfc+UI41+wQ/+HaYE7JYLsaP
MF9jHVcMz3/O5wTI0npUJlOETVzvIj105wLCyUqNdZcM7JijX8IDPy4IkyJ/
lzqYhlVS+DmTr3MBJPtB0baHWMKAwXxCOh7fZPBs83oitsfwFe0mDfe9BSPl
nDgsjDM2KkxrMxBu0wMWHc4iwbu7p85ycEMlsTvvNncWCnKnnXET4QaZE1ym
T0ay0AB4/XSVw72t7oIlNRuV/81qcNHB4+VK/eL8nyBHK+4cRx9uAKv50tSW
PJQj2m9n3sENJz0HVnW1C5Fmxt2qPfk8UNneNvY2oRSFRDfcZpbipu1GrmOl
qOYCq+O7z7iFAl9c1y9DFnqX/+3/wQM+CYonpWfKkPuQ7RYDXl6YXit4On24
AqWqS0dbXcat1lX66tdbtEYtNPIBPsgq3F/h8OwTOlg0KKJhygf8b2zstsx8
QjdSpPv+2fNBT+Sf0qB9GBLzuhd49RIfEH6Tg9obMKTG7/c8JI8P8g2HmE8v
ViL1nY+iDdn5obgHk50P+4xOXz0zbO3ND5V54R07A6pRlWA932FffuCXytMR
SqpGMi+3a2r78wOHXPTv1uJq1D0wFSUbyQ92r4/QWoeqkYNloPxkGj/IVNNp
01Y1yHLnHeeYL/yQ5Wr8amQLFen1v2l7u10AfIjfUjWf16LsENLKCzUBkLHs
xS5W1SICMUQ+a48ATMdcnozrrEWfLPR9o/UEoPLHbWWbTXVo36dmPisH3KIH
vJ1c6pDGwz7j8TgB8M95etCWrx7JmnN/lhoRAIuefqu91g3IutzcLWFKAN4E
5y3u9GhA0ZL3N7PPC0C9dbkuS0gDGh+TODbBKgil1GHfg08b0JtYxbH3ZEEI
FprYqM9sQGZVeiL2FoJA+9zWZpLYiIJ3B3jcrxCEu+fPRX0t+4KK0j/wbvok
CGHatEFm7RfUt4FQGlgjCMWcUy9ZO76gw4zoNRe6IMRe/Shes/gFCV1IvK82
Jgh2jeoNrDpNqCC/6GOzlBAcvv7lSsL7JtRBGhTgiBYCpbKkV2z5zaju2QUm
z00hqHlnOCFc1ozKNRe7hRKEoNL5t6pAVTO6b8X9QvqREAgHW2i2/GhGZvEa
hprlQsAW33fwOG8LqlkKCXQbFILEHsOIwQstqLhTrL/GUBhih+y+HVNoRZln
sxsajwjDTW8NXqJaK7o9t72YZikM+dGdF5r2tSIvAd1rP52FgbbvEMe6eSva
auQqNntFGFL4DrM8CmhF6W+KTeSfCkOw/h6D9oZWFPPAqDR8kwi4z+knuKjS
0MDOxwYePCJw+Nf9E6UUGtKrWWq3EBIBY7Uma4IWDa1MP1+UlhaBI+OhXRFA
Q77GvOjTHhGofT13eN9RGnJaZTQsnRGBfOe7e70v0pDaaaffl2pEICxqgSJV
SEO3Fkt9HBtFIHD5p3leMQ2N3uFh1aeJQKnM3odKpTSU++HTFsGfIqD2hMgg
vachoqisZ/E/EQiuf1zwsZ6G2Br+zI7LiYI3/1XDuT4a6lC5wOUWLgqXHRVy
XYXoiPNevkRLjChwLfsKhojS0b5/vUp7bouCmwNX/j0JOkqvsD7EniYKWoc5
vJ9K05EL7IvMKxWFvmtGu24r09Ho0Y1rg0Oi0BatGWuuR0ekUl0e80lR8Fc8
J8NnQEdHRP3JFbOi4OQf7NhwiI6Kukb3xbCIgXWz4fedpnR0+TTtqiJJDPa0
cBdV2NLR6uW0v2fNxMDYeD/nNy86UvneRqBZi4HowD85vfN0dHIvL7+Woxg4
bDI2L/Cho6rVMBUOdzHoJp1d8vKjo+hoN6/8cDHomTWyLAuhI/4U9T/DpXh/
H5bzz9ylI7n3dR0eJHEwMxKVcC+mI76Dh7a5yooD7T1p45YSOlppqg1wVhSH
9v5Ui5+v6ai9m0q0oojD6DSfuF4FHd1grXHSMREHQmTjn76PdDRjVNnDGyQO
7hLLFtca6eg3A6lzhovDms09A5YmOmpyxMI3xIjDvJv87/BmOso790mOmSAO
Oq++CQTQ6Mjh3gfX3gJxcDK5Noza6ai6483w6y5xSD1c0KvRS0fFLlp7X/aI
g3/mRp6IPjp6NFoRlz8oDjffOUvS+unIf6V8e8aMOOTrHFs5OUhHO2TKvKO5
JMDsk52k8xgdJZ59NW23TwKO1D5Rbpilo/BptQNWIAGGvE/OjszR0fmA4num
hhLgrpRRzb5Ax78DizT0LCXA2SR9RGsRfx4vCy8re0pA+ky4edAqHbnOP2Ou
PpQAFx7V60EbGUjBhKvOP0sC7I4plUewM9BgpmfSvzwJiKy+1xC7iYHcjZQ1
Rl5LwPGag5lxnAzknf7Cq61ZAhyqOv3deBjokl5RdwELEYbyGGfvCjPQrgd8
hQocREiZX7/qLsJAs2MXgrJ4iZDObfN0vygDXUlSE08mEcHN8qnvbzEGChx+
dTR8NxG6TaUVWEgMdP12aY2tBxE+O+lrVMowkH6/8H3GBSKUqPLNeMkyEJuW
n4vpFSKwNwZsFpFjoOje3Wt6EUTgVpG0PyHPQHG7KjRVMoiQlKBe2abAQMZx
YuzPnhDhg2hBoddWBuLqvtomX0CEK2bK/ARFBroZo3VRooIIfpq5B2SVGOhu
19sCNjoRMjM5XhtsZ6CjqsSA0O9ECA/0z63HLRgZeGjpF95/mqaikTIDJe7U
HpgaJUKj66U/ejsYKCXsg+QPNhJI1zzKlVBhIPtv5HGbzSSoYj/jFYebuP3a
O5oACVy2PO+cx53+db9trRQJIoPW3zeqMlDmVuzuKy0SNK50jx9TZ6CWiElO
XkSCroSJtBLcaz2SEZ4GJDC1vSDDrcFATmnBfvKWJMhb+1v6BjeRf59DkhcJ
7CxU7ZkUfP7nPL7+vUiCnModLPq7GCigMeWImT8JovJvJMbj7ohc0N0URYLB
WWKs6G4GSl4slQ94hI/nUfG40B4Gqj02kP4thwRijyf2muGeey0kqvGcBEr3
H8RE47Y+78sxVkECtcGrKn9xR37JDj/0iQQJ9fU35TUZ6LUSfelJDQmaH7+f
s8It2K864UQnQRpryt+XuPXghNvb7yRIoobHdeK+mHH7t0g3CeLZePewajEQ
zXaC3jJKgnmWsXZT3IQysonyXxL0m8vRfHCrCh6piVkgQfuBhqF7uG83FZQD
GxnIN/iDW3B/2talmsFFBnurkNUR3BPRnM8W+clgUjSft2EvA5EHtOSOiZGB
73FHIAn3kQPuaSWSZDCTCwtSxx386IEw3xYyxEgaPjfA/Xy59pbXdjJcDg7j
tsPdZTfPXq9GBlC8nu2Om6tcIWyLJhnaOdO8r+LeJ2SzGLafDLzi4j6RuD18
In1/6ZNh5qj+yzu4U5pfj+01xuPrTm97iLt+e79rsgUZUh997M/CvRAj2D1z
jAwvhRJ+5+He+ueArflxMuiHS0s/x31M7yLt+WkyWJ7KzinEHZWZZcThSYbC
Yxa+L3GXrrRWufqQgUPx1I3/ygfs17U/XyHDZD3nVAFuoQqVMslrZGg6dfXx
f+3rCTurBEaQodu8I++//n0v3nraHkcG8S22aym4s1s+yFDukoG7mPT8v/HT
lMcf3kkmQxebSdF/8yPEkYTG08lA8N/E449bbdD45uEnZNj+1KfWA/cJ/cCN
uc/IIBb85Jc97ttZz0JYislwSO2d9WHcn1Y7Fo6X4+OxaNq5G/ekA8fFdx/I
IFo16SmDW/KN5qhoNRnuVlN4uf57P77JP1tbySBo6XKnA3+/Z+c3P/j0DR+f
+o+jGG7LwPCjhT/IUPajozwH97br3rU3hsjwsWz8vBduYfa+sIAJMsRlHaQe
+W993bDVdv9HhgHGk5oduNvv6RUbrJOh/MpgzTC+PqtE3nju2igJoydW6mtw
Fz7cqSC/WRI4o0KCM3FHZounEsQkIYAmxrTArf5qMuK9iiSU9Lufy8H3B3m3
q27BLkn4afxG/ApujredzJR9klBVPBBqiLu7subcFUNJOO40GtOP78ebtFRb
dWdJ+NXTnc+L+6o1v6CMqyRQbtkdb8f376mOqCZeT0nQ5S7sTMe9t8fnwLif
JFwzqVHdintwylD56S1JeFTkFLgdzwf0Sx/+JN2XBJFZj+RhPF98WFDPinwo
CckBvVG5uO+vk0VO5UpCnnLFAAk38P1bI3+UBJs4rYYlNQZKU8lkJIxLQsx3
2VPX8fwVXSJ8K3xGEojftziq4Pbdc+OQD1MS5Ceu7O/cyUCHdf0+mLJJQXWp
cbUy7nlTkzwOshRU6u9gVuP50+LcQkCIiRSo7WpVqMLzL99H05KJo1JAVrn6
zhp3C3fOqJOdFMh+d5AexPO16QsLR+0zUhANgic34jYee6bDDJECL7uw4d14
vj/o4bR+sUQKbiQKepzEzwvNM58jz0hIw6Y6Rbc/4nj/pWIf26SlwdPr2oA1
7nK283P6W6VhpNLXpRo/j3blEN3kKNJwXSHRKQM/r9T6Lx36fUQaDn19H2yA
n2/bXbZy2YdJg6pwfsxZPgaSOh5/58iQNGCHQm4vszHQw6+KnGYT0kA0dVu2
wy1sXHPd/J801BTnF5RtYKDNmqt+luvSEOu+8NWbFV+/sZoqLzbLQFZohhdj
nY7cTz0TLpGXgVufXwQGLdERiN7q/WglA2nHN4DJFH5fuWYd9O21DOTnasXz
facjorTQVdEKGZB/b2tAwe8fByrpvrbvZICRJ+187Bsd3WU19+yslIEvVbpF
qV/x+1iMkf2vZhmIt7wzTMLvL553dTX/DMnAg7rCQJYGOup7rPRvliQLgWJf
CCfe0RGjbsVTOFIWFD0vxN9Jo6MI6ejSWAs5CDnboq/jgN8Hzdq2GvDJw5If
4ZEEft+0Y2rbCHTLQ+Xn6fvRrTR0LcD9hULmFjCNUFRSi6OhSxxXjl9wUoBK
Bz7VUH0a+iOQ0Vi/bSt0pUblhk21oq8zsSc9R7bCyo0Uj/ZTrUjX7HYJ6a0i
dF//OsD80oICKy47s0YpwfgviVXhfS1InSlNUdffBmnX925wLW1GZ14PVF8Q
2A5aZl3DR7c2IxHD89fm6dshcsONrOycJpQ82HG35LYyBOZLOzorNaFEluMn
Qxx3wErEBZe2nC+IZzbXLoG4E8L+mqnp7PyCNrhw8JSP7IQVUscia1Ejupyr
Oir7XAXc4zgpdjqNqGJBU7baXRXK42x39Lc0IO2+HVz7SGoQavf8k5djA7Lb
JZOyJ0gNHqfMDT6dqUel+jJs2v1qUJm+98XRyHrE7OSXdDBSBzbnK+3ypHq0
9OO0cUa+Ony3Wvvx+T3+PZlWbTPMpwEWO5Wf7rWtQ1q1UX62Phrw9GZmFGGl
Fkn7a+n1tmgA2dglez6nFh0cWhj33U2B+l3tcdJGtUixSuKFUhIFtJy/2tTN
UdENG3POtmQKZH3h0rabpaLx4Ui30BQKEG9xHRmZoaJivmmZ9jQKpCoY/d08
TUX7jtcmRTymwKVwnsNWo1RkxvQN7S6igOzjzbKj3VR0WaXJMrGRArweVCut
eipq/8xSjJooMILF5LbUUtFeG02esWYKdPgclDtDpaK1oMd1B+gUYDW7n55Q
RUWxDf46U98p0C3adn/qAxWluSpsNf5DgZRtpjGvXuHxCw4Rc4MU2GRZEWVc
TEUn4+/2ZA1TYOh72cv+l1S0pWQ5dWGMAr2Jx8JEX1DRy3U6X+4MBU5v85MN
yaMi/vubzlnMUoDzNu2SeC4VXdq6v3F5jgJbE29NlzyhIi3T/EjLRXz+u4Q8
hrOoKLXnV+/qEl5fsdU1IpOKVi8JoWcrFCBc+HpD6hHe/yajdOs1Cpx7K/Hj
bToVVaWGLK6v4+MvS7OxSaOi/wEPsGj3
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd13k81F0XAHAkyc4shOxbktSUhJyTrV2ylJAoJFQeqRRJCJUQbZZKpVKP
olIkNUQLI0bZ/UgSskQKY3/v884/8/l+7nbucu6dUd1zyM5LgI+PL5Cfj++/
b5GVy3dXVIwA3/8/whitVZ5/aWwEOnWy6w+qCqGK6nm+I9KjcO3T49vPledi
ocKWDY6LR6Go632isa4g/pKqaWbsHoWMLJ6Mk4cAxoomq48Gj0LsMvq8l3H8
qCbk6F+fNAoooq3aXcKHOyYbp6+8J/VdzM+uS5iB4ZFU62Pto5D13LPhjP40
xA25JuyYGIVGIYeYG62TUPyjXUVOfwxiHQqEjH3Gwbn99n7eujEYsr8svN6c
B3+bPZ82eozBta8PtKwWjYEOt8ci5fIYuKvvvHpJYQTeVjyMO54zBnIRYWol
mn/B9Z1/3c7yMbBVOiWSaPwHEguHvOWnx4D7wGSBcsRv0H3+NGeCyYOA4Yp1
I8+GoCwniNdswIMhweOiy1sHgZfJO5vmyYPc8KSXB8b7Ielm4eeQMFJfJTj/
540+0EsNVXC9xgOuk72mpH0vuCfwPVKsJPVNipM4nd1QflyYe501DrkwWDR2
/Tt4BlXIhW0ZB6k83w6/rA6YORjn4bZvHHye7t/Nev0NlntK/VFKGwduZewf
YcF2qHT7bDKbNw586e8WXvJtA++dl6K+Vo1DxoaI8Zg2ClJt5JgZAhMQ8HqB
1shYE6zY0OwWrjgBKrIeygrpjVBlkX7f3XACuOczWKJbG0BgtcpqVV9S/4VS
+Z+2WkhndZzmjyJWX8KtKfwChvqZFd+uk/Y/q+0s73wGX3Ud19s1EyClsmjz
n6tcEFTqzYzomwD8yamKtq6GG3LZA3vmTkL7AYHT1wM/wWdxg1PqqycBQ7Y9
755XAf7Cwx/m2E+S/uy4Fw59BKE5eVKd/pPAF13xNv7nezDhrbqdmUHa35Oe
1yZdBvXD471RhaT95G4u9eYtBAy8YnnVEu/4lHclpAQyO+CdpvAUFI9asyos
3oBZK7+EkNoU4HVJt0J6ETQ2lG7vMiHlar0zj/gKQezTup57h6YgfPiv5D3N
F3Blj5ohN2YK+M7Or7c7kQfKvKnI8ZukfZmf6pbvT2G5+lPlzVxSXprqVd6W
A0UFcQeO9BDvdFzspvYIrGz2vbrBNw3hQdv2rz37EJyOK+74bUA8HjmgU3QX
OiTGMuU3TAOfbpDQ9zN3wC+zZtjCg/hWyt7tB2/B39XZeOA48btKlV89NyCs
Ojr+ykVigYM/ovTTQNjLg2I/IC5iUif/vQoXJ0x0f5ZM/xcPY2zXJcjU/P3O
ZJhYXl3TtyAO9F9xaF4iM8DnOqErviEG8m3vecSr/edp+2+GEYBd4Tn5xsQB
L54fnz4BFSEu0+12xIlvqtRMAsFB2nCTiB+xkYhG9lpPaL0nlcKKJA5Pe//H
2gq8Tfu6XNOI3VM1Vcpt2UM171ZEPyMO/nyvs8+TfWJfRkQOh1jlQvU67QD2
nOkT3MbvxEGKCpabjrDjkhyVBKb+G/+f9IKu42ymjoH/Yvos8OndEbaZOcnO
eC1S6KBH/JHdb84JZ+va/5gXZkksZ9ncujOCndfDdrzvSvy3yoP2KJK9Jiz1
DjeI+ODsqYH3Uez3tCO/x+OI5RcYeT04w7Z9sBXU7xIPF+rt3R7NbjbTvbD5
NbHK9eXF1dFsz1rBliN1xLevtVrJxrB/7f+qc3OAOMNIOEc/hl0062rSKcCH
fK7S27NIefjGjR08CeJR5hPul2i21eVVZ8UViK113770jGaLtGsYqGkTB0l5
9XDOsKt0ZRoMWcTFQnJ1ImfYyUdmT24CYp7qvn61KLZTcb+G+ybi3nv2CYxI
9kLRZk7QDuKk6Hxa52l2h+OHwLN7iSO075YlhLPvZeQtuHGIONE65h0rjO3X
d6v4aQixsMnWDfNC2AaGCfs+xBAb5W47mH6M/Tc8VIJKJs7asj9k5DA7jLnD
dW42sdyvtIW8fWwLD8s58gXEaBatk+/GFs5e9lC/jFjl34p3bhvYF9eK8XZQ
xBk2b7we7YTtceM3/Hv+K6c9KB/3BvmGLqvTf//rX9PiSWEAZPqXJD8U40c+
09RMyAuB/KtHl06bEs9w3hm9PAtOf/j16tYT68y/HF0ZBxM2F3QeORCfKNIz
GEwAM6FM1V3+xOc4vqIGyfA+qIb2Oo14jso4NZgCtdv0eKET/Bg+589LDaNM
GBbtKJ7KF8DwjkzP6zNPQD98i93UckF0l1j96JVBCQQfTt1YB4JosOR6ctDR
Eijx7jZ/vFkQVSY5fdOvSsBhy2mWu7cghh8K2hxi/RZC5J/Ty1IEyX6HlY84
lcLHPMWG83xzcajpsXJJ4DvY87PPRaFqLoaLN2l0B5ZDNmXk8Ld5LtrWz/31
T245jFSf2fypey7mdsUk5AyUQ+wL5TWn+IUw47wjn/m+CsiJtFf6vkII+XSl
97/azoGpha/aH6aRdzZE7CpX6xNcsTvnZbx/HuJVk8RgKy44Je9tX3VkHiZe
VDwXv4sLC2pNXVaenoe8uHeTp49wId1x0NYgZR6uH3gUwX+XC7ecHEy1yufh
UM/nIU+BGsh2U6LJLBJGvgADVtWLGnjr+7T4Z48wuvd9yq0W+gJR/5436f4r
jFzxnKnX8l/Aqt/zRSfffByqNHwbp/8FPh6Qzf4qNx9t1YRXVjp+gU8BoVfr
1s/H2JfVqvW3v0DjUeuDJVnzMe5p09iyVbUwENGskOIjgqE7Sy4MbqiD7S5H
kq4eEcH+p62bol3qoJglNf9KhAim54Q0TvnXQVKn1WhSuggaGNrOP5dQB4bW
T7hxXBEs0G4MXfSlDsLnx54JNxJFJ9EBrdsO9fDzm9pUmJUoKro/+LHBsx7s
Cl8HnrQTxXbbfUq1h+tBw+/P7hP+opg+4XgvMakeyivdjIMyRDHrtevdx1X1
IJO4cnCfsBj6MH5n317bACE+XC9vhhhmCdbGnyHvYSf6UZ5qYqizw+LUll0N
8OJ3RrmHqRhm7/TQuxDcAC72YpkuAWIoZZlB4z5qgEzmd6etjWI41Hz0aDSt
EVZdT3xrmCWOlxyPyhdXNkJYdHk8L08cxQZ83HY1NELZIQGXwhJxrPWiVvz4
1gi25kF/1rSI45CL+cLno43g071Dw0pCAm3nFh/cqdwEqcuUo+2DJNDSSVaF
698E7fJOdozTpFz3arbm0SbQEryo1HBBAkM7j3/cd6oJntUL5Dvfl0An1Q7t
pxeboDKkq9ujWQJV1gRW7XneBDPvHm0IQEnk+zQZsmW8CSxzuhjLt0hi6MDP
zuP8zXDumnLHn52SyFNyyb00vxlk/S6eOHZYEhuVR1ovL2gGA6kj/4bdk8RM
vfDL5UbNsGzJjWhrISlMn2XMigc1w95jXj0O/lKYNfBemN3WDG9lPkquD5TC
3N/7ZsI7m0Hlse4qk2ApdDi/0dOwtxnaOgfPqEZJYXBAFidkpBmc7U6o/0qT
whViLyQOi7aA3ZIEtxiOFBaMdZupr2yBJx9/nzlRI4WNG1Pfaxi3gJSnw6MD
DVKoYzrYKg8tUJW6YMr+O+nfuH62c30LbBTOTFGZlELXjJM/h11awPx7Qe1L
XWkcMmJw5oS3wK0whalsA2ls15NT3B7VQt6NMPUMQ2nkDcydcyO2Bd7YWgRG
m0tjovIIV+JiCxi/+SRp7yyNllbeikdvtcDylI6N/WelMXdb+S2f4ha4uMIq
8GuCNAZf3hegUNYCQ9X3Uz5flkY0kS4r+9ACj4UO9BTckkbbhfasyaoW0A0a
O3PmpTReUkgo5FEtoLpVrETppzT2S0oHmI+1gMOLrd5Jg9KoWPHE+v5EC0Qv
TBYVGpVGA2SO88+0QH/fgu0DAjJ48LAMK0WQgoJY7b5XijJovWpPqa00BTZv
zRk7bWUweI6N6bAOBacXRRdWbpdB8yBju6LFFOQllu/GXTLoe5sDJ/UpkN9t
+1DbVwanXnq3fmdR8GNyF4xGyuBHC+E3VmYUhK48vj85Xwa5z6bv+GyjICe9
SGLeGxkMNTo2fc+ego45fHknymRQ0VhZptWRgvWfo2c8amQwvLD0toEzBbRD
l5IN+mQwb0ip7ugeCqzrG4wyf8ug+959oUGeFASvUWiT5ZF4AnG9rzcFbaK3
dWYFaai4vjTczJeCh1k5rz8p0TBUck/9uX8oaJX8s2etJg11suQENx2mQOqY
ofDzxTTkfTlbOOcIBUetXtulG9Ewc3D5sFswBWs7Krp97Who9/449TqMgkaF
LmnhaBp6WpZS2uco+PDgEE88joYVg2+U3c9T8GLVeBstiYYfTVZHJMVRkGwv
lq18g4ajJ/aX/4gn63t+ufWqFzR8yhR2WpdMwZoFRXprimio13Q/ftslCvTu
W9Es3tLw3qU+3e2XKZhf6tRuU0XiKQl+YXOVgrKJsBPeXTSc8EyeO5NKwbNY
YQ//fhoGe111pNIouM1MWhc4TMMyi0U2z9MpOLX8Lj1shoYbz4Xt3HGDAmNf
zuPLTDpGUdMvXW9RsIjncDlNkY6mjPql0rcpkItuC7mlRsf18jLxxcQjt36v
f6RPx4iaN2pSmRTkNsl+L7OmY2zkncjD9yi4ue9WecVmOm40vEvju09B/Ihu
LteOjpaOwx9jiP2kzU5SbnT0LBUtic2iwPnmh70dnnQMaDsnI/CA7PeSbRt7
fOkop/Lq3lFirQ2esn+P0tHWTzFv20MKGA0D0+OhdAxXeWBSQCzodaxzNoL0
d+SGmvy/FHwLP/dENIGOOCm4mEvMlaBfk75Mx6Ivoc4a2RS8Sb8eJptGx/pX
vnODiNMLcjep36ejWozFz7mPKDhvbbx80SM6Zip2LF1PfKK2VG7pMzqmW7uJ
RxP77Nkyu+IlmW9gcCybeMdQ/Q9jNh1DZ7vu/yW2DnOvxHd0fLNle6DmYwpW
iPU+teaQ+VX5/NpGrJ56OGVzDR11aflqJ4hldKZP2TXQcXNrNeMGMd+LaG+n
Vjq6LTGqek08aCG1xe07mb+dn10TcVtNCsvzJx2zeM1ZQ8SVu9XlfQfpGL16
sGFODgWvBrL5AkbomPRAqEuG+GGIYfeRSToO7TvatJD42vziTyH8DPyrd65A
gzjm6oa80/MYWOsUdVabuHPJbav94gzsbcrco0VsXjZRb0tjoDD0e6gS33S2
9zFawEAnZ60LcsRTQ/+OKyszMP0is1eU2DlG8Pw8TQYO9R4LmyTx5S/cpTio
y8DiBdNbu4npec8f1Rsw0O68rWc1ceBGCXhjyMDcw/SSZ8TV7d7cu6YM7G/q
8LtErHeM7XHBnIGdmVt8/yE+Jy73J2g9A2Pvt5VsJO6+ExDlasNA00eywSrE
lsblDEsHBmpEByYNk/24zVW9v9iZjEfzYJYQu05/Lp/wIv35pQTYE79MXuzS
4cfAwsKb22SJmbpR/eX/MDCcevqkgZyPmu0rJVNOMtA7RV3Qhlh/4EJGeCQD
8xby8QsSx0V2LfM5y8ACt+6LL8h5s8696rDqMgPpP8KjpInvWA/9UEpjoMSv
I0MvyXnla11/TOgWWa9tk4K7iV/Nn0ipyybx3eozuUnOu8Fe16+HyxgYH2Jy
gEfy5cJ4XoBLBQMzlIsfRBP3JogLWHAZ+Lg44oU08d2iNxoyFAP1mTIOSiT/
5Jmqvrl/GOhwTkhThuTnsezjk1fHGRjVsHN/zB0Kas0/x52aJeOXNt4ZJ/mc
cCgyx0aUiVRjtXgdyX/B8h9/+9WYmG57cKXPTQo8dptF1+ow0bJH7t935L54
M3JFtkifiQaXl5moEB9XW2983piJukP2RZXkfvkV8vDUIjsmNpafL5pD7qNG
/UMi3qeZmHeAP3CA3G/zL2YtqIphYtf5HW1ixMZ/vukYxjNR3rpv2aIkko/5
DuuE0pgY0eN5xymRjI/GUffymOg+T9YsmdyfvdvmznR1M1Fufl52SBQFCnlm
4lt/MbG5paDLL5KCzcxgxfy/TAx1bt++M4K8L829xjH8sjhjvKl/cTgFQXu5
x7QVZNHTuc8/N4SC6aC03/tsZPFx5tKXxoFkfxtq+bgOsmge2X6Mj7wP7qsl
pIxcZFFI1jmv9BAFb6fD9YV9ZFHvfWa++QEKoqO9/bJOk/qHFHep+5D349qy
Hz15suhw+Hdh4C4K1F59aNyvIIdCr/3XeFlTIGm5bpGnqhwO2a71n7Ik+VP5
/ribthzmWQ43XLSgoL7tnbw9Sw4rs+3/yUdy3gXKXE03yeHEDcXJAWMKhjcU
t0uEyOEeYaV6kaUUlDYW9DxrlkNv/lVrmEwKPEcf8KZTFuD1bypVU19b4KYW
O/GJkQIm9Q79/kp+v4QGXqGqqxUx/tyaiYnKZrA9MHY8bJMS9tbefD13bTMo
7TqfsLlbGRdbhdt8vNsEwycdQuqeqWCQYp6GFr0JPn+Y8qVHqeLsDj3aqWON
EKkcnRdrq4YbtUr9DdsbIMemVstKUh31zKajNbY3gBPPxFG6TR11nGSddpXV
w8njPtmaNzXwSb9ssiXWw2Hho7sOuWqi2dfe48/e1sEP6esVHxdpoXTwAu1x
szr4Mhzr7vtTC9ef4uVbfawFM5v4pwovtfFbe+AJ/c21cCI/yE3gjA6Kth8+
317/BZbxlFnLLBahkssBAa8DX8DrWWfpIWldfHrpdIH27GdgWB88OVqji5p5
nq0C6Z/hSldj4tP4xVj0wE9kldlnuMS/yz3MRQ/hgMU8WaoGxP/edUqSX4Ie
E74Pv0TWwBwPYfEXP5egb9xsaLJ2DQTdXdqr+q8+Kva+KIiq5UL+2CrVUp+l
GHPd0Kf5DBdMOvREjBUM8HOxRWoIi/wfW6FyzTDEAHVOdcud+VwNeRYqgibf
DfANnOnXW1UNvCaphc4blmEs76HfzJ0qmGjZu/F61jIy/82mZspVYJxW6tgj
uRw19v7+IXzpExi9P3NkR8BydG6ouL+N+QmUg43Mv1Utxxnz9tZvNyrBsnus
P3AlC4OXDte6q1aC9tsF2TqXWUhPLtP9lcOBc45b59deYeEXdVOvyUcc6O+J
8j51jYUDv5W/C2dzIFdySKU+jYXH+nlZGlkcMN71/nLkbRaanzvrsjuDAza8
wFNtOSyM9+PZfkvkQJB+pd2lChbuTDDVkA3kQH0Jfy5UsvAjLfmZXgAHVjuu
Eu/7xMIT54qjzA9yYCbk9oe1NSzU8DrYf9CXA7HlwaaDDSx8KPqyumIPB9I8
NbU2/iDxWyxpibcn9cecI0e6WGi6XzkiaxsH3M8ntmf0sLBGTc337VYOaDyd
TB3rY6Gyos706CYOPJ6tkbw7zEKDrW1L9lpyQCp53gHbvyxM0p5uCTPnwGGt
NRWTIyxs/qeiIhU5YLQlK8punIXMcPD9YsqBVLKM0xMsHKeq5IeMOTB9mAYP
plh4rbVFVHw1GX/ehnSHGTJfR+c1uqs48DY1bHx2loXe8mY561Zy4H8WENTa

     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd1nk8Vd33OPDr3msek8qUmXok00XG1pI0fUoeKbPIEBEKhWQOlSQkaVKp
VCqPREmFZEq5ZEoqlXsQRVKu+bt/v/PPeb1fZ5999rDWOlt5T7CdD51GoyEP
jfb/7i8v+aTsK5oE2v+/BLCm6U5a5INJkJCZ+v11mB9dXwV2ODVOQuGXqDvW
m/gxo2LMV3ZuEgpuJ0gkLOZDzUclD6aXcmH9bMY+djwv1j4I4/bocgF7BRsz
/zCRW8A9fsGbC2k3uuMSRxiYeaWi7UgMF0aa5uIsgxmolRct55rLBYElxaGZ
f+nocZp2T76ZC+1eRcGaknRsjBRgX2JNwdja81aeETT0DmuSjtk2BaURB73a
ZGk4H5Tm6b53CqRUfJsl4xdA31vit8KFKahiWlSe1JyHZvc2s4XSKSiWipiU
TZ0DX6fspM9vp6AvZ8vGtcOzkGcjvTSfPg3r5fck7K2eAYPNPe5x8tPQXxR2
i89gBt5aXbzlYTQNcdlBUoF3p4FuomSivG8aAtUDdNpvTcE+1ZWu11qnIfew
UUZa2yQwFb4XJAxPg8EHz75q30m4LF30Yw/vDGQ8uvo9bv4vtInqxqqazIDE
i1XFcsZ/IVBgvJ6xYwbUXHYdqHj/B/gYpRL9gTMg3dHU7RfzB8y4a64V5M/A
polrT1PYE9A5PvU9qWIG/Gb7ImuPTkDIj6csn/YZcPzUueX26gko+Aqv1AVm
IVo6IEbs7G8QebNx8GbwLDgWRASPxo5Dzh4VI3bKLOjutbprsn4cFLmziVNX
ZiEp5IPERqFx0FctUdzKnoVcmYGO0Au/wDFS3uGX7hxUvkjuv8Meg69ikwWy
m+cgbLTaK//qGAQUtI5bec7BBCO48E/oGMS0JKfnnJmDEK+a8LPyY1Cg/uuV
2fgcSKRV162e+gnaT18v9hGah1SzvfZD939Cue1Nz3SVeXCU2mTyxvcnNB1x
meuzmwfjDLz1pvcHjLW+Mkh+OA8rbwxcF+obgai9+QkPXs+D9On6LPcbI8CY
i2J3f5uHwoxnd30DR2DpSt3AVVILwO1xz/JcGAaLmLzr7LAFYH9tlHu6Zhjq
Fof/mkpbAGmtmxa+gsNge3s7qN5YAAlhmdCA3u/g3c78EN6xAH3n1ti7JX+H
n/6fV175sQAY+NVhjdt3qFxwNeun01DJUkV2g+F3sD675rioHA0dlenHPw8O
gVCfmq7KChrSUhIeONUOwVtNyS4jFg03fRZLGsgfAseqETWP/9Gw2KS/QdFt
CAKGr1aVHKFh4e7vYyZfBkHX6PTe+hQaevTbCafUDsJEXLRYbxYN/fyGA4sL
ByFmqYMrbxHpb/b4dGzoIFh5rmfIPiYOOJku6zwIAkV6d7Rryfgmxo2iLAfh
jKUI16GXht3zz51CJQdhV9rU5cBB4vyZGPrsAMh2UdbxE+T9jGHhddQAFARW
Z90R4cGVcN3yReUAlJ87pDNnzoMC60eKWAcGwPE3j1bHJh70eNn6Ut5jAKZt
Tq28Z8+Dherd1KntA7CWr0DZLZAHU5UPjkzpDECfp46CYQQPVhVp9/xQGoCE
ZxWyoknEpqODLpIDUBfWuvjZBR58vC0l9vxfCvzYrhJnb/FgnJ1i454hCoS0
BkX2P+TBhjPTj873UrDt2zzv8tc8mCt1sG99LQXt/2pxo6d5EOuXR1nlUnDo
XvmEPR8dQ1avstFKp0Ba0OqXFqkj3ovLwvcnUeBa5fS99x86ur794TZ6gIJ5
OQ5Vakjqjtej7FX+FOQfDvmWZklHmqa9ULkHBd+0U3rNnei4vr4OHtpSkHRC
8r2UDx0HXeWGFDdToEFd6hgJoSO6JV9/Z0nBvkulby+m0nFTo8QDAQMKxoW/
Vs2W0zEjsynpkBwF2Xv3P2t/ScfUPTufDy6hwOgl90lRCx37d+UzsiUoiIoS
f+g6QEfjzP7Y03wUyHfmPTD4TcfScd7yXh4KnutpFIks0LHbvHjKdY4DPEPm
NyqXMrDvpqjQrwkOXFvfcDVbhYGVDe4q9F8cWJ+/43KgNgM3+c724A8OpDrs
Oye/gYHt/w4prqM4oPnwT9bEvwx01HxpQv/GgWax+IxmN2KbLLHhzxyQqDt3
PDqcgdJ6uxz1ezhQoqyabB/PQKXHgufSuzhgf/R+gtYpBkqEdKiKd3Dgb7dJ
LPM8A/1ecCZK2jiQa/DqSG8BAwVqafyRbA6YZthGlBYzUJfu4ubxlgO9wx/C
0ipJ/xv38/g1c0Dx+vh+83YG9k/MHWpv4EDV/NF9Un0MjAh3jFxTz4E9zoJ7
R4bJfBo7NctfcYBZlu1VO8lAY57J/+xqOXBzkZLHRQYT44RzTAVfcmDT/ruu
YeJMNBd68+d9NQe+Nxg5bZVjIu1Ci0xtFQfS1Gp2qq1g4gT/6y91LzigHbfN
blaf/Ldc6k59ec6BiNC8LR3AxCTrmt904mrfgXX3tzLRdcDmv7XPOCDkbGCW
4sREdnXNt6xKsh7b4lkevkzM+BR7n4f4Mr5dZRLKxED9JtOUpxwYZMmpScYx
sU/vSrkqsf4KP/nhNCbKn0536qzgwBHZR1K155n4eFm282XiWlG66KWbTMy/
PT4VRSzGs5330EMmShlJRAcQO05cmLOpIu2b7DSDia8NDP5Z8YaJjrnzdseI
R3oMf9J6mFg0KrX5HrHh2wTqPUXmo2XgTRHHVLd8KvnNRKXUCJouGU9DqXzX
SRover92izlOLFno3+ItyosZPVfXjRO7XCirt5DlRfPFK8v8yfwK0hlVS1fw
Yvuhj9ajxD/jbR+PsnhxLO/SngSyPsbhl4obkNhJOl6FrF+C3/fCq9t48bHF
Y5kW4iXbk87v2MuL3HCVe/8j++G+rvWMVhgvVrWcuCNL9qvQUOEELzlX0MbU
V0wQm8s/jirP48XSu7X1tWR/9wwNu8i9Jd+PVolkk/go6jW2n+jhRRF9i1UD
JH7+tBzb+maAF8NSk+aZTST+yxQtYnn4UMBqPt2exNuDxB0K3wz4sKoq+YxJ
Kwdmlz/tu3OBDx+7PjnZ/oEDOXYnfEz9+TGf7rM1YZysd5ZX35pwfmSXzpZ2
/uaATLu5i2E8P/bOrw/Q/MOBiztHbXXP86Nfls6GlkkOXHW0N9do5Edd/Hlc
mORrkbvCYsl/BLDqdmfCGn4Kgq5MnhI3FMDcxEixMAEKdPrYAqKWAsiNW+Vw
X5CCEs/EeX4nASyoPP9OToSCcu/BoblUATSWNkvqJvWiZl9J1dCgABYav6Wa
ZEh9unvSbGBCAOU12qM+yFJgPeJd1k8TxOwx7feDpP407F9W9FlaEGlPbjZM
LafgTUj0uY5Nglj73mLHb2UK0v/bKfnOXhC736YvG1KhwHZc+xTbQxDtsNnh
gyoFbaFfEl5HCGLD7uerHqlT0H1oQ1B1oSDmmD/71+IfCs6XKw49LxVErVkT
1aWaFDhzuV6VVYIYF2hvPEz8MfKuU3m3IF7mGV56QouCr9ES1vcEhDDPMmZZ
ng4FBc+GXtyREsKIiqpwe10KfOZrTAuVhHBMMPWXkB4Fg7HhuteNhTBo+wZW
oD4FPxJ65M77CWGCq0PKAqm3u1zCM8+FCyGVlbPuliEFVSwJwZwEIbRxjbXb
YkRBZr/138yLQpjhneebsIaCmcq+wDO3hZA2mu27zJgC77NHvp0uI/0p1JXc
Ijba8B87jU2e89E0K0wouKKwdePJj0IokvDQztyUAoFJ6tnx70JoOzda84T4
wy35u8lMYWz3f3T4phkF6+PKlY8tEsaDD3KfLjGn4L6jXW6igjB6VJRZxxHH
CaYeizMWRrZJ6OqNFhQMfVGZjbEWxl0eP05eJ7areHbwqJ0wchc56M8QP810
HDqyWxgb/p5UtllLgVrA791RgcI47nXG+SLxKav0zohIYby84uwnDvFfuX+2
HU4WxlrXkfuaQEFjs7tpWL4wqmnfMr1JrH9jqvjgPWGM2xE81Ut88Wj2igMV
wpjR/q+wOFLAu0vncnC9MK695XDQnDhIu0kqqF0YR7Lv6PoQd/H5nAz8Ioz9
5tmbjhPj5wWegJ/CKLX8aGUh8e3yvAj/GWFMzR9Of0ksmWE4uldABCtZiTXv
iY/4sX18lxC7M5yHifsxoNdbRQRz+jc4com3yfDt8NIRQb/BdVU08n8t+5Xf
6GkugknL+M4yiRWbzNBjswj2dZe/ZxCnXussc98lgoHx587Mk/fHow6sdvMS
wYRTMy8miF12iBS4hJD2n2z9KOLaVbdknY+S/hZk0t8RazPXnXE8IYJS/j8N
KonP9fbyO5wTwYvsSI98YtqjwzE7C0Sw+dARqThi/1OSf3b8J4JB0a/sXYjb
fO4F2D0XwVlTc3V9YrO1m77avhZBm6sdx5nEBUu/OW7vFsEt2bnJbWS9RUeP
tmzjkOc7LipeJD5UL71h67gI5vfxO3kS9115WLllQQTX7l+0RoV4c4QNa7OI
KFY0zD37RPa3xHbo9kYZUVRqVxzPIZb/J0lpg4YolnK7urYQ/3z/RNQKRXH+
SXPjDRI/DiX2SZbbRLF7leDnrcRVJ0anwVkUFXx6ykdJPGaaqQ+ah4lic355
3UriNZcyaowKRbGqYqbXj8R3THJjOrdUFLn6CZ1jJB9qg+kuFdWi6KG67XMY
se26sN8WH0Txmr+F3gGSP34DDmrWYmIYdqPJyYzk3312xhifnBjOqiTZFpD8
nHjSWNmwQgxD7phECxLHp5nt3GophnUjXccaWBTk6Skm7wgTw5WS0UMyJP/7
ZB3tlsSLIX06XdyH1AcN5hmFrlNiWNwUfaaI1I+HnfRy51tiOL81s1JXm4Lm
I9SAZ48YtjMem4itIue9V/c2h6A42iyTUldRI/n5gFqiv00cY4w+OxmS+nYi
V/HrbydxdA96bmJN6t+ygDNRh0PFcTrxjJiLEgW6EuF3Y24SO284t1ueAr3V
l5M38ElgCP/NQ+zFFHgd9hm0D5RAbuLNzFAaqc+SDeKbDkqg7r61OuYLHFC6
r7nGLEIC2+n+gfR5DnzqHz2mnCSBBVZnu1JmOOBsF6X684IEBl2I7zn0lwN2
q0+7p7yWwEz3s22DwxxY9+1x+xPNReg4vrvfkJy3lLeLVCsMLcLeZdJyBtfI
+aNsu2/m6CIc09zU4JLPgeTlWcJ8fxch7a7f7fjL5DwwLLPrB10SGesclzbk
ceBx6orhp/KS6D9O8WAWB2xq1i1xspVEvnfSGz8nciDaMNI/q1wStRyv1fz2
4kC3HLVIIHkxyne5FWsocSDl3ObSeP4lqOS+p+rQuX7o1g4W8o1firMvghTN
hPpB5Wl9t7+cNHrmftHVC/oG3n9vc+fOy+BPZ0FR+PgVrmi8yPjPWA61A+OP
GFh9heiDOb0tLfKY8iWtJL34C9jun4yM+Z8CvjN9fKdA6wsouJ08vXVAEW2U
LVO2XO+D8aP2RzoeKuHVxmW7L6/sg7b62X1SScr4wXooL2jHZ0hUTC5NtVVB
WU75WV3fT/DApl3DWlwV9/BNB+tkfQRHrtnORZ9UMfOnhbzBk144GulXpH5F
DWV2Ccw7Tn6AUIFDbsGu6ljpVVc7YPkBOIsuNTX8o4HlKiEzesk98G481WPf
kAZKPVEzU/r8HtbapJfIPVmBO2nRCR767yGqPMydfmwlqrY655ZldIMeV5Gl
Z/UPjk1YMHJp3eDzsP9l8CJN3EzPidYI6IIlG4KO/m3VxFTfpO+lnE7Ioboz
StJXoXnsxoG1fp2QzePmEeOihXHSLR9fcjpAdOKGY6bsamRG3zcXPNABDE8B
0bKh1dgltPjojcl2CLuh8135rjYmiQ85fDzRDuWTa5Rf+ukg65ClqZVaO5h9
1RIyldNF3w69nZZP3oGjgVKu0RFd7C4JVNdzegelVkpMs2+6uPuA31Lmnzbg
vpdY7rxZD1Mbg+MCc9pg+oPXlkuFeui2c5uNm2UbmF54uXNQXB+jm10kAwdb
wbjuWLhDiD4KLJrx/je3FRQjjNd9eauPY5d0TvlubYX1A5MjBw1ZuHQJv0Tr
LBtW1MgUrTzLwqlvPbFCj9hwYud2wfYcFjKfl21seciGkcEk39hcFnrclbXI
LmFDsfiYUucFFt5xsi9WKGaDqVvd2cRrLDzRmFBueJcNNtyDsZ8esDA27yAG
XmVDmHazXXYTC9t6nKanT7Ghs5qnGJpZ2MFq8XiVxgaTnWtEh9+wUNzu8u/T
J9kwf+RavWUrC9Wfq11WP86G1MYI89EuFprTWnh3JLHhgre6xhYOC4vuJy8r
iyLtJ50T/1AsNK2ygsRINniczOjLH2ThJ6P6TNsINqiVzORNDrPwfuts5XA4
G+4vtIrfGCfjq1BdrnaADRJZ/PttJ1iY3id1bTyYDaEaFk0zf1hYfyvRrjqI
DcbbCpPsplgoRD0y3B3Ihry+j1/mplm4afNeP+0ANsyFLobbsyyU0ThYN+dP
vs+/+aL9PAsLIt5sf+PHhpq8mKmFBRYehhDmpb1s+D86+mSE
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwdlHs01Akbx2eGYdIot7xCJJdUVvSTu56nUttFiGmpkISR6iXSBbnk1lYr
SSrqJY2yu0rJsm1tuRTRujUuU2atW7lEZsYYY8yM1/s+53zPcz7nfJ7z/Pc1
CorwCqGQSKS7C/nfzs5yW+1nKgHS/4eGLVvvPAy0lYBiiuTRpRplpDisdDAK
l0Ce+/eV04uVMdzY3K+oXQK3vJ+aZb6moqLBGOvCVwkU6cdE74+i4n90SieC
qHNQkXlNw2c1FT+oWiUaO8yB38Mum7s3FdFJbFfEKpwDzkfrnqNXFbBLMDuW
+seCL/1U2rVXASMnXhAhHXMwRLv0z+QyBWQNwFtTmhTe9bVZ8IooSG/+fuRB
hBTeSMWbalvImBu0yrYtQwpjute1mIVkNBRLU2YLpBCs0fbQIpqMG4zLDd3a
pHDlsecTsR4Zfc/p+/CtZMApa8M/zpFwYMkMS3enDJoMSrovepPwGKtdsPWw
DCLv9rk7W5IwoTU9M/fagr9ksjvyr3lgmfLfOglk0LftjODlazlYvnivGaIi
h47t6o4+SXKo8nxwOHOVHFjLC08f2iKHpriDsj6vBW4/mZrdJANe+1ub9Gdy
CFzilJs0JoVYZuGFsvdysNe/2ZP2mxQUZLFtnEE56DziTD5NloK2udXxdVrz
YJLA7D+0QgouCXn3207NQ2l/o2jH4Tmo14zhz16ZB7cAbdpzmznw/NkDjIvn
QZwU5aCzaA6COxR7YjrnwbxR8M/lCglsu2H3o6oeCYdi0qUlyySg0mditWo1
CUceuiXxJ2ehZa1Gty1BwnfjmyxlTbPgWz1uEribhEkZl4d3pczCsa/3qsvj
SPgkz8Fxs1QMVrZXmQ0ZJLyVwzpnzBWDMCl+Cfc6CemVjJHil2JI0Pbxo5aS
kDHlsyg+UQzXNtPFPlwS2hzzINHoYqi6eXq9zJmM9NJApxqXGfCdIlt07iCj
2tOHlSlmMyBx/8n8EYOMv5cmpJctnYFNSiwj/+NkDJyqf+UwKIL6U+2af+aT
saS5aPGnTBGEtfmp3XhIxncWMzYlsSJQsRihn3i2cC/I828JFcGeQTl1xXsy
jtNa5Loogo69FuJ4CRlN1rszLoim4fSjKiFDiYIMlqmAOzQNOou28i00KGhQ
xPNLZk+DX/X+Me4aCmY6ue6693QaBi0zuM77KejFER/XPDkNgsUD1dIqCoa5
Jj2+MieEHOaJPzvqKJijbu76cUIItnXi56WtFNyU1+d+oE8IsbFLn/kNU9Bi
X23U9FshkEedi19qK6BacIdu9HUhqNXf/DE+RgHD3EImqmyFUG5knM5IVkDX
wPFzXeuEwDj/+ILFTwrIOxn/TtdICLds3sZxWQroF6RWqk4XguF9wQnnDgV8
kkE5yxqcAsukPV7SDYpo4Wio03RrCs5G5+3qBEXkFrgftrk6BTWhw1seuymi
iNk59SptChh7konAUEUs8uS7boiegjjd37Te3FZER7fge4keU/CuQr/7MomK
ZjzmAWvVKdAoOdoarErF4wFaVj7UKTiYX9ngokvFNw4b1+bIBPAt2fP3SYKK
5XzTsr3fBLDMI/W2N5OKvQG81JY2AQSNfj2o10JFk4MZOdG3BVDKtWcIP1HR
9Uz8BCdbANOtaW7Nw1S8c/k63eOKAC5WGrokkpUw59qU+/FEAZSleBsM2ihh
Qn6wSVCoAKQrXvT9kq+EXs3dZyW2Asj1uhTieFQZ2/R/MDfp54Pv9SN9djEL
vZYVoxHN5cPyDueDG5OVsTDfe7yxmw939k16Wt1WRi2d1M+ZLXy458twNmtU
RmHa8z1RL/lQGmCgqbGGhtU/qYhSbvOhNry8enSEhh/+zJNo+/Jh4sInvdth
KmisNHw/ZYAHPxyMyb4Zo4LrVheUve3lQTWhtij3ggoejQzUX9zDg+yhbaLs
Oyqo5LN9qIDNA9vtT9uutKmghrSxafIND5IWXUxLsl+MYlHVfYMSHmhkbZxk
0ugY/G37v05G8sDublatbYkqHjAN6LJX5sGRMyEjjONqqH9ttDDj2jcw8qDX
GIyqY/XD1fL6HRPA0fuiTkvXRCX6gSiHua+QcXNnRbLyMuRcpbzc3z0GHMsI
ldBkbTRo5KYlNo3CqhcNnKN6Oggf6HXrn49AsOhnsez2clyyjfIssWkYCsxe
Zz2110OtIyrys5wvEB+Vy21t1ccGmWS4QPIZPE/MnEvYbYDWlwtP19t/BgP/
y1fdhg1RceWW4SfRQyA4z4jrfLYSaWmdv65pGIQPDdJwrVQj5C73Vi/71yCk
GKZXXPRchcK9PxxadnoAytw7zLYtNcbdzDiLFSP94Ct22qfea4wJWzZEUn36
4fy5sFLTAhOsPhRfYdvdB9G00/4Rfqa4QtimnBnYB5/V7za9W2OG/s31reHN
/wBbcDEwfNQMewWeryTTvbDJPbNc7/lqbDRMu5St0wuxVacCKGnm6FC7ufjK
rr/BWmxIWG9dg7WZSxTfX+dCyLOhugj1tTgQ8QuadvfAsu3/Pi9qX4vjOqyZ
0PU9kPuFk1WeuQ5fMozfbM/+BDlk/8CEgxZYW3egInLyI6gKi32zdb/DBzJ+
y6aAj6BwmKZaOfoduv5odr6qgQOnitePGf1qiRM2ejMbN3OgasbOqC5sPfa5
u9FLa7vBacBCxVHPCsWjhmrK0A2+Nitv2cZZof6DkFeGjV1QsXWlotOgFfZu
yaw86d4F4o9qKw7stMb32irvP37qBEnPkV13S6xR+9ipBL3oTnDMr9s3snQD
ModfPWUrdYJ9fVqMT+QGDKpUE50r7gDDs/Zb+lsWWDdind/ODnAdnhmP2khg
hMaN3/gjbFhdu7zU/AaBYQneYyuy2XBpn8eijlwCV4a3cguz2DA+khqaeIvA
Jv9imslVNjxZylvZlU+grosFfd0VNjj6199IKSJwqhlrnNLZ4C6OSuwtI9Bu
PozDjGXDKcu/vHKaCBSfuBE0FsSGrhryE/iLwLd/dzBPHWaDwz471a/NBPYH
cFnyQ2yQxxU1bG4nsGqnRr2mPxsuNp51nuwmkBVbcx992JAfbGq26zOBd1+c
rmHtXvBnDqRMfyGw6/0Zlw272BB4OauvcIRAht953usdbDApn8ub+Uqg+42Q
uZ5tbHg83760WEAgc4/vfW1kg9p15ROeQgK9v1vXVbyJDdFmLk1z0wQWaRfB
Rhc22O8pSfWaJZBGd6tkOLIhr+/vfpmEQC0TZt2QPRtk0Zrws5TAUH+RUozd
wn/lnXcYcgLz6ieSqLZsqM1LmJ2fJ/Dlyc3WuTZs+C9eA6sd
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwdT3k41AsbnY1hypLoiuxLcSfbT8j2vpQWN2u2GolESlIiydKoyJUkSjF1
r7b76ZKEuH03faRsLSKGIkmyRDc0zBhm5vN953nOc/445zzve3T2RHuHUUgk
0sVF/k97mjTXDhwRAen/kMGUtvTs/Isi0P4gp2H4hI63Daae202L4P1gI/sI
mY4mf79YHsYQw2Q8f+hapzTWeP4Rkq0rhixl9zWlxdLYmsgSDXiL4eq9G2q7
t0vjZPtzy/RKMagaOH1LrpBCh5TCW29iJSCM6DbdmUfDxuVxU3NZEtjytvT4
7hgaet71AL07ErBwLA0UedFwbyetN65LAiafhzJ5SjR0uWz9q5w6CXO+uagd
4VCRMaBvpruahGukDyr3plDxtbFStxVBwllLO7eGPVQMqJvQD/6FhCsSvGco
TCpGjt+oq0gkYTNFUjvdQEEzqwv7ms6SMKW3rZpcQkEeO0m+L4+EvN6VrxJy
KZiywj9QqpSEzrEPGdf2UPCi01KBfx8Jk0o+GkXSKVhz5ZipyJ6MDI6BZ2wI
GQN+kJldW8hog5VpSe5kFLqfX3PPh4zbbjUvfWlHRkfp2zq7DpJx4cCfG+x+
ImNjbPvyWg4ZbYV1JUQ7CTu9mIIkIRm9axvjjniS8Ni9Gp6PNAUFPYX9Xk4k
VJXdMMVUoqCLxmlJmAUJA+t2fO0zoiC/qTnGQIWEn03O9tnvoCDFTd721SMJ
TC8ZrFuooWAGcNSCxsRwaV9Ubefi7qEjBkZP3ojBqkHwqLSNgvKyU5wDf4nh
xAmFysARCtqH5BrcyhADecz+zuMVVCzn3SiPYopBsfHKr0lxVNzI/r3Mjy2C
Ch29dJ9UKh4f2l78JVIEPsllp5jnqdj3s7zknr8Irlo+T+y7vdjfU9Q5bCoC
rVvTUfadVJxUTq/qH1wAE7ab94IFDQM3sfbreS/A8aOFrl1AQ8Gqx1v2wQLU
h484l22joXMg9UI/cwF83FKJ4HAaCh/crAiVWYBEtYfKzwpomJ+VolJePw/N
Vau6z5GksFBYNHPdfh6Uive37ZWTwpy2bseHzHlgcaqbHNSkcGK/X8KPVfPw
T6rnX98JKfyqImIOioSg4nGmYPs+Kaw75UHE1wthz9g4S/21FPbFJ0+I3YVQ
2mfjw3svhWzfnS6OTkKYaUvb9mpECklvhwo4hBAyqrUcTpKl8Q9yhF+ZqhDu
n96u+dlSGn/jSrFXD83BgsbfA39ypHHLREcJgz0H+d6ZYbb76ej5V4IxvUUA
AXmhA9ZxdDzUeLBV+EQAKzvtWetS6fimhnZLXCWAa77fPc0K6HgsfHK11Q0B
3AjwsTdsWfTHE7lBJwRQGqS5XMlIBosa7xofNBXA0wMVdWOjMui++3Xqllt8
OFNyzm6EJ4POFcPrvxbywWVib/UQSRbDKSVD+bl8aI76qfSjqiwG0I7lKp7i
w6vDSVe6tshi/xhvPDWEDz3HNh2qL5bFAvJ9sbMuH76deq9eEMFAapDumbN/
zoIfKy73ShwDQ2k/amtuzkIdoSibf4qBJRapClOFs5A75DKbe42BzxLhcsq5
WbDa9OBN1hsG6s/ksSlRs8CWzUhj2yxBhld1eYH5LCjlrPu+T2Ypjjpvc4ur
mwHr6zlPrYrl0C/K0dFhigcp6S3Zgio5nOzKzrUd58GzaArr3/VyqH8qrcr+
Cw88nWN/OPTKYfKkrZ3HOx5EjPjru8jLY/qMh0dpPQ8KzbXSt8fKo1q0yWvH
PB6In9/behgVMN6+KCFrPQ9C48NGfQ4qoq5HfrfbxR+g47G0XnNsGXZwOJOl
8dPQoz68TCZ9OcZr/6xmGDkFZ69srUqlq2BzcDvrt3OT0GMSzQhPXYGOHa4T
DZnfQffvpp796qqosdTG14T2D+ydvSsQFaxEpul8QF3NBPxu+J+cBzbqKNyR
x66NGoekmPy+trZVKKW2X+PBxq/gGcVPSPlFEy/0ZjiPbhwDzV3nLmwb0cLH
mhs2/7RxFKaTfRK7KrXxEOYJqsJGoKNp4YDyGR1szTHv+iNtGE5rpVdleOoi
68Gbo0qPvsB9905DFwU9DH8xV3RT+gsECOx8l/XrYcV5l47DXkOQnBBRavC7
PsZc4o3VVXyGozLHdkUHGiCr2nHtGu3P8GXZ9dZmI0OkPJbv8MochLfTGcEH
xgzRN/9J0QHpQXB0z65Qf7Qaf9PavHXPyU9woiY2iJK2Bot3KO8wp3wCc4EW
Yb7BCF0vRVNO5g1AWOVQQ/QyY3x8aDclV2cAVDYdSp5tN0bPFw20lQkfIX+4
J6ci+2e0N5YUuT/uh0vkXcEpLCZSooczNeY+gBzvTkCu2lrcenJdSOwvH4Aa
IiNXPbYWy+m2yS1X+iD2julXnRIT9Nvplp/N74UavrVOQ4QpZq3271cO6QW7
QSbDVt0Ms8RyL14+ew8BltpXrRLNMLggyF9+/Xuo2qBNs/tshkHKVX4f//UO
BO8UNXZuNUeFvbdVNmu9A2FvqOv1YnNsY3PK3t3uAVtOg++oggV6U3S97Ax6
wKYxLc7/sAXWsgzP3qzoBq3jNs6fXlvg2/yyFq9N3bBxhD8Rs47AFgU9llIX
F1Y/XVm65jKB3aovfcyjuZDp6yHbmU+g7YrRIzFRXJgYPRN+8iqBlopmnZWR
XChXmNTmcgjM1KZFWEdwwXZX4+XTNwlkdYhbnUK44C6IOdl/n8DvobsPh27n
QqzJS+9LrQRqkttb31lzgVtPLoeXBD48+/6QnhUX1vtay42/IrAyUs0vypIL
4sSbTU7tBLp2Sb6RzbmQ0XLc/ns3gUtmKp1MjLnA2Wtg6PqFwOzm8Mi8VYt5
/s7TM8MExnSX2H1S40LwuZyBotHFfamEu+lKLuhXzBfyxwn8J+D1+pcqXCiT
tCvcmSbQfSDLSFaBC4p59ChPHoGqJ5wYO+S4cNTQoXV+hsDktDrm3SVcsHEr
PuM9RyDdYtDKVYYLhQMfPomEBA6IwzU50lwQHV0OdxcW/790YvMEbfE+fes1
HzGBucryFQ5ULjwtTJmTSAgk31YKukDmwn8BotMf7A==
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwdkHk41AsfxWeGMUaGQbpkr7hIol+WkO/3ZrmihEb28mYpvVxdS1myE22S
2+Va2jxZKkWltGgxuqJLRYMZ+5KtbEnGMrje9zzPec5f55zn+agdDnbyo5BI
pPhV/y/NiNZxqV4Skv4vUazMPrF1yYyM4r25FNFNNHT9TtZpsSHjULG0XiWd
hgv2FzTvsshoNuV44PWkCJqL3FTzCiSjjee3Yl6VCNaGNcm8yCPj9Qvljgvu
Ishx1Jk7tUBGaR//6huFVDxxt3KGJULBNz0bLA0yqChHt/imI03ByNELDmui
qej52u1LpxYF1UOCMcqRigO6qZ1mbhRs672UZEGm4vSa/teCSgo6KXnUZP9X
GC8fCXrBqaHg+gCp1CY3YTSsmXta+oGC48/jw3baCGNUlORDz2EK3jTUDyxR
F0byqFlh1TohLGEbbazoF0JmbfaZU+FCKNE+VrngK4S68XudBNuE0fKWndfL
FApGhObatoAwijSulWs8ScFq/+Fd9/YIo1WJnOxKAAVZexMIb39hLKZrZ7yz
p2D0+kdr3+QI40n/BsspeQrWVSi2nSNRMZUSZEN9vMqhJOCDL4OK7tcbi+i3
yeiR9/jtzvXU1X1TX62rZJxIcHgySVBRUumY89PTZJTdl5yz/wgVHfa3TUm6
kfHw6FcPhfdUtH23Y4MVhYylncasmXYqdsvnv2/ik/DHh5Q9jcNU1GPkyYSN
kzDtscrOOLIIdhhP6M5xSViWtF95YLsIdqV9CpotJ6FA6Xnv7TwRvEo9EnzB
l4RZTmf9TAJo2LD/is6X8hVw/cOn1yichscFPomJN1ZAnmPmYZBAQxLnkRuR
uQL5zpMOejk05FR4HusKXYEbriwzjXoa3nY0P2RnvAKlB5VlpLVE8dSKzSHW
38vAPvbg9eiIKNaRKPSoiSVIvnPOdHhGFDvJ6hElfUtgNeb7+DOJjiFvK1RH
OEtQF/RTaY8cHXe5pgbkPl+CxuOnslts6Og5osKoPbME3BPWv1WX0BGIbC1Z
rSUYT2xXyDkqhgOPvHzPhQjggEd4Zna4GOb0WTfc8hfAa4JJz0oUw9GZG5Q2
dwFkfraazcwXw9jrxtZeFgIwtL7/8fxHMdw+4WUoKyuAeHpaSrzxGlx/p+LF
2ueLIJ1hMHlEVBwDsx2TIpmLYHQlg21YwkD7R8pFv3TMQ+zp+vS5CgZqVhgU
eTTPw5tgisezagZ6Lsy0xtTPg8OusO87OxjoKHHmfHvlPBwddtlkJSGBY9Yp
179fnodcfZXT+8MkULFg6Fm2wzws/31393GUxC7W5i22jXPgc9JvhBXIxAct
ld1tPD6wpeskbUKYqNhz79pPn/igek/byDSCidpKuQzPBj50f55MUUtm4sS2
wNbpl3xwd4raOJG32r+7EOBykw9OWy4eTP2HiW41AgN+MB92DTzhPNWWwvn5
4KmjYnxQ2yderTwqhW98Nh6etZ0FrsKQlOhpGfxiohVdxp2B1OzdFQk0WSyI
vMG7eOc7cHWDxfwT1mF5kKdWcuE0bHj+lhugIIeCgvuhWcXfwHf21txSjjwW
ikfFxTdPwTWNVxn3jRUwWDOdnECeglMhWZ0fPiiihWGbEzt9AhyC+JGxdso4
vvl3CTHHcVD2Ondxz7AKhilZFsesHYPpGFZ0y0NV5Cw6WKHwV2h+Kzi2NlkN
n9CYOVe/j0KSyumKNIcNyGbapUkKRqDMnqNhJbkR47dGyGqqj4DrnKmzVPdG
HOK6bu+0G4aYyKOl6tc24ab6QBW79CEIFT3hFeypjjkRpU7snkEYlLryrk5L
A1lSJmYTWwbh03Sa97FRDTR5yOpvu/QZzO3THyg8/Rldy+z2Rk8PQFRl2EFK
iiZub049pHhoAPTnVAh9Cy0k+toS5br6we/h55pgKW1MKwzwveTSD7LWv8XM
Nmkj7+W3NL++Psga4mY8SN+M3XHj5ptD++Ay2cs71kMH1RhP9fzIfcCYKXTN
XL8Fw+Kr5ln5vSD0H1HG49EtKFFT9HKc6IWwwq1f1O7oYlVcnMHw3R6o5Bup
1Rzdisakw+UxK91g2q8jZqKgh8oygpRM225w3a76l2G0Hhacd5kSlHRBhYWq
sOmAHnYN8mb3kLtgjsdUct+tj473zb0rfDphocPH9kqJPqZmsbuzWzvAJK/G
eURyG5oqpUwVWHSAcW1KuMvxbbiObCb3z6t2UIkw3tX3fhtaykwc+dWiHSyH
+WMhBgRuYNwnEdU8+JktX6r5J4FWDy1fWe7hwVnnfXROFoEsNolmacuDsZFk
/7i/CMxnP7tmYcODcskp1dY8AueEOmssLHlg4lX7Z1IBgTWtVZxfzXhgPxcS
111GYFGds+ghHR6E6TY4XX5HoOVlcaJenAet1eRyaCCwUL83vFmMBzucjRhf
GwlMjnCldYryYDm64O0vTQR2eI/LTgnzIK0+wmyyjcDfg4t6FJa4kOerrmE7
SGBsywHZxHEuLPPdk34MEcgY6NmR8ZUL3ucyeq+PEGhePHrn6igXNj1YzOV/
JfC8olFE1SAX7q00SRZOE2gQWl222MUF5h+0IIcZAjtrXczFO7kQqrHz3eIP
Al1muuWV2rlgvLck2WmeQKprRCW0ciG3t6tvaYHA2zz/SEcOF5ZCZeCWgEBS
w3KqT/PqP213PmuZwLTDugPhH7nAzo2dX1lZ5ds6cDbtPRf+BXvGpTM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"V\"", TraditionalForm], 
    FormBox["\"p\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Helvetica", FontSize -> 18},
  ImageSize->{575., Automatic},
  PlotLabel->FormBox["\"Isothermen\"", TraditionalForm],
  PlotRange->{{0, 20}, {-3, 3}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.4494656734214573`*^9, 3.480734772130023*^9, 
  3.497775417363587*^9, 3.543025644490933*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
van der Waals - Gas VI: 
Maxwell-Konstruktion\
\>", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, {3.4493805712999287`*^9, 3.449380591703601*^9}, 
   3.4493812242464743`*^9, {3.449381269222693*^9, 3.449381288235824*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.6", ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.65", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.66", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.67", ",", "v"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"0.68", ",", "v"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "b", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", "0.75"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Red", ",", "Black", ",", "Black", ",", "Black", ",", "Black", ",", 
      "Black", ",", "Black"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<V\>\"", ",", "\"\<p\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Isothermen\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.4493809355559883`*^9, 3.449381014887783*^9}, {3.449381335682493*^9, 
   3.449381423031123*^9}, {3.4493815116475897`*^9, 3.4493815207033777`*^9}, {
   3.4807346820332603`*^9, 3.480734684335888*^9}, {3.543025613024398*^9, 
   3.5430256161844788`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/TRYLIOB4YO9MRg8tjfb+77/1O9PcH6b2sntU75/
hfN5zrq/WJb/B87fPr1M/68NowOMr9fgG/THiAXOnxbUlWqVyQ7nv226JT0z
gwvON5874ZDZCl44P7k89UVIjgCcr+jPc1DupSCcf0P6mSBHmzCc3z7dc0sj
uyhCXi+fK61RDM5X2n38Rqa0BJyf8m3lj78zJeH8+Wr7J2y0kIbza4qm3Tl/
XgbOD8j9XlnnLQfny8V29/s8l4fzP9WGVF/drADnXzr+J0ukRRHOb5Zv29IR
oATnr/e7oubKrwznR/ywDhW8h+DXVmasUZ2vAucXc5TF5seowvlPBeeeOqGp
Budf/tSRkPUSwbfz69skvVMdzq/aXhLH1KoB5xv+kDc2dNaE81M3PzmcL6gF
54u65dV+u4jgT3t2Y8KmPm04fwpjbEJdtA6cz/tlacQkKV04nzmRg3fbSwS/
ZKn+K8XVenD+9u/miocz9OF860c6XFbSBojwMFGYYVaN4G9xVmCxfozg/7gp
IBvlaQjn/7qd7DV3BYJvNftw6At+Izjf4lhraXgBgi9fYeH08ByC7/L8+5si
U2M4X/2Q5BqNqQh+id6ZoCmnEPxDs+p+/v+P4AMAw/YrWA==
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd13k8VH0XAPAhIQazIKUIWaKkFFrPqR6SKK8UPSQJJYqQkDwkW3pLWhWh
FJUiiixZyr5kKszYxlx7pRIqsr2/573/zOf7Ofdzf+f+lnPuqDh5WrkI02i0
BUI02r+/7Rb0C7XBk0D7/zUIG8YN76UmT4LWsvCgt1YD0DIy8fl8wSTwJofY
yc394PW1UN+laRIw2ktl0YF+SO2GCnXxKRiOTFLZGdAH9Ibtgw89pyBq9DRn
R3cP3HBSNeBETkHp7H0eP6YHlMenwiaSpoCzfKT7jFEPrFbLVjbnTMGr72yV
Y7e7oejVxeOnBqeAcfXhzZjd3WC860jhXdo03BIZD9sr1g22AYtsfuhNQ1TX
iM7FYAq6pX+nLtwxDdWxP880bqLAPfX9yLZD00B7H2N3dFYAwY0Rl25cmYYQ
Rdvo3dECSFX/UbFhhFhhn6eMRxfoFtaxXSRmgKbOjpaid0Ge5cNDl1RngDPv
VnF6Jh9qz9hNC6xmwFGKP7RNiA/WTIOdEu7kftWjP+mZndD5kBGvHzYDw9al
mnMdO2H4fcWaiJwZyPqAJUp1HRB4JPlcZt0MCHy1RBjhHTBnOpDD6yHPt4lU
42zpAHktPQ8d2VnIumbx2/ltO2wKvn2f4zsLS/pqXJJ626CSferHxEUSr6pI
L81uA8tHu0HtwSxYKrv2M8PawLlJpP1U8yw4ri3bSNNug29uXVpJX2eBE112
J4jWBkWz9ht6hWlYOlnjP8BrBePrhtFSijS09J9IMb/cChKCpXqqmjRE429S
2sdb4Z02i2ugT+Llz1YWmbeCbenQUsedNGTcvR5Tw2iFxZJtdb42NNQrttyi
85MH3XurvKMP05CWuS1Rup0H7l9SSrPP0DD5004HnSc80DO4fKQqksTPZ+ru
us6DsZAg6Y6rNFzSoOBXEcKD/Dq3l8NJNBw+eeB1xHEeBMvb2M/NIPlIf+uI
tOPBtkN/zVn4ioxnbvqn2IwH4hmrHuuW09BxR0i46gYeXNlCH7fpIHGNu3Qz
ZR7suzhx12OQjPci1XSKxYOF3H7j0DGST/vJE3liPOhSaRq6ThPCWFmxLT7T
XEj1KLv6mC6EyT5DpZpjXHDLe7a+REEIOSbG2g1fuKArnEB9XCqEpXd/jtj1
cmHEPDpqUE8IvZR41fWdXMi76bdyeqMQ0nznxCrwuGA7KrS82ZR4UJ2/6yMX
/uz6r9ZTazLe/Jg0s0YuJDxWUA93FEKUlKyeW8+FzaKpKgc8hFBwtnp7YA0X
BIdWKq31F8KsSv7+e1VcOPe6YKHUeSFc0rLQzr+SC0sXmMzvuyyEw13FnF8V
XKj0fc9+fYfka2F5RIHEj3LsGdfTSDzR8weXWGL5IP14DsmHk++qV82FjEif
ecYlZDzJnO5FtVyw6JmZu7iOxJcX3L9F8vm2+YLwzxbyvDYRiSSSb+xtudn6
bjL++P0bOuR9Vv9Knkz9JoTi45c/r+Nyoek/y8eD/ghhyO+iiop2Lvg9zRuz
FhXGZDAQrRNwQWHeth/LWcI4/hPTjPu5UOD87quIkjAuKQgvXTXEBfvS/Z87
lgmj+BiGx4xwYUaxr//FWmHEmwHbdk9wIfm0V8/FLcKop7b5cACNBz26kR0b
9wuj1gOnvhEZHpy/wGqVdRHGYZ+zVzco8ECjP7F5yEsYQ9ZvXNe5hAfHEl+8
S4gSRppS16ySPg9GJLtLp/LI/boHV5mR/XXtyPHXTW+F0UskK1vMlQcGb8fz
MxrJ8znKx8VO8iAwUCbHfkAYHenLbr+N5IHQp40PiuTnYMjykMGhPB4wKm9G
B52ag1F/DHU1VVpBN8TCamq1CN5Kkg1gSLaBv89ts2YQQV7sI4VkxTYocx3Y
+sxcBLX6tyzfvLwNrC1C9R1dRdD/T0JoskUbnFn4UrY8XgRLn43Wt8e2QfWL
RdwY2lwcDN1RuU6hHZw+fbFTfDcXjUptt15Y2gEZHUbWY21zMTmt+OGctR3w
szHcvGFgLi4559rtZdwBUbnKm/4REsXxB2wZddcOyAzbo9SzRhRNJevcBx92
wNTiQsHjO6IYciboeZR6J9ywuuCy3k0MTd+du7ZZjg+2Vw8LDE+JYfK0xJ9E
VT4saNpotzZUDB0rNN2+rORDwt7vlnrxYsi4ECFmacaHFFvrjRo1Ypj1wkZ4
czAfMhyU2Kxl4lhNnUi4282HN8eySz8NiqOj7tqS1YldcP5JzIaBMXEUf6oT
sD69C4yHnHN7afOQYWO2fmVOF1Qfn5/RpTAPtWq1e7qqu6DBK+hms+k8jMpV
d3YY7QKen8mJsvR5OCLRrOGuKoCv59oU449K4D2RRWmTHgLYZ3cq7uYpCczO
3brm5UkBlOoz5t04J4Gs2w4Hnf0EENdr/CsuQQJ5kPLy/j8CMDB5zrnIkcBh
uoFv2hUBhMyLCg8xksTSLt8l9TkC+ESpTgUbS+Jq8UPQmycAq4LX3metJHHN
gYrkkUIBLHUfPRjoIYn39Pj7Rt4KoKbeYb1vsiSGVD6uDP4oAFbs2u9HxOlo
1HX2YvOwAM4c5bi4ytExKiuXYTMmgF5073BWpaO86VhM428B5P5Irjm0kY56
TneuP5gRgN0eeqqdFx19QxjrBiQpSJXvsd3No2M37bOgdikFUt/PNlr00fGx
4z0s06TAr0rBxHyEjmv07S0ztSnY4b9LfwddCv3mfH7qrUfBt9Z8qW0ohWYK
a+7f3ECBYWLsG4N0Kaz2VjzlbElBcETNpfEXUvjGuv1NoxUF5Z7CdgVlUqjx
pLNIfy8Fllt9Rze1SyFn5/euvv0UHB2wWWosLY0M6+viY04U3F6lHLHHVxo1
ut5OlfpQIFhoayUXKo03tn8dKTxFgYbIFSXuf6XRn9+xPus0BTktwnl/p0lj
y7Mtg+fPUFB/pn/gUJs0rrniz+k6R8FMxdMdXiiDgzNRJ51jKfgrs19utYUM
3pXX1pi4QsGFW8rdo/tl8NvMz+rIqxTMd78SeNpHBsfmVc7E3aBAj3HqSfBD
GUw3mrPKKYHMz8TT05gjg2ZnZ+2rEiko6u7fJlwqg3F158s0ksh8vbTtCG+V
wTfKsbZNKRSsWnE3wkSUgclhCoVfHlLQlFLgkUZn4EicfLpaOgX+8lwrcTYD
b8f+R27fIwqKZ2WUa5UZ6Lg35urjJxSYfQjNs1jHwGPWEix2FgWHT7sMWnsw
8Oj0+ZhPeRS8YVXLmHozMGLVOpviVxQseaZtuMGfgbh0e+OlfAr4vd/DVc6T
8V6/4KsWUvC3VaDatzsMLLf8pqdQTEH+1w4zKoWB5pvL5OqIFaLBuymNgUpJ
99sCSihoKREpK8hh4Dc+d3FdKQVWKy47RNYx0OipyLpNbyl4Xv0jPPA9Aw0W
xDU0EjOcrZ8e5zJQd1rg41BOwbvbC6b29DDwVbeItFcFBSsMgtS2f2LgRqEB
qVHii+/5Zuu/M7C3PdXQu5K8r3hq/JJJBsbFnV7iUkXBo/uiZWwhJsrW//2F
RywOboOiYkz8EJn727SagspTuoZfWUwsqlAaWlxDwdaeV0352kw8uv1n751a
ClKCFacy9Jjo+lvuwAgxbWGwWrIBE0OoU38Z15H5ttzmHbGViUZTxqcFxIuH
HsQHmDJxKLW+QauegqBI8TKPXUwcOV/y6Djx+uIGmT1/M1HpSrnYV+L4/XqG
Jo5MDA5+fk2zgYLxsTiHda5MXK9fWuRAbBP7M3y5BxMrE3aGxxHn6tg+VfZm
4o09aaNviOWqCppY/kzcek9ZapjY12nx1NxgJtpfnGhZ8I6Cj9P/qE2EMfFS
s/c+JF4d3202FM3EXPE3sYeJr6wx9u66zMRfwfIxYcTDjWnxH64zsd/1llky
8W53ibKKO2R+6o425RM/Ez0++CqFickJKSs4xFL3GmUy0pjIz9lr10PssWm1
YdJTJuryY51Giet41xzicpio0G1jSmukQNv3d3h4PpmvyHSmBHG0zN9P/UuY
+Cox4C2DePBxUZN7BRPT5xY6yRJvN1Gecqhj4oncvWP/+iEVqmb1nombK3XO
sojnnu01M+YyMeqkgrAUsbPCdm+jTiYGqQ5HihC/yXkUr9ND3t8/hD1B8lHZ
TS9T+sTEz7tjH30mts7d7Rr3nYm0KM5LLnHE4quSor/I/X0TVmXE+edbsgKm
mLijSzwyjXjoy4J9X4VZ2Pl62OYCsfKeA5OO81i4Pe1OnRuxVUFycpMMC/Ue
fx4wJg5X6TU2lWehfc3LbCXiV1GaXwoXsVBMrH7VGFmvL9+Pxa5UY6Gl1+ix
SmIlm2dr7y9j4UOtT4evE4eprw25YMDCySqxjGX/rv9Ff/WZjSwUrg8W/U72
z+BoYe3JbSwc8HQ0fE68681Wuf2WLHT6nLR6OXHosoiC+n0srLMVFe8j+/NF
bM1BPMDCsKeDNbeJFx60fKx5jIUKpk1a02R/W1Re3X3Hi4XqUvc4j4hDVnDH
pE+z8F6Db+Ae4r7JA/ArjIV3t+z7lEjOi8LhlF63Cyz8XNn/ajOxWW1vdGcs
CxuEQpI6yPnKuuXeVJ7IwoiVfpUyxEFrA9yu5rGQHm8pYU3Oa2ZCkbRYMQu/
OYEKn5zn7jm0F4HlLHS8kH/ahdj0Q8TMofcsHFk0+cud1AO257Wrel9YiJNZ
lbZvKDBp4Rql/mAhx2qlU0MZqYebFPnzx1nYyK06DMR8yXtasyJsPLpq9oki
qT+P0zNfNyixcZ/i8PuXrynolBl12qLORvkjncryxIzTBuIvddjIy70+7lNE
6rXxa6sEIzYeu2Rgr0Xq35bu2oFjVmyUcrY94kvqJU+xnykewcb0ooO7E7Mp
qHrkOS51kY1h9hqBfc/JehlO8NlxbKQJZRbqEF/dQ89QvsvGPLp6bHYmWa+Y
1SaGuWxMK3FrfZRB+t2f4EDXfjY+yazI2ULqfVbr/J5yE1nMDZep1rlFQdKR
lJpac1nUvPOzfuNNCi791M7iWMnikssFpuak37gzN5/tcJDF1V9KMl2vkX63
w3n+mJ8sXtg1FBFN+lfCq6ydammy+KVj58PoKAoib+54ESomhybGcVvDST/s
XXHP2E1KDlUy5LM9/Ug9LP/TYsmWQwO1zWO2pH9ODT+ZUFaWw6Ujw+OapL96
m0lDsYEcNn26svnVCQrspz/U/HGRw60T0hH3XUj/O2zf5VMuhxaF38qzST/n
6XpKuIbKo0eh4ZAC+T5QLaziuSkqoM9k3cDzagE4/3o0Ph2/APl99IK7rgJI
0iiJfW6kiP5UgO/SH10Q5H2jo7FxEXIePllJn98Flsd/BwTvVEJT9ahoTQs+
KB2IuWw+oIw920Kf6fp1wshZ6zPNOUuwg3vy5PPsDvhQNXVM9rwKfn8nwfXr
a4cw5YgXUZaqmB2+KVRfrR0ydzVpGMuooem9M5OPfNvAdnzDXiZfDR3uaxdU
F7fC2YCjGepJS9FFJbb6nWIr+Ij7HfC0V8fgFNski3M86GMm1lYv00CXhr+u
XO/mwseRKMdjnzRQN+HSRPYe8v9r16VsxXxNTPA6Hby9pAUC83wdhMO18Jbt
wJU6/RZYNa6sv2rbMhRPbz43k9sMLjm9bz2Z2hhcF7NQc20zyJmcOPvrvTba
/Hesp720CW7082KzL+lg0LXW8fV7muCa0AHHYLvlKNga7f1V8BGkxh7Yxi1c
gfqFF31OBH4EqwQv+ZxU4v9fH+F/0J5mTA==
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd1nk8VN0bAPAxhDTGzFij7ClCQpbofZ6yJBWSokgUIbwkJCSUpZKtKK0q
SqJUSqRSKZWKbKkuZq49KpVKZfmd93f/mc/3c8557plzz3meo7YlxNmXyWAw
5IQYjP9+d5/wMc6xGQfG/58BYL1aPnAxZBwyRTY1n3Doh9wt6iaNKeMQnyEy
J/drH6iMje/7fXYcsGJV9Y1jfWCocUNlVeM4+BuYXxgc7oXqO2nBEQMknvkS
9eaTvWDj4Hf3DGMCOMZhRrGre8Ft9yzXrwYT4PYyK678Tg/Q7F8FiismIL+5
03VmWA8EFrz5ZuU9AY1FzO8Dej0Q15Ccnps1AYwddQExJd1QMOfrE4tvE4Bp
16oiHtOgf7de2ldiEpzKE2WM02mocLrona4+CWYWK782baThRYz7BN95Eo6n
Gsbv+i0AF67JSonASaiJ2i7hXS+AjoucPKN9k2Bwhbr/7YwARt48MU6+OQkD
bNnFH+wFEO2Xn3itfhL8VwY6z9QQgPBEdGN79yRwMMPg9Tgf5OYZBM2XmYKy
V5MzQ8r5sCTuxIXG8CkI/WKj72vEh6fSEV9/p02B6oM2R305PjhddgSNwimI
n/1olfloF/i0iHyIaJ0CjlDP0KGDXfA5oGve2U9TUPPS3Zzv1gXVUx4WPUwG
hnbbnbHQ7gKbHNMDkkoM9FqcM/S8oRMk+JoG6nMZyBDTUu4q7ITXOry3JkYM
NHicNfpgTye41Qxreq0k/beYfy817ITZM97Xh7syUHXd2pZ8qU6g19WFHdhK
4ltr1ep87oDAoXM1N2IYWBN9Iqr5WgcYmGT41aUQZ5X+fJ/dAaPxsWzqCAM5
QmEj9rs6IE7O1WNaCQNHpnvEmFt3gJW3tbDiHQbi6wK/C7odIF6ysFi/loGZ
DXXxq+Q6IGspa8yVIu9XntQz+UTB+rTfZ4IGyPy3DwT5vKdA8W2fTcIo8b5h
7dJnFHSptQznMIQwX8dWIHaHgoKgh0eKWULIuLzQIaiIgoCKq4sfKAhh/Mmf
/k15FOgzTwmaNYWwZlLY1zCNgopjkQsmLIWQE3V06OFOCty+C+m22pHxFmHb
5AMo+ONweF6pixBm3n1it3QzBaeKFeYkeZHxlz4sMl9PwT+iBWqbgoTQqdBv
cmw1BXzvBcqLooQw1H7+2WhbChLvVSlK7if2KII7QIHmTFv53gwS/3OHQYk5
BU/D30jfO0n8S2rYyZgC/0YPTs4lEn9aHvfcAgokdAdYwTfJ/Euf+B2bT0FJ
ys7pNg9I/w2V7/TnUbC6e3La7HoSf75H5JY5FHz+5yDzRxtpP7MmRE+DgswT
slMvaSEcOfRL/pAaBYY/8/8WfBbCZ57BPZGqFLSs0R2L/SOEZbIX/IdVKIgs
rRh1EWViWWeIaz+xwnSrr7o8Jt6ZupawlfSv8nn9SUSZiZyGgFYPEs+jZsNH
SpuJ82J/ezSoUzCp1NtXvoiJ+cFW/1RoUpC/K7Q7bSkTa34PV3LmUrCs+W+X
z2omjlid1GnXpqBbP4Wy3MBEcTEzEQk9CvYf5L2T8WVivJJl83kDCrT6TrcO
hzLRKWXK4ixZn2dLtZtqY8l8+th//ppRsP10+etTqUxUZSZ33VpCAes31Icf
ZWLo1pCW58souOpSX7cqn4lYM6/N2I6CbzPomvEKJjL0TnuIuFBw1C/4Xstj
Mt/amKVbN1Jg8nissqSBiQq5G75JelMQHS1106Of9O+UtbMMoUBo0LKwWk4Y
vbY1HaxIp+C89bNzR9WF0T9Yk7fgGAXW+WvPBOkLY7wxA7vOUpDquv3YLFth
bG9V1xZcp4Dz9NiB2AhhLItIjDFqp+CGmkayS4IwZgaIyZvRFLjsuZqoe1gY
nZzcR3yHKThu/CSGKhDGsU/9eSZCHaBy4VuwZYsw5rdkfI8j50c/frXzuKEI
lr3dvM0vtQOidp6wbwURjPdoZTvkdMDDbf3Lrq4SQburVY325zvAZXWCkdc2
ETT73C2dUN0BMYq3ZGrzRNApx+fv3a8d8Kx81ttDjGmokHzE1NezE7YMDrkr
vZ6Gd+pdDH+Yd0EJZeYy+n4apjKu52Yv74IfDUmrXvVPw/jAT4ra67og9bbK
kr1CougVFBEFoV1wbd9a5W5jUXQ7MENH5GIXjM++yy8+KYoexRq5dWJ8yHU+
6Ls4QAxDK2PkjYL44HZkK980QgxFRkxSG3fwYWaLpfuiBDEcTvhYuG0XH06t
++JkkCeGs+4WFscm8uGcm4ul1nPSrlbp6HCcDyWeytI8bXGkZDUf7HnEh0fb
b9QMDohj2ceC6DaOAPZfOWTRPyqOoX0WsZGyArAZ9rndw5iObpU1y9iKAngW
LF/SpTAdranjs+aQfP4qNPZYq910HHufMG3EWADtkbb/Piyajjy7xpy/6wXw
KfG9Up6/BG5fkR48flQA690jso9FSOD9a8mne48LoMaIMz03UQI/1kxmPDkl
gOwem5/ZpyTQYLnou4ACAZjYXm9Ma5RAj/baeuubAoifnpoUbzYDxzTZGisb
BDAoUB+Ps5mBbTP3KBU0CcC56l7YHmfSrhjrOtoqAM3A75ujg2bgbTHm/WhK
AM9fei4Oz5+B4kVW1qqDAuBlLvriJ87C6gMKPm0MGmL8G323ybJwPEh3+JIw
DT0YSPmos9DQONBhhygNt7/mP/e2ZGFRZdmzoRk0uK9lFbiHsnBU92NRvBwN
BXLdbo7tLPxT8e61oQ4Nkl/2NKzuZeGJX8H5ybo0RNYp2K76xsJV1deHmvRp
WBHlYLSCJYnOWSny64xo+PyuUtIKJbEtUKWTYUmD6enMRyZFkji+2m5kciUN
ccnP08fKJfGl4lavttU01IYw3aseSuJx7bk6lxxpcFoW/n3JB0nMVTYcMV5L
g3+/q6YNm41uPqKrmKSeX23MHBFVYqN6u3lGoTsNo5XPq5/NZaPi8aLIZZto
SEizWLdqKRtP5c9yDfCi4cRCleS14WxMn+W4OWgbDXxFN2fZBDbyRcKfdPjR
oCWSpfz2MBv3vx9XWBFAw802ZsXGS2yMfr2mRDKIhpcxff3e79m4/oPyXscd
NEw+KV0RilLoc3pHzr1oGqyv9ckarpZCQyeHiTcxNBw8rkJ/3yCF+TH7u/ix
NMgHZkXv2imFOl/UFn2Oo8GAE3El7qIUqr6z4j1LJOv5u3QX3pTC4eAVi6/v
o6Ga7rNi1khhrBRPNWc/Wd9bblTSOylkffljszqZhoV6Z5JtRTl43PQkf+8B
GlrOVQVdYnFwRNWPgoM0RMm9dRaX5uANM+23f4jvT0mpvFDhoP/H2EHvNBq8
w3WnzdfioIzYZw77MA0ig3ZDh3Q5WL5SxvUWsX1TQsVqcw7mP37n+YPcpz7Z
njl9ldx2zu9nG6Rn0JB5t2qflC0HP8ZrgHomDW0F3x3fOHPQ+NeNRZZZNGzd
5TvgEsRB5d77G8yO0PCI90zKLoyDlOVixwJi1as6phZRHNStUFzHOkpDZ8+X
JLX9HCxrlyluJF4S71wqc5CDj4rVpunl0HBK6VaLWCYHa37sTk0i3ugcrfH5
JJnv5kKV+bk0VH6i7AXnOOgpZARRxAoHIKzlEgcTNRLOPCTepXk+r66UxNvo
biV2jMz3gcjDqpscjNVNNlpBvMjdb6C0koNHOQ/CU4iP/nwude4BB/V3VrMe
ETvrZXim1HNQwfSuq+5xGq4/+5oU/YaDYytE5TyIOT4upcFvyfpaXV6aShwy
dbvFq4ODcbtM+WXEr0/MHF/bzcHQJUt+tRLrmcRqLB/k4L/fIO0XcdqbTvvF
Xzj4fvxegWweDUNBS8P0fpD2Bn1bA2J78YI81b8cLBpmRi4nvnxB9KG0EBct
P14wdycWh4ABUTEu1oSH5wYS+72vl/rD4qLD2sasKOKnEfqmn3hcDAtkLUwk
nsPN8uQrcFHmSeTuVOL9Jd+TmpW5GJ++PvQQcffy9aVPNbl4XnVY8T8v677T
UqnDRWPhHXEpxOfilMZLDLho+FU+P56YoRinkW9C2jtYSZHEm2/x7Y9YclHu
Z7hhAPF9J6uw5GVcTLzyb6kb8ezhwrzddly8f4P715o4NkX8YZADF31mhKjq
E39QDxzY7MLFLSJZ6jLEi++/klq7kYuNGCP633rlbTAwtfXiosI9nTdtxGOj
2Z7m27g41pyTcpPYNfNHkm4QF19YlegfJr49361UJYyLF41c67cSy9ZVtfCi
uNhptnuLKXH4ltnj0+K4qOPxeUyM2DCPth8+wEX7RDXTfPL9s4xtwroyuOg/
fdeAH/FIw6W8phwubnzkUKJLfFU0eODOOS6eaQqKKyX7TfJ8g1TJJfK+efK5
AcRBSwxNz5aS8ZUzmtWJdcJ/JSVVcnEgaV1DGtnPB6Q2lkY9IP2/fzi2hHig
uLol8AkXOSyp40PkPFwUJGg4vyHreeH4GiBWc2Q9VB4k43dd0XqaTYPLbcdt
2V+4+PKDQ7IbcfLsIzNEf5J4Fy+/6CfncXho5vpPTB7unXFWfoKc1zupc4fu
zuLhIDPQXZic56Ev2zMXaPCwZ2/f7j3kvCu7Xl10QZuHZmURRaMkH+ybsyj+
oAkPI3Rp+/ckfzg8Wia7wYmHHxXumOwj+SVBO7nq5XoeqmW/9usj+ag88/lm
3MTDzRcdm2yJFTc7Fc/dzkPn4kt+Uyk09P7dBD/38TBTkKfslES+/6LdAUcq
eCiT9ufvzr00XDtVzRa7z0Pe1zR2KcmXtDCjPLqWh/+oRlzq3kODXVPypPcb
HpZpx8etIPlVOuToEYMhHrbE7IexKBqKi67de6UsjdSd2L5ekq/blfq44snS
WJOevUBlCw11l0PGJNOk0eKgsYeGN9kfpr87pbOlMeiqYcscUi+OrGWVqJyR
xvm3/70xx5P830OGtqa3pXFfmXwsl9Sf2j9x0dv6pPGW3fy3J9fQUPZOvrvW
Vgb7Sga2ZAANKcdWlCeIyWJ79133RHlSf/XO2wRIyqK2yg7fRaS+Lqv90+Yk
LYtarjP9+2VoGB+58ltFRRYb+cpedjwawuzZcN9EFhej15pJFg0eE03P//jK
YpVoAG3BJPVjq0fXzlpZFP48GS0xTO4r+iES2xLkMPVLxE/newJQv1vXHqCk
gDvKTR4vdBKAz8/LYxN5M1HuReGL+z18OKv1IPO6mRKes+zh9wbzITYsl2po
mIUcW/fFl791gVPwr91xK5VxHnP2Xu9ZXaC86VDGqn4VvGDl4B5p3gnf9rjE
tN5URbeJF/GMoA5oqhvfLrNfDYdmitSzcyjYp5Jcnuqkjkd9q4cMX3yAaw4t
WjZSGjjg+NfGU+YDuI1ZrON2auCp3qMnrF3fw57d/iVzzmqiazY7f/bVd7BT
PHJTiMccHPG2kBSVege93NMvnmlr4a7Om+/KA9qh+Vuq1/ZBLfx5rkR0vPUt
/OOQfkOpci66H77Se8PyLURXhHsyk+Zheejk5rqSNlg4pmK00Eobt1fMNpmt
2wa+N3seh3B1kB06V3/jxVaQtf13z883OpiTZN2br98KuX3tmTfS56PEpmr3
1nstcFRok1ecuy6+yp9IWWnXApKjhW7ZinpYK/j9+ntnMwh7i0veHtRD6cId
3aY7moFtEC2bsFUfjf7/NMP/ACRv/5M=
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd13s8VNvbAPCZIYaG2TMi4SD3JEmSop6nROWohIQkUxQhEl3colxLUrrR
jZNSjtSJ3CpREl2JkCPtme1auklyCr3r/e1/5vP9PDN77Wc9az1rz/TNIc5+
HBaLpchmsf7/87+K8zETJuPA+t/VD+77NNZ/NRsHowqzps6hPpAo/shTWzkO
e1Xq52650geBeU1DtqJxOBO371CAVx/EvkxKP3WMxOssHfJf9kKe/tdH1kPj
YMUrucc09oDpnadKfvIToN0a5Ss61QNlTldE6ToTELfT4WDTxh54ErVhnHae
gBT5EblVQ93gKrD8Uz6QxGntbOv73fD2CpU19+AEfJn5ZkBypBu+ND2ySCom
8ZLUKYZm3RC5LefAjacT4O714K8CqW6QGo9sbGcmwKrFc01JOwMqRmZBM6f8
Bm6TW/nMZAYWxWZfagz/DU6DV65FDkugTini639pv8En2+HPsVcScLq2BnQv
/4Z2haMeN29JwLdF+t+I1yS+9eDzwxES+BTwzujix99Ay0Z9yHWXwN3fXtbd
HBae6WHEj20kYHdyfqqCOgsx9ky2LlcC8rSemY4hC/27Tac6fBbDC2Nhm+Vc
FnJFlZ2iNjG4Vw/q+fzJQqfMHbNWFogh8ENu9a0oFo4mhjcs8hSDmeXRbY+T
WVj/ct27uSvEMBwXrdiZycKUbL95/ZZiiFVZ7zWpkIWNnJ60CBUx2IqWSamV
s9Dsatx7W1kxcAvnFJjWspAukF18Z5SGY0t4o+s7yfiTbxgee0uDW9p/F4L6
yXj8Uyt6G2lQa+u1ix9modXJ4rCmWhrygmoyC3hsNAq5E+xeRENAWdHC+6ps
VB1tbv5wiQZTzjlxsx4bfWanBkpn01B2evfscRs2cquOX7qdTIP7N7bJ6xVs
HLXf9CNkPw0/Vx8xuu7KxurZrO9n99BwrkBVP9GH3E+nda1lKA2LZfKmbwxi
o//Wgx3WATTQotma8/ayUbvPOuzaZhoO3KtUU0hgo/tXNWG0Fw114U1K986y
kWrcVr5sLQ3+jV7UyXw21luKVec50iBv0s8LLmZjyiN/i/3LaShM3iVnd598
v3mTv7YtDauYiUl/PGXjXuX9eipAw6fFhzjfW9mYY7bm/UZrGjKylX8/k7Cx
/ehlx+/zaTAfyfmV94mNtZv1P7+xoKFlrclo9E+SX1Ztopw5Dbuvlw27ynCQ
rnJtiZ9Ng6qc7VcTIQdrE/hFOIuGSt8XH6U1OcgdMvhuO5MGr2qP950zOGjC
8chOnUHDhHpPb8k8Do7mJp3jG9GQsyeUSVvCQaP+VdwWAxqWNv9657uKg04h
+T9a9GlgTJM7bTw4GF6SdIwiTjgkfDPFj4MZohi5RD0aDHrPvx4M5SC1XXTR
jLh+yYxXtdEctBB/vyAg3n6+5MW5FA5q7zq1yYCY9x88DT/BQbPtPbbBxEWu
Tx875nAw1Di6opvY6aZbrV4hB3n8C1aHyXhDkyXVY2UcTDn50XYTeb4T24Lv
tTzkoM8DXf9NhjRYPhytKHzJQemiButDJJ92zYTShH/J/BgMe3eRfCMj+cVe
fRxsXM+O8iTzodGafcPiGwcHRe5Lx01oqJpjUMj7zcGbb4xDH5nSwB6wuXxX
RQq1nY6r1JD5/mtZfe4JHSm02eA3e4jUY1mOy4UgUylcNuv+J1tSr5T1209r
2EvhVd9tP5bZ0GBc/D1zeC35/T5vzaHFNDxTjM94tlEK630brtxZQgNVdzo1
OkIKg/Zu7b5I1sut6bpJrvFSmDPPr6jcgQbXmKIDJkekUC97qtT7VTScsXgU
1ZknhWi8585xVxq0Lg0F27RI4WiQckU3Wa+mcaucx8ylkU5+PePdARr27sp2
eA3SSJ2I48SS/VGztW9pkaM0WtzJqpyZRu6/Kn6uz1ZpHAtVbr55koYotdtT
arOkcfDe+ymrr5H6lWi0HWZNQr1HO1xXvKJh88CHDeovJuG5QCPBTUMxFHZa
uQ53TMLywrUPqVli+P4y0fF53yRSv8proeZiSCnVWrSfLYP+WR++mCwSw42D
LpqMhQyWSBkMH3UWw9gfd+iCszI4rJLa/CRaDKecD/ktDJDF6sml3XXPSb/K
3ELPj5BFK5G/kvMrMUxrsdkwL14WTaYvOd3WKoZz6z47mWXJotmclLVN78SQ
6+5qY9Agi9EB9hdivpLn89ZUEs7gYnslZVaoJIEdF38c4c/joomCvtLrqRKY
TTdyFZZwccrrBVt+qEvglujghKwHF28+sNQz0pNAmW//wHgKFx2v1lstsJDA
g+23qgf6uWi2+MZJJRcJJPx92LpvmIteI+I7L91IPx70Le1myaHRcq/+BE8J
1AdPLXynKofhLueWd4gk8Dw0+vTrFXJY2PGl3SxUAu277XfUXJVDy8Sn0mmH
JfDxQId6lr88mqezLMbvSsBtQ8Tx0xHy+OTqExmVaglUz6XkTh2Qx7q+C9UG
DyVwvNtu5Pg5eUxbHTg2u0EClvb/NKY1ymP9JRddSYsE4uRSEuOsJpP9la//
5L0EBsQ6Y7F2k3H3zKwfWz5KwLnyXliM82QsbzdXHPksAb3Ab5sigyZjXZe+
vtR3CTQ8814YnjMZM1I7a2omJCDMmPd5G5eHNhbF1m0UA1H+jX5blXkYNOOv
x6NCBroxsNNXh4ertSWUkjIDpV9zGkQ2PNQW1P2aM42BDS68vA2hPAx981BV
bToDtTPz1TxjeHjibnw4R5cBU+mlx9wP8bBeL+Mlo8cA6/ae2HV5POyOdLp8
zIiBPBXGfU07DxVDGu5mz2ZA4XPMy1U9PDyUvoDlOIeB3Y9V7R2HeOhjJ5s8
Ys7Ayr2r567kKaCpln78fEsGPr2pULBFBdx8X37adhsG5p/PeGB5VQFNZkQE
Zi1nIDapIX20RAE76ffjnSvI84VwNlTWKCDvauhpNQcGnJaGf1v0rwJ6fg1n
JTgy4N+3Xs9OURFzwvccpdYyUNSY8UVGXRHbt6eBvjMDwxUNd+sNFfFmJ8/K
woWB+DTrdY5LFLFg11OdJesYyJ6jleQSrogjHh01Uz0YoNXcnZXjFdH4wc/T
v4kNpI9pth1RxIxWjR9iTwaKWzllnvmKqPFJFHrKi4FnUb19og5F3K3/aNb9
TQwI/bRKdPsUUX5yn3G0DwPuq93jer6R8brivswVMdCj/UQ1QIGPxj92Dmdu
ZmDi0fWVochH2tqzQsWPgWU3epXNV/GxLjWspYD40BktyTcPPjqNCkcWbGVg
auCxyD27+OjTEhO4chsD3q5P7BfE8VEtP+5FA3HeIimlX2l8zFkY7Wbnz4AZ
FfF37BU+ntmX8G1WAKnPf9f3YDEf070zp54lvivpteVU89Hf5WKs1HZSr9vu
nYlv+OhW5Te3jjjjwrGry3v56MV5f1Q7kIHW5Cfhct/42Ng84bibeM6sC0n2
MhSmf/hDZkoQAy25lUH5PAo/FZVRXsR7VdqcuUoUPqFZWReJ1Q9/swqYRqHM
RdMrXcRVv/laT7Qo3LF/B0wLZkAUbjJppgGFSxN7A9cQSw+s+HDYhELTqbfN
44nzN/o1DZpT+OL7l+wiYodX8WWrFlDYYn7t7zbij/YXzhcBhZFGPYFjxBl3
Kg/y7Sm8uzNPorGDgblmbQGhjhTWSrpUFhC35n1b0+RMofSBBP5a4n3TKEtz
DwpL4mOafYk10k00MjdReGVBQUA4cTVnJWfYj+QznWnfT7xlj1+/axCFrc9G
DZOJHwjr+SvCKDRfYb38ELF2kfF8670Uqjp86kgl3r/yiLdpLIVXVZP7E4m7
uj8nTk8g+X8Lj4glXhTnfH3KIQo1BNOTdxGfU7/dIptBoe/5Tzp+xL9Kp479
PEniZQtXuxB7OkfqfjpLYd4OL8XFxBUfOx3EuRSG1eb56xOrpkJYSz6F3fne
m+WI9+j9lfX4OoUrRl6w3pP5ab0vXVNZTCEv0mLlY+J5G7b1X6+g0Ob9Y8wl
PjHSwM+9T+HPgTuDe4idZx31Tn5K4Wj1zt3qxP/Uf02MbKKwMjLSu5/Uk/J1
vR7cRmFO6k7+LeIX2dPGXBgKDc5E0NbEsyyjdZcPkDhzRn6MrJ+0pi6HhZ9J
Pf9oE1QQO3DzsrR/kXrZpz+dQXztkkyNEluAW7kfk9+S9ciFgH4ZWQHeFJnP
SyeuizCd/1EoQCPBz4hesp6XMuUtFcYCnKganLqLrP/cWPWxQjPi99MYRWKW
WqxujqUA+9svPcon+6XKyTYsaakAn3meZhrJ/lpY9Zzv4inAhC9zJrHJ/svy
MJtv7yPAkl+XFJJ8GRgdPu69YCtxeKAzl7h0pvt1rTABlivJXpLewoB5lsRh
MFWAXb/i3naS/X/Mwi7s3VEBdmS22TkSf3mZn/XqpIDkO0mxgvSLIpng/vJc
AV7gWr085M2AcfiPxMQKAZ5J4Bzhk/4yfQ2vRnNAgL0X6y7lujHgWrpm6/HP
Ajw1+7nbG9K/kv7InCwzIsCqbR5LFYkHP0xz+8gR4nSPVW0hpN+Vpxh+uKMh
xIYJuUShEwOrHyxV9nASYtjyxoUdpL/Gz0iqfOYmxD1PTz3uI/23JKNhE24U
ovXF0o4hewbUNjkVGG4X4iFe1BW2HelfvzbCyEEhHoh/68JZwkD0vH0BmWVC
VNuf9zHTioEb5+4qylYJ0XJ/x6+o+QxIpFglkbVC1Cg1axOR/r/iVdKEqEmI
QZaTZAwtGFAKOZFp9kGI/mPry0+T86Tg6o17zzWV0MdN7peyAQPt6r0CbpIS
tvs84ucKGHh8LWRUIU0Jv5ctXSwi51/p/P+6lI6T+IbSQS0+A5kuvEKtC0p4
flN5yxkeyfewuf38UiUU5T7S3CdLzpOfsZFbe5Xwvjjj5/cxCdx8M5WptZ+C
qi0140O9Ekg+vbIkXlYZgw70hO8vI+8HpiHyW+NV8IpuCeuIkwR07jxuD1BX
xeDg3Av/kP9zviPXRsezpqFj0eJ/uzaL4aLB/Yx/rNQxMeVw8gKGhuiwU50v
X2rg1bBEHd1t5H06+Me+2D81Uf7dP+FnP7wDzY2Hjzr2aaHIVp1bNdYFQzGu
Ua+LtbFFRy9jjX4XvHo8tn1KwnQc8B2vurLsLRzUSipJcdLBvXbWbuY7O+HG
6hYDO74upoxHZghL/gX3Uet1gi5d7DD8HVn9uQNi9vkX6l/Uw5VSR/YEYQfs
4u7eGOKlj746mlFVZ99Aj+D8k/oZBpj8WUen5Us7NA+l+GwfMMCq/CdKdu7t
sHh1+i31CkNUL3jnqFnZBpFl4d6cRCNsTFE2fajfBnNGtebOsZ2Bz+r8Bqxz
W8GvuPthiMAYz095uOTI1FZQtt8RM9JkjK9iTvT6nXsNp3rbM26lz8TT+her
Qoxewwn2Rp/YDSZYObHz/LUbLaAwfNn9uNosdOVuM95n2wJSIq5C6cAsTJh4
s7L5VTOEX579fvrfpli8vbrmQXAztEalHj+gNRvn/u9qhv8DExjAsA==
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwd1nk8ldkbAPDrXnFxN1myjTVCRpSliXqehCTbSIWkZShpkygJJZJEIxpb
EjPaxlJxI2qKUtpGspPKvO9rbRuRJMvvzO/8836+n3Pe85xz3uc89+ps3esZ
yGaRJsFi/fe00vDJdXeeBtb/2wA8PbxhqsdzGoKSq9J13/WDl7zVatmd04BO
7UbK5f3w+pIoe1HcNOQXtyo2R/XDvy8fWiSUTwPXd/pjqFI/RG7PP3btGRm/
W3XEhukDzlRkYwc9Dd5BBntyxH2gbGi2a77iDHi0lK4b8OmDpTE5fzSGzYD2
oLR+6s1eeKQQPvwteQaywu86Pv21FzyuuoPexRkY4P3Fs9/ZCwEtkq/CW2dg
8XPFiy/1e+HjjreGFz6Q+Yycqpsle+HOjJ8Nw2ZhiM8fo8MMAw6/WZ/kq7PQ
adM22HqFAdmeuWa681iID50vFJ5ioMF4drvVIjK+Z/49ei8D3jXv525eTRyO
W2xsGNj5rqCm7DALExvOtZ3ppsHM6tft9SdYmN/mtWLiEQ2jR6ME3eksjLBI
+2xcRkOM8nq/WcWkn6Xh15BEw4ot9hy1WyxcPGiqYxVBA7fY/E/TOhb+u7vI
xmMbDWeW88bXd7NwXGrT4hP2NKxL/pa3a4CFA0OVvjkWNKi19znEjhIPhHi4
6NNQuKs2/U+eBDbK+IsjuTRUZh5YMGUrgVzc8HNSKwXeIxImrU4SGBJy3Mbr
KQUTbimGJV4SeCv2vEPmPQqWSRXqbNwlgSoTTZaHiyjo2bJA0zJCAllG1Fml
3yk49le1Gj9eAiPEWyQ1sil4FPZS4a9zEphVWD+xOZGCoEY/0W+XJfD60Jcr
2UcpkDUZ4O0ul0An8UfxwkMUuNLTs354JoGGSo38wzsp+Lgsif2lTQIXp33R
0A+kIDVHaeY5Rdbj487X30RBy88m41ETEii6at2u4UXBgZLKUS8pNgadHp4U
ulOgIrNi2GQ2G3NlVp5zd6agOqDhg6QmGyMms450OlDgV+Mz1G3ERltHy4Si
5RRMq/f2iS3ZqJLyLvvBUgryD4bQycvZGLLmYrnWEgpo0xPdtj5sDAgc1s5d
REF80uxOxUA2et/0u3rLjAKDvvOt70PI/KIH+fKmFDxebtRUF8VGSXcGL86n
IPi8uCE3kY1mvTte7DOigPcNnoWdZWO+bvr58HkUlHo9q3fJZ+OtUVr6mj4F
HtfX1c0tZuNZpbZwjbkUfJajaiYr2Zh4Ntnnji4FZ7fv/qvlAdnv7ycXpOhQ
YPVgvKr4BRtHU7fFpGhT0KEZXxH/io1Owyltt7UoiIwUlvv1k3g1X18qE2u0
5VyzGGGjSVq/wnlNCu6aGxTzZsh8F4udXIk3p9y4wshyEDt/0Tcglhi0vXhH
mYPc3be3/+ff7R8XnNXloPjIrVYXYvv8NXm7TMl4jFmaRdz3/U2O/RIOiacc
Lk3iJa4PztRw5KCf/1LfbGLj8i/poz9z0EJs3ORC1vtcEJv6fCMHR6W3PtEm
+9kTzEsp3MHBEKOjixTJfkWPMk9GhXNw/KacnIEeBWU6eglesRwMq3D8eS05
H6/o0mMmKRzUSJYQFJDzG+v46YhkNgfv6O5155LzzbJ4eLi7kIPxGyeMkgwp
WJLqESG+zkHRTY1b+sYUdL97FZZ8h4O5U5ZqXeR7af3xebdtC/GnreMnF1BQ
Mx0drNjDwbnRG17GmVOw1Vdm+/t3HOzpemadTvLhkrz25lyOJNYdepz/yZoC
06OunpMLJXFA73B+EsmviP05zq0giT2HMqa87Cmo3dZvV+oiiajVxlu4kqzf
NXbR5m2S2DG0WEPHlYLDajcV67Il0cxcz+SuD8knsUb7KdYsXFyvwPcPJ/EH
321Qb5iF3vsMTgaWUVDcvdhrtGsWGnY623hXUPDlxXGXv/tnocqFqYcu1eT8
K7SWHpGQwtyoXP0l9ym4FrdGk7aQQrGdY/MPTRRM/nC7589zUpgY91HUMExB
hmdS4JId0sj1//eG7wIavNN/6bEOl8agpuy85oU0qLbYbrCMlcaAmsxEJysa
ctd+8jDLlka8HDyuv5SGAm8vW4Mn0si70fy+2JmGYn9NhdlGXGzcNJXfFUDD
ngtfU4SWXJw8mSEvG0TDgp5GLn85FzcLLDdZ7KShbEvctLQPF1nKJf6H9pF6
FTAwOJXIxX917S8/iKbhfnBZzeAAF4vPVF33+I2G+KJTNv2jXHSSSvxumEWD
w/uACoYlg6MtX1O+59DwePec4rcqMpj/9ELor/k0/B0SldnqJIN+XZuK9xXR
0HHAcU/tFRlcd//Rfo0aGrIrtQbvimWwUWfVj5n3afAdH//lTo0MxjcOfJF7
SMPrQ0U+lR0yKNv54hr9hAYqSuRQwpXF0tKvN1Y30/DhWJd6dpAsjjWFTkwx
pD5vCE/LDJfFpgJBiGM/DTWLRDIZx2QxTwDDJwZpSGMcxtJyZbFnbaPW2Aca
rBxvNCY3yqLZXiryyBgNR2USjx9dLIcB19BwlRQDg//oTsY4yKHy0pvNelwG
PKv/Co32lMOIjMG6rzIMzN05silylxw23VyVfIrPwJPn/kvC8uVQZWc4/KLI
wOxUy0/buTy888ZVoUObgcNBjYHblHjY3Tvnj1W6DDC4sztAl4fbeD7NYj0G
Kobzn2yx5WFW0CvTCAMGNqzhFW4I4eHA8fOJ5fMZqJt/Wc03moeLDTc1fTZh
wFTS7ox3Eg+TbXyH55sywLp5MGZtIZm/wf/pKTMGCpVpb/cOHuoaVP3JtmSA
/yn6hWsvDw/oz9osb8XAgXoVR5fPPAxr8NNVs2ZgVYTbolU8PkqV3B9S/YmB
j51V/BXIx6HZY2uabRlYX+YVv9yVj4lDn5eUL2WgJunTBPjysaniSVDKMgbS
bPQHbMP4WFznUWGGDFifT71vdYWPfpK/9y1awUBMwpPT42I+MpdCz9HEdXvZ
G6pr+RhlUC152p4BD7uwkaWv+KhWVylqdmAgY37JvZl+PgZcCa/d7chAt2Lf
qdpR0r+ryo6zkoGg/vVzHQQCHIgfaNJ0YqC0MfVfKXUBJk+9+VRIPFr15M7j
eQK019n3TX8VA7HJNmtdlguwzDHyo4ozA4/Dw3QEbsSC8f4kYsGmkg8vfAUo
ma859JU4x1wrYU2YAP0yA+c+WM1Aj5q3p1KsAEOPxAbruDBgIHlGsz1FgFlN
tq2RxLs+PBnKyhFgjW3qzhfE5W3sSt/LArzDD7XQcmVg4p5NnIZYgMr8Nqtg
Yrwa5v6mRoCUW8mh68TPD/f1b+kSYMbend2mbiR/ArXEev0C7I7Tl91O7O3m
fbR3RIANX8fTc4jzrM+4XGYJ0Uuy/ugT4l7tpyo7+EL0c9zdPkJsIsvpNVYT
om7uwzxVdwZCR2xuvDcQYhLn0uslxLe6w6JLFwnx6KGenPXE0w9LVoWgEH27
7F7vJba/1qe00FWI3g8yiuKIk7K0qBEfIU6HFfDSiRtjvUtvbhNiQIWedB7x
nJ1nIg/uF2JaVWdBIbG/11PHn44K8QrrMH2JuHApR+F7shAnVlQ3/dc/ZGD7
9k42sbfDgf/eNxOFF8VcEqJA7WHLf/Mf+FZyEMuFaOr+ejSe+A7Vt4JdI0SP
TJPX+4jZz7VEdc+F+Keny1lf4lU3vbuPdwoxL6VRG4hT885cWdknxIz3K09q
EbedeBomMyLEdVk2Ld/J+Wjs4yx/NkM8fwG3hdj8x7wERykRxl/In3+FuKWg
etdlngiHbLkOEcQRyu2eXAUR9iR2+NoTq58aWbxDVYTjljH7ecR3Z4RaT7VE
GKq4+bdG8j23hJnMmm8gwj2ct49SiSUHnd6dMhFhIbVW4Ers3BRb6fqTCCV/
jxivIvnywTHvfCmI0O357cvBxKm3q+OEjiJM2qqfMIe4rXDE/aWnCBt56wYD
ST7+cjBwwGuXCJPFC8daSX7fn/1Y6BQqwoQ1thBCrF1qbG0TIULW69rN0sRv
mE/HdeJFaCxoRRNyP3w9I/U+nhNharTClAe5X1Ufup3/KRDhsRPKaU3k/qmc
hNCWyyJ0NLE1+Jm47Z5kbXW5CLPqKX8Hcl89f/zV/8QzEbY5G/4ma8fAjcfD
xyNfijCy6OOlsOUMiAK8Sna3k/4XP71+RepBQ47q5BpahF2fS54UANk/tzBb
+7sIG/JVdXikntjRt1qqjOXxUWTQDX9Sjwpi1CeLzYgZdYPzpF6x1GL08q3k
MadliVQnqWd3PVaEJtjJo6JsjeoqCwaW3P1buMZXHi3yBzhy5gwszKac35+U
xz3hPXGqxgzouPNqNQflkar/RztajQGvCvdtaZ/k0T9u9TxfVQYSfkiXkxqT
xyZDmWoLFQbev1Nd94E9G2svfc+glMh9SZz37rbGbLw6caVUR54Bt/t2Sj4e
s3E8fGCZuTQDUZaHdqRXzkbtULe35cPk9069T56boIAfF45/0q2lof7q3nF+
sgIW9XpoX7hHQ4X1tzcKaQpoL7NkltpdGtLX8Iq18hRQKMP+KnebBrdTCx2t
KxTQJm1/bY+YhrqJmMhtfQpYHzn2g8cVGq53zqHrHBXR8XtO1rrTNJzIXCWO
lVbCSW3h6aj1JL7pXtltscp4f/1n2XqaAt3b9R071FVwhwEv0pz8vw8Yuzo+
la2Kx9La3033/AMXDO6l3lisjttbFpqmeP8DUaEZ3S9eaOBKu9eXh1t6wGP3
10MxqzVxdKPezeCNPaC58dSvLv1aqLViQDyr5i18jvY63FqujS5O0Rfy3ryB
pvrJYMV4HaSvjZUtG30NcVoJ4kQPXfTWr64xV3kN19xaDByEeji3aKLr0Zpu
8B63WSv/Rg+Vg3dssE18BdGHgor1L8xF6zA599tNXbCfe2DjXj99bKNYgwcM
u6BX/vzTx0YGmMlKCx452AnNnxM3Bw8aYELJgPbprg5Y5na6TL1qHnY+UhCf
tO6AyMowf/ZxQ3yXbzJ5N68dzMe1FpmvMEKTtpJcX+V2CCxnHuyVN0aTKv+1
NYltoOS4J3rspTEKDjD9xrJtkNHXkVp2ej7qfYzVkU1vhbMSGzfHbDDBS359
ZdJzWoE/etE7Te1HZExbjk9fbgHOFi6/YvBH/LLe7voeixYIu7hgSKfIFP8o
iMh79rwZKr9a6zwIWoBvnEH0PbgZjig4CI06F+Ci/7dm+B87d05G
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"V\"", TraditionalForm], 
    FormBox["\"p\"", TraditionalForm]},
  AxesOrigin->{0, 0.3},
  BaseStyle->{FontFamily -> "Helvetica", FontSize -> 18},
  PlotLabel->FormBox["\"Isothermen\"", TraditionalForm],
  PlotRange->{{0, 10}, {0.3, 0.75}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.449465673864002*^9, 3.4807347724739723`*^9, 
  3.497775418200048*^9, 3.5430256446145887`*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,
 CellChangeTimes->{3.449381224256858*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
van der Waals - Gas VII: 
Maxwell-Konstruktion\
\>", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, {3.4493805712999287`*^9, 3.449380591703601*^9}, 
   3.4493812242464743`*^9, {3.449381269222693*^9, 3.449381288235824*^9}, 
   3.4493815615603*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.65", ",", "v"}], "]"}], ",", "0.45", ",", "0.5", ",", 
     "0.55"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "b", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", "0.75"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Green", ",", "Black", ",", "Blue"}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<V\>\"", ",", "\"\<p\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Isothermen\>\""}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.4493809355559883`*^9, 3.449381014887783*^9}, {3.449381335682493*^9, 
   3.449381423031123*^9}, {3.4493815116475897`*^9, 3.4493815207033777`*^9}, {
   3.449381577729125*^9, 3.4493815890058928`*^9}, {3.449382120658074*^9, 
   3.449382153196885*^9}, {3.4807346950231256`*^9, 3.480734697269413*^9}, {
   3.543025622577692*^9, 3.5430256258019238`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwd13k8VH0XAPAhIQazIKUIWaKkFFrPqR6SKK8UPSQJJYqQkDwkW3pLWhWh
FJUiiixZyr5kKszYxlx7pRIqsr2/573/zOf7Ofdzf+f+lnPuqDh5WrkI02i0
BUI02r+/7Rb0C7XBk0D7/zUIG8YN76UmT4LWsvCgt1YD0DIy8fl8wSTwJofY
yc394PW1UN+laRIw2ktl0YF+SO2GCnXxKRiOTFLZGdAH9Ibtgw89pyBq9DRn
R3cP3HBSNeBETkHp7H0eP6YHlMenwiaSpoCzfKT7jFEPrFbLVjbnTMGr72yV
Y7e7oejVxeOnBqeAcfXhzZjd3WC860jhXdo03BIZD9sr1g22AYtsfuhNQ1TX
iM7FYAq6pX+nLtwxDdWxP880bqLAPfX9yLZD00B7H2N3dFYAwY0Rl25cmYYQ
Rdvo3dECSFX/UbFhhFhhn6eMRxfoFtaxXSRmgKbOjpaid0Ge5cNDl1RngDPv
VnF6Jh9qz9hNC6xmwFGKP7RNiA/WTIOdEu7kftWjP+mZndD5kBGvHzYDw9al
mnMdO2H4fcWaiJwZyPqAJUp1HRB4JPlcZt0MCHy1RBjhHTBnOpDD6yHPt4lU
42zpAHktPQ8d2VnIumbx2/ltO2wKvn2f4zsLS/pqXJJ626CSferHxEUSr6pI
L81uA8tHu0HtwSxYKrv2M8PawLlJpP1U8yw4ri3bSNNug29uXVpJX2eBE112
J4jWBkWz9ht6hWlYOlnjP8BrBePrhtFSijS09J9IMb/cChKCpXqqmjRE429S
2sdb4Z02i2ugT+Llz1YWmbeCbenQUsedNGTcvR5Tw2iFxZJtdb42NNQrttyi
85MH3XurvKMP05CWuS1Rup0H7l9SSrPP0DD5004HnSc80DO4fKQqksTPZ+ru
us6DsZAg6Y6rNFzSoOBXEcKD/Dq3l8NJNBw+eeB1xHEeBMvb2M/NIPlIf+uI
tOPBtkN/zVn4ioxnbvqn2IwH4hmrHuuW09BxR0i46gYeXNlCH7fpIHGNu3Qz
ZR7suzhx12OQjPci1XSKxYOF3H7j0DGST/vJE3liPOhSaRq6ThPCWFmxLT7T
XEj1KLv6mC6EyT5DpZpjXHDLe7a+REEIOSbG2g1fuKArnEB9XCqEpXd/jtj1
cmHEPDpqUE8IvZR41fWdXMi76bdyeqMQ0nznxCrwuGA7KrS82ZR4UJ2/6yMX
/uz6r9ZTazLe/Jg0s0YuJDxWUA93FEKUlKyeW8+FzaKpKgc8hFBwtnp7YA0X
BIdWKq31F8KsSv7+e1VcOPe6YKHUeSFc0rLQzr+SC0sXmMzvuyyEw13FnF8V
XKj0fc9+fYfka2F5RIHEj3LsGdfTSDzR8weXWGL5IP14DsmHk++qV82FjEif
ecYlZDzJnO5FtVyw6JmZu7iOxJcX3L9F8vm2+YLwzxbyvDYRiSSSb+xtudn6
bjL++P0bOuR9Vv9Knkz9JoTi45c/r+Nyoek/y8eD/ghhyO+iiop2Lvg9zRuz
FhXGZDAQrRNwQWHeth/LWcI4/hPTjPu5UOD87quIkjAuKQgvXTXEBfvS/Z87
lgmj+BiGx4xwYUaxr//FWmHEmwHbdk9wIfm0V8/FLcKop7b5cACNBz26kR0b
9wuj1gOnvhEZHpy/wGqVdRHGYZ+zVzco8ECjP7F5yEsYQ9ZvXNe5hAfHEl+8
S4gSRppS16ySPg9GJLtLp/LI/boHV5mR/XXtyPHXTW+F0UskK1vMlQcGb8fz
MxrJ8znKx8VO8iAwUCbHfkAYHenLbr+N5IHQp40PiuTnYMjykMGhPB4wKm9G
B52ag1F/DHU1VVpBN8TCamq1CN5Kkg1gSLaBv89ts2YQQV7sI4VkxTYocx3Y
+sxcBLX6tyzfvLwNrC1C9R1dRdD/T0JoskUbnFn4UrY8XgRLn43Wt8e2QfWL
RdwY2lwcDN1RuU6hHZw+fbFTfDcXjUptt15Y2gEZHUbWY21zMTmt+OGctR3w
szHcvGFgLi4559rtZdwBUbnKm/4REsXxB2wZddcOyAzbo9SzRhRNJevcBx92
wNTiQsHjO6IYciboeZR6J9ywuuCy3k0MTd+du7ZZjg+2Vw8LDE+JYfK0xJ9E
VT4saNpotzZUDB0rNN2+rORDwt7vlnrxYsi4ECFmacaHFFvrjRo1Ypj1wkZ4
czAfMhyU2Kxl4lhNnUi4282HN8eySz8NiqOj7tqS1YldcP5JzIaBMXEUf6oT
sD69C4yHnHN7afOQYWO2fmVOF1Qfn5/RpTAPtWq1e7qqu6DBK+hms+k8jMpV
d3YY7QKen8mJsvR5OCLRrOGuKoCv59oU449K4D2RRWmTHgLYZ3cq7uYpCczO
3brm5UkBlOoz5t04J4Gs2w4Hnf0EENdr/CsuQQJ5kPLy/j8CMDB5zrnIkcBh
uoFv2hUBhMyLCg8xksTSLt8l9TkC+ESpTgUbS+Jq8UPQmycAq4LX3metJHHN
gYrkkUIBLHUfPRjoIYn39Pj7Rt4KoKbeYb1vsiSGVD6uDP4oAFbs2u9HxOlo
1HX2YvOwAM4c5bi4ytExKiuXYTMmgF5073BWpaO86VhM428B5P5Irjm0kY56
TneuP5gRgN0eeqqdFx19QxjrBiQpSJXvsd3No2M37bOgdikFUt/PNlr00fGx
4z0s06TAr0rBxHyEjmv07S0ztSnY4b9LfwddCv3mfH7qrUfBt9Z8qW0ohWYK
a+7f3ECBYWLsG4N0Kaz2VjzlbElBcETNpfEXUvjGuv1NoxUF5Z7CdgVlUqjx
pLNIfy8Fllt9Rze1SyFn5/euvv0UHB2wWWosLY0M6+viY04U3F6lHLHHVxo1
ut5OlfpQIFhoayUXKo03tn8dKTxFgYbIFSXuf6XRn9+xPus0BTktwnl/p0lj
y7Mtg+fPUFB/pn/gUJs0rrniz+k6R8FMxdMdXiiDgzNRJ51jKfgrs19utYUM
3pXX1pi4QsGFW8rdo/tl8NvMz+rIqxTMd78SeNpHBsfmVc7E3aBAj3HqSfBD
GUw3mrPKKYHMz8TT05gjg2ZnZ+2rEiko6u7fJlwqg3F158s0ksh8vbTtCG+V
wTfKsbZNKRSsWnE3wkSUgclhCoVfHlLQlFLgkUZn4EicfLpaOgX+8lwrcTYD
b8f+R27fIwqKZ2WUa5UZ6Lg35urjJxSYfQjNs1jHwGPWEix2FgWHT7sMWnsw
8Oj0+ZhPeRS8YVXLmHozMGLVOpviVxQseaZtuMGfgbh0e+OlfAr4vd/DVc6T
8V6/4KsWUvC3VaDatzsMLLf8pqdQTEH+1w4zKoWB5pvL5OqIFaLBuymNgUpJ
99sCSihoKREpK8hh4Dc+d3FdKQVWKy47RNYx0OipyLpNbyl4Xv0jPPA9Aw0W
xDU0EjOcrZ8e5zJQd1rg41BOwbvbC6b29DDwVbeItFcFBSsMgtS2f2LgRqEB
qVHii+/5Zuu/M7C3PdXQu5K8r3hq/JJJBsbFnV7iUkXBo/uiZWwhJsrW//2F
RywOboOiYkz8EJn727SagspTuoZfWUwsqlAaWlxDwdaeV0352kw8uv1n751a
ClKCFacy9Jjo+lvuwAgxbWGwWrIBE0OoU38Z15H5ttzmHbGViUZTxqcFxIuH
HsQHmDJxKLW+QauegqBI8TKPXUwcOV/y6Djx+uIGmT1/M1HpSrnYV+L4/XqG
Jo5MDA5+fk2zgYLxsTiHda5MXK9fWuRAbBP7M3y5BxMrE3aGxxHn6tg+VfZm
4o09aaNviOWqCppY/kzcek9ZapjY12nx1NxgJtpfnGhZ8I6Cj9P/qE2EMfFS
s/c+JF4d3202FM3EXPE3sYeJr6wx9u66zMRfwfIxYcTDjWnxH64zsd/1llky
8W53ibKKO2R+6o425RM/Ez0++CqFickJKSs4xFL3GmUy0pjIz9lr10PssWm1
YdJTJuryY51Giet41xzicpio0G1jSmukQNv3d3h4PpmvyHSmBHG0zN9P/UuY
+Cox4C2DePBxUZN7BRPT5xY6yRJvN1Gecqhj4oncvWP/+iEVqmb1nombK3XO
sojnnu01M+YyMeqkgrAUsbPCdm+jTiYGqQ5HihC/yXkUr9ND3t8/hD1B8lHZ
TS9T+sTEz7tjH30mts7d7Rr3nYm0KM5LLnHE4quSor/I/X0TVmXE+edbsgKm
mLijSzwyjXjoy4J9X4VZ2Pl62OYCsfKeA5OO81i4Pe1OnRuxVUFycpMMC/Ue
fx4wJg5X6TU2lWehfc3LbCXiV1GaXwoXsVBMrH7VGFmvL9+Pxa5UY6Gl1+ix
SmIlm2dr7y9j4UOtT4evE4eprw25YMDCySqxjGX/rv9Ff/WZjSwUrg8W/U72
z+BoYe3JbSwc8HQ0fE68681Wuf2WLHT6nLR6OXHosoiC+n0srLMVFe8j+/NF
bM1BPMDCsKeDNbeJFx60fKx5jIUKpk1a02R/W1Re3X3Hi4XqUvc4j4hDVnDH
pE+z8F6Db+Ae4r7JA/ArjIV3t+z7lEjOi8LhlF63Cyz8XNn/ajOxWW1vdGcs
CxuEQpI6yPnKuuXeVJ7IwoiVfpUyxEFrA9yu5rGQHm8pYU3Oa2ZCkbRYMQu/
OYEKn5zn7jm0F4HlLHS8kH/ahdj0Q8TMofcsHFk0+cud1AO257Wrel9YiJNZ
lbZvKDBp4Rql/mAhx2qlU0MZqYebFPnzx1nYyK06DMR8yXtasyJsPLpq9oki
qT+P0zNfNyixcZ/i8PuXrynolBl12qLORvkjncryxIzTBuIvddjIy70+7lNE
6rXxa6sEIzYeu2Rgr0Xq35bu2oFjVmyUcrY94kvqJU+xnykewcb0ooO7E7Mp
qHrkOS51kY1h9hqBfc/JehlO8NlxbKQJZRbqEF/dQ89QvsvGPLp6bHYmWa+Y
1SaGuWxMK3FrfZRB+t2f4EDXfjY+yazI2ULqfVbr/J5yE1nMDZep1rlFQdKR
lJpac1nUvPOzfuNNCi791M7iWMnikssFpuak37gzN5/tcJDF1V9KMl2vkX63
w3n+mJ8sXtg1FBFN+lfCq6ydammy+KVj58PoKAoib+54ESomhybGcVvDST/s
XXHP2E1KDlUy5LM9/Ug9LP/TYsmWQwO1zWO2pH9ODT+ZUFaWw6Ujw+OapL96
m0lDsYEcNn26svnVCQrspz/U/HGRw60T0hH3XUj/O2zf5VMuhxaF38qzST/n
6XpKuIbKo0eh4ZAC+T5QLaziuSkqoM9k3cDzagE4/3o0Ph2/APl99IK7rgJI
0iiJfW6kiP5UgO/SH10Q5H2jo7FxEXIePllJn98Flsd/BwTvVEJT9ahoTQs+
KB2IuWw+oIw920Kf6fp1wshZ6zPNOUuwg3vy5PPsDvhQNXVM9rwKfn8nwfXr
a4cw5YgXUZaqmB2+KVRfrR0ydzVpGMuooem9M5OPfNvAdnzDXiZfDR3uaxdU
F7fC2YCjGepJS9FFJbb6nWIr+Ij7HfC0V8fgFNski3M86GMm1lYv00CXhr+u
XO/mwseRKMdjnzRQN+HSRPYe8v9r16VsxXxNTPA6Hby9pAUC83wdhMO18Jbt
wJU6/RZYNa6sv2rbMhRPbz43k9sMLjm9bz2Z2hhcF7NQc20zyJmcOPvrvTba
/Hesp720CW7082KzL+lg0LXW8fV7muCa0AHHYLvlKNga7f1V8BGkxh7Yxi1c
gfqFF31OBH4EqwQv+ZxU4v9fH+F/0J5mTA==
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/TRYLIOB4YP92TMgcMfebO/7/lO/P8H5bWont0/5
/hXO5znr/mJZ/h84f/v0Mv2/NowOML5eg2/QHyMWOH9aUFeqVSY7nP+26Zb0
zAwuON987oRDZit44fzk8tQXITkCcL6iP89BuZeCcP4N6WeCHG3CcH77dM8t
jeyiCHm9fK60RjE4X2n38RuZ0hJwfsq3lT/+zpSE8+er7Z+w0UIazq8pmnbn
/HkZOD8g93tlnbccnC8X293v81wezv9UG1J9dbMCnH/p+J8skRZFOL9Zvm1L
R4ASnL/e74qaK78ynB/xwzpU8B6CX1uZsUZ1vgqcX8xRFpsfowrnPxWce+qE
phqcf/lTR0LWSwTfzq9vk/ROdTi/antJHFOrBpxv+EPe2NBZE85P3fzkcL6g
Fpwv6pZX++0igj/t2Y0Jm/q04fwpjLEJddE6cD7vl6URk6R04XzmRA7ebS8R
/JKl+q8UV+vB+du/myseztCH860f6XBZSRsgwsNEYYZZNYK/xVmBxfoxgv/j
poBslKchnP/rdrLX3BUIvtXsw6Ev+I3gfItjraXhBQi+fIWF08NzCL7L8+9v
ikyN4Xz1Q5JrNKYi+CV6Z4KmnELwD82q+/n/P4IPABPm5Jg=
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/TRYLIOB4YM9Axg8sDfb+77/1O9PcH6b2sntU75/
hfN5zrq/WJb/B87fPr1M/68NowOMr9fgG/THiAXOnxbUlWqVyQ7nv226JT0z
gwvON5874ZDZCl44P7k89UVIjgCcr+jPc1DupSCcf0P6mSBHmzCc3z7dc0sj
uyhCXi+fK61RDM5X2n38Rqa0BJyf8m3lj78zJeH8+Wr7J2y0kIbza4qm3Tl/
XgbOD8j9XlnnLQfny8V29/s8l4fzP9WGVF/drADnXzr+J0ukRRHOb5Zv29IR
oATnr/e7oubKrwznR/ywDhW8h+DXVmasUZ2vAucXc5TF5seowvlPBeeeOqGp
Budf/tSRkPUSwbfz69skvVMdzq/aXhLH1KoB5xv+kDc2dNaE81M3PzmcL6gF
54u65dV+u4jgT3t2Y8KmPm04fwpjbEJdtA6cz/tlacQkKV04nzmRg3fbSwS/
ZKn+K8XVenD+9u/miocz9OF860c6XFbSBojwMFGYYVaN4G9xVmCxfozg/7gp
IBvlaQjn/7qd7DV3BYJvNftw6At+Izjf4lhraXgBgi9fYeH08ByC7/L8+5si
U2M4X/2Q5BqNqQh+id6ZoCmnEPxDs+p+/v+P4AMAXpfshQ==
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/TRYLIOB4YP9rJkg8NDebO/7/lO/P8H5bWont0/5
/hXO5znr/mJZ/h84f/v0Mv2/NowOML5eg2/QHyMWOH9aUFeqVSY7nP+26Zb0
zAwuON987oRDZit44fzk8tQXITkCcL6iP89BuZeCcP4N6WeCHG3CcH77dM8t
jeyiCHm9fK60RjE4X2n38RuZ0hJwfsq3lT/+zpSE8+er7Z+w0UIazq8pmnbn
/HkZOD8g93tlnbccnC8X293v81wezv9UG1J9dbMCnH/p+J8skRZFOL9Zvm1L
R4ASnL/e74qaK78ynB/xwzpU8B6CX1uZsUZ1vgqcX8xRFpsfowrnPxWce+qE
phqcf/lTR0LWSwTfzq9vk/ROdTi/antJHFOrBpxv+EPe2NBZE85P3fzkcL6g
Fpwv6pZX++0igj/t2Y0Jm/q04fwpjLEJddE6cD7vl6URk6R04XzmRA7ebS8R
/JKl+q8UV+vB+du/myseztCH860f6XBZSRsgwsNEYYZZNYK/xVmBxfoxgv/j
poBslKchnP/rdrLX3BUIvtXsw6Ev+I3gfItjraXhBQi+fIWF08NzCL7L8+9v
ikyN4Xz1Q5JrNKYi+CV6Z4KmnELwD82q+/n/P4IPAEjlp3Q=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"V\"", TraditionalForm], 
    FormBox["\"p\"", TraditionalForm]},
  AxesOrigin->{0, 0.3},
  BaseStyle->{FontFamily -> "Helvetica", FontSize -> 18},
  PlotLabel->FormBox["\"Isothermen\"", TraditionalForm],
  PlotRange->{{0, 10}, {0.3, 0.75}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.4494656740295763`*^9, 3.4807347725505743`*^9, 
  3.497775418564822*^9, 3.543025644733183*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,
 CellChangeTimes->{3.449381224256858*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
van der Waals - Gas VIII: 
Maxwell-Konstruktion\
\>", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, {3.4493805712999287`*^9, 3.449380591703601*^9}, 
   3.4493812242464743`*^9, {3.449381269222693*^9, 3.449381288235824*^9}, 
   3.4493815615603*^9, 3.4493816902328863`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.65", ",", "v"}], "]"}], "\[Equal]", "p1"}], ",", "v"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, {
   3.44938072652171*^9, 3.449380731447811*^9}, {3.44938076197738*^9, 
   3.449380798025185*^9}, {3.449380830700314*^9, 3.449380837481848*^9}, {
   3.449380922059348*^9, 3.449380923210347*^9}, 3.449381224253866*^9, {
   3.449381725501793*^9, 3.449381777100445*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", "1.86296771689598`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", "3.1676526314031146`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", "6.778242651700918`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.4494656740459003`*^9, 3.480734772790678*^9, 
  3.497775419368025*^9, 3.543025644902514*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"v1", "=", 
  RowBox[{"v", "/.", 
   RowBox[{"sol", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"v3", "=", 
  RowBox[{"v", "/.", 
   RowBox[{"sol", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.4493809355559883`*^9, 3.449381014887783*^9}, {3.449381335682493*^9, 
   3.449381423031123*^9}, {3.4493815116475897`*^9, 3.4493815207033777`*^9}, {
   3.449381577729125*^9, 3.4493815890058928`*^9}, 3.449381701545364*^9, {
   3.44938181352995*^9, 3.4493820105098953`*^9}}],

Cell[BoxData["1.86296771689598`"], "Output",
 CellChangeTimes->{3.449465674180703*^9, 3.480734772798799*^9, 
  3.497775419495658*^9, 3.543025644979949*^9}],

Cell[BoxData["6.778242651700918`"], "Output",
 CellChangeTimes->{3.449465674180703*^9, 3.480734772798799*^9, 
  3.497775419495658*^9, 3.543025645035406*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MI", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.65", ",", "v"}], "]"}], "-", "p1"}], ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "v1", ",", "v3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.449379705290448*^9, {3.449379752694697*^9, 3.449379769386258*^9}, {
   3.4493800465391293`*^9, 3.449380061051717*^9}, {3.4493800975362167`*^9, 
   3.449380098102232*^9}, {3.449380684103717*^9, 3.449380699739862*^9}, {
   3.4493809355559883`*^9, 3.449381014887783*^9}, {3.449381335682493*^9, 
   3.449381423031123*^9}, {3.4493815116475897`*^9, 3.4493815207033777`*^9}, {
   3.449381577729125*^9, 3.4493815890058928`*^9}, 3.449381701545364*^9, {
   3.44938181352995*^9, 3.449381893988147*^9}, {3.449382016911963*^9, 
   3.4493820398865023`*^9}}],

Cell[BoxData["0.03382614018400787`"], "Output",
 CellChangeTimes->{3.4494656747379217`*^9, 3.4807347733286123`*^9, 
  3.497775420002557*^9, 3.5430256459655037`*^9}]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,
 CellChangeTimes->{3.449381224256858*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
van der Waals - Gas IX: 
Maxwell-Konstruktion\
\>", "Section",
 CellChangeTimes->{{3.448252138756228*^9, 3.448252149090917*^9}, {
   3.44825237865845*^9, 3.4482523798580627`*^9}, {3.448252920853627*^9, 
   3.448252924123551*^9}, {3.448253078598673*^9, 3.4482530806620073`*^9}, {
   3.448855172349203*^9, 3.448855206266939*^9}, {3.448939166344027*^9, 
   3.4489391718689632`*^9}, 3.4489393531568336`*^9, {3.448943048329535*^9, 
   3.448943055251327*^9}, {3.448948714990597*^9, 3.448948718118239*^9}, {
   3.4489487909091253`*^9, 3.448948793486484*^9}, {3.44937940758599*^9, 
   3.44937941342311*^9}, {3.4493805712999287`*^9, 3.449380591703601*^9}, 
   3.4493812242464743`*^9, {3.449381269222693*^9, 3.449381288235824*^9}, 
   3.4493815615603*^9, 3.4493816902328863`*^9, {3.449382183676198*^9, 
   3.4493821863488817`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"po", "=", "0.55"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"p", "[", 
       RowBox[{"0.65", ",", "v"}], "]"}], "\[Equal]", "po"}], ",", "v"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v1", "=", 
   RowBox[{"v", "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v3", "=", 
   RowBox[{"v", "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MI", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.65", ",", "v"}], "]"}], "-", "po"}], ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "v1", ",", "v3"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, {
   3.44938072652171*^9, 3.449380731447811*^9}, {3.44938076197738*^9, 
   3.449380798025185*^9}, {3.449380830700314*^9, 3.449380837481848*^9}, {
   3.449380922059348*^9, 3.449380923210347*^9}, 3.449381224253866*^9, {
   3.449381725501793*^9, 3.449381777100445*^9}, {3.449382206641172*^9, 
   3.449382294438984*^9}, {3.449382452633697*^9, 3.449382453191782*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.17333283041011605`"}]], "Output",
 CellChangeTimes->{3.44946567513282*^9, 3.480734773625885*^9, 
  3.497775420795414*^9, 3.543025646208898*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pu", "=", "0.45"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"p", "[", 
       RowBox[{"0.65", ",", "v"}], "]"}], "\[Equal]", "pu"}], ",", "v"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"v1", "=", 
   RowBox[{"v", "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v3", "=", 
   RowBox[{"v", "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MI", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"0.65", ",", "v"}], "]"}], "-", "pu"}], ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "v1", ",", "v3"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, {
   3.44938072652171*^9, 3.449380731447811*^9}, {3.44938076197738*^9, 
   3.449380798025185*^9}, {3.449380830700314*^9, 3.449380837481848*^9}, {
   3.449380922059348*^9, 3.449380923210347*^9}, 3.449381224253866*^9, {
   3.449381725501793*^9, 3.449381777100445*^9}, {3.449382206641172*^9, 
   3.449382404729851*^9}, {3.4493824380588627`*^9, 3.449382456984062*^9}}],

Cell[BoxData["0.3159321917214317`"], "Output",
 CellChangeTimes->{3.449465675487178*^9, 3.4807347737966433`*^9, 
  3.497775421043244*^9, 3.543025646474115*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", "MI", "]"}], "\[GreaterEqual]", "0.001"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"p1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"po", "+", "pu"}], ")"}], "/", "2.0"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sol", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"p", "[", 
          RowBox[{"0.65", ",", "v"}], "]"}], "\[Equal]", "p1"}], ",", "v"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"v1", "=", 
      RowBox[{"v", "/.", 
       RowBox[{"sol", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"v3", "=", 
      RowBox[{"v", "/.", 
       RowBox[{"sol", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MI", "=", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"p", "[", 
          RowBox[{"0.65", ",", "v"}], "]"}], "-", "p1"}], ",", 
        RowBox[{"{", 
         RowBox[{"v", ",", "v1", ",", "v3"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"p1", ",", "\"\<  \>\"", ",", "MI"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MI", "\[GreaterEqual]", "0.0"}], ",", 
       RowBox[{"pu", "=", "p1"}], ",", 
       RowBox[{"po", "=", "p1"}]}], "]"}]}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.449380595351453*^9, 3.449380651771937*^9}, {
   3.44938072652171*^9, 3.449380731447811*^9}, {3.44938076197738*^9, 
   3.449380798025185*^9}, {3.449380830700314*^9, 3.449380837481848*^9}, {
   3.449380922059348*^9, 3.449380923210347*^9}, 3.449381224253866*^9, {
   3.449381725501793*^9, 3.449381777100445*^9}, {3.449382206641172*^9, 
   3.449382404729851*^9}, {3.4493824380588627`*^9, 3.449382487413538*^9}, {
   3.4493825174191227`*^9, 3.4493827098108997`*^9}, {3.44938280027899*^9, 
   3.449382802772325*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.5`", "\[InvisibleSpace]", "\<\"  \"\>", "\[InvisibleSpace]", 
   "0.03382614018400787`"}],
  SequenceForm[0.5, "  ", 0.03382614018400787],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.543025646644249*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0.525`", "\[InvisibleSpace]", "\<\"  \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.07985311619165092`"}]}],
  SequenceForm[0.525, "  ", -0.07985311619165092],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.543025646773992*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"0.5125`", "\[InvisibleSpace]", "\<\"  \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.025337423974582052`"}]}],
  SequenceForm[0.5125, "  ", -0.025337423974582052`],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.543025646906576*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.50625`", "\[InvisibleSpace]", "\<\"  \"\>", "\[InvisibleSpace]", 
   "0.003673125913509878`"}],
  SequenceForm[0.50625, "  ", 0.003673125913509878],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.543025647036149*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.5093749999999999`", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "0.010975827216620715`"}]}],
  SequenceForm[0.5093749999999999, "  ", -0.010975827216620715`],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.5430256471878977`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.5078125`", "\[InvisibleSpace]", "\<\"  \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.0036871433669576348`"}]}],
  SequenceForm[0.5078125, "  ", -0.0036871433669576348`],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.5430256473824177`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "0.50703125`", "\[InvisibleSpace]", "\<\"  \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.000015942736309781935`"}]}],
  SequenceForm[0.50703125, "  ", -0.000015942736309781935`],
  Editable->False]], "Print",
 CellChangeTimes->{3.449465675549074*^9, 3.480734774109627*^9, 
  3.497775421858645*^9, 3.543025647443495*^9}]
}, Open  ]]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,
 CellChangeTimes->{3.449381224256858*^9}]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{1024, 695},
WindowMargins->{{-2, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Linux x86 (64-bit) (October 10, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 293, 4, 298, "Title"],
Cell[863, 28, 399, 5, 106, "Subtitle"],
Cell[1265, 35, 386, 5, 106, "Subtitle"],
Cell[1654, 42, 44, 1, 1, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[1723, 47, 526, 7, 135, "Section"],
Cell[2252, 56, 435, 14, 100, "Text"],
Cell[CellGroupData[{
Cell[2712, 74, 346, 12, 82, "Subsection"],
Cell[3061, 88, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3154, 95, 578, 8, 135, "Section"],
Cell[3735, 105, 73, 2, 52, "Input"],
Cell[3811, 109, 310, 7, 90, "Input"],
Cell[CellGroupData[{
Cell[4146, 120, 193, 8, 79, "Subsection"],
Cell[4342, 130, 366, 12, 88, "Input"],
Cell[CellGroupData[{
Cell[4733, 146, 148, 3, 52, "Input"],
Cell[4884, 151, 125, 2, 52, "Output"]
}, Open  ]],
Cell[5024, 156, 86, 2, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5159, 164, 601, 8, 135, "Section"],
Cell[CellGroupData[{
Cell[5785, 176, 1885, 49, 275, "Input"],
Cell[7673, 227, 42845, 717, 344, "Output"]
}, Open  ]],
Cell[50533, 947, 144, 3, 49, "Text"],
Cell[CellGroupData[{
Cell[50702, 954, 1296, 31, 201, "Input"],
Cell[52001, 987, 8122, 142, 532, "Output"]
}, Open  ]],
Cell[60138, 1132, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[60219, 1138, 667, 9, 135, "Section"],
Cell[CellGroupData[{
Cell[60911, 1151, 305, 9, 52, "Input"],
Cell[61219, 1162, 381, 12, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61637, 1179, 353, 9, 52, "Input"],
Cell[61993, 1190, 360, 11, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62390, 1206, 687, 17, 52, "Input"],
Cell[63080, 1225, 523, 11, 134, "Message"],
Cell[63606, 1238, 292, 7, 52, "Output"]
}, Open  ]],
Cell[63913, 1248, 86, 2, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[64036, 1255, 647, 9, 135, "Section"],
Cell[CellGroupData[{
Cell[64708, 1268, 1967, 51, 312, "Input"],
Cell[66678, 1321, 39278, 659, 430, "Output"]
}, Open  ]],
Cell[105971, 1983, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[106052, 1989, 731, 12, 207, "Section"],
Cell[CellGroupData[{
Cell[106808, 2005, 1847, 46, 275, "Input"],
Cell[108658, 2053, 23791, 401, 313, "Output"]
}, Open  ]],
Cell[132464, 2457, 86, 2, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[132587, 2464, 756, 13, 207, "Section"],
Cell[CellGroupData[{
Cell[133368, 2481, 1712, 41, 238, "Input"],
Cell[135083, 2524, 8571, 150, 313, "Output"]
}, Open  ]],
Cell[143669, 2677, 86, 2, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[143792, 2684, 781, 13, 207, "Section"],
Cell[CellGroupData[{
Cell[144598, 2701, 610, 14, 90, "Input"],
Cell[145211, 2717, 414, 11, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145662, 2733, 781, 16, 90, "Input"],
Cell[146446, 2751, 155, 2, 52, "Output"],
Cell[146604, 2755, 156, 2, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146797, 2762, 828, 17, 52, "Input"],
Cell[147628, 2781, 164, 2, 52, "Output"]
}, Open  ]],
Cell[147807, 2786, 86, 2, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[147930, 2793, 831, 14, 207, "Section"],
Cell[CellGroupData[{
Cell[148786, 2811, 1296, 34, 201, "Input"],
Cell[150085, 2847, 174, 3, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150296, 2855, 1281, 34, 201, "Input"],
Cell[151580, 2891, 159, 2, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151776, 2898, 2071, 53, 349, "Input"],
Cell[CellGroupData[{
Cell[153872, 2955, 329, 8, 41, "Print"],
Cell[154204, 2965, 346, 7, 41, "Print"],
Cell[154553, 2974, 351, 7, 41, "Print"],
Cell[154907, 2983, 339, 8, 41, "Print"],
Cell[155249, 2993, 384, 9, 41, "Print"],
Cell[155636, 3004, 364, 8, 41, "Print"],
Cell[156003, 3014, 368, 8, 41, "Print"]
}, Open  ]]
}, Open  ]],
Cell[156398, 3026, 86, 2, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)