(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       150,          7]
NotebookDataLength[    137785,       2657]
NotebookOptionsPosition[    110309,       2064]
NotebookOutlinePosition[    136555,       2625]
CellTagsIndexPosition[    136442,       2619]
WindowTitle->Boltzmann Gas
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 ButtonBox[
  GraphicsBox[RasterBox[CompressedData["
1:eJztvXmUXldxL8pazzeKUCRHkqVWz3O3utWTutWjWq1u9dz9SdbgSZ7AI1OY
59EGMxgMGI9AgACBJIwmcBNCwnBvgm2mvPduCATWevfmvgD5864L5P3Neaf2
WFW79vlOt2RJtrfXqnW+s3ftGn5Vu2r7bEtuvfXlp2/9P57znOd05fS133vO
cy7Ln0/Mdf6vROebOhIlSpToKaaLXecSJUqUKFGiRBeIfmfoYtuRKNHTjX73
RNo/iRKVod8V0MW2LVGii0VF+2Ize2Wj8hIleibQed2X//dCZ5bowtP/lehZ
QRc7zxI9/fZ5efldF92/RIkSJUqUKFGiRIkSJUqUKFGiRIkSJXqq6b+v7k90
3qm7Oq0kSoSoTM4kelrR/3MOBHXkf5Si7kSJEiVKlChRokSJEiVKlChRokSJ
EiV6RtP/XO3+X4kSJbr49K+JnjH0PwT67yvFhHn/FT1jdLHzNVGiRIkSJUp0
weh3hi62HYkSPd3od/8z7Z9EicrQ7wroYtuWKNHFoqJ9sZm9slF5iRI9E+i8
7svfXjueFdF/IPot+x3QNYgicsrwRuevidEY4f0Pgar5dj5JxnKsgIpjsPF1
fK5Id5HcsQ3q36yeajI2iudm9Z+LndViWH6fPTtpomBcz/1/ZGwSzV0sKlcD
fnONp1/ntUoizOPXTlTNjXPNu0JSdTWk/8ht/A+hBv+HIcVn90VERqJEiRIl
SpQoUaJEiRIlSpQoUaJEiRKVpYHWjpzas/782Z8/B1o89TNSfNK4mQNZg0pe
hxvra2nLicvJ+dpynrYOp1/pa7Xy7LgmZVdOg3adWQPvQ+2d+ViXIsXbAtTm
qK8Vnq1ZX3O7ov7mDiUf+PoUtetncxv63W5+txs+64eVp2Uqf5oRGd5+w9OH
7AC92rZ280Rygb/Vyx4AwnrUnMamr7UD4dkWkpFl3weUnW1Er/W93/nncbDr
Qf+Ak2vwaDY8bq3FBGxsNfHz9hFb4beKpVnb2k5s7oMYtWI79XPA+dlqCGEP
fBZ7I1fpA6ybje5mn1fq6XLMY03tMDa2ej/7Wk0ssZ2t7QH1tbS7ddp3u97k
hOWzv838AIqL09nSYXJV+9DX0mH2hd9Dfr3XO9DsZeI95eLd6vMa70ntN35H
a9z+bvd7kuWTrR9eVoeJuZGF4tNnawmpJ23GZpQfsMebWrOBnPraOrOe1s6s
t7lTxb+3tSE70NqYHWhrVtTX1qpjY0jnI8SrRVOrnTO/Wz2PptbsgJrT8/i3
loHlm3clB8vW7wdatc4DLV7WAXg2NyvqRc9exaefvW4NsqGFPrUs4NXvfl2r
0WlssjqRTLe+hY5rm1udTCv3AFmjZfbmYx3tjVl3S2PO02zmmlWuduXUmcep
N6f+Rohbi6kReN+2+jrFahatOW2+VqA89LUF5xSu+TquA1i+zQlbB6E2NHf4
mu1qeIep076eBzU+RoQX2d3cLo+3oHesNzZP+OjeJWudng5qW2Ar9xX700HX
OV86sgAnQlhnRHegs0OwLyKXjwcyMU7CWoJHh8zX3BHOcz1FPsfsxX4HceC2
cX6GO8ZMwGNvTUO2Z29ONY3qCe9qjDwbydhey7e3Uf/eS8f3GJnUFpZzzcym
Zo4jyl0pD4hfHQw7LkeIvYQjty+Qw/0pkhfLhw5mhxQvwQ++17keHFcxj9uz
ECtmO9m7PN8ErMUawuqOVK9idROfF4vsD/Kc7SmOO6+7ol1CzvF9zOsQwV94
kjM890GIL9/nQV3voHJ5DyL285wR/A4w43VCqkOxePB1PHcku7m9fB9JOdAR
kcfjjtdJfEKOi/uJ68J5zH7z2sb/PU6SFeSOhDmX0R7KlOqqVIN4TZT6cLDf
NX9bQ6uidkNtDW1Ze2OrG7dzbY1tlKcBvxu+RjPeqH97uS2eGvUz2Eu5bdBr
XN+yvSjoWw1h30I9jvQy1LdsX9tj+xtei8YUv+mNzp69drzB91Ono5HqqQlp
j/HD8e6V5pBfe708i4PGpNHZsRfxUX2Ngc0coz17G0NMCTb03ODisLfR21Qj
6OZnjb0hLt4ndgaJ+ELjgnBBeUJ9oHHfw+Rh392Y09+IbGP4CfnH7d5j7OU2
ybnUyOQ3hj7ifWDjI9nAYoDPfVYOwVTcT2bNXuqzlZH6Vupbl1LfEvWJ519u
D7eR+UrkS7km2VAQW3wW5TnH5/leCGyO5TLXX4JaGF48j/g43//8/B/UByFf
uZ+8VgQxY5gH+Aj5EeSjZK+wV2L7XopJrDZwuXw8kMnyRYyBkOvE9o5wnusR
bNPnNTjX+bNdW2OrObu1krOdf7axcx2mNrSuLZxvbDXnPgGPFuYnj0U0Vh67
y3bty/7Trprssp3wzGlnjXrHBHOXwW87Z3ndGPq9087798uUjBo0ptd73Ugf
WkPsQLIvszbsZON4jKyp8fZjwrKJbXbOy7xMydhHbcVrEJ+Xvc/PYZt3eUwc
Ng7/mB/7GIYhTpcFviDZ6Onx20f4Ltu1j2Jgbdm1j+piuHsZNq4UH/4uxoE/
XS5S22luorGdnv8yZpfPWR5zn6eXIX8szjRvPQaXobWXReQRP5h/OIccvru8
DThXsf7L3HqbU/uIveEe2udyjNgu5pPfV56Hx2yfk+t928cwxXbsYz4weW49
9R/HCq/1+clyk+cW9oPkiBCHYL/6d4pXJO/RPqF738fX+7BX0669euwPYV6/
w7i19zKEz2XCPg32ALZT2ktYRrB/6B4I/EX4XYbyPYZLaAeyPagvFuN9gZ1h
HfW/L8OxjeafnBeXYX94rUXj3keWP7ymWV5sC+5/LKeCceuTe/K9wHKO1zIp
7iz2l+3ka/aFfgh16j+x/cb1kHq0C8fS+LET1x+cx7xO4ncpHgyvCB+Nj7xn
vM1UNjlTsJwn9RHn1S62H3GOobjiHA9qHMklCQ/WD3Av5nUN28kx2kX1pHMf
50/nvnTuozHC8tO5L537gnwsfe5Dsney2O30efVsP/elvsXkBTER4pz6FrE3
9S0qP/Wt1LeCfEx9i9UbtidQPtL6IvctuY763+l7RSznuQ60D8iafaEf6XsF
8nFf4OPT6XuF36t2L/HzmYThPqLv93bX5rQv25LT7+3ST/UbxnfVmnHNY3k1
fy15wlrFZ9cQuXT9Fml8l7fBrXNraqm+XbWOj89bmW79Ls+DdXn/+Npaxp/L
2oXX7SO6uZ1+jMrAGHvckN9Y7i60dpe302PHfHR83qYt2M/dzH7mw+8xmTY2
W/Bah7u3i+gnPqKcsDhb25yM2sBuh4eYAzSWzl62lvuJY7GF2LiP+cRyBOne
wtZTHjlnCL/dGyjnwvwSfMX5tmufEE8ao2DfRWhLsCcQbrt8HfB7WsrLfSaW
sRwI7SV7Ldg7PGZ8r1CMtmB72d73dUXKnXAv/h6zy+0jJH8LqSthPpI6tguv
zWss1Fn1jp477TgmxLO7xsveReuFsw35QfOc44VjGub6FsbnxpEOtweEXkDy
AuMQ2CDHItxT2A5e5zBvrbC/UV3AvgZ+s3zZ5d+37KJ+hLWI1VZTs7bwMVRb
pVzfEmAR2fsk31g8RRJsdBiw34F8oa5hfMjewv0ijFuAM89N3m9jtmA8CB+v
P8hW0l94PcByad/Yspva5PYxz9lI/4z1ELx+Czlnof0m5TnKS44b7/NbmE20
Ltp+QTFI5z4hD62v6dyH9pS3K537aNzDdXzv4ljy/BJ8Tec+kptBTJ4W5z4p
X/gcjwHfd8+2cx/HCu8dinnqWzymvK7g/YvzndqR+paQn6lvpb61O/Wt0B5O
tR5zsu+ebX2L4pO+Vwg5I+FbZKPDgP0O5At1LX2vCHM20j9jPQSvf6q/V7h9
HmDDc1qIhdH1+1fUadrDnpxgfE8tmq8tXLeVr3XP2nAcj11RhXcP1lGrbULr
tlh5AX+trCdCWyV7YtgE/gh47EEyyZy2a4vzRaA98bmtnE9aj/DYavRv5b4Q
HPn6feypdW3dg36L2NY6PRhP/7veYRPEG9ticm9rgY9b91DbojhI2EXiujUa
TxaTPYJM4X0rtyu6dyIxlX7jp+g3wxzp9DmJ1+4TZKBxw7cF+8xjs4fjK8UL
8ezheSzsNSZjq2RbmT0u1ZGSe1vjVcvWc33M192GrI3576270XiM7NpqubyH
4VyQA1Vr0R5MOg5bRcxqKX8E12o1MpBN+ksJWdVqNHrfSmperVzf8VwkvlvN
fLAejcl1no2XwYlhFa9HLE8LbCN1Xqo7ezxWkpxoPZHyAssJ9rMgS/JBWLeV
68djG80ZbntOWyLxidpk5zlmEh+uuc5m0yeDHhzBKCI3GqciTNK5L24/zuWi
dZs+9xm7C7EvYWeJ+JY793GqZU8mA/dDtu78nfuKc3hrQT2rGuPzcu6T82Zr
TB6WWbh3In5J/bbA7+rnPh7rSA4Yvi3s3BSeD2oL8SV5IdXLgj4R4lx+Xz/1
576Izah2FvXTarkh2iXoKMz7WC3ag+kSOPdxns3glPpW6lupbyGbUt8Kcjv1
rbjNqW+FuAf5m75XxHxJ3yvoXPpesTE8ZX5ak7ai9+furc+pwTztb03byHs9
eq8X1knvEmFZIXGdso6Y3nDNNvaU14dz2wQ/t4k6/Tuf34awfO7eHOs9+fie
ugLKdaDf8Nxm6LlsnPLXF8vei3gcHjb2dZREXfVVxuqoHU5uvZcp6XI8BqM9
1jaE2V4sn/q6LWpXvcHG84W80to6Yvc2h1Odeec4USx47Krp24bW0xjLcYjn
AdeD/ce60LvzI4YlliPFmT5l++M4b2P2b6sqp5rvPOdxDsap2p6u/hvnBPaX
+r4V0R/dPJnTVNbZ26b+fea5pi9sZTEq2tfb9oSxiOWQGzc5XVzfimu65dnm
6ltMBiZprMHsr7j+4tjwca7H+7ktylcvrMF2cayK+pusn2MWzz+qn/sQsyNc
Xy22/l3uwXTtNlGXbHfxXsM+UJu2BZiFvDQ28XEf7zCuNG9pr+fx3sZkUxnV
crIIg5jtZdeH4+ViIdWvdO7jc+f/3Fdub/AYhjkR5kyxTznV8JwLa0txnlXL
GaneV8sVAffg3BfL7XiMqI94X8fqfDyPw3pQjE+8HhTVNSl3yuyZ2N7m/vMa
Ktsq48PrHK8B1eyP48x74Laqcqr5Xm2NTOd+7ov5G9uTsRrVwKhIBq4L1XNI
OsNc2ue+ItxkDOXaFvNr8/mU+pasP/Wt1LfK7ZnY3ub+Y118L0u2xHKFx5k+
U9/i/larv7xGFdV62e5nbt8qE5sYng1MRvpeEcYlfa/gfeSZ9b1C0hfuixBr
v/YPahqzP9jXmG3fZ57mXVENeq8R3vex3zUNfoyM+7Ht+FnD5OwL+USKrBHn
aqjO7ZwH2xDzzWIkyOb4Ub4GTTWM8hhsZ+/w3GYIj29j9AcQwxo0htYHT0Pb
9/rndm6L468P1lt7iA1ct+BH/F3r2I70KHs4Tua3tXW7lbWX2SbZEMGU8Fa1
k9poaTvi8zjWk/Xb9vqnw6tIlzAX5Ab3xflTvzm5eym/xXcb0sPz0f1mcYjJ
Btv42m0YJ44LztW9DaL/nuqNDibHxonjofKr3tho96edQ3XNjsdqDOjN57cb
CuxEv7W/9SZGvg8D/fm9lewfPnF19q9fuzmbn+3X96xqb9Cnw49jLlKYC9sR
ERvtfov6yWq0UEur1WPST3idl+qoVI95D4rUdaqzAb03BPzbS9vQIPA2oD7S
kHFfRful3mZ8wv2oyC7ek/2zweSjYIegU+zX1eJbE85tr4mMS3qFuWhe1aAY
ur3LfbZ8DR7rWL5Wyc+orxyzGtnmELOGUDfLOfF3ydyJxjd6bmkI1vFzVzr3
FeEnYBPBT+QTbOS1gsdmu5XDaDveCzG7I/m7neslmDVE1/P9FY1bUS21+VEj
7KdI3ou5IuTddkZR2aXtDPOe11+y1yM1rGwNkvzhmMg1SupNJeRKODM9Qa0o
ygVRdlhzgt4r6ZJizPOZYy5hFcw3ONlBDatpLHnuw32/IKdqQv6NxAdjEMv9
cB83iPIKzzpVxi7auc/5nPpWYb4V1X2MUayec2yL7JPiXxPGJvWt1LfIvovE
LPWtCFbBfOpbT5u+xXVGbJTzKH2viOkU87NafIVanb5XyP5fct8rBF8K44D8
uLy2OduR0+V1TdmOOnjq9x21Tf43jNfqOftU82Zuh3uCDL9OyaxF8+bdzdei
Zx16Wl6sF81r24weN250K3lNRh9da9fYdTuQHZcjvZfXItnIFrxmB5K3o45i
o/Rz2teUbbfPHHs93pCTjs/lMGZitcPs9e3mucPsgx2OB/2uxb8bjbxQtyP1
rvVrfjvu123fp+e07AZ3RgUCW3bYd7u/jF6rYzvx2cxzGwBj8355Pq8xa1Rj
l9f68R213jaNm6/L3l+DibE5GDeYKl9qGxxmNg7bjf9Wl8ekyWPiYkfHNZYN
zk+rj8TP2qB4mhxZHDBezl8nr9G973Cyfcx3IJ4daA2OzXbsB/EZ+4Zzz2Bl
412D9Nl47/M2EvtqG6nPTi4eRzpqqR/OZjfW5Ox3+Dq8cRytfRjbRp1bZv7y
fSa/bG7ZXHO8NudYLtR6vssxL4mXtQ+Nob2zw+4f5D/cZX30bSv5eL0er0EY
231m+H3+NHrf7b6ytqJ9vB3FGu8954f5fbmt2eapa3QTrZG4/uF6jOqlr8vN
pn76+r0Dk+0BtsfU+vp9udFteXa4et3k63fQc1DPqvO1n/cBbreT43Q1o37S
lO3g9hv7rL2XIzttPyQ9DNvnMEZrsd2s35C+hnHDvQ7h42TF+hXr434MY0Ux
wNi7OLE+h3OD9sGmyDg+F7D+XtuE/Pd54GMf+nA5savJYyngu8ONMT0ohtQv
li+47+P+j3LeY8bk1DLbhRz2c+gM5faXnBdu/9VRu3A+O78w8VgQ/9K575zO
fWzfER9rUT0z8v4Q711UR7F/l+PfOO583wo1jsa8ya9lscIx97WY5jzhqWX+
1zKcSFzo/OUBjnSP+3g1IczRXiaxbCKxCveN7UXeHpzjWBfNtch+I/sBx7uJ
2ujqA8s7Vh9I/gh9dkcdwwmvZ3WB1DorC+9bYQ2tAz7udj/x+JI4orz1e7sp
sM/zoDMUqSkoZ2pR7rEa4/FhvvD8cn3Dn238PuD53oRiifZfLfMR41/r9fD6
hs8CtFeEMd+B8Q0wQ3aT/OFrmohf+BzG9eNef0me+3BN4fWrFuPmsU99K/Wt
1LdwrtG9nvoWzefUt5qJPalvoRijvNpQ33I+NAW+hT2H1qP0vYLFq47iResz
xopikL5XsHxB9Yn0rUvxe4WNrdB7SL3j+wDl2K6G1mxnfUu2s8GQ+g1jrfrZ
gN7tWL0eV2sJtfjfTiZdE/K2UBn1wtqcdrlxQRdZS+d3xfxh63bVMznEFjzW
Qp9OJuCBMMzpDxU162edPvuppyX+nsclfDayJ+dv8nJq6fxOQ4GuekxN4W8i
qwnpaUTvjcxWq0+Q5343UTzM750Yp+DZ4m0KMGuqjklAdq7J2Nzk5CqsnI1N
FKc65APzW8I+jHMTfa9FscF6q/nFcahtZvY0UYrFAOeBtZ344OO8k8gssLG2
GfFirBkWHI+oPwWYcj3muTPIb5NDdT6ndrqY+vxSezZfu8v+JqTHfT7q/PV5
i/CtxXh6O+2dEaa/eO9xRfau7XJ3l4bxbqR5ymrFTikX65pYznp/dxosoC6q
2ghjDc2oluPaK9TooI6jsXqhthI+qSdIeqV1Qq+pR73BvbcwedyfiJ31kt5W
hkukfwR9r8gv2ycMbz23NdJzne1CX471qsDeiB6MJ7J/F9dN9MbkFOmV47wr
tg7Fk/BwjIO4x/IBYyXkQ+CvPUNQ27Atu8jZycxh/np0BonlN8eHxJ37x3ns
OaxaPFBOOzvTue/8nfsimPBYBvszkrsF+yWoBWw/7MI5Wl9NpxQ/plfEv4Xp
i8WoRZCF95Hku5y38n6JYCLFg9QTHx/ZDp6/vJ7I2MtraZ5G612RX9F48njx
Gs9jKdgeiW/Y+yI21rf6f/chWDMsomcH7k8BpmKd4zUp1kN4jnj/Y3s4GK+P
1Nto/xXeybpIbHieBuMClkQOxWAXeu5CPJfWuS/1rdS3BJ9iMUt9qzgvU98q
tjH1rdS3ovFqzcr3LWmdgJ1Zn75XtBbkXUEN5nOsx6bvFS0CDk+H7xUx+SVi
YnJyd2NbdkVTe07+uRuRfs/HG9vpswmv0zyWH3j0E8kxevRaT1iWW+9ktpGx
3U5Pe2ifW298aLR2tBvdns/aJfntdDVS/6xPnqc9uwLZ4/SA7AZYn+dDTrtz
vHebXNqtvhdrgm/H9vu4/Vau3t23dERqrCWbW60osvP2W7SXp2sOvGu9+JkT
xLvB2qRpF6LdJsd2GxlKR/48de312anrbiB27bL6kU9Wr7arFcmlOjUeZrxR
26SwUpi1uXHbu3a7f4dpNhh6m70tdFzb0OyefYPd2cr8way5s8PYjW23NrY6
//Fv/8zH670PPJ7qt4tjS65vKOvP9XrbMEbNQRw8LtQ2Xbd0fEEm+EFyxsa8
HsehmdhL49xKfTI5stPYNTXZp/S0dBis6hDGxhZnn80B5qO7/6lrQZho2Ydz
crnr1rcw25sZNlTnTqOruasjW1kYyg5P9ZFYuRg1tpjcavP5ZXLN5p6ea/N8
Cp82t2Y3WdNCfztc/b8XWf1gF8Sf7pkm/axryj733uOKYGynGm9yOMP7YRMH
h1Md3WsWK7C3f2h/ru9g1prnd2yP+/3W5qnR1kpUyxp9Ld3N6yquiayWy7U4
/92I17SRmkx7AB3bLc5bG2N1mMm3/qEeckVA3n5iVyNds9uMEd+EniD7IPSQ
xjbWm7gM60vYn1w/bMSyeGxYvFivt/30Ct7rXA+kMsjT6UXxcHkUkUcwbs84
Xhh/3p89fmHvd364fMM9nPqOzyOux9tzSmM71Yl4dpMYeDkeE2oDz0Nqrz2j
hOcLGluUbwRvFl/sCzpH7Q7s4rmdzn3n7dzHc4T4Le9Z4k8j9X23ZAvZFyhm
jWGdDn0Q7AiwFGoK8Veqc0hGo7UlVgNoX/DxoHVI573Jucb2jMfb5S/pAcLe
Y7kT4BbNR17vuK7Qd88n1G+EB96nvJ6EexTXNrYHcG40SnZIcW6nPgmxJ/nS
SP0g+xTtdVpzhF5H7GNxEuqeZJeVSbHANU/qfaxO4vmgXto6GubQFYHtcl2K
zYf9gPJc0cRtYfucxIGu4XVWrqNWjid/1kP74yKf+1LfSn0r9a3Ut8I4p75F
62fqW5dS3+J60/eKcK+KNTp9r6Bxe5Z+r8C2455H90hYG/Bzb0tHTp3uWaN+
d6KxDjcWzDV3mKeds/wdwVqqB1NsLr6mRpQh8XHdnC+2xuqg62uiOs3vHI89
ze05mWeTpbbszNmbsiz7XfaOd9+bx7HFUwNQa3Zs9biaf+CRR+mdT32rWvO/
f/2/1TwQ/NZyWo2cVkUw9v/+278pnjNnbzTjbUhvmx5ralXzmu8m9U72T86z
J6cHHn3U6bT0wCMfVs+3G/17jB9//93vKrK2WCJ6VO62Olz+/ruPqzUWI6C9
7nf+bPTj8P8Skuhz7zuRveq2I1lrV4fDdI/FJMdveqov++6fXEPWwPu1V456
PHJaWxxWc+uLBw1GHgvQAWTxtM+1nBfWrKk1Wndrd0f2gdctyvog1vm6PYpa
1RzYvqexjdjyqttm1JyN7XX5WtDPff/Y3avG7zYjV6+/4+yk81nbxvxQmOo8
wP7Aun/63PUM3+PZXz98Wq9rQDmbP6cP92Vfz+e0HzNOlvXL5UHO/6pbjxDZ
8NvztJgYHDQxGA6w9jHQ8YW1PK4g8+4/OmZyrM3l1V7ze68ba89efdtRtWav
yzlPe9EaTK82ccGy7dPmS2t3Zx7/pTD+J0bp/Vr+BGyBrmhoVmTnb79uMvtv
QRxOKLy1/35/QV5xHD5295qy4woTY7CvbX9X9rG3r2lZ951Q9Qn8tjVrb06u
5jV3CvWzQ6iDaK45rIVyLS/qAbjuSjXY66e9qBONS7WZ2oh1eDtDG2qkdc1a
dwwbuZeGPYu8N3eg/snxlX2xGFBbOtF6jNNm+m3MP459KKtGHKO2aZ9p3ih7
Ue4FedaMzyESRliH7FONO7NUO4dIZ4fY2aMoXgU4N/Nc53upWD7HoQZh4/ND
ym8BF+F8lM59fD/G8kLOHblG8D3fyeKNsS2RQyzu8bwpwr9anZJrsM8zwb8g
r4rwYjnJ8Khp8fm8l2PWLNkq5UssH4Wa0SxhUZTLMdx9rH2c8J6X8jK+J0mO
Nku2hzWBxitWG4v2B/rdzPVUo1BWvDbLdUnKzRrBNylW1Gdqm3SGCM4PzdX2
npBXwXlCim9EX5RXii19j9Wa8CzRoXpgWLc7L4FzX+pb5fclxST1LQnzEL/U
t+I+S7H2cfI8qW8V5EBBbqa+Fb4/M/pWJ/sd5k76XpG+V0h7qbi2PHu+V8Sw
cbWsWbATjdW2dXtq78qfXXTMjrd3mznz21I+X+fGhLVt3WitHevK12AZSG6b
l+vG27qFp9XNeNu7Qz3q2WX86KI62mW5IS7cNqO7Hels7cz2AbWZZ6uvVffc
+151n/PffvzjbG9Tax6DNve9fG9jW3bPu9F8ox6raWx14/e8571ZV/9BRfe8
5143ButrcrrqBn1P9tCjH8muzn939Q/r79Q5Kd5cP3yr3gffq3O6xvADb435
hq33pf6mDbLtOtAJ9i6uHVf2Yd3aj3Zzj/W4eq9paXd0taTH1IS/f/xxRfB7
X2tO8MzzUhFgZ/HL+eH7+wffsJRVlkeyytJItp7T2SvHsg++fsndYQwP95pv
89qug/k7jMNdy8x0v8L94Eiv+p4P4+093Qo7WLO+OKLkVJaGtZ2K2tTz8/ed
UITHwHewwd672Hha2XeenVLvwyM92cfN/cHM9KDDCwjG4D5lr8FcU1v26tv1
fQm8t+/vVvaDfqsHbADfv/7IaTVn72LgOTM9oLHKcQH7Onu6nD/Wj30tKA7N
Ok5gm113UOHYqp4fNHcysE7lrc3Z3AaFbW4DYDc8fEDbb/3KfbBxsP7APVD7
/i5Fduw1tx0xMWhzMYCn88ngYm2HMfARdL/9pcfUbxgDnO68/rAbtzlWo/Yh
yiuTY6+5Xd9j1bTq+rrPPN27GXN52YrWAH7NPo/1U2Ps4p/bUpPbBTlp749m
Dg+4vb3X3ivCnZK5N95j7ixVHHLcYW2NwmVY4az8t/dPCC+I2fDIAaX/7Mlx
pf8FoN/YBnv+429fV+NnT41ns0eGXK2qbe3Kn13qvRbXZEN1pi7W4VqI+0S7
qa2u/tI6T/pFW+QZ/O4Sekak9uP6G+tfUTm4D1k/8zGhD9WRum94kb0LlZOK
xo7OZd0HR53ssZlj2Znrb8q6h0adjIXKlQ4bGAceLAfbA/8dwP6hUacbZIMO
i5XiN/Z0Dx1S/73A2NFjxFbQp3Rg+QgvWGN5wJ5aZ+dJZ5te53GDNYrXxAp0
gn7ba7Vdmnf/QWvXnMKgrl3Pdx885OzQmGhMQefYzBzBdzx/Vzz2zNHerfSD
XJj3+g1GDlMtf7/hHVNyTjL89O8wFlcaXEeR7i5nr8XZ7g14937zeHbnPhzT
PiPddfzM1E5/W9keC3amCvZPl5HZRdYH+Z7OfZHawHEJ4xLUnQg+ZJ7UtRhW
tL64GoxrsWBHneGpE+Lt6zjHrZvoiNqD4yTOdwW6CmPbztcw2VKeMx/CXOgq
8AXbgfGgOsk7t4fnIelTsu66dpR7PJdE6vJ71+0vipuLr8OC4Sj0bbIX2pk/
QZ6yXJX2MPO7jmOEc0Baa2uUs0vIoyLsi3I20CXFFGGF9RJ/fF6SPSXVA26j
4ed7NbCD7yuSO1hnDAuBGG9dINufY4K9xOJ2Mc59qW+lvsXrSOpbHI/Ut1Lf
Qjypb4n5k75XYL1dLj5hbnvbeezqSOyEekdiwPcty2e+h4OcwrZG5lkcw/3G
YyX1SlYHXa/F2KFcae8m79yOOo65w5L2kTpio1SrqN11kr28vwSxEPzE5wi+
h4J6xGtxGLun4nsFxZbncFHd8PIaOno0dQLt108yhsbVc3/I2ylQbFxax/VL
/NF3PF40x+3b7/V2lNETk+2pPpdZ39Gd1dve7WpmZ/YPjz/u/kxT9+CwukvY
Z+6V9jW1Z1/7q7/28wPDbg7+fBXMqfcWT5/58z9Xc/q7fEf2znvfp9bWtnYE
BOPvfO/70Fhnds2Nz1Pj8FTfsNV3bPPM5f2DuWOy8rX+tmx8ZlbLu/e9yB59
JwVrsA6t52at54abc7lIj8EEqK4VcrYTnWu7POV8MA/f6197x6y3VcnSuuC7
PMzf//pl9b6vWdt8/xuW1Lf7zt7uAL/O3v16fYuWcWJF3wnA0+kwWHz+visV
WV67zq45vjSi9A2P9Om7mduPOlysLY//yTW5PWBfu5HRbnw6GsQLxmDOvnfl
tvo4dDjZ158aV3yzM0N+7e10LY6F80PFoEPHweBodTodCC+w3d5/WTuOLxvf
8yfwW10w5zHQsh7/5DXqHkWvbXe5D3iAbC5Tx6Cd+KBtP+HGLSbcz3e8bF7F
vM70EppL/gm5BLpU7rWZPIOne++iMvAaMm+wzHWPHOoPYmp9AwwgH3EOunvF
Zl8LHNYkXztUvlpZNv9IPNG+6OrrcXsMbKvLx+3+sf5AjarPe4GuWZrK1rmg
Lkr1M+ghG6nXTJ7YK6TeFNEt2sH6kCQ36gPV+bFPfjr7xje/pZ6/+c1vs6vz
mgpzr3zdm9T4Bx58OHvy+z/IekfGlDz4bWUB7wcefMi9q7mcp3d4LPvJv/ws
+8ADeq2SmY9ffYPAnz/vftd7si98+TE1Bzpf+fo3qfHbXvQS9X51Xoe5bqBv
/J22G2z85a9+ZWyHdX+k5qwvet1+5YOy60Fr181qHN6tjbJdDxO7QOfyiVNq
7cTsQgb/KHzyOeAHsviCDGsnyNBx0TaBXOBx+h2mDzsfsc02Rhw/ha1btx/F
Yn+2fPyUWofXKJz/zvqzP7fx3dRGkx8Yb23jze7swWMBpDHpUZhADpTK4Vhe
S+c6cY+kc9/G9ZaJRQQPrL9aDKLxKGNTzL4CW7m9GCOFncW7hA0dRTJj+CMb
o9hFancR1tzmwt5kfJV4i/RLeR7k+AZiF9Mr5nVRvGP2ST17k/ZxndXqQ7U6
EYxttu5E8qSoNpZ532gsNxTnKrxSjGLnl9JYXSLnvtS35PHUt4ptTX3L+yrx
pr5VTmfqW+cQ5yq8z+S+9TT6XlGMS0+op9p+6eiR7XLjJXEjOJeoo9H44XrP
bdtgPQ34Ir25Wg50FOT1ZkjsrzE9HM8YvpEa1lGUWxGbSu9V3t/L9Ge2h/Pf
zd0Hzhs1ieO9m14vy7tQVM1uNt/VmzUp6skaO4FM/OGusL1L3eX857/+unre
+ZKXZnWtHZ5aOsz8X7t5+FY9eXRO4O9U9IJ8DOYmjx7L6ts6s3e9V99jwXf1
evVNXj+BYBzm69u6FIE91930fDV+3c3PV++atK3AA7b+0z//2MmoN3rrzL2Y
ktfqddg7Ka3DjoMefV8G+uqJnu6c/4nsH554Ims050zArNHkMoxhgu/wr7tz
DtnapeRZnz70hmV1f4Ht/ZtHzqhxi1k9JmQjPK9c0X8OBp5qDMn+wvuvVGTf
LV25csisOaRkvOjGafW+v68nf+9AOjqze14+r+4yvE5/N8flvs7cl3AZnG48
PaH4jh0dcn74tV3OD4uX9QPH2sbbrutWttN4f+G+KxVh7LjvmFSswK+cd9Tc
7dx4asKtt7G44ZS2f3S0X5RZ1ybFAOui+IAv97x8QeVBQ0d3kEOa9Pjr81wC
XcBnee1vTHYN/HZrTP5S6spe7OLfi+Jp4v8yE3+UgxZXu7e7D+g8f+ENh8l+
l3IWdAAv6Gxg+4rbBU/gff2ds85/2GdNeZ0CajS1ayO1ejP1uSm6rleQWcaW
3sjvjcqJ2Siv5fb/9F9+5n5/8bGvZNfmtQ7Wfu8HPxTX4/Frct77H3rEybVz
8Pe2vvoNb1a/Dx9byv72m99Sv0H2/Q8+Isqy1D864cZBtrbH8zdFbNe8zzO/
Hw7Wxe3qFfUU2YUJZAJuWq7GDfNxfFdPngl0YP3XIkzt+yc+9aciBliGX9cb
8aE3u+MlL1N2VsuBajaG8rXOT3zq00o+YAvzgBnMbWyv8bztFfP2fNGz+txX
Go9zwbL8uvODXczHMtj0luQN7Y3Zvtlafu6x3oysjft97nZtNGdD/gux58rm
aHVb4n3/fGD61OXb+fKlDD+Xe/5i/tSd+1LfOj95tDm/Ut8qH//Ut86HXalv
nc9Yp751rvEpG/en9/eKjcdEllUaz65zi125mlO9VmzU12LejdXNc6UyGJTL
0/NFof84hzei73zY1tbbn7XnBM9WQ229A+rd0wB7RqinYM6sbQ3G+wK57SXk
tgvrYjrjtsnrW3skOwYK/WvdD+v68ueBrGV/b9YC8e3qyWl/dv3zblV3OS98
6cuyf/vFv2Wf/YvPZQ3tnYrgm/RZc6e0euJk9utf/zqf/ws1d9bcAZ01d02N
ljq61Jidg/d3v+8+9a6/U1OCcZiH79dNnZquf94tahyeTeabdnMnntfy/+rr
X1c6MHl5Xe5+4LtPPJ7TE0pfU2e3ktGcP60ceFrZTV2agB+oubtH5X5rTi15
zQPsWmwPAwzzefgO/4YXzOm1Srb9Fq99fPFNRxRPb/8B7Xe7vid64I0r2cnV
0ZzGslNro/r3mqbx8QGDSXf+Pqb4T62POfubjPwvvv9KRfbd6rRr4NmI7jkc
9u0+BnRO343ou4U5J7PJ2EJ42z0/6LnpzKSafyfc13z++uwbj5whscZrm2AM
xfSL7z+pSMegx2EJdGDggJL3N4+eyXVMOYxOroyq+0DwX8Xb5B/Mad9HtR5E
/s4E8eW46/WdJm+6EH6j2r9ViifGysYA64FYAy/E/g253xBrWP/OVy6anNL3
9DafWlzN7clz6Zji1XvUUKehHBf3jub9mv2ELI6QnzCPcyeIi4qn9t/7pHEF
jCx2Omdxvo6pp81vyFOfr3RfNTH7gPT+Oeb2msIjr1Wt+/t03VK1K1ZTB8Tx
sJbjWlutNpehgbwGDwiyq9fwcn0q3tdaC+Rzv7//wx863g89/Gh2Nq/38P7L
X/27egf60lf+MnvBS1/O+PsVL8xruQNuzsnpQTp6Bgh/m+MfyGYWl5UOeP+7
b307q5y+mspxtv5IybR9Hmz6k09/RvHBWs07EKyDOxUsz2LwfTP+QD5+veXv
0fYCz9HFFdEujOVPf/Yz9Vtj9Irsnnvfp2yy+q0ObhfGEY8TjHr8OksQFxtX
KRbtFtsf/BDZOhDEBZ8PYrbAeLtgexuKNSfA6bVveovCCrAZGp/K5PNHbK8K
cz1h3qdzH9vXmzj3wZ6kPlGcid9ITqutqZLsoD5Vt704NnL9tvLaC/XhuYGC
94I4VqH2AEeEQU/IizFtZe98X+oeIuVBMY54b/AeFORyD4uj9Jv0xD5qJ/c9
4A9zsb2nP56XPQW9uWzN4LLFvVhCtvO/L863gT0qyu+R4hKrZUUy+P4t8rUI
Y4Enlh/IPlnegCyjNMX3fXGu2bELfe5LfasoR8QcS32rCqapb4m5nPpWXHbq
W/GcYPalvuX1Ph2+V5yTLURufN+ItbFUX5ZrR9jnBwpj19pDZfBcbO/Fdczj
FMSvKpZCPyzVlzC/lNPl64D9vtDWE+MfEPpLnNrJ+pJnKQmXDX2v6C/sC5iP
5roe7+wbzGkI0WBI/UOMR+ItMx6Rb8f77RONkTUxGZyXyTPvHZK8fkkHGwM5
lkRbBrKOA7n8A7qO6V59QN1ptXYfyO697wPqLmfg0Fj2Z5/7nLrLajL3DECP
fvSj6v6qqaNL3evo+S53B3TDzbeoexu4F7J0g7mHgid8p773vverd8XX1ZO1
5GOaetQ4zLeo8V71Z8dueP5tev3zb81t7FF3SGCrfvYo3he//BXZ47k99u87
xKTl7TcyexQfkH23BPKtHnhvNfdVQI8/+aQifVY4oHDT2PUp/Bzt139f3xtf
eIzYqO3sVXLPrOu/Y+/M+pjBSt99FdEbX3DMYeLXjzuZinIdX/zASUV+3Ooc
Q2v2K3nw7v33+IRzPcgGc69g5HLe/sH+7BuPntH/H7DPX69s+eQ9FcUHc1gm
X2txAvpSvg6IxFvlqPZp6dghJRd0cKzgvqXZ3HVCvp02eJ3OMWgh+YbuTHJe
j9GYmnN3RZ371Vo8h3mbWR75GOh3sNXa+cQnr1VzD75pNXvp846qfFHUg+mA
f+Y+Qy7BWp1PB1Be9aK9APj0OnrjC+fZGsrrZfa4PRSLC/hn7xUtJhaPIrL5
eWZd/1m2M5UJZMuB0HZ4z/3V+2de+Q4YtPf4Xt4BlNeuDqHGdgV1saAO9+M5
qX6zmm35cX/p92s7iIxYP5B0cPvQez/WPyT0hCJbZb3/8rOfu/cv/+VXsxtv
uU29f/Pb33E8n/zTz5rxIXWXNDJ1RMl80cteoeasjVYW/HnX17/5ber37NKq
kgvzIMPydzjdQ9mDj3xYyeJ+w7i1x8vneOrfnteuu93JApu1Xffldr01sMvr
H8xGJqcdvx5/ZTR2IEPh1K/xAppdWlO6tZ8hvrDG2WTiAnpuANv7MUY8VkPE
F/sb7IU5FYvPfNbJVHr76XrwRftPc8zjOmhsXAtsB5s8RkeI/XbtiauuNTYd
UXIs1vKZB59zhLOMeLaR3tO5b1PnvsBerq+objEb+ofo7/6Y3yy+yLYOETNP
HWXjR2pdEeZFsY2tYz5H/eTjMRyknC6aL7N2kO3LAv5IDhTajn3ul/iq5E21
/VQG//6IbUVY91dby/OozL7R1EX2TlG8ByP6i+rURmrTRvOlTDxwbZD2T1xn
l6Crq5+vYTKD3I3EgeBJxy/OuY/Li+mtgnvqW6lvVd2LsdjG1jGfU9+qYvMG
9mthLLjdRfUlglfqW5uMB64N0v6J63x29a0YRpIdJfIvyDmv93x8ryiXM2zP
9Usyi9aGPsl7ZKP5Xi3Pq/m8kb1SYGeQO2WwpPHscDks2Vsyh/q9zK6gxpXF
rWxOsnysinNEXvC9okRekjWhf/sHh3M6qJ8DiAZjdJD+Hjho1hwM10myBiQ5
gg6Qh+1y4+iZU7f53T0gyTwY2juI7Cz0M/S1e5DZ4eTkcwNDijTGA1knfBfu
1f8d1uNPPpH9809+krV192Zveuvb1L3OzPyi++7/43/+5+yvvv43+e/u7N77
7nPzx0+dUb9vvOUW/W28qyeX0aPk3HSLvh86cebq/P1A9t7367sy9Z0aqNtQ
/hvGYR5+t/f05nQgu/kWfY8Fz/b9fflYn7a3p0/Nu+d+TW37ezXlur28Xqfv
8SeeVPdYeq1Zl+u6+VajJ3+2GbkdPfrb+RNPPqmoE+5Tc7wUdgc8fpY6Dui/
m+5NL5o3dlnb7LM3u6oyqXiuOj5pbOpV9xtveuExZXOrsR3o8NSw4r3l2mm1
ti238+oT+l4Ans7//frew97/WF3t5i7kquPmLiF/wvubzD0H9t/iAbb/+PM3
EHycT/stv+f1cnqzh968lv1TvnZlYVT7YWOM1rQpXb3UBuOD9+OU86PD3F9A
fno+b0cbirn1X+FnxqzvV1UmHK4275RfcGeS/16ZHyUYaZ5eg5+OGfDgd3g6
nHo0js4Gg+sTn7o2+9sPX5UNDg+4nFB5daAvzyeaPy6f1Hi/yqc3G4w1JqeM
fP0E26cPj7g90ZE/O3N684sWDLY+h+0TcPRxQ3vH/IY8dPE3GHuf9N3T4amD
xv9xt9f0HdoBdT8Hc8rf/H16asTk8BFnY4e1t7fPUL97B17wGXzvVKTPfEDd
/UOmfqF6N8Bq78BBP0bm9bN74GDYPwZo3aXyI/0Eyw5qNB8X+gOv0a4PCf0p
1qMkGhD6lRn79Gf/LPvWt7+Tffozf5b99re/zW6+7Q6l/yWveFX2re98R89/
57/oHpXTD370j9ljX/1a9tCHP5L97Oc/V7+B57G//KqSAT1tdHpGzQEP8N98
6x1qLciGcc3/NcUP4yevPqv4gP+xr35V8c+vrhtdXzU2DSv7YC3QTfkY8MNv
qwd45lcrzkZYB33Pzo1OH6V2Gbn2/aFH9RN8J3Y9+hFkh8+lN771ruzd73u/
+w2ybbzU75wX5r/17f+i7IR7LhuvmL3gO8Zo9PCMWg82KN8Bs0EvQ47F1xAf
zXuLM8gEm2Fc2ZjHGNaoWBsff4Pw/sGPfqTyhGDE9hLwAcbgwxuUbHTm4ecb
t/fCfdId5GrRfiuzD9K5Lzj3Id5uwe5uws98M9QtxpbjwH4jP7qDnED2DeCa
y9azuAU4YruxHyIf7wsHkQ/IxiAnYnW+SmxITxJ40Hh3LL8BG4I7taWb24X3
mvEtwN7xF+T4APsd2ycOOxsf5BOOG48Pk+1zkPVvbkNRn5V84jJ538d7QIp3
2X0Y2FWAubS/uf1oL3UTX4X1OW8P9y9WQ0itYj5H685BH0t2num2dQfvLzFf
sD6p7g3TeZZfsZ5yUc59qW8Jfqa+RdanvpX6VnTvp75leVPfuoB962n2vSKK
P6vp4b9XSjFEeznWlyW/GNZ0L8h1uXuQ2hucFQzFxrkvgX+BzTj/CuoF6SUH
yXpS/4rswjUS9zqpLsTyS8orvo+lmAzaenuQ1habIzwX2V7ye5/HUN6jcl4h
PYX9Vsqf4ezAwUOahg/536VpJPKbyutV76PheqazN6pHWLthu0eE9xEmZwTJ
G0XPkUI9vUMjinpyPHsstvBtGP4bhL4BdY/z0Y9/XH1nHhmfVO/ve/8Hsvbu
3uzowpK7F4I7C3u/9Oa33aW+1//6N7/OPvqxfG3vAf+tOieQB3Od6rv9gex9
H/igWqfuhHr7HME3bKUvn1dj8A0753nebXeo8bfcdXfWdWBAU58h87uzz/Bb
MjK1vPu9rgP6TuoXv/iFHuvrd3rectfbjZ63K1uxnl/88hfZ3/zt3+ZYDSq8
fC7nv/sNhooG1Hf4t7x4IV/X7+zVOgaUnmtO6DuQa05MGUz6soffsqbuOjoQ
HkAvf77+O95mjhzSMnKZ11w5pcZefssc87lf3ZkAeQz0uJWztjiudMIT3m+7
9ojjsQR2fOpdJ8ydipYNvGCjvsfzBGNw52Hx/fIHTymyvgaE8LZ3LVZWl7nL
gSfIeOJT16EYDJKYOxusPIPjl/J1X1L6+9yYx3vSY2JsUHcmL5534+DLva9e
DuyGMe9nv4qdisHz55wsKxfwV/j1Ih25r50oH7rVncyAyR1DNqcgv/rNnU3+
fMtLFlxOwW94vtkQ6IK5V+S54LHqVzwwfjTPG4Vdv5nr1/rXl/Td3m3Xzfg9
ZTB18T9g7mzzp49rn4s16NZY9RG8ISdUDvb2K5kgG2L58FvXvR2c0Ljy9SWL
yne1v+CsO3jQ1Sxbw8QaOMxrJ6/HQm3F9RL/HorU92Grp0StH8Z6RwUebo8g
h9dzaUzqIQGf1nXmuutzOps98pGPZs+/4wVufmn9uJrDctR7LuP5d9yZTRyd
02Nnrw/4gEDWxMycwwl+L+YylypYrrYB5oAfdFqfiD3DWrfls37AmOMx8dHr
XhjYHNg1rHs76JyYOab4ltaO+77J7Rqm+WXtgffx/OlsN5hQHM+SeP3wR//o
3rG9E0YOxUjbLMaC+DNiYnmDnL/INmxrNNZnz3q8TaxIjA6ycw/ZN1XyuCjP
ic2jkfEyOV9N77P33Be3aTSCcwQrXiuHuX0xXZavSt0U5URyR9Rv3odwrBA2
QzEdVXTZ8WiuIh1FPUjCsQgHm5PDjAqxi+FVsBcIX5X4cBoqEVsJN77/RAp5
Azyq5k9krmrNsvwlfCqyg+eew8mQ0KODOEblx2I6QmVLOgqp2rkpgqN0Zoqc
QwpjZXEX5y+Rc1/qW3FsU98ScCnSn/pW6lvV8InFKcaf+lbqW0//7xXxOBbU
V4xTqf6ife0tm3PVerykcyjUV8iP66jlH7K/BbuGhfwyFNSpol4l4lXC3mrk
cr3grLQR2cHeCTF5Sr5XbMZexDMwMqb+vjtF5ne//W3eBw+FPME69z5OKR/v
V/PjaN04Wzvux0bQGJY5Iui0tuW8g8SO8bi9WMYhbDN/9/YPYhucLd7e/mHw
cTTry/HsM+fN3sER9d9E3HrnC9Q9zstf9Zqsu09/1/7JT36Sff0b31B/xgPu
kWB+fsl8u+7R90Sf+/wXct6+7I8//nH1fsvtd2T71bf6AfX7N7/5dfbHn/hE
tr9fj73/gx9SfPvhW76iAUcw/v4P3q9+7wfqH8pl3KnG4S5pcW096+mH/4Zj
KLvrHe/Ifw9l49Mz2ZPf+1525tqz7g4A6P33az10fEjxaj0fcrxjh49kP/np
T6meXAfgctc77lHjd93zzuzA4HDWp84/w56GhtWZqDd/9g7qP6fy1j9aNOu9
XmvD2ZPTigeeai7387qTh933e8CpJx+vrExmT37quuzL9592du4f8Othbvbo
qJab4/jKW4+5v9PtrUoOyB7KDo0NZ3/34asVP8bHjjkZ+Risg/V3nD2qdGka
cnKdzQNg34S623n0LRWlH2wGv2EMbLf6QTbIBTuUPDXudWHfIJ6A2ZfvP+X8
sDieWJnKjudy4fcjb13PXnnbMS9P4WoxXFAY2nyz2MJT55Rfg7EC3e99zYr3
s0/bCb/Bp/e9ZtXZTmIwM6r9zMnGAJ427hC/v/vI1dno+IjLqbGJ0extL13W
Z2nIn4P62Tdk8knd1+h8Akw9Tvn6vkHiw6fffULZdwjkG/ze+kdLas2fvvvK
XO8hNQb677j+qLYh5wObwP652TFlE5DVhflAB8QDyGJicwX0upzICfLGYWp8
BTmvvE3/+S+IWc+gvpsCex7LsbExtaT3z1LWm/P0Dtl9ltervPf05f2gP+/t
UMOCuulq4zirw+Okbg6idYOSDFvjR2htJXX/EJeb13XSg8apbl7rg77Ce9OY
kxddE/QGRiPjmdwv9O9HP/qx7NYXvDDSG6VeymWxnhfwcnvHZbkjuo+/9e53
ZFefvYnJGvdYjEiYmnXX3+h41W+xR/KeH+I4iMYHAxlCDsTyguH1o3/8P008
x9V/p/GKV78291mwQczlSL+P4R+sk84sFN9i4vKlvKLjgzbOI2x9kT58VnEx
lnIrnfs2eu6jv1Esgr3G83vcrfU65L3j9mnEl0FnK5Lh5vgaIadHIpiNhPLC
GjSeiT5HcWdrwW4xd6vkc0GtCfVxjKVaw9bwnONYCfk2aOptyFd2n1s5Fhcc
e5x7wtpY3yrAZlDMff97sLQ8KUe4/BBT3BPCmjIe8VUYI3w8twpibP2M9nxW
h2K9SsilQVRH+vmaWP0cQfVXlCv5qam/ar+RcrBajvCeIdlxvs99Qh4QG1Lf
ErFKfYv6lvqWjFXqWywWIU/qW6lvbbxvhXF5unyvkPsuzneOcSxmUm9mutH6
2PcKsfaU+F7BeUX7eG5EavFT9b3C723Pm75XSGNC3Ynllhk/ODZpaII+x+3v
iXB+fFJYh9/9uiHy7mmYvQ8RPcLvcT82HMxLNCmQ4AvhxbIlf8DO0Mah0XFF
g6qOjebY6u/CcKf1wQceUPc1E9NHs94BfS/xsU98Qo3Bnx35/Be/qO549vf1
6/uAnOBOCMaAd/zwjLsjgjshey/05Pe/l00cOZodGDyovst/4EP6fql3YCh/
13SbuUPDBOtgze13vlC9f+FLX1LP733/+9kvf/lL9fvue96ZTc3MqjF4/+m/
/DRf9311dwbvH/+TT2YHhg6a+4IR9RvkwnpL8A68sObqszdQPb/Ser745S8r
nAaARhjZb+vwPHhIfYe/S91RDDud4Iel608fUTw35E89NqyerzLf+p/89HXq
+z78huf45KiS0zek79BuOHPEzdknrIHfj76tkl25OqXuF7AceL9ybQphMZy/
T7t1X0Ey7nvtmtLTZ+5V4DeMw70HyIEnkB0bnzxkfB3OJibHlCw7Z/VrTJaM
/oNk3NINZ2ac3sfM3Y+6a8nt+sqHzjhsYP59r10lWFnb4ffYxCGXa28z9zmY
YExjrv/OxrvUu44NYP0Yst/6aePQp+wfVrErioHGQ/OeJDifcTIBy5uuOopy
6ZAmm0vD+q4Zcgn4cQ65u6789/ys/rN1r759wdyF+TUffttxpQf0whPGFuYm
FYYn1w4XxH/Y00EdDyCXzyanwVeOFcTmAF6vZIxk971uzcUMx1PHfVg9eayA
T+MyqmtW3gdU/RrlNZrVwPFYnQ3r8bBYX4vG/NxQVL5Qz8eldVJvKu5T8X4h
9SbJLm0L3M9fd+PNVWyojkGR7cOiXNyXY7jx2MSwCW38s7/4nOl9ct8sjnNx
T/X44R6r/RzC68apPLDJ/p6ZX8i+81//Psf/nYJu7rOUZ7JNPPbymiLsEN84
twHHM5YDm8FZOrOUybvJdO6L5Kh07ovaXE1WgGPR2mo1pFrMi3QVYVMNS0ln
lVwMckuWPxToqbY36PuwqKM47+WeE8OqzL4rWROiOeyfcv+pjkMs14tt2RjP
EJFdvC84L93P0jOCX1BHq/ldBb9x2fYh0Z7QL7oG8Uhyx6V9EounvM/oXuF5
MhH8jtnqeamOi3Xu45T6VgznSUG2nCupb8VskfZKRF7qWxEfYj6Ftan6Gsnm
WMzK4VnEk/oW9xHxpL4ViYeM5dP5e0Xct1jOFNU12faL8b3C53RRLYmtL5PH
Exv+XhH3NcztZ+f3iqJ857lL+Q9NHM4OTSLi74qmQh5MeEzx5jQxZd6n3fwI
5uG/ka4RQQ/8v9idzAlu5xS1fWJK9oXb7WzE/OHvESYf7BvBtuVyhidMfOFb
sLvXGsu+9wN9b9N/0Hx7hjukF+g7JLhLgnueL3zxS+hb+sHsgx/Sd18rlePq
e3f/0Eh27fU3Zvc/+EB2/wMPZtfecKO55zmkngMHD+Xjeg38+Yp+oIMj2dTR
ueyOF77I3RnBb5AzkM9Nz85ld77oRfnzWLZ24srsHe96V/ahBx/Kzt50s7oz
Hjw0qujsjTdlH3roITUHPOvHT6q7OnVfZ3jg99kbb8zO3nBTNjg8mr3mdW9Q
/PCcnjum76pyHlgLMh4weobgHtVg5facxe9QPma/sY/o/8fS3S9b0f6O2Luv
Eef/a+7Qf+Zl8diUubcY0ZTPLS5MZa+5c1Gtv/mq2dzeQ4rAfv0tfzQ7fHhC
3X8cPjyeLeX8b895gf9UZVrrMgQ8MPeim+azqXyNlqUxsFjA8+arZ7O7X76S
vTbXu7Q45eeRTrAFbAPdwGflDuY+AY5KNpJ5+vgRxaP5jql1isfYdqpyJPvI
XccVDjflsoHAxgFj3+l8HngA05uvnsventv3ulyvlqN1gO/WFu3/EY2xwn1E
YQsY3/3SFROT5ezGHJPF+SkXl5vsO/gwPOrwAf3Wfvjt/DRPHYNZFYNFEwPN
O61lDB8iuTdgcH77y1ZzX1azm6+ZUzmDa7ir4zA+OqZyDvwE38B+yA/tn94z
joYPkZwD+wAb0AeYq1jkOu/OdS8vHDb/7cG4izHYAna99s4ltc7nh/3vPHQ8
nW8joy6WIlZoPRD4oSj3aXnxsIoj2PPim+ezw9MT2p6cD36DzeDLR+46oew6
c+Ko2mfDQOP6XD4yntfdvIaNmPo5Molr7xSt2VLtRTTCay+vt7hn4N4wKckX
ZEk9g8uc9Dp9P/H1fiSQN0VrP/GV67P24nVTbPyw02Expfbl71OYF+E4McX4
pyhmga9TAkbM5wlkg/J/iq51/RnHE81JseFy0TyNJ+/PDHcbE9Jz0RjSSezA
/Vo6U+DzgHhWYVhL78oGfE6Y8nw8ZpM+5u7cIJ6TQoyD/GV8o/jMEZzPfE77
vRee2Uawf+ncx9Zv/NyHYxzuHZQjZD97v0ei+0LAlu8BkiMUuxHuf5DXdM/J
tVOohVw/33dIjsMK28niNIL3jK3VrhYJ+1KMFcPHYR7B0e4T7A/by36foDxE
+nGNl+rzCMFmiumxPKwmkdyI5DGLndgLJryN1EfMJ+UlzymOG8+DKdrngz3G
8Cf7dcrrmaB6Rgr5D6MaNxXV53iwv+IzzF+rn+gQ6iGtxdMeU3E/4xof1oGg
vwvnjbD2sdgE+rlMQQ4/D10S577Ut6J2p77l85XnDrFdiDfWL+x7nGupb6W+
FcSJYJv6Vpi/3D4ui+P6TOtbUt7EcEnfK+R9xjBP3ysiuR/B3tmA6zHatzxm
uN5MXhrfK3D9D9aTOkRzZvzwEU3TR/zvGE0jqsa7GYrJfar0bdQOgcamph1B
7EZNXsH/B2t2flHdIX35sceyoUOj6j5Gf6s+5P5sEjxf87rXq+/o+nv+oezO
F71YjcOdD6xR9z2WRi2NE3rgoYfUmoOIV3/rHlXjcHfk5KB1w0Bj4/pbtvqe
bWhMpmFDsfGQxj2NYx2T2SEg9+8nnPQ8fGcfGdP/L6Z3vHyV+W2wyH366N0n
FA/HZZj4OE5sq2r/OLOfrY9hoX2cLMSxGLNN4pz7CRgBDoHP49YfGoOYnVgm
wdDg+rxr9P8bDJ4B1iyvzhuNC5ggP1TOVMmnESPD4kT3iqfpaZ9zsRwi+2Uc
xZyTxFsqByaRrkkmYzJCsnzw5Z5XrJF9B7Vq1PScscO6hl20mnteaObcavzF
6G3n3Oc24POm+C9Rmr4QvpSQfzHz5ULpSee+RBcY1zH1xPvvwtStsXPOg0us
vkb37Tn2ygvtw8XG8YLG/ALmPcf2ksd6A3amvpXoAuOa+tZ5xD71raeYUt96
2uCfvlc8vSl9rzgvNBYZnzpyVNPMUf8bv894mjzCxsz75IwgQ/o9E9HDx5je
QF/M5jJUzUYsP7YWYzI9k/PPqOdEjueEwhW+CR/O3vDmN6s7pHe95z3um/KI
+eb/zW9+0/1df7PH5tV9zDC6D1D3X195LDs0PqG/OxsanchpHJH6Hj2ZPfTw
I2qN59ffs+EJ4w8+/HB2aEzPkfWTU4rA3rHJ3G74po1o1D5hfsq/e/JrRtm8
/p3LnjBkeMbzJ2A0PmUIcJs22MF+sOOTh41dU+47PNxHjExMGj81XXNS/3mT
P347/H+L9J2F8mvCk7MD+8RsFX2cmKJkx6dCjMamGEWwdHiy36PCmgBXrhfZ
Bn6+85XrCgvnt8XAypjycsaRTEm+k8uwBLr1Ov33NcLT5eFkyKtwx3o4NlPI
F+6/s2varR1lvCqXwBe4S85zasLUNb8XUT7Z+AJOr9B/Hx++73H3P/nzHjO/
vjyD9pnHNMgDwXbym/OxMZd/kwJGQs5ov/0duo3nqMAL9oIvkBtjZh3QhNl3
qoZB/copWpuFOmxr5aTtAbHaat4ni+p1rP/E6jHXNYN4S/QYbAvuX5NIDvmt
eGdFO8R+hO3h+th7ke/iu9SDBYwm+W+hT8d6XTRWPI4zrP/zuVifnRF0R+RW
7cdFMSF2zIrrA5wkDHi+SGeBmL0xvGdCOyaZTMknnkuxs1HAH5Er2prOfYWY
RLGL1MhYbklzUbxK+hTU4phPji+sa5NMVojNLNEXrTUFuYL5gnoj1PTJQvxn
Zb+F+HJb4z4WYx7siwjusZoyGfNdwrVMngp6nQyh1kR7V9GYNF4tX2eEnGR2
8LWu3854H2K9RKq71fYTyQXek6rEMMYr9nWeqzOhPpIHku6If/yMEt1HZfM4
ZncEv6fq3Jf6VhW7qsWvAJModtX2SCQXU9+K50fqWxG9VSj1rbh9qW8V+3Yx
+1ZhnkfwTd8r5LH0vQKez67vFYWY4T0j7A/4++WOHJ3Tz5ymj5qnGbe/7Tx+
V7xH/Rr8e5qtmz5KZRwJZM7mz9lQz1FPWA62geuI2oB8xfZzn6YRL8bkyCzF
Ss/NZodzms5xPWzzw9xp/elnP6PukE5ddbX5pjwV3Dv9y89+pt7HJibdd3+4
C/hZPv6rf/+V/j6d0wTc+6jv9PYbdE5TmmD84UcfVfLGDT++T/nWt7+d/fa3
v8ne+Ja3ZM+75VYnB2gSnuYOCe7jpo7M0Oc0fcc0Ze7v7D3eVC7HkpU5YX5P
gvzpI2j9EbUe8Dpsnwa/w0fo3SDYCN/hP/aOk9lt1y8ouv3sQvayW5bysSvV
3D9/4cbs+Oos8W3C3GtMonsy7gO2f9LYPul8mHb2Wzl2fnKaYTCtf08hzPj8
5DTVO8XGptC4JYK9fTd2Tbp7CG/j7TcsZe9+dUWPHT4S8E3ma7E+HtcpYrOP
H9UznZ1Ym8ve9apKdmJ9juZSTl978OrsTS9ZI3ZNTjMi/mDfTQ5JNkmEcD+M
6tthUnMRP2CR75l3vUrf992W5xHQrWfn1fOlKqdOqrkPvemE3k/EP2O/ygW2
X6ZDLEVbzfOBN1+pCOedJZ+HLFcRuTw5wvKaxyy39V15TtyR54a16zDC6/CM
qWFHZ4N66WviLK27Qm0N1gn1+gir5a5uH2W1t8rT1/nZQL6ty2IfiNR7seeQ
Oi/0i6PCk/lwhM+xHhX4zynmO+qVQe+265DN3H7sg8KQ9TiOBe+vhbGO9Ohq
a6WeT+IgnS+OynqDuLGeH66fpeM2r47KeX9EwJLgLGEi4HKE28T3C889fNbi
TzbGzzgEE7yW4Z/OfSXOfRJWJBdnqVwhpyXsY3uC7+/AHx4jjlOslkTGOX8s
rgSjCJY0dqjHHJ0VdeJ8l/Y1xjeUX7w+VquoDbOET6r5vLaQWs/mef3jNuOY
HjkqYO/eZwlOQY1me4Xub9rbpX0Sy0Weg5xHysUo7sw+4juzK5rTTM8RPibo
xb0Q12nApWgP8vqGa3CwF7g9zK6g5khxiNRwUg+dDVXOZEIeiPtU2l9u/MKd
+1LfCvFMfYvhIeEo4JX6lhBjjIGQI3w+9a14Tqa+JdgpYPps6FtBrglPj2f6
XkFqB483y/P0vSKyp55B3yvkPkn9F/s7sv/osXmRZo8toPcF9WeG4rzxObu+
aN1shDccl+XEZFa3q5ysQj/mjimaAVL4HtPnnJx+/vOfZ//+77/S39WP+Dse
uEt4/q23q3unRx79sPo+ru4X0Hfsz3z2s2r+qmuvc9+cLU2j3/b90Y98RPG7
u5Qj+vs2PM9cc2327e98R83/8Ec/CmToXJl1T0VztH8ov2b5GO6Rs46m2W9M
R0z/BZpRdMw8JZlzyk4guFeQ6GsPXa3ubRYXj7q7DOvf9Iyg29pqfFJ6kb3Y
fr5Wnx1mA38D2xle4jy3p4iwjKiNpoZh/x3fnJ9nco8I/oexM3XSvrPc4/kI
cXnPa47T2M9G4lCVwvwitrM8Vbk0R3NqZm7O+wM2Hj2q7CvKqVfctuLu07xv
swhXbtNcAa6Sr3PZf37oGkXTUb/D/cL34QzG4CjPjzkaA7YHHVaGoI65uj9f
vsbPxn7Pb6zWzqIa6+Q4GfHaf251fkHsFdSnBWZj9b4m2TQrrPFj1XvbhvpS
gKnXIfnKe7Gkw58JJDwEHOeLYhPaLOET2hLDaUGIGT+3LBD/JF83kktFOUPs
FXDgvsZ8L5vvxftzI7mVzn0b2V84dvKe4TLLx2Jz+Ub1FK9ZCPMuqNlF9oY+
l8G/ONd1neH9gPsU0xGXXS6vY3jpXsZrTBz32LzPB6kPFNtTbd+EazfWV0Rf
5uO2lNonG8onqWdFeCNni8Lzx/xm60OYg+X8kfagsOeCmEk+CfkyL+upVu/l
vLw0zn3VsIjLSX0r9a3qvsfyI/Wt1LcIpb6V+lbpeCM56XtFCX/T94r0vaLc
muI897+PLSxugJayOfN7rgqvND8n/MbPamu4LdV4NmOjxFPENze/4Gh23u8X
/W3YfGuGuw5+94C+/x8hdw7ofsTckeDv8UcJHTM0R/lmqV5JnpVhv2HbfcKJ
144YT9F8lAxmsxhDLNfeERpf5O/94X3SDMKmrA+4hpb1KzZfbVyyp8yacN7b
OuNywd+ruvcCDMrgQmoMl43vcYXxsH8U699sLuF9OIfyKvDD3TfP0fsisw8V
oVyj+yWOqdRryu6huIyF0jGL5g/Lh9j+s1SmD6h6uBjW8DK1s0yNLytXWlck
Pya3bE87lx6yEXm8T27Gvmp9K2bfxnpwOZ4i+zerb3N+L20Kk7LjsbhtxrdY
TKTzUqn4LJ4LvuncV5ZXqk1FMat6vtyAvRvNr3PVu9l9Gqvf5zteG9NRPa82
m3dFsS6zJpyP2yrVoHOp6XKdWQp4iuSX8ftcan6ZPAh/L0XXbw6TjedfXIbc
pzYTx9gaTmWxfSrPfaKs1Lc2htcG45n6VnlKfWtja8L51Lc2mgfh79S3LrW+
VVZuWZylWrsRfRvFdTM8MR9iObZROWXtO5caUW3ufOXy5v1+9n2vKGOvxLOw
tIxoST8Xl9h4AS3y9UuRcb4W61pi/Hx9EcVsLfJhyT8DX5fCtYuSPP0+n6+f
z2ukfmrS2KLv6vDNeA59P56bJ3dRs8cwoW/z7vs8fy4o+Za0DkzHDM0jmceM
vHnFM2vWaBk0J7wvi5oWzPvCEvHT+n0Mjy1gDDAtsLWyLL7W3295P2YJnsco
Xsc0TsSv+YVQz0KBD8ZvYv+8xYavD30PfVokcrW+xYznTfC+wOdxjvG4LRA7
yRj5vYBiwWMtxWEhIpPm4DGWk0X6i+Mv2USxC3GPreF7Eu3LOZo7R9nd56x5
+j3I98qC3ytSLsRsxfYgXKmM4rjIeYXlFuPv9zi1Ua6Hkbop1ezC2i3U1cjc
fLRfcBlLEdlL7Aky5fFyfcP4ivyal3gXuQ2CrFJ9zds5X7UPlcW+hI+BjDLn
gCJMy+Ad0nxgB8eTx30zZwCJZ6P80nrJTuRPNP6y7vlCPr5nC2wrPI+lc99G
z31V/ZP8WeR6yuZvgU+LiKJ7xPps8qkqxiw2Ab85+5aKW7WcKjvP86tErIJ6
HK6fD3TF4ifldzE+Un+aF+NdZHc1vKrtO6lHFvdKnC9xmWwfR22slsNFNkVi
UhTfahTkyUawZ/ylem2VfCkVt6K8kmwvKwfHumTdlGp2VTyKYl+lhqa+RfFP
fasKTqlvifpS36KyUt+qEp8q+ZL6lntP3yu8nel7hYTnRvtmGfs3wy+tj9XX
5YvwvSIWVyk2VO7SympOK9ly/lzOn0vquWrG7e8VRKtkDX73YytofT62zHkp
uTXLbG7Z2rQS2LaM1i0TH7A9q8SeZSJnBdlmiftBfcFzywiTxeXlbCnHcymX
tbgE7ysoFuYbsflmvGAIf2+GOU9LZo3nXwQSYrioyMwtLInr6R2A1mFlLaL8
UT4sr2gf0BPGlR42vmTmPJ8ZXzJrgnksI1wXyAY5DsNF941+nt/H2HsR820e
cHD+OZ+WnV6sa2lJto36T+0N55dDuUwv1iGtW0J4Of4lPLdM7JBk23jofND1
YonPLy0j+1hMl7xNNGYhHjh3lJ2Lyyg/l9x7aCfFgdq0QjFeCvMwnp907dIy
j5+x29qJ9prKm+BezuaS4UP1ktti4yP7gPEs4ENjPt5SLPweW+IYkDjT3FW/
F5cJH9ah+IL6v0LqMK7BtlZjfl6Lad3kY2jdcji2JNR6LlPqS76OU5lF/Yn2
HCNnWeht4K/1eTnscU7W8krQc1SsmJ1h/+P44R5D55e5XufLCpMj+L7M9UpY
c/krTvbySgz7cD3lp/bz2HJfPc7eN7nfr2Q87ssMv2Xmg8+VVeQXi8myPxtI
5wieM9L5gOqXcJVwW2H7Ap+FwpzB5yMec+ksRm1O575zOfctYR+5DwxzYuMy
s4X4gDBc5rhiWTZPZJ+x3TxGUp5IeUj3C9+vzM9laqeEY5ijguzlMJZh7qIa
b21cpjlL85r6sbwcl8/rH6+1dJ8yuUxvmI90ndinSD1aIXZIsnH9DOuNr3G0
JlG8w/oR1nUeV4sjwXx5NWInz11sE6tly2EexvOTrl1e4fHD9QTvt3gf8/tO
qvE8DjEf5Loi9W4uT46F32NSrZN7+4pbQ+sH2z9BbvOz0YU893FZ0t7HcUh9
K/UtqS6kvpX6VpgrGMfUt1LfOn99K6z1QWyEmPF/b43V7tA3lpvpewWTv5Kl
7xU8LuG+5D0nrMNh3KR6RvcFrV3hurBW4LhJNVPCisdiZW09W11dy1bXLK2r
54qhVYkM/4p95ms8P12/YviJPPu+aoj95vx4zOrD9qxwu9awfeuUb5X6tcLs
x36srFIfVo2N3L7l1dV8fFU9MS0tr5C42ae9p1iy90fmPoDmt+dfMfKtDv17
zemB3/xMsLTM9wuWuWrw9raurBhaXTXz+h37huO0GsQEEbKX2rxKY7rG8gjz
OVv0/vT3NPbbu38uWvwMH44BxWnV5xjWTfJk3ftgaxiyh+RXsDfWxRzzvOsk
f/A+WEW48lzENvMcc7SC5lws1wj+y0JcloVxu1ZatwwyV2RenEvLK1SP4llB
7/lvWnfoHrV4aN/XI/kSwcvwL1t7kX2knwX3Tcvkjsf9e2NOdn8sE7/RGN4H
1v6VEGeC90rxGPaT109avzD+a4ZCW2N2cCy5bFL3V4V4ReKi98N6IBPXUYxZ
UEtQfwnsWQ3jTmv8OrHZ1y60B9k+DHxbDeW7cd6jVteZzSGOK6sCDkwm/x3G
3/aqdXkdwpvXDz4e8KyiWDnM1mlcV2kd8+NhD+XY8pjyOirlOO41q0xekDuo
jsfOLitMVrCXVhl+OJcwBgiXwF6+X9coHz0v+ZrF7Qzn16n9axIWjC/IDySP
5Hs69+EejX2InfuCPYRyhs87vHj/F+qphL8fo5gHPkXk+RixOPN9HGBO4xSd
L7Q5xIL2iTDH/G+5rhKbWD2mdZLmfrCP2bnP+Sf0BMkHsnY1nMM5dS7nPqm2
4nqF5fEaKNkkxmyV4kDjtx6PDcqloMetrdPYsZob1DGLPetlpO7E8CL2rAf2
BbWK137s8yolXmukWrCySv2TddO10hi2L7Apmg/+rCXVRdEOhmW0BgkxK4rL
Zs99qW95eyQ53s7Ut1LfSn1LwjuMX+pbJD9T34rGJX2vkP2hdlKZ/HcY//S9
AseK5I5Q86L1RchnXEep7KfX9wrJ/iDfWDxXGc5r65VsfX09p0r+e90RHlt3
4/a94sbUs4LnsIwKkbcWzGGdFaSvQvR5ezx5mRX39GvM74psC/cz8LFSQXo4
PhXCu17Rc7YOakz9GWON1RNfE1cd2fsV9W7WrCFZa072uhvH5901p4vqw3JW
14HWkU3reszqqYS4kPhV1on/6xxrEquKw9Fi5GRX4rFYMziuEb9szUI4rVEM
+RzF3ttkYxXGlecOHVsPcFlnuWpzphLwrwW+hnnq10m8FWJjFDvk9yrKF2Vr
xftK92Ql0EX3JtNZobm4ynNzfd3Pofxcr4T+hTr4vse1JoyJj6mfWw9km98m
1/HeWUH70ObPqskznFe0rltMWc6z+udyo4L4KhRruj/DWqvrKscH5WOF78Ww
vq6T/W5rwBqypYIwxPoqDvd1xCfnsucL4mdxqWAseO55/WR9xfvp9geSsW5r
UgXVImR/2Ae8T3wv2v0R7k+af+vCWFj/cD+qOPvDmkn3ttTfwt5G6yiPFY6F
3D+5bl4bpHoY1nm7jvTtShyX8PwQ9k9bP3m+4bG1YI7nk5SvtC6E9T/MZx83
X2NCv0Ks1tdxLGyc+NoifMI8prFdR3264n7T2kHzD9cTnn/p3Hfu5z5eR2Ix
lfY53+O8d9A4ytiEe5710oqv675OIjmXyLkvGhOCeYXZEeHjOfsMPvfJfUuq
7TxOvOYVn/toT2O5GfRdmzuhfxfy3If7Eo+zVK9iZ6noHtzEuY/yVohuX1c5
PigfS577iI8VXAdQzbjEzn2pb8m2SPs99a0Ql9S3whimvoXrUupbfu+EfqS+
5etM+l4R9t1YP5B6QpCL6XuFsHelfKV1Iaz/YT77uPkaE/oVYrW+jmNh48TX
FuET5jGN7Trq0xX3Wz7vSbka5vea3UdE3npWOV7J6Tih43ascjx8VhAv/23e
j6tnJeThvBXQFY7BWpBxPMcn0Kl4C2Rz/TGqFMxXzHwRj5F/nGHj95rPp4r9
jQnt1UqF5p/nQU8rl6xn/BW2FuV1pbIu8K1HY3s8hh/hgecJeR7FEuMlxq1C
11H/cd1e8/tnjZ6JOB6AeWH8Y/ZK+Ub4KjTmxB9h31RQjhDc8O9KdD7AjdtI
9hy3tyLYGMbmeLCuxH5xcVpXczZm9Ldgl1RHYL9HYhOMV4S5wLdQXrinUE9Y
w3VZyCeUh3JuC/Epk3tSDhbkXaVSKeApsc8K9txxFOPjZfaFzTspZqQ+V9uH
IYZSLhx3NTmSq7Ga4myga48H9S4iI5qzVbAQ9ii24fhxhBP7HbWB5TjBpyje
FTQf1O8qeSLFC9st+cp7p1QzeWyL+gjHuay9Yn5E9lCQwxFZONaVKmclglUF
EcKsStzL1U/kV7Q38binc190X23i3BfYFu19nu94UX8+zuTi9dVqUQXXGckX
ppfUhIt37qN8FWpvLPfEHCxB1fpbwJfOfdzn0B/Pc6mc+/h60mdj+chqUgw/
cV2Z3JNysCDvni3nvmqYpL5VFNPUtwr32PHUt1Lf0jJS3xLWlck9KQcL8u7Z
0rfS94oCv1COE3yK4l1B80H9rpInUrzS94pL/ntF1Zou7mt/pjl96lR2KqfT
iPi7Gzsdjms67flOnxZ5JJmnC2WGfKJdp+NzgY4CXTH/TmHbT0f4sc+n/fjJ
UyezUycNnTKE3k+eLJg/ecq9x7A6hXRJMk5iWUwXiV2JGFB8ThM/8VxxnnAs
5VxxvOCD8eckx6sKxXKP5AnyoShHivJO8uGU5D8ey/Mluseq7Zdqec5z1MYr
sAHlbiSPq8WyeL8Vx1aMd1HeFGBq/RTtRe8n2d47eZLvuRjJtgQx2gBWsViD
7FNV8SuBrYrraSpfyvEYriT+p5HMTeTDKW8H8a1wn5wO4ivhJa2PxqcoZnYN
XxvLJxGH0K+g3rDY0TyQ8S3V24rGeH+K8Qq+nWLxi8mJ90ih1hkcXH4hvSLu
RFe8lp0qxF3IE+ZfWYrVqWjOnBLqqmCfs+W0vC6699z6SG5BDIRzWTr3PTXn
vlM8N9l79AwSxF+2/5Qgs7Dvi3Iu3XMfxvBUtRhXs13Kw3Tue1ad+3DunYrx
i3RatCWd+8rSZs59qW+lvpX6lpiHqW+lvpX6VjSP0veKgnwScUjfK8Iemb5X
XOjvFdE6ejrso6dOYRw8TUzPJEqU6FlIk5eADYkSJUqUKFGiRImeekrnvkSJ
EiVK9HSi1LcSJUqU6JlPG631W3bXXhi6ojb7fUV1m6c9nraKVL9JMnKRrufW
NKnnZn0tot8voC3oGaULFDMcL643jCX3MRbH4jwIcRLmCuwoWi/bUeBL1Fe+
Pp6zYcyr5XkJnoJcf+5eoAZCW/cyPsKD9gCRXyfsi03k6gXM10SJEiV6ttNz
tu9+yuhi+5YoUaJEiZ559FT2rUSJEm2eLnZtSJQoUaJEiST6/wFtJUc4
    "], {{0, 0}, {1714, 38}}, {0, 255},
    ColorFunction->RGBColor],
   ImageSize->{1714, 38},
   PlotRange->{{0, 1714}, {0, 38}}],
  Alignment->Left,
  BaseStyle->{"Hyperlink", "DemonstrationHeader"},
  ButtonData->{
    URL["http://demonstrations.wolfram.com"], None},
  ButtonNote->"http://demonstrations.wolfram.com"]], "DemonstrationHeader"],

Cell["Boltzmann Gas", "DemoTitle"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`atoms$$ = CompressedData["
1:eJwVV2c8FW4bJqLQ0EDiX2hLKhTCdYxSkUJUIiWVJA1ZhSShUklJSUgKTTPb
g4zsvdc5x3HOsfcevd4P9+95Ptwf7uf5Xfc1JCxuGFzi4uDg+LtQixbq/3en
VxEbw88wYCQey+Z16oSfzHaXi86VeFi5NJr3cTPpt3+o+HNDFuRshssHvcZI
en2uo3BqBeRkeFtP32+GFk1l2PNoNRztdy9TtfyNzEn5mkStJlhVNV8yDWMS
WmFjCic9D2cqvO5iZTlmchreXLZnI2R25wshRh7ugyuHOt+OIW3jiZDoLsQ1
LXqV9IMOFc/z/g9tu3Bj8doUDsRj/sDvWSO5KWSKhTqY0NuRFzvDNO9ogi/F
0siBxQTfGf3/sns7kfm9d/m67HIUO6X7Hwsdh73O2wCHmilUlCa4vZSkYtdh
EzGvPipq01kmFOUeIJKr6qVzF8TusXWElrcR+iR/85b5PlifzDx5bs1v9Gbs
tj+ypBS1Pg0x+nUsqFZ9kAnq64VsooafTcsU2fTHzuzJ1WkkFu1aLdaZRpwk
8DNGrBlS/Na3dna1oDN9UGPpvmyoqQtkP5KfI176+8PiVtRjiVxdV9ZcFoo+
Z5wgmj/A0OW6VKPbDXpDpVagXTwoeSbjmi3BxFjZMe0pYxDvBZMFvNnJxPeV
eJleYCWKtk2bZZE6PJF9mCC2oRdfQrlc3b5xZok/ES7+XsPGXb+Mw5Kr6vAn
u0jK5AQdcq0r/fRT6DjL9qxY9I0BoayWELOxfPjdt/nPZVkPka6l3yoxnMSi
Fx2+Ge0d8KvVFPjEPYDn1y4ylvlVwynoj07cQQaqVu1cGWlCJQrryyQc80vI
j132eVNbOiHRseGxeGsXruwzSdvZxoLI+fOv+PPZJKu3kF+L3Qux6frg4x96
wbE/Wvu7ei+eWyu2TIX2o6Huk0zDFxp27Nv5PtN9FMMt5RavDpeTpWn8cRfo
70i+nNyG+uc9qJ/SOKepyMKL15NJj76U46Hdg026DlPE86vOMrdr78gnkZyD
EZ/6ienhFXK7OH7hm2P8paYGFky1G8q5ODvw7ZJPHDO7hKwQsV4y/82beImu
KmLfjIWTiaCHul8PfpYJeN46XY1n3IWs+OgkGKQ7mye210IsPt5GfhETwgYJ
Yi2xH8iDb0yJ7ycKkF7wjQS30zAs4PPvvkYvKP+cflFMy8h6319mot2zsFOo
TlIQYJHnT32zVNw68FNVU+1tywKulcOTlVo74K7K7f1qLpJwTfc8tAgfATVG
+HwjOkjORf3iCak+VOWoCzTotWPV1diYwqs9WGGUpr2fMU34QxQln6WNQ126
8bOSXRl41qWo0l714aeGa1Ksdh7EikQMz8mm4QW9PVdZloOyw+Z+74fyAhJs
nWMe39JK4rpL1Ljq2tEn/mtdzo0OqO8/EMKe9INkiLi+XGM7eCe8pu8E0qG5
KSO2q88FOeJzpXT+XtwpfKagsbceF1X4gi7q9yBJRfqh6rMerBxfpa9tNIVe
5hzPUeN6iIqm2oayc+HCIU5+DLTgyg+afOpYF0I1uk+3/y0gJ1/qf9LrHCBt
/ktXaKj24Zpm17YlEgPwrfzclZRfCJ41+zRTzvYiWZb+ubPUnzjrOA66xzFx
lNJzOfTsDGk8lytTzFuJXVFZfhFBPVCusjIzOsgC5fSwy7WcW/gU6GJnKTNF
PJ6O6jfbJpOwn5dvRTuwYNgoZkF7ygSXnVhrc34/3G5r8SXfoRM5mD62U0vH
J46t84N7w6ESccTs0L1aKLvftbKqbMDSr+8fpcfR8Fd768BKeidR3uDrzK3I
xqHdEdKKG6qxf6Ttj33eANiSgeslo/KxKjzK1PduKVxtzlpc2zUIruHm6iBO
Oly1lr3UfMOVxdJynTu5uxVP5KJrT/z5juUmb90+rexEudjaljSJYrLYytzw
mvoiSnnv+nfdokNE8fCNs17mtXip0Vo00t+IV1MJSyKoBIZjOvs699QTL+/Y
7ZUJoaRA6jOrdTCZtB3/rRdnPgABapFdcy0NWz5TOsSfMtAs2P1VOi6f+EtM
GDBMR4h5g0YYPJsJh5it5VceJiizEd0BFzpwLkbjXIt+FUQXbda1v9NO1MaS
FqmpjJMrdb/1GB4T5I9XnxfXmm6YR8/HXRjoQlv46pDs7DpcCLK3Vj0yAv6P
LTHzZV0k+Ut545tDlST/ZzOfjGMryvnS9prrM7FG02eLvFIlSvri7vAJlRHu
kzZtu2R6IOVDO1R9mg5FdY8eBalSOP70fZHV0Y0wPvfQ+lsd4LHY9JtuNo/l
DI81HxToZHi8nnbMY5gEJ2on7+GhQXGb5zfb6la4BG3dZRDbBD89P1XDiWbi
4ftaRoaLTq4udd6qX7XAr9p81REKAzBJNfLl4O0HM2Du8n7BSph2XwzyFCvF
iuAuzjxr7izD0mer+O7/IkIfZ+LKc1rgfor3hVJRExpexM8MJlUi8g5lbmjC
j3QPLvq+JbqH9H1JKhDMLiOGa2d+Pnrbi0HRpHv3WqgoNP5aJ2feiJ8ZLStV
xObQdCXtC23sD5Lsi978a5kgIt/LF9l6peBQnG/FzUXt2OetTWPcr0F8/MvQ
Xs0aJFr7KkXy0omLeLHfx90ssuNm3Sm507+xb77VIIGLhd9pWpInj1RAZF5w
M//LTvQq6y158meaxL1LvEY9Ow2HnVPiR868gdrNnk7uN13gtJjexfzUiwlu
kWw3gRK8Py9xSd+/m5zgN1p8XZiJ80mJzkuaqDjvr3HZR64POrdOUuYDcvEi
0btzrrmdNF5O2ba3MBer17zI8z5XQLhkazNftrdCx+iiTwijD7mBd7f2/MmB
k9c/4V/PJnBZZOLpFioL8t9UCFfQGDRyV5utG23HDoekHgOXdqRY+12o0+7H
4Sc+1eNmRfDbI5e90ZqbIlxQHlHs3Qq73b6u+m7v4DNs2vjIuBNCI9smg/dW
Y+kxmpTscxZm+WT9YtewMJgwIaRqVYUdMkVGdvG9OE+NrDjD1Q87aiFFNngA
t1nnzw6EjMPZKZdL/fckSZSdsgouG8QnN+k9ev/KcLpNYlyPVKPq/lll583p
oDDqJxzLCQ7SuAwfOI8QpeA9LqsD22C57b8sN2o4/okfPNfJpoHKfkrVtItF
lOq6Mr4sGtmUGbF62JZJ+Kaafx6spxJJBe4NzmOt8NoUmH5TnAUr9rTscF0s
7P3nFz+SyYRuss0WRRUGKoT0jyvF9JKihuu9YqILfCGa1HEkuhtn7ofWK32r
xon9Pz/lLislX+VVLx73msCmshjKpnOECOrN2eos7oH80isC264WQ4yHeJ1d
XYHRdqnhOeNAYnEtUGEJ5wTZY9EXHhk/RFxOfr7sq1KFZpmJFZeOdaJqzD/J
SboDAY/oyx1O95IBtSgB3XYein8Vx5r7vaWYZB8698GIiumc6QNFA6XIjLQ7
NubYjTf1PXIPnjUTQ4H+feUiDCJ75Ph/92k15Kictfxmrh5olXCEWS5d2Gvj
d0FmX2vhLX9oOid9GjvX80kyDnRDPXpY2Dy1AznMJeoqW7PxdU6wX1yairqC
IEUVlTKsOahkmb7sMxmu+mji+ZRJtC2Svf9JNRC6Rejn53s6ML/ntUvyKRo4
T1X/OH++CjYOx6/aWg2jVXXYSG+aTtT22Wi6H/uHS4ocExse02G6L7xxdx4D
KSFHv4f8HcDDM4pNpo6DSLmRIRlxvQqVv2Mn/jPpxZFj78RmtGuR9cF28HMb
G0IPi18Vv+tFgUT7PaFXLvBK8LaTsKpEfO3xs4y1TWS13eUwjzNlOCTTlB1r
OABbOb3avaNM3Hml8Cj0XATareXjkz8mE/cDXY7++0YJV738N55X5YiXLnhi
IdmFwOTAjgML/NIWGKU+cKYcdQr0lRQbDorxuZulu207iEixoNabih48bPzm
5zPCAixXPhk6l4H0Vh79SMdGUvXCSPla0ygij910z9CeJrbykYX3AlhIj8od
v3mpEkYJVjcOJdQhvWHAMzSWQYIcD8q8aZ8lh8xouplT8bDuPuj27SobAR4C
Dmq6NEj8M4g39q5Hvf2/OyVfGokob2jxdviRSiEjd6eFeb4PT07RhluhLvL2
QH9+Fg5OS8z9mKlDd3lPNvNbJalKjEuiDg9B8rrtCealWrQJBJzS9WCCe1yh
mLe4Gy9CBw13aS7ocZSp6oP5DrLRt+ij5hY2mb3lxrPmbTGshAv0tKy6IXMt
ev1d7jzUsTsdz1jTsPxodYKnAhPfbC78JyyfB+tRhclvrzsInwxHzJLuX6hS
/UE4l3cg7Wh8Y8K1bgzXzyU4LfkHb6ZRjlp4PThXSe59vrES/csYM2albbgY
8u22ThQby488btM91QrL+H/Lpvf9IKzEJ5FDH8dJ0e4/Q80Sjagv6Di6nLse
7l8mJSUz2Dj5cjbDUZKGaR+6U9bbWeQuMfL+XV1Kgv1fB56STUeFxuILXBQq
tL4YpheGpWFQeyB0ZHMhnip4yrSd7yTZO6UfNL2pIq8qx3Rfp/cSkVf1QiVL
S/E3avWKHe97oTWSt+nrjz7o3VoXXryqGS6SR5b8+MaE3/yJx/apk4S3QY43
vCMHc7H5QgXb6lCmIV+grdKEMOl6n/l1U9i+8eSOsXuzMNM56/KmqIponfM9
v3MxE6l/HumRex3YWmj09NJpFsyWNNbxl0+DYbA/7phvP/pMZBPIdA/ULev7
OS8u6POPgcfbvNqxIp874urmftCoKWcw1EaMH/xp7BUYIHkKerfXRtUSO6lt
lNDmVpx9a+k5xJkFqq5vEd+aCCRe/VBz5+8UhqzT2+9q1+GcydqjQe6jJGPX
6cTDE3V4leBYpRTQDbbNV6tTcX1oun1XTFWqFpYByZqJ/jTSwI7/+Xr7KEJe
qX62V27B8WKF7h83vsJxjYp66SM2bL+EdfGUxYPWXlZ1ObaLUMHh//BCM6LX
RRrupzKxyZHsb4xowmt+6zXyt7txdxO/4y/pSVK4qTArgTVE4l+8lqBUjZOk
Zxx97KBWVGbLFPmn1OPNg4vOBV8XfKnoY8FbrG6iO5ZGNzXsxuKwyTLD+j6S
mLhD/MTPdpi33nn8brgA0U4VM89XNeGUj/VM6nAzNsStcDK624rQQY4VdmPZ
EP26tDpjPxPxMi3vjrqW4Xbp7bozG6ogOFWmVvS6lkiJbh9XJ5WQSpa9z14X
hRPqAlWBHgSC79YWvHdl4fHpC2Td1TI8YCdWKOz6DT1u6yHKWCOuvTi50787
Frlx8n7hRWw8+m75wfxIP5b3XG9bpcaE/kidVlhLC25GB8TJ/WBih9fdNyEL
+/v8S5f1ExsWDnyVzhcYakCkQ9gRvuAeCAc58+2qnCEWz3/y786vQtfQijpO
nTFoCj5wtFMewIwqXo5PFGNXfIEE90Je8hc5efZOUC5xX6LGLosewrNoLidW
Nhtuc05us6GvscT5zZ8G5wAsSWN8SWR/gr1p4uCduGoyNjW8scZukqjO2nPM
uw6TsUCzwfnVLLR4n06LsOjB4bUyGkfPlmCeoccIFZ/F0FV7BdPBSgRp0k7K
xo8R5bY9DwLkByC+6PDBZwt6mnbTff1ttwE4PWSPDb7hzOqhjv3Sk63AAUe1
PFldKsK32+Wqh8XjHaWZfsOnB5wqVToRnl34+XV7wGOxEmSb+XVz8GSgItLI
ZgVXHdF9Kya/614V/DMVi1ir+5Ftz6GqP8HGl3UOq7vs2cQjs1b3gEYdAjVE
tNufjePS53Pe6heqkFrB9Tk2tR2bEirGXf51w+KGg5Dwm17MlzhlaK6vxnHm
U2mHnCrCXnFf0VKbiv790b/L5FjYWpSx5dIOFj6/tznPzGIg6WjJNeVPXFmX
L1cvsy7sJ6EeYXly9v0weLXxzoRuD06s8VxHGWFDv0XQ+OfeeVLE4ahQsZZG
ahSl5E9yd0By0TUXd/5+XNMuszJaXoWAN7tr/tizMbOjq1BGjkESyskl79yP
kLgoO3misBP864W3B7n3IdhW43CVWTdMjXx3NBQHgkuOKBfNUYnwjkNPBToK
sTbKOaMk+A8xkFoy+6mlE+8+3kijPGxEisp2AemmDvivL0uJ1umByPpNgyX8
E1hyUU0qR7SRZDNjjknNMHFpRWcU3SILqsrmDtcyOnBx1x/lsQAGmA5hRT4L
OrzFe8g1sCWZLNXxdJQRo8FPOkXx1ic6jIVEX0stp6PJx3ZthvgUMZpe79Hb
PAyOogN2syPjZPgE3/7+xCYEzSL0SXsf+qmjVZJ6C/wZ5qPwSZSDkqV2O++g
AZMsO7GDbzmToMrERtVYnYbdFjsPtZWmokDaU1yksQ9SeluK8gkDLRMJEacC
hslKnYBbYa2NZHmUJMeGxkbIXBkh4al5cNS6z3WipBUbjcvPPb07g/1v8nUv
7Wshc/t21TN+/UV0+Fpl09kGzDspTAj7taHORtXHy7AOK08bpZ0tCwPvYHuY
ws4yuLb9m97Y24C9InVzhx704PhpfcGHD5OgF7o59MLuSlx4ySfuNjxPpjsO
P3mzqwAMH8bNuGN1WL1FepvFs264bKhaZSbmh/uWdjb8V4NQlq7cvt6pEsL2
e17K5+TBJjHf9z/RCeL6JXyuyK4D9gMlu61iapBVmG/cldaA0yKTo7l3B4lt
xNAly0czGDirdXD3NI0EK98LNXGqQdvAp8EXYv34ZdyU5eVAQ6wZB1363hjh
9GvSnD03AnGdt4GMphGkdNyZOxrciJeb7VY95MnBaX33MeXpBCiUkRArqSF8
3myi4HatAMnBPw/uuDVINgY7RTg9+Yu91iYxxnlR4Ps49JRc6QYXxVTH0G9R
1ve3Qm9S9YbJLZV1VimWTejqSVl9MroZ4ssrVLl+dsMj+sDljVv7EfUjN02e
qwH7yKkqMXkeSmMK26pRd5ZUiR7q7X3Wv6A/ewVcORsQsunx7NbQLjhPWiWW
l/eQg7+FXzL0h7B/6Rr+Z1e5syYy//sjtrUYRfbRZdH/usDFRd6t8KEitqxp
MGb8H+5HXHp29UMx+Sg51v3wbCVGKopOMblasSn5t+PiGQb2bDJ6be3MROTu
ZN6PzlyUwOCCib4oJhkRbteSMOzDxLJG2SbfXkjx/rDv2fsXfEPtlAdWEfDW
5j93UpZGftR7zt5+Oo1Xj0/z9WrNkcH4c+V3yhnIWqy3X83xNVYOp3dyJpWj
3eP5ihOzw3h6a+pDgzmdjM1oph00+oegd2eF313qglVhUZnNwQJ4zusFuV9v
Qq7HmZXTSi3E+ytNWkWphByyDb5o3tWB1GUnz39RqkUdz/wn41M9mHK2KZT7
3QY1k/+MLIMnocjXHfJzDZXY8z5zlb/6m6zylN0+f70Mi5qvrh9s6oSK4mik
cGYfjgolacTpVRPXnrF010OTxFm+KmJRdzsxPqSzuaSFAaqpq75mWA2+nLht
2nc8Cc4/LmnwHGKSv+L96qsX/AB/1Uu9s2aduNZWwiP5uw5Zyzp7jeVp+FF/
48Bzai3mmwZ13aW70FK0PV9Fo5GkXl5K/syykTR/VENkwTeIRBqqC1D+QjLp
m+8yUTbqsg5PUFpHoGnC/WzEtZWsehGTkrA2i+gG2vAcX5sPypiMl6pZA2RO
haQm6Q+AXt3vkXBknOzc8ohT8HMT+KLWzklEluDmsryOiRXx+F5gL+5mlgwH
tYxRH5E+ON078FnYqx6fS1ZE7JZngELLuVnT+4+Ubbs8N7fg9/kfqB5rM2fj
0+ZI5y9n2fj+9PkR5Q8t0N1/b9PI5lr8+mWxv1mZRva3BJtVvqdjYLYiSEm4
HyGHBk7HpbEBnyXP9ullkSMPRJ95z07g++BB/oErLLL4aHl3xLsarBXZ5sx5
uB2uK1L92RNdqNp1nemd+ZbwG+s/jtnCIKxWrdlXpmNY43xYrUKsDDVaWxVX
RrLh8nF8cv5AJUZVxRe7BjIJ5+ig+HIWG11KeY4sZheZGvA2iPnSgKmG/THW
vfW4Kr6++BYHC7IZ+x4bbR+G5aUBowO2Gdg4l52eZzFEaLPRad8X+lNCdoqV
v2Jj+puB3t/8cLQnLT8obc9ATIEOp9SNOjy5FfXp7Wo6Fgca9fGM0NH8Ufan
mz4VnF8LZscGGrEsYCLrSHE2CRGiiUaMTGPcvmhhR5rIqHbnbafiCsgdEru6
+E8bNsVo8jl97EHh/ZuidDsW6bv46S6dPQMq1+7/1nGxScqaOy5PbduRNsUf
/WBZNaTPLZv0OUPDe8GyXznKDZDP7W1Nd2YS+zXH7x359R3aW5JF3fL7ULEh
bVqttgrPhy/cXD7XjUaEyIjZ5CImNCg9s2OUeH90+i6WPkauxd6TvzVTAvvY
d5d+VlbCZ+MQX6J6NJqFyw2oX+loLObOXPc+g6jZSX5ooA8Ql4OmrJQpGl5Y
hju1M3qwzGT8TMnpIry3NJOvkp0k0v0fzLMtKlCZ/CvXQHwMioeNlk/H1uGa
T9193sQO2LovkuKbrYDjruotc/M08mC19Uh//iRyZfcW7plnEuGOKI/jPG2w
qHuf/qt+gZ87VUxEyjpxSl/r1nvrPmK698XI39EhzBw/EuI8OgpKRYZ5iWU7
KhhJcSc4EzFvu3Hfg9EeiDe8HYnZ+Ids3Wy/Uv1+FxHrNAjN/DFPQj8eKVq/
mgG96bbCGloX9hvyiCqJV2L1THhhvM9iSjnzdh1VtAqcU8odpnwsNB9Xdh+y
7Ibe7Ouc5Jxu6F9fU7FBho6J8a2ZzQt+tVvntdxSFzdC1tBWLFXNJdf1Sq1y
vlOxbPL0vbTxGqT5ZFTkRX/FHb3RTl7nfiJD0Xs6zleF9ynpW94mtkFpT/x+
6x39CI/742Ua/wcmdxzFqI/ewMHu8OAN1hgE5O43FlLpJGSJmdtfuxYcCc3X
Xt3yF8dKDAxM2r7DRf2C3qsVNThVZLJxzdsq2BdovO0sLAAtQ+NlzbNCMnBc
Wbitowl/ts/P/z6SgNvU3x+Ebw9g3V1vpQNBUwjXf+ilQxmG4Xnjm0LDldi4
efughkIxdLU5LGtTC9HLfUxT2pGJsGqpfW136XAt7MmsXZVKIua3Mo78YqN4
oyGHlmEJlM5kZ9wxKIJNTNTav7MdYG1z0Tok3IyW87wTCroz2LT1QncwVwMx
/Ti7tvR1K3g86vOXObejUPPC1i8xTGwVv3M7oqCX0PutOkvTGETi9dKvy9Oz
iXgiV3FWaSPGhPYEXAcT/1i/6kcX5t85deiGwt4x1C9u2zs7vvBPdzqFff4b
IlEBFTfZAY1wWV4XHT5Tgb9y+RZPRlLxLVZKIyKhkwxXfHWj/Rwm0nPKzT9k
RknnTqr1/GAfam53DiW0tELyZA3vae8unOY/r2Jw9DvZsPmv398rncT9sb2A
x+Mh8nOEfKz71IPUksyd63m7oGbBPGfk0IUHQbcu30qiE1lK6kvfD41k9l/9
+/aUNqJo0yS6bkksis6onDT/xkBlQNOeK8Uh2KoiUTm8b4QkbhvPCd9Si+RR
3qVGERXEfzJM2DayDVsnhjT36jKQWbuy2OMaHRcKdfdQZbgouiZ7X8c/YSBB
aYfKsvZKaAnovLWs+4sGD8t2vu1MsKcOB8/29mAshPPjik8ssjODg9t5lAr+
hwpSctxZxO3257g00S5QFHM9vTcXwfbz9nNXI+hYS7vnFOowTz5J09/kydZC
l25rQXUeI+czjq4ZH2RgLyNlr1ISA/qLVue80e2FoqZlbObSNtJ+TTGAN7SG
2GjQAvfaRKD4qerZCyL9WKzMeLAslcBjCe+iVx39KPybtKo0kQrTE7Yr3YxK
SM+9bn7PHZyUbeJmMwMJpejrOz/xeZANf1fZM9HGdOimFn6diKOT7MLmU5v2
DiBKUKnH/egv0p0o3GcU3gVN11B9exMqTk6Kq0dtqITZfi9Xc06OLJH15lvd
9taRGw9evlDxXci/T/nuJexqw7PVzI4CjyZ0n/ToO7nwjibbcZ0rchOkLGbJ
Go3lfRgfMGSc2vOOjFvMNIVfYYPypHfRrYXz4W3ODXuOUOGaoCF7KoebcphR
mz/+dpjwnr5cF3hkgjzXlrp88lAbblu8Xza7dQBheyLt15Wn4NGc7JqnFwbQ
6/ptM/vqCFGmrr0fQ6ORctWZEv6DLPhHR4Q38bdhw0hx5DN3Ft7KPShOcsmC
xYDkwXydCaIxdbd35dlp4jOPuDMcxfha4bVf7Tgb5131B8yqqnDxa7xhz/VZ
ckRsaJVQAROLbT08RTpHifVXkc898j3YsjLeLaK6E3HRsWUzEh04PhXoKv+L
RR5ef3RZ4lEZ4ndrcxXQh8gVL1VP2kALqgbd218P0GBv4dDa09gFX95FuzYJ
RuCYkHcu2TxOGqulLHPjOjBrfP/rwalCHPqrdiE+hA2hW81CbdO9uO7dz8eF
SRI82v8pMWaYWDHqvC2F0iHUNPm6uacTKxzTy9XOVkHiUvDOwK+tEOLYvtL7
ci75+N7mt90+Kgbt+o5luTLQ7yHFPsbLQH3Nj8IJlW6odDaJ3i6iYmzuPMc+
w06SpWwukmRQiKXOu5bsVa1Fd+ql0kPxDCyz3TJr9pKGStQZtT+qh66HThfH
9DRc3zZBtHgGutx3Tw0vX8iP5rbxSQI92Mvne8YtvR/qwuyltyUGUCsRUL7I
8T1J/aPE3+kyRITerdxzWLAQFL6OJq/2fKj9GM+T3N0PeXzYVaBJME1xG5E1
riJS3K/Wdd+gYvHSe15c+tmk5rKfCd+eCuTnzjSmOtCxGg8vKh/shEFFTfYt
7oqFHOHfwx00QPTuadda5nej/aY1R+aWfrwIEz2vHJmKy9oS9UElLLTlE+Pt
QQyi9G6yLvY+C6ZZfP1lZhMkNC9A4LRmF4oEnhQl/aDBp2O0Wbv5MYym2zw8
uAuQ84qzWH1XJ9l3/tG1c7lZZDBWb/7wXCZ8H3pzpEVQ4Zd07z+lrXVQGtqj
pBI3Ro4f+2IxUDuCG2w9ygePMRK2g3bqW10J/lp1ncg62YbhXFXpL48I/tpN
uvOop2HV9sc3Io3bcdxQsMpAOg3NP6mlxc496BPM+t6YwELpaKu2d0I3Hld/
ECzYWEv2ucuFPHWkw9bq+bmt7n0knn3VZqteI6LaPZ3zKuvQciM+88iOASiP
ltfez6xBhNqA0mK9Jpx1NDxWf5KDMiNfcOLEZAW+yBkU0bXYMNC5n6UtmIZs
rdzvPOn1oKn9MC7QoUFc8jpvS3kY1q0YDL84WojvJ58ttqPFwUv574/4hi4Y
cr5T1N4Yh43m9VqF95gkrKnQs5PeT1hH/XIqTfKgJZrPmp9mI3NnUO03sVro
hOQHyNRXI9Pr6KE1Ut1kpODhCPPOO6K2lLc/eH08RmOEdG+q/0aYUuYNT8pT
TJ2J/+gwPkj4WxadZl1vJxF/PeQE3MbJ1cjyoQL9OkzeN7iCiiz461nN/i7s
w+S3wrLWRYPEXyn30YPfHWStk+i2611duM3BZ7yfqwed6+h/DaZpsMjirsyv
K4PYwK+XNRO5JHQBM1/WL+TvYdsYH71owjN6dCLlTA0Cr/pxtqyJxVNuJaNu
2UbE16iXBaKPGL5fzdd5iiMr5ZXhcSNOGmQYSuZtZjSs+HzplvbNClDP8ij9
shxApPctwdPyM+QZVSS90zkN8kurrW5SOkmnQt+ywcGPOBWS8ogzuBKpwYuk
llygQ1l7hDZf20E2UlhblHtz0WckVpnwb5Dc2jkSiQ8EjXMHjKiZTWCV7qvW
SCmEf4NgzAflDiTIyNZu38hB4fnl0J0bOwJ5y+zPE9U1kIjzkR6P+IOJeXPf
dpcytLDVftvvmiA/VlkcXRozjvK1V3qPVnJT6j7b0z/u7wXNR9r988oBPMnI
kHgm1Q0N3o4DLsmzeI9I+ZbSP9CGg/+GkE5yzWjPzcuPe/Ew0G6nw3gfJEj9
McOmClwusLe8tPIX5t5LK6tXzEDx/T6a1MZpnBnI5n4nRceeguCj6gkLOkod
vSm1LQEWKw3HDegt5FOgmb6nXw5JemB+NFU8B7onA3UvfOhGvU6/v4lyNaYN
Rl20otjwaBo0buLtIhtet83UXe8kFbXnGNWXekjPjuw25fl2hL2Z3HlQqgWe
nx/Ecg7mofCIfR9duQlvY8+GUfxpOMudXG9Q10S2OenffL++GntXKrWf+0gF
+2BMbVxPLY6xEz/cPjBF/JSORz3t4M9KbGioWe3SCl2+w6vUvOjI3TC7Kkqq
ELK7RniVgvqQ/qC13c5+Gld+UiYC9XqJw/QBkysXJxESxLnnm2M/uE1Drm8W
a17AVbLLlGIOfK6o82aM9ZHJ8qZPqgdaIFjw/I7cQDXWg5ZfsjcOWt5vtwmL
dWGi/Nk7x0dVaHBhpefz9xH26gDhrVLjRCHuZcGxm5PkfxKRr1w=
    "], $CellContext`temperature$$ = 273, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`atoms$$], CompressedData["
1:eJwVl2k0FV4Xxk2l6F+UkFKmUikaUJQeJBVSmZKQSqWSBkOKJBVKCgmJooQU
mUk45qnM8+xe93Jd1zwP6fV+2GudD2eddc7eZz/794hfvKV3mZONja1kMTgW
4//r9wmmPgr7hrA1K8Un/DgVb/LTjqrH0fCkevlX7uetZND+yf64TTnYaz1a
Oew+AWFW2dy+DyXI4K4LCeb7hZV9tiafXftxz37XfyqWqcielq9L0WiBVU3r
ZdOwHrI5g5vWav0JPE5LA/p+FOLzq7AKq5ocfJjf8VqQVohH4MzrWugkI0eN
pj587YPsQFyweCYdRiVq1geSmlExjXjtwGosHEidN9w7Q7I3fHQwoXaiMGGu
53x3C4kz01cWt21Bic6dmyOK3WAOJ513iCvEb8dMvxMfJ4m9dtBbh7oZUlWe
7OIr0UWiS/qMI0pZ6Ox8efSXXSb81vHvmNDuxQYnhrbgyg5CneZt3bIwgOsG
2QbmAqlYHWKzI1yoE8uS9L9SLlARsadHzj9hCHIp6j7WbTOQyrc1e3FtlqSU
ya7ZQP+Fivp1hd4D2Wh7F5LdcqMQaay5livXPuCQ2orcZ/J/4X56X1jiqkYs
29vQl/M3B8HNC4OB+slYptVqkLbyA9zUusv+eedDtdBk8nBbCDFSvvfLizZM
3vOnr/BgpBO59vc0i9oYmN+u1Bl+U40uq01NXte6EfmR86HLN/Yc0RdCv7/X
McgDn6xjEqsbwDDILHT0bUUNbbvK2Su9MCk/eEJBmwrBnLYPZhNF8HlkvdH5
v37I1FPv/NGfJh2eZ+nMf9mQ32DMB8duVPFkKdGYHXAMztdOPEJDzeodfFEm
XVBYXyF+r+gPsXT2lH0d3wPZ1wZnN11Jx1Wahvv31xEQtrB4w1vEQA6rlFeD
wcKG2caQk6Es7M38mbt9TR7kC4K+3H3DhN6RnkENLSq2K+54n+06TkbbKi++
OVaJ5b94Ey9Q35GYhuFbp8ryYElf+Si3qRc08MWLGA/hie1jKR2HGfI0Rvs/
lxvvyGfhvCMRnwcRsWOdwMa7FcjYo1PsL8lA3YNPPC+PUfDtsmdiT+4fskr4
+rKFbx7EXWR1GeN2AnyEzF8FDFLR4f/uWaB9FYKPff/h8ywLepn3z6d01mND
UpK1PEcPEdJL3tCWEEpOjTY66XxuRMk9mVtnZFiYNDW/Zz/bBdV/jj9UTSvI
+pc/zESY88RWoTZNYUUvGp7OOOyIpSFZU+r6yyPNmI5tquSzYMFVhcvjzd8o
wjnb/+TipzHSFS9k0Yxu7Dji1P5DrBrUasNLnV9omHaolS66Sscqw19H99Fm
Ce+H/RLevyaJmkzzFyXbCmz/9DVv+zQdbiWN5XuX14H+autWEbMOvKZ2FijL
seVst37ECq0sJiHX884ntbWTz+Irl+SXZ+CpG99ZpZX5aDq7avqahzskPoie
3tvcCe4p91m7QCoOS2Ul9A044xDHjNgXhVL0iG5+tmWUBRrVk6tvPRVpB2We
qHj3g29y9emjhjOE1fN3qZZRI65LrjjL3liL66qtS1J/9oJ9oIBxdXUaPqoz
jTtLiomB7+nPuvQhdPgtX6WuMoCtVk4uuYFDEByg/LWRacJzbmsXllA10uWo
X+jlfuS+9r1h18QeoqXaf+XjuTliPnqbllFZBc8Xp2tXReRAkS4XeSGuD6rG
o8438u7gc6CzreXOGeLmNX661SadaBRM5ZXe6sNWh6bSgLxuRMzIdv5HGYDL
XQ2edDsq9sL0ue2hTHxmk14Y3vMJD8z6b9RzsCD2Q8OsUKQcTWkye8V061By
VHqIj0onypte3ufazyCauyJk9m+qxaTcHb+//SWwetk65ytbA4P3vhO9S0rw
0PrcxRuyw+Acba0NZqeShxr/+R4O4Mzh6935x2+0G6JuO+N42v+A76pLgNb7
DlRuWNv2S/w3WWJ1Xv+GGodqJWv9O6bICHz8d5+kNHRj9k3ls9OPWqG8gf1d
VXEp9Ce0Fem7G4m7R8K26uSPpFjyS2/7cDp5mrJBwtazH7Sbbh937u1AtUP8
qYorQ2jlZ8bIJBbBT3xKj2Y6hvNN6mF42kp4xM6V9o2wUHK3+ubSHTXQzBr9
sFyeAhGOzTr2dp04NJHGcejgJK42pOrS3KagY7OGsu9dPgw01Ng9hChQZhct
WrGHigvB9tdVjo8R3vC2+IWKPqRHVjYHaFaThUuZFvu+0bBHx2PuXcN7DPN5
Dx5IKMWfgUQ7HsEKwmVg3SG7sx+SnhTNWmMquSHlTta87MFCboCVzrYerKBO
/IzNb8fSi1KpVLMFrKS5CYQqUDE62Ug54TaKBf2/3NqrWKgn65g0sQFUCGcK
+JIq+Oj6qOhPtRK3l/47d3JSybXl96VP1zCJs/qvPbjXBz4bl0uXOYcxXPvj
Z8SOOpgyLwU/3VCOVSF97IXXuVT1y71X8zz6Qebz/cQF3rXjaZH0YYkTLMyR
U0U/WtoRZaf6d2TKhzCHOb5v+dqPgci0Yv7cCqKsoshxYJgCh2CT2LdNzdDd
ujolLqIFcVltfAc3/CUtV39FUibykWZfFvCvbQorWgIqXwQWIruszG7w1wBW
/xzUlPNmISnJ9yPrcB1Juf5SKYqbSpxFf/uE7+olYupbTb7atcPxXpL/tHwC
ok9O5gkWDEB4gX8zry+dsJR1l73InyWJ71JudJ2bBTW3SedgeyHEQm3P2/d0
wepIzlvZaw2Y4hLOdVnxh7y3EL982o+JU7yGS24K9SAw0iTxhvUAIvX1rkau
6wMjT04p40ktXqd40P+2dpLmKz+37iktwBqB14Ue5sWkpGfNFcOsHlyUErqT
vq4Bt1OKC+0GB+Do/k/oh/cUuSI85bWlqxfy3w4SzuAJMr6EIfX8ZT32Ws5N
bW1tg92FpnWpYVQce+FZO2lWBp/de3PFFvMvVFwZ8dujHcI5xp7LrlNh9C3n
zrfZdCwwlmokxyVi+QmKpNyrXjLPI+eTINCL4eQpQRWrGuwSSapXe1KBTSo3
rvWUF+H67sHDLvoFuNtrcW7owyS571jAqZY6TVLkZqxCKoah6cDP23YnDzFC
3KPnRnvgZtHYctO0Bqq0xql7lQRHKJz6j++PQSlkt/OawA5yzf5qjq1FBzSf
LfhnlffDOfTNrT8jHYhWWVfBk0MhUtkRa0ZtesAz0xp3pLGLFGgtMVdkb4Ib
707xWP/Ffvc9afC3gwF7v4Ulz3ZmQyfdesv+gzRUCZ4+qRTPIooPz3u9q+9F
QVqrZm9ZPczZQpsCWptxal/c54L/ykmMvMqlk+5TRKoiXlXKnBBZm6OeUUH9
uFJwf1/p1cVzOnx5fJz6Md4pOfrXKJBcvBGosIx9CrsvDnyKShrB0pOC/eIP
h5Cf9jxfVagJGgcnnAQ8W/D2GXWlgzGLDB2KXqHTuVTVr4ZN4BGrHLqXNjeO
y/fD6rYe7YhxL158LPv9LY6FgMb+vY+9W4n+ikHFSmEakTt+cuMjSh3a5lV3
CEh1oo69rDbMoBTRX9cbGggVwkNeczYvc5bsWM8jQTvAhNrXUaHzGd1kXFlj
a4RuIfZ7br0oc2UAfB/l16aupUDgiJJl5n9fyGhNuMlTrx4cvZju8U+yieQt
XI3f8bkOK0TfLFnPP4SGM1s/mij3wtrh5DUbq1HSrjJqqDtLxSFF68OuJ/5h
3vce51WpKrz6o3Zc9l8LEvSnlHqravDk7P4W03vD5OetLImImzWoTk2Y2mjC
gk3L5+CigTr4hIbHqLBREXB8m1z6SwaKxTudBN84wz3Zw1bcqhpJ9SfP0da2
oGKI2zvKoAzB12LqnUIG0FZmvDNJvBp2bxSefTSPQOd1+aT08HS4Hui756c4
juBAbzc//W+IPKOzNhX9ULA80V+aOoCOwGi1obOVaFCg8qlas+UYmd8u32XT
TS7uzFfRet0H+T0/PMXbarAytjn4/A0qMtuXno6614ya14bKN1rGSdSJ265Z
R2dhsOa/8LMuvZA+84YrNr4GiooXMvTya5DZNPT0YwINwfeO7AzonIemGUUn
eyYJyfuogWk0Fqzeuy6tSaTAmfKP8XpdPxrt/9n9iWyGCPfH39vgQ6oFDV0d
F+9j1yRtHjhKx/TM2kmjnwzEvNq8nHEhHczK/tyeb9WkJiUxrWt0hEjctDnV
c7kemss1RrdILeqIBs9acV8KGPKZHtbVFOhHm6o8XuiG2Muy8MNbGJi/47JU
IOg3lAtZCjfyqhGTNt9jKBEOqz8+qUHug1ipVZv8VKEH36wvbBSSL8T1cYXp
b/7dSOY9GiOxyC3udx5f2mBfiwA3HQ6vr90Ybfyb7LjsHzx6DPMOfWoE+2qJ
Pa8WuYpn9yfXgMYuaF6uj1TwSkeqgVKrFmc+LJP+/TerGEt6U15EjYRPomxX
/kireDP0pk76qZsPQFoutvr7x0G4Ho2/a5jShllPqmNO0DwKlhl6pNaWkxA/
/8AzcpmQLZw7nYJBFC3MHmO9qYfIgfP7TadY8FJ4urPDgo7cHTKPWwJqyJvq
CR3/TBaRio1JCRkgUFTZcjj1Zj3qxI3Zqr0LoXtn3affq1uJs8TxZbHfeuCz
cOq5fcY0oRaFfjquyYL7/tNNy9kHQF35euS6Jw1hMo2eC+tmsE3MYPuE0zzM
tM85B5TVEOVxm5CPPTQYqVXp/vIvQNPe3SZj+yJgtqy5gbdyltD09iWeeDlI
BkzkkslsPxyj/T6p99Lg7yRx47VoLw7u7fEJ/cUApevnWYx0EKPH+c2sFUMo
VNC9uza6HjbrBFeZijJh/fSN8fSLQvg7jwusaxxAyrXQOruSGTJyPbPzwdEG
Ym6yVivYdRxL5MV68yR+Iqih6UkEswe7dFY/47JLQcvdBxtUJOth+Tb9cIof
BU2MpDj/bePk5f6QJRJ6TdiffgT9A3RErL1s9PlWK2wiw/qWViSB0llRcyWh
j3SBze/JhVacunfuKk9NMkwffoy1WNzftLXuQtxIKB5I8d77ITONUqnSnOTe
ESS99hdXrZmE+paXqblm/WjKZtWsK61Bc+6ehO0P6nBD5Dn/nV4mdCZ+UU31
mWRJ2HSF/uK7VsS/e++EfGytO2c3XFiCT0f2Uy7O1+CM5/W5jNFWbEpc5Wj4
oJ18HGZbZTuRC1aadmjTr0GcnPnzVbT6zSKHhv8xe1gJ/pmKQ2X+9URSZNuk
GqmGZLrcI8a6aFScmTn6nuM76tgynme4tCD4gITf/jPFeMxIqVKQTYUu1/UR
1Ylm3HhtsMOPmYAOpRc71le0INufnpVe3ASdqFW2htV9OD3WoBHW1obbX98m
7o3twXb3BwEfbLqx4iTn+rKYHMyeMNAbQgGMx7NunQoqhVDwfR7Z6jly8VUc
766iGvSNrGpg154gzrNKPVECLDBEH6VtNlz0GXFRZ2VXVMFP2OCcXXABXJcd
YlR8HSHeXzkde3MZEOlr5ntZXwWXO/syGk4wcFbFdX+uzSDsTVOG7RJrycTM
qFid7TRU5u3ZFh6Oktm8uZOxr+lg6XdkPtClYWXOhQZVLPIfTZf2UXSejFyz
VzAdrkbwYYqBXNIE3Nu9WFske6EYEDL3NqMLrkqpzenhVDg+YUwMB7Dn9HdN
/NCVq8KBe4cK5XS6YLPw7K4kycJKjegY+28MBJsWvNCVGUBczLa3zzf8Iblm
Pky2pVmoijK0XsXZACdDbZcXXiz4hMVsM9WmY8VQZbvszQZErnNY02fPIG7Z
9ToH1BsQqC58tNN7kuzuXHHlHaUVISqR1fciqyDQYVpdsdiXF285CAoFsMjC
H8esw+trcbLHS8YhrwbRs0Eap/a+xWxyRzglhI4Q7ZhRRe4ufHlvbdGTQyNp
Wn9uKH/mzLlypfa/66WLuvfogs2egg4cXG23pjyoBx2OFE1Vai1Ot/Ebxe1Z
IGVs9xSqFudl3X5JeQOubjztXhru+4CCMpvpltATVUj3Fh2+yleOue19pTv3
LvrQSnLZoyAc4pfkpk+V0rH/fvKCyAsaVNWzPLXU6RDw3lg8ZJsHzr1Euexv
F4S2a3qt6C7F2uj7WX9C8snu5OFivciHkCrPjy4WYUDQU81ud94A/NZX/Pyq
3U+E10sN/+GdIssuHZLME2kmTzeKHtg5XIbEDSKq1kaL/c5xg197dw8uyeYr
T7ylocchrMxzcQ5v8Rh5GNiWTg5e5y7nW/YbOorPKxUEG+Gfd2Tm1rEatHja
rM0SnYHh7Ho3VusoYSs7YDs/NglqTfWSt8mLfiPo99GNlE7U0HdQvLYyoRvm
qfBZhE0159DdwiN6Pfjv1HaelT0ESx++cI+RDgGLnefN/oJBbDF7Z1J2oReS
ulvKiggNbVPJEWfejoJP++2dsPZmKI/l8x8dHoTejhSdLz5d0Npkw7BbWQcx
o0pzrwdzZF9Akc5lxTbyV1G2kfajBBx67mED+o14etOsQjC6BtuFxKfk1b+A
z9jw17mKMHAPd4Yp7KjAw45/s2KsJgjTFSlpYi3Q6r53ylEiEU4Hv68efPwO
F3x5RF1GF8hs97EXAbLFhOZJu514ooEUfftQ+i26GzscRX6Jh+Uiw6vvoYYR
ExWZyp3rHashZL/bVz6vkFinFL3cKDKFOb8wiZ9jFBjVuhtMdi/6o6PhJjyv
mDAWnh4veDAMm4iRy5bP5jB0TuPIrlkK+fZIfYzzbDeG/yv1oYaG4uvlDMVr
QW1IMGOjyjhNgN2n5fC8+RgR1Q4KpLWMEYmFJV+FH7fDXt9g/xLeIITVd08K
vWFBoYJ8sJIcIV82myi43Cgm6SFxR7bfGSbO5yIHL3V8R/qrMfORO4PYOlrW
vmyuE5yqptr6Phw534MEAzJ0R8mdg+usflq2oG1kvUfFjVyE5WlUb2/uhuoD
2+0vDzYiOrbglzxnExTJmZoN8ktVm38yrJp15gmVceURx3w9Hm46dd2gqROy
suExEpr9uD9tlVJZ2Y8jqUK+tNMjZN9yAV7va1w52WpBoTmLumi9NGXp/btD
kF+12uawWS0SKlqG4yf/4VHEZe9rob9JuMQE88m5auh9uCjmuagrejS9h3zP
GKB9by2KTvqMqF3p3OH3OVUDQ4qnBqJ7MCbUqSGuP0DuClXe3a5DR0N1gXXC
6n64cJ4YPKvWBY+jvOYGchTENj6dv+s1izfPjXlYGn+RLNS3NtukFoX8790E
jnXgxbzH6PluOjrdXq06NT9KvO7MhDadp5KJucO/jhj+Q/q/SjW1Piaod+Mb
qwsbFufqyCsZ+XQUuJ3lm1Vqg0cMReag0h+iaRNy6XxfN5E1Oe61PoEF/wOV
N3cv8rwPv9WqtYtcdshko6FlyDTZz8P8ECfQBXtu74fy11JJPINrWZVtB+4W
P7BLksxATL1FhOQaOrQE09QTdWvJw/6JzIea07gvXxPBwewEw8j9ycZZBjZ5
cTT8NolGpnsO2/qV7bgfe1l9qWYPSkQH1dYcbQBvja/uOTM6SdawvsW5vAYs
RpztiEw/lG9dDN0RW4OFlmEdV5k+0la2reigejPJuLKc5M8zyHWJ4dftFwvh
cC6uVzWJgqANhmudF+vbkHNsSrV9jBw24fIee9hOVr+O/5m8Nod4np0701Dd
A3rauOLCjxhUfLPb4hTTB2rtoFvy8Uns2PKMnf9LC3ii1/4Vj/oDAZuviB4v
x4wo5dwMRys2NCz7axzdBUenA1+E3BvJlz+rInbJ04gqJe92HesfCWacbWsx
aERAtekd10Ud3x5++u+1O3347vXquHJoG3T2OUmNba7Hjx8X97UqUyCVqbv8
Si0d86XSm5YmV6FL69s272M0wHOZt6JuDjn+WMTbY36KfB8+wjt0tRepJ7zF
19XUQ1vi6oVjXkPI9hTlcztZhRrZmz0e2UGE1+j08/gtNNLbrjH/xnSC6Pp0
nfU/14fXlpHuR/7lY3vwtNm2VQMYVxFd8jCwh7CPD4uu7GWgT6nwXm9PH9kj
fXRhSX0XqAn9OXTRGqx4c9vCcWcL5LIUnxtuGyWWl4cMD9hkQexvbmbhxRF4
siufuFaTi7qwfQ6Ctp3w34xnbCdb0Zm28oiMPY3EF2uzS95qwIs70Z+D1lCJ
a5/Y7d/2PeB63qs1EsBEQBl14zGVXvz3dirn+O9c8kGQIhIxNksm7csgyd1C
YryPuaxgMPH7QvESE94BsNb/PBvN6kLpo9siVNteMnDp8wMqY450ce7auI6T
Ab2VNFnvDyXwbB68FHm4HxKrhNO+dHTiPX/FjzzlJsgXsNoz7/cQe4GTTsd/
fMeh8ZHKmew+jEdmOvJw0kHLtT1m8ykezfiwc4N1AeI/Bmdmd4/DI9zx+4bM
CVjuKXJ6K1GF68OPPv73tRGRAppBWtlMtApV6nXFUEnzb67sde+zyCFbidAm
6hBhpqgOLxWtQIHfptngm3S8umf022BTP95bmsnXyE1DZjD0fO7FKlSn/yjQ
E50gWgIKr9pe9mEP/27+d3ndMI7sqrH9zMQ92dotfxco5PGa62ODRdOkQG5P
6e6FHrIylOtohHofPr+o9DVnS4bd1TAliYxGnDmtcef99QGY7nk9VjI+grmT
xz/cHx8ns7ENme6O3XDZNf7HnfSgV6rzSUlpC0SbgsbixfKJ9GZ7PrVHfWQD
Xe9jduwCsRh6JLEjvANa/018786kIkhV1uqeRR3WzH0qTfJcolrZc7ehS6QG
7DPK3aY8vcSye2lbmjwDDmWrihtGmdC0kL5sItODqUnp7NZFXmVq++9d7uxC
iABl1XKVAlLQv0dsvnjxP2zupX6iZ6CELblhJW8D7HTH6dz3B7FTVddrkqcG
739mbglK6SD/5N5dd5/LR0Es+ztmTTc8VcTXUVQa4GB7bPhW7wRZsfdRc2kX
lXxYZuZSYttG7CytHnkkfgObS7R70s5MmLbwi3Ns7sCZMhMxgaAaYl+sHkQv
LSaULHXfOu9SUnT1A23J837UhDxfejOXCTHjfFGYMbDugYfSgeAZ8un0E3dt
1VGib2F0W3C0Gqwt5WevlVfB1FpFwIKjBtnyX1IedKYhrFZSseMBlTws7c+u
X51BIhakacd/MJApx3zuG54DvRsFwsbdTLwIXRMc5TCA3q3OGppCraTNgntK
QWcOUtIXmCGcTcSg0kHNqa0PbalPZrhODcHzeIXZtV1MSIva3Y0oZoE6aEUv
/0WDuP/ymJWZucT8Z4jFIxE6Eh84m4sLtaCmmLHGNzcfO2Y0bynsmSCNSzr2
zE8u5smOLuS5cQQOz/05T7AGUFW2UbDXpg8HmdSIVGMWviVIqkck08loVYwL
JW4UMn+VW2N3jmP0wLd3SkZDmPzlN2EePYSDDna6ifl1MOa1OKin9Z1s2lzi
U3KVDtfn9ivcno+A4STik7KKDuvbJdRzRxd96u4cvgvFfXgcfOfKnTQq5FQz
fF+GNmP+X+P7zp8dGKzYaU7nHcIwx8Yzjl+aYOnw5DfbxgpIHxSvHlUcQ8rW
ybxPW+qRPs693DCiisR8q172dgcVJ6LCp0bO5KCEIfzaJLMBF0p1dnft5FTV
Mdnjn7TIs8lK2w/+11kN5wWrdZvbGYhj8xTifF0Niex55uTaIUx8YA9f9bmX
7Mhi47o/3gXeJwqSe7lyiOO/FDaSV4uwYxl7amWT4PjzW+Wv0XqspTg5fnRY
IJ9lqAGFcvVEh2pzsev+BDJ0qxJGPw3CwWf7+7MtLIR5Gvkna/Vj/2HLhOzl
Hei8sf8t98c6Yq1OCdxjHYFKe0UeXUYXOHp/GxVuqMUH127/CxW9KC1JW12e
0gXTUzZ8LoZ/SL8Tk/fpdvYc5/uDvZvlemDwl/+IbNhd6H0L+1hC6YZORmnM
VCKV5Ja2npHaM0Si+ZX6XbV+EOen0TIXs5oxaHmM+/eGPmRecH5lrtsNs33u
D8+zs+UIrz8v7bKngdx67Pv64MtJHLDeL14W1YhUL1dpn3N1UD+5hnXJiI4W
m0ntq3unUBG/TEB95QCZHNKnndn9jsStjM/4vsgjIZNv/53TrkWtd2T+Sq5F
3kpWlzuTx6V6jFZfNBk0Cm7jKw2Bx6cQcaPL//rtOoQbNVo+Xx0D5TU/xT8b
UfDsr5yA14Uhwnr4bTPj2hiUu9Y+iqdQyFOlh3u1uGjocG1Z+TuiEcYmBYVT
jvEI2vv4d5pzDi4OSRwp0p6C+swDFt+5WSLotj4D+5uwejnLQ8GwFBEKty+/
lKbjUkySfv/NeRzfMLJacFFvlti4PRWmj0P2+VRAiCsFPlO7pXeHdELmmjjj
unjXoj8PfCj/oxdPbj67Iv6sAkm7jnIWU0dQ8dQkV3iiBe5bD97itq6HEdtI
jlpIHV5yc8hK8UfghKBHAdk8ieZaScuCxG5oDtSLNpZSEf9h7cUraTXg2np8
m4cCEzc9Bnk4MY2Q8cHPKfGjsKI1eFgKZuKBpCjjyGgf7ChCe/0KcrDbnkf4
gmgcBNm28XlcKSDh761TbRW7yLDtwImchzSSc3B1YPdjJooOEBWmCh1V9VfY
qqqrMPHXgk1Rn44c5fPCaXqlWH5fdtkelXo0JGcIm53tgSI1/MHBCiYc/X1v
dMkS6Lhp97HNzpKHQS0Q+T1HdLgenBld2U3qVG5u2ZTRj+44yR9W0gVQnct+
cEKOiXrxt5Uc996TjHwlXrrzCATf8e0+xl8K+TsntOwYzfD8Erx13z4K9osr
fLXXKcesqsuYnFENkeR6s455qwtLlju5c57OJapWqz49vPodrcy708cFaGBs
klxn3+8Bvaq63DtcVfDd7NfPFTwEXaej9ZZFTFJ6VfOqDz8Ff6Q9K9miOuEd
cTtWODMVHUXEaFswDUrvphsSHvUS0xyewQqzKRwz87LISqfhpWWs/ZtFfugK
/L3mVWLWom/scHPjKkbeG/bfarJ0KFo8u2FekEPmJf7wH3HtQ6VkTNBPmw6Y
PqYJlt6hQmlkt9LBxAmcPBF5cah+jNxi6KqGuk0g3TM0+fHaPNwerT1SZ5mK
ZTZZUz1bI1BiO+26VO0XVm97fivKqBMn9flr9GR+YfvzxmNqfv0wuuN7P+Zw
DUY7OzgqW1vwvDaUv1isHoquez943aPCxuqVubTrAEwSzYTFO3IR+cNFquZ+
GKhv2ZdE5dCgPF5Z/yi7DhGHhpSW6Lbg3D39E40GbDlC5X4h+fJRyEzfX0U7
WI/k16tTJmySkatR8H1pZiOhHIo1KtamQFTiJndbZRge+Hlwny7Pw3ep9j8J
IjRoxSRqO3i2QJ/93f6jYokQO9+oUerUQ8JaSp/SqYMwgYqzMS0d8QZDDr86
KeAL3da30bwB2h+K3u5srCXZ7lqaApJMjBU/Geuxe0c6XbqiYrYN4PZ8faiq
eQfGx15zNNv2Y+ZsUrjD5DDhbeMw7r3ZSSJK3PaucJnEgvQ2tUsTTJgu591X
scg/fpuu8W5a5P/pb6UV7RzD8FMqePY4tZusdRTZerOvD7GmU+U6W4bAUGXX
HByoQvaazLeuzGpsGPrhWzdVQD4WMRG5vgkLozbxnrpfyfXJ6ZCAQ4OI74z2
pPPU4Vgmq0R2IBJJdWoVgRiA/vs1PPQzbKo/3+ifNGSnkJMlZsR6RQYc6otE
x5cVoaHQqfONdQeiPO7wG8vPwbtLOJN+/xfkl9da3ValQ0rjsn1UURdYyrl3
65Pz0OAz9Z1xjArlo2OUhfpuIqbau0WZVYABww3Vyf+GMVuh7cnxvRFbudIj
XbmYsOR69Oba8j74NfHHhyp3k+SdcvXbxNhUl/5wYBYkjBGdwPGkjQFdKBdN
jP15fgglEUbvuNXy0cY4lGovO4XY1Re1lsdPksq1V1la1VyqdysWbly1pUBR
6/MJk6392OIvzXVVkwZ17u4Dzunz5D2i5NvK83EUDn6bPtBh1DrUK8XeD4Fv
FnFtJW0oizLXaj88iCvF9paX+X7g73sZZbWqObL/vSJFUmwWXIp9724+H4CP
yvOEIbMhqFitv60VFYOLfPqTetQ28jnQ7PRTnzyS9vi8VoZoHpH4EmnC8a8L
BeYW9764M7FdaurTO0UK3FqGjVq4+7DJv2Ou4SadVNWb02ov9yPg5yuK39si
WP483q0f+BwXfT7uWrVmkf+P2w9QlVsQlHAuTNWPQs5xpTfqNbSQB9l6JdXr
2jC/7stuEeke7Gc7OGfxaFGXGSmhdw/MwEfpZLRXN69qSlNT3RrndnLX69on
gT+92MgTu2n+IwvGfTZ5ds01yHzc3mlrP0uuxqlOBeqyiMPsAZOrl6aJc6m2
gJxvDQzXUjUun07C6jNOkmniBJ5X1bizJgYwXdnyWeVAG/iLX9ntHaolInXu
X3/u6cPaAuG7pxszkR0xYiVj3Ikm597MIt4BwljzVkhachIKib7FJ25P43/l
rpnn
       "]}, {{}}}, {{
       Hold[$CellContext`temperature$$], 273, "temperature (Kelvin)"}, 0, 
      600}}, Typeset`size$$ = {500., {230., 235.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`atoms$526292$$ = 
    False, $CellContext`temperature$526293$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`atoms$$ = CompressedData["
1:eJwVl2k0FV4Xxk2l6F+UkFKmUikaUJQeJBVSmZKQSqWSBkOKJBVKCgmJooQU
mUk45qnM8+xe93Jd1zwP6fV+2GudD2eddc7eZz/794hfvKV3mZONja1kMTgW
4//r9wmmPgr7hrA1K8Un/DgVb/LTjqrH0fCkevlX7uetZND+yf64TTnYaz1a
Oew+AWFW2dy+DyXI4K4LCeb7hZV9tiafXftxz37XfyqWqcielq9L0WiBVU3r
ZdOwHrI5g5vWav0JPE5LA/p+FOLzq7AKq5ocfJjf8VqQVohH4MzrWugkI0eN
pj587YPsQFyweCYdRiVq1geSmlExjXjtwGosHEidN9w7Q7I3fHQwoXaiMGGu
53x3C4kz01cWt21Bic6dmyOK3WAOJ513iCvEb8dMvxMfJ4m9dtBbh7oZUlWe
7OIr0UWiS/qMI0pZ6Ox8efSXXSb81vHvmNDuxQYnhrbgyg5CneZt3bIwgOsG
2QbmAqlYHWKzI1yoE8uS9L9SLlARsadHzj9hCHIp6j7WbTOQyrc1e3FtlqSU
ya7ZQP+Fivp1hd4D2Wh7F5LdcqMQaay5livXPuCQ2orcZ/J/4X56X1jiqkYs
29vQl/M3B8HNC4OB+slYptVqkLbyA9zUusv+eedDtdBk8nBbCDFSvvfLizZM
3vOnr/BgpBO59vc0i9oYmN+u1Bl+U40uq01NXte6EfmR86HLN/Yc0RdCv7/X
McgDn6xjEqsbwDDILHT0bUUNbbvK2Su9MCk/eEJBmwrBnLYPZhNF8HlkvdH5
v37I1FPv/NGfJh2eZ+nMf9mQ32DMB8duVPFkKdGYHXAMztdOPEJDzeodfFEm
XVBYXyF+r+gPsXT2lH0d3wPZ1wZnN11Jx1Wahvv31xEQtrB4w1vEQA6rlFeD
wcKG2caQk6Es7M38mbt9TR7kC4K+3H3DhN6RnkENLSq2K+54n+06TkbbKi++
OVaJ5b94Ey9Q35GYhuFbp8ryYElf+Si3qRc08MWLGA/hie1jKR2HGfI0Rvs/
lxvvyGfhvCMRnwcRsWOdwMa7FcjYo1PsL8lA3YNPPC+PUfDtsmdiT+4fskr4
+rKFbx7EXWR1GeN2AnyEzF8FDFLR4f/uWaB9FYKPff/h8ywLepn3z6d01mND
UpK1PEcPEdJL3tCWEEpOjTY66XxuRMk9mVtnZFiYNDW/Zz/bBdV/jj9UTSvI
+pc/zESY88RWoTZNYUUvGp7OOOyIpSFZU+r6yyPNmI5tquSzYMFVhcvjzd8o
wjnb/+TipzHSFS9k0Yxu7Dji1P5DrBrUasNLnV9omHaolS66Sscqw19H99Fm
Ce+H/RLevyaJmkzzFyXbCmz/9DVv+zQdbiWN5XuX14H+autWEbMOvKZ2FijL
seVst37ECq0sJiHX884ntbWTz+Irl+SXZ+CpG99ZpZX5aDq7avqahzskPoie
3tvcCe4p91m7QCoOS2Ul9A044xDHjNgXhVL0iG5+tmWUBRrVk6tvPRVpB2We
qHj3g29y9emjhjOE1fN3qZZRI65LrjjL3liL66qtS1J/9oJ9oIBxdXUaPqoz
jTtLiomB7+nPuvQhdPgtX6WuMoCtVk4uuYFDEByg/LWRacJzbmsXllA10uWo
X+jlfuS+9r1h18QeoqXaf+XjuTliPnqbllFZBc8Xp2tXReRAkS4XeSGuD6rG
o8438u7gc6CzreXOGeLmNX661SadaBRM5ZXe6sNWh6bSgLxuRMzIdv5HGYDL
XQ2edDsq9sL0ue2hTHxmk14Y3vMJD8z6b9RzsCD2Q8OsUKQcTWkye8V061By
VHqIj0onypte3ufazyCauyJk9m+qxaTcHb+//SWwetk65ytbA4P3vhO9S0rw
0PrcxRuyw+Acba0NZqeShxr/+R4O4Mzh6935x2+0G6JuO+N42v+A76pLgNb7
DlRuWNv2S/w3WWJ1Xv+GGodqJWv9O6bICHz8d5+kNHRj9k3ls9OPWqG8gf1d
VXEp9Ce0Fem7G4m7R8K26uSPpFjyS2/7cDp5mrJBwtazH7Sbbh937u1AtUP8
qYorQ2jlZ8bIJBbBT3xKj2Y6hvNN6mF42kp4xM6V9o2wUHK3+ubSHTXQzBr9
sFyeAhGOzTr2dp04NJHGcejgJK42pOrS3KagY7OGsu9dPgw01Ng9hChQZhct
WrGHigvB9tdVjo8R3vC2+IWKPqRHVjYHaFaThUuZFvu+0bBHx2PuXcN7DPN5
Dx5IKMWfgUQ7HsEKwmVg3SG7sx+SnhTNWmMquSHlTta87MFCboCVzrYerKBO
/IzNb8fSi1KpVLMFrKS5CYQqUDE62Ug54TaKBf2/3NqrWKgn65g0sQFUCGcK
+JIq+Oj6qOhPtRK3l/47d3JSybXl96VP1zCJs/qvPbjXBz4bl0uXOYcxXPvj
Z8SOOpgyLwU/3VCOVSF97IXXuVT1y71X8zz6Qebz/cQF3rXjaZH0YYkTLMyR
U0U/WtoRZaf6d2TKhzCHOb5v+dqPgci0Yv7cCqKsoshxYJgCh2CT2LdNzdDd
ujolLqIFcVltfAc3/CUtV39FUibykWZfFvCvbQorWgIqXwQWIruszG7w1wBW
/xzUlPNmISnJ9yPrcB1Juf5SKYqbSpxFf/uE7+olYupbTb7atcPxXpL/tHwC
ok9O5gkWDEB4gX8zry+dsJR1l73InyWJ71JudJ2bBTW3SedgeyHEQm3P2/d0
wepIzlvZaw2Y4hLOdVnxh7y3EL982o+JU7yGS24K9SAw0iTxhvUAIvX1rkau
6wMjT04p40ktXqd40P+2dpLmKz+37iktwBqB14Ue5sWkpGfNFcOsHlyUErqT
vq4Bt1OKC+0GB+Do/k/oh/cUuSI85bWlqxfy3w4SzuAJMr6EIfX8ZT32Ws5N
bW1tg92FpnWpYVQce+FZO2lWBp/de3PFFvMvVFwZ8dujHcI5xp7LrlNh9C3n
zrfZdCwwlmokxyVi+QmKpNyrXjLPI+eTINCL4eQpQRWrGuwSSapXe1KBTSo3
rvWUF+H67sHDLvoFuNtrcW7owyS571jAqZY6TVLkZqxCKoah6cDP23YnDzFC
3KPnRnvgZtHYctO0Bqq0xql7lQRHKJz6j++PQSlkt/OawA5yzf5qjq1FBzSf
LfhnlffDOfTNrT8jHYhWWVfBk0MhUtkRa0ZtesAz0xp3pLGLFGgtMVdkb4Ib
707xWP/Ffvc9afC3gwF7v4Ulz3ZmQyfdesv+gzRUCZ4+qRTPIooPz3u9q+9F
QVqrZm9ZPczZQpsCWptxal/c54L/ykmMvMqlk+5TRKoiXlXKnBBZm6OeUUH9
uFJwf1/p1cVzOnx5fJz6Md4pOfrXKJBcvBGosIx9CrsvDnyKShrB0pOC/eIP
h5Cf9jxfVagJGgcnnAQ8W/D2GXWlgzGLDB2KXqHTuVTVr4ZN4BGrHLqXNjeO
y/fD6rYe7YhxL158LPv9LY6FgMb+vY+9W4n+ikHFSmEakTt+cuMjSh3a5lV3
CEh1oo69rDbMoBTRX9cbGggVwkNeczYvc5bsWM8jQTvAhNrXUaHzGd1kXFlj
a4RuIfZ7br0oc2UAfB/l16aupUDgiJJl5n9fyGhNuMlTrx4cvZju8U+yieQt
XI3f8bkOK0TfLFnPP4SGM1s/mij3wtrh5DUbq1HSrjJqqDtLxSFF68OuJ/5h
3vce51WpKrz6o3Zc9l8LEvSnlHqravDk7P4W03vD5OetLImImzWoTk2Y2mjC
gk3L5+CigTr4hIbHqLBREXB8m1z6SwaKxTudBN84wz3Zw1bcqhpJ9SfP0da2
oGKI2zvKoAzB12LqnUIG0FZmvDNJvBp2bxSefTSPQOd1+aT08HS4Hui756c4
juBAbzc//W+IPKOzNhX9ULA80V+aOoCOwGi1obOVaFCg8qlas+UYmd8u32XT
TS7uzFfRet0H+T0/PMXbarAytjn4/A0qMtuXno6614ya14bKN1rGSdSJ265Z
R2dhsOa/8LMuvZA+84YrNr4GiooXMvTya5DZNPT0YwINwfeO7AzonIemGUUn
eyYJyfuogWk0Fqzeuy6tSaTAmfKP8XpdPxrt/9n9iWyGCPfH39vgQ6oFDV0d
F+9j1yRtHjhKx/TM2kmjnwzEvNq8nHEhHczK/tyeb9WkJiUxrWt0hEjctDnV
c7kemss1RrdILeqIBs9acV8KGPKZHtbVFOhHm6o8XuiG2Muy8MNbGJi/47JU
IOg3lAtZCjfyqhGTNt9jKBEOqz8+qUHug1ipVZv8VKEH36wvbBSSL8T1cYXp
b/7dSOY9GiOxyC3udx5f2mBfiwA3HQ6vr90Ybfyb7LjsHzx6DPMOfWoE+2qJ
Pa8WuYpn9yfXgMYuaF6uj1TwSkeqgVKrFmc+LJP+/TerGEt6U15EjYRPomxX
/kireDP0pk76qZsPQFoutvr7x0G4Ho2/a5jShllPqmNO0DwKlhl6pNaWkxA/
/8AzcpmQLZw7nYJBFC3MHmO9qYfIgfP7TadY8FJ4urPDgo7cHTKPWwJqyJvq
CR3/TBaRio1JCRkgUFTZcjj1Zj3qxI3Zqr0LoXtn3affq1uJs8TxZbHfeuCz
cOq5fcY0oRaFfjquyYL7/tNNy9kHQF35euS6Jw1hMo2eC+tmsE3MYPuE0zzM
tM85B5TVEOVxm5CPPTQYqVXp/vIvQNPe3SZj+yJgtqy5gbdyltD09iWeeDlI
BkzkkslsPxyj/T6p99Lg7yRx47VoLw7u7fEJ/cUApevnWYx0EKPH+c2sFUMo
VNC9uza6HjbrBFeZijJh/fSN8fSLQvg7jwusaxxAyrXQOruSGTJyPbPzwdEG
Ym6yVivYdRxL5MV68yR+Iqih6UkEswe7dFY/47JLQcvdBxtUJOth+Tb9cIof
BU2MpDj/bePk5f6QJRJ6TdiffgT9A3RErL1s9PlWK2wiw/qWViSB0llRcyWh
j3SBze/JhVacunfuKk9NMkwffoy1WNzftLXuQtxIKB5I8d77ITONUqnSnOTe
ESS99hdXrZmE+paXqblm/WjKZtWsK61Bc+6ehO0P6nBD5Dn/nV4mdCZ+UU31
mWRJ2HSF/uK7VsS/e++EfGytO2c3XFiCT0f2Uy7O1+CM5/W5jNFWbEpc5Wj4
oJ18HGZbZTuRC1aadmjTr0GcnPnzVbT6zSKHhv8xe1gJ/pmKQ2X+9URSZNuk
GqmGZLrcI8a6aFScmTn6nuM76tgynme4tCD4gITf/jPFeMxIqVKQTYUu1/UR
1Ylm3HhtsMOPmYAOpRc71le0INufnpVe3ASdqFW2htV9OD3WoBHW1obbX98m
7o3twXb3BwEfbLqx4iTn+rKYHMyeMNAbQgGMx7NunQoqhVDwfR7Z6jly8VUc
766iGvSNrGpg154gzrNKPVECLDBEH6VtNlz0GXFRZ2VXVMFP2OCcXXABXJcd
YlR8HSHeXzkde3MZEOlr5ntZXwWXO/syGk4wcFbFdX+uzSDsTVOG7RJrycTM
qFid7TRU5u3ZFh6Oktm8uZOxr+lg6XdkPtClYWXOhQZVLPIfTZf2UXSejFyz
VzAdrkbwYYqBXNIE3Nu9WFske6EYEDL3NqMLrkqpzenhVDg+YUwMB7Dn9HdN
/NCVq8KBe4cK5XS6YLPw7K4kycJKjegY+28MBJsWvNCVGUBczLa3zzf8Iblm
Pky2pVmoijK0XsXZACdDbZcXXiz4hMVsM9WmY8VQZbvszQZErnNY02fPIG7Z
9ToH1BsQqC58tNN7kuzuXHHlHaUVISqR1fciqyDQYVpdsdiXF285CAoFsMjC
H8esw+trcbLHS8YhrwbRs0Eap/a+xWxyRzglhI4Q7ZhRRe4ufHlvbdGTQyNp
Wn9uKH/mzLlypfa/66WLuvfogs2egg4cXG23pjyoBx2OFE1Vai1Ot/Ebxe1Z
IGVs9xSqFudl3X5JeQOubjztXhru+4CCMpvpltATVUj3Fh2+yleOue19pTv3
LvrQSnLZoyAc4pfkpk+V0rH/fvKCyAsaVNWzPLXU6RDw3lg8ZJsHzr1Euexv
F4S2a3qt6C7F2uj7WX9C8snu5OFivciHkCrPjy4WYUDQU81ud94A/NZX/Pyq
3U+E10sN/+GdIssuHZLME2kmTzeKHtg5XIbEDSKq1kaL/c5xg197dw8uyeYr
T7ylocchrMxzcQ5v8Rh5GNiWTg5e5y7nW/YbOorPKxUEG+Gfd2Tm1rEatHja
rM0SnYHh7Ho3VusoYSs7YDs/NglqTfWSt8mLfiPo99GNlE7U0HdQvLYyoRvm
qfBZhE0159DdwiN6Pfjv1HaelT0ESx++cI+RDgGLnefN/oJBbDF7Z1J2oReS
ulvKiggNbVPJEWfejoJP++2dsPZmKI/l8x8dHoTejhSdLz5d0Npkw7BbWQcx
o0pzrwdzZF9Akc5lxTbyV1G2kfajBBx67mED+o14etOsQjC6BtuFxKfk1b+A
z9jw17mKMHAPd4Yp7KjAw45/s2KsJgjTFSlpYi3Q6r53ylEiEU4Hv68efPwO
F3x5RF1GF8hs97EXAbLFhOZJu514ooEUfftQ+i26GzscRX6Jh+Uiw6vvoYYR
ExWZyp3rHashZL/bVz6vkFinFL3cKDKFOb8wiZ9jFBjVuhtMdi/6o6PhJjyv
mDAWnh4veDAMm4iRy5bP5jB0TuPIrlkK+fZIfYzzbDeG/yv1oYaG4uvlDMVr
QW1IMGOjyjhNgN2n5fC8+RgR1Q4KpLWMEYmFJV+FH7fDXt9g/xLeIITVd08K
vWFBoYJ8sJIcIV82myi43Cgm6SFxR7bfGSbO5yIHL3V8R/qrMfORO4PYOlrW
vmyuE5yqptr6Phw534MEAzJ0R8mdg+usflq2oG1kvUfFjVyE5WlUb2/uhuoD
2+0vDzYiOrbglzxnExTJmZoN8ktVm38yrJp15gmVceURx3w9Hm46dd2gqROy
suExEpr9uD9tlVJZ2Y8jqUK+tNMjZN9yAV7va1w52WpBoTmLumi9NGXp/btD
kF+12uawWS0SKlqG4yf/4VHEZe9rob9JuMQE88m5auh9uCjmuagrejS9h3zP
GKB9by2KTvqMqF3p3OH3OVUDQ4qnBqJ7MCbUqSGuP0DuClXe3a5DR0N1gXXC
6n64cJ4YPKvWBY+jvOYGchTENj6dv+s1izfPjXlYGn+RLNS3NtukFoX8790E
jnXgxbzH6PluOjrdXq06NT9KvO7MhDadp5KJucO/jhj+Q/q/SjW1Piaod+Mb
qwsbFufqyCsZ+XQUuJ3lm1Vqg0cMReag0h+iaRNy6XxfN5E1Oe61PoEF/wOV
N3cv8rwPv9WqtYtcdshko6FlyDTZz8P8ECfQBXtu74fy11JJPINrWZVtB+4W
P7BLksxATL1FhOQaOrQE09QTdWvJw/6JzIea07gvXxPBwewEw8j9ycZZBjZ5
cTT8NolGpnsO2/qV7bgfe1l9qWYPSkQH1dYcbQBvja/uOTM6SdawvsW5vAYs
RpztiEw/lG9dDN0RW4OFlmEdV5k+0la2reigejPJuLKc5M8zyHWJ4dftFwvh
cC6uVzWJgqANhmudF+vbkHNsSrV9jBw24fIee9hOVr+O/5m8Nod4np0701Dd
A3rauOLCjxhUfLPb4hTTB2rtoFvy8Uns2PKMnf9LC3ii1/4Vj/oDAZuviB4v
x4wo5dwMRys2NCz7axzdBUenA1+E3BvJlz+rInbJ04gqJe92HesfCWacbWsx
aERAtekd10Ud3x5++u+1O3347vXquHJoG3T2OUmNba7Hjx8X97UqUyCVqbv8
Si0d86XSm5YmV6FL69s272M0wHOZt6JuDjn+WMTbY36KfB8+wjt0tRepJ7zF
19XUQ1vi6oVjXkPI9hTlcztZhRrZmz0e2UGE1+j08/gtNNLbrjH/xnSC6Pp0
nfU/14fXlpHuR/7lY3vwtNm2VQMYVxFd8jCwh7CPD4uu7GWgT6nwXm9PH9kj
fXRhSX0XqAn9OXTRGqx4c9vCcWcL5LIUnxtuGyWWl4cMD9hkQexvbmbhxRF4
siufuFaTi7qwfQ6Ctp3w34xnbCdb0Zm28oiMPY3EF2uzS95qwIs70Z+D1lCJ
a5/Y7d/2PeB63qs1EsBEQBl14zGVXvz3dirn+O9c8kGQIhIxNksm7csgyd1C
YryPuaxgMPH7QvESE94BsNb/PBvN6kLpo9siVNteMnDp8wMqY450ce7auI6T
Ab2VNFnvDyXwbB68FHm4HxKrhNO+dHTiPX/FjzzlJsgXsNoz7/cQe4GTTsd/
fMeh8ZHKmew+jEdmOvJw0kHLtT1m8ykezfiwc4N1AeI/Bmdmd4/DI9zx+4bM
CVjuKXJ6K1GF68OPPv73tRGRAppBWtlMtApV6nXFUEnzb67sde+zyCFbidAm
6hBhpqgOLxWtQIHfptngm3S8umf022BTP95bmsnXyE1DZjD0fO7FKlSn/yjQ
E50gWgIKr9pe9mEP/27+d3ndMI7sqrH9zMQ92dotfxco5PGa62ODRdOkQG5P
6e6FHrIylOtohHofPr+o9DVnS4bd1TAliYxGnDmtcef99QGY7nk9VjI+grmT
xz/cHx8ns7ENme6O3XDZNf7HnfSgV6rzSUlpC0SbgsbixfKJ9GZ7PrVHfWQD
Xe9jduwCsRh6JLEjvANa/018786kIkhV1uqeRR3WzH0qTfJcolrZc7ehS6QG
7DPK3aY8vcSye2lbmjwDDmWrihtGmdC0kL5sItODqUnp7NZFXmVq++9d7uxC
iABl1XKVAlLQv0dsvnjxP2zupX6iZ6CELblhJW8D7HTH6dz3B7FTVddrkqcG
739mbglK6SD/5N5dd5/LR0Es+ztmTTc8VcTXUVQa4GB7bPhW7wRZsfdRc2kX
lXxYZuZSYttG7CytHnkkfgObS7R70s5MmLbwi3Ns7sCZMhMxgaAaYl+sHkQv
LSaULHXfOu9SUnT1A23J837UhDxfejOXCTHjfFGYMbDugYfSgeAZ8un0E3dt
1VGib2F0W3C0Gqwt5WevlVfB1FpFwIKjBtnyX1IedKYhrFZSseMBlTws7c+u
X51BIhakacd/MJApx3zuG54DvRsFwsbdTLwIXRMc5TCA3q3OGppCraTNgntK
QWcOUtIXmCGcTcSg0kHNqa0PbalPZrhODcHzeIXZtV1MSIva3Y0oZoE6aEUv
/0WDuP/ymJWZucT8Z4jFIxE6Eh84m4sLtaCmmLHGNzcfO2Y0bynsmSCNSzr2
zE8u5smOLuS5cQQOz/05T7AGUFW2UbDXpg8HmdSIVGMWviVIqkck08loVYwL
JW4UMn+VW2N3jmP0wLd3SkZDmPzlN2EePYSDDna6ifl1MOa1OKin9Z1s2lzi
U3KVDtfn9ivcno+A4STik7KKDuvbJdRzRxd96u4cvgvFfXgcfOfKnTQq5FQz
fF+GNmP+X+P7zp8dGKzYaU7nHcIwx8Yzjl+aYOnw5DfbxgpIHxSvHlUcQ8rW
ybxPW+qRPs693DCiisR8q172dgcVJ6LCp0bO5KCEIfzaJLMBF0p1dnft5FTV
Mdnjn7TIs8lK2w/+11kN5wWrdZvbGYhj8xTifF0Niex55uTaIUx8YA9f9bmX
7Mhi47o/3gXeJwqSe7lyiOO/FDaSV4uwYxl7amWT4PjzW+Wv0XqspTg5fnRY
IJ9lqAGFcvVEh2pzsev+BDJ0qxJGPw3CwWf7+7MtLIR5Gvkna/Vj/2HLhOzl
Hei8sf8t98c6Yq1OCdxjHYFKe0UeXUYXOHp/GxVuqMUH127/CxW9KC1JW12e
0gXTUzZ8LoZ/SL8Tk/fpdvYc5/uDvZvlemDwl/+IbNhd6H0L+1hC6YZORmnM
VCKV5Ja2npHaM0Si+ZX6XbV+EOen0TIXs5oxaHmM+/eGPmRecH5lrtsNs33u
D8+zs+UIrz8v7bKngdx67Pv64MtJHLDeL14W1YhUL1dpn3N1UD+5hnXJiI4W
m0ntq3unUBG/TEB95QCZHNKnndn9jsStjM/4vsgjIZNv/53TrkWtd2T+Sq5F
3kpWlzuTx6V6jFZfNBk0Cm7jKw2Bx6cQcaPL//rtOoQbNVo+Xx0D5TU/xT8b
UfDsr5yA14Uhwnr4bTPj2hiUu9Y+iqdQyFOlh3u1uGjocG1Z+TuiEcYmBYVT
jvEI2vv4d5pzDi4OSRwp0p6C+swDFt+5WSLotj4D+5uwejnLQ8GwFBEKty+/
lKbjUkySfv/NeRzfMLJacFFvlti4PRWmj0P2+VRAiCsFPlO7pXeHdELmmjjj
unjXoj8PfCj/oxdPbj67Iv6sAkm7jnIWU0dQ8dQkV3iiBe5bD97itq6HEdtI
jlpIHV5yc8hK8UfghKBHAdk8ieZaScuCxG5oDtSLNpZSEf9h7cUraTXg2np8
m4cCEzc9Bnk4MY2Q8cHPKfGjsKI1eFgKZuKBpCjjyGgf7ChCe/0KcrDbnkf4
gmgcBNm28XlcKSDh761TbRW7yLDtwImchzSSc3B1YPdjJooOEBWmCh1V9VfY
qqqrMPHXgk1Rn44c5fPCaXqlWH5fdtkelXo0JGcIm53tgSI1/MHBCiYc/X1v
dMkS6Lhp97HNzpKHQS0Q+T1HdLgenBld2U3qVG5u2ZTRj+44yR9W0gVQnct+
cEKOiXrxt5Uc996TjHwlXrrzCATf8e0+xl8K+TsntOwYzfD8Erx13z4K9osr
fLXXKcesqsuYnFENkeR6s455qwtLlju5c57OJapWqz49vPodrcy708cFaGBs
klxn3+8Bvaq63DtcVfDd7NfPFTwEXaej9ZZFTFJ6VfOqDz8Ff6Q9K9miOuEd
cTtWODMVHUXEaFswDUrvphsSHvUS0xyewQqzKRwz87LISqfhpWWs/ZtFfugK
/L3mVWLWom/scHPjKkbeG/bfarJ0KFo8u2FekEPmJf7wH3HtQ6VkTNBPmw6Y
PqYJlt6hQmlkt9LBxAmcPBF5cah+jNxi6KqGuk0g3TM0+fHaPNwerT1SZ5mK
ZTZZUz1bI1BiO+26VO0XVm97fivKqBMn9flr9GR+YfvzxmNqfv0wuuN7P+Zw
DUY7OzgqW1vwvDaUv1isHoquez943aPCxuqVubTrAEwSzYTFO3IR+cNFquZ+
GKhv2ZdE5dCgPF5Z/yi7DhGHhpSW6Lbg3D39E40GbDlC5X4h+fJRyEzfX0U7
WI/k16tTJmySkatR8H1pZiOhHIo1KtamQFTiJndbZRge+Hlwny7Pw3ep9j8J
IjRoxSRqO3i2QJ/93f6jYokQO9+oUerUQ8JaSp/SqYMwgYqzMS0d8QZDDr86
KeAL3da30bwB2h+K3u5srCXZ7lqaApJMjBU/Geuxe0c6XbqiYrYN4PZ8faiq
eQfGx15zNNv2Y+ZsUrjD5DDhbeMw7r3ZSSJK3PaucJnEgvQ2tUsTTJgu591X
scg/fpuu8W5a5P/pb6UV7RzD8FMqePY4tZusdRTZerOvD7GmU+U6W4bAUGXX
HByoQvaazLeuzGpsGPrhWzdVQD4WMRG5vgkLozbxnrpfyfXJ6ZCAQ4OI74z2
pPPU4Vgmq0R2IBJJdWoVgRiA/vs1PPQzbKo/3+ifNGSnkJMlZsR6RQYc6otE
x5cVoaHQqfONdQeiPO7wG8vPwbtLOJN+/xfkl9da3ValQ0rjsn1UURdYyrl3
65Pz0OAz9Z1xjArlo2OUhfpuIqbau0WZVYABww3Vyf+GMVuh7cnxvRFbudIj
XbmYsOR69Oba8j74NfHHhyp3k+SdcvXbxNhUl/5wYBYkjBGdwPGkjQFdKBdN
jP15fgglEUbvuNXy0cY4lGovO4XY1Re1lsdPksq1V1la1VyqdysWbly1pUBR
6/MJk6392OIvzXVVkwZ17u4Dzunz5D2i5NvK83EUDn6bPtBh1DrUK8XeD4Fv
FnFtJW0oizLXaj88iCvF9paX+X7g73sZZbWqObL/vSJFUmwWXIp9724+H4CP
yvOEIbMhqFitv60VFYOLfPqTetQ28jnQ7PRTnzyS9vi8VoZoHpH4EmnC8a8L
BeYW9764M7FdaurTO0UK3FqGjVq4+7DJv2Ou4SadVNWb02ov9yPg5yuK39si
WP483q0f+BwXfT7uWrVmkf+P2w9QlVsQlHAuTNWPQs5xpTfqNbSQB9l6JdXr
2jC/7stuEeke7Gc7OGfxaFGXGSmhdw/MwEfpZLRXN69qSlNT3RrndnLX69on
gT+92MgTu2n+IwvGfTZ5ds01yHzc3mlrP0uuxqlOBeqyiMPsAZOrl6aJc6m2
gJxvDQzXUjUun07C6jNOkmniBJ5X1bizJgYwXdnyWeVAG/iLX9ntHaolInXu
X3/u6cPaAuG7pxszkR0xYiVj3Ikm597MIt4BwljzVkhachIKib7FJ25P43/l
rpnn
         "], $CellContext`temperature$$ = 273}, "ControllerVariables" :> {
        Hold[$CellContext`atoms$$, $CellContext`atoms$526292$$, False], 
        Hold[$CellContext`temperature$$, $CellContext`temperature$526293$$, 
         0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{}, 
        If[Length[$CellContext`atoms$$] < $CellContext`nAtoms, \
$CellContext`atoms$$ = Transpose[{
             RandomReal[1, {$CellContext`nAtoms, 3}], 
             RandomReal[
              NormalDistribution[0, 1], {$CellContext`nAtoms, 3}]}]]; Column[{
           Pane[
            Graphics[{
              EdgeForm[{Thick, Black}], 
              Rectangle[{0, 0}, {$CellContext`Tmax, 1}], 
              
              Raster[{Range[$CellContext`Tmax]/$CellContext`Tmax}, {{0, 
                0}, {$CellContext`Tmax, 1}}, 
               ColorFunction -> (Blend[{Blue, Red}, #]& )], 
              $CellContext`tempLabel[0], 
              $CellContext`tempLabel[273], 
              $CellContext`tempLabel[$CellContext`Tmax], 
              Polygon[{
                Offset[{0, 1}, {$CellContext`temperature$$, 0}], 
                Offset[{-4, 8}, {$CellContext`temperature$$, 0}], 
                Offset[{4, 8}, {$CellContext`temperature$$, 0}]}], 
              Polygon[{
                Offset[{0, -1}, {$CellContext`temperature$$, 1}], 
                Offset[{-4, -8}, {$CellContext`temperature$$, 1}], 
                Offset[{4, -8}, {$CellContext`temperature$$, 1}]}]}, 
             BaseStyle -> {FontFamily -> "Arial", 13}, AspectRatio -> 0.11, 
             ImageSize -> 450], {500, 80}, Alignment -> Center], 
           Pane[
            Graphics3D[{
              PointSize[2 $CellContext`r], 
              Point[
               
               Dynamic[$CellContext`atoms$$ = 
                 Map[$CellContext`wallReflexion, $CellContext`atoms$$]; \
$CellContext`atoms$$ = 
                 Map[$CellContext`propagate[$CellContext`temperature$$, #]& , \
$CellContext`atoms$$]; Map[First, $CellContext`atoms$$]], VertexColors -> 
               Map[
                Blend[{Blue, Red}, (Part[#, 1]^2 + Part[#, 2]^2 + 
                   Part[#, 
                    3]^2) ($CellContext`temperature$$/$CellContext`Tmax)]& , 
                 Map[Last, $CellContext`atoms$$]]]}, 
             PlotRange -> {{0, 1}, {0, 1}, {0, 1}}, ImageSize -> 340], {500, 
            380}, Alignment -> Center]}, Alignment -> Center]], 
      "Specifications" :> {{{$CellContext`atoms$$, CompressedData["
1:eJwVl2k0FV4Xxk2l6F+UkFKmUikaUJQeJBVSmZKQSqWSBkOKJBVKCgmJooQU
mUk45qnM8+xe93Jd1zwP6fV+2GudD2eddc7eZz/794hfvKV3mZONja1kMTgW
4//r9wmmPgr7hrA1K8Un/DgVb/LTjqrH0fCkevlX7uetZND+yf64TTnYaz1a
Oew+AWFW2dy+DyXI4K4LCeb7hZV9tiafXftxz37XfyqWqcielq9L0WiBVU3r
ZdOwHrI5g5vWav0JPE5LA/p+FOLzq7AKq5ocfJjf8VqQVohH4MzrWugkI0eN
pj587YPsQFyweCYdRiVq1geSmlExjXjtwGosHEidN9w7Q7I3fHQwoXaiMGGu
53x3C4kz01cWt21Bic6dmyOK3WAOJ513iCvEb8dMvxMfJ4m9dtBbh7oZUlWe
7OIr0UWiS/qMI0pZ6Ox8efSXXSb81vHvmNDuxQYnhrbgyg5CneZt3bIwgOsG
2QbmAqlYHWKzI1yoE8uS9L9SLlARsadHzj9hCHIp6j7WbTOQyrc1e3FtlqSU
ya7ZQP+Fivp1hd4D2Wh7F5LdcqMQaay5livXPuCQ2orcZ/J/4X56X1jiqkYs
29vQl/M3B8HNC4OB+slYptVqkLbyA9zUusv+eedDtdBk8nBbCDFSvvfLizZM
3vOnr/BgpBO59vc0i9oYmN+u1Bl+U40uq01NXte6EfmR86HLN/Yc0RdCv7/X
McgDn6xjEqsbwDDILHT0bUUNbbvK2Su9MCk/eEJBmwrBnLYPZhNF8HlkvdH5
v37I1FPv/NGfJh2eZ+nMf9mQ32DMB8duVPFkKdGYHXAMztdOPEJDzeodfFEm
XVBYXyF+r+gPsXT2lH0d3wPZ1wZnN11Jx1Wahvv31xEQtrB4w1vEQA6rlFeD
wcKG2caQk6Es7M38mbt9TR7kC4K+3H3DhN6RnkENLSq2K+54n+06TkbbKi++
OVaJ5b94Ey9Q35GYhuFbp8ryYElf+Si3qRc08MWLGA/hie1jKR2HGfI0Rvs/
lxvvyGfhvCMRnwcRsWOdwMa7FcjYo1PsL8lA3YNPPC+PUfDtsmdiT+4fskr4
+rKFbx7EXWR1GeN2AnyEzF8FDFLR4f/uWaB9FYKPff/h8ywLepn3z6d01mND
UpK1PEcPEdJL3tCWEEpOjTY66XxuRMk9mVtnZFiYNDW/Zz/bBdV/jj9UTSvI
+pc/zESY88RWoTZNYUUvGp7OOOyIpSFZU+r6yyPNmI5tquSzYMFVhcvjzd8o
wjnb/+TipzHSFS9k0Yxu7Dji1P5DrBrUasNLnV9omHaolS66Sscqw19H99Fm
Ce+H/RLevyaJmkzzFyXbCmz/9DVv+zQdbiWN5XuX14H+autWEbMOvKZ2FijL
seVst37ECq0sJiHX884ntbWTz+Irl+SXZ+CpG99ZpZX5aDq7avqahzskPoie
3tvcCe4p91m7QCoOS2Ul9A044xDHjNgXhVL0iG5+tmWUBRrVk6tvPRVpB2We
qHj3g29y9emjhjOE1fN3qZZRI65LrjjL3liL66qtS1J/9oJ9oIBxdXUaPqoz
jTtLiomB7+nPuvQhdPgtX6WuMoCtVk4uuYFDEByg/LWRacJzbmsXllA10uWo
X+jlfuS+9r1h18QeoqXaf+XjuTliPnqbllFZBc8Xp2tXReRAkS4XeSGuD6rG
o8438u7gc6CzreXOGeLmNX661SadaBRM5ZXe6sNWh6bSgLxuRMzIdv5HGYDL
XQ2edDsq9sL0ue2hTHxmk14Y3vMJD8z6b9RzsCD2Q8OsUKQcTWkye8V061By
VHqIj0onypte3ufazyCauyJk9m+qxaTcHb+//SWwetk65ytbA4P3vhO9S0rw
0PrcxRuyw+Acba0NZqeShxr/+R4O4Mzh6935x2+0G6JuO+N42v+A76pLgNb7
DlRuWNv2S/w3WWJ1Xv+GGodqJWv9O6bICHz8d5+kNHRj9k3ls9OPWqG8gf1d
VXEp9Ce0Fem7G4m7R8K26uSPpFjyS2/7cDp5mrJBwtazH7Sbbh937u1AtUP8
qYorQ2jlZ8bIJBbBT3xKj2Y6hvNN6mF42kp4xM6V9o2wUHK3+ubSHTXQzBr9
sFyeAhGOzTr2dp04NJHGcejgJK42pOrS3KagY7OGsu9dPgw01Ng9hChQZhct
WrGHigvB9tdVjo8R3vC2+IWKPqRHVjYHaFaThUuZFvu+0bBHx2PuXcN7DPN5
Dx5IKMWfgUQ7HsEKwmVg3SG7sx+SnhTNWmMquSHlTta87MFCboCVzrYerKBO
/IzNb8fSi1KpVLMFrKS5CYQqUDE62Ug54TaKBf2/3NqrWKgn65g0sQFUCGcK
+JIq+Oj6qOhPtRK3l/47d3JSybXl96VP1zCJs/qvPbjXBz4bl0uXOYcxXPvj
Z8SOOpgyLwU/3VCOVSF97IXXuVT1y71X8zz6Qebz/cQF3rXjaZH0YYkTLMyR
U0U/WtoRZaf6d2TKhzCHOb5v+dqPgci0Yv7cCqKsoshxYJgCh2CT2LdNzdDd
ujolLqIFcVltfAc3/CUtV39FUibykWZfFvCvbQorWgIqXwQWIruszG7w1wBW
/xzUlPNmISnJ9yPrcB1Juf5SKYqbSpxFf/uE7+olYupbTb7atcPxXpL/tHwC
ok9O5gkWDEB4gX8zry+dsJR1l73InyWJ71JudJ2bBTW3SedgeyHEQm3P2/d0
wepIzlvZaw2Y4hLOdVnxh7y3EL982o+JU7yGS24K9SAw0iTxhvUAIvX1rkau
6wMjT04p40ktXqd40P+2dpLmKz+37iktwBqB14Ue5sWkpGfNFcOsHlyUErqT
vq4Bt1OKC+0GB+Do/k/oh/cUuSI85bWlqxfy3w4SzuAJMr6EIfX8ZT32Ws5N
bW1tg92FpnWpYVQce+FZO2lWBp/de3PFFvMvVFwZ8dujHcI5xp7LrlNh9C3n
zrfZdCwwlmokxyVi+QmKpNyrXjLPI+eTINCL4eQpQRWrGuwSSapXe1KBTSo3
rvWUF+H67sHDLvoFuNtrcW7owyS571jAqZY6TVLkZqxCKoah6cDP23YnDzFC
3KPnRnvgZtHYctO0Bqq0xql7lQRHKJz6j++PQSlkt/OawA5yzf5qjq1FBzSf
LfhnlffDOfTNrT8jHYhWWVfBk0MhUtkRa0ZtesAz0xp3pLGLFGgtMVdkb4Ib
707xWP/Ffvc9afC3gwF7v4Ulz3ZmQyfdesv+gzRUCZ4+qRTPIooPz3u9q+9F
QVqrZm9ZPczZQpsCWptxal/c54L/ykmMvMqlk+5TRKoiXlXKnBBZm6OeUUH9
uFJwf1/p1cVzOnx5fJz6Md4pOfrXKJBcvBGosIx9CrsvDnyKShrB0pOC/eIP
h5Cf9jxfVagJGgcnnAQ8W/D2GXWlgzGLDB2KXqHTuVTVr4ZN4BGrHLqXNjeO
y/fD6rYe7YhxL158LPv9LY6FgMb+vY+9W4n+ikHFSmEakTt+cuMjSh3a5lV3
CEh1oo69rDbMoBTRX9cbGggVwkNeczYvc5bsWM8jQTvAhNrXUaHzGd1kXFlj
a4RuIfZ7br0oc2UAfB/l16aupUDgiJJl5n9fyGhNuMlTrx4cvZju8U+yieQt
XI3f8bkOK0TfLFnPP4SGM1s/mij3wtrh5DUbq1HSrjJqqDtLxSFF68OuJ/5h
3vce51WpKrz6o3Zc9l8LEvSnlHqravDk7P4W03vD5OetLImImzWoTk2Y2mjC
gk3L5+CigTr4hIbHqLBREXB8m1z6SwaKxTudBN84wz3Zw1bcqhpJ9SfP0da2
oGKI2zvKoAzB12LqnUIG0FZmvDNJvBp2bxSefTSPQOd1+aT08HS4Hui756c4
juBAbzc//W+IPKOzNhX9ULA80V+aOoCOwGi1obOVaFCg8qlas+UYmd8u32XT
TS7uzFfRet0H+T0/PMXbarAytjn4/A0qMtuXno6614ya14bKN1rGSdSJ265Z
R2dhsOa/8LMuvZA+84YrNr4GiooXMvTya5DZNPT0YwINwfeO7AzonIemGUUn
eyYJyfuogWk0Fqzeuy6tSaTAmfKP8XpdPxrt/9n9iWyGCPfH39vgQ6oFDV0d
F+9j1yRtHjhKx/TM2kmjnwzEvNq8nHEhHczK/tyeb9WkJiUxrWt0hEjctDnV
c7kemss1RrdILeqIBs9acV8KGPKZHtbVFOhHm6o8XuiG2Muy8MNbGJi/47JU
IOg3lAtZCjfyqhGTNt9jKBEOqz8+qUHug1ipVZv8VKEH36wvbBSSL8T1cYXp
b/7dSOY9GiOxyC3udx5f2mBfiwA3HQ6vr90Ybfyb7LjsHzx6DPMOfWoE+2qJ
Pa8WuYpn9yfXgMYuaF6uj1TwSkeqgVKrFmc+LJP+/TerGEt6U15EjYRPomxX
/kireDP0pk76qZsPQFoutvr7x0G4Ho2/a5jShllPqmNO0DwKlhl6pNaWkxA/
/8AzcpmQLZw7nYJBFC3MHmO9qYfIgfP7TadY8FJ4urPDgo7cHTKPWwJqyJvq
CR3/TBaRio1JCRkgUFTZcjj1Zj3qxI3Zqr0LoXtn3affq1uJs8TxZbHfeuCz
cOq5fcY0oRaFfjquyYL7/tNNy9kHQF35euS6Jw1hMo2eC+tmsE3MYPuE0zzM
tM85B5TVEOVxm5CPPTQYqVXp/vIvQNPe3SZj+yJgtqy5gbdyltD09iWeeDlI
BkzkkslsPxyj/T6p99Lg7yRx47VoLw7u7fEJ/cUApevnWYx0EKPH+c2sFUMo
VNC9uza6HjbrBFeZijJh/fSN8fSLQvg7jwusaxxAyrXQOruSGTJyPbPzwdEG
Ym6yVivYdRxL5MV68yR+Iqih6UkEswe7dFY/47JLQcvdBxtUJOth+Tb9cIof
BU2MpDj/bePk5f6QJRJ6TdiffgT9A3RErL1s9PlWK2wiw/qWViSB0llRcyWh
j3SBze/JhVacunfuKk9NMkwffoy1WNzftLXuQtxIKB5I8d77ITONUqnSnOTe
ESS99hdXrZmE+paXqblm/WjKZtWsK61Bc+6ehO0P6nBD5Dn/nV4mdCZ+UU31
mWRJ2HSF/uK7VsS/e++EfGytO2c3XFiCT0f2Uy7O1+CM5/W5jNFWbEpc5Wj4
oJ18HGZbZTuRC1aadmjTr0GcnPnzVbT6zSKHhv8xe1gJ/pmKQ2X+9URSZNuk
GqmGZLrcI8a6aFScmTn6nuM76tgynme4tCD4gITf/jPFeMxIqVKQTYUu1/UR
1Ylm3HhtsMOPmYAOpRc71le0INufnpVe3ASdqFW2htV9OD3WoBHW1obbX98m
7o3twXb3BwEfbLqx4iTn+rKYHMyeMNAbQgGMx7NunQoqhVDwfR7Z6jly8VUc
766iGvSNrGpg154gzrNKPVECLDBEH6VtNlz0GXFRZ2VXVMFP2OCcXXABXJcd
YlR8HSHeXzkde3MZEOlr5ntZXwWXO/syGk4wcFbFdX+uzSDsTVOG7RJrycTM
qFid7TRU5u3ZFh6Oktm8uZOxr+lg6XdkPtClYWXOhQZVLPIfTZf2UXSejFyz
VzAdrkbwYYqBXNIE3Nu9WFske6EYEDL3NqMLrkqpzenhVDg+YUwMB7Dn9HdN
/NCVq8KBe4cK5XS6YLPw7K4kycJKjegY+28MBJsWvNCVGUBczLa3zzf8Iblm
Pky2pVmoijK0XsXZACdDbZcXXiz4hMVsM9WmY8VQZbvszQZErnNY02fPIG7Z
9ToH1BsQqC58tNN7kuzuXHHlHaUVISqR1fciqyDQYVpdsdiXF285CAoFsMjC
H8esw+trcbLHS8YhrwbRs0Eap/a+xWxyRzglhI4Q7ZhRRe4ufHlvbdGTQyNp
Wn9uKH/mzLlypfa/66WLuvfogs2egg4cXG23pjyoBx2OFE1Vai1Ot/Ebxe1Z
IGVs9xSqFudl3X5JeQOubjztXhru+4CCMpvpltATVUj3Fh2+yleOue19pTv3
LvrQSnLZoyAc4pfkpk+V0rH/fvKCyAsaVNWzPLXU6RDw3lg8ZJsHzr1Euexv
F4S2a3qt6C7F2uj7WX9C8snu5OFivciHkCrPjy4WYUDQU81ud94A/NZX/Pyq
3U+E10sN/+GdIssuHZLME2kmTzeKHtg5XIbEDSKq1kaL/c5xg197dw8uyeYr
T7ylocchrMxzcQ5v8Rh5GNiWTg5e5y7nW/YbOorPKxUEG+Gfd2Tm1rEatHja
rM0SnYHh7Ho3VusoYSs7YDs/NglqTfWSt8mLfiPo99GNlE7U0HdQvLYyoRvm
qfBZhE0159DdwiN6Pfjv1HaelT0ESx++cI+RDgGLnefN/oJBbDF7Z1J2oReS
ulvKiggNbVPJEWfejoJP++2dsPZmKI/l8x8dHoTejhSdLz5d0Npkw7BbWQcx
o0pzrwdzZF9Akc5lxTbyV1G2kfajBBx67mED+o14etOsQjC6BtuFxKfk1b+A
z9jw17mKMHAPd4Yp7KjAw45/s2KsJgjTFSlpYi3Q6r53ylEiEU4Hv68efPwO
F3x5RF1GF8hs97EXAbLFhOZJu514ooEUfftQ+i26GzscRX6Jh+Uiw6vvoYYR
ExWZyp3rHashZL/bVz6vkFinFL3cKDKFOb8wiZ9jFBjVuhtMdi/6o6PhJjyv
mDAWnh4veDAMm4iRy5bP5jB0TuPIrlkK+fZIfYzzbDeG/yv1oYaG4uvlDMVr
QW1IMGOjyjhNgN2n5fC8+RgR1Q4KpLWMEYmFJV+FH7fDXt9g/xLeIITVd08K
vWFBoYJ8sJIcIV82myi43Cgm6SFxR7bfGSbO5yIHL3V8R/qrMfORO4PYOlrW
vmyuE5yqptr6Phw534MEAzJ0R8mdg+usflq2oG1kvUfFjVyE5WlUb2/uhuoD
2+0vDzYiOrbglzxnExTJmZoN8ktVm38yrJp15gmVceURx3w9Hm46dd2gqROy
suExEpr9uD9tlVJZ2Y8jqUK+tNMjZN9yAV7va1w52WpBoTmLumi9NGXp/btD
kF+12uawWS0SKlqG4yf/4VHEZe9rob9JuMQE88m5auh9uCjmuagrejS9h3zP
GKB9by2KTvqMqF3p3OH3OVUDQ4qnBqJ7MCbUqSGuP0DuClXe3a5DR0N1gXXC
6n64cJ4YPKvWBY+jvOYGchTENj6dv+s1izfPjXlYGn+RLNS3NtukFoX8790E
jnXgxbzH6PluOjrdXq06NT9KvO7MhDadp5KJucO/jhj+Q/q/SjW1Piaod+Mb
qwsbFufqyCsZ+XQUuJ3lm1Vqg0cMReag0h+iaRNy6XxfN5E1Oe61PoEF/wOV
N3cv8rwPv9WqtYtcdshko6FlyDTZz8P8ECfQBXtu74fy11JJPINrWZVtB+4W
P7BLksxATL1FhOQaOrQE09QTdWvJw/6JzIea07gvXxPBwewEw8j9ycZZBjZ5
cTT8NolGpnsO2/qV7bgfe1l9qWYPSkQH1dYcbQBvja/uOTM6SdawvsW5vAYs
RpztiEw/lG9dDN0RW4OFlmEdV5k+0la2reigejPJuLKc5M8zyHWJ4dftFwvh
cC6uVzWJgqANhmudF+vbkHNsSrV9jBw24fIee9hOVr+O/5m8Nod4np0701Dd
A3rauOLCjxhUfLPb4hTTB2rtoFvy8Uns2PKMnf9LC3ii1/4Vj/oDAZuviB4v
x4wo5dwMRys2NCz7axzdBUenA1+E3BvJlz+rInbJ04gqJe92HesfCWacbWsx
aERAtekd10Ud3x5++u+1O3347vXquHJoG3T2OUmNba7Hjx8X97UqUyCVqbv8
Si0d86XSm5YmV6FL69s272M0wHOZt6JuDjn+WMTbY36KfB8+wjt0tRepJ7zF
19XUQ1vi6oVjXkPI9hTlcztZhRrZmz0e2UGE1+j08/gtNNLbrjH/xnSC6Pp0
nfU/14fXlpHuR/7lY3vwtNm2VQMYVxFd8jCwh7CPD4uu7GWgT6nwXm9PH9kj
fXRhSX0XqAn9OXTRGqx4c9vCcWcL5LIUnxtuGyWWl4cMD9hkQexvbmbhxRF4
siufuFaTi7qwfQ6Ctp3w34xnbCdb0Zm28oiMPY3EF2uzS95qwIs70Z+D1lCJ
a5/Y7d/2PeB63qs1EsBEQBl14zGVXvz3dirn+O9c8kGQIhIxNksm7csgyd1C
YryPuaxgMPH7QvESE94BsNb/PBvN6kLpo9siVNteMnDp8wMqY450ce7auI6T
Ab2VNFnvDyXwbB68FHm4HxKrhNO+dHTiPX/FjzzlJsgXsNoz7/cQe4GTTsd/
fMeh8ZHKmew+jEdmOvJw0kHLtT1m8ykezfiwc4N1AeI/Bmdmd4/DI9zx+4bM
CVjuKXJ6K1GF68OPPv73tRGRAppBWtlMtApV6nXFUEnzb67sde+zyCFbidAm
6hBhpqgOLxWtQIHfptngm3S8umf022BTP95bmsnXyE1DZjD0fO7FKlSn/yjQ
E50gWgIKr9pe9mEP/27+d3ndMI7sqrH9zMQ92dotfxco5PGa62ODRdOkQG5P
6e6FHrIylOtohHofPr+o9DVnS4bd1TAliYxGnDmtcef99QGY7nk9VjI+grmT
xz/cHx8ns7ENme6O3XDZNf7HnfSgV6rzSUlpC0SbgsbixfKJ9GZ7PrVHfWQD
Xe9jduwCsRh6JLEjvANa/018786kIkhV1uqeRR3WzH0qTfJcolrZc7ehS6QG
7DPK3aY8vcSye2lbmjwDDmWrihtGmdC0kL5sItODqUnp7NZFXmVq++9d7uxC
iABl1XKVAlLQv0dsvnjxP2zupX6iZ6CELblhJW8D7HTH6dz3B7FTVddrkqcG
739mbglK6SD/5N5dd5/LR0Es+ztmTTc8VcTXUVQa4GB7bPhW7wRZsfdRc2kX
lXxYZuZSYttG7CytHnkkfgObS7R70s5MmLbwi3Ns7sCZMhMxgaAaYl+sHkQv
LSaULHXfOu9SUnT1A23J837UhDxfejOXCTHjfFGYMbDugYfSgeAZ8un0E3dt
1VGib2F0W3C0Gqwt5WevlVfB1FpFwIKjBtnyX1IedKYhrFZSseMBlTws7c+u
X51BIhakacd/MJApx3zuG54DvRsFwsbdTLwIXRMc5TCA3q3OGppCraTNgntK
QWcOUtIXmCGcTcSg0kHNqa0PbalPZrhODcHzeIXZtV1MSIva3Y0oZoE6aEUv
/0WDuP/ymJWZucT8Z4jFIxE6Eh84m4sLtaCmmLHGNzcfO2Y0bynsmSCNSzr2
zE8u5smOLuS5cQQOz/05T7AGUFW2UbDXpg8HmdSIVGMWviVIqkck08loVYwL
JW4UMn+VW2N3jmP0wLd3SkZDmPzlN2EePYSDDna6ifl1MOa1OKin9Z1s2lzi
U3KVDtfn9ivcno+A4STik7KKDuvbJdRzRxd96u4cvgvFfXgcfOfKnTQq5FQz
fF+GNmP+X+P7zp8dGKzYaU7nHcIwx8Yzjl+aYOnw5DfbxgpIHxSvHlUcQ8rW
ybxPW+qRPs693DCiisR8q172dgcVJ6LCp0bO5KCEIfzaJLMBF0p1dnft5FTV
Mdnjn7TIs8lK2w/+11kN5wWrdZvbGYhj8xTifF0Niex55uTaIUx8YA9f9bmX
7Mhi47o/3gXeJwqSe7lyiOO/FDaSV4uwYxl7amWT4PjzW+Wv0XqspTg5fnRY
IJ9lqAGFcvVEh2pzsev+BDJ0qxJGPw3CwWf7+7MtLIR5Gvkna/Vj/2HLhOzl
Hei8sf8t98c6Yq1OCdxjHYFKe0UeXUYXOHp/GxVuqMUH127/CxW9KC1JW12e
0gXTUzZ8LoZ/SL8Tk/fpdvYc5/uDvZvlemDwl/+IbNhd6H0L+1hC6YZORmnM
VCKV5Ja2npHaM0Si+ZX6XbV+EOen0TIXs5oxaHmM+/eGPmRecH5lrtsNs33u
D8+zs+UIrz8v7bKngdx67Pv64MtJHLDeL14W1YhUL1dpn3N1UD+5hnXJiI4W
m0ntq3unUBG/TEB95QCZHNKnndn9jsStjM/4vsgjIZNv/53TrkWtd2T+Sq5F
3kpWlzuTx6V6jFZfNBk0Cm7jKw2Bx6cQcaPL//rtOoQbNVo+Xx0D5TU/xT8b
UfDsr5yA14Uhwnr4bTPj2hiUu9Y+iqdQyFOlh3u1uGjocG1Z+TuiEcYmBYVT
jvEI2vv4d5pzDi4OSRwp0p6C+swDFt+5WSLotj4D+5uwejnLQ8GwFBEKty+/
lKbjUkySfv/NeRzfMLJacFFvlti4PRWmj0P2+VRAiCsFPlO7pXeHdELmmjjj
unjXoj8PfCj/oxdPbj67Iv6sAkm7jnIWU0dQ8dQkV3iiBe5bD97itq6HEdtI
jlpIHV5yc8hK8UfghKBHAdk8ieZaScuCxG5oDtSLNpZSEf9h7cUraTXg2np8
m4cCEzc9Bnk4MY2Q8cHPKfGjsKI1eFgKZuKBpCjjyGgf7ChCe/0KcrDbnkf4
gmgcBNm28XlcKSDh761TbRW7yLDtwImchzSSc3B1YPdjJooOEBWmCh1V9VfY
qqqrMPHXgk1Rn44c5fPCaXqlWH5fdtkelXo0JGcIm53tgSI1/MHBCiYc/X1v
dMkS6Lhp97HNzpKHQS0Q+T1HdLgenBld2U3qVG5u2ZTRj+44yR9W0gVQnct+
cEKOiXrxt5Uc996TjHwlXrrzCATf8e0+xl8K+TsntOwYzfD8Erx13z4K9osr
fLXXKcesqsuYnFENkeR6s455qwtLlju5c57OJapWqz49vPodrcy708cFaGBs
klxn3+8Bvaq63DtcVfDd7NfPFTwEXaej9ZZFTFJ6VfOqDz8Ff6Q9K9miOuEd
cTtWODMVHUXEaFswDUrvphsSHvUS0xyewQqzKRwz87LISqfhpWWs/ZtFfugK
/L3mVWLWom/scHPjKkbeG/bfarJ0KFo8u2FekEPmJf7wH3HtQ6VkTNBPmw6Y
PqYJlt6hQmlkt9LBxAmcPBF5cah+jNxi6KqGuk0g3TM0+fHaPNwerT1SZ5mK
ZTZZUz1bI1BiO+26VO0XVm97fivKqBMn9flr9GR+YfvzxmNqfv0wuuN7P+Zw
DUY7OzgqW1vwvDaUv1isHoquez943aPCxuqVubTrAEwSzYTFO3IR+cNFquZ+
GKhv2ZdE5dCgPF5Z/yi7DhGHhpSW6Lbg3D39E40GbDlC5X4h+fJRyEzfX0U7
WI/k16tTJmySkatR8H1pZiOhHIo1KtamQFTiJndbZRge+Hlwny7Pw3ep9j8J
IjRoxSRqO3i2QJ/93f6jYokQO9+oUerUQ8JaSp/SqYMwgYqzMS0d8QZDDr86
KeAL3da30bwB2h+K3u5srCXZ7lqaApJMjBU/Geuxe0c6XbqiYrYN4PZ8faiq
eQfGx15zNNv2Y+ZsUrjD5DDhbeMw7r3ZSSJK3PaucJnEgvQ2tUsTTJgu591X
scg/fpuu8W5a5P/pb6UV7RzD8FMqePY4tZusdRTZerOvD7GmU+U6W4bAUGXX
HByoQvaazLeuzGpsGPrhWzdVQD4WMRG5vgkLozbxnrpfyfXJ6ZCAQ4OI74z2
pPPU4Vgmq0R2IBJJdWoVgRiA/vs1PPQzbKo/3+ifNGSnkJMlZsR6RQYc6otE
x5cVoaHQqfONdQeiPO7wG8vPwbtLOJN+/xfkl9da3ValQ0rjsn1UURdYyrl3
65Pz0OAz9Z1xjArlo2OUhfpuIqbau0WZVYABww3Vyf+GMVuh7cnxvRFbudIj
XbmYsOR69Oba8j74NfHHhyp3k+SdcvXbxNhUl/5wYBYkjBGdwPGkjQFdKBdN
jP15fgglEUbvuNXy0cY4lGovO4XY1Re1lsdPksq1V1la1VyqdysWbly1pUBR
6/MJk6392OIvzXVVkwZ17u4Dzunz5D2i5NvK83EUDn6bPtBh1DrUK8XeD4Fv
FnFtJW0oizLXaj88iCvF9paX+X7g73sZZbWqObL/vSJFUmwWXIp9724+H4CP
yvOEIbMhqFitv60VFYOLfPqTetQ28jnQ7PRTnzyS9vi8VoZoHpH4EmnC8a8L
BeYW9764M7FdaurTO0UK3FqGjVq4+7DJv2Ou4SadVNWb02ov9yPg5yuK39si
WP483q0f+BwXfT7uWrVmkf+P2w9QlVsQlHAuTNWPQs5xpTfqNbSQB9l6JdXr
2jC/7stuEeke7Gc7OGfxaFGXGSmhdw/MwEfpZLRXN69qSlNT3RrndnLX69on
gT+92MgTu2n+IwvGfTZ5ds01yHzc3mlrP0uuxqlOBeqyiMPsAZOrl6aJc6m2
gJxvDQzXUjUun07C6jNOkmniBJ5X1bizJgYwXdnyWeVAG/iLX9ntHaolInXu
X3/u6cPaAuG7pxszkR0xYiVj3Ikm597MIt4BwljzVkhachIKib7FJ25P43/l
rpnn
          "]}, {{}}, ControlType -> 
         None}, {{$CellContext`temperature$$, 273, "temperature (Kelvin)"}, 0,
          600, Appearance -> "Labeled"}}, 
      "Options" :> {SynchronousUpdating -> True}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{545., {274., 279.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(({$CellContext`nAtoms = 200, $CellContext`Tmax = 
        600, $CellContext`tempLabel[
          Pattern[$CellContext`T, 
           Blank[]]] := {
          Line[{{$CellContext`T, 0}, {$CellContext`T, 1}}], 
          Text[
           StringJoin[
            ToString[$CellContext`T], " K"], {$CellContext`T, -0.2}, {0, 1}], 
          Text[
           StringJoin[
            ToString[$CellContext`T - 273], "\[Degree]C"], {$CellContext`T, 
            1.2}, {0, -1}]}, $CellContext`r = 0.01, $CellContext`wallReflexion[
          Pattern[$CellContext`atom, 
           Blank[]]] := Transpose[
          Map[
          Which[Part[#, 1] < 0 + $CellContext`r, {
            0 + $CellContext`r, -Part[#, 2]}, Part[#, 1] > 
            1 - $CellContext`r, {1 - $CellContext`r, -Part[#, 2]}, True, #]& , 
           Transpose[$CellContext`atom]]], $CellContext`propagate[
          Pattern[$CellContext`T, 
           Blank[]], 
          Pattern[$CellContext`atom, 
           Blank[]]] := {
         Part[$CellContext`atom, 1] + (0.01 
            Sqrt[$CellContext`T/$CellContext`Tmax]) 
           Part[$CellContext`atom, 2], 
          Part[$CellContext`atom, 2]}, 
        Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True); 
     ReleaseHold[{{
         HoldComplete[$CellContext`r = 0.01; Null], 
         HoldComplete[Null], 
         HoldComplete[$CellContext`nAtoms = 200; Null], 
         HoldComplete[Null], 
         HoldComplete[$CellContext`Tmin = 0; Null], 
         HoldComplete[Null], 
         HoldComplete[$CellContext`Tmax = 600; Null], 
         HoldComplete[Null], 
         HoldComplete[$CellContext`tempLabel[
             Pattern[$CellContext`T, 
              Blank[]]] := {
             Line[{{$CellContext`T, 0}, {$CellContext`T, 1}}], 
             Text[
              StringJoin[
               ToString[$CellContext`T], " K"], {$CellContext`T, -0.2}, {0, 
              1}], 
             Text[
              StringJoin[
               ToString[$CellContext`T - 273], "\[Degree]C"], {$CellContext`T,
                1.2}, {0, -1}]}; Null], 
         HoldComplete[Null], 
         HoldComplete[$CellContext`wallReflexion[
             Pattern[$CellContext`atom, 
              Blank[]]] := Transpose[
             Map[
             Which[Part[#, 1] < 0 + $CellContext`r, {
               0 + $CellContext`r, -Part[#, 2]}, Part[#, 1] > 
               1 - $CellContext`r, {1 - $CellContext`r, -Part[#, 2]}, 
               True, #]& , 
              Transpose[$CellContext`atom]]]; Null], 
         HoldComplete[Null], 
         HoldComplete[$CellContext`propagate[
             Pattern[$CellContext`T, 
              Blank[]], 
             Pattern[$CellContext`atom, 
              Blank[]]] := {
            Part[$CellContext`atom, 1] + 
             0.01 ($CellContext`T/$CellContext`Tmax)^Rational[1, 2] 
              Part[$CellContext`atom, 2], 
             Part[$CellContext`atom, 2]}; Null]}}]; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->156247736],

Cell[TextData[{
 "At the macroscopic level, the temperature ",
 Cell[BoxData[
  FormBox["T", TraditionalForm]], "InlineMath"],
 " of a substance is a parameter\[LongDash]measured by a thermometer\
\[LongDash]that indicates how hot or cold the substance is. At the \
microscopic level, the temperature\[LongDash]according to Ludwig Boltzmann\
\[LongDash]is a measure of the kinetic energy associated with the disordered \
motion of the atoms or molecules that constitute the sample. This \
Demonstration illustrates the relation between atomic motion and temperature \
in the case of a classical gas (Boltzmann gas) modeled as an ensemble of \
noninteracting hard spheres. Change the temperature and observe the effect on \
the motion of atoms or molecules."
}], "ManipulateCaption",
 CellID->334012762],

Cell["THINGS TO TRY", "ManipulateCaption",
 CellFrame->{{0, 0}, {1, 0}},
 CellFrameColor->RGBColor[0.87, 0.87, 0.87],
 FontFamily->"Helvetica",
 FontSize->12,
 FontWeight->"Bold",
 FontColor->RGBColor[0.597406, 0, 0.0527047],
 CellTags->"ControlSuggestions"],

Cell[TextData[{
 Cell[BoxData[
  TooltipBox[
   PaneSelectorBox[{False->Cell[TextData[StyleBox["Resize Images",
     FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox["Resize Images",
     FontFamily->"Verdana",
     FontColor->GrayLevel[0.5]]]]}, Dynamic[
     CurrentValue["MouseOver"]]],
   "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \
the orange resize handles to resize the image.\"",
   TooltipStyle->{
    FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], 
     Background -> GrayLevel[0.98]}]]],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare]\[NonBreakingSpace]",
  FontColor->RGBColor[0.928786, 0.43122, 0.104662]],
 Cell[BoxData[
  TooltipBox[
   PaneSelectorBox[{False->Cell[TextData[StyleBox["Rotate and Zoom in 3D",
     FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox[
    "Rotate and Zoom in 3D",
     FontFamily->"Verdana",
     FontColor->GrayLevel[0.5]]]]}, Dynamic[
     CurrentValue["MouseOver"]]],
   RowBox[{
    "\"Drag a 3D graphic to rotate it. Starting the drag near the center \
tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \
of the screen.\\nHold down \"", 
     FrameBox[
     "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
      GrayLevel[0.9]], "\" (or \"", 
     FrameBox[
     "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
      GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}],
   TooltipStyle->{
    FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], 
     Background -> GrayLevel[0.98]}]]],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare]\[NonBreakingSpace]",
  FontColor->RGBColor[0.928786, 0.43122, 0.104662]],
 Cell[BoxData[
  TooltipBox[
   PaneSelectorBox[{False->Cell[TextData[StyleBox["Slider Zoom",
     FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox["Slider Zoom",
     FontFamily->"Verdana",
     FontColor->GrayLevel[0.5]]]]}, Dynamic[
     CurrentValue["MouseOver"]]],
   RowBox[{"\"Hold down the \"", 
     FrameBox[
     "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
      GrayLevel[0.9]], 
     "\" key while moving a slider to make fine adjustments in the slider \
value.\\nHold \"", 
     FrameBox[
     "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
      GrayLevel[0.9]], "\" and/or \"", 
     FrameBox[
     "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
      GrayLevel[0.9]], "\" at the same time as \"", 
     FrameBox[
     "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
      GrayLevel[0.9]], "\" to make ever finer adjustments.\""}],
   TooltipStyle->{
    FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], 
     Background -> GrayLevel[0.98]}]]]
}], "ManipulateCaption",
 CellMargins->{{Inherited, Inherited}, {0, 0}},
 Deployed->True,
 FontFamily->"Verdana",
 CellTags->"ControlSuggestions"],

Cell["DETAILS", "DetailsSection"],

Cell[TextData[{
 "In classical microscopic gas kinetic theory a gas is modeled as an ensemble \
of hard spheres that do not interact other than by elastic collisions among \
themselves and with the container walls. If the walls are at a temperature ",
 Cell[BoxData[
  FormBox["T", TraditionalForm]], "InlineMath"],
 StyleBox[", ",
  FontSlant->"Italic"],
 "then the particles' velocity components ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["v", "x"], ",", " ", 
     SubscriptBox["v", "y"], ",", " ", 
     SubscriptBox["v", "z"]}], ")"}], TraditionalForm]], "InlineMath"],
 "\[Dash]in the case of thermodynamic equilibrium\[LongDash]obey Maxwell\
\[Dash]Boltzmann distributions, for which  the probability that a given \
velocity component, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["v", "i"], TraditionalForm]], "InlineMath"],
 ", lies in the interval ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SubscriptBox["v", "i"], ",", " ", 
     RowBox[{
      SubscriptBox["v", "i"], "+", 
      RowBox[{"d", "\[InvisibleSpace]", 
       SubscriptBox["v", "i"]}]}]}], "]"}], TraditionalForm]], "InlineMath"],
 " is given by"
}], "DetailNotes",
 CellID->110626342],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      StyleBox["P",
       FontSlant->"Italic"], 
      StyleBox["(",
       FontSlant->"Italic"], 
      FormBox[
       SubscriptBox["v", "i"],
       TraditionalForm], 
      StyleBox[")",
       FontSlant->"Italic"]}], 
     StyleBox[" ",
      FontSlant->"Italic"], 
     StyleBox["d",
      FontSlant->"Italic"], 
     FormBox[
      SubscriptBox["v", "i"],
      TraditionalForm]}], 
    StyleBox[" ",
     FontSlant->"Italic"], "\[Proportional]", 
    StyleBox[" ",
     FontSlant->"Italic"], 
    RowBox[{
     RowBox[{
      StyleBox["exp",
       FontSlant->"Italic"], 
      StyleBox["(",
       FontSlant->"Italic"], 
      RowBox[{
       StyleBox["-",
        FontSlant->"Italic"], 
       StyleBox[" ",
        FontSlant->"Italic"], 
       FormBox[
        FractionBox[
         RowBox[{"m", " ", 
          SubsuperscriptBox["v", "i", "2"]}], 
         RowBox[{"2", 
          SubscriptBox["k", "B"], " ", "T"}]],
        TraditionalForm]}], 
      StyleBox[")",
       FontSlant->"Italic"]}], 
     StyleBox[" ",
      FontSlant->"Italic"], 
     StyleBox["d",
      FontSlant->"Italic"], 
     FormBox[
      SubscriptBox["v", "i"],
      TraditionalForm]}]}], 
   StyleBox[",",
    FontSlant->"Italic"]}], TraditionalForm]], "InlineMath"]], "DetailNotes",
 CellID->92205165],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox["m", TraditionalForm]], "InlineMath"],
 StyleBox[" ",
  FontSlant->"Italic"],
 "is the mass of the atom and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["k", "B"], TraditionalForm]], "InlineMath"],
 " is the Boltzmann constant (see also ",
 ButtonBox["The Maxwell Speed Distribution",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/TheMaxwellSpeedDistribution/"], 
    None}],
 "). According to the equipartition theorem, the average kinetic energy of \
each atom is ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox[
     SubscriptBox["E", "k"], "_"], "=", 
    RowBox[{
     FractionBox["3", "2"], " ", 
     SubscriptBox["k", "B"], " ", "T"}]}], TraditionalForm]], "InlineMath"],
 ", which shows that, at the microscopic level, the temperature is a direct \
measure of the energy associated with the disordered atomic motion. The \
atomic collisions with the container walls are at the origin of the force \
exerted on the wall that is commonly expressed as the gas pressure (see also ",
 ButtonBox["Simulation of a Simple Gas Pressure Model",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/\
SimulationOfASimpleGasPressureModel/"], None}],
 "). The temperature here is measured in Kelvin (K), and in classical theory \
all motion comes to a halt at the absolute zero of temperature (",
 Cell[BoxData[
  FormBox[
   RowBox[{"T", "=", 
    RowBox[{"0", 
     StyleBox["K",
      FontSlant->"Plain"]}]}], TraditionalForm]], "InlineMath"],
 "). The absolute (Kelvin) temperature scale is related to the most commonly \
used temperature scales of Celsius and Fahrenheit by simple linear relations \
(see also ",
 ButtonBox["Temperature Scales",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/TemperatureScales/"], None}],
 " and  ",
 ButtonBox["Celsius and Fahrenheit Thermometers",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/CelsiusAndFahrenheitThermometers/"]\
, None}],
 ")."
}], "DetailNotes",
 CellID->869217804],

Cell["RELATED LINKS", "RelatedLinksSection"],

Cell[TextData[{
 ButtonBox["Celsius and Fahrenheit Thermometers",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/CelsiusAndFahrenheitThermometers/"]\
, None}],
 " (",
 ButtonBox["Wolfram Demonstrations Project",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 ")"
}], "RelatedLinks",
 CellID->193785047],

Cell[TextData[{
 ButtonBox["Simulation of a Simple Gas Pressure Model",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/\
SimulationOfASimpleGasPressureModel/"], None}],
 " (",
 ButtonBox["Wolfram Demonstrations Project",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 ")"
}], "RelatedLinks",
 CellID->74791387],

Cell[TextData[{
 ButtonBox["Temperature Scales",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/TemperatureScales/"], None}],
 " ",
 " (",
 ButtonBox["Wolfram Demonstrations Project",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 ")"
}], "RelatedLinks",
 CellID->22899308],

Cell[TextData[{
 ButtonBox["The Maxwell Speed Distribution",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/TheMaxwellSpeedDistribution/"], 
    None}],
 " (",
 ButtonBox["Wolfram Demonstrations Project",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 ")"
}], "RelatedLinks",
 CellID->8896439],

Cell[TextData[{
 ButtonBox["Thermal Energy",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/ThermalEnergy/"], None}],
 " (",
 ButtonBox["Wolfram Demonstrations Project",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 ")"
}], "RelatedLinks",
 CellID->620466788],

Cell[BoxData[
 ButtonBox[
  PaneSelectorBox[{False->Cell[BoxData[
    GraphicsBox[RasterBox[CompressedData["
1:eJztmjlPZFcQhZH8H5z7LzmYFGkSyAwZkEEGZEDEkrBEbAEgAjCLxS6xCbEP
Bnu8SAYaRoIEhPDnPqJcvm/p17THyJp3pGnVPbdu1bl1T7dGo/nm/Xffvv+q
qqrqa/78wJ+/4ufn56enp4eHh7u7u9vb25ubm0KhcFNEoQiCT0Wwa4wA88kh
WCYhKS39eKAtCUFCSUmW4AN/96T6sY30qa1gUCk6NdiUK8Q+ij9riFZOR5YZ
xu5yFsNgG8zzXMTV1dX5+fmHHDnKBLbBPHLR2dnZW8vJ8X8F5pGLbJkjRxbI
LfZpv0U5crwauYuEpaWlmZkZPt9ayN/Y39+fKeKthZSGXPRj+WhoaHjnwHJi
YsJ2mUBra2t1dTVbzc3NvI5tQZKsWLu+Znd3t+LZ2Vl2fZBSFlIyCIaHhwnI
hEdSTU0Ny46ODl/cgyLKEYitbFI7JOkIu6ps12HLKtNOaXV1dTYcApaQlOWs
dEbBlkkik0t5wYgRjwCrAK9H4dOrKtmRg/39/cr0j5gdctG5A+R5BiCyra3t
+xcQo5PAdhkgd5+cnCRG/8HBATzL6iKISdYDaUunenp6FMe6yMpyWZVlJkxA
cyZTw9cAdZCnJNDYoy7iOGfZ3dzcZMkn70KLlHbwkLwL+lGrL4U0+wloi7Mw
UrW1tUUsQxKwRQJzi87WzhIzHJacYnRaqiNLElCi7uJVWfniM3bkOpxCIQl2
hRQEJom6KCP8iwvIQwwBYvw8dUHNpK0IlsvLywMDA3omzSeoqev7IKksdShi
VqS+BmiBQHIgGHBWlvZQl5RbeN538TySKO6Ho++al8QQ7O4GGvk6wWzlBLus
hoPUgMc2sUOI7Wh12GVEfpgZIRddFMHyIjMaGxvp6JmVlRWUbG9vS1JsMgqn
pqZYjoyMcFNI+Spa04pEg6Ds4eGhfrEp3viCqMKoYIBaZHtGXSBTbqFXFgmj
dgHvY19BRTyCHOaDH6I64YN2vlHA2zJLR4HnYIwEdO/s7IzNSYJ3UVmIfRTd
SPPncY3XD6ZsBi/z6MfTDy2Li6JlFVOcUvoq2QD9NHxyFBznp4MjtJCrU9pl
dJHePRiat7rMH+REfRLs6q0F5JmLPM/FbQglO14UXcor8NXWcwTfrJKQi34q
H0jq7e0NSBTOzc0RyM8iEQa/uroK09LSAkOO/tqpBJLJUU34o6Mj4sHBQSWQ
7DOjZXd2duDVF2iAqmDVVCQqGFDBfsrwj9VJauevCaipduItn5saTzKl0Ikk
ekkSoJ0G4uELxqqVP+2yVDZe8qgPaUMo2VFqAWkMgSNJ3ZMgF/1cPuQizzAl
LsIn8ejoKHFtba0eqL29HZIlvJIhqaC4vQjVJJ80/SaInJ+fJ1ZmbFlVUEHx
6nJ8fMxS8+STU4FguwhYW1uLbiW1I0aVYj268WRaQTX1d1E7SWKLINqXpvAp
k9dlNSi7rB8CxyUjY0cYLMS4KIUtU1onQS76WD5Q1dfX55muri502nJ3d3do
aIgcRIpZWFg4OTlRDEmCZSpHJGmcGhsbs1MMJ6WsMD093VcE+UbSjjqQnIoK
FijujxCTmd7OX8TEG28aiHUWbVGpbFkRD8hA0sfItOmoCjZDX1kD9LdI71g5
KnER5l94gb4Iwbj+FQQuejWSXATPN1HPwWd9fT3LyttVAr6P/GjoeyRbRn2V
jsBFnxty0S/lo6mp6Z0Dw8dCr6hTEnJR5XUQzGyj/Pr6OuLtIqSdnp5W3q5C
IFX/mKZ/LRwfHy/3OBf5TNqikIt+/eKxsbGxuLi4t7f31kL+gcUiMib/Z54B
QevcRTkqh1z0W44cFcBc9HuOHK+Cuejq6kqmSsnMnZYjgFxh/2P28fHx/v6+
UChcXl7+EQf46+vrpN0cXyAwA4bBNpgHC/0JwypFcA==
      "], {{0, 0}, {194, 22}}, {0, 255},
      ColorFunction->RGBColor],
     ImageSize->{194, 22},
     PlotRange->{{0, 194}, {0, 22}}]]], True->Cell[BoxData[
    GraphicsBox[RasterBox[CompressedData["
1:eJztmjtPLEcQhZH8H5z7LzlwinQjiCwIIYQQyICMRwRkPCIQCRgIeCa8At6S
vetrW2aXlTYAhD/PEeW63TOzu4wxsj1HYlVdXV11qvrMLEJ88+n7bz991dXV
9TU/m/z8ab+8vDw/Pz8+PjabzUaj8fDwUK/XHxLUE2A0XmEeofHPwnPLQhBQ
pFBqLT+crELaCgaVw9OOZGVOvRR/1hBnbtlpyxmm7nIWwSAbxPOSoFarVSqV
H0uU6BDIBvFIRR/NpcS/G6WKShRHqaISxVGqSNjd3d3Y2ODzo4n8hYuLi40E
H02kNaSinzrHwMDAdw4sV1dXbffy8nJkZKS7u5utoaGhvb0928JJsGzt+pxT
U1OyNzc32fVGTlqcooGxuLiIQSR+KPX09LAcHx/3yT1IohgB29JmlYOSjrCr
zNYOW5aZcgrr6+uz4WCwxElazopnDLaMEpE05QlDRn4IWAb8uhQ+PauWFTk4
NzenSH+J7UMqqjjgrLQBSI6Ojv7wCmx4YtguA6T3tbU1bPhfXV3hZ9mdAJtg
XZC2dGp6elp2qoosLc0qLTNhApozkRq+BqiDXCWGxh6riOOcZff4+Jgln9wL
JXLK4cfJvcAftnooxNlPQFucxTMxMcHWyckJtgSJwRYBzC2erZ3FZjgsOcXo
tFRFlgTARNXlV2bFy99mRdrhFAwJsBZyEIgkVlGb8DcuQA8yGJDx81SDmslo
Apb7+/vcvq5J8wlyqn1vZKUlD0lMiuTXAM0QCA4IAykwcKpKThfe76t4P5RI
7oejZ81TYgjWu4FCPk8wWynBmtVwoBr4kU3qEFIrWh52GZEfZpuQiqoJWFbb
xuDgIBW95+DgACanp6eilBoszbBcWloaHh7GKV3FOS1JbARpr6+v9cYm+eAr
YoYxYQBbaHuPquDM6UK3LCcelQv83vYZlMQjiNHrOuaJPyjnCwV+W7ZTUeA6
GCMG1Xl5psZkwauoI6ReijrS/Llc8+uFKZnhl3j08vRDa0dFcVrZJCeVHiUb
oJ+GD47B8fn5eY5QQqrOKdeminTvwdC81CX+ICbWSbCruxagZyryfhq3IbSs
WE1Uyi3waOs6gierJd5DRdUv9QwxPd14EHw1uSD92qkAgjVwtayL407jV1Bq
Wk3Ars8GSAbLpiSpKiKDvcr0vWNbqeWquSqyeDo1v34DhCeUqGXKpJwG4pGv
Ij2Jpk/K6RmUX/TIj9OG0LKi2ALCGAJHsqpnQSr6uXNAcmZmxnvOzs5ohE/s
5eVl3Ut/f7+ebpws8SsYJxlk60tNOYnXs2Ontra2sBWZmlYZlFB+Vbm5uWGp
efLJqYCwNQKYf7yVVQ4bVrLJaY3gJ9ISqqjvReVEiS099XFR/DmTV7MalDXr
h8Bx0WizIh4kxLhINTk5mVM6C1LR584hFXkPBHp7e22JnBYWFog5PDyUZ3t7
+/b2VjZOAixSMXISxik6slMMJyetsL6+PpOAeHNSjjw4ORUTFkjuj2ATmV/O
N2LkzW8csHUWbjFVtiyJB86A0udo2lRUBpuhz6wB+i7yKxZHERWNjY1tvwKb
3oNx/S0IVPRmZKkIP0+iroNPnmKWxcsVAc8jLw09R5JlrKt8BCp6b0hFv3QO
vagNDB8JvSFPS+zs7JC/eB4Iz87Oxv6joyN9YQmE3d3dFS9XEFDVH9P018KV
lZVOj9PIO3GL8WYV/ceAlpDr+fn5RxP5AjsJPppFa5QqKlEcUtGvJUoUgKno
txIl3gRTUa1Wk6hyIkullQggVdh/zD49PTWbzXq9fn9//3sa8BOctVvifwjE
gGCQDeJBQn8AEYN5ZQ==
      "], {{0, 0}, {194, 22}}, {0, 255},
      ColorFunction->RGBColor],
     ImageSize->{194, 22},
     PlotRange->{{0, 194}, {0, 22}}]]]}, Dynamic[
    CurrentValue["MouseOver"]]],
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/versions/source.jsp?id=\
BoltzmannGas&version=0009"], None},
  ButtonNote->
   "http://demonstrations.wolfram.com/BoltzmannGas/BoltzmannGas-source.nb"]], \
"DemoSourceNotebookSection",
 CellFrame->{{0, 0}, {1, 1}},
 ShowCellBracket->False,
 CellMargins->{{48, 48}, {28, 28}},
 CellGroupingRules->{"SectionGrouping", 25},
 CellFrameMargins->{{48, 48}, {6, 8}},
 CellFrameColor->RGBColor[0.87, 0.87, 0.87]],

Cell["PERMANENT CITATION", "CitationSection"],

Cell[TextData[{
 "\"",
 ButtonBox["Boltzmann Gas",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/BoltzmannGas/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/BoltzmannGas/"],
 "\"",
 " from ",
 ButtonBox["the Wolfram Demonstrations Project",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 "\[ParagraphSeparator]\[NonBreakingSpace]",
 ButtonBox["http://demonstrations.wolfram.com/BoltzmannGas/",
  BaseStyle->"SiteLink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/BoltzmannGas/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/BoltzmannGas/"]
}], "Citations"],

Cell[TextData[{
 "Contributed by:  ",
 ButtonBox["Gianni Di Domenico",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Gianni+Di+\
Domenico"], None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Gianni+Di+Domenico"],
 " (Universit\[EAcute] de Neuch\[AHat]tel)",
 " and ",
 ButtonBox["Antoine Weis",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Antoine+Weis"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Antoine+Weis"],
 " (Universit\[EAcute] de Fribourg)"
}], "Author",
 FontColor->GrayLevel[0.6]],

Cell[TextData[{
 "\[Copyright] ",
 StyleBox[ButtonBox["Wolfram Demonstrations Project & Contributors",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
  FontColor->GrayLevel[0.6]],
 "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
 StyleBox[ButtonBox["Terms of Use",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/termsofuse.html"], None},
  ButtonNote->"http://demonstrations.wolfram.com/termsofuse.html"],
  FontColor->GrayLevel[0.6]]
}], "Text",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellMargins->{{48, 48}, {20, 50}},
 CellFrameColor->GrayLevel[0.45098],
 FontFamily->"Verdana",
 FontSize->9,
 FontColor->GrayLevel[0.6],
 CellTags->"Copyright"]
},
Editable->False,
Saveable->False,
ScreenStyleEnvironment->"Working",
CellInsertionPointCell->None,
CellGrouping->Manual,
WindowSize->{715, 650},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowElements->{
 "StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar", 
  "MenuBar"},
WindowTitle->"Boltzmann Gas",
DockedCells->{},
CellContext->Notebook,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->Notebook[{
   Cell[
    CellGroupData[{
      Cell[
      "Demonstration Styles", "Title", 
       CellChangeTimes -> {
        3.3509184553711*^9, {3.36928902713192*^9, 3.36928902738193*^9}, {
         3.3754479092466917`*^9, 3.3754479095123196`*^9}, {
         3.375558447161495*^9, 3.375558447395873*^9}, {3.37572892702972*^9, 
         3.375728927639103*^9}}], 
      Cell[
       StyleData[StyleDefinitions -> "Default.nb"]], 
      Cell[
       CellGroupData[{
         Cell[
         "Style Environment Names", "Section", 
          CellChangeTimes -> {{3.369277974278112*^9, 3.369277974396138*^9}}], 
         Cell[
          StyleData[All, "Working"], ShowCellBracket -> False]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Notebook Options", "Section", 
          CellChangeTimes -> {{3.374865264950812*^9, 3.374865265419568*^9}}], 
         Cell[
         "  The options defined for the style below will be used at the \
Notebook level.  ", "Text"], 
         Cell[
          StyleData["Notebook"], Editable -> True, 
          PageHeaders -> {{None, None, None}, {None, None, None}}, 
          PageFooters -> {{None, None, None}, {None, None, None}}, 
          PageHeaderLines -> {False, False}, 
          PageFooterLines -> {False, False}, 
          PrintingOptions -> {
           "FacingPages" -> False, "FirstPageFooter" -> False, 
            "RestPagesFooter" -> False}, CellFrameLabelMargins -> 6, 
          DefaultNewInlineCellStyle -> "InlineMath", DefaultInlineFormatType -> 
          "DefaultTextInlineFormatType", ShowStringCharacters -> True, 
          CacheGraphics -> False, StyleMenuListing -> None, 
          DemonstrationSite`Private`CreateCellID -> True, 
          DemonstrationSite`Private`TrackCellChangeTimes -> False]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Input/Output", "Section", 
          CellChangeTimes -> {{3.3756313297791014`*^9, 
           3.3756313299509783`*^9}}], 
         Cell[
         "The cells in this section define styles used for input and output \
to the kernel.  Be careful when modifying, renaming, or removing these \
styles, because the front end associates special meanings with these style \
names.    ", "Text"], 
         Cell[
          StyleData["Input"], CellMargins -> {{48, 4}, {6, 4}}], 
         Cell[
          StyleData["Output"], CellMargins -> {{48, 4}, {6, 4}}], 
         Cell[
          StyleData["DemonstrationHeader"], Deletable -> False, 
          CellFrame -> {{0, 0}, {0, 0}}, ShowCellBracket -> False, 
          CellMargins -> {{0, 0}, {30, 0}}, 
          CellGroupingRules -> {"SectionGrouping", 20}, 
          CellHorizontalScrolling -> True, 
          CellFrameMargins -> {{0, 0}, {0, 0}}, CellFrameColor -> 
          RGBColor[0, 0, 0], StyleMenuListing -> None, Background -> 
          RGBColor[0, 0, 0]], 
         Cell[
          StyleData["ShowSource"], CellFrame -> {{0, 0}, {0, 1}}, 
          ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 28}}, 
          CellFrameMargins -> {{48, 48}, {6, 8}}, CellFrameColor -> 
          RGBColor[0.87, 0.87, 0.87], StyleMenuListing -> None, FontFamily -> 
          "Helvetica", FontSize -> 10, FontWeight -> "Bold", FontSlant -> 
          "Plain", FontColor -> RGBColor[1, 0.42, 0]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Basic Styles", "Section", 
          CellChangeTimes -> {{3.34971724802035*^9, 3.34971724966638*^9}, {
           3.35091840608065*^9, 3.35091840781999*^9}, {3.35091845122987*^9, 
           3.35091845356607*^9}, {3.35686681885432*^9, 3.35686681945788*^9}, {
           3.375657418186455*^9, 3.375657418452083*^9}}], 
         Cell[
          StyleData["Hyperlink"], StyleMenuListing -> None, FontColor -> 
          GrayLevel[0]], 
         Cell[
          StyleData["SiteLink"], StyleMenuListing -> None, 
          ButtonStyleMenuListing -> Automatic, FontColor -> 
          GrayLevel[0.45098], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FrontEndExecute[{
               NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], 
         Cell[
          StyleData["Link"], FontColor -> GrayLevel[0.45098]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DemoNotes"], CellFrame -> True, 
             CellMargins -> {{0, 0}, {0, 0}}, 
             CellFrameMargins -> {{48, 48}, {4, 4}}, CellFrameColor -> 
             GrayLevel[0.99], StyleMenuListing -> None, FontFamily -> 
             "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.45098], 
             DemonstrationSite`Private`ReturnCreatesNewCell -> True], 
            Cell[
             StyleData["DemoNotes", "Printout"], 
             CellMargins -> {{24, 0}, {0, 10}}, FontSize -> 9]}, Open]], 
         Cell[
          StyleData["SnapshotsSection"], CellFrame -> {{0, 0}, {0, 2}}, 
          ShowCellBracket -> False, ShowGroupOpener -> True, 
          CellMargins -> {{48, 48}, {10, 30}}, 
          PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, 
          CellGroupingRules -> {"SectionGrouping", 30}, 
          CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> 
          RGBColor[0.870588, 0.521569, 0.121569], DefaultNewCellStyle -> 
          "SnapshotCaption", StyleMenuListing -> None, FontFamily -> 
          "Verdana", FontSize -> 12, FontColor -> GrayLevel[0.45098]], 
         Cell[
          StyleData[
          "SnapshotCaption", StyleDefinitions -> StyleData["DemoNotes"]], 
          ShowCellBracket -> False], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SnapshotOutput"], ShowCellBracket -> False, 
             CellMargins -> {{48, 10}, {5, 7}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, DefaultFormatType -> 
             DefaultInputFormatType, ShowAutoStyles -> True, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, 
             AutoItalicWords -> {}, LanguageCategory -> "Mathematica", 
             FormatType -> InputForm, NumberMarks -> True, 
             LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> 
             "Input", MenuSortingValue -> 1500, MenuCommandKey -> "9", 
             DemonstrationSite`Private`StripStyleOnPaste -> True], 
            Cell[
             StyleData["SnapshotOuput", "Printout"], 
             CellMargins -> {{39, 0}, {4, 6}}, 
             LinebreakAdjustments -> {0.85, 2, 10, 1, 1}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DemoTitle"], Deletable -> False, ShowCellBracket -> 
             False, CellMargins -> {{48, 48}, {22, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 20}, StyleMenuListing -> 
             None, FontFamily -> "Verdana", FontSize -> 20, FontWeight -> 
             "Bold", FontColor -> RGBColor[0.597406, 0, 0.0527047], 
             Background -> GrayLevel[1]], 
            Cell[
             StyleData["DemoName", "Printout"], 
             CellMargins -> {{24, 8}, {8, 27}}, 
             HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 
             16]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DetailsSection"], CellFrame -> {{0, 0}, {1, 0}}, 
             ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 28}}, 
             CellGroupingRules -> {"SectionGrouping", 25}, 
             CellFrameMargins -> {{48, 48}, {6, 8}}, CellFrameColor -> 
             RGBColor[0.87, 0.87, 0.87], StyleMenuListing -> None, FontFamily -> 
             "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> 
             RGBColor[0.597406, 0, 0.0527047]], 
            Cell[
             StyleData["DetailsSection", "Printout"], 
             CellMargins -> {{12, 0}, {0, 16}}, PageBreakBelow -> False, 
             FontSize -> 12]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DemoSection"], CellFrame -> {{0, 0}, {1, 0}}, 
             ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 28}}, 
             CellGroupingRules -> {"SectionGrouping", 30}, 
             CellFrameMargins -> {{48, 48}, {6, 8}}, CellFrameColor -> 
             RGBColor[0.87, 0.87, 0.87], StyleMenuListing -> None, FontFamily -> 
             "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> 
             RGBColor[0.597406, 0, 0.0527047]], 
            Cell[
             StyleData["DemoSection", "Printout"], 
             CellMargins -> {{12, 0}, {0, 16}}, PageBreakBelow -> False, 
             FontSize -> 12]}, Open]], 
         Cell[
          StyleData["ManipulateSection"], CellFrame -> {{0, 0}, {0, 2}}, 
          ShowCellBracket -> False, CellMargins -> {{48, 48}, {10, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, 
          CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> 
          RGBColor[0.870588, 0.521569, 0.121569], StyleMenuListing -> None, 
          FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["ManipulateCaptionSection"], 
          CellFrame -> {{0, 0}, {0, 2}}, ShowCellBracket -> False, 
          CellMargins -> {{48, 48}, {10, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, 
          CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> 
          RGBColor[0.870588, 0.521569, 0.121569], DefaultNewCellStyle -> 
          "ManipulateCaption", StyleMenuListing -> None, FontFamily -> 
          "Verdana", FontSize -> 12, FontColor -> GrayLevel[0.45098]], 
         Cell[
          StyleData["ManipulateCaption"], ShowCellBracket -> False, 
          CellMargins -> {{48, 48}, {10, 16}}, StyleMenuListing -> None, 
          FontFamily -> "Verdana", FontSize -> 12, FontColor -> GrayLevel[0], 
          DemonstrationSite`Private`ReturnCreatesNewCell -> True], 
         Cell[
          StyleData[
          "SeeAlsoSection", StyleDefinitions -> StyleData["DemoSection"]], 
          ShowCellBracket -> False, DefaultNewCellStyle -> "SeeAlso"], 
         Cell[
          StyleData["SeeAlso", StyleDefinitions -> StyleData["DemoNotes"]], 
          CellDingbat -> 
          Cell["\[FilledSmallSquare]", FontColor -> 
            RGBColor[0.928786, 0.43122, 0.104662]], ShowCellBracket -> False, 
          FontColor -> GrayLevel[0.45098]], 
         Cell[
          StyleData[
          "RelatedLinksSection", StyleDefinitions -> 
           StyleData["DemoSection"]], ShowCellBracket -> False, 
          DefaultNewCellStyle -> "RelatedLinks"], 
         Cell[
          StyleData[
          "RelatedLinks", StyleDefinitions -> StyleData["DemoNotes"], 
           FontColor -> RGBColor[0.928786, 0.43122, 0.104662]], 
          ShowCellBracket -> False, FontColor -> GrayLevel[0.45098]], 
         Cell[
          StyleData[
          "CategoriesSection", StyleDefinitions -> StyleData["DemoSection"]], 
          ShowCellBracket -> False, DefaultNewCellStyle -> "Categories"], 
         Cell[
          StyleData["Categories", StyleDefinitions -> StyleData["DemoNotes"]],
           ShowCellBracket -> False], 
         Cell[
          StyleData[
          "AuthorSection", StyleDefinitions -> StyleData["DemoSection"]], 
          ShowCellBracket -> False, CellMargins -> {{48, 48}, {4, 18}}, 
          CellElementSpacings -> {"CellMinHeight" -> 3}, 
          CellFrameMargins -> {{48, 48}, {6, 3}}, DefaultNewCellStyle -> 
          "Author", FontSize -> 1, FontColor -> GrayLevel[1]], 
         Cell[
          StyleData[
          "Author", StyleDefinitions -> StyleData["DemoNotes"], FontColor -> 
           GrayLevel[0.64]], ShowCellBracket -> False], 
         Cell[
          StyleData[
          "DetailNotes", StyleDefinitions -> StyleData["DemoNotes"]], 
          ShowCellBracket -> False, FontColor -> GrayLevel[0]], 
         Cell[
          StyleData[
          "CitationSection", StyleDefinitions -> StyleData["DemoSection"]], 
          ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 14}}, 
          DefaultNewCellStyle -> "Categories"], 
         Cell[
          StyleData["Citations", StyleDefinitions -> StyleData["DemoNotes"]], 
          ShowCellBracket -> False, ParagraphSpacing -> {0, 6}], 
         Cell[
          StyleData[
          "RevisionSection", StyleDefinitions -> StyleData["DemoSection"]], 
          DefaultNewCellStyle -> "RevisionNotes"], 
         Cell[
          StyleData[
          "RevisionNotes", StyleDefinitions -> StyleData["DemoNotes"]], 
          ShowCellBracket -> False]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Specific Styles", "Section", 
          CellChangeTimes -> {{3.34971724802035*^9, 3.34971724966638*^9}, {
           3.35091840608065*^9, 3.35091840781999*^9}, {3.35091845122987*^9, 
           3.35091845356607*^9}, {3.36230868322317*^9, 3.36230868335672*^9}, {
           3.36928857618576*^9, 3.36928857640452*^9}, {3.3737586217185173`*^9,
            3.373758622077897*^9}}], 
         Cell[
          StyleData["InitializationSection"], CellFrame -> {{0, 0}, {0, 2}}, 
          ShowCellBracket -> False, CellMargins -> {{48, 48}, {10, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, 
          CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> 
          RGBColor[0.870588, 0.521569, 0.121569], StyleMenuListing -> None, 
          FontFamily -> "Verdana", FontSize -> 12, FontColor -> 
          GrayLevel[0.45098]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["AnchorBar"], ShowCellBracket -> False, 
             CellMargins -> {{48, 44}, {3, 6}}, StyleMenuListing -> None, 
             FontFamily -> "Verdana", FontSize -> 9, FontColor -> 
             GrayLevel[0.5]], 
            Cell[
             StyleData["AnchorBar", "Presentation"], FontSize -> 18], 
            Cell[
             StyleData["AnchorBar", "SlideShow"], StyleMenuListing -> None], 
            Cell[
             StyleData["AnchorBar", "Printout"], FontSize -> 9]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["AnchorLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, FontColor -> 
             RGBColor[0.5, 0.5, 0.5], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> 
               ButtonData}], 
            Cell[
             StyleData["AnchorLink", "Printout"], 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["GamePadStatus"], ShowCellBracket -> False, 
             CellMargins -> {{48, 48}, {5, 5}}, StyleMenuListing -> None, 
             FontFamily -> "Verdana", FontSize -> 10], 
            Cell[
             StyleData["GamePadStatus", "Printout"], 
             CellMargins -> {{24, 0}, {0, 10}}, FontSize -> 9]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DemoInstruction"], CellMargins -> {{48, 48}, {5, 5}}, 
             CellFrameLabelMargins -> 2, MenuSortingValue -> 800, 
             MenuCommandKey -> "8", StyleMenuListing -> None, FontFamily -> 
             "Verdana", FontSize -> 11, Background -> RGBColor[1, 0.85, 0.5], 
             DemonstrationSite`Private`ReturnCreatesNewCell -> True], 
            Cell[
             StyleData["DemoInstruction", "Printout"], 
             CellMargins -> {{24, 0}, {0, 10}}, Hyphenation -> True, 
             HyphenationOptions -> {"HyphenationCharacter" -> "-"}, 
             LineSpacing -> {1., 2, 2.}, FontSize -> 9]}, Open]], 
         Cell[
          StyleData[
          "ImplementationSection", StyleDefinitions -> 
           StyleData["DemoSection"]], Deletable -> True, DefaultNewCellStyle -> 
          "ImplementationNotes"], 
         Cell[
          StyleData[
          "ImplementationNotes", StyleDefinitions -> StyleData["DemoNotes"]]], 
         Cell[
          StyleData[
          "StatusSection", StyleDefinitions -> StyleData["DemoSection"]], 
          DefaultNewCellStyle -> "StatusNotes"], 
         Cell[
          StyleData[
          "StatusNotes", StyleDefinitions -> StyleData["DemoNotes"]]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SectionGloss"], StyleMenuListing -> None, FontSize -> 
             0.85 Inherited, FontWeight -> "Plain", FontColor -> 
             GrayLevel[0.6]], 
            Cell[
             StyleData["SectionGloss", "Printout"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineFormula"], 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
             AutoMultiplicationSymbol -> False, SingleLetterItalics -> False, 
             SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> 
             "Courier", FontSize -> 1.05 Inherited, 
             ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
             FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, 
             GridBoxOptions -> {
              GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["InlineFormula", "Printout"], 
             CellMargins -> {{2, 0}, {0, 8}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineOutput"], CellHorizontalScrolling -> True, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             None, AutoMultiplicationSymbol -> False, StyleMenuListing -> 
             None, FontFamily -> "Courier", FontSize -> 1.05 Inherited], 
            Cell[
             StyleData["InlineOutput", "Printout"], 
             CellMargins -> {{2, 0}, {0, 8}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineMath"], DefaultFormatType -> 
             "DefaultTextFormatType", DefaultInlineFormatType -> 
             "TraditionalForm", LanguageCategory -> "Formula", AutoSpacing -> 
             True, ScriptLevel -> 1, AutoMultiplicationSymbol -> False, 
             SingleLetterItalics -> True, SpanMaxSize -> DirectedInfinity[1], 
             StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 
             1.05 Inherited, 
             ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
             GridBoxOptions -> {
              GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["InlineMath", "Printout"], 
             CellMargins -> {{2, 0}, {0, 8}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TableBase"], CellMargins -> {{48, 48}, {4, 4}}, 
             SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> 
             "Courier", FontSize -> 11, 
             ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["TableBase", "Printout"], 
             CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "1ColumnTableMod", StyleDefinitions -> StyleData["TableBase"]], 
             GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.04], {
                    Scaled[0.966]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
                  "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.28], 
                   Offset[0.126], {
                    Offset[0.77]}, 
                   Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData[
             "1ColumnTableMod", "Printout", StyleDefinitions -> 
              StyleData["TableBase", "Printout"]], 
             GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.078], {
                    Scaled[0.922]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
                  "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.28], {
                    Offset[0.56]}, 
                   Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.56]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "2ColumnTableMod", StyleDefinitions -> StyleData["TableBase"]], 
             GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.05], 
                   Scaled[0.41], {
                    Scaled[0.565]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
                  "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.28], 
                   Offset[0.14], {
                    Offset[0.77]}, 
                   Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData[
             "2ColumnTableMod", "Printout", StyleDefinitions -> 
              StyleData["TableBase", "Printout"]], 
             GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.079], 
                   Scaled[0.363], {
                    Scaled[0.558]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
                  "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.28], {
                    Offset[0.56]}, 
                   Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.56]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "3ColumnTableMod", StyleDefinitions -> StyleData["TableBase"]], 
             GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.04], 
                   Scaled[0.266], 
                   Scaled[0.26], {
                    Scaled[0.44]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.28], 
                   Offset[0.14], {
                    Offset[0.77]}, 
                   Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData[
             "3ColumnTableMod", "Printout", StyleDefinitions -> 
              StyleData["TableBase", "Printout"]], 
             GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.08], 
                   Scaled[0.25], 
                   Scaled[0.25], {
                    Scaled[0.42]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.28], {
                    Offset[0.56]}, 
                   Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.56]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TableText"], Deletable -> False, StyleMenuListing -> 
             None, FontFamily -> "Verdana", FontSize -> 0.952 Inherited], 
            Cell[
             StyleData["TableText", "Printout"], 
             CellMargins -> {{24, 0}, {0, 8}}, Hyphenation -> True, 
             HyphenationOptions -> {"HyphenationCharacter" -> "-"}, 
             LineSpacing -> {1., 2, 2.}]}, Open]], 
         Cell[
          StyleData["Continuation"], FontColor -> GrayLevel[1]]}, Closed]]}, 
     Open]]}, Visible -> False, FrontEndVersion -> 
  "8.0 for Microsoft Windows (32-bit) (November 7, 2010)", StyleDefinitions -> 
  "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ControlSuggestions"->{
  Cell[93020, 1588, 258, 7, 70, "ManipulateCaption",
   CellTags->"ControlSuggestions"],
  Cell[93281, 1597, 2980, 67, 70, "ManipulateCaption",
   CellTags->"ControlSuggestions"]},
 "Copyright"->{
  Cell[109487, 2039, 818, 23, 70, "Text",
   CellTags->"Copyright"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ControlSuggestions", 136152, 2608},
 {"Copyright", 136349, 2613}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[577, 21, 34328, 567, 70, "DemonstrationHeader"],
Cell[34908, 590, 34, 0, 70, "DemoTitle"],
Cell[34945, 592, 57267, 978, 70, "Output",
 CellID->156247736],
Cell[92215, 1572, 802, 14, 70, "ManipulateCaption",
 CellID->334012762],
Cell[93020, 1588, 258, 7, 70, "ManipulateCaption",
 CellTags->"ControlSuggestions"],
Cell[93281, 1597, 2980, 67, 70, "ManipulateCaption",
 CellTags->"ControlSuggestions"],
Cell[96264, 1666, 33, 0, 70, "DetailsSection"],
Cell[96300, 1668, 1214, 34, 70, "DetailNotes",
 CellID->110626342],
Cell[97517, 1704, 1383, 55, 70, "DetailNotes",
 CellID->92205165],
Cell[98903, 1761, 2133, 58, 70, "DetailNotes",
 CellID->869217804],
Cell[101039, 1821, 44, 0, 70, "RelatedLinksSection"],
Cell[101086, 1823, 442, 14, 70, "RelatedLinks",
 CellID->193785047],
Cell[101531, 1839, 450, 14, 70, "RelatedLinks",
 CellID->74791387],
Cell[101984, 1855, 413, 14, 70, "RelatedLinks",
 CellID->22899308],
Cell[102400, 1871, 433, 14, 70, "RelatedLinks",
 CellID->8896439],
Cell[102836, 1887, 400, 13, 70, "RelatedLinks",
 CellID->620466788],
Cell[103239, 1902, 4775, 89, 70, "DemoSourceNotebookSection",
 CellGroupingRules->{"SectionGrouping", 25}],
Cell[108017, 1993, 45, 0, 70, "CitationSection"],
Cell[108065, 1995, 736, 20, 70, "Citations"],
Cell[108804, 2017, 680, 20, 70, "Author"],
Cell[109487, 2039, 818, 23, 70, "Text",
 CellTags->"Copyright"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature jTabbEnkQMDp2vACmHsi26V9 *)