(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    238644,       5284]
NotebookOptionsPosition[    228217,       4949]
NotebookOutlinePosition[    228734,       4969]
CellTagsIndexPosition[    228691,       4966]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["TP 5 - FONCTIONS - CORRIG\[CapitalEAcute]", "Subtitle",
 CellChangeTimes->{{3.46028363771875*^9, 3.46028364040625*^9}, {
   3.462504974640625*^9, 3.46250497565625*^9}, 3.4626766964375*^9}],

Cell[TextData[{
 StyleBox["Ex1) ", "Subsubtitle"],
 " Il s'agit de la valeur absolue, de la factorielle, de la suite de \
Fibonacci, et de la s\[EAcute]rie harmonique."
}], "Subsubtitle",
 CellChangeTimes->{3.462676540234375*^9, 3.469801562078125*^9, 
  3.469809041703125*^9, 3.46980955925*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"x", ">", "0"}], ",", "x", ",", 
     RowBox[{"-", "x"}]}], "]"}]}], ";", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460637074296875*^9, 3.4606370981875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1f831XccwHFf5jAknNFMV77EuEmocTDn1ZoshTAdOiZfdkYHjTmE6UhS
6CgdZFaKnUtjddxENevyKtzj28x3ypc63DHVfP/SdVfutnNevT8/PM/jT3ia
hMf6faOkoKCQ8l//awP6L+VyOZIQu26WvS6TIwl3au0sllflSIK9pVf49Cs5
kuCokzny+7AcSdgrWez4UShHEvyyum7tDpEjCUndmSciGzeQhIEBjZePw94i
CbxHsR84bn2DJNyLblHZPC5DEkJz7RaeZqwjCdL81GwEKZIg0HpmUDyxhiSU
HLSL789ZRRIyYsKSrTxWkIRU5V+S4meXkISw9O7tQ5WLSMKVhqnikqgFJOG3
55aat03nkAQz7b37/G+8QhLu8rOjJiUzSMJzcY2xg8M0kjBlfcUe70uQBJ20
KgcbxQkkwdph3rpieQxJOOs221OfPIwk6PlXXz66pQ9JuLsm3ty2vQNJqBid
uvgisxFJGDmlX3p9dyOSoGX0xR3fyQYk4WRoZV89NCAJ7lNRWy7IHiIJM3Pz
Zfy4eiSBrySrjQ6qQxKOCfjibep1SEK+W9BQ/6+1SILsvEjqol+LJHRqnHbV
7K1BEp7w1S4dvViNJAT7bq0b/bocSfh7edUpsUWAJJwq6kYtcwGSUDKa0fnZ
9E9IQl1nn/hw7w0kQbgSYzYzUogk/OFkvMuwpABJmEvrd/YOzkcSAnUTyo9j
HpLwpYuWkmL7OSQhX5xgEHnoLJLQc3jUtqsrHUm41uaD9hVJSMKH47y5jap4
JGGHZNCpKDgaSbDQjPvBJjIMSUgfsBwwbPZCEqw3j0ep7NzDHFrMKNWWBjIX
Dn+8FBsfwUwtcO+I3hPH3EhLuVa6K5GZHnU7pp//PbPZOCfrunYGM7PINM7x
UibTXVMU2KuRxWx7PWeloprLjIzkR9zfyGfWq6cONiUKmGU79fqFpuXM8z7C
npJuTv8iSedJq5vMBRPPJv54JdPCiSfMd6tmtteGuNXk1DE/mVQ0OhOITLOF
h+vOTe1MD8HTLu/APuZ+L13l1XvDzLyQ4XTbB2PMVm/eJh/dCeasiV5a31UJ
MzFhR1ie/jRzeEzbL6Jthhma8ulfqp6vmM07HC80q8wxLd4XzZQfWGDyRNH7
VbIXmQoypar4ySXma9+GY2LzFebonhBD88xVZlyAto7p2BrToPDPwPd4UmZ1
UNnPy8nrzADX0wfaGmTMmmMnTJ3f/MOUqn+uXH/kLdOv18WBV7zBVHfReCy6
zvm4fOTQVwJO2+SUsGvVnFrbHuQaiDnbY+wlekuce9WsLmt5ypnS76QfVfty
CkdbK7wCOI2EEQ9zwznfHCmfVk/hfCDY5qp6k/PbTfOtN29xWiQ1+rnXcBYe
DD5+TsQZv3i1QLmfkx8UZSR4wjnR4lS17xmnT/GTxjMvONWUKj1M5jkxOmng
0QrnyUH3kFAZ57vvvvNfK8TqcA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{169.9999999999999, Automatic},
  PlotRange->{{-2, 2}, {0., 1.999999918367347}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.460637068203125*^9, 3.460637099796875*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzVmllsVkUUxz+4XdksyC5IWQtU2fdFtm4shbYsAiLQhdLSlVIWQRNIVF40
JvqgvsiLxkRNxJBATDAaSVQSI4mRxKiJwcTgg8RE4gPRpHbmnJn5/vV/P0pb
EiS0vffOnd+Z+58z58yduaWV7XUHmirb66src4vbKlvr6quP5Ba1tHVeivol
EomOzp8LuQlzbA71V0fn/w5zEv9nkPmTbu5ebI4ic9Tqj5b40rSk2xP2ij1y
P/7mRARlreTa4hQMNTOYVFvaTTxrRroaiLwh8y/D/Eont+eb31lxpcwoa5w+
y0OxEtwdu4xci+4rNocULeomdjm51v++YlO5oxWjvzk67I+WdtP1onBzNx0u
Ct7CB9oZqdmRXPNUb4pse/+WtmeT2/6P17Lk2qctzRfM9Q9Pnfw4MeABal9v
rukAe5Ca1JtrmTKUzr75xtUT77x9zZSZv+b8gWrnfeqypeSaBLTMsiuf/2w9
t8PWtuXm3Fx32emuLDX9nLRtzo8//P5lfd35rDt3/knGmnMzWJZc/+63xDNS
5Vmpn3P79p1r1VUf5N68+aeGy4xkC+a6KTf3nYCaBrj62je/2jOpmQlt6/wx
5ZeOtl+0DTou1SUuRa+89uoXre+/923SY+CjCTIy95h77dkxQZyUov2XLn5/
7uyLn9kzG+f6d/gIHb3+8ktX6j46f92eHZWK8uyR0cE03zYrPVbWyJSb5tvH
VISIEI2+desvI7XVLYMg0sh97YI4Hui+VzIJIp209ggg4BkZQlu285PLP717
5vRle9YmiGNE36zYEYz9dVgQIkkEvXyXeO09RlKkShIlu5mEckvIIk6qFY8E
EY2+xvUTA+MH7PQbN/4wCNvGFkAYYYxA9owhNLUkD9hEsyBEy8iHNHM2iCAU
68KgPWsShGgZlVz96hcjoj0bTBCKNfeYe+1ZoyBaiYhD4hEgpyJaQpGR08jl
5o6AGEzkbACEj2HmjCGGEDkPCcKq2v/0ube+HuqHcw6RuF5ubyKkocRiDmlZ
nSAayfMMi0eAuymigaj6MEEMDb1kECYyJA4CAgYIQwwjA65WEIfIMB1OEIo1
UcNED3t2QBCiKobVEQQxnASfGkHUkZA10g/n4UFEH1a1oghhw6UR0Yozitge
Ee7zYbVaELWB7sPqaIIYSdpYBQjz9EYFe8YQo4hSlYIQLTGs2lxgp/6RnnfJ
k7aMBd/RpFf3i6Ea4guSdPiLiwZCKGO5bwzxxX1CqSZxJj2FyQHEZFq8SRhB
arKKjLuMnphMM+VjyGjfC4YgGfTIUJdne0SuQYx6WijiMRjZMvugB8eZ3zaK
qiHxGEwxWSkMZaT0yfFyDaLpU1J3X9DX9JZ1kOwUhjLJE7FpzPjgID47qcm9
pGhAH5h8lPj6bjAJAgz0kmX7IzYtnEC6YpdgpbNwjjCRIHKJ2+wUxB7ibJOs
NxjCJOLiT0pFETOCF4jJxPZEMhwVsZsM4ikEMSkI69PgDkBA6GEIbRmEvu2C
EC0xYE4lCMVCGtwmCNESg/s0gphKTG0VhEiCKSYvHgEJUREiCSa66da1DGEa
Ka2QitsJcwaxnUfaWA4ISPAMMZ0oVSaIbUTfmQQxg4i4RRBbSQPz4xHwwIqo
IL72GEHMJHJuFkR5oPtZxeMEkU9GUCkgYNwxhLYMXtY2CUJUxVnFLD+wZ5HI
sVEqbiHxZjaxPYvEtA2C2BxE9JFwTjwCIrEiSknRXIKYTUytBwQ0kCHmhNhg
+suelQjCamnz4nxScS6RuFgqipYYVhliHunoIkGIEJgZF/jhPC84mQ+rWnE9
kW4hsT2fSFcICJCOIRYQ6QoEUeKlW0wqLiTSrZOKxUQ6mwGSpsNkzT5KStVg
ahGReK2YKgoS+8ndFGIg1ayOpexFJAKoycLQOT7nTe0Dk4tDZ/q4tUZqFITW
+Gg3rScm7YRYDUGMXQ2GIDL3yBBfxoTMsEpqrCNFeX1gchl5lCekxloiwPS+
MwndpCbXkM6d0QcmlxNnXCk1VhMXtibtdtddXwW6GFoh1yDVrQBD8AI9kzxb
ZspBvpIEDXk69RQMNasIwmptA5ZWFPFxzmhbazOothtCpDiqawwE1jXE4qqg
sbnPBmpFrAhFPryvJYjVxNQSQEADGUJbBvleBrnzD3hvWEcQa4nEEgOdVwO9
gCAUC1FakoQb/pAIC+MRoJkilgRH9ynRBn9LKCAiLoCKIGIRsV0YfMUnQsmv
LmDCVKuYIIqIiJLlXT4B7y4hiGIiokxSXMKFEbg+HgEiKmIBiRYbCKKEyDkH
EPC6xhDrydCTmZ6btUBk3kgQG4icMt90cyd4CdnkB7bMn/FVRubebsIHob+U
2N4YROzyBuAmm+S9ARGbyH0y23dTXqBvIYhS0tp8QMAzMoS2DN4vJDi7uTtk
3jKC2EL6S3KXe6OBXi4niDLiNZJx3QsQZMYKP7DLiMdqxXzi51uJ7fIQfPwU
MQ8QMNoYooKMXpkWuUQHTrqNICzW5iatqNkfwqrNBT1aM1aTEOVkHuxmNjCY
NdwDvrsrjdtCl/hIrKbySNE6gu3uOur20HU+b0wGU/DA92TKWtpBOkHWqty0
F4J+QS+eRZeHIBPLypp7ewD3KuxFD+0kbi0LiO7dCAZDEcGmXg3eSYaeGphM
BmwxMdDdJdldJDxMAFOwOWqfxU5wmVjMgK4/QgiTdWC3agkuUEKwWV4sNnPW
ZVYIs7K27VZWyT4BInSJF4L9OEHkkg7d6/17T+gon2i04gTSUfuIbW0PpDHZ
33DL5fC+s58gdO0c0thYQMCTMYS2DBK+bOy4fQLQt5IgFAtpTLbaVBL0gSqC
UCykMdkWdFs+EGWr4xEguyLGklFlN/zspEZhMP0bCRVhvNcQ24qAuYDsrbpN
MkhjBwiihgwJ2eF125Ywga4liANk2MoGtdtiBREPxiPI7rvb6IU3sjqCqA3j
xqeWYYAgXw4g4iAZvbLf73asQaZ6grDY8O2D3y3/73cS1gcOkZbJ1xZuix/c
o4FYrCf6KGIYGemNBHGI9JJ83+E+d4CI0EQQDcRXBgMChilDNBKPlW9d3Hcb
ECyaCaKJBB/5aMd9wwIhqyUeAQFWEUOInPL5vCE0k1KZSrjPbUDEw8R2C2lj
NiDgyRiilSglCd99NwRhtY0gDpP+kjzrPoCCBtp0Yped9Fs/yKSp14HVPIRf
ybhuFgbTBEk7qZa4ur/81RYijp/Zquns0F0+bO8nz5Zql5+ZPEJGdDqYhIBf
SUze61O2E3dIA5PWT93tVcRkqk9DMrz3HyU0/ay1uSfQLs+hn8G3EFSqr2X6
EPW8HDX00AW1eqMfDmGK+YIUdbA/iX7/AmcEq1s=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "n_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"n", "==", "1"}], ",", "1", ",", 
     RowBox[{"n", " ", 
      RowBox[{"g", "[", 
       RowBox[{"n", "-", "1"}], "]"}]}]}], "]"}]}], ";", 
  RowBox[{"g", "[", "5", "]"}]}]], "Input",
 CellChangeTimes->{
  3.460636558078125*^9, {3.460636660484375*^9, 3.46063666590625*^9}}],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{3.46063666709375*^9}]
}, Open  ]],

Cell["\<\
Comparaison entre la fonction factorielle et la fonction Phi continue affine \
par morceaux telle que Phi (n) = n! pour n naturel :\
\>", "Text",
 CellChangeTimes->{{3.4627942575625*^9, 3.462794271625*^9}, 
   3.462794617765625*^9, 3.469801584671875*^9, 3.46980905221875*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Phi", "[", "x_", "]"}], ":=", 
   RowBox[{"Which", " ", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "\[LessEqual]", "1"}], " ", "&&", " ", 
      RowBox[{"x", "\[GreaterEqual]", "0"}]}], " ", ",", " ", "1", " ", ",", 
     RowBox[{"x", "\[LessEqual]", "0"}], " ", ",", " ", 
     RowBox[{
      RowBox[{"Phi", "[", 
       RowBox[{"x", "+", "1"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "+", "1"}], ")"}]}], " ", ",", "True", ",", 
     RowBox[{"x", " ", 
      RowBox[{"Phi", "[", 
       RowBox[{"x", "-", "1"}], "]"}]}]}], "]"}]}], ";", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Phi", "[", "x", "]"}], ",", 
      RowBox[{"Factorial", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "0.8"}], ",", "3"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"{", "Blue", "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.462794279203125*^9, 3.462794438390625*^9}, {
  3.462794649875*^9, 3.4627946891875*^9}, {3.4627947228125*^9, 
  3.462794727046875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxF13k8VPv/wPFjRjPWrM1YbiqpFFelbCXnXZaUUpQMuUhEUUohuS0iyRJl
ibgoJSlkaVP6UKjcm31rbIOxRmYsZRvz9fv9MefzeJzH8/H6PM7j8/78ec4q
F29rNxKGYXOLz//5WOa3d1LSEPJRYl/m8+VgZZT/AcmYIdTxvf27TY8cpIhM
awWFDqEQHvMFuUIO4vjTox7nh1Bmz+0mpwg5CBmd9dTfP4QmV0YvcJXlwOXr
gnsLNoSGfWNv2lrIQqfJ1d0WvwdRwQmDsuvasmBfyl+LRgfR/fMbRLiKsmD1
GuvPZA4iudT+8LtDMgCPSa5+RYPoRCVD+1uEDKgEUZyXeQyiIUMv5YNt0nB/
PhS/5TiI1KUN2fqV0kC7SF3BOzyI5H1ltY/kS4Okt0gne+cgeteRe0gjTBrm
HcQcipQHUYL9IUMNfWlg6i9lHKoZQF/tvwbU75SCe5xlB+/oDqCw1tPiXqqS
UDp+LElPcwBtnA58sguThMHJnJ6OVQPooUkv6WSnBGybMfXdIDmAPuxiPkpP
loAOIb/7n3r7UZevhWuqogSslmtmT8X0I9JfhRYzquKwb5mqVkpoP4ppgf8O
LRGHC/Qz/rv+7kcnzxh++zkgBpXKFLFo934k4n1XsjdHDE6q6W5UN+pH6/2p
vrmGYpCnkxBg/6MPCY9tGNrgJgqtej0fse4+lG+En9K2EAVsm5bEk+Y+1JQX
0XBmsyhYG1WmTpT1obX+eh3BCyIwZfbrU2RiH8q5cfybZLIIbGccWYpM+5Bu
onPTyg4qfL5Ey1idzkax184l5QZR4JfReHBAAhtJM28bp52hwFpytWtNJBtF
jT5WenGUAiERN9YGBrBRvBxPfLMuBXalTD6tt2aj10MxR5+MLIGSkvoXQUvY
KPmO9cRqpyVQiEV/6DrVi5xCjK5fYQhDT/mpNJ1jvWhdpGPXkLkwyN4yuxZh
24ss+wyopw2E4azMwk49k15k4HKu862SMGipnq64vbwX7QxN6nbvJMNTY4v/
dtT2ILqd6+jgSTKkhVKZyTo9qPHmZJVBDAneZGw2VtXsQYfbzS4GBZOgtvTo
8yzVHrSxwzyM6UcCbC7vykupHnR+IXxX6V8kcPZmrK4Z6kat2hsPH9EkwSrG
Uy9Sajdy7t3/Nvo/IchYb8H3oHSjK13Ou50UhOC9ma/H2DwLPdNm0OIlhaDx
eFqd7wQLpZ8ICmwlCYFw6kTGdRYLfTM3fnhzFANX2RTzlGIW+iFt+yjkEwZr
5kbu1JxhIacjDnbscxhYJi3f45XbhfKznmhvy+PjrSyRsY6kLvTX3k/sFcl8
3EV9Mu7AjS7EYIiLrrjJx/1fV7G0HbqQ7tn6AQ8nPp7e5H9xRrQLiRcebl4j
w8e5MvVPQt060R6yW8EfAQt4XHgo5cEfHUgjYJ1+sx0PV6k/91xWpAO5sVSM
4s15eJbiX9YhE+3oKm9TkIceDy/J2pLqXtWOVFa0bbJYxsP7K1k6WhfbEXNL
vjuvbh7XI293e9fQhiy+WX38bTmPMwPHPjWFMxGr6soX9yNzuM/u2cRMfyZi
aJ7LPGM+h4vKLTnj78pEp3P7K4K3zeH62UoKikZMdDbN26dVZQ5PaDX1cuB+
R+rPVDTWD87iVjop8r2231HqBa8xm8uz+Jef5m4ctVb0nvz0/qH8GfzlsYcU
cdSELrxx+yVmOI1nbjPJg+wm1OTjsUVt0zSeKNdv6xffhEYGNJX3qE3jlyrW
P+32bEKqXqmZLyWmcVifb/FGoQn97GI20Tt/41UcFOPm04juKfebjF//jbOu
diiVrmlAdgVG9NjGX7hEqsJG38ha9HZUgRYYN4XXqNsOil+sRZ0m+17pRkzh
dwvjHzw8XotCOlLNZ4OmcIWvsvK122pRngZbKcl7CjcbVBy3qa9BbeQwh60W
U/j5OFJoWUQ1clhuWNpKnsKrRxpyEhf+RS3t3Px7lybx4H/8eGbsSpTjWqAg
9/cErvZOu1r7QyVKdz4fTfGdwMtbf6aqJFai4k3CKvzTE7iwvDv8sqhEOqJ3
vPhOE3hIuG3w48IK5HRyQtfQZAIP9dcXFQ4uR7751JYHkhN4mNWsfNmqjyhD
5n3ATMY4rig+z/D7UIxsPHuM6ju4+MfAWvNuz2LkXqIz79rCxU+NPNLfp1iM
1GVCbOdruXjxt/0KqhfeogJ5g0b9ci5uH5PW8m39G7SlNsNhMJuL319mfGRN
/Es0X73Gd3kAF1deGX6o0fMFOgrzl5ECF/8U42iMK75AfhJRHe2yXLyZdOLE
4ag8FL2KZ74gwcX9Kl6vwYxz0Re7Ju39Qlz89d6jj2xzn6G2w8pdSsMcXN/m
4QPKjUy024Et4/Oeg59vdNb/6pqIqMrFryePc/DBluwh9033EOxQqBtw5OAO
bZP3KfPxaF+OCaXTjoOb9ITxjGNjkc31uDcNBzi4OuvYjcvBUch+T9Zo73YO
Lj0wNVCsFIFUt07Hj+ly8OnRW3un88NQLivMeGEzB/86ly91nhWMootOZKip
c/AGLeGtdZcuIJs7mevj5Tn47gDG+D1rb1Qm5Z/3RmrxPnFZf0fluaFH3fVq
XWIcXOYYV5KiyEDzorI3RSgc3PyYWXi5xRa0BkU3bBXi4EznlDu7+/fh2P8v
Dp4wT7NPaXcW9BSrsibz6ilBZ7u8e8iQ8RF0Ubzk51fPrgta7lKJYZllpKDZ
u7rKi1+lC9p4XfS2CrtsQZtEp5a7pr0S9PmKWd8JkVJBq8j/Wye+p0rQ8rkj
lpUjdYL+J3BTTZ1yi6C/NO5WT9JuF7T1MuRQdZElaFL8xYIc8V5Bi8XuVHvm
0yfoxj711UslBwXtvRCw9EDysKCPxzOXZfNGBK0QZJd9KnZM0G/dXWxEiom2
t/TEMllEk8L+9Nw/TPSzsrGmyQmiD8/lQwqP6CtKxU0PyITWesoRviKEaw//
DXskCaujjJ5xaIQPs9Ocy5UJ/T5jtMSVhCpCn67hGwi9L+w+cnsHofTRg0Ka
roRs//xXfA/CN3GyXg2nCZ2rG5sv+RPm77R7/jWc0FrdxdY9nzB26nzOwwXC
8b4cFUcyV6B180C0ogih7OujPjEyhDEXjfWuqBHenpMts9tLGC5U0CidQHhd
kjN35c9xgfUH5qSX+k0ItLRaujU7a1KgxuUXy2cmpwRyI27ydLf/Fthrd+JH
kOe0QF3rxrSrL2cEvhTd6xI+NCvwj0eTSiH0eYFsD637m5x4Ar+PeK8bjlkQ
eHcjaqUnEO7zWRpumkz44ffzkfTHhI9Iw/m2xYRnFFwNK3oJhU0YVum6fIEf
Qp+QqrcT+n/9VTgHhMOW8TRbC8Iau/o2SWfC+977TgTeIjxUkEx/eptQYmr4
S3Ms4dVLtzS0Uwldb1RyBgsINyZD4JF2wv75z86a3YQpjgfMSP2E1qXNGq3D
hCKqjjK5Y4Qfgvt+BU8SXujzarebIdywe7Js4wLh2caShutCGBiz95SHCWNg
cSOocpSMQUn8hZ3/imOwVtf0LYOCwUxoyVYpOQza7/2XqrW4/1o9+3LyKgzM
j7adZMpjsO/kz8QKIwxWS6Q5mNIxaFEQ/yxnhsHCe5cDLxQX90XMPI/vx6BI
ZXhrqAoG5EwajeqAwcqeaf5m9cVzO1WnnAIwmPagJdzajsGkyUCrbREGDYrM
sMkdGKRzBjxK3mGQW/VPoBNgINVO8VZb/N5z1VxzTMcUA22ftI5fdRjUjm3R
7LbE4G7ydpOcMQyy/Kw+6rtg8KZnhZ6zhhAwQiJ/DoRhkLgrsbAzQwiiNGOV
UlYKwcQvBeNr4WSYONn9dH2FEBzZzI78WLgExkK3lJY4kqDow+nlszVUUDb4
ZqCxhAzP3Qq93baIwTuHIK2YLDJsYWk6zz+WAK6TQfYcCEMAz/f6whIpYEzr
34J+YZhy7brr810abM4ajkVcWwKnpf9Yqb1GFirt7Gur6RTwjmooK/KVA49W
JP/jHQV+pGiTz47JQ7ruepakDRXU09voFUdpYDR2JeutLRXImuk/DFxo0Pak
8aybPRUehOdn5HnQgKZ4TajEiQqbS4tL//GlQeRcs6rXKSrESbjnhkTTIKA0
xK3qKhU8N6xjXP5EA+u9rOHQbCocumTap6hJBw5Jt1A7hwo9jo92PdOmQ9S7
iMDOPCro0A6G7DCgwxdNPQndl1TQ4kUVuZrRwUjq9p99iArHn2d8KXGmw4bG
7WeNm6jQEa2L7scvvh95R3+sZfE/KN3l2LYUOriZDmDJTCpcCGkbYD6kQ/qr
u3fGu6iwqrzwgcoLOtCShgoeDFOhVG3hy4sqOhRZ4YH7R6nQ8m9MlG0dHazE
4o1nxqiQb3pWl99Ch8hAaDw4RYW3+ct0rPoW529NSJn/TYX+jLbwuR+L80d+
uGbNUuG7x8/yzHE6nHi888/DPCrcxSx7rWfoQHa8N8XnU2Gp52wfn0+H/wEE
i4dl
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV1nc8V+8XAHDz8yEhm9JQMiL5ktFybiGVqFAJibJCiBASlaxUdlYiI1TS
JOIhoSgrsvnY636Wvf3u76/7er/u695zn+ee55wjddXVyJaNhYUlmJWF5f/X
LIF518TEcUSXm8rgvCyI7XjsfYY3chzxLhrc1MAEsRSuBaV7weNId5HPqnyX
IBa7vkB18BhHViUpOU2TAlgQdclJ02AcfVVlm/4VIIBd/bVm38YyjtyT3tpP
ft6E9eoE6OnPj6GeUydT8OebMLPydRlEHUOTRUfDlIM3YecKWUayO8eQBGZj
dufiJgzLYrPx+jSGHlBqr/Av8WPb7pGsRBzGkJR2BUMzmw9LWgmGMMsxFCgV
tvWNPx8mepu8fdVkDDlUXPoYcp4P43Xl6h06Oobs5Jjc7iQ+bMVig8WnLWOo
01P18YQzL9apyWdq3DCKXHTTYw/qb8SeMUTORqmPoufWvoYbdDdg5VPWiRqK
o+hVoO9gpPQGbGzm7UCP1ChKaix4bMexATu4qOu5h3cU3RHSb1r6wY31sHol
VQ6OIAmhpZnck9zYLqF/Q7ORI8h39/DbE1Zc2GmRnUopwSNoLmv89wkdLuyW
mIv3sTsjaHYgvy5Ujgur3kLa8NR+BJmWdchWMcnYdWn1fXJaI0hvefCiRAgZ
e6cW72M2OYwOCZzYFv6NhLVrDHxn6R9Go9X3vfZmkjCWg0obX/0bRuVs/23n
jCBhRlrVqdMVw2j2ke+AoQUJmz0+VxmRMIzU0o9jh9Y5sUOmF/iQ7jDqGDV5
MG/AidX4imbsShtCM4fiW515OLA5rakHPvFD6LBC+qk/i+yYDHu9TUPEEJII
CPcyGGPHgh49lPHzGUIJzB8Fr6vYsWMpM7nNRkPItm1Vou0eO1Za2lxwj3MI
sR1+apazzoZ9ZHla1uc4iDo2b3tvys+GDfxwfKFmPYiMMoaadrOyYYJhxwMf
XRxEN3w0jTdMs2JuAmtHNXQGkVoIlibexoop7bxR9WTrIGopM8/USWPFcrX1
fx9pHEDWjaTz+eqs2Itgcmey2gDKPBBl/9CdBSvK+E97p+IA4q3zj9hiz4I1
lpu/ydk5gLAo+6Lv5iwYy/K7u5/5BxBHenyCti4LZuVquqthvB8xBOlfeCRY
MCnTXGe21H4kKR07pxyyDhny+usOpH7EtZ+jPllvDb4d93Sgr1DQqodx1JP9
a9By7UWT5zQFQZ94d7LUGnCkTmfcp1DQYgt+hHNlFWwEU06kFFPQ8ZLXNbwf
VmH3Mh7V4EJBxfoT8r93roJh4taTzvl9SI0rlb1GZAXaKVz0nsQ+1HO03e08
xwpclZuJPfOwD8U9E3i5MrUM3oW1FBWLPpSf+iM6tnEZ0lq9by9y9yG+mJ3P
hiOWgSnQ/CrYtheNdFjODHEvQ2x4MCldsge5zBrsVhNegm3NN98IcvUgyQyD
C6GcS5AjcdkoaLobjV8ZkqfPLUJpjmqqfW03soux2TvfsQgj1RQ1pdvdSOvw
9VE8bRE02A/ZlvztQgspURpGKovQ6UevbA3vRHl7n3YoXF0Ad72lhGxvwi+6
O8IuLAC3EKeLt00nGjhRnDl7agE08zaLS2h1oviJRZ051QWIb9d1tmB2oGCr
TptE0gKcU0sRHrzYgUI5N148nz8PP2knbBnS7WjxclXTVvI8WBUbH6wQaEdh
3H9G+VbnYP6hJX/0WhsyeM7jxDM9BzJbb31VbW9D9zNxL5m+OXig/4LX+1Eb
OrzXs2ugcA60cmY/rzL/IVqt6Lyd0xx8tn5J4kGtKDD7spdq5yxkH9R5h+W1
okN/gw2+Ns5CgtDIRa+4VmQ0pHf1VM0s+FbJ5/Y7tSJxxe1sTz7NAib/Xr9I
vBX13Nl3LvHpLNQyUKStewuy+vlD94PeLFACejaX7/6L7u+W9Q1CM9BsGlA5
u+kvCljT2mpSOAOV/0k5K6w0IzX//l17381A9qBNaXxzM3p09rXscuoMOOnh
V24ENCMb9fF0zoAZmONbztzc0YSm3nt7/MJmYGOq+D7PiEZklctd+LV2Ghrk
Lo7x3G5EPk7tl1HlNER/jEt/ea0RMc8I5P7+Ng3ivwSFGw82orfS8Zxr+dNw
fExi6nxzA7IP8flZHDMNHrFswRWP6pGgwlvNWMtpqMf/vk1Yq0Mbi2QlQhen
wITt3I7q1jrUbhgX7DY9BR1i9dHTb+pQxMhZ/yvUKRg69tPb0LwONbyWHD3b
PwXLCd+OchTVIuPlxqbAX1Mgp5vV6nrzF1JqEbDgS56CB8+9Vo8PVaO/Cjah
b49NgXSJSr1KWTXSFRnR/3RkCn6001K3JVSjTAfVBaQ5BRzC9ticfjWKohjM
DStNQVD4xQdZH6tQkQXHgtOWKQj21uTmePADiUr5ZJvPMiH03JJwhdR3dLMm
v/XVGybIuX4ZfrNcgYynr0kdy2HCzwj3LwmtFehsaPE3SgYTuH5OXHQLq0DO
v/DGPclMCNPqStrOLEeVl+TmmWFMEL54++hKIELfSZsen3BgggTPiqlXWTGa
dDj6ckmWCd/9Gk/0OxUjQ/KISOUuJjjimZqnJYrRu8IEjsjtTCj+YyC+89ZX
5G+dhmmIMcEs8kXbH/kitOc56WMxiQlJItoXdsd9RjqmE3FRIwzYsiPcuMWp
AMV31Z+xzmVAZaSlNkgUoKvf2HILshjwj83OzuTxO2Qd4z3L/pIBXlWFu1m0
89Gv1XLTL0kMKDxlnnkx/zXK5DrfezKCAZrnX6aTHmYjyPbPkHNjgEeLleYv
mwTkXlwt/uYgA8ba8sbtlZ+ht+ufH+ZqMMCiayaJtBKHuLyTWfP2M0BnIHRV
OyYGFTCbtnxSYoAcxfqh/4PHiK7uHIXvZMBfJY79Tb63kLO/5QmchwFCvqWH
KwwjwLBGMVKhnA57POQ7HxQ+Ae1POvcoxXSQ+lJ7aFdkJDxJOTab9JkOB96p
dwwvRAPdWN5kx2s6XE/nE3aqfQZHS13dnePpRH71/Sj+kgb2mWnXSS500JZ9
erDqUh7MDJXtkpaiw1o8x2UqIw+Oz/eGJUjSoYjkGyAS+hq0uQ6UCojTQXHE
5oftlzegE2vkL8hPB+Gsg4YkoXdwf0GYxWCVBh4C0wW7Rt7DOcNfnBmdNNB5
mvrD5sUX4DC+mVKSQAMpvY7WhYkvgBeX8FXG0mBtTWg0Qr0QqA5Tg/WRNChy
CeP+/KcQ3PQH86ZDaaBoeMuQc6UIVmU6zt/0oYEI76n2LNMSeF2gGnTQnIhX
teQ5zVUOQcoBkgwpGuSTHNum/yuHCG5TH9VtNBjT69CcMSuH/uorsX6baWBZ
W7g886YczH6GzEsI0eBEw617c2cr4DMni8hTDhps66BFLCZ8B7al740Xx6jw
Ex/IWJergj2kJl2Dj1RgVzLiZDGqgsy+INWdBVTQcq2wY/GrAnOfHL/lN1T4
yHwhz/qnCka//uYvyaZC6pzFO7ab1dBGU1+4kUQFD5a2Ys6vNdDE9scs7T4V
tgnXNfGcrIXOCy2vpC8Q7zNYbjFwrQXWpws/3xhTwTJYof1pXC2sWyU7ap4j
3rfwqFdooBYmZN1kzU5TYXvP6cktfnXAEWl9tuYYFXZk13Movv0NKNTi3XFl
KuzSbNY4LdAAMEB79puXCjo32Q490WgAk/o7Wyt4qGCTp6LVeLkB/ra6jxVx
UyFTMkbHJK8BTsX/0PvASYVoljy5fKlGaHTNX6lbxUFo2FHtS3EjSDi+rUuk
4SCcjxtW403Q33OtKqYZh1Ol1Dv3WZtBo2THw9pGHAJ/0/K0RJvBq3SEwtGA
Az7BIBVCMzwmidoG1eFQJTtb9iq6GZZFjjrn/8DBK31VKUzzL2QwsvveFOLw
pmDNQtfgLxQb9AVJfsFhAK2Hs179C6uSF3KffsLBsJd11OfRX/h3YNv1wPc4
yG4hvXDs/QvWtjdjH73GoT2Wj/90UAts0QRpvTQc+DL5j3AltkC0Yu40NRUH
nY+bnH68bYG1iEbZhOc4FDQJ1hxua4EiR/aiuSQcwvjEAvbuaQX99J2nu+Nw
OBi6nc7X2AoefdaTehE4uD3bsbVuqBVC2sQMpB/hkJ0tpR+y2AoXlRWW2cOJ
/ara9Wp95z/wGE9Q/xNCrJ9V7grD8x80dx9nC3mAw3M/5YamLW2wVWq1IN4P
B7aOWFxRuQ36syghr31xsFNf5A7VaQNRgyWvSh8clJkVOlo32qAy/nvCijcO
3+2Mi/PKiOc/5dTE3CLW/6OwjfNvGyQ0qRyp8MAhQkpy1mq0DcquclQw3XE4
3z20T2xTOxR4ZNPMb+Iwds4r64F1O9T9syw3ccHh9LvO772e7ZBjExWcdAOH
9xuBciC8HVT0Q84NOuPgW0PewvjQDgeWJJj+TjjwHkmMtODoABfjMvU2BxxU
5L75qb3qAPuS0xRxGxyePdyRGFnSAaf8ehyfXMNhZSDoy2RDB5zPNh8jEa56
bsBMX+iAuWJKIctVHEyF+uz4TnXCVdOsR2JWOHxz0w66btkJHqeUIjOv4CBV
/yr9h3snrPqdDthPeCLUrds3uRM+pmlKXLbEwX+N1WgU74Shh++3N1kQ+WJu
53qMtQu0S0osPAkf/1ob8VykCzQGrO5IEt50K6bGWKsLjLcmXfEwx+FW0/xQ
vlEXSNVgUrsIdyhZsG2w74Ktj15VtJrh8HJc+kj50y5wXR9P0iZM1gsz25LZ
Bc98B5vWLuHgnEn19irqgp6X7YPfCKtd+fJBsb8L8BqWuKOEk75tbgyZ7YKx
RAsVLsJrEgHUAe5uqC/nfNVkisPPFj25RJVuSP6cJniD8I78CNE43W6IfWHG
c4ywd0gTR5RpN+SuxfpIEK63Ep2OcOqGDd+fWUxfxEHmoHl/6N1uCOp6/bGB
8F2htIagqG7I1NpyN59wKz5UGpjZDQ19yiVPCStWy7+5U9gNDh81HT0IB71w
Sbpd2w20NwHhlwh33/4YequnG7aVGW85RljVaMHLjdEN4v/YJfcSDlc4YuvM
3gMhlL5HmwkPcNw3dhDtAfRD03ED4QO91Udt5Htgwsbqy8oFHCILeZStDveA
yvNcVybhsciz2yzO9MDgMYe4McLgGLfR9GoPPN/FlBkgHK/duWTs2QO+HEm7
egnTJLePnwntASz9a3g3Yd25a236yUT816/MewinNORU6eX3wPSvb3EUwjM5
1I/aFT1g/sxIc4Sw/n2Vl9DSAyvplcdohF+ae0ceGu2BAkenTwuEl/Z/u6ux
1AMSNtkRnMT3G/Gx3lDl7YU+ZlOtMOHcUV3zfTt6ocf+tIsMYZaK8JMKqr1w
mdvT6yBh06QGDdnjvWDA9WbgLOECD2GZXZd6wSfI6MN1wmSDS8LbnXuhMrx2
KIjwl/UBhmh0L/CTvrl+J8zXIdsnmNULV/atVQ8Rtv3g/IevqBcGT2bc5Sb+
t7DtXC6ptxfuVr/faEbYWetQAhuzF3bITvY/JFwpFhi8xt4HkbdkRT4Rdq/l
vjYn3wdOpUYxYkS+1WYYnps63Ad14+I9pwlL+ccA7Uwf3LgWeT+IcOO+rZIj
nn3w2lG/d4nw3jjl1taKPnB0UvzFTpyHIBfPyqaWPii0f0/RJ9ytV/z+z2gf
kEddzsQT1l2VqhkgUUAi2V5ZhThfM+9eZ3QqUiBP24D58DIOaZL1SabqFGC+
ffyRQvh0GCPqH1CgE6v6eYQ4vxlX1QKbjShQacE9sUbYSARZ1N6mQGpH2mIK
UQ/OLYtMiDygwO2yrBdC1jic7Xf2tn5MgTnZ7ysRhA3ebo5eSKdAdEtFRwhR
T07oetXI1FFgZXsqbypRj/QU/pi4t1Kg/IO4+R5boh4ISA+U9lFgY9lPs6+E
tXuaVkxmKPDU/4ZLnx0OWp57VR5s7Yczmg//6V/H4Yh5EKqX7YcZ0ytZVMKH
j3ad3qzSD6V8LVLRjkS+84bZvz/eDyeCTKQGifq4P2sopc+1Hw5OWylkEfV1
T2sy+fD3fvic9nImh6jX8iVTsSG/+8HYpdDC0xMHufSTO//+64do7/XrOl44
7L4xf9hxsh/+8O53nyDq/Q5OY/cE4QGYcP2kcIHoF6JqG3pm7AYgrjCy8/V9
on/E3f7wlmcQItX4xQ1iiHwugpyTIoPA8FxYuxSLw1Q3KXV42yBYbx+UvU70
swHpuLCtKoNQI/FI68kzIn8+vbd6bDoIojenvKaTif/dMsF3I2sQuCVaW+Sz
cCAJX3ZShCH4VifgqvOVqF8a0tY/TwzB3QJz/sRiHObMJy/YGA0B/e6NcXoJ
DiMZPsdSbIfgPon/VGYZDjWq8RIbI4bgfatPoSzR70ONG2om24dgd1KMaCIx
H2yIOSr92n0YzgQ0ZEqPEf1K+UiBsP8wvAhdej4wTuTPH83Dd0OG4RqK3Zsx
iYM6l7LJuRTi/pfr/Ip0HK75bwuarxoGE/kNHRZzRP+wXx7UlhgBrenQqweJ
ecb18OeMbjQCjiYiN4akqVDcUbDveO0InNknwZiRoQLJ+03Ju5YRSHhZxMkl
T4WU9xl/74+PAF0+eExtLzEPykSzywuNwtfhvPACNSrsFHC95mk3CqxWcupS
elRoGZbbxcc7BhiH9DLdiQrqe/7J6ImNAbdHRpKeCxUSXR7sCZQag9p4s0/p
bsR8N9/z35TaGDQnRFy47EmFMa4Y7J/lGNx+QbswdZcKywqrl1MLxsB+q/25
mGginntTgpLJOHC50lLflxDrWfPhO5M8ATGZJy1tRWhQG/jMtz1zAtj7uVTl
xWkgw/55xDp/Aip0+9ToxPzbS2aU3aqYgCJ/9+p7O2hgKGDnmjQ6AclWn8Qq
FIh5W9qocVh1EiRj9dJyjtFg/OSe6Du/J+HbfONTSXcaXIvrFMn7/xyY3J2d
0UYDwShFcVYuKgikvthxuIsG5RF3N5sKUkFDI/1gWy8xTwft3E6SJeZWjpqz
IiM06HR3lLt6lgqvHkTyv5+hwdmzSwc3ZxD7sKFOzl6QDlo8m63CT9CAER58
u/EMHcTvXcpzjKEDchUSfNdMh5hZj7cv1xigpnAj7pg7A+7zMpbv7p0i+vFK
5zAPE5rPLG/i85qG5Ruyk4m/mGB4jm9/Xs4MtMd0tBdFTYGCf8HWxZlZGJCo
aix/OA3MRyGr6ofmYXeOVoJkzAwMXrKbvOe0AP0jYY3nX8+CulHLi4DPi9Bp
WXrn3+ocfOY+dTV8fAmsapoVfS4vgGTmzOYgsRWwiPZYoHUuwpCDUpLylVVQ
GCzfhWUvQwfuKjsRuQZkv7qswXursC8Z87vQvQ7+VZtDosrWwTQogjYayoLp
cwYecuNixR4rxmxO2cGKHR2dbGg9xYZNX+/Pla9ixWTMA0kGDewYPVi1vNSS
DQuFqgfeVzmxLQf+HFDgZMeUl3Mus5wkYyUW95Qic9ixRMtUe/4r3BjzyoG8
ZYwDE3c6b9kRxoOZLmiGYSMc2N2GsqddcnzYebfD9EeBnNj+39XiBu6bsOpL
Zo31YiSMrUxSnkoXwBzakfBkCQkL21BzL69MCEtTl6fwnidjpX7Vo9PpIpgW
/W7O14tkbNZ30qg7TwTretXiZmtGxrRP8mz99VEEE5UIZC29QsbcLvm1vasS
wSKW/+10diRjii0yMh/GRTCf8iDb2gAy1uZwWiNCRRQzOkWZCM4jY+5r8i3Z
NaIYg039o8pbMha4+feH7U2i2OOSR36978jYD5e5w887RbGfihob1T+TsUiz
psvZVFFMi//J3mFExvbfdRFjColhe1oOuWm3krEG3qvPHa3FsJ8RUZr0NjLm
MHLGep+TGGarO8qS3EnGIERqceGWGJb2JTpqqo+M7fX5mp8UKoaJJo5/SJ8g
Y8pB/L7iBWLYp3PgZ0AlY0ptNrs5isWwcxvitBfpZOxX/YWvM5ViWIQf1nJ2
loxx7A3LGmoj4u+PT1mZJ2PvHnOzD/UT8fFJm5wlMtYemm08NimG2WUd3Wuy
SsbYOtiTmLNiGLvls9n1dWL/vla3r6+LYf8DZIR7WQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.},
  PlotRange->{{-0.8, 3}, {0.8856032094454704, 5.999999612244904}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.462794658703125*^9, 3.462794690328125*^9}, 
   3.462794728671875*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdXQuwXVV5Ptx7z8nNA4ggECyGC0ISXxgDgRheUQtEFL3yjCCQFIQgAuGh
xkcJbcW0tTVarRlrx1DriI866WPaFKZT7DhOxmGcWKc1qCPBYWxsa412dDLq
6O75/sda6zv519nnhshQHc/l7H32/r///9f/Wv9ae+eSdfesf9Nt6+655YZ1
UxfdtW7D+ltuuHvqwjvu6p8aP6zTGTuh0znsqqkOvjedjv9p+v/XPwvxB6ef
+oll+M846I/LiYmOYjX+kd/eOtJVZw1cNU5XjaVfzxyJmlzVxbexdmrFdUOo
TbTz1lW1vFT+0x0kJcezAwJ3zvD65cG53hAaZwbXR3RPH0JjGP3lM+T/rODc
xBAaE+1qnVNXU1OeWzFDGmccAlVHdE8Pzs2aId25wbnouhFUuwj/mcSJ8V8j
Jc+UbmSXEd2DVPJB2a9o9pmi0CjwdIfQXRFcHwWEX4FCh8CMbKtPZ+yNrpup
aidr/I7hzLDwMoJCRUih/bIZqjHfGTE9U+VlaitnaDUvq10/Xvt12ACMoLJZ
AckVM1ReRCOKUzNVY0S3qqAZKLR7COgeQtUu03NTe/Y0qx55RD6dcfkrdP2c
nBG6egW+4p7smuJCk0M4yo5WDxuHtrSKdHCwOKbyXNDPTt/OCtQ6paQm9+9v
ShVu3Ly5Xw7ft2lT//qt69c3j6xaJZ/OmPwd37tgAVDkIxT7f/dMTeXrJvBX
8dO3Lq6bUALbp6cbkBcIARrTAVu6a1cW6Hk1ey/loV8n06/L07dJvmNAK9F1
Vv5vDBR2nCps/r59SVngfvPGjUk5UARE3T852T9SdeB3l3f91q3NhEq7YO/e
LK3MxeyH6e3bB/WjhHYtXZo0j4+e7pX6BH1QWbFzp1I+ry7OfNWai4NbQQJE
HWnf/PmG0sVPMA2XXDzrXPEXYbtXsu12s3PFimZMTGTW7iVL5NSDa9YQp0t2
7250Urq8zqrWMfOgMtyzYcuWZsuGDUIPmgab+A5Y0MY1MKZpue0IQODUmgcf
JO7AEphz6wVJ/L56xw65XrBPq3OlpjIXXOEW3Lpj9WohBydxkuAW5OBonevk
nsM9luE3vw/Xgx2/F3bjWlJjwb2LS34OJ376H0iNe7atXSvigRZou1gyardm
vt3hXSW43rUJ/LXbtoktKfbJJfYksIGFEcV9MBrQwT1Q+dsUxu0LMGALNgEx
cbkbA37HdQpzgsJIVJM/CzW+zQ3GIDo35xBfN+q9Gn8nITuEhaA/nj/3Z99f
c/TD39i66P3X73ngC7h+3iGGfTpE0+vm4Nw9e973uce3n3Tnnk1TD/zrqtP+
B+YCk0cY8gAx/jSI+MxTzzMXQ6uZZ6CI8wYDmDsPogMC2Oc3XvqNb+489drt
zfT0imbnzrFnuKZndu+R5bl++fTIjmb16t3NkiVwMiRUxGDPC4gnyCe4R/LB
qIHk/69+nrkY5lFnBD/pudlItbBkWDE+GMobd33s0V3N0qWw5qXNrl2WMvj+
l494Tl3hiD713duatWv3NgsWbGi2bJls9u/HL0jbKC8Ql5GeEaORf5GyUSa8
9ClAR+eGaESh5qAAQnEAgwY30Aj8HZqA4fcLy1X43nsKXNiUdEGzd++WZsMG
KOW+ZtOm+c2+fdYWncTAgA3UKggzSGAoRHAOv734V6OYm1QJEBjIGBIMhxTP
/V8wjDALmMfqZseOyYDS+1U4CAOhINzWZv163GrFqFTzqHNBGjqG5QEOwQS/
CSG1nM6NyhF+8nIYxqGFWNNAhyCPeDTdbN8eucYHlCPY3Ppm61ZcCiEQymxq
OwsCgyzsEKpGGMPIS1n5S+VknQnWR4bLeDlh83iBdfL4bxj5PqTjD05hSDub
FSvwXbU/C2helPmAQ08i7M+Ui+vNdvqxFXHWTVRqZlunQgrCCEEvGIbDA0b+
VMngUuhiTzM1tbbZtk380rjxUQIXXm7DV2UytF+5ufZAbnCJMGzcYITg+pAV
jnNkwM1WJTPV7NmDS8HNxmbzZnEIDWw9qBkQHqnwHed+rIxckwcHtTquACMy
nbH4hbiDwYGcnWcFXHw0u+XmZuNGWC7cE1zZYPYgO+j6NARWCy5+pFxcrSK7
eYATcKQMTMAFoAUQhWhHBTx8LNsq+IUmoBGJwzqOPSgbtjrIww+UhzUKhjMe
0cGDtcvgkrANDHzn2QEDH9fboSRcByuFpx8xHPu/FftKvRnGCNfAVdBYN8sP
muABAh6D04L+gPFsxQUuAgNH1kHhKt9T0Mv1Zgy1Dz2ihQVoF0Q0eFwg8CdU
4/i9zFBiewMMwC8xrhhfnPuuMnCZuV2fJYRqMAFmTGoQgouBOKReEPDwSU4I
GHVYII6tA9KFTjGWPlmGZ3aeVAZenzWAS8Am1G4agFY9PHaeE6B/KkdseJ3b
nNi9+kkX03KPA1C/dMGeUHRtYEhjDOJLa846hhACFiSC/EYA/els7hgoQHsR
bdA9GC+U78W2R/9vK/rrzLn7TulyW/9xHKhAh1Cd5wbon8vRGH6Ja/Fd/bI7
mARF5m8p6iU2tn0+YOgIRtC+AXsAlgyzMAD+vCLgd4jrUUmir2nc6xCIDcHw
vfMNRX8NaxzW7hpH5kkaPzGA3m7CWUFGodYEhyFDYAiecsvXFfrVShLWB67k
J4EeQ7bpjHthJ59I9L/hIAt8mLzwe1TOJh5CYXQwvs6/Kf7FShIKx08S303r
gIY2JfmeHED/XbZzeDg8HSqQyuRoHVDIBe+CWqHxrynqakPoo2G4YWyucFBz
w/F+MKH+Qw6oZeVxtIWd/hh6GQRAEWiXol5kCH0jg67LYYZvpjB+SoD6j9m0
y0Lj6BxMHDWlya8o6oWG0L8EWhCrN1TESKBKZDg1Re+HzWyiWqIYUowZTMqz
YudRBbyArTmbVGccmQesi3UuCsT8J5OnKBxSJW3QXhIAGizIrPTLCv2bGRrJ
RbgyaGgL0ogUiwPof86G7HVuqhaOyj4M9ULNCXqnQr+yDg3lJeglAfQXctQ8
oEgIoL0E6HxJoV8xHBqk5Oj5AfQXszWX5UGBWhY/Yld6i886WlFfEKAq4wfU
BwMjTNb8L4q6KlszUEvjItQXBqg7zUWjykCj9ERZ+MJ9dWQ659dR3a7k6EUB
6pezXR1QCxSo7r6ICmqKnfM4XkgqNFTXnJhUNHd8NMfGSg1AVR1GUX1Pl1dy
bJRgbahe8IrGTgtQv5INuZL+pY5FWICWIdnDhIr8jIJAjno5NsIuhfeXBKhf
zbGxTPs2JXCvkSD/kKKdk38CHyWax39xvqUB2tey7Za5Xss6qSB8WgNRdyjg
2TZs/TOyslUAepqD23Wi/ohmyu5gy6UoaCdgGqCLAcOw/r2irsxmCwOScGVD
+WCzpp9uH3xQjl6aQv/XhxirYcFAIZ3HA83CvlSPM8Aq0wwMEFTkaFkg4WOx
sUoi14lKmg3AdFDP/C2h+opXqVfoEy4iR6cHqN9kY6U2whFZr94Bxcj+taLa
fgG4BoqLEpVcJGpLfTsbqydyjMMR2SKhXPE6Le182RmjB+llFAvbQfAUTUUb
6vaojHBAjDg0i3JKwsa8HHwgBcovfP88ocKqvFvkqNCSlEc4ilC/o6hwWFSR
lMWti4LCDIJKGfxXCnlm3Sth8DBIOYp2Yz2ZDfeA7D03uyaiLITFwH5WUU0A
nIF6ywoUMQADJOqKdjN8N5vQAYl7bjaSNI36DEHCsnSds0nbX2hEo30pOklO
CRsWDoudk90E5QFkxGCqf7shRpoFv9JBwVEE+F9KGe5UGuycLF4yWJ14urMB
H4G31CjuhCHKUbQd7PtDDHYyjyPkQ64A7U8SKkKgVNaFUmEVUJaEsZUB6g9i
g5XrrSfqU1bJwn+pkMvqcYDi68oUX3/IZgogAIqZepI1Q5R4ps0MTwuQNvEQ
afTsQLb/zTYKTQIS10tO7mWrgV241TxAqGQ1hUYRMMWlzwlQf6KUwV2Zk3tZ
YxBErEZNz3NtZDVkoxGaTlHT/JtmLBOZrm9KsKaYQ1L2MAFBCkzL0bkB5E+z
yRww7zZIQMEcpTT+c4W0+sUnR4Ou701Vr/0I8ufZeA7oZ1rDGpafasWPEWTk
GJSZI8hfxAFOotNYttc0nf0zhTytLiW4BxkZm/MDSPl7mHyd9LyMkZC83D/r
PRpo96MER7nK4ChXVeFskcYHPc3/+2fLQdS2ttfbEBi/lHBUdKyqwenFswbN
9Yrtn/1ZGryPEFaauRdYqQuKo+VKt+Ob9QJUjS+90mI/vPvWDz264oyfQxRd
QfApTCRckISH7RcMWJjN4e8/9x276PHpk776gU137Ot8mPBJ4InsIOBawnK0
I3hWDXcux8B9m+Z/4N/XvuDLEmP+RHFfmCNTiuWR3NGWVJF3ArBybOszD227
8FO7p5fsFvf/IKGQL3qAKh3j7AClW5POVmB271iy4Surlv1IZqe6RuaT78gR
IREkk6ODwJOFoMd2Lb7qS6tW/hQAWwgSlZYUdzURzw0go5Vp+WuzKzjlQ3su
vAmejpHStUlvbFDqiKScEaTNV0HgHfve+xEMGeT5Y4Kk3BhJufJg3MRbxn0C
iH6L9z/2BNQpJeQfET6aYGlP50RtYEXiqnNY16UsdlFCArHzPkVbEgSFSNoL
axjap+yV+QbKhKdhtP6AYCiOR0JVYXQBrFemC5gJeAbM7yvM4sApihCDvCpp
/KLhMLOoCBqA6mwmLCoxivXLFFaqWMcoFpV5hoVcIcHlvYplDVXAww3ELqLQ
ubqGdaxiUbnV6P7O1OK7n7B8Pbkql2CNp9CoCNJkSY3nsTwcCeU9hBIZBGW/
qkS2QEjVXIT3e4p3qv6EBIxJTYlHfb5X1fBsMRA1vSxbBHgyLL9b4MluawtX
qB2kETQKiseHsgAESlrI+R2SCjaRHk3wy20FQI4uruEdH2jRCFBL9D7Fs/UL
TG3BStWNq3i2qIlIIWt9NbxNhEe9w/Gson3N/PkSnV7dgkdz74mMhyAhVnIv
4VHsHQ9sv4pnK6eYgiHilgoiq/xtxbNVKCpNIi+o4p0Q6HMiE00x692ERxk8
spfXtODRhKYbCPEuxTs5xy3oVESP7KWK99zMXGrXGB4EkEyGo3cSHmWzwl5S
nLykhrdQ3bZfwVoKR2aWJzJw9A5C8T0/JQoF8+EoA1o0PGBJNYAjnb11Tspa
xKp+uVOGoorg5Yh8ol7iezlEdz7tLg3g7YRCcd+kgs6QO+XotTWppkxj5czT
+4plVfw2wotskUhU8YwANCgtDxx1s6rSEgfjQYO+Jc3xyNfa8CJ9gqAvtui7
DTr2PBQvDIxnEgjvcvS6Gt7JyRZnZZS07noPoZDZjAdBYTjKgC0W/apUidxN
eDSJMzxYiHjXUDwLQRQhfQ25jCB3KZ4ZMURGlivxKGlN1/BOCZRheFTi30l4
FFwMj1J/Gx5lcGs0UhrbQHhRLCF9VvFODZQxK3sB9CkFFuORF4wFJF5fw1sU
KCOyzzsUb2HdC2hI2vBQV0KfZeOWGvu3F3hSd1mERMyXQUgoOUJaCU8FoNGm
FHIbyULNfS8By+x5aU0WmwVRB9nwKM+8RfGem9WK8cq6k6BwWQsKtcZnB2Z2
K6FEcR8Kl5JpqFQ2YaVF+slsgRh2URfjUdz3hmMZF6vyWRuCUp/hoWhLNfKb
CY9qZMOjPNOGR9Nh0yfkgnxigbconpVIUcQqZ691POskwbtkpxaODI8i1nrC
o4g1lp0GNbIcXV7Ds74c5VHDo7x9M+FF40cm0IZHNd3sIIIwXjR+1AKu4r04
CDfF+KWJjO6o982P0fhBl94SaMWjDDAnhSVGiUaN4vAVNRTrjFNb2lbuaFJ9
I+EdOGoSS66sofgKQ6no2dnX0qo1o0RjReYlUuU4/JLAw0wWShw3KMpzghEa
y0pPs8KqVLY6RFO6PEKMQolgLFB6FcUW2ai4jEZoHeFRP8nwaK7UhkepaE4w
VoxHrIwFLFfxlgXMRaOm4aBjrQaaxURx6qoWPKoE5qZRYxTqABoKpfkqii02
00RubqCq6wiPAnM0alU8W8CnbDYnGziaVcWT3o5HiTwatTY8RCVoURzF5ENt
ihpVjq4t8Xrk0Y0+zIP6VCZLE0Ob0LYlgnJtpNA3KqB1wKjoidKLFYyjdfyX
5+iQJjlzAyUzDzQfMR6ogzojHmxvC0X3SPHXFDyIZUfFWBW5m4KqyUyhO9L7
1aXMPcgrs2aj6q552UxE9X1NZTyP1M3QNCfpf9xfRdaxoTa2om5jpNs3KKD1
jhEN0ZaqOm2k5era2YpsYyntzwv0vYZ4iNILOfKlM1G8LWFSpIsUTzz0aO7R
/0CE/c3k5LQJTDBNywrXyrrZ0VBcRSxQodnow8vwEp2wDR173wpZBrRI71eW
gBODAU3KoGtqGLaISiVkpFfD8LWQIIaRXq5uwaOe5bxAiVcQHmVdw6OStYp3
TmA3kQ4vL/F6lPT6H6883liDsVVamgZFamQYynX9j6eBNhiaYJg0xPJlBEMt
rf7HI0EV5rwgYhgM0VIP7hxjYxrUP1QbixHm2ti3ipdVj6HQ7IVQZlH9Yy6d
6uKqROfrD5RnDYsmDq8vsXo0hynM4NoazKpAajMDhGSYgeQBhqHCuP/x6r0N
hurhyAymCYbsvf/xhF+FsaclqCE2N4912jLNMIPxx2N+Gwzl1HmB32vj1R4Y
7YEDeXlUYQcI7dfVYOyJE5oaGQz54WsJZtDcvLvbBhMlS9rrwTDUoypMoApj
j+5EcY1M4BKCoWZ6YQJVGHs4KYprZAIMM5jzvMBrg4kMmkzgNSVMF+6kb8XK
w2/PpgcY9ogXlbnR+OuKpD2Md4CZOYsCk2PZBXUbplFn4oPG5VOzqgy2iYSq
wWjULyYYqsSaHP/bYKIkTaPOMIPFlk/8qjAX1W2YWH4VwQwmTV9MqMLYRgsK
ygZDDe/VJUy3THRplXBtC0ZkwDTIjAHDErMABe+8VDFsawX12A2DHE7Vag/h
9WhfSP/jttMGE5kyicIwgzbmXFZhxHakNrWth7SGdCERHyzHPKUMJx4bMLkj
wxAH/Q/iiTxpU4PxB5HLjorBUE6/oITplhPRtC6wroZhGwho5lSUFKn3xRhl
Ek7stWHQBD4KKxqm/aH4wdDocwiByaHR9gpE0yba9cXEB83Wb6/KcEndA0mG
VxLMoNm6mqswtoZONVFUGr+CYAYN2C2rDSZyQmKZYLqlAaPwwK2d36ph2EJ2
a5X/csIorTfFrDaMyBEpsTNGmdhTvVbFsAXkqLCjuLiKMBozT3zSaLZhRFUd
BUXD0H5vj/r4Tc6IVRhry0QZkdLe+QRDmmxyRqzCXDo8pqTwSDDdcjaU+to3
tGBEMYVi43mEURaoyZWrGJfVQwvJwRilJlNsFIwctC6rRxPi/lyiXLpN6qhU
ub88CCUF96l/xxhlzZAEb8OI4gj5hrZJynfNJPgmR8UqzBVBKJkbuAfDDJa/
HhXbYKJoQtKcXcJ0y4CZ8u2NNYwrg2gSicIYZYBPUbENo1WOlYRRGl5ir4ph
yyTU8YjkYIwSPo1mFWNNPY5QZf0ywii9JC0OtWFEjV/KhIxRdtzT8oJ1h0Zr
er+hLhtlR22O28PXB9REbtIHA90qMkF3y4opTViunQmuNVFpwS4S+SzCLdeS
UrQXEXqpnZ6fMzLZKLBGsjFGmXqSRb/BpCE5Gm3iV3vq1giPUgbJeGaBb+94
x9cU1e0tawQ+Am4kNxWHZ5LcZW8yzfuuGRjTobhmeDRptEVYqr4Zt2wVpnnz
weBGC2Uk73LCLQu/tElQSA1fJTMzjxbsSUpCm/BUOtA6HM1Zrh1RQF2Vtvfm
dcuFk5SLbqphXFcXC4SQoqUUYIwyvKdc1IZBe+pMDqp0TieM0lfTdq4qxvWm
lwN2pQzkIsYonT75XRsG5VSTg3LqsgKjcOwUEKoAa+tCUORaRkKUU7KUiAQj
F5tr66yXDmHPtjvlUipPM3XubaZJrYo5gbkSxoRncc8nN9fI21SDsuXs7IBp
WYjJ+9MoHhXbyFNGnBMY6VIi71M8v61K/oY69zSFM/JaqnXLn5JVtGFEIpB9
voQwyoWwFAaqGDfW5aAdH4xRWm/KE20YkRyUQE8jjHJtNyWUKsab6nKQsZYY
hS+nzNEGQEIU5pryBQkxUWZjnF5fI39TnX8y1xcTee+seOemjXzEPc3cmLyP
jtdoVfI317knS30RkXdf9ggj5HOMu7nOM7UvjKg//F6U02nRo8r4+jrjZJov
JIzSjZOLtWFEctBqMWOUIqZMU8W4JZCj2HaerJMxyiXE5GJtGJEctEj4AsIo
vS89flDFeHNdDrLTEqNw46Yxgm0AkRC02+v5pRDJjd3PbqmRv7XOP63XMnlH
9pXiNvLRMxo0zEzeS3P3syr5t9S5pyC0hMj7woEXdW3kI+6ppmPyXghg3Qef
Kvnb6tyTLy8m8v5oqy/y3sJB6LY6z7T5yIjawhTNh6u2eHvAcPH0UKrVmTZd
3kY74pvawouINj1lVaV9R51vCsxMO/nmKLQjvmmXiD7p5S2wtHKBo6qBbKjx
LRFkEVGkR/LaKBK3pgkKV8wtXV6lfWddyxSpTiHa1Lxro00TE3/RZzkxKWnL
wuubWyjShKR48i5FJuaWGtlVbu+qc0th6XlEm/o1bbQjvikmMW3aGFClfXed
b+p1nky06Rm9gWh0d51bikZMkTyvyu09AbfFE70pGhltX3Yon4auWsc9db5p
L91JRJs6X1Xab63zTdGIadNTK220I74pGk0RbfLBKu23mQWXnZroOfuStvjg
rS0Uqb/k75QvoxFzSz5Y5fbtdW4pGp1ItKmH2EY74puKJqZNG8yuFz8B5ejf
dpG/GwNxiyfkU7+BUSj8Wk9htG7fxsCIozcOLCQ8ysA3BHjV7e76PgYOe9Hb
KBgv2elQvPwgxdsDqQotphdbGMqdM5HgnXUJaJ+NPsRqD3GPOBrvDNze34FY
RgmjfVu7Pb0rMBCjSK9MsX9x8faA22pz2mhToRBp4mBovzvg24aE9lAb7TuS
JqpPOby7zi1FSX0gMvznPks6FG2NDk0w2+jo+2Q4IxTvnUk5fUQ6ET/UZH1O
C517a/xI3dnGxb2Zi7Rp3aShHU9tXGzSHyiCGx2qRo4v6OTKw+6mGG13U7Y6
voWL+wIuincepb7piHSo/IikWdBCR98dxTHH/1WssqIakQ7FRX9hTJl72+jo
G7N4AukPzJeb8Y8bjQ75pNGhplMbHX1jGEcLf1C1rApHpEOlkfFD9cOxo9Eh
n/TXDZW1Qhud9wQ+6Y9Nl9XAiHTIO40fmmcfE3rV/YE3jAXSHNPCxf2BdxbS
pKzcRkffsDdOG97HAmmePRod8oZIrjY69oYa8s7+h0ZoNBrhu/FIpqNb6Ohb
FXvkCY2+3xHe1MaG3j6LHLLR1/wmJ2pjQd8f2aMZYv/jgWHE28nm+x/v0I54
O7le/4yH7bbb/xB/ZALjD3qVcfpZo9ytL2NNFt5YBj0q9C19p2e3rPdTvjyq
BU3v7ZH99j9ezbQxqy8v7ZZmmwqYEe8tzTUVqG336ktbu6WJplJ0/mj3lgE6
lZoj3ltaRmojtd1r/+6mL9WQax852r2lUaRk0navFUAeet2NR7ut6xsxyH2P
aLlXX1Y84Wbhblvels3XLnY78CKrDUNfwCz5+qpdn35Mat3R7pnw0ORWfvho
t/mo/8X6634Ca2m7TV9ELQ8kfWbHlR+Xeelo94j3P7H/xMXfW3DcL6H5eS23
6T9bKl2IR6fPeFKWIUe8B/7znW0L75VCqe0efaf3+I69q9fuWzBf39Kv82ud
mg1/Ztvuhvp/uPTIx2Wdwu7W1YcZPnSubzgf/97G4z7+wc23/4cczXnq9D78
yK2fe3LVCd86VPRgN7+YP/ajE/c98cOR6eVdgUblnD1ffDJdNrugIru/LNMQ
vWr74RMlD3mbnv2vOnyfKAZ61Dm43XNHcE9VbXbPhiRc25VVc7Xf5bv8WVg5
0Tns/wC1g71K\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", "n_", "]"}], ":=", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"n", "\[Equal]", "0"}], ",", "0", ",", 
     RowBox[{"n", "\[Equal]", "1"}], ",", "1", ",", "True", ",", 
     RowBox[{
      RowBox[{"h", "[", 
       RowBox[{"n", "-", "1"}], "]"}], "+", 
      RowBox[{"h", "[", 
       RowBox[{"n", "-", "2"}], "]"}]}]}], "]"}]}], ";", 
  RowBox[{"h", "[", "10", "]"}]}]], "Input",
 CellChangeTimes->{{3.4606366743125*^9, 3.460636691796875*^9}, 
   3.4626765685*^9}],

Cell[BoxData["55"], "Output",
 CellChangeTimes->{3.4626765694375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"k", "[", "n_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"n", "\[Equal]", "1"}], ",", "1", ",", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"n", "-", "1"}], "]"}], "+", 
      RowBox[{"1", "/", "n"}]}]}], "]"}]}], ";", 
  RowBox[{"k", "[", "2", "]"}]}]], "Input",
 CellChangeTimes->{{3.4606372504375*^9, 3.460637256125*^9}}],

Cell[BoxData[
 FractionBox["3", "2"]], "Output",
 CellChangeTimes->{3.460637257421875*^9}]
}, Open  ]],

Cell["\<\
Rem : une petite modification de la fonction k permet d' obtenir la fonction \
continue affine par morceaux H telle que si x est entier H (x) = 1 + 1/2 + .. \
+ 1/x :\
\>", "Text",
 CellChangeTimes->{{3.462793368296875*^9, 3.462793407359375*^9}, 
   3.469801591078125*^9, 3.469809068546875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"entier", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"IntegerQ", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", "-", "1"}], " ", ",", " ", 
     RowBox[{"Floor", "[", "x", "]"}]}], "]"}]}], " ", ";", 
  RowBox[{
   RowBox[{"H", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", " ", 
    RowBox[{
     RowBox[{"x", "==", "1"}], ",", "1", ",", " ", 
     RowBox[{
      RowBox[{"H", "[", 
       RowBox[{"entier", "[", "x", "]"}], "]"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", 
         RowBox[{"entier", "[", "x", "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"entier", "[", "x", "]"}], "+", "1"}], ")"}]}]}]}], " ", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.462793416640625*^9, 3.46279360634375*^9}, {
  3.46279387865625*^9, 3.4627938891875*^9}}],

Cell["Comparaison entre la fonction H et ln + constante d' Euler :", "Text",
 CellChangeTimes->{{3.46279362278125*^9, 3.46279362878125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"H", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"Log", "[", "x", "]"}], "+", 
      RowBox[{"N", "[", "EulerGamma", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"{", "Blue", "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.462793633515625*^9, 3.462793794234375*^9}, 
   3.462793937875*^9, {3.46279399025*^9, 3.46279401503125*^9}, {
   3.4627941103125*^9, 3.462794110875*^9}, {3.46279418425*^9, 
   3.462794187671875*^9}, {3.462794697703125*^9, 3.46279469859375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwVlGs4lIkbxl+HmXdkMGLViBzeTWwqKaFazxORQyhRTpVK+g9KWuJvZeWU
SJRTrCQ5tCUVtdoO6ORQKstSUtiKSIch452Y1ywfnuu+fr8P96f7evR2hbjt
kSUI4sT0zeTLEedlBCGET+KyuTPZoHwlzUVRCLuPvrArZwmhehHvY4GGEF79
wAmf8Sf2tBVbLhZCo6ng7xlv07VF/RdvIRQHL0qZ8ZX1O+j+60LY2ndl8uC0
T0wPvftEMAL3G2/2zHjTxdkOue2jkJfzuGTG6+3cc03xvQgyrla9ZI2Owu10
+dkJ9WLoWS+rYO03BiVK7OWFJyahjR3Pd20UQYx5E+9x/iTUzfPn7HkqAs+d
KV9EZZNQYWJLR7WLgHtD+aJz3SQkeZMdZb0iCPOdo8d8nYRVlakZU7QI1l0y
VPHdJIFijyyy0nAc3tk7DfPVGThYUiripozDnYNKzba6DGz/K+m9fsY45BQ8
Lws1ZsDp2d52i5xxcBRu3tW8joEFYqNr/sXjUJXr2xUZzkCXU2XwnVvjEDew
r/FFJwNrv/35Lmh4HPQTMs5n502BqnXT34830PBhyOzkSMkUjI3lN0W60VDh
2h3jfHUKOsv31Rl40mA2z8Cb1TgF+Upql+N202BfdZsXPjYFP3ZtS14VRcO+
voHD7q5SWHngm9XFchpM7Y4HXfWWAp9qMPO8TMP4pWVe3AApTHacNmZX0xAb
Eb3iYbQU6ldbae6qpeGU8uzh5Rel4EAeE/E7aNgaVvMy/YYUjG/5fGp8RYPW
K9+G4XopKO9b8i68j4bS0vJz519Ioa2tvfXvYRoCFZ3TpW+lcCOxrPG3ERqW
hI5G+3yRQq7F/2sX0zR868wNrPkuhahhpxvdEhp8C+dXHJMlcLBWoH1NRgxW
m0aKzTkE/tNXFBzFEoOu/MO8fiUC62Vf3rZREEO/QHB0LZ/APDs7706eGPab
Xd/1fSmBDs/0cyd1xHCkxYEv2EbgpTfdPDsrMZRNhCXZ3yQwROIs3x0lhqi6
AfMDtQRK/smLEsWIwTnBcyj3IYHHLvcLVeLFMKa0ZsOHVgLPbz/8Zl2qGKz1
5GYnDRH4or7iz8rfZ3Z38swDTRmEREVB3B0xaGRfvm51WAZVlJufGk2JIXHp
wNsV1rJYqbMuN/LId+AeT9YZfSiH1VWsHzbET8DQnlOe1xaz0C5vZ8aTXyaB
d8fPsvc6G2cZDrdmRUpge2aHOPMWG7Nq3pXuipZARaDjTft6Nmqvfx1lEisB
e/4K86onbDQJePpjy1EJxB4izRLfstGj5EqkXK4EvppUmizikXhWN0z34A0J
PCudXBgRROIKPhPiOioBrcMHPiwKJfHuBdE67XEJBLr3l/UdItHO4gt/+LsE
2HLPFzjGkei1tfdBkgwDVn7FlHYeiTHZ9+bU8hio1HTQedBAYrNqUp3xUgYk
I3d7IlpIdDsXkzVhyoBjs2mhcRuJr00iBE0rGRiI0NLOeUPiF9f/qflbMbDC
9eRrx3ckRvb6DS6zZiDOgF0gHSRRJsTrrtSWgfkdXzUFYySqn3Dc+7szA8EV
/q+0J0g8o22zRrCJgVvxXXltUhINLq9WNfdggOPj4nWUxcGuOIkM35OBLaYP
5q5R5GDslz93fvNmIC09R0NFn4NaZ4r6fAMYiFp0nF++kIOzg+a9NRQwENB4
RAsWc5BjmfNuLIgBlAbrh1hwUPRP6sDxUAZG99ssee7CwWfciE93oqf7XYS2
6b9O90c7i7UyGdBVcgxX6eBgv8+Eyps6BqpSmHaVZAWs1HSHbfwp0JM1svyN
q4gBnUMjWd1TMDB+O194iItNG6uLn2ZIQbRXraRVqoQXEq60F/5EYAVRkHbk
iAp2XlRVVkwl0FexwTI/jIcrrzTcc+kiMNm9iLhkror2eTURHgtlcIdv5aM7
n1UxqIDyMzoggz7FhT2s6tko56YdqFYng4uiy/fWhKkh9cfnojSuLJaqv/8i
MFJHA6cMq9lusmg7LPt482d19PnZ1tQvUxYzYj3OW5X8gGEP/RZ4tU7v+I/6
Tye3amDMwqWZOlw5HOUpp2hpzsHsMfuD4g1y+O/K9AUXns/B9C3NG6OPyaEo
f1Q9KGsu5i4P3SIzvfs3p/aH5XjwUX/QwNl0Ug5DHOa33VfQxFu0yrWKJfK4
0OpqvMFTTSz9eTsnNkAeU0bCl6fGz8MzPb0tBfnyWG/hvtlzpRaqrcqk7z2R
R61a9UZfsRYG+sSr20jkkZJVsNx1WRuDg4nQBCMWuib0ThWGzkeae6g405uF
Bo+G7r821EHjM5Fqu5NZ2JrHpeNe6+BWtyNFG26wcGNnMlx11cXs8tI/cv5l
oTKUxp29qItZo76EzCw29jRUhfykpIfCJSN0ixkbT59uyRrap4c2m8tzWvzY
eMGBsDRq0sOXr871Diaz8TF/wVH5n/SxiNa4mVzFRuvm3e5+ifoY+ELSqfaC
jSX3K72EPfpIky7cDxNsnNv9kaOFFNapBrg90iPxbRuaN+VTyLtwe9ksOxIL
DZ00thVQaJh7/MeKafaK8RCNnKEQk7bNcVlPYqtRYPW8cxSG+EslJ+1JrI3N
XBpSTuEzXZsmvhOJvy8ZWKhxncK0vMfbjTaS6J6SOtf/KYWzUrtS7b1J5PVl
0+JnFOpHXYz5OM1PzIo601opXCX4NfS4D4nW/17PqmmnMHC99tZWXxJNLHp4
iq8obJbbqe+5g0TugIlC1QCFR6MHb+71J7Fp9epBu0EKzwb9dUlhD4nxJ20b
u4corPFOKbw0zRNrvBNZnykcsDBO+BpA4mBmvIzXNwrtRCGuEQISS4bS+j6P
Ubj9PVrzA0ncAafr4sYpDG9XNbs9zZ0fKw5XfKew9Fq1pnT6r53CGt+1kxTe
LUpQOhdMokvOvdWdEgo70j0Im30kzvr0RDNoisLPMQbf3k/zo7Wd36VSCuX3
0/1J+0n8D33SHP8=
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV0Hs01HkABfCfMfMbGjKVhITxq5BsYkuT1vdm6dRJb9mSXbLZnpKz7HE2
tjzXejSSkVe2lZFKlFht1GpElsQZZfWSBpMRNR7DULH2j3vu+fx3zxUEBO8M
ZFEUtWUm/3fH0JaVFKUiK7N4finhclI/uzRlK09FftblmVuJ5OSWHb8/10hF
hAfpiUKJnJwJlOUL7VWkcvXEviiZnHz9zNvwRx8V4S1/u/akXTcpqfEb7y1X
kRzIhsXPu0mcKORu0+EhcsdRHDBi30sc7cWbzrcNk+OVFzpWXX9LBPsDb/J6
1KTM7VGd6PQAqRKx58bWaEiJ7l8ewc4qUqBPO+Wd+UhKpAeCrD8MEavY1Evi
rCmS1hj0wSZ3hBROhsZvvE3BbKBP7ypXTeJWKORfurFQHfjb4IYTY0QvOcFi
+IE2trGi/OQV40QZmLbnpj0Hpg4dUmWLhvCr/YWvy2m8HO046z44QVJEGUYG
VjooCd8ueaqYJGWJn9sMEnQR79siSW3+SAQsW+EpPR74cWIR984nohirylb9
pIf36kETKukzUR+cV9A6rY/+8OJSo4ApUkzlpkRFGWBKZ6O6adk08eXVC7ND
+dhaNL8q+tU0SfC6SF1znoNLmtteYZsp+PmW1FUPzoFJjrnGJ4/Cvvy8Ts6t
uXAZfmCcPErBLuLywcrQeWj5N5xq8NCCxLDn/WFbQ/S5K4Zqz2jB4x2rcdeg
Icp7HSz5L7SQenr3JdeC+bgYWrtRZsFCyZWagbPfGKGHkYUZ7GdhmD870cx0
AWoLbYpEEhberBYtKWpZANrgev7JbhbU2cOGR9ONkeMlrUharI1XacdDM3ab
YCLQNTM8QBvBm8xlUl1TeHqnajKytWHteiNmabMpDBJ22UufaiNxKMwpKWYh
8iPnJkfy2KhZ47Vrz2ozHEr0SXriyobZPcOHvhoz+Hk69ZqHscGwdIUB1xfh
ZkGXMLqQjW2xr6fyQsyxOOd+cPVzNpbWKaUvbSwgPeZc5DWLg9YsvfHolxYw
1ONuGXLmYHt7ArmxzRI7dsiubD7EwWwiif79qiUkns15R9I56KwvC16mL0B8
Z8ewfS0HmZmP0pVBAmQ5xdHzVBwUbaKEtg0CjHTpl843odFosuRX9jIrLLKL
vlvgTsPtn++9/OOsEJ7eER15jEaBtGSvqtMK/H0hf7am0TB+0a9jBgb0Bf2K
rCoachmcG7IZvA2Qh6i6aOTZbDb6NpdBKbU8X/yGxt5fdquHLjCIaGDq1spp
tNoeubXwDwZxx5Z2x3bTuHf63IrgywzuccpPGSto5HyhsDYqZ5BU/3jdV+9o
eCUmGR9oZnBI+exphJoGv0s8rnnM4FoP199yjEbTqovtKa0MiqTWr2pn7Pam
PL2yjQE3wuPGLA0NhzWdfN5zBnIzpzvnJ2noKRx0yxQMUtde/q50mkaDi0vf
hj4Gx70HjHdSXMSc9Xj4QsnA+4R7/eiMJ9f5xHEGGXS2rZoUsrjoOxejtXeE
QU6F98NaNhcFypSuwVEGPEGQ6Q8cLvxI5t/RYzP/KAv9dWgu2vuLI4snZvaW
J9d7crlIQ6Xv+o8MLBvXKd7PeGvGfZf2Twzu+hlPpOpwMWugyfToFAPHSMG0
oy4XdevbJ6anGVTa+miezPg/NGMpkQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2., 1.},
  PlotRange->{{1, 10}, {0.5772158485749853, 2.928968235600907}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.462793732046875*^9, 3.4627937976875*^9, 3.462793893859375*^9, 
   3.462793939125*^9, {3.46279399315625*^9, 3.462794000640625*^9}, 
   3.4627941889375*^9, 3.4627946996875*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXX2MXUd1f9l9u/sS52OT2Nm3TuJsAoElhLD5ICwhEEMhNZRQt4AwHwK7
KWgDOGy+igGBA6Q1ailuKa35rGkhMlCoG0hxCRDzUTClBRcE3RYhWUhIFlVb
g0CYqkWX+ztzzsw59825czeEKH8QyXf33ffmNzPnnN/vnJk7b3PdtluXXrJ9
2603XL9t7tdv3ra8dMP1t8xd+8qb61vjJ/R6Y+f0eic8c66H36teTy5P6VVV
1RsPL+rf6B+u/0a/9h7s768J72/ev7+K71/Zrc3BjRurjQcPrqoN+tm/eXO3
NieH91fm56v5lZXw/mO6tVnevbvavbys2lCTzCcHx49Xx6anK/wsop8S3gcy
eqBXV3RrgxlgJp3anBreh6WiZy7v1gYegWc6tTktvH94YaFaOHw4vH9ZtzZb
9u2r9m3Zsqo2sPGRublqePRouc10xpOXdmtj+im1OT3Tz0K3NqafUpszMv08
Gtd+jMxvmU8C/ehwWE0fO8afbEE/MxOZl3Rrg9FjFsSAUpu1mX4e1a2N6afU
Zl2mn4u7tUE/YBrZrdTmrIxXHtmtjfF+qc1Mpp+LurVBP4cWFwNDS22G4X2j
s48otJkN7xsVmO/WxqjNfDaa14dPGi17eAGd22A0GFWnNmdn+nlYtzYmMktt
zslE5oXd2ph+Sm3OxY+x23furDp9shGPDy202ZCJx4d0a4N+wK+5I0fKbc7L
xOMFmTbL4V5P37sRV7q1HH/bHn/rx9+mQldzmTA+v2NXBNubMPcItP7vxpb3
tmewxlo+P2mGauKbhkojfRAMkO22Z2mpWtqzJ7w9l7HlK3CdLA3ilzdAaDxi
kWLeHaAD9crie2lYaRqrHiqHuymYzssMNViib6BkJGP4bczjSDZWVj1OprIp
6zdkxtnsMpmrb+5lIvkXsCKPDmU0KEMS2nV0OUK1Of8+GpA0lxQ7N7Dkx5tc
P+bhXxFb9jsOoiHS52aGk7PJcuyIBjvuuWs8vsvSyxlq04ED1YFNm8KHzsl0
qjMD51mTr8/u1sbk0VIbrhtMpltfaMPVj0kls93aLB46RNVapzbkOrpsCE5c
kxocqhYXh9XRozxYqqu03A0z2Ll5db2XG+sD0fbBhHdicMuaZPHF6tChg9XG
jYPq+PHZdBu/iaD/yhG/NEfw3smWal9t6y1b6BXzHZaHB+jVWRmI5fv5Hg+J
t1l2VTt27Kh27dIzMMXIAzgk3l3ZX22utXT/fj0ko8jrMhBajWSXpg51iM9C
dfiwWNsUgmsLOLwLA/ECzlx15IiMx6SlEg7vsmAcoOB0deyY4BiVPbOAw/sp
m6oDtTU2bdL22VU7cceuXaHNGQUc7mep2lNbYmlJB7RZo5dwZA+lWq7z0e7d
GgftgUOZ7fQCDvsTc8LcNA7mhLnRq+luOMbvbB+MBbamV6cVcDjk4e+YvHg8
8Df8TvMinJH9WN7t0IIrrRF5iEB6dWphFLIDUjMBjNBWARPACHp1SgFHLFmT
HGSnV4wNgsMyFMUlHLYk9As6pnFgWZTbZJWTu+HALvD4xurgQRmjqW3WFHCY
0WDT4WphgdjJOKYWO6mAw/XdfLWyAm8TO3leEELYh3btSzjnJnbCX+R3xjHF
/okFnA0ZdjLO1r17q71bt4Y2gwLOeRl2Mo5RwakCzlyGnWpHD34nZnXEMewc
JlbBPrTTOVnAOT/Dztxu4QSuI7t4F2TYya2NhvYLo+BlnMnojGMWnuMFHF5r
VTt3Kk7CFpR8S60vzHBS9EdzcqwbDqwBq8A6PJsJs9yv6NNs0X8PbWUto7Pk
MMyqXkGGKaSOcV0JDXlBg0BAQ+0KKYpGOuPFiRHFRjCOtOFtY5AAZNBtYGR8
ngRQj423p0FAEFG3wefRDwWrNuJFyYhR2FSbVMKoNrzdbkQspJ9Ynoso6ii+
OHEAzUizQvab0D5OPMerb4a2/MQCw8MwyexrI1eCeMbkQtdvhIb8SGVrtbeW
oa1b6VUoJaZsYFWVEU6NwY9/TNWZKzPGkjDA1sk/Xw84/JDKlIq5MoMJhHLE
+uxfDY4RpRxOP+HEsobeORxwLs2QIFeuTIR7sC/snHC+FnAuy3AiV66wSBrB
o+tXA87lGZ7kCg4WbZNY6PovAeeKDHdyhcIgEl63fkyGRbnygFOiEWC6fsXg
GGblcDhFYyaYUcL5p4BzZWIbrIuUny0z+J4pI+j65YDz2Az9cuXBmqRMiVUK
ZzFDRbIFwagH+7Ekp9aHQuvHZfiYKwrYX4h9cCDhfCngXJXhZC6Zn+rhfDHg
PD7DyVwyP83D+UeDYziZw5n2cL4QcK5OXkJSI05OZHBO93A+H3CekOFkrjw4
w8P5XMB5YoaTuQR/pofz2YBzTXjfFPS5BL/WwzkYcDYGRULsIIakHWHMeG3v
DW2fRD/6uihEu6HX7DOhGck/bbiGiduHBPJecFJf0xTgsxY8lFi49+kAzlpu
IE/M3Bu37KX5qp2PtLjCvU/52Cf52LBJ9IXaMgB2UCbcu2d12BRzE8oS0Ln4
6Jau/3AfEEOlAQ1aqebnUfrxygpFB5VwEf7A6gwd/BgrEiRHEJFSAfcBfJt4
PuH3MRkjZJAGLu+ClmPINIwsKS2l2L/3kaf8e7myBDNobGtTfzal361inh5G
5GyU64WDCK5AgFK6U/tgtpD5uD+rQbRXTj5ZwsQrWILoXSn0QmsQ+vTHQi+5
U3iMjfaQNUqGjV2gpAN3+ThsCchjTM5q1wXjSbT8Ox+HU6Cs5ykVKemwFNzv
47C3MB/MS9sHcRV3pej6UR9njW8fFDtY6qSY+YiPc7JvHyyVbFT8jY9zSrIP
oovWjbPJ71h7prL9wwqHYLgIANuw6qSiUHkJ3k7C/CF/FHIqri4sEX16FS9e
CrviuPdBH4eTNziC2aiVKwkurBs0DPf2+ThnWDaQRs0mjQKzk3Xv9HFC8u7D
PhAj/MPvaoPCros+4EOts2KTFtZhQ8ma+v0+Dm9non6JctJI1CGL4N5f+zhS
E9QBDBNRrcgmQqqwgfw+H4fboHaJhBimQI4bkvTpvT7O+gwhhlZ4wpYv7v2l
j3O2FQwihNqMgX3SIvq9Ps45yT6RGkMOh9ouWIzDRrA5NXi3DyWnmjLsEBOl
EHqXwqGUuMHnhOxEJgV8pz+KuQwn1ISggpJhqcEeH+p8SwvUnIoWGI2d01/4
ULzzhpK1SQtxe1KOP/dxHurSog8XwVVwWZzdn/lQF1pm0Har2vJHBKWpvc3H
4R0xRA4iSO+IiTQnx/2pj8O7ZIjkhomi40wk7vahHpGxkso6GFIi2Vt9nIus
iSibNvJGWPrj3h/7OLzzlcumyMi2avkjH+dRVjxokanOguIZT1j6494f+jiX
ZMRjNkUR8oaJojf7ULw3ZlLr+hRF1tS7mqRfsJKhDNOXbAEDxYH8vj+Qy5J+
NJ+jwUc2nO/wcS7P2EZVmJhQ8vmbfJwrknjAMJJTZ1NEY2YiINTmDT4abwJJ
WiV1dEd1u48TNoH6si0ASYNSNkaFQibsMte3X++jqc0cLMMouaqaH/GYktDr
fJyrOPZq9yPBAguLURWSCEdjq9f6aFdzANUexFIfjIOYzHrmeo0PFXY/+iAc
BgUCpwxgnAhYarPDR7smhQSQjlRzc0DmacpTdRPwv+ej8W4G3Icpgj+YsqrS
Lflu86F+LUDJchokhi+GlonwQVTfWxQagT01URkYtDmj0onVppv9sVybpoXo
lGjnsSAqIU+I0BgLyz7aJrZtjQAksFDNDEEKI6FYjia/0Ud7emIhnEcpU8UC
YAAHWGqw3Yf6jRTyMLeUPMrkmCKmGon4ch/tOktrCA4MqAp42D+F/Mt8qN8M
96B7kdOqwkB0Agv5hhos+VCbR2mNEFNzhCrTKS6Z40t9tN9OtEas2zn2kddl
jtGVv+ujPZub1dOEKzFN8HLGztR483of7TmJ2ZgpvAkBa3gT/1A3UJttAY1S
MZ0pzR0wpnvqrKft9blW6PAPQqeCGxYxevJi1WvrUda29+wonsfd1fPVGjmT
eAGf4MQo4pDavCgAPjoz46lV9v78ZHmtqQ25MAr9wgDobta19U77gs9PEqWV
l/sUHTdxHZrIEzeDP7HKGQfjRbFGvClJAw9gayNpW+6/3sMTG9rHjzLfkEB0
D8mnBiFGpToz3ZTPU9uutyWzO5kBGQqUjeL0nPuv9+vZuyqTKPmRZ7UItkjx
Z93/ZHtJuIcMFNWZ6wewC6bHtkaMu99STEub0K6iBPn1CjFsuEhsxUIg5Ius
Ki5ZfZJCjM9oSLhAo4CctmGu8yFfxnPNF2SYNqYPSKw5qc0zfLSX80iUeCCn
qyVsH87E0tNkgqf7kNtTkCKvC0dmU5ggC8ijIGqzyUfjb3bAagh5DFChyff/
5KkVtbnWR7vJoiFLqfoTaJglQjiiPcVHu4WnVNcc8GwDDdEoaLFQe7JCI7Db
ihhwJewfSbXRH9GrLFrD9ggIRK9Be6KP9uoQHIhesT1op4MjC3m1DxkWLRNw
APRD4k1tJuYhr/Ihw6pqQuINkHQuK22+5SEXfcidARKjElYAWm/IZCGv9CHf
kIiGCQMSNlW7n3nIK3zIO7gZrz3hcJUNNFoM5st8tD9IugJ1R0pXBRzQRqix
4KO9mRnFRyTkicXQUsOIwCU+WtjImUBYo+gVEaBAnBlVgqhSF/uQb0mBKLEd
hU9BQqow0li4XeRDvtUG4tFqOET0UGzPJPWDCY08zytI2hPabcMPQACkiJ5h
TtaCAs/iC/pIHekhx4X+AN+Wj0EKa8aV/IHIQdmcNuUe4uO+PeHCLYJLG1CM
i/FJEYxxp42o833cPSnAEUAS4AyJbAkbwpawaXqocp4P+c7RKFcLMngZASSb
0dTmXB/t3SnKgSTizekdZTBKYMzZ+mi9D/nevIIzJGRB3IOf6YHL0IfcOyrj
DfaQe6S2wZDTnslZPu5fjVKoKbzy1AP/IoXW+pDvTxQS4Y0RqqwKd49a9XQf
987RCIV11cODaFowClV0itDTfNwPpnCSAFDeQoTKzg+EJO3+nOJDfjhpnVgV
Na6y6oQcQxw1wUk+7keSt1DYQlSgpXQMKGMCS9KBwiXY8AB+ApoOfRffaynR
/IT/0yOQSX+Ud6VRSgAAXz3cowAQ6YNEJQ6M+7h3s+Xq2WLWmD2s0JQ+kShw
IJ1aOMHH/UQKWHgpN15wAN6XRSF562c+5CftUI9V09MolahSmEmOQoyKo4iu
/+dDhtNQk0gosm6C+okKBI5PisPgLNm4xr2f+sD3sktqVUawYqz4SZvzKlPJ
WCOvfuJDfpYHw1TFODFejBvj57HCiEItCS6M9Uc+8BeSDMKeCIHmWHVoxbH+
0If84qrHKnbFvf/xgb9cHqu2a4yB//Ihv5IfKwoBRK8TA5AXEOP7PvBX01il
7InCosYqwhKpdVRBUtlzeFRTovLNWC4J98lB3/PH9o0W0QuQk0J7HUnwznd9
1G/ZgebEREcSflJxcsSHXGnRkRnrGhQosgcBIfiOj/rtUdWDi5SUTAJBtqww
fQnO//BRv8OGq8cqzzq0migLID7xx83il2VXfNQjeSmhc2CN77QAEtAU8t/0
Ib9rQx4ZHyYAo1IdGemJ2Wu7ft0H/l6ygDyPhMcQBLBtxrRYQ6ATRNvXfOCj
3LKOJNlfFJLiHgNjFSHURx0AuyA6/tkH/s/QUkiK0aJYscATKFBgYIla4ikf
wm9u0+fPAOcOsv83j7quaKRvOZeilAduQHgLvTFBTPRLqntnm9A/xGoH8oPQ
E6o+UdXMQOAieXAvyyDoDB9Pz23Zr8nc62cG8KP8ABCcKl8gbkSR5IEO7oXM
eB/OHf84dSvUAhca3WKOmGszXPkMeG7rPGf43Lz/N/QALrcMQIe1nN5CVNzj
D2DQ0fP/32kAEGmRLPBKUgGfn3b30N3Irzp1C9aBbVopQee7/W4nMvfcL3KO
j45Cvnmoqj8trjIKTP6uMv+6HsNWxf+EfANTj4aPPE5h8no42he9v1U0HI/s
d49Lq+ULJQLdr+SXmVE/oEshQMuhXLquYQGrPSppxkFvRjfQWw7J0vXUTugS
uoKOug2a0XLkVa2Zu6DLtgOkQdBbTp2qlX4JHbxvotP+VgE9NJ/y0Gl/4yzb
hUgqdA733lPoYn2+C02fnpJPOXIi+Qv5Ux/UpB7UptJUMyLRgaQjYYPkIyTG
pkT0Wg5K0nUu9QObSNZB7ke1Qlt03A/YJaw7PhgYCvRaTj/SNZzKnAIeChfg
y6Kl6QtNBDmGRAuEQhcPZ3PUphFfHK8GA5TJMJn6Di65W45pyFYZisW3FLoI
X+udRL0sTyfkNBAKRjYUIh8xioJRKqXokJaDgnQNOjqFQgzFF0pHHVHqK8Hk
eMieOAQBAIfQhkfLOUC6XpoiVwcY+kO/tARgayFK4RBYSsgBa72x0EX4euck
LCMP+mAxWA4WZGsJL2AthK9Yi8S85WQdXRfZ4rVv4WP4Gj43NFmXwleshX7k
aCotEVvOytH18d1pAsvo2ILlENLk/VcV+rnGp0nT+/AyvA0ajnj/1kI/T7Zc
0d5Hv23eB1dw76ZCF9eyOWrvy4Ny8X5k/LoUAiAMpqCVhabSckKMrk+zISC0
lxAg2nM/cIGoS3M6PX3gK/15iWewJrHTZV2EGSnGt06g5cAWXTdbn8MHns9b
J9By+Iquz/J9junQXndmPjUQ/ZSs23txoZ/nJsdjPljAiEMayjKFcUvaFa5E
7r+g0E84MDQQTorEiO1on72ea4Mumv5YfNMewZZCV+FA0UBMB3h0I9qP7uGm
dUkBAC2Khi5jNDy70NXvWP2XisJ4ib9BJAmZ/vTQGOwX/gRMtODmQl8vzXsK
KorXpGqO+ZCYoXIUeS2nUeh6Q/IUhF/O/0leE5pyV0jOEGYdfHhNnnpaoSv+
05iS1ugv7YyBteHPFTQJheHL+WQp62OgP7XQV1DAgSiPEEr0AVPFlEORO4BH
wF2Jd9nrRE6CdZ9U6O02KxOS6hAYeBKiAwOFAYKAvoHbCAyq1p5Q6OvVKTCA
jcDA5yUwaJt5Hc9eBYZUbCJJkKvHFbp6HTuC40LqHaMWKjC0ygqFae9UH61I
ZfTtbPva5R00QojLf26GfsYOWo5G0PWOskYgGrgrQLpdtZx0oGuoIQdaIyQU
dOB16arluAJdQ0U8EInQUbeKroi6Dyt09SftXTVEVrpCEEj5E1XigkJXb7dd
iciCuaISYDUzF2GshUK6EyNuKPT2jvAGmCs6IZqEKME9CvPQ3YnSXdOQIrdU
SM4W+nxP0iZEI2aFSBRqCYuZxJiFSC5mJySGXkG31hV6e18YudBMiIw28q0w
iRSe5UDIDMWVhCIaBU1peVhP1zt55LXsAV6iBS4UuoGK/Mcy0JuolCiiScst
D9zp+iEede1DoZywW4QEPlybsqVkZnQmq0ByXcszeLp+NLFbhEQ0S1QRrlP/
14r4FxBL0HcljRI5hJ9gOPETDKpPtKRS+G4Oz9qJYnVJDFoO1FE9fyD3jHJd
CIhBWXP6MPdar+RMBZjpAsznR80CGKlahSwnF2DCk4hJKUiFBRgN7pWc8wD9
H5V+0ffpd7qw7vVO+DkDqj5f\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex2)", "Subsubtitle",
 CellChangeTimes->{{3.46028372734375*^9, 3.460283728*^9}, {
  3.46028407046875*^9, 3.46028407096875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "x"}], ",", 
       RowBox[{"x", "<", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{"-", "x"}], 
     RowBox[{"x", "<", "1"}]},
    {"x", 
     RowBox[{"x", ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.46028543884375*^9, 3.460285486703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.460285445625*^9, 3.460285478125*^9}, {
  3.46028551103125*^9, 3.460285565734375*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1xX9MlAUABuAj52yl8mNhs0FqgCMkCkzYmNtrLjdNZYZX2srwLM0MRxEC
7aYhMkWno7nYzFhNL+JSzAQtyeAtkSImXSB0IacGCKnHfR8EGEfpV21vfzx7
5mzIydx4j81mW/Gv/07CjFuWZVEjJxhTGpywqPFFbfLckTGLGinxKzcM+C1q
pIWXXL7otaixqG+45YOTFjUy97Qen59lUaPAU7L1tYa71OjouP/Wd4471Ij+
NueBtKi/qXHmjQuTQ69MUGP9/uShruIgNcYPOkuJcWq4pl+deajnNjUqnknO
vbR3jBrF2Y7CR5eNUsM56VhBbuAPajiKPLG/uIepUV7ff6hiyxA1vr4WP7X6
EYMaMWGLFts/8lOjJqF0S2/fDWpcazo1OzV1gBr9ieUp/LKPGuE7PktNCumh
RmKqmVg54qPGrqcDP9cVeqkRaf/8vRcebKdGze2m0ObYFmpUdvcfuFnSQI11
z0ad7n7lE2rU3efsPL/N9f9c0Bvy8M61hGbM0Llg+vkfobnM1dWasbYdmktW
RkwaO+OFZlmWt+iJr3zQ/CEjetqqiB5oBuZE7mg/3AfNbXnzHGUzBqDp9YVl
bmq+Ac317yz8fcoKPzQTXm3uNJ73Q3Mkw36h0+GH5u7Y7COuAj80qz0fvgiX
H5rBuL88+RN+aB5srzvb7x6E5kv1S6ou1g5CM87dVl7bMAjNs9tv5u7sGITm
1fiZj0XbAtBMeLfwiH1NAJqN89L2NU42oPny43bXcKgBzfGUt76Z9ZABzcT0
44YzyYDm+0tnrX5yjQHNTRunRFW6DWjaXo9dcKnGgObh7KcyQuoNaP70trNo
XZsBzbRi83rkhAHNez/2nti93ITm0aOj359+zoTmwk/Df+vNMqH55onlEcgz
odl1jvl/VpjQzKOvLK7KhOb0xqB79SkTmotb5nefbDKh6WtdNXrFY0Izv23r
tKmXTWiGde6bm37dhOaxX6uw2TChuX1zdeiBMROa/wAbtqoo
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQffC0ZoUl6wd7GL23sN61kg1Bd33mDZrAjaDDS+fE
LRdA0CrftbL3iSLofb/cW97II+jummsTmFURdMS/lLlSWgj6E2PTNg8TBK3G
uefFEg8E/em4XtYiXwS9r23h6/lBCDqMpf3drBgE3fo/8MuEAgT95Ovz/zUz
EPSiR8LioS8QtOyebFfWjo9wmuEX08qiR5/g9PfAvXFHVb/A6dsm8dKqLV/h
dEG4gKDSnW9wWnLKkwgW2R9wel30guWfK37C6XDbeo8Te3/B6Y1xuUpWf37D
6R9czsw7Q//C6aCL1mayM/7BaS5r7oN75iLog0tueccsRtAGFZWJs9chaD75
7T2SRxH0yRyjx6KfELQDh+YEPp//cPpH4Q+pdYEIev3t40t9wxG03Pq03T1J
CPpP6JJnXJUIevtieVv2ZQg6j/f98WWrEbRa+b4gt40IeopXbEbrHgRd9HHW
ZObLCForOktu8Q0E/fCI5Uqnewg6YMaNfY0vETQH0wpPxfcIen92+ZUDXxB0
2VW3+IRfCFrPXuzV//8IGgBHOpdu
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{217.3333333333331, Automatic},
  PlotRange->{{-2, 2}, {-0.9987244897959183, 1.999999918367347}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.460285481109375*^9, 3.460285566765625*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlW2ls1UUQ/9MLvAAFFS8o3rd4cQgIIlfxQrktUB6ttUVKsRRFK9ByVaBS
qOCtfNF4JmpMMCYajSYeiZFoNBo1MZoY/aAx0fiBxASZmd3ZN8/fvr7XvqjR
Bl4fu7O/3Z2d+c3u7HJdqrnuloZUc311qnxaU2plXX31qvKpjU2Hior7JEmf
qUmSfFye0PeDh766j4OH/hycRh9Ukt/3TvpVTDDFXMBf+Rv9LdLavlJ7ML12
r0DsBA3L+LPUlLHwoZ+yvwVqI/3qRxWlPQEtoe/TpWX5Dz/82nl/17v8r1mF
G6mDH/3Zpz/ur176woivvvwpmV04eFnh4rqXX/rszcYVrwz87bcDyZzCwU/h
z5J+Bw780f7wQx88eF/HO/R9buF6mCxlNPBXVzfvW/PUk/uT+WlmW0TC/fIE
vVrKzv72219I6TPfefubZEF8zH2zesAkKZu4/6Pv36uve4kMJblZwJ7khiR9
FViHyjShDMyJUkYGRzrlfy2Mi18ZlERDWPn8c58ki+Pi46WMbI2mT7aXVMXF
x0kZaYnGzhNcEhcfK2U0iBdb7n6Np5rK1McYESJjebqt9XX2rOo45mgpG/Lz
z7/TEOa/8frXSU1cfBSY4C1x8ZFSRqikPuolqY2LXy5lZPA0dppDcmtc/NIw
VdIHW3B9pj4uCSxDQ2CLXBbHvBiwxm1x8RHA+pbHxS+y1scTbIiLXxCsj9DZ
+hrj4ucH56Opkt8kK+Pi50nZ9A/e/47EqVlye6b6zg02RyzBE2yKY54dloQm
yNbXHBc/y06Q1JisTuOgtNBZkslBxYGfLOiZwEbvENAd/AvT2WGAn0oB/BnB
aZWV7uwe/nAAXwLgT5ey1r1PfEhGzSayRlBC0C3uSUccdIdbn6FukrsLN/rh
wNtaCqf7cikjy1bvvKd7+LKs9jIs+LCa+NruQfuCMaMoNpQ+izjYsNq1IoeB
59rHycCPWjP96DD9VqbufRKgjLa4v54IKGNDXPwEKTPksTEufnywzb3tW95i
8tgcFz9OynzoWvLqvi+SLXHxYwMt0NiZFtrj4oOBm9+bJs7Sg4Czbo1jHh0m
SPGNnW97XHxgmCANgWNzh4gfSb/YZip0VacBiAFh0uowI7VFhaKUpcFGbHEG
sMWpoMv+UmZi/mjQdnp3DpskR4Fm1+Q4DNfW7CXGgLYVURfzNOt/yugDHXd4
1xc9DE1VazkieKnuV8aCFkjTTiMDcpwB0ojjcLJk8hfm5nE5ari09907jjfc
PT6/7gdGzaj77h3zExfpTu1K0PZaUFbS++7dYclsjCbm13025+RF4BPbdNB5
aTA8DQ8TtcWMHB2RB5Wr+7nNgdmETYpZT9oJMI1cXcrEMPDDaUIZPRZJGXmV
cvEj6eJl6eKeg4kfHkuXKvVShnYfTxfhjVT6CeGJv4yK1MzMt1eqeC6s08lm
x2NmcCQoO+pfLiekUuI5jdyL6vv/i4bYm7aOeP4rqyXzKDXbc2eX/4clmwHK
HHn5sMRb2qIc26KyLN13SZk5aBTnCHuTwDIPocMEGrLjnkelyrB/OAE4IWFK
exDIkpUWHlZuZq2hs5UTf0iqTOYKaciJPyBVJod1RFx8j1QZwkaW4cR3S5VJ
8SDjcuL3SxWhKqv3z1SfW1oaqe42B8Qxd4Yl8azpDwdIvFOqjNseExffAUx6
UFz8vmCWujMaHBfvUBM8LlML24ClHR9H2hpsjsbJNjckLi6nLz188n7ghLh4
e7A59bYT4+Kbg83p4fPkuPgmO1U+fJ6SqQ8569pN0NA45obgVJoOHhYXbwNO
VR4XXw+cKuzr8k2yOdB1wPXEl3qX6HHwa4Gr9s8Cn2uaysHfYy2fXXtAT+B5
R+h2gS2BCjTHO7BwY77LGh5TxzGF0/ia4JMaBwZlgc+eWnOgkh7VixwmpMFZ
QHNNezn4O4IjKIEdWzj45uA4enQbotNGWTXXcFVYKmIgpsML4/00WbZg1V8U
F78dsMWIuLhcBOjxiJV0cVx8hWULOib5+xYk3gB44LK4+HLg15dnqk+uXWzg
HRnHlEsdm/AZFRevC4ujyZgxcXG5hrLJkyvi4rVggmPj4nKFZkPwuEx91ABi
GR/HXGqtj4liQlw8ZR2foqxPUCDxJcClr4qLVwEXnRQXXxSsT4Px5Ex9LAw2
pyF4Shyz0i4JB2OUuXDiNwPrQxlWJ74AWN+lSg09fv0xD1jpSADWw2ccc4FV
jyoA/IyAq2XuBDMHeAZKD+f2hqQi2BUZOavddTQb+BRKAOc7N5cBI13RBHiO
N0qLWcBDryhAl9cG39TIMFNa3BgMRLcDKKmbb5fXAdwbpMVMyxQ8GpTIzbfL
G4D2ZBi+ytw7cZc9eqQyM1iGngxExcn11p64agKYW8bDFcZ3S2ES3GIsfgEN
n80BI7sJ+KP4kjc7w3ZzAcQsyxi8cOIl3ivNDdg8ADEnLIRymXvQVhGMX89g
8wGEG5lhTyFbn6A2d2YLAMQ8QBRC7562zT1apa7D/KAp3YvIYycfHkzVQtD3
AtCBPG3yz6bMsBYBiEowTQmQ/pGUUc5iALEQKFtCso+dJtxUAYhFYMnFnn1w
N6ElBSAWW8PjXaxcnHjPMHmJpQCiKqhTd9DCGP4KxuQqqnUpU8EdlcNlG+UZ
x1TVgL6Xhg6UOoST/YbMnIhrAUS1JTyepkQSz+7m+dStAKIGeKVEPR+TzBLV
AYja4JXEIbzkshXw8dNfubKh1AMINzLiDjU8eXPloz6ZqxrUMl2HumD01AEb
vWzv/Zst4yrLQd/1wFbkQOEPCr6KldgAIJaFrvTtijzv8kcTM8AVAGI5mKYc
mvxDMZMM4E1gj/IjDWBJ5DDnT10mzjlXN/C5ntxXAAOSY6Y/PpoovhjA5pqD
aLTmzkFIHqn5g63ZFVTl0xXv5xrDEmuglGdt/jGc2QMs6cVcmgKBaKiX127+
IZ2pSvVihVaBoZ8jXZ0LJlwNYLPnWZqt8vnwJk/xXD82UVkDOsg1KbI64Omx
Up7x+cd/Jt3JXfEuDSkLdXBncA91UXlz558LmoBYC2D7qbJCTmZNcEh1b3lr
5x8MmpvjFjCyuwDJnCYQp4dl1HTJWgAhT+0s1Z0qEKcF39KqdQCixXbFLCjP
7hyS3ZusBxBuZIYFhwnEcKCmVgCxzvIby0lq2+egzQK26Tqst0bCYzxFGg4F
bLUR9N0KNCWpeodkWWgTgGgDSpS3cD7pb662NgOIjUCJch3hX9WZzPwWALHJ
KpHtWS5A/MWG4YV7AcRm4HNy5eKvUoznbwUQW6wcb/DkbZ2/vPEHT0bfpkvZ
HsZIgYxvJSXv6t/mmbua7aBvNx5zSJd0s3+vZ0i4A0C4Syezg5SEuL/0Mkrc
ASC2W6/kvYlcx/lrNhPxOgFER1CibvAk6+8v9swS7QQQO4DfyGWHf3lkvG2X
rkMn8Fm5hPF3kAazC/S9MzDH54sqn+UxyhWqvxo1M9sNIHZZM2KvlEtbfxlr
NtDMA3xmd1fXhsGzJ8e6ANtK2PfXxJ6j2RqEL7LlB3LPHbiZmzS6RGS/8fDL
wFUbwNz65tnlnkBImnByj6VcTCXP0+XdBLrMd5YPWL9nki4zXbJiM0gI7IO6
y99xR0WkKge/qydQOLnZBaBK/nGobt+pR+qekW/hOXfY5DwrVSzbzX9ITPr8
CYtFyXg=\
\>"]]
}, Open  ]],

Cell["\<\
Piecewise[{{f1[x], cond1}, {f2[x], cond2}}] donne  f1[x] si cond1 est r\
\[EAcute]alis\[EAcute]e, et f2[x] si cond2 est r\[EAcute]alis\[EAcute]e MAIS \
PAS cond1 !\
\>", "Text",
 CellChangeTimes->{3.469801614671875*^9, 3.46980943109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex3) Les impots", "Subsubtitle",
 CellChangeTimes->{{3.460283880859375*^9, 3.460283881375*^9}, {
  3.460284073328125*^9, 3.4602840738125*^9}, {3.462796879734375*^9, 
  3.462796884484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"impot", "[", 
   RowBox[{"r_", ",", " ", "n_"}], "]"}], " ", ":=", 
  RowBox[{"Which", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r", "<", 
     RowBox[{"4121", " ", "n"}]}], ",", "0", ",", "\[IndentingNewLine]", 
    RowBox[{"r", "<", 
     RowBox[{"8104", " ", "n"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "309.08"}], " ", "n"}], "+", 
     RowBox[{"0.075", " ", "r"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"r", "<", 
     RowBox[{"14264", " ", "n"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1403.12"}], " ", "n"}], "+", 
     RowBox[{"0.21", " ", "r"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"r", "<", 
     RowBox[{"23096", " ", "n"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2829.52"}], " ", "n"}], "+", 
     RowBox[{"0.31", " ", "r"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"r", "<", 
     RowBox[{"37579", " ", "n"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "5139.12"}], " ", "n"}], "+", 
     RowBox[{"0.41", " ", "r"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"r", "<", 
     RowBox[{"46343", " ", "n"}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "7299.91"}], " ", "n"}], "+", 
     RowBox[{"0.4675", " ", "r"}]}], ",", "\[IndentingNewLine]", "True", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "10080.49"}], " ", "n"}], "+", 
     RowBox[{"0.5275", " ", "r"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460224977890625*^9, 3.46022515075*^9}, {
   3.4602252813125*^9, 3.4602253423125*^9}, 3.46028388609375*^9, {
   3.460362645984375*^9, 3.460362708515625*^9}, {3.462794893875*^9, 
   3.462794895515625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot3D", "[", 
   RowBox[{
    RowBox[{"impot", "[", 
     RowBox[{"r", ",", "n"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "200000"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "6"}], "}"}]}], "]"}], "\n"}]], "Input",
 CellChangeTimes->{{3.4602251846875*^9, 3.460225259484375*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx1nQlUT133+NMsRZpkJiHJlCSSjimiQmYJUSIiaaCkSFKmlCmiohShQaOE
lAalQXPfNM/zXKL6P8Pd+/ze6/+8613rXeuzznvb3889d9979zl3m37olK4R
NxcXVx0fFxfPX/87OXfVX/+9oX4vqPQAF1e7Ohfzn9sXu4dKatMI8H2GJY5L
fz8gAeU1EiW1HOQHOTP55wbHkDWf5PJkW6qRdypbTqgrSyGKbqXenNom5BYm
iufu388hYxduXKJp1oFc9brJFKeuYjJS2v+hbEs3cq5d2QYxsyvIiL+DMulH
Xm1sqhSSV01+1u014tT+Qp50dqRAgGM96ciM+Bp5eBh5oIt/0eNFzaRbT1Ba
02zEKuCuD1e9ulPWRtr/Hj+fB3lU3smPX5I6SPOaw3ayLbzI5Urfy8U/7iL1
UaIL3YP4kT+sFXJ/b9FDquZ+qBw+JohcqG33r6hNfQQ8O5ys+siJ7PnDM/CE
c9UbxKbeRs/Aw38dHyvp+RY9A2/8tPCKRVgiegYekyXElX0sCz0D73Hy6zp3
qgA9A48NKHlgnFaKnoF/MhTyfilehZ6B+1k+P+0bX4uegV+5snrtg1ON6Bn4
0fulUrcmt6Jn4LO2x3V/rmlHz8Dv7xu1/8P7TvQMfKTRnuQYj270DPycacDC
CJNe9GyyqH5qlOmvPzwjPxQSuPzuJfQM/Gy94VoJ7WD0DLx11F29+Enx6Bm4
7B0dl2030tEz8J98HPM3h3PRM3BLX6mT+9Zz0DPwJwYBI/23VqBn4A7ma0oe
DVejZ+CHHMveuL+uR8/A196xveii14yegd/5Pkr+Ey/1DJyPs8cjltOBnoFb
VwX8jgzrQs/A65p6jMJcetCzvE2vuqY7F2F7Bj6tX+2BeJcNegZ+1zamT3xu
IHoGXrgzQPc2Vxx6Bi5XFrbfpy8FPQMPXqysMV7pO3oGrqoaVHNNvxA9A+9+
f7V+5dQy9Axc/1S5xj21KvQMXN3h/PgbTbXoGfj029LNjp6N6Bk439PwDzbr
W9EzcIs9gSnRA+3oGXitQe+i8OxO9Ax8p8naR8GB3ejZm9PfFmnK84dn4Lol
gkl1whboGfiSXWfsiogfegZukGl6mH90DHoGPld+nFKLwRf0DHzhnvoQ9b/y
CXgGrjP5S/LV6fnoGbitme3uY7tK0DPw5SfsQt1sK9Az8El24y87z6lBz8CH
bkTsvFBQj56BVz7ZOsfSqRk9Iy/oHYwYTz0D316+1ji0vQM9A0+sd896ldyF
niXUfnnLavL/4Rk478WAOmttE/QMPFdxHo/3Th/0DLxhvZKF7cQI9Ax8aHdH
Kr9SAnoGbjSotDR9xTf0DDxrtbVi8M5c9Ay8kX+7Zv/oYvQMvPS7v9EzuXL0
DNzG9edzy+NV6Bk4x1U3/qxkHXoG/vFRq8ephEb0DNz3leuRI6db0TPwz/s9
vN6MoZ6BKxpX8L2s7UTPLk8GN7vLjvzDM/Asd5srhHsPegZePSljbGrhA/QM
vHujvpxiayh6Br7m7nbd+OXx6Bm49te5h4QqUtEz8K1H5zzOu/YdPQM/rsAf
PmVtIXoG7txe+dX49w/0DPxCi8hU95mV6Bn4BH+Dg4ZHa9AzcK8H14aOjWhA
z3icF7OzDwY3o2fgi35UZAfNb0fPwH1rFqgG8FHPQ8N//2fUH57ZHDwDl/3r
/7+d9zZ6Bn71tEX+nM5g9Ax89LNTEX2XPqBn4Lf5bzUm1iWjZ+A5NzgCvz9l
oWfgLVujp6w7l4+egY+Uurvk5qIS9AxcrEXleVN3OXoGPkXQqtBBpho9A3/3
MXX8NqM69Axc73miql5LI3oGrh51cLTuo1b0DFzU8IKZn2wHej5jwB1iyhn9
h2c2B8/An05S9neJuIGegc/Snr+vTeAVegb+YKJy0gm3d+gZeP7qTnP71i/o
GXildeqllDsZ6Bn4KWsTl+NvctEz8Guq633CjxSjZ+C5w7c5F8ZQz8DLDbiM
nzVVomfgH2RKb5+aWouege8tXpSz6lADegY+KXzwrFZRM3oGfqEy3d93TTt6
tviHi/7hmc3BM/B3Nye+P7PaFT0DT5KrrwifHIiegU8u/LG9OCkKPQOfYL/j
17KeBPQMfFa4wijHR+noGXi716Tu21Xf0TNwYYOfQpxHhegZuNzM/Omy20vR
M3Bfiz1eyvzUM/Dg/OTZepXV6Bn4fjWNTfsn1aNn4APdntcXHmhCz8CL4pUj
1b60oucF7jxXZTXF/vDM5uAZ+HeuETn6mVfQM3BD3qfGNov90DPw5i/vxsVl
R6Bn4Pqx0Y7dv+LRM/Bj7bc81J5+Rc/A37m/3brGLxs9A795JchyRHY+egb+
cuPV6xtdStAz8EPOYdmp0yrQM3Czhmn6rb+r0DNw+0236sWKatEz8KFdb3i1
xzeiZ+APx3BrTN3Xgp4bP/Me5ESK/+GZzcEz8Hrz2ob1+xzRM3Ducr0WdU0f
9Aw89u39Yu+St+gZuG/fROFg7k/oGfhrha6J/YEp6Bl4ycKauz4BWegZ+JhX
+uWz+fPQM/C5Zsv7zD4Uo2fgMg9HCeirlqNn4At/n3O/OI56Bk72109+3lWD
nvH3xn4+fyynHj0Df2Iu9UFVqhk9+3fxqbjLSv7hmc3BM/Kv90cYfrdHz8BX
WM+tFfrwAD0Dd/G1eHypLhQ9A19ntP/iJe849Ay8/ehOv7DgJPQMfODxvPBf
OzLRM/BLx7gPyQzloGfgr+42G9zvKkTPwJP2pJ4tDypFz8A7RuckSyhWomf8
vadXbVs2mnoGLpwTXKrfWIeegfvmySvvzmpEzwdlBUQ13aX+8Mzm4Bn4wjeH
Fqg0n0XPwB88mfUxsf8eegYeMuXZp6/VwegZuMQ21bVGL2PRM3Al/xgF08hE
9Ax8ZbHbish939AzcD8Bpef2I6hn4PJPp873216AnoGvt7et4q8oQc/Aw6Yr
DAZoVaBn4J8cH15Nl6tGz8DTawQlOnipZ+DF6629JSsa0POEHYL1w8Pj/vDM
5uAZuKH7PH1hfnP0DNx/l+fXZep30TPwLQP7NNwGgtAz8GoiLbAhIgY9Az9b
MSlidtxn9Az8klR3otnhNPQMPMnfqLGE9zt6Bq5FtpqP2J2PnoGn+s3TmSfF
Qc/AzZWcFFWNy9Ez/t17XXEH1lShZ+A3+w00L//1fAKegXvtzcoN/FVPjBLG
5pTWxpJRIhVjTnI61WWDtS/MPmmEvCez5pSme7+6dOkNY3VnHeRl7o2ZsppD
WHcCXv2ybxwXFzdh873CA8mmHN4/eIbpb2tOpMAffG3m0GxNdyHk0aILN85s
ySXRC0cURpqKEOmKxvTYQ3YE+LjUEWvdZUXJ2i8RA7fOWyH//pN7kqb7WFKv
O2JrisIp5NflebuHh8XIlon3X5kdNEC+QY8vPdJUgpDJxqtSfFYg577O72fK
kfwjnrj3AudlNcf9ET/Wh79e2rJt+wn0BnW8wFmLdveN0cd5Dv7hOLWnjUem
ugqsAi4kv6ciuo3WXYGvns91T5nTi8fHup91Wo+DxTjk7PoVcHa9BTi7PgCc
/T4LHuA5duG2rCr/tnPoDZ67Di59NNZm5Bnk8JwwbWn6BS+No8jhvtY+lBDu
0r0dOfv+BZydbyFO9nkBz2wOnoEv8TnRrcVVT4DD9XJvzvhb927UIYfzm9MY
qrH8IPXPzktwvuD4qtkzlh842UBE1mvZVtYGkS0lZUujTDvwvANPUqusk9Xs
VmfH/1/j2esa1RliVoYDAqtgvKvwnpPRj3vx7zYLCiq6+9E4YTxwY7sn1QN2
9eif/bsgHsgP7HhCuOrWc3EN/BE/O29APmefl7/SdrWmWfZ/xgm/t/UE3/Sf
efR3/Zd/OE6TpI0A75IGvI7Az/ObrzZYi9P1i//6u3B86c/dod5rqR/4XdJ3
anwPZXkR+F3ABa/svjjnyAXyNHSl0qyWRPIwoSmAEzmsLvFgICzzhzEeB/Ln
7k17Xrf8uoPHAb7cZEbwoL01Hmf1mn5HTiQ3qf80bXK7DL1eIN/K8j083aHj
iscBbqLTWpLtaYbHifIbWKzpzvfH9QX5ee/1l9Eu953wOMBVjMwltYwP43EU
+AerIk0F/zgO5HPzoVuZZ2Qv4fUC+Zw9H2D8wchpidnHNXA8u56zqfDbKU2z
CszP0revf9RvuYn1NOQr7KR1DpwnIf2uwVwmhWRRIf9ejrIUUeFdWyGddZjA
cWAeLuQxz19vcw2PA3zDtA0aMucs8TgwTw4qGnfxjtmA83C5d/V9d9m+P64L
2UMNfaac38jBm7NYX5Cs5giy4fyX8md9B9Hn7zM/9dxleQmZWVxpsHcZ8tN5
v0ZxcdH7JvBa5aFYU86f+Rm8XYji5tSbOOB5ZPuH607vAdcJTqQw4TLZPmla
3AkCXOqf++xoIqczdWN3Pn1OgPsv+zyyORwn65/78hjyyTC3za1CH4+vIck9
MGwvSkTnmWxaJrkFjw/3cfbx2RyO8+w19xGO8l/81fBSkfUyeHwuDZ7vkS10
PBwfngfYx2dzOM7+Up6V7n5/8lgr3pemeuJ/HB+eK9jHZ3M4zvgxfFKaYn9y
qwC+S7KplMM8zFXnbx22lySC0869XRtpgvPzpplAUmSLFCnPmjylOGcPznP4
uw63tuUuW0jXYYF3z93T8/7pRTwO/N3myQWrVTJo3oD5XP12gdOvhJPIfY2H
PWQ16XUKHOcVyw/7+Qr8sDl4gN/L9gDecoM65uqsssB8CM8/kae8Z8vVPsD5
ANfdncUzRaTMr+B4eC7qnSW++O3Y2zgerscliYafXa5exPHwvKSds/S1xFZn
HA/XqdeJO2F18udxPDxHHVk3OXHohyOOh+s3Y8uB8ti1lni+4PmHv1l4r8U2
N/IkhdhEHS5DD0KqCuXrjzvjeHgukt04/PX74hs4HuaD7OuxfYv6HTEeuI+b
tqqkHdd9ihyeJ1eUSN7U0ffBOOG8X6+c8stexAP/LlwvlvnlKYkN7sjhuW5A
8aHOsLA7xgPnqzNFI1W/1JU89PT0HGGSgs/JHHVpuYn3XXEewn0/U774/Yyc
cOQwPuXqyqqLLsFko7uspsPmShxvqxdyMWVfInIY/yVKJnmF1yeiGui4nMuk
Hsf3XVJ2/MKThRzGL1g0Y82ohK9k3ofKuQ6XW3H8NOvZ90X35iOH8aEWhnrt
o3LImEaf0Q6bO3H8qzvRzg5fS5DD+CM3O/dZahQRQcstAp/29eD4SUWyK84+
rkAO47uDHLVrIsvIT9fgfnVruj/kRW+EQr1IPXLct9Cle79yUy3plDzQYX95
CMefdBqSnabRhBzGa116dGvC5Qby15/tKUvhwucuJYn1k3dfaEUO48XGVjvr
vm/+9zibuXH8hexkoQ2cduQwvthbwcG1u42c5ES2TM2n+1IqpJv5Da07kcP4
LfeXrzC410GafEY3ftzHh+PXHhTlcRDvRo77SUr3q9gpdhHjI0dqD1TRfSyB
AUrDj4J7kMP4cbMclTwzunEewvw/t3/ITqvPFucbcL1DascW5QXgvAJ+abm2
vdHqWJw/wIWyTpsL5SXhPAHuGjLgdO12Fs4H4IXNLzo8J+XjeQf+xj9Oplix
BM8v8MPtbSN+uFTjeQQuZ68yIPG5Ds8X7vcQudipNdCI5wV4pFdq42XFVvQP
/IOky+n9Ee3oGbiM/mtTm62d6BO4k1/2sXstXegT8vB4m/lhOsoW6BN4jGci
n8Tmp+gTuKX+RPeTgZHoE/imdTyXu2MT0CfwleaFCwpWfUOfwN0txVstP+Sg
T+DmTfwan5cUoU/gpOX6iYLkSvSJ+x/O5xmO4apFn8DThKbor1dpQJ/APTyP
7LA3a0afwPfIBWtHBbahT+BunF9Prc060Cfu65CZ5u0hTH3Cfcpuo8gLPfGT
6BN4WONvqbepXugTeP+ql1+aLd6iT+CtgnWKZ7s/oU/gq+JW8Mm+SkWfwFVc
vXu3FmSjT+DhdZyitfX56BN4jGXewrtjK9An7mc4a545cmU1+gQeKBCbvMqq
Dn0CN7vH8+ncm0b0CVx5plZ0aG0L+sT9FXs2FlrcakefwA/5nsx1m9uJPuE+
nugT1zL+3WH0CfzFbNv51fL30Cdw21nLfpqsCkGfwLvPj7qcGB+HPoE/j2z8
vqUvCX0Cfxe81eCscBb6BL6No7sjWiQPfQIvDxX+9ftqGfoE7u7lJxX/sBJ9
Ao+QP30/KqIGfeJzi4ePvEVzPfoELi7TIPNKthl9Ai8OWTSxel8b+sT9G1Pj
Rt7c2IE+4TlncivHMCReF30C/3agdVn14dvoE/iUNWlGhmJB6BP4h+WOR4oX
vUOfwOU010VPOpeIPoFXXlvyIOxNOvoEnsvF96l0dQ76BM69WyBw/7of6BP4
/Kznbu/0KtAn8JWk0nnHgmr0CZzzxGpBnVId+gTePuXKjeeHGtEn8KjXGU6l
D1vQJ3D1J6PUrx1rR5/s91/wCbx6QYJryjIX9An8wxSnpjlyAegTeGPL9i38
K6PQJ/ATToGkwP4z+gSeP6ro7Vadr+gT+M5ZUfJ8Z7PRJ/DLdjFiTjYc9An8
5nZ9x0q1cvQJvH+yd83Rjkr0Cby5aurPhoQa9Al8Sb7zrJ3R9egT+J2Xx9sL
C5vQJ/C9y8LrRce2oU/2vgXwCXzKjFub3ux0Qp/AG7gnXBzQ9kOfwKV8Zy1X
3BiOPoGHxo9KvX3lE/oEPl60PnKsdAr6BP659uv2ry2Z6BM4/7PjdkHBRegT
uHfGidNNIaXoE/iEwcgwyaIK9Al88+pT512cqtEn7rtw1je5sLsOfQL/muV3
npc0ok/gS5W3bhu1uQV9svcngE/gynctDj2ouog+gZe9yalNu+qLPoGv6q0/
VNwYij6BH01y7VicG4c+getrbVJPn5KEPoH/WJsxq+/TN/QJ3Dllcn12dQH6
BD61e0rJ2NoS9AmcM0a0PrCrHH0CD/QXrdxgUYU+gS9UG7djknQt+gS+bu4j
jlhLPfoEfvfmt0WdaU3ok70PAXwC9xod3slbcR59Ag+MmOC53Pkx+sR6e8q1
TTZNwegTuOoG79si02LRJ3Cfq2+Sr8xMRJ/AhQpcI/ij0tAncLGrCqHH5uaj
T+C+47M1VCZy0CfGL3Ns8orR1Cfuf4g+Nq7kZiX6BL5Ex2Ts+TE16BO49+j7
p6a/qEOfwDsyCrUCLjaiT/Z+A/AJPKXzwrSiAUv0CXzVPd/TB97cRZ/APzxb
l60+4hX6xH0CX98uqjsejT6BVyeO3bJK4TP6BK4j3qoWH5eKPoEHeI3u22mT
iz5xX4G6Y+j+LUXoE3i0yWX/J1tL0SfwOWmftU69qECfwHsOJmiMka9Gn8DN
ep703AuqRZ84flFLYoJqA/pkr8uAT+B8/+wrOIU+gefflBgcf9IdfQLfaz+8
k29cIPrEdfyNze6XtCLRJ3BlLk/PuORP6BP47c1bk2wTk9En8IW9vNlxZ3LQ
J3Afoc7pyyML0Cfw5W7Kol+ulKBP4I0/Jl7iTixHn8Ajz0w6/3RtFfoE7jhy
stXqLzXoE/j+xd5zJq+vR5/s9Szwiev7/+wfOIo+gVsdblD1CXVDn8CHlSe6
3QvxR5+4Lq+SusNoVzj6BN6wxcWFe+JH9Ak871q4jnLaF/QJXPeOsuRE6+/o
E7hzrKwwRz0ffQLfK3yuzCC9GH0C31nRcHJuXBn6xN91xTJ0yYFK9Al8zSSr
oLyyavQJXCTMyt/yYB36ZK8HgU/gxv/sEziEPoHzLYu+Kd9+A30CF8vJvSul
/Qx9Aneb9Vx6w6Ew9InH9y0vc3n+Hn0CH58yrqA9OwF9ArdQPLrnrE02+gT+
Ys/OLSpr8tAnrkMNv+OU6BShT+D5/F5FWzt/oE/gSz0zalPOVaBP/L0LMsuP
DlShtxn5ldu4uHrUH9xWrbHju4bP7bAuKZKgs85jdQh6O+ZfYavp3qUecZuv
5uCnePQG69SLT6y7kViUjt6CLcqfuct2qn9Rmmx8XTAPvcF63ERxgTi7Bg56
61pTlsaJbFePPnvWZalRBXqbzsTZtG1Yc8ZlWtdKZOKUXNPd/aib1q+OMHGq
KzZ4Sxi1oDeIM1L0lH+SSTt6e8XEuelqwwD3jE70BnGWDx/eos6h7+MinnVv
OZED6p0j1vWPzaXrTbAeeqYpQ+BTZiB623a0liOr+VN98zduzz1x79Eb1GOv
vvwoUO2dgt48l9bwnOT0qYdVS4+6XJeN3mC9KU94lbu5USF6+8FfPTfKtFd9
bpN8/WENWiccxcSZvMUrfPJnWi96w8TZqX77wD3FevS2hYlz0oIrQmOeNaE3
iHPDFNsIZ/H/U8dj4ozhV1nItZrW6yDOzRfCnFYM0HpRCRNnTY8C52wYrb/9
ntfrwlHmIlJPf0QPmp1Bn7B+mi2z0++p5jP0qTa3SZWLa1i97KKtT8ZQFPqE
ddjrPTN+LBT6gj4dBxoOa7oPquslnJM3ts9En1Df3ih+K3PmoTz0mZxaf81d
9rd6TbVh3O7PHPT5i4nTX3vZVGmuKvT5gIkzc8X8r25mtF60nInz59wZliMr
aL0I4pSdKD3t0tYWWv9k4pRzumI0eJDW3yDOuN9cscvGU59JTJzbLGxFrbLp
/Dx9q3+ZphgPuSm89dszyWPoE9aRK39P3Z714Qn6FO/r+2aqx02+Hr3/vmBh
OPqsYdaj000iWid0xKPPyP19Bu5+I8j+0aXDbxvS0Cess4xr9ZxluYDW3/Yk
9fZEtnCRqlV8d5JLCtGnGRPnxY35LmIrab1oFRPnq2VpStfe0HqRGBNnvtyn
Mp6p9egT1s25pSNcz99qQp8RTJwKAi+X9Ay3ok+IU8F2c7uyCq2/7Wbi/NyZ
uu5MO60X1bYPNES28BHBf76X2Ys+YT19SrjHAb1GWi+6unvAjqPMR7S1Z7Xv
GKT1IliXDyaBv0bGfkSfcz/9HMvlwEsO7Vmdx7U9BX3COtQDca3bjwxp/S1j
9k9/2VQecmmgN0rZm9bfapg4xb07Jo36TutFkUycDZceHjvfRutFzkycb2fq
bxzaV4s+Ic5SCd0eq28NtJ7JxDmSd71Pmxqtv0GcD38+nqm0i9bfvjFxLjwt
bWs2hvrU0x30lE0VJLn/fBejiT5hX4Fr6Ng+je+0XjQY83ueppggSXDz37bc
9RX6zIT9CTEnhe1TYtGnz/Tf8aZ6AsRujcCM+vAv6BPW6ZTMf/c5Ls5En2tc
fu1w9+MnPNNeyOjn5qLPvUycuuKhxTEXaL1oLhNnXu1bs53Pab3oNxPn5EfF
xa4vaL0I9lG8H9t24PQoWn/zZuKs5aoWarRtQp8Q59j2wohDza3oczUT55O2
IyGm82n9LevtsKa735/1Ilif3Z8zku+mlCv6NJ84/COyRYgcOnGgaNg7EH3C
fgxu69rWOyrR6FPSceg0R1mIxNubBD2NTUCfsI757MnNb+tS09BndOMgH5fD
SHJ5nd4Nx5G0/pbJxJmrcnhd+VtaL/Jh4iwdIxCpZk3rRaeZOKcPteoGHK5C
nxCnSZhkHOdILa1nMnEmDDpYVsc0oE+Is7XZcpq+PK2/RTFxipyMqDHRpvW3
tf/sT/izXgT7Ih4k5X05s/gK+qw7P+KmbKoIGbFh/IEvEbReFMPsu1ggH134
aW0E+nSt5pLRFBMh/O+/Ldb/HI8+Yd285unjLD6PVPQ5T4sr0lRPmPAfF+l/
sZLW3yDOnfslQ/gbaL1IkolTfd2nfN8ZZeizlolT7F7EhSkLaP0N9oeclJRf
0j+N1t9cmDgjUrd4K8jS+hvEmdYgdm3XUVp/U2Di7C0UUM4qbEWf+qrceZGv
/6wXwT6QYJXYEv1Pl9Dn/LYRUzV1Rck8hTfddzm0XgT7TPbY24w4VhOGPofX
/b3fYwy5025wdoH7R/QJ+0/ky7j2fPJMRp9P/9k3MobImFm3idvS+ts+Js4C
x+QJ86YUos91TJyfTMxXpez+gT7nMXHmBI4OD9Wk9TeIc8Mkw/XDtbReNMTE
GaNgNE6zlNaLIE7uimsX7f56TgCfvkycOXl+Pl+laP1N+gTPa9OJf9aLRjD7
Xm7uWFV36+EF9Nkwladv+ONYsiYkMzxD4Qn6hH01cqa7Eje1h6DPdzncq9wN
x5KHi/MK1Pe8R5+w3+bkRMMKG58v6POaM/c12ZFjyRZupQszTtP62zgmzj0v
zjlt20brRbA/Z5Wb7KvWG7ReVM/EeSfWuGGtIa0XQZyCC+LOu4+gPiHO80/F
RMuf0HoRxMm/1uen5yNaf4M4dfqTDmc8ofW3HC9eJ1mXP+tFsM/nwzJhScNw
a/Tpt4U3M3KeOPnhtvNG17Z76PMGsy+iNeLoaP3e1+jTkpd3vOZ3MXIyosF6
vH8M+oT9RaG7ko8tCUhAnxrRPIc5VmLEY+V9/lJrWn/7zsRZdfSqTpMnrRdB
nAkR+VKSCbRe9IyJ84XXRbWQQVovgv0bqaukwmZOovU3iFMt4vi6MzG0XgRx
HpztdSNwF62/QZy6ehxO425af7v5jU+f00v3L4G3Axf5AkwfSZDTLqnSb8Q9
0BvsR7p2W+aOjPBL9LZwCV/HsLoE2aIsUxTuFIXeYD9Jj4d8Z9vrePQ2ooFX
1b1anBTYDNx8cIHW2W4w8Zz4fEFO14PWhWC/01rO1Yuq/bQutJ+JU/7z4sB8
xR/oDeJ03X6qLlqZ1tkgzsHkRBv+XFoXgjjPqE4Yvf00rbNBnDs+tG0TEKd1
Ns0h/iXuhlJ/eJsQxm8vO1KKjN3/ZJfSrtvojYfZNyVnWjK+fvpz9NZkxJ8a
+VqSTJUdfnTfLQK9wT6i9Zmhqic0aT3t/Xh+cU1dSTIhSn/cNidaT9vAxHPz
YMiJ4Hu0/gP7Koe3Scfy2NP6z3gmzqC6GrFBYw56g/1dG41TJmltpfU0iPND
8eQQz1Za/4E4F+ucWVN3jdbTIE7/+JR8pTm0nsazQFBE8/u4P7zlVgrs4liN
I6rzZZJ0VW+hN9jnmSnbr3sultZ5nt8T8DWdOI60ji3Zb/PoLXqD/VSj2t59
OzDlA3qz3ijQNPxRiuzv+uQtcp3WzbiZeEKGKkKEH9I6TxOzj3R6p+bwwUu0
zgNxph+Wq/R8Tes8EKdU92q/DwWltA7JxGnfYlWjMJJ6gzi7D6aftXlejX6g
rvIxuqD04VEP5FA3mNLabRItR/dfwf39+PXzojz6V5HDfeqZ/Ybs+nOXkUO+
je2YV/+dn+4n1GfyxovkWUPnZtvi34X9OU8Mjqmle3vg+e1k4rSyLvW39aD7
dmSZ+s+GnUU3Yhpp3QD8w3mH8cCP5E4XTllD8xXME+unshaR9+n1CPWxzMTM
YkHbWjw+e786/C54H19TFPT1afFzHA/v9c6G3NO9062Qr2DqAEINJq+vytN9
xfAe6iu62Nhpuy+Oh/fZ17f2rhnyPo0c3tOtHx6PjLl6Ao8D718OhUVFd3Mf
4nh4j/OxNEp7V3sUObyfnvhnf/hBPA68dzTn7Tp98f1dHA/vL/n3507rnKCP
HN7LVP/ZH74NjwPP26Kj085f7HGjz9XMc3vqVeltP7II3k8hD6jeOVDhlHIb
jwN5Y9I/+7pP4Hi4TjlHlaYJC7vheDhfm/7Zv22Efxfe62fobUk0j6I+oY5x
UO6Kd+avU8jhvfXFBeXqG0/pceA9/VP7xF/WCw4hh/cyqA8Ah/dQ8AMc3jvg
/Rc4vGcd/mc/vDJy9v5t4PAcy+bs/djA4fmHzdn7q4HD/Z3N2fulgcN9jc3Z
+5/hPMJ90/9R8440wbt4HmF8uaHh0gRnc/QAdblfOr9dlmnYIL/E1M2GFvT7
ilfT6w7ec9k+4T2FHSe8l7E53HfYnL1vGeKH+mezuWDfxs+vcN7C85Xos3Nf
RTUf4P58qMNLWa9pj5zgjt+nAIfjw/5t4C+W8mQV6IXj94/AgzbHFMqofMHv
H4G3JyzIdMmkfbSAf9AY3P2rjPbRAu54dMlQvWoZfv8IXPZL5NamTbSPFnDB
fF3Zyp+0jxbwxtrW3sIA2kcLeHqfa2rmDtpHC/juy+I6VSNovzLgqdcNokoL
aR8t4Kp3g6cVB3ejT6jDH7zSK2NpfwV9sr9XAp/AJ+RzlSo8C0GfwOf9VJ01
n/sz+gRuvYtrdt2Tb+gTeL+RyDbfWXnoEzj/jBSVA3Il6BP4ERmuU7M+035Z
wDUXe62abFaDPoHPXasiITGlAX0CF9mRWyuUTvtlYTyK0SVcarRfFvBjqvwa
v8WpT+CcNduD+xppvyzgm7SeSnfF035ZUIdn+wR+LPGcRG7BS/QJfNmB3YVN
PR/QJ3D+Na9vJmz+ij6Bu3J3K3fw5aBP4G4Xc6SXWxahT+AB9prXDVTK0Sce
x61m/+5a2hcL+Anfi4s236lDn8B1wibzaqxuQp/AFRNi8le0075YwIUaX+aO
30z7jwE/39mvJjmL+gTePKARIDpI+2LVsL6rBZ/ADY/de9e75Dn6BD7JQ4iz
SSAWfQJ/wWuUmqSQjD6Bn9K4ZftKJxt9Al+rEL3TVb0AfQKPkro0bXvsD/QJ
PK1l/nmPfZXoE/jroa86rkK0zxjwW2OMp1+MbkCfwM9M4+m2PtKCPoEHPdh8
eKkr7X8FfLLv43RFA9pnDPiNF01L5qvQPKDA3K8rO5R23bc6jZ6Bsz0DvzXS
8xZP6lP0DNx9RbSmmEcUegYe82tDeqRbInoG7qCTv2ifTSZ6Br6/KXmBtWUe
egZeHZjeufI8Bz0Dj3IXjrD+TftfAZ96aV42uVSNnoFnnQhZ+X4+7TMGPNxO
a+zbkib0DPzezfqqF65t6Bl43ObVelu8aP8r4PN2uyVuOtOFns2Z58bxXdeH
DIqPoGdz1vdr4Bm45balqdOin6Bn4EFXV06fsyUcPQMfIyd0IiLiM3oG/iSk
M55jlI6egS9Mn/GtvyoHPQPf6MZVvcqrCD0DP3l20agx78vQM3DVZ0OJv8fT
PmPATbZKvVj8shY9A+8tvju/VZf2GQNe2LRoRA0X7TMGfP9QbYNpAe1/BTyD
f8m2Y2866Xd8zHNjLe/Bx/K3dqBn4GzPwNM8VpxZXnofPQN/Ux/tcDOY9hnD
8b8PPnvw6xN6Bp63SOVthS/tMwZ8xGt7Extd2mcM+MTT+y4mCNE+Y8CXLln2
QDiB9hkDbqbdtdluuAI9A7dZZNgWoE77jAF30O+aXvetHj0DH69pO2WaNe0z
Bnz41bWz18SoZ+CnIooqrjR0oOdh1v5b8PxfXIO1XgD+YfwMpv8YcBgvkVFm
3aJ+E88LjHdm+pIBh/EhY62DlJ1oHy0YL8L0KwMO4520Jst+GB2L5xHGuzF9
zIDDeC1OzfTAeUl4fmH8d6a/GXAYv0fB2OJkJ+3HBeObmb5nwGH8B0WJ90l1
tE8XjBdk+qEBh/HFve3fx/jQ/l0wHvqkAYfxtj9qLRQUaF8vGA/904DD+ACp
BZL2YlU4r2A89FUDDuP173G4FTbQPmAwfi/Tbw04jC9avJbL34P2B4PxK5k+
bMBhvL3Ey7k3xrbg/ITx0J8NOM4HsRnD8QdoPzFYT2HPQ+CKioeUl029xppX
oqQk9JzDGukXrPkjSn7VL+5YeS6aNU9EiWDIij3XziSy5oMokagRP5Y7/hvr
vIuSW+JmezbszGGdX1ESVKBldnt0Ees8ipLkR3Oci5NKWedLlLQv4Mm8rV7J
Oi+iJOyY9mqfRTUs/6LES3bVvALTepZnUfK5Osw5Kq6J5VOU+F66NfHjkjb0
CesmbJ/AR/aaCF2ZcBV9AhfUPb9jS5A/+gT+oTlgdOCNSPQJPPGyh9vJmM/o
E3hWjIlP1IE09An8Zu/DDK5JtA8bcLvoQBFxuwL0CdzzvJPsviU/0CfwvdNC
H3+3ov3BgB+9NHVOny7twwZ8ca3HvM26degTeEnY812XPGh/MODm3yVDXKto
fzB23QB8Ai+NOVP6XdIJfQJX6rwgr7/yKfoEnrtizrn5BeHoE7jDnsbkrcO0
Dxjw6zfjCx76p6JP4GkG6V0dM2m/NeCbPXmD7jTRPmDAj+tXxP94xkGfwD+L
Hjgh/ob2AQOeZf6tb6kr7QMGvDxX1XHfEdpvDeN3iSZ6VrR/BfBJq4QvzYtp
xvsU1E/Y9yM2B8/Aw+zOh00dewk9A38nyzOc8/QxegZef/1lVfg02m8NuKPe
849zp35Ez8A1DkuPudCUjJ6By6Vb36raQPutAZ9w5lfWzGe56Bn4ipVqBw6I
0X5rwHdwT7AK/FqGnoGrHLZNOhtP+4AB3/ClYevjx7QPGHB+P9vpfOdpvzXg
H8dNOc7v1YSec1jfoYNnNgfPwEc7CokUSV9Az8AlVpnsi9Gi/daAD5XM1VE1
of3WgL/zkVRUlaH91oBzq5zSMFhE+60BFzbV2PmyIAM9Ax+VPfrtzw+0Dxjw
9N0/7xRfo/3WgM+ushSXX0b7rQF/um3O3Zh+2gcMeEjE/WmlubQPGPD34/hf
cYfSPmDAF3bauTnfaUTPVqx6PvgE/l5oUoT5GNpXDXhsz52DHvG0rxrw2Xv3
nnY0pn3VgGe13/OKP077qgH/IJxkt9aa9lUDnrLq8Y0bk2lfNeDHVN/pNFXQ
fl/A2/L888csoX3VgP9MyA4JCqB91YCPWltweGAB9Ql8/PN1bVOEqU/gMwXD
bdbU035fwBebyPAfTWwgr06oHDopV4z1t4MH9OfmtoSSdfzff7WI0DqhI/83
f+mohL+/r0ryE6B1whl3DJ7J52USsZwnKa+5aJ3QafVOP7vufCIU+3Oeix2t
E24yvKl5fEsp4X623cNwoI/WA9cctlbIryQDzLoY8GbYx2sutH9i9xDyDMNH
kyYoNhLL12EGtiq0ThhiubRNtLyFnJ5+UKKhlxv5xoSGcp7kdmJ6VyR5ZwSt
E8amLd04/LiTHBsZey7xDK0Tzst1ejtg0U0M7Y4qKCoKIn9ckjOpd1Mv2aBl
KxM1vwrrbDlu77SNb38gSyctajGVa0S+a6pzyqN7X4m4VZee2O125C/6Z0kt
Ncoho/brxLeI0Lrf3Qk2mYe3FhMejRezUl37kM+fsuddYH456WLWB4F3Mfty
e4b2Bb3movW9vC3zFG+UN5GOv7195EYebZDKe/lmG2mpjRJ1saP1Pe2YsONq
T/56zthrlNCrSut7H+O58lQsuwj0OwK+8KvOSiWtHrL8ULH4Us0GrI91BzvH
XedLIhLjN7RZTW9HLuHlYzkmNouIjHi2XfdJF/I1sx8XF5blE76GwZh5E/uQ
+3c+HtB884NYMeuewAeY/bHmieEB2s7cyH+s+Lie61YLOalyaG/sOlpnK38+
74btk3Zi8mqMyBxeWmfTDbbttbLsJEbT4j7e+yyAPCEq9YC5VjdROLuML+pw
G9apklJWlY+pSSej/frqIud3IXcIHOTPls8lfNd1td2DepFzdoh72+wt/vd8
bebGuhMPs++01UXYr0WE1q9q5Lbqn1FrI42DMTv10vmQV3v1jouw7MA+Y8B3
+K+9GKLVRRYw69FQbzFi9oWKrteynfixE3lGu91FzcpsIrAgoLxXtRd5Y/je
B+4PC8gpZr0YuBCzb/P4ZkOfG3f4kFu5nl7WZdlOjBPGbvulK4C83v3j01at
TiLKrINDXWIp7J/8/uuMXnoP5YPFYqN080gzsx4NXIzZx1gn8d5r3kQB5DYO
yxMVtDvIUWYdNpq1H+8NrEOx3q/fMvkN+OsOp4gL3S5Ek8lvwLN8zocp339B
VJj8BnyNd/7Xi2oxRILJb/g+1d04XCr9hQgz+Q34+zmfx8h9/EZ4mfwGfOVD
Fc+4hbnkF5Pf8L2Y2Y/XzeQ34FYynUmbfcuIFZPfgK8/U3cy/VUlMWfyG/Dj
U0PfZZfVYH4DLlDA+/uZTAMxYfIbcCP3nVszHjUTIya/AX+29eftStl2sonJ
b/C+c9Qhfo1PxzOyjMlvwD/MVQiavjOCSDL5DfjXSg3Jn5qfiQiT34DnjZsy
c3X7V8LL5Dd8L/M76awxmE26mfwGPIHZR9fL5Dfgp+7PfnX1asW/94WP3MjP
/7y79LVhNWll8hvwKOVmL5nHdaSRyW/At7Wql3aXNZIaJr8BP36h/siqja1E
hclv8J6ya83C8YFyYUSSyW/AV0+0uexo9JEIM/kNeDOfzfJ901MwvwE//1jO
//vhLMxvwO8y+9lOM/kN+NPJ+RbHSBUxZfIb8FD7tVw3J9VifgPOrTPb/sze
BsxvwJ/w2X5a97iZzGHyG7wv3Nv78/6NpndkFJPfgHN352220v1CeJn8BnzM
nNcHPvZ/Iy1MHgNe8Oyy2sb+v95vmTwGnPC8UFyZX0dqmDwGXMfokEHiuKZ/
+qT9na/guXpy5SIjN8fPhJ/JV8DnjhtpWTQnjZgweQm4sPxi/rkhteQIk5dw
n1WiJvca9wbCz+QfeJ5czWfk2rU3hdQyeQb4ypCKjFFH68nJLj1BuZZwwl63
2sr0p2Kvv1xmxrPXC3xSqzI2msUj/yn7d9+2OUSJ6f/Grns/YPpisflpnfi0
htpHhF2/fe916X7U/BycV//2NT1AohgOHton/d2/VIHEXP7x2z0oH3nJZMGQ
vaOOELNjmw2jD2f+8VwN/bjg+Wd9sb/PlVUHcT/MDNZ+G3jOxPXlx4MueVdo
P0xcD30+I6HuHUHO9mz0H56Bsz0DZ3vDvoIsb9DPCvLe816p/cfTbcj/clGy
5YIcP18C7RsGnvtHWexTO2OKHN9zX9Z33lJeh5z93gec7fmh9r/nl83h/fGP
88LkbeDdj8Mtqo42EH1mnrD3A1gx8xP4v/1mtck7Zp6A/5uj2xVtN93H9yzg
NyrHChi62JHXzHwGPvOffpW7yF3m/gt8sP7f/Utvmd8L51Gb1ccSuArTx/Ic
67x7yHXyNS7cpxbPxInraIbDnnFNTiSYmc/4fGK6TVNgyIN8YfqSwXwIZfqt
BTH7LoD/YPYvTZYo/f/W7fOY88J+roB5xR7/inX9qqntcF8qf1zNDfbnMPPw
JrOfJ5jx+V/zE45vx+rTyI7nEWs9YvHbQtHByRZqb1nHOc0cx4a53uE46dp/
92/cQRIYz8BXD57idTM1J7Ua/+Yrdt34f+Oh3IGZb+y6KIxn86tMPGx+iDkO
u04Vynhjc3fmOGz+jjnvcD2eYvoiPmfxuKn/8gjmuRGur0yZxsj5BqfIS2a+
Ad/8Tx9FTbJpivU9sdvl+Hdbu3qjj3rfxPnMnifgk50fXjDzh80jmfnM5l//
gwcw8UM8qSN0Rxkm2GJegut0SGg7T27eI+T4fsFcp8Dh+tIdF/dm9NrrxJ7x
DHxLEyfEPI/2eYb5/31Bh+JmiysklnU9XmL1P4T5/6LrJ7/XKUdygzk+8Ps9
gyO0nI5jvgL+qUUrfJ/DBewrCB48lHKWzfh6i9xh+goC71n+b1/EQBaXZfVL
hPNr0s8RMftynXhu90jW9P+BfOQlA4HZSx2ILnPesS5kK2jAfe8q+cj8Xrjf
1fMbWb7ru4e/F/h2owCFH7t88e/C+TqgUqN43Pg2CWD+LnCHgc0HbpArxI+Z
J3CcWvU53m/sLMivebzX/QToviDRBT3XvS9Xkwhm3sJ5N7PyG2go9CG/s3ZP
HflgALmyUFPmRKdK0h399nK1xBBy6YnOT8UW15I41jw5wswTbSZ+4A81/Bek
3A4jg2deh5nKDSDfW1Mu9sCpnPT+Xe/yH0Su1nu+5ubiatLnG7pS7DYXvudO
FRgf7VRRR7YynmG+2WrdcpK1e0XUWxUMUl3rkB/w85RMHfOBDEtxa3yP/onc
8rLL4Ul5P0jf3+8RSwaRe/Rdu3FlSSWx7tK7unYPF77Prqsc/WtEZQ05YzxS
NWwcN/LZXS+/9d9qIM+Y+QPz2fua205RFX9ClPKd3YNqkXs4bCWDp6PJwr8e
oDX9W5Bv7xkOXl+WSLje7SxS1vyJXDc+as52IQ7p/9tD0m/kV4qGxcsCykn/
Wv7vVtO58L1Y5va2HaGNVf+erzK630Arw0fU0q2OtCkYLNV9QvcbLChbUXV8
ZRPxZ+YVXEchlouMlr97TFbb2L/RS69B/vPucNFXh7dk0cYl58SSmpGfrNL7
YiD6mYy90eNbXUbX/c8p/Rgnl/eVcOkHnXhURNf3vUeq+KXHF/4b/87fyGO/
ScRK2pSS9r/jzKHr+9/bl/cuMKokFkL7M6QC6fr+ycCbS7kDa4jZhVEXLx+h
6/vb3ynOql/ZQE50Ri/ulOVDrpyW0V/a3ExesdbZFZl19nWs9fRbzHq6Emvd
XJxZNxdjrY97MOvjQqx18FxmHfzvf3P2/653tzLr3QOsdW0hZl27k7V+Lc6s
X/ew1qmnMuvUHaz16FhmPbqFte68j1l3bmCtLxNmfRnuO+z7+CCTT4AHPL8r
b+9TQPyY+y/7fg3PY8BPDJcL2Ehbk0EmzwDvapX079uVh3kG+Oi3nbFElEOU
me8vcP2L+U7qN5NPgB/2FvRcsiPn3/r5X/kEuN4vc+WY5ELSy+QT4NYfN2tz
O5QSVSZvQF6VqTFrPPYogAwxeQPXm2aZrR5bn/1v/eGvvAH85ZqukEX2+Zg3
gH8RyEq2WVpCzJm8AbzNaGdbRV85Wc7kB7jv7JA4l2RFfMlcJj8Ar9eetV51
dzgRYeppwNcw3+P89Xr9T94APnPyFO0nDlmkh8kbwF9Gjcz7nJNL+pi8AXzs
li2ru1qLSCeTN4ArSMzbsyKgjLQyeQP4jGbe6M/BlaSRqdcBV2S+u1Fl8gbc
B9VGFqlskX5E5Jm8AfyikXxEvHwoGc3kDbyfTv919VD1e8LPfC8DfA/zvczg
vn/zCfBDcg+CdypmkB4mnwCPfBNVtvlEDmlh8glwm0PTdfPSC4g5k0+AW+97
nRO+/wc5yeQT4BtF1/VcuFZBTJh8gvGYv3V4ZlxNnrLyyWQmn0Adkv2+doR5
XwZuxHxv4sx6D5rGvAe9YJ7fII9Z3NVaP7PuDtblwH9bWX/lvgl3iBZTz8Tn
lqVzXUte3CF+sI8d6r3M9wjO/7F/Cfalw3tiNI/1xJc8tK8L8E87Ts56Mkj7
JOO+8Y9Bd2M2pOF3UsDrjV3kX5ymfY+BL9i86XNvJO1vDHy/8sk9b8XL8Tsp
3B/O6uuC6z6V61frvad9XYBbnXZb7tFN+w8Dn+pwwtNIivZ1AX4p2e3uxTDa
nwR47eiI2491utAD7hv3mqgqqE77tOB+7DhpNet3yegBuJJ7zvYdE2ifFuAF
WiXZ18toX1/g6rNPtZSI034CwDtY/ViAR2UU7cowof1YgNvry2zhf0b79wKX
sVoi691C+4cAvxK3Z1qsC+0fAryB98Kkgpnd+Hvh+dA2lZPkG5mIvxf4pPzv
BwY8M/D3Aj+5NrtU2y0Xfy/w5EULzplpF+PvAt7P6osC/NO746arxtO+KLiO
I1sc9l6O/i7gs04MvSlMpH08cL/3W5mg7oNdGD9cjx/uuz4ctKJ9S4BbW2vE
f3j/HeMH/rI346gGfyHGCXwEq98I8OTng5fCk2m/EeQTnqn1DtP+GMDnHkpe
JubViXHCdW3A6gcCfP3up/vJXNoPBPc5Oz7TdVDIx3iAC7L6dQA3Tl2fLq5K
4wGeJnoiZUFBB/5deM5czOqbAfyt4XDbiEe5eHzgoqz+FcCPfxTdpS1Gzxd7
3efhf6z7wHUKXONUoqWHGe23AFyPJ60i7yrtzwl89t5h63dfaH9O4LcCOUbL
d9H+nMC9tJVmRM/MwnwFfAer3wLwVhcpP41G2p8TeHzxKK2EHtofALhU32N5
o1e0Pyfwpb/2cpZfpP05gWvKR70wPk37cwJ/eG+QT8u5hfyvH1ESt8to3eBH
X5YfUZL+blHY9KNhLD+iZF1B+Y0HVz6w/IiSTXaKjyc/TmL5ESVplhGXN6hn
sDyIko+sPgnA5dNiJvDOY3sQJf0H30n4va5ieRAli7O8ThkY17I8iBJHsXtx
11Y2sDyIEv0LtQrn5Jvx98LzZ6XQ20mBobS/AXCRU9ev9nNoP0zgArouuVxV
tB8m8NM+Rp8dLNLxdwH3YPUrAH5w69Gq6mr6fT1whbqjPy4b0X4FwHVfPArX
l6H9CoBnzsn2LvnViPHDc6/ctnVZlkdoPwHgCbPKR1XL0X4CwOdZvv95+N1X
jAf43QKpV1+86Pf+wEVPdO7VnkK/nwVuwVV1NaK0Af8u7sv69V7F3Zl+jw+8
TlN80XquVDw+8DT9LxbPt9PvcIHv4j1+IrGwHo8Dz0XPppgclddIxvHAB6vO
qDkL038HAb+TCt1gvH+gGjncF0xHu1/2NKP9u4Avflx8PjuwFq8jyM/Rnhcm
zAkOp32WGP7mOMc3t5b2rQJuMTDjofDUGpwnwJe5nHBfu6sejw/5dk5wd1D/
z1Cct8DtiqXTVs34hH8XuLKXodJ593L8u8Br7K5MSrhXhX8XuE1tRLD9N9rf
Cfhqy6GAKL5G2heIyc/nMq5oLWp+g/EAl5yoljL9y3uch8DLjgXqH5yWhHEC
d7/cufxLVynGCXxbxAulDZq0DxXwtR1K9uYbad9y4Je/r//SaUv7JuF3HAZu
cfLhTfjdKNxHWiP3ccIUaP8o4LcvXJKafPcl/i7gmSO9BF3exuDvwvpJyNaR
3ctov3HgqyUrFX+rpuPvBR7mpW/JI0yf64BPW3g93n8J7RMF/El6tZQnP+0T
Bfzj4VJdwxG0rzjwax+Kio3kaV9x4LraMjmPD7WgB3j+r2L1CQcex+oTDryB
1Scc+HFWn3Dgeaw+4cB3sPqEA3dk9QkHzu4TDpzdJxw4u084cCVWn3Cs57D6
hAPfw/QJ/9/7uyiZqX5a++ou2qcO1wenfmscmUT72AB325RRqpnMQZ+QJzuY
+gYcB3jOQ6fa3+vy8DhY91CQP5+2hD4nA/+5a67ZqKVleHzIk+N3Hq865vIS
j4/7ew+/qts+jvaHAb5Y5Mp4bb9CPD6uI6g4i9zwp31OgCsqJjoc2VaB8wfy
7QS1DvWoYdqHBPjaXtNoq0kBOH+AH7nybI1qJu1DAnwDU/eA+IHH6I+VuatE
+7QA//RtaLudDu3TAvzR+KqXoyVo/17gD2XMNwe40n4jGE+0ueb6UbRPC3Al
pu7x8D/e98EDcM93u36ctKH9eIFbmX8nmxfTfrzAz+fLvomXpv14gQ9OfTo3
1Iv2FQF+gNVXBPi4lPdxV3bRfizAtdpehmtMo/1YgAtvzXzF70H78QIXnEVW
ZDnSfry4LhY4TfrqatpXBLjXyulicgm0Hy9wY6buAd7g/jvHY92yWQcckMN9
0I/pawH5Cq4joZ/OBjus7ZHD/A938BzZZnruP/cn/G8/sdGkyCJMcOwXJ+R4
33drel05zw/jAT6S1ZcD4rzq7JvSu8eH9idk7puGmzeoChR7Iof7UQOrbwZw
6X++i9xJ+zkweTue1f8Bjp/D6i/Brt8CZ9dpgbPXSUNY66FSrH8/Ds6jRZqK
t1gT/bvsOhL2y/qPf5cN/u4+waDQq4ZnMG9gHhtfP/eSzn3y/wCDqNBy
   "], {{
     {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJw1mgn4V0Mbhs+cOacSoSiKIiJLiRZCSVotJVSIoiiVFBFR2UrWhEi2lEoR
oYTIVgoREVKibNm3ZF/67scz33U1zX3mP7+zzLzzbjN1+ww5fnCeZdk5Mcv4
lzXhv6rUzWmcVWbZVOqfiix7FH4W/ht+AL4P3gjPgCfD38P3w/fCP8Az4Snw
j/Aj8EL4L3gBvAYuqWdTpsObaH8Sfh+O1I9RlsL/0D4Nvhv+Fj6ddzuAdzuT
6zm0z6H+nfaH4BnwL3A/+hxEn7fh2+B+8FfwRPgs+Gu4L3wg/BY8BD4cfgce
DLeCV8Lnw23hd+EHuf807v8z/DB8P/wr3J0+e9LndfhMuBm8Aj4Rrg8vh1+D
b8o8bk/x29X8tqCeS1kG/0v79fBF8HvwdfCFuZ97LTw097tNgMfCH+m74Gvg
9fDd8AR4AzwZvg3+Er4LvgX+HL4BHg6vgu+Bb4W/gO+FJ+Yenynw7bnH5wl4
FZyrL+VqeB3t4+HL4TXw4/DrEhzqeZTX4M20z4dXwoH6NL59f7q8Sft0ru+h
/Tv4Pvgu+Bt4IfwxXFHvS7kK/pD2cfDF8PvwzfAYeC18I3wZvBq+Cb4C/gBe
xrPGZ5axd+A7M8vPVZR/4YeoX6DvBPjHwG/gx+CtqB+iXAqvpX0RfBu8Ed6L
+zwAf6qa3+9J/THPXEGf6bRnmifKbLAC9SOUK+B1/PY93ReuSH0Hv92btkf1
blw/qGGjfpFyK/yT/gZfCa+HZ8Oj4A/gx+DR8MfwVH5/MPV91PNov0rvxvV0
rg+lbklZz/vN529/0LYOngn/pjVLPYL+q+kzFx4DfwI/DF8Gfwg/CI+E18BP
8q3XwbNoqwsfQtuu1G9yPY32zVwvh6dqnOE9+NsR1PWoH6JckHm9zIGHZV7j
s+ChmfXJg/D5mXXI/fB5mXXFDMphwe+/JL3Dk5rj6GfpmdPhczPrmTXwlMxy
+D48OfOaWg3fm1kmL6f8Ad8t2aN9SGZ9dTc8KLMcvsJ974Z/59ndKP9oeml7
lXIP/Adtb8D36f7wy/Bd8G8hyUdmmT8yWN6eoEwrPG4a/8n0OSezHlsIX55Z
d02BB2deF3PhizLrlkfhCzPrtOd51i36Xu51J8+4ievPaJ8E3wh/IjmH++fW
P03gTnAduBl8LLwrvBt8MLwVvDt8CFwFrgcfCm8Nr+S5d/CsvjyrN9w66dv2
9BlEfQB9etLegvYGWhO0t6R9W/gLeEnu355Kn0Ppsy/t7Wg/m/b94Q7wOXBj
+Ai4L9wQPlz6Inf/5vDx8O5wU7gzvAt8JHw+3BQ+Gh4GHwgfA18CHwS3gfvB
+8Ft4bPgRnBHWIauCdwJHgE3h4+CL4CbwQfBx8G7wXvALeBt4Mbw0XBt+MLS
stIHHlZaDnrDF5TWHafLdpRe26fB55Wev57w8NIydCZ8LvwcfCp8UWk5OwMe
WlpP9ZJtgp+BT4HPgRfAJ8tOwU/DPeD68GFwVbgLPBo+FO4Mj4QPhveXXMI7
wY3gjnAtuI/WbObxP4D2o2jfGd4P7gDXhBvCbeEd4L3gVnA1eF/4CLg6fCx8
JXwIvA/cGt4ebgC3gWtI/8GHw9vBB8JdpFekz+DucD24NXx6brkaxru1z2yz
PtX4I1NzpPNp7037zfQbC5+Y2Q5uKL1u58NjaO+W2VZ+ou8K1v+X0n5sZvt1
C3xGZrt5Fdw9s437iP61uN6VehR158y25jmuP+OZW8je0n5mZht6M9wns519
lr99Qp9KmjfKergC9R2U8fCnkhP6t8ts6y+EO2S2cePgXpnX8lr67ywbBr8H
38lvD4dvpa1vZvs+Hj49sx64Ae4pGyH7CJ+W+VlL+e13kmHJKeV7rVPJL+UH
yYz8CMp5uX2eN+Ff4R0lp5RfNO+y/5SBuX2qsfCA3L7TofBJ8J5wS/hUeC/p
PPhEeA94ObxJMqD1RDkZri8dD/eE94Zbwb3gfeAVcOAbdkpjUI+524b6s2i7
Kfu5iL99Kd2ltUX5HK5MvYzyk2RM64D+XTP7Eou5/kr6jfp2yrjcY/UCvAHe
UuuP8qNkW35KtK3UmL/I9RfSmfI7aO+S2d94jeuNknPJPu0nZPZPtC7Hyc8M
Xt83y9YEr+MbZWvgxwvbCPkmYyk/wBdJf2a2U6dknof11AdJ5/KbXzTXapes
UfajjCrMt1Bfln5/HvXD9O8E7yRZk+6HR9N2qdYJPIR6ZOH73Sj9wN9+ksxk
/vvvlGMo99J+GHVN7tMI3jr4XfsHxwi/6/vgRvAO9Pkn/88lyn7jv0mU/vAr
/L0BZbPGQbIePLZ/5vZX/oKvpTwjm0Fdm/tsCrZBf9NnQ7AP8BfcGv4bnkTZ
Aq5I2QhX5hveyiwziluqpndUTNMyfa/8aM3do8G+sNb7E3Bd+TVpvLQOpB8e
CfY9pVuehGuXXl9aZ/LBtQZfCvbZpWfmB/ut0gmL4Tr024u6WrTfKj2zKL3v
j1rjmX18yefjtHUJ9g+/5Lpz8h++o+wRLA+a192C50Xzc3gat28obdOYfKt3
4p6zkt8ypvA9hlG3oM+fkknKFOlfru8p7BfpmedTP5F7zDX28vk05hr7i/nb
z/COhWVIsrQP37VtksldMq/FFdR75V5Pb8B7Up8QPOdLMvvbL1LXyq2H3ocb
5V5za+ADcq/dD+DGuder5nRv9eF58+HHCuuzVZL/3OtvLdwktz5bDe8v289z
G1Lelf9BvQ9laWZ9/Ar1rrlt41HwQ8G26zh4brD9PB6eF+wjHAnPDvYvOsIP
wu2Sfzgzc+zyKnXd3Lp/meYqt854E66fWz8t13zm9l/kU00Ltievw/Vy+yCy
xdNp34oSKBllO8lRWnedqI+Rb545xlpAXU1zJb8Afpq/1Szt08q3/ZhyPzyr
sF/aIVgmfqb/h9RNqS/hb3XS/Cr+fk5rmfpf6Uv4imA7sA4+UGOr+Jq2XaJj
xGdpr0F9LeUkeEGwjn4a3i53XPiI1mvumF46vMgd+86BK+XOB7wgPZPbVnwE
N8sd250OP59iDcVrW+b2+9rAM4Lj6ef1/rn9Tsm/fFjFpo9KN+SOSzQOb0fP
XZvg9aJYVrbyOa5HRus86U/ZnN2TPupGn7rUVwX7KbvBY0OyV9KfwbZud/jq
kHxYeHywbawHXxOSrYPHaexkjzMNRPJ3wJs0bqXXsN7tP1sqnRNsM/eQnoRX
0aerxrWwj1yb9itpvyZa37YoHNMrdngnOB+g+GtlsN1TDPJacKyvWOPdYB+8
MXwbvCP3qUO9RbQf3YT2icF+dFP49rTujw22H4pHJQ9fZfbxm1PfpTiF3w9U
/8K+m9ZkDdqKaLlWsukIyjbBumQtv51LcxXqSkmvS09eUFjvzyw8f7dnaT7l
N6T2SZSL9dzoWFG664tgf/kG+Cutm9w5metkf+Gx8Gea5+h4czfqp2i/XvqM
60+i15v8Sb2f3lP2cTXj30c6Ltlu2TX5pXVofwreyO9Wltanf9L+NfUi2nfW
exX+tusL24c9KWdn9k+lp7bnt2+Vttmv0mdJYX3bmva58t2pP+fv12ostBbk
G9P3Gbi61jRlHrw19cWlY/W+9Lk+2qeQnpcfqvh3ebC/Xx0eGuzfyRedFezf
yfeeGRw71oJHBseB0l33wYML29Zeym8V9hNuLhyr1YQvCY5H5eveH5yvUv5t
KXxG7pzb1ODcknJ0S4Jj1h3h4cHxyvbwucGxSDV4ENwjd+5uUnAM0Bt+MTgn
JP/5WfiU3DnAO4JjPsWhk4PjzkPge4Jj2YOlJ4PXuPKKE6Qbotd7e8lOYd9m
XOGYaTt4sO5T2P/qEh0X1pCcBucjlev7Nji+2Qm+NDinIbl9KcmnclO/BMdt
FTUvwXHnztJJkgX5v9QVosdc73ZrcNyvvMcb6duVM3kzOK7aAr4oOLen3Mvb
wfk/5VtWBOcIlW95Kzg+qwxfHJzTnQL/FZyjVc7kz+DcgJbq2cE5A/5lA4Lz
BHxOdg68JWVTZv9Acd5W1KOCcxLKabwenAO5Bn4iOp5GLLMhwbHjlvCIYD9Q
+Sv5J4ovK1EPC447q8CXBecYKkg/a6xK2xvputdL27Pq8sNLy4fysc2jZVvx
+8HRc6QcxSHwDpnj5YOiZUx5jw+j9Y9i83Xw43A/xYPRa0rr6MBoGVDOZG20
PZJdahYtn8qrtIiWf8W5lQr7AIqh2kXbCMXdHaL1uWLtjtE5ZOUWKhT2E6on
P1b6T750y+g1qJh6i8K+lmK0julblikWi147is1foZzFOD1CPSc4ht1aujZ3
XqpR8k97Jh0k/7YqbRNL26bq8BLlJwr3eZa6h9ZVsJ/8TGG+rUh2MtnKl7ju
DS+m/p57LKZtYGH/6/RgH0z+S69gH6Z9tH1UXkL677Tgvt9G+4ryGZXTezhz
bmRVdE5VuZf3ovOuyr2E3L6Y8rOXl9a5gwrnb/W8lxUnRfsk8k1eLPysF5Le
3k5/U6wcrasH0P4r/JrkH24bbfeVDzksel0r76G4oUcak8EpFlNMdpJsdrBO
/DnaT1N+W3qytr69sJ2QvVB+YBI8HD5MtjLaT1C+a0Hh+GSQ7EKaO83hvdF5
2tb8/ZskhxqrBwv7eOujYwj5fPL31N4xOBZ4uPA8bKbPF2lsleefXXhOfoq+
h36r530d7Udpv0Y+r/wn+Sdi3VPjrtx4+2A/s1+w7MkPW0V9Sea88WPR+eqj
6FOxcIygnID0oPRh42h9W0vPpf4n2sZpHmtJaXD9knJI0T6P8lHHJV0t/T0w
eA0eQFuraF2qvFNZ2MdWnP5wdC69o2Ka4DhS+Wr5T7rnZu7zSHRu/Ej6zIev
lszC86J9hqPh2dG5+g7w1Ohc/RHwA9H5//aFbYT8I8XZM6Jz7G3hadF7DW3g
mdF54HaFfdJ2aTyl+88MHgvlU5VbjtR3FY6PP0w5qibBsfm5ude41rr8/z+4
nko9tHDsqNzAzqX9OtnocwvHkcoH6Dl63q6Z9bBice0nKM/QOFim5e8pB6FY
r2ow69ueSmtgQuH4skWa7965ZV/5gxZJt6tdexG6/+fB+QblHbbN7HPqWcoh
SB8pPpVfNLnw71oV9rm0NzclOI6uHBxLi5UL4F82Xt8ZnNOonPqp/Rt++w71
vrnjUflsikmvod9L1FdTV6FjpOSU6sExWJm+tWr69hidk8llN5L9KygnUroH
r22xxll+wwm5a+VINqZ3lU4v0m9lN+UTagyaSpen9m0yP1vv8P8YULkXfUPN
4Hf9OI3fNv8fw9R/pXRK6qNvqZG4QpqHFsnOyqeVPzuC598RPd73Fs7zyFd/
N+kI6Qrp8/YpDhqj9Q+/BzfMvdekdaT11DLd+8rC71I9vU+DpPvraP655wDJ
WmF7IbuwqPB36/s3pf6aJ/nDehfZFMXz63LHTbvkXg9aF9Lxivv6JZ2zIdof
PquwflsI9y+s82V3nqc+I60vyXxd1kVD+n1WWvdJB8ou6Dv1vWX0++ybvkHf
pbEOaVxrJrmpluZJczQkt01QHm5Ubtuo/FajNK4Ncs/b/mkOpiY5n5zW4xlp
7StX0zx4XhRjiRVn3ZA7xl+W7qncgGKrf6PlWrlE2W7Z5YVpbLdPclUlyYTk
R7kf5Z0Up12aO8e1kOunk12XfZetVzw8IloGt0vPUwyqvd1buL4u+hvlJ2iv
s35w3Fch+bEVo/Pk8lflt34ZHftrr1/5Lo35trR/lPv9a1N3jY49lUOulvyV
BtF77tpnVw5ZeXGNh/Sd7tMp3WtAdN5Ge1WdouNx7TVI1jXeiq2U45KsKg+p
Z8te6h6ybco7KhZX7ks24V34hOgYWfsUPaJjB+Wuj4/2z2WDukXHyMqHS3Yl
Mw2S3MqvkZ+hud86zdvwwvpAvl6NJOtq3zvFnp3TWpPsyyeTHpM+UAytHLnW
t3TR2YpDMu9tDYzOa2l/rXvSR42S3pT+3DL6udK/ikPrpD7SXUulZ4PX+iX0
65F5/+jCwn6Ecoo/RPsF8+Dh0Tkf7btpDcqGaw9QMiHZqBTte8kHky+qPHmf
LO1PBd9T3yp/Vd+rmFs6YnPSAaML5zgVRyv+PT44B3hFdNyn/aYrku3RnvjE
JLeS387ReRXt5WmNS79Jz0k3ad5nJXvaLHhf+NZky2TTjqVfw8z7jydH5zS0
r3FS6bMusuOnlD4bIx+gR+mzLrL73UufV5E/cHLp8zCy7wNK77t303eUztlJ
B55a+iyNfJKu2ivKbe9OKJ1Dl0/YrfR5Cfl7PUufRZF/cmLpMxXyJc4undc4
UWNSOt+huGBM6XhbZzBGl46NdS7lstK5A/m3A0ufJ+guPVT6fINinxGlzzdI
lw4qnR85CR5VOl8jP3lk6bMO0rGXls5ByOfvVfpsj/y900qfz5Hv1K/0OYnj
C+sx2XvFHvIZdoErR/u7/+Xl9e7RuT7t5youVt5J+ef+0flY7SmfEh3Xa/9I
vqJ0iHShxlK6SLlK6WHl07eN9hOkk94vLTOKjT4orbeVZ68SLQ9aK2to71v6
nMRxtPUvfSajK3xW6XMbJ0hvlz5H0kX2pfQZjmNl30qfF5IP2bv0OYxOhfOo
xwXbHvlpTYP3+3SOqG3mPes+pc9kdIavzy3DrwbvH3UNXoOy4/JNlEu7ODoP
rH3tRdHnWDSni+GJmWXjhegzMHr/56L3pzQXReF4R3tnL0afS5GsPh29n6Vv
+TXZU+2BPh99JkHfLt9S8/Y29VZp7jSGsXA+XHtq2pOQfdYerRIIsuPal3wm
el9M45YXzqVrX1Lf2yXpfNkFrf39ZUOic/U6AxAK5/O1p6kzFTr/ozmSfyk/
Uzm9pdHxhfIur0af5dC+ufZQWqV+r0Sf/dDeutr0N+kd7bEcnvpoj0V7LfJ1
dNZI50y0L78gOseoOZJu0W/kBynGk05VnlC+fdtkW16OPjeidfRm9Fka7fUv
jz7fovMAT0XnISUnX0Xnz3VmbEX0uSOdK3gLnpH5vIHu3Sa926boOFd70G9E
n1fR2QPFVPIplDfWfmq9tBb+jM69ay9VMabiuPrR9kh2XrnbY6Jz3TpDItsg
G6E4S/Gp4twJybYqTpA8/hGdk9ee6du59b/8tKOic9o6l7I4dx5X54YuSHp+
dLKb8v2UE1VMqlp7+DqPpz1Wnff4PXqfQvu2S5LNWprslORrQ3qu4uuqufeh
tF5038UpV6CcwW/R+xfaO/4rOuegPWLFyPpunTsYGr0fpPMh/wOQD/6G
         "]], Polygon3DBox[CompressedData["
1:eJwtmgXYHEUWRae768fdIUgS3N1dgrs7WZwQ3C0EgruzuLu7u7su7i67uOue
w63vS2fqdPXMP9Nd9d67t2rA5jutuWPb6/We4r/C6+Jdrzcmr8vAs/b1enPA
azW93iOce4dzt3LRuvDs8DG0T+L4mPaoXPci1y/Ja394ENe+AC8GjwEvDc8C
f8X1O8HP8hmXwN/Bu8EvwlfAi3D9aPCSXD8T/C39u8Iv0H85/A28C/w8fBl8
Kfxv+Baufw9+DV4OvoL+Y+Fb4HV8L+c+4LNfgQfRvoxzR9N/Gbxkk8/ws6bn
muXgW/2bfOZtnFsfXgw+gfa1HCvBX8OH0b6aY0X4K/hQ2gN5/2LwEfDHvL7H
ufVo3077VP7el/BQ7zd8IfwqvCx8OXwM/CQ8MbwnfBC8MJ83KrwE32VGeBp4
KfpO59z3vC4Kj057Kfpnpr8/xwDOj8H5d2ivwOsk9K9C/9zwLPDq9H/GufFo
f8rf25L2w5w7h/7/wMt4L+Cj4B25ZlV4Z97/BrwSPBm8Gjwv/BLXLw5f4G+G
V6F/cngN+ueHP6Z/c/hB+s+CP4G3gB+Cz4bn5nrH34L8NxBeFZ4CXhNeAJ4T
3pxrx+XcEF4HwRPQXoH+Oeh/1M9rMuYe8V7SPyHtFemfk/4V4UnhVeF54M+5
Zmv4Ud5zHrwc/RPBK9E/F/wh/ZvB99F/Brwy/f3g1emfD76e/jXom95+2nPR
v5VtrvmR1wKPx+vL8Je8Z0F4ZNqL0Z6e9/+P9+wIP8M1F8NLez28HP2zwf+l
fwf4afovgheifxTnJf0zwMeWzL214NfgeennX28heGr4A/o3he91TMMfwYPh
++Ez4S/gbeDH4PPh+XkzL71FeP+0NJaBx4eXh2eH3+f6TeB7HHPw1/DO8HPw
pfC0XL+0c9Fnyntepn8J2hdy7kj65+sSVxambxr4M2ArnxX958IL0D8SvCj9
08HvGl/g2+g/BX6ky729lf6X+jL//oanhD+En6D/OPgueCfHA3y08w0eCje8
XtrLnPH7PUb/MfAdtHeg/3n4VMcnvDv8I3wX/CF8IPw4fCx8J7wj/DR8ovcX
3hl+Dj4FfgDeDX4WPtn7De8K7+r9gfeAV4KHwAvDBt3l4e3gheAd4OXgbeAF
4O3hQfC28ILwUHhZ+N+ljj14bfgZ+k9yvMK7wKfD28L/hteC34Yv8nnB+8Dv
wBcbP+F94bF5vQVetkm8u4/+EfANtLel/374EPhGeDv4Hvgg+Dp4a/gu+ED4
Gngr+HZ4f/hKeHP4Xvhg+Hp4G/hOeBh8NbwlfAd8AHwVvAW8i/EN3h1eEb4N
3s94Dv/L+QHfCL8FHwC/BV9oPoH3dn7BN8Fvw8OMZ/BZjnd4D/gV+Gz4cXhP
4y98DvwEvBf8AHwofBM8BH4QPgy+Gd4enoLXh41PTfLhzvQvCe9GewX6N4fn
hreGl4bXh2eAN4YXhYd3mY8HwSfAB3aJN8Ph4+FhXebvgfBx9fo14IPh1eC9
4OXhfeGV4YPgNeER8OrwPvCK8P7wqvDe8ArwfvAq8CFd4v2h8EnGZ/gq+D/w
fvB68HzwhvDB8CjG4yY5/6Qm49P8OoT+w+nfukv+2g4+DB7cZf5vAR8Cb9Ul
324LH2r8h6+GX4H3r/dnfngjeATcZ35pEtMPaZJf/6J/HPo/oP/wLvHriDb5
9NAu8eQw+GT4D/hB+At4ODwrr/+BZ+Wz/usYon8ueCvaS9G/MTwLPBheEt4Q
ngneFF4c3gieGd4MXgLeAJ4R3gReDN4CngfeBl4GPqxLfjm8TfxaB54W3gBe
BN6zS3zbu02+H9ElHx4Cn9iX8bQ6vGub+LkTvBq8S5v86u9fHz4SXgM+At4A
PgpeE94DXgfeq01943ix/tinTT20O7w2vGeb/P4X9/dc+Dfuz43w3/B58O/w
TSYGjvN5+QO+mfaExhx4Ot7/NO3xOJ6Ep4afoD2OMRMeYKztS70xA+/dnnNH
c25szj1Guz/tR2lPYEyFp4Wfov0Tf38vxwfvucbP4/3T0N6YcwdwzY/07+l4
dWzQPz7HU/A09D1JeyJjMDw9/Azt0YxZ8MTGNtqjG5PgSeD7aY9sDILHh++m
PaYxD54MfpD2SMY0eDz4LtrjmnPggfDjtMcyZsD94Idoj8FxHzwp/ADtUTnu
hieC76X9A99/D/hlvv9V3kvjufemyfg/G5631mfDaT/HMQftk5vMpzG5HwNp
f9JLjSdb760C78Tf+J7rd6f9Eueu5Poz4Xlo9+O6txw/JfHrnzgGHw2PQv8H
jsmS+z0t/Ck8trGpS323Ode/zvUvlszXM5vM/8XhfeFXm+Sjp+HpHI9N4sca
Xb7/2rz/VfhC+hek73NjIO3+5j94n/oZz/v7zV9N4sULJfHojCbx5WL4SPgy
Pu9duJ/XwDPBzxuvzDHwBPA9tCe1JjfeNamvWutN2p0H7Z/b/PZvOP6k/TvX
H0/7v/RfZzyBT4D/B18Pr+14hNfn2oXhX+gfDr9D/7XGL47r4dHpv4P2Wlw/
NbwevBA8oCSeHNeknlSfrEJ7Rq77BG44rqC/mJf9fOsc+FtjKNf9yfVn0v6J
9g30v9RF2zzMdS/DL3d5/yPwp/5ejmvgUeBb+6IHHG8rt9EXheM6eDT4dtod
x7XwqPBttCfmeA6eAX7W+VhSL+/apF4bv6S+3ruJPpm8JN4d0aT+nrIk/zm+
1R9TlcTPY5rU41PU8XJkk/q7X8n9PbxJfT8Jx/PwjPz952hPVnI/D2tSny7B
7xkL/ss4bzwq0TvqJ+vliUv0xPAmenbMkvp2aJN6eYISPbNvE705btVfuzep
18cu0RM7N6mPJyrRN8Oa6NmxSvTIjk3q2wlL9ML+TfTYGCX1vdpFfbNml/G4
Lt93Qfgt+teCb24S/++GN6Z9N8dp8Dsl8fzWJvnNe+S98h6rXbzH3mvvmdrH
e+K98W9Yy3sPvZfeM7WTc8C5MKAX7eF39Lt6D9SS/iZ/m79B7f5eFz2sLn7f
58f3Huy94niX9s8l83dAl/noPfZee4/0Esblmk3hlTlebHOPvdeOGbW+z8hn
5T1X63TWlU00lWPYGGGsOJP2K30ZM44dx5Ta7i7av/YSs8wPLcefzt86J67h
/C+9xEzjo/pZra9mUbs4BhwLPiO1lGPase0zV5s4ph3bjim1uGPAseAzVzv5
TIdUfaqWdcw4dpwjaj/HhGPDMacWMt4ZLxeu9+zXEr9g6i7+hf6B8W3xeu64
LnrxuDZ67vgu/snxbfTpOcZHrn2S4wL4lC7x/5Q2ev6kLv7JSW30t/rA/Hp6
G/13Qhc9d0Ibffhbl/n+ac1fDZ//qvGv5us/2tzbPzh+8N53ybef1Hxq/WU8
/rzmw9+7zN/Paj49SI3M8X2ds6d1yeentdHjJ3fxg05u4w983cV/0of6GJ7J
egj+kWtGGHM5NuTo38SjGIn+j3q5ZuYu88j5NDXHMGvGLvn31Db6c6ouekpN
Pxvt3zn/Jf2/+5s49xv8Be3fOF5rov9n5PUJjo94/1Nd6qW72+QL9ZH54to2
+UC9eD58T5v88UuX+unjWo/MzGsfn9Vr4hf8Vurfb6N3zbmj1BxqLtaDGb3m
ZL2ZN41BXTyaA3h925jbpYY4q8QjGBnu18Q7MAdbYzv/zc0v12eqxn6pznHn
unrwCq5/sKR2/hfHw7Q/7FIPOZdn6HIPnqj13YC+PCOflfroxpIY5jPQQ5ii
L2PUsaoHNqm5ui8xws+csi8509x5A/xll3tobj2ol3trjjJXmWO/8PfTHqON
JlQbmrPMXea0z2tMcp4536wdbjMvNvEI9Ap8JuZ2Nb3P6iGuebSXGOfvNcea
a9WQasn79YccWxzfdnnm1go+c8fCfSWx0WseKJnTzmPns/6iOervNjnJ3OUz
9lkf1YvXoSdn7efz8zlOyjE37Z85d16t4+apMc3Y9myJPnOMOFZ2Lrl+si7+
n/Olfy/P3/kwMcdctH/i3IlNfNuPezk3SZdz9k3exGM6qtbvU9ax5bMz3kzH
cUybZ+980FO0vn+qRL85xhxr59XvPpVjqM3f17+asv49NZDep5pSbfRCrXmM
p3rJesqjdXm/XvPlbeaknoDegDXsPwZYk9r2kZqj1BhT0d6v6ofJa/27QJua
r63x+oNaP23DNY+XaCS9YzW22um6kj5z0mO03y7RT7c00c+OF+fGbBx/d/nO
fnc9S/1Iay5rL2uqz7r4S+qlD2p96vxyrPmd/e7WiKc20ajWjmrG05toTLWk
NedpTTwGa9F12miDOep81mOwNrdG/0dbmzOa1Jx6s3qqJzTRvHqtatZLmnhU
allrklPgOXupVfQwLm7iyehtqHnPauJRqYW3bOP1LdGL9h9Rkhv01Hcv8ayu
rPdTL0sPQy9ycC/ehp7YTU08DL0yPZQbmmhgtbAe0I1NPBC9oaF1Pp5Z56/z
Wd/1jDp/1PQXNfFk1Pp6JHrv69Xnqed2dROPRC9Oj+TOJhpa70QP7qomnone
nJ7KA47dXrwWPZQ7mmhwvZVBdbw4fvVG9AzObuLZ6SXoGZzTxOPTS9BjOLeJ
B6j3oEen1v0nJzv/2nir/+RkeCP6363x74ouHtuXTfU84Y3h95p4bFd18dS+
aKpn2UWTqavUV3qHG8BvN/HsLqF/PfjNJh7cBY4nc06T+XUOvC78RhNP7zx4
wxqPh8OXwevDbzXx9C7q4qn+XOOlXuvWNb6eUOO3HuBXNd7qDQ6GP2risd3U
xeMzPh9V5/dm8IdNPLkbungeetd6QHoheh6PN/E89UL0ED9vqscLbwp/0MTD
vK6LJ/lZjf96lXqa3zTVs4U3gd9v4oFe08Xz+66pHnEXT/TrpnquXTzCb5vq
AcM/d/EzPqp6X41lfWv9qPZSE6uN1WB6bR918R9eqnrv9S6x4sk2fswbXXKZ
63P6MebE++E3qr40B+o3vF71mzlPf+O1qt+MOfofr1b9p6etV2MMMha92SWX
Pt3G3/lnTayJp6eXpGY7un5fv79rPsc20XAr1XxnfW8ON5d/38X/ea/6JT90
8Uver/7KkSX6u+mi158o0bfGfGP/qPC7freqN1trGPirNn6SOfhK536b3Gz+
16u5v9YLo5lzaf9U9WIHvw5/Xf2akeC34O/a+E2jwO/AP7Txi/rgN+Fv2/hJ
Ixvz4e/b+F0FfgP+po3fpQet9/NArT/0nCdv40HqRetB6k1YE1sb62nobehp
6I3q6Zxc4+3gGk9PqfHf+PVMm3rIZ+Sz0jPQO9CjdG1Kz3uMWi/phR9e4/8C
NR6NqM9vhpoPhpXkY2sEawU9lTNqvtDL1WO8oMZzvUc9yAtrPDUe6xm6Njio
Fy/R/KOeHFjzhWsMY9Z6zLUHPWW9GD0ZvWbXRP5qqmffZQ1Fb/H8Xuov12BM
zv+sUXRZ0/iT/gt6WetwjeXvpq5pdPGQJ2yzZqO3rKc/UhtPW6/fNaFfm+rx
wy+38fqcc84913R+aeqaQJc1kbHarCG4VuKaQV+bMefYc41g5DYetmsHjunx
6+9zrC/bxrfWv3Zt0jkxfpea0Lli/aGPo5+j3zYPfd/14sEdpfdZsrbsGuJf
XebQePX7OrcmKdFOP3DsW+shdYp65WD4ppK1az3zm0tqfms/azLX662RrJUa
jiPq33uklzU117NXt35poqF2gI8rqQWtCfevesK60HPH13pWHed32gfeiWPR
XsaYY03Nrm5SP6nld+PYqBfNrr+5GMfeveRAc+HyJbHXnGZuW6EkdhuTjc0r
luQCY7qxfaWS3GGOMFcMqn6cOc5cNzo8UpOYY+xZtiSXmsPMZcuU5EJzmLls
F3jlXurrA0uep2vQ+gP6JUuW5EJzpLlyqZLcaY40Vy5dkgvNqebW5Upysznc
XL4H/L9ePJUraZ9YUgtbw7u/wHpWb9ZnMllfcojesTHc3GINbC3s/T2gJEbq
zamxjZ3GML1vNbyxzZilV69GN5a5ZuraqRrnmpIYOWONT8ZO9dysXfSwWtf6
V+9Gj9L6WH04XZf1Xr2hy0u0omuI73c5Z9/y9fe5J8K9EWs3GY+u4biWcxvn
rlJflWjFh42pXfZjqJXUwNaPxmjXBtTMxm71gJrFezZ5XzyGfjXeGl+fqPnN
NQFjtTnDtQhzkLlED8O1B3NUU/XChF00rrW4HoZrA+bUX2uOMn6/2Mv40ROZ
tOYbvRJzysCaT801jh+9c8f4/l3mg169Y2oH6xGO2XrRXDvW+aDeG8JxdJec
41qGNYS5SM9ksppf9FLWU1P3UpNYm6xbUptYg1iLrF9Se1kjWysfUOP9ovXv
OYedy7PV+a3/bywap5f4MzXHrL1oBLXC1vDNvcREY6P+vXNZD+sC2luVxEpj
vrF/iZLa0Tnv3N+0JFYb843985fUztbk1ubzlNT21vzW/vOV+KFqArXBvCXa
QA2gFtikJHeYE8wNm5XkCnOCuWGBklreGt1afZuS3GAOMhdtWZKbzJnmzv4l
udSaxtrmjZL1tuubrMe+XuKtXNdkPVaPRS9DL0nv5c0SreL3dz13YIm2UnOp
vbYtWf8xR5mrti8Zm45Ra7GhJWPLMWatMBi+pJccaC7cvCTXmNPMbVuU+Pnm
IHPRv0pynTnKXLVdyVxwTlibDIEf6qUmGVbjj3NTj/QQ2nOVaCE1j9pn4ZL9
Omoetc+qJbW0NbO18+ol2kONodZYs6SWt8a31l+jZP1EjaJWWa1Ei1iTW5uv
XVJrW0NbSy9SUrtb01vbr1JSm6sB1AJrldTaaga1w4Yludycbe7eqGT90hxv
rt+gJJerQdQii8Lb9aIR1ArrlNTq1vzW/iubE3vRIGqRhUq0nhpVrToLvEgv
mk3tNnvJ/ig1s9p5uhJtriZXm29cUqtY01jbzFmiJdXAauG54ZV60aBq0QXh
DXvRoGrRGUpqN2s4tfysJdpbTau2nb5kfUxPQG9gphJtqeZUe85WouXV7Gr3
OUq0txpVrTpzifZUk6pNZyzRqmp6tf00JbWnNahewLQlXoOehN6E/t7sXWoM
vVnXmNwDpR537Um/xbXIjbj+rpI9eu7V04O+vMsePvfy6fFe2WXPn3v/9Kyv
7uIBuzdLfac37Bx0LjrH3CvhGolrJXowrp3rcbt3batevG/noHPRmDK81s9/
1nrT+lhN5Vq3nq1aSz/y1zZrDHrpeuKORceketw1Wtdq9aiv77Jn0b2L6vOL
u3jI7mVyzV9vWY32e61n1W7ukVLPu2fx0i4ar9R60vpTT0lvyXUP/VTnpHPT
PYt7lnj87kUb3Iv3r4fvXrotevH23ZPl3iz3jBzbZc+Be6f0O9yLoJ/gXHZO
n9jF43dsO8b1F/TY3Yu3ZS/eu3sqjM3GaPW1/u24Xfw+16asL83levI+f2Oi
sdGY6d4V16hcq3KPg3sz9LgmqPW5etM1fWs9a76bu6zhu5av/3Fjlz2R7o10
D9y5XTw2vTbXwNy7Yk1mbaYHumvJHjn3yrlGcn6XNW/XvvX4r+2yx869dq6Z
XOj3K1krcM38DnNnydrANHW86pm6rm7OVh/pGfarY9qxbcw39vue06zXuuz1
dA3nkhIPUC/QPaLWV+c5n80FHGc4b7p4Ma6ZXVTiIeslu4fUeuj0klpAT9X9
hXquU3TZ/6AXq/9s7aTm1l++h2OTJh6t/T4jn5Xn7q39vnfjyv5e56ZrJneW
rDm79mxN6nhzfcF1FO/RKSX3a4Mme2Bvpz20y17YDer9c844d/yN59ff61rA
fJVds3IvonucXMtyzcO9GHoUroU4Zn3Wx7YZy+qzvqrf1It6EsZSY6r699yS
e+keAuuP/wNmgLJB
         "]], Polygon3DBox[CompressedData["
1:eJwt13fcjnUXAPDnwW2GSlZGC02ayC40UJTMx4yIEq+ZTRTqY5SsMiK7RFFC
ovS+IRWKjNKwySai4v2e7vuP4/6d7znX5R7Xda7fc12bLvU7Z0pLS/tMJMTO
LGlpg8Gq9LS0lvKBmdPSfmQvsNWsFRvEdrBB7FPWgg1gj7A57D0n+lD+kajC
XmEr9GXoe5kdZOPZ96wHG8cqs5fZctaUjWAjRSfrkfwK62LO+5q+quxJlpMV
ZVO9ThG/q03mDdm8eC/60uWl1ObL24mN8kv+j1lqP/MDbBz7jnVnr7OvWQab
xMqyRuwQm8C2sJ5sPPuOPcPmsQdZe3aYTWRbWS82gT3DdrE84kN2jO1nr8s3
6+vGxrJd7CX2BWvLhrJf2Qj2JWvPhrF9bCzbxLqy19g21pstZQ1ZT/YDe559
xBqwHmwPG8O+YZ3ZaLaV9Yr3xp5g3dkpsdb6F57PurjvtK2+9fLz+qapbed7
2avsW9aFjWFviWniiNoUtUaO3WLdzfp9ffX0dVGfK+aIE2rT1TL0/WI93Pp/
+trpe0n9ZzaM/Zc9xV5kP7EX2RrWhg1hHdlPLLdYwo6yIs6Z7jVTfJcsp55q
4g0917Dy8Vnk34uubJG8rr7OattZH/Yxa8R6scbsQ7aXDWdfsA/YR9Z5+e3y
xfJvRDP5G/rKqTXmaewHL0d4fvk13ltDtli+W99Lap/zDtHHssW9xA6w5myV
/Ji+sewbtkgsFGfUZqm1dL535e/E78feZs3ZOeu51vscO8KxM+Uf6Hlf/GE9
W62Vvgbh1r/pezFmgnp9toj9woawVew9sUCcVpup1sKxj1kvsP5J3yB9n6if
j++FnWYT2Wz5o2I+28H6s2X66rJ32E42gC1n9di77Ec2kK1gs8UscVztLbWm
/t9G1kus9+gbpm+N+m42mn3NnmOj2JL4XcTZ1Ixq7diW1p9Zn9A3Tt9G9T/Z
QnaEjWEr2SbWgc1hNdlTLIOtYIfZaLaeNWOfsN9Tx37F2rNNMWDF7Lif2GbW
UT5X3wOsHWvKlrNDbBRbx2aI6eKo2lS1xt5zG+t11n/qm6pvm/pG1pbNYNVY
K/YkW8vOsSnsh5iBYp44qTZDrZnzzZS/LY6xaawJe8L6fetfHTvUsavVW7HP
2Uk2nm1ij7P32C42OPVd/cZGsQ3pqdnNWrDV7Dh7nX3LWrM17BSbwDazJmwZ
O8hGsrXsabaVZRUL2H72FPtWflHfTLaL5WWVWReWld0b9xery/qyq1kddoEt
ZWfY3zFj5Vf6zCfYnXFdsswsLzsqL5Mpec/GvZuPnZTfFddqEMvPTsvviWuf
ZWWF2Fl5+bhvWA52FTslvzuu6XjWsgLsjLxsfIcsGyvI/pCXEz+z7Oxydixm
i9gWzzSWhe2QF4pnNTvks13BjsvvENvjktOXmW2XF4xnNTuo76HU7z8vkZwV
MTP+YivZhdRsj2v3wdRcnptIXjdx/fzNPmV/6XtL3wa2nj3AhrI/WL/IU/fo
nERyxsesz80qsmfT//0608qx2qnZ9W4iOY9iLv3DvmRZxHx9W1hCfae8sFjN
DrNaqfnzTiI5B2MeXmZ9gN0YzyR959nDqVk4P5GcWzG/prDzMae8l2LyyfJO
4rC+ovEMVvuHv5F6RpTxWlpc5xxv6isa11zsH/R1k38lHnHcK3pLsYfVrtV7
tdfCmZN7lk5eN+hroG9sPFPE0riWRRs2Xd5EfBz7GL1vionWN7JJXp8Ve+LZ
IVY631n1+1N7nrcTyWduPHurp567MxPJ+RFzpEZqhsxKJO/3uO+zWf/GrhPr
nO90/EbsoPwmsZFdYFnZr/JrMyX3BLE3yMX2y0vFXoL9Gc9Ytk1eIPX+4rmV
k+2Tl4x5zM6x7Gy3/Hqxnp1hNVPzZ3YiOeNj1l8UV8a1Es9OcbVaVX2T4v3y
jngSz8H3shIxd1LfS3l9fePa0FeL9WaFWPHYK7BLan3k6Y793vpKsUxtj74C
vIZ8gL7crBq7it0fx7BcrAorymqzbqwAeyjeI3uYdWZXsQfi92cPsU4sH6vJ
CrKabBDLw+5jd7PYjE9jldmz7CbWnI1kN7OmLD+rzvqxy1hVlo/dx55nOVll
djmrwrqybKxCzAhWlXVn2VnF+I5jT8R6shysEruePc4Gx/3B6sa1zx5jA1lR
9igrHs901psVZrVZKdaEjWAlWUN2F3uOTWWV2DOsJGvMhrMSrAG7gdXPlPyN
4reqx4qwWuw/LD97kBVjdVgPVjB1v93ImrKXU/dg7NtLsEZsGLuBPRH3JavH
+rMi7BG2LEvy3ot7MJd8nLyC6B/PHVZHX1+eh1Viz6Un/14qzyqxoWxJav8c
e9EyrD2bwO5hbWM2xTlZx/R/L+e0sv6pyIawxaw+eyEKTvw1yykWSXeyOql9
2oJEch8T+5mLMXdY9kzJfWLsxy+xDfIcYiHbwW5nT8snpv6eif1LadaOjWd3
szZsNNsbz7CYDWJM7HFEhp6FcZ2yCfJyomfcq6n9UPy9cC/rF3Oc1WZ92D2s
e8whVp11ZWVZj5hDrEbMTnZnzF42hVVkHeN79jkPsZvFJvYXu1VfK/kYfbex
5uw21pq9ykqzFuxm1oKNYrewDHYLa8lGs1tZM3ZHzFQ2mVVgHdj/AQFb7ug=

         "]], 
        Polygon3DBox[{{1088, 666, 761, 1305, 924, 925}}]}]}, {}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwt0rkuRGEUB/DLjG3sibUhavve0GhJiJJQ6BBEROwRjSV6hJonwAuYFzD2
nRcQEa3E70sU5/7+J18y53z3Ts3YzOB0WhRFmyohhJzj8c22WBQVsVDfI1fL
xfKA3CCPsptT7OMqh7nLCR7ySC3J59xmkvtM8YQfPOMXk9yO28GMCnWlL2WG
qk2Pomt9gVwn38j1vGUD79jIezbxgc18ZAuf2MrncC++sJ2v7OAbO/nOmF1i
5lSqD30ZM1Wu3VL6X+cX/OQp33jMS+7xgls8C+dqUT7gOHc4xGX2cpJdHGE9
+1kVzs36Ybm5hSxhXG2oAv0687nGPK6E/bjEBBeYw3lmc45ZnA134Ux4r+Hb
hd8Ne9DoaJzp4Y4eX///iT83zTol
       "]]}, {
      Line3DBox[{820, 1162, 1163, 1144, 568, 819, 1314, 1036, 821, 1315, 1037,
        822, 1316, 1038, 823, 1317, 1039, 824, 1318, 1040, 825, 1319, 1041, 
       826, 1320, 1042, 827, 1321, 1043, 828, 1322, 1044, 829, 1323, 1045, 
       830, 1324, 1046, 831, 1325, 1047, 832, 1493, 1145, 1048, 1146}], 
      Line3DBox[{834, 272, 1147, 1225, 1489, 833, 1221, 1222, 582, 835, 1326, 
       1049, 836, 1327, 1050, 837, 1328, 1051, 838, 1329, 1052, 839, 1330, 
       1053, 840, 1226, 1409, 841, 1331, 1054, 842, 1332, 1055, 843, 1333, 
       1056, 844, 1334, 1057, 845, 1335, 1058, 846, 1336, 1059, 847}], 
      Line3DBox[{848, 1133, 1148, 1166, 1167, 1496, 1165, 1164, 1206, 1227, 
       1495, 849, 597, 850, 1337, 1060, 851, 1338, 1061, 852, 1339, 1062, 853,
        1340, 1063, 854, 1228, 1410, 855, 1229, 1411, 856, 1341, 1064, 857, 
       1342, 1065, 858, 1343, 1066, 859, 1344, 1067, 860, 1345, 1068, 861}], 
      Line3DBox[{862, 1134, 1149, 1170, 1490, 1308, 1169, 1168, 1207, 1230, 
       1497, 863, 1231, 1412, 864, 612, 865, 1346, 1069, 866, 1347, 1070, 867,
        1348, 1071, 868, 1232, 1413, 869, 1233, 1414, 870, 1234, 1415, 871, 
       1349, 1072, 872, 1350, 1073, 873, 1351, 1074, 874, 1352, 1075, 875}], 
      Line3DBox[{877, 1135, 1150, 1136, 1502, 1312, 876, 1209, 1171, 1208, 
       1172, 1498, 878, 1235, 1416, 879, 1236, 1417, 880, 1353, 1076, 881, 
       1354, 1077, 882, 1355, 1078, 883, 1237, 1418, 884, 1238, 1419, 885, 
       1239, 1420, 886, 1240, 1421, 887, 1356, 1079, 888, 1357, 1080, 889, 
       1358, 1081, 890}], 
      Line3DBox[{892, 1137, 1151, 1138, 1178, 1500, 891, 1211, 1173, 1210, 
       1174, 1499, 893, 1241, 1422, 894, 1242, 1423, 895, 1243, 1424, 896, 
       1359, 1082, 897, 1360, 1083, 898, 1244, 1425, 899, 1245, 1426, 900, 
       1246, 1427, 901, 1247, 1428, 902, 1248, 1429, 903, 1361, 1084, 904, 
       1362, 1085, 905}], 
      Line3DBox[{907, 1139, 1152, 1180, 1179, 1501, 906, 1213, 1214, 1212, 
       1430, 1309, 908, 1249, 1431, 909, 1250, 1432, 910, 1251, 1433, 911, 
       1252, 1434, 912, 657, 913, 1253, 1435, 914, 1254, 1436, 915, 1255, 
       1437, 916, 1256, 1438, 917, 1257, 1439, 918, 1258, 1440, 919, 1363, 
       1086, 920}], 
      Line3DBox[{923, 1176, 1364, 1087, 1182, 1185, 1186, 1153, 1494, 1088, 
       925, 1365, 1089, 927, 1366, 1090, 929, 1367, 1091, 931, 1368, 1092, 
       933, 1369, 1093, 935, 1370, 1094, 937, 1371, 1095, 939, 1372, 1096, 
       941, 1373, 1097, 943, 1374, 1098, 945, 1375, 1099, 947, 1376, 1100, 
       949}], Line3DBox[{948, 1453, 1270, 946, 1452, 1269, 944, 1451, 1268, 
       942, 1450, 1267, 940, 1449, 1266, 938, 1448, 1265, 936, 1447, 1264, 
       934, 1446, 1263, 932, 1445, 1262, 930, 1444, 1261, 928, 1443, 1260, 
       926, 1442, 1259, 924, 1305, 1441, 1181, 1184, 1183, 921, 1313, 1508, 
       1200, 1177, 1175, 922}], 
      Line3DBox[{950, 1187, 1271, 1503, 1188, 317, 1154, 680, 951, 1377, 1101,
        952, 1378, 1102, 953, 1379, 1103, 954, 1380, 1104, 955, 1381, 1105, 
       956, 1272, 1454, 957, 1382, 1106, 958, 1383, 1107, 959, 1384, 1108, 
       960, 1385, 1109, 961, 1386, 1110, 962, 1387, 1111, 963}], 
      Line3DBox[{964, 1189, 1273, 1504, 1190, 1191, 1140, 1155, 1274, 1491, 
       965, 695, 966, 1388, 1112, 967, 1389, 1113, 968, 1390, 1114, 969, 1391,
        1115, 970, 1275, 1455, 971, 1276, 1456, 972, 1392, 1116, 973, 1393, 
       1117, 974, 1394, 1118, 975, 1395, 1119, 976, 1396, 1120, 977}], 
      Line3DBox[{978, 322, 805, 323, 236, 1492, 979, 357, 1511, 980, 1277, 
       1457, 981, 1397, 1121, 982, 1398, 1122, 983, 1399, 1123, 984, 1278, 
       1458, 985, 1279, 1459, 986, 1280, 1460, 987, 717, 988, 1400, 1124, 989,
        1401, 1125, 990, 1402, 1126, 991}], 
      Line3DBox[{993, 1192, 1193, 1505, 992, 1194, 1141, 1156, 1142, 1510, 
       1205, 994, 1224, 1199, 1223, 808, 995, 1281, 1461, 996, 724, 997, 1403,
        1127, 998, 1404, 1128, 999, 1282, 1462, 1000, 1283, 1463, 1001, 1284, 
       1464, 1002, 1285, 1465, 1003, 731, 1004, 1405, 1129, 1005, 1406, 1130, 
       1006}], Line3DBox[{1008, 1201, 1202, 1509, 1007, 1203, 1204, 1157, 
       1196, 1506, 1195, 1009, 1216, 1217, 1215, 1466, 1310, 1010, 1286, 1467,
        1011, 1287, 1468, 1012, 1288, 1469, 1013, 1407, 1131, 1014, 1289, 
       1470, 1015, 1290, 1471, 1016, 1291, 1472, 1017, 1292, 1473, 1018, 1293,
        1474, 1019, 1294, 1475, 1020, 1408, 1132, 1021}], 
      Line3DBox[{1035, 1161, 1488, 1307, 1034, 1487, 1304, 1033, 1486, 1303, 
       1032, 1485, 1302, 1031, 1484, 1301, 1030, 1483, 1300, 1029, 1482, 1299,
        1028, 1481, 1298, 1027, 1480, 1297, 1026, 1479, 1296, 1025, 1478, 
       1295, 1024, 1311, 1477, 1218, 1220, 1219, 1023, 1197, 1507, 1198, 1158,
        1143, 1022, 1306, 1476, 1159, 1160}]}, {
      Line3DBox[{361, 569, 1314, 362, 817, 582, 388, 773, 1495, 596, 402, 776,
        1497, 610, 416, 779, 1498, 624, 430, 782, 1499, 638, 444, 1430, 785, 
       652, 458, 1441, 761, 666, 1494, 472, 762, 680, 486, 763, 1491, 694, 
       500, 764, 1492, 708, 514, 341, 1510, 809, 334, 528, 1506, 330, 788, 
       300, 542, 1507, 331, 790, 303, 556}], 
      Line3DBox[{363, 570, 1315, 364, 583, 1326, 389, 597, 403, 1412, 611, 
       417, 1416, 625, 431, 1422, 639, 445, 1431, 653, 459, 1442, 667, 1365, 
       473, 681, 1377, 487, 695, 501, 818, 1511, 709, 515, 808, 722, 529, 
       1466, 787, 735, 543, 1477, 789, 748, 557}], 
      Line3DBox[{365, 571, 1316, 366, 584, 1327, 390, 598, 1337, 404, 612, 
       418, 1417, 626, 432, 1423, 640, 446, 1432, 654, 460, 1443, 668, 1366, 
       474, 682, 1378, 488, 696, 1388, 502, 1457, 710, 516, 1461, 723, 530, 
       1467, 736, 544, 1478, 749, 558}], 
      Line3DBox[{367, 572, 1317, 368, 585, 1328, 391, 599, 1338, 405, 613, 
       1346, 419, 627, 1353, 433, 1424, 641, 447, 1433, 655, 461, 1444, 669, 
       1367, 475, 683, 1379, 489, 697, 1389, 503, 711, 1397, 517, 724, 531, 
       1468, 737, 545, 1479, 750, 559}], 
      Line3DBox[{369, 573, 1318, 370, 586, 1329, 392, 600, 1339, 406, 614, 
       1347, 420, 628, 1354, 434, 642, 1359, 448, 1434, 656, 462, 1445, 670, 
       1368, 476, 684, 1380, 490, 698, 1390, 504, 712, 1398, 518, 725, 1403, 
       532, 1469, 738, 546, 1480, 751, 560}], 
      Line3DBox[{371, 574, 1319, 372, 587, 1330, 393, 601, 1340, 407, 615, 
       1348, 421, 629, 1355, 435, 643, 1360, 449, 657, 463, 1446, 671, 1369, 
       477, 685, 1381, 491, 699, 1391, 505, 713, 1399, 519, 726, 1404, 533, 
       739, 1407, 547, 1481, 752, 561}], 
      Line3DBox[{8, 826, 23, 840, 38, 854, 53, 868, 68, 883, 83, 898, 98, 913,
        113, 934, 935, 128, 956, 143, 970, 158, 984, 173, 999, 188, 1014, 203,
        1028, 218}], 
      Line3DBox[{373, 575, 1320, 374, 1409, 588, 394, 1410, 602, 408, 1413, 
       616, 422, 1418, 630, 436, 1425, 644, 450, 1435, 658, 464, 1447, 672, 
       1370, 478, 1454, 686, 492, 1455, 700, 506, 1458, 714, 520, 1462, 727, 
       534, 1470, 740, 548, 1482, 753, 562}], 
      Line3DBox[{375, 576, 1321, 376, 589, 1331, 395, 1411, 603, 409, 1414, 
       617, 423, 1419, 631, 437, 1426, 645, 451, 1436, 659, 465, 1448, 673, 
       1371, 479, 687, 1382, 493, 1456, 701, 507, 1459, 715, 521, 1463, 728, 
       535, 1471, 741, 549, 1483, 754, 563}], 
      Line3DBox[{377, 577, 1322, 378, 590, 1332, 396, 604, 1341, 410, 1415, 
       618, 424, 1420, 632, 438, 1427, 646, 452, 1437, 660, 466, 1449, 674, 
       1372, 480, 688, 1383, 494, 702, 1392, 508, 1460, 716, 522, 1464, 729, 
       536, 1472, 742, 550, 1484, 755, 564}], 
      Line3DBox[{379, 578, 1323, 380, 591, 1333, 397, 605, 1342, 411, 619, 
       1349, 425, 1421, 633, 439, 1428, 647, 453, 1438, 661, 467, 1450, 675, 
       1373, 481, 689, 1384, 495, 703, 1393, 509, 717, 523, 1465, 730, 537, 
       1473, 743, 551, 1485, 756, 565}], 
      Line3DBox[{381, 579, 1324, 382, 592, 1334, 398, 606, 1343, 412, 620, 
       1350, 426, 634, 1356, 440, 1429, 648, 454, 1439, 662, 468, 1451, 676, 
       1374, 482, 690, 1385, 496, 704, 1394, 510, 718, 1400, 524, 731, 538, 
       1474, 744, 552, 1486, 757, 566}], 
      Line3DBox[{383, 580, 1325, 384, 593, 1335, 399, 607, 1344, 413, 621, 
       1351, 427, 635, 1357, 441, 649, 1361, 455, 1440, 663, 469, 1452, 677, 
       1375, 483, 691, 1386, 497, 705, 1395, 511, 719, 1401, 525, 732, 1405, 
       539, 1475, 745, 553, 1487, 758, 567}], 
      Line3DBox[{385, 766, 1493, 767, 386, 594, 1336, 400, 608, 1345, 414, 
       622, 1352, 428, 636, 1358, 442, 650, 1362, 456, 664, 1363, 470, 1453, 
       678, 1376, 484, 692, 1387, 498, 706, 1396, 512, 720, 1402, 526, 733, 
       1406, 540, 746, 1408, 554, 1488, 769, 770, 771}], 
      Line3DBox[CompressedData["
1:eJwVzy1PQnEYhvE/yMtkMpwFxFdQZANfiHwBspv4BTSR5BOYjCaiiUgimoha
jFgkKMimyUiQ4ubvhGv3c933ztk5pevuxU0shHCOejyEHyRWCJ6TIezwKRr8
m5/JHB+j6p7rjmSMP6HiPsTCSx/5p/2Al6PndQPdTFfi+3jTXfIH/R4/xQm+
dC+2e/0x38AuPqJvkiPbrW09+h5s4922JYe2ri3rXsNUX5Sb6NuubBn3q35V
FpBHz9a2TfRpnkIdNdzZWtF/25ayw5vyF3/4B314I2U=
       "]]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJzVXXk0Vl3bj0RlDIk0mBqVRIoGt8xSSCVNqDRRNKDBENKASErzZCiUqUER
uSWllKFBpVJSITKEhML37Ove97fO9u7bu3rW+7zf+p5/nrV+66zTuX/nOte+
rt/125viKlfrNfx9+vSp6tenT98+//ufL/n/RpZTfGCNY9ow9o7XrLfd3Q2s
DxXhkUvGTWMVitvP+/FVmu0drdCCcNuCxVHT/Max5F4Ua+Q9kmBPPfauHeFv
6wzKQloUWV33Xg50cxVmhx46/xvhZr/nz5zHN5T1MHmsJMKDMf5i4CdjhCeb
XVNB+AGMr5dzm4/wcU5jhWn3ueLSbyTt+uBXd5VpeEjWUUUaXtPwhHqfnefM
qPcJXXiJeh+lBD/q8/Pi+UuSVlbbWWX2YO/oLej68WuCogKXmrBGzS+uRvxv
wfzHxAvHIP7dBNssEf87Mf9X1QVjEf+NOqc1mfz7t5e9Q/y7Hx7Rj8lbfdO+
6eh51IoDhWi40I9dgxAegnGl0Vb6CFeOPde17S/8MMbvsu9oILxTfFlfNwrO
/3MiHw03LHouTrt/sbeVFA2v0kykPs+O4APSzPhRxDgvnkvPiN1DPBd6cXjW
vGoZh3h+0Hy4CvHshnm+XTMwGvE846ItEedTXJ9HI55XFoRY0PBVG0dNZfI/
1zcK+J8t2ijCfP6rChdZ6DnLI8f1Z/LvPtFTB+Eb3DKJ76JOqsgI4cZlO4bQ
8Dm55oNp+CzXvQrMOHTtULJGeNz47gG0f5ddvoz6PPO1pwnTcF48z9nw7odC
4ST2NRGj1pa/rg8a/Xy7vJ8TK/cFJ87rMP8CT2svIv7P1q3+hvh3xvwfPudy
CfH/oL5kLuJ5N+ZZij8jEvFsuOnQPBo+5+v6KUz+xwd6Av/b2jUlmfzP39sN
cZJ2ejWRl/ZFfpmF8KMCCuI0/ERtkwgN/zlMVZiGD7b7DN9FGMZbSq9qInyC
9Gx+Gj47pbQPDefF8y8Ri5+I5xRhDs/NakI7Ec+2go8zEc/8OJ9sr5oRg3i2
yZeqRTy7YJ4dguwvIp6zXc+bIz59MZ/JS/UuID5F5t2wRrgnxr9lu8Yg/KNg
qzHC92B8a4vEGYS7papC/pmG+f8s5AD8p3gkijL5H3Gy72zIwx82SNLwww9m
StDwhp9uYjTc89L3QTQ8fLkF9T4qN8ZJ0XBePE/46tCGeG4ayOH5wYxvwHOl
7p0MxLMk5ln6Tgfkba9XcrBubsY8S7VFQN527adSj/C1GH9jcCIW4b4iWwn+
9+SPPo/4nHvV2wzh/hgPwPgE1UlzaNfrzuPTQfxrYP7jDPd/Qvyn3q2ZifDJ
PXDz+0lEnln0Y6EBrKetlQRvNhifenG1NO36VIO7QxEehHFp0do5CH9k80GR
hvPieaGLAOQNE1EOz3fGj4S8UftG8w7i+TfOG7nX0yCe35jYU3ENmSWViOdd
mOe1Wy2hbvH1OUDFl47j8M/NJ14jAiGfzIxWnkvDL2XFUfEPM4fMZPLvIXyx
AvGskv4L1gVNjG/HuMSZa8JMnudIrNVF/JyZM0mchvtLxxD8P/IYCXl+8Mbd
Q2g4L5554f597SA/12A+lWPlLyE+t2wOpOLZ2oJE3vZY+AnyiVikFhX38OlD
rKeNn1xg3bRtu0rFc6SmWdDwd6fOUXEZ+wUEz3M6Gz8innUOR+nQ8JFnNhB5
Y8klfz2Ic+sH4jR8Tr2dGA3/U54TM343oji/KMGJc7d1UttQnI9Y5cVGPL/H
PE//MDMW8VxS8f4L4tML81nx5dsFxKeyuVglDe9bOZGKl06LIfLG4wOpkDcM
Fowzp+EdU7/pIzwI4w2TVSMQXqfkvhjhHtz14gPrMqy/jnIEz5ImdsBzyv2N
2jR8qH4RsW7q+mVDPZ9w8rIYDf9Tnq+dCIG8vQavj21uKyFvn9pVDuujAM7b
G9mKkDeuZ0RlMddNZ4wHexdBPnfFfI7yz4F87izbQMWj9osT+aHuxGbIDyLR
R6n46PG/qfjLgwbzEb4L4ywXg0sIt7baT8XzXndMY/Ic6/K5HPGc8XA9FX/3
PZ7I8wMnX9T9Ozy7btrQjHj+KcbhefYlWXfEc1p8IeTnVhzPr+fOgnrvaU0Y
xHkLxl9h/Mdq4xqi3/m+APgs6VpDxb+4NxLfhfGoeIhz13TFOcx18+Mgt3OI
n0C9QCrest+PyCeBLpXQz242v0/FRz1epYfw/Rifmcp3CuFLI79qMOsfF73B
UP/0d91Ixf84nk/faEc8H8d1SMHcxbsQzyLXrmUw+8dFnrc5/WOzG/AvjfGF
GG8b+/Qrk88Z635Av/P6XiMV74woAp69MT47KhR4furpTOQNpWmCUDd+439O
xZeZvVyE8O0YP/LDKA7hE6dPXMDsZyMwPnllqC7CAzF+Y8eD4wh3+PSJ4NNg
mDjwKXZ1LRX/U57frVCDOiQT1yHGcuEeiOf5O+ZA3H7EcXtoGx/kZ+d0kbsI
/4DxUIy/19pEvT5qwq46xOcGzOe28CLod0rYYVR8RlIkFXfWaiTyxgKBVZA3
qoQM5tHwB/JJVgj3wviz4OkXER7x2cQA4QEYf+0VeBbhWzLy5jDr/FcYr1Jr
0kI8a2GeQ1JKP/wdnr+XfAGeZ2GeF3eOh3pvSm405BMWxm0xfmzQcDaz3ju7
6jrk5/6h3ndouPszja/Mvn6qznKI59g1ZlT8zLoBdcy65U3uQuC5MFyGih9W
mEnkh878w5AfRD7vpuLn5603Yb6XLox7q1RTrz+r0zGXhv8pz4c99rciPgtw
P16WeBX4LHE0akF4EcbfYzxO/zHw/B3zeequP+RnebYqrI/NGD+N8YnZy4h6
71lENdR79gu2UvEHs/dQ8Z8bw6h4+uEhlkwebq07C/XenUAla2be8L/dB3Qw
VpCXEcL9uH2r9HTIP8NWctZZbl6qxfgsDzFzGt5iuLwJ8fMbx2GLoynkgdcd
khC3cpi3d/ODdyD8T9/LfwqvOS4J7zcRr7+6YS6w/s6ST+9EuN0A/B3FFXoi
fM0LpTbmdxeTMxre+1z7BsCT8e9aM/Up4EdKPSBO8sU5+IUtQ9z+zu+NuP8O
nrMMr1+jivvD+mW28At879/wv5vx/dD23u6v7aAzGtUt+7k68OfLS1Hd8jFN
UYCpn+wZUjgV4ROtx8N7HIn5sbg/wuO/8b6WF+jC74rBdf42XOevvFzUgfDV
uC79ievSEbuvQFz9wM/JwnXUqsTWXwg/hnl7gtf9f/r5nZvPzGOuF42X34D+
M/L4UzPa9xJa6jsM8R+I+d/wb3TvwGelFrT7/9O/a9/xQClmvzzPb4BBb895
s7nAlLk+Vh+5cPq/8Zx/imuospX+ZO5wptrUhPa73GXnDv4Tfhb7HaHm1Zs7
OfVSB14v4i9kw7p827QB8skinH/WBYvC925tJg34PJxndnYlQ54xz62B9V0M
17EGdcOjQeepjIZ8MgbnjdbVOyEPZx9/CN9LM8574yLkIe/pzrtM9B3vb2jA
+hV/+DnkhwL83U16aO7e2/e1Mb8S7n8Bf4+XxefA9yjq9xTyZwzGEzHO6z7R
xqnwe8/j36u23bzXvGrUef47uj4KXz/531y/f9Fp4KcY55kyo0/AT+uEVtCN
CzH+FuM5tv6QfyZiHn5fGAB5MtBPEa7fhq+fMngB5Ks2Wy/4vVswroHxQe4P
4Dlzcd77Klq39e/kK8crmvA8Afh5ynadh/eiPKoNftdcHD+/g2R7XS944Qmz
1KGf2oPjZ6CRUK/ruL/apQZ0/ST8u7bmR0M+lx5VCnneCD/Pt+PKf+t5rnd3
gi40G7/fYRY58H6fjVlVj3CJQRy8PDfib/GplNlZi+6TLsm5j5Lz8c3/l3XL
P41/MoqH73o0fl/6gy7D+zLcEwHvaw/mWarBBXj2aCwF/gswHo3rnMq8KU00
3OxdMny/bByf+jpLIT4rQgbA+j4efxeNIrE7/y95jlp3Gr7HCszDqomPIH5M
Hxtlo3z4DedDfjyP89knAHV+N8YHDPSAvP3u9xvA++A87IHnSssrHgOf83D8
d+LvMUjDA/JkA86H9/DcJOj7SPiuV+Hvrv2bJnx3127JQT4xxPe5jfX/PucG
A/8+mGdB6yvAs8u+5/DvZuHrTXCfLrJzfgvtvft2BbXQ+s2NN2fB8/jh9yuJ
4+HL7hjQCRXw73XfczIS/V7h+yY5tDmySMnNDOb1QoJpcL26hzXc/wb+vRtw
XW2YuwR+70nMTxGu6/JPGcDvKsfPv5L7vqQKkvpeHs0+/ClIqusvvHSVrZY/
vw3rh/IprcNlMuzKGu0G9O8u0ywMPpaqxuqXPVbadMlI9r5rG/MQ7hlkLGkq
MoulN6jK6/UiSbbK/oafCF+aZLV/3iMVVqeP/3j7V0PYwo2bvyH8hc5h/k+x
6qy0V4u0/fzE2BU/bH8hvKR+n+eUHyNYE1PrZr8vlWTnv5sB93mQIJ9TcXsU
y8krgpj33VlpCjq5qeI+fwFjcfb+6q4OhMfdkhg1RE6BZSDzWIZZb+yy2G8G
foOV6VTfQpaonyKzzswtKbKAeVNLHjG/XijnOwPh8oWBw2jXl6t3EPPWEJGU
KQhfcCecWkc9+KHKT/MzfItdQ73eobyL6n+Y+SpFgXa98idfeP5DGG/Cv9fh
qjzVZ5IWpkT1RXQ9Lqc+j82VKkna9YU/llOfp/Rcf+r1Q/vxXUNxaInj8OfD
R1NRHJ5ekXJ+cKcCu7x2ajK6fvDoG7NPb5/N0tq9biyKKzEcV7mDJ/OhuLLQ
aab6K45uCOz3eYUU2z3ItxXhlvfN2rcnjGatVjWsMegnwX7iEwnxM0J0p+jR
WwqsEtZiwl8xp+ID6NhyQ52An4MYH3nc0BDh4vfMiHjj+iXiEodR8dyT1cR8
U02o3Rzh+wZLyTKvDxf9bAq+GttjVH/FNfNbxPv1wLj4VPMrxSpqbPvso7YD
F9azlpbUTjd3esESKp7FpvklnietKXm3UIGtr/w+A+GfbZPmsjtZrN/v2oZP
fCrLfl2++SvU4cWRmR0tk1laPvJUv4TY4lV5Xz9KsZXC7vxAuJZwiLrouTEs
F6l+h/auk2BfTdMDnrNdlX5I2CiyXGNXEPOa7rIDwPOKmkZRmv+h9cU9Km4q
IE71UayK2EzwkzxVEuL/dLAn1UeRPEaa6qP4pBmfgPjkX8/hc11FHfB5iu85
9BF8Pdav1cfcXiA+52A+h3Zmz0F8vgxOHYb4fIv57DiTkYH4zNQ3gb7VB/Mp
qPgM+PTPyLVk4kWitqDXHXwaEtCwRpr9oq4JcOX1kxyjDo1l6UgV2P7UFGFf
a7aG57+k2k/CRFeeZXN/OtXP0JgsSsX1PtiK03DH9HtUnO/FAep9AvLiqX6J
mm2JiYhPi9EcPp+ubwA+VdSmaYrdHMd29j/74ddf1z8Ocnv0QdWBdd3y7nPE
pxXms0zR2gzx6VE/gtD3WocPAR11rrmb5K98ObbJHe1KyP+HjmyX1Ndk3fjR
Moep43H9DwfKj1B9Eb77tH49mTeIXfKJBbr0m/7C8sqVSqzjjo0zaP6HRelu
7Z2Zouw3l5JhXXv24+mN6WnDWb/K8om8wfU/jEzTkqThL0V+Ef2yked0yBuy
ghflaf4H0Zs+lxGffC0cPsOjaoBPfV1DDcRnvz0cPh9mGz1EfPbptqD6HE5W
1Z1B+bYF51ujRztZKN9aljlRfQ6xK9/1eZQ7lL1m78MKWB+rBNTGH5rCOmZ7
gOp/0JE/QfU58Gssyn72dBB7V+DpNoQ7HNxlnfZKmRU0sFKb5nN4Elc/E9UP
5bh+2CrT5Ifqh4AVfESdwPU5DPE+SMRh7QZpqB/cd3dLM/nPJ30OPf5rZCVG
OEJ8XsfxuWVCJfB5YsxOqGNrMZ8q2M8QaFh/DvH5CfO5Y4YVrF/vu4dA3G7E
fG7HfobSYr9+iM+lmM/QwJTJiM9riTJUP8OizaPpvoX0ACpu7BW2G9VpSrhO
8/K9GITqtLFt5JyX62dYu/VKKKqv9uL6KuHxsnGovrr4qA/V55C25iTV58CL
z4Dc4U1MPZPrW5D0leMboD6WLfrEQroTvZdAiQaFictYVVVlZxGfNZjPjzOi
9RCfTfGNVD/D28kyVN+CY9na5mNZ8uyROgofYD29ZVU1+50W62WyLNW3IOLz
yxDhBzB+Ka8A5oZb8+8S+Xn/CE5+PmHrbIrq2Dxcx4peabuP6tjiuNdU30Lb
0ZJaVIfk4zrE0CJeAtUhIonjiXWth2/hX/gMikwC/cGxhz9BabUFP+JT7zGH
T5nTz5oQn6NP34U80LeHbyF4Yeo6i4uKbCeR7ZEIz7BZ/MamUZ9l4PiK6k/Y
ueDOT8SnNOZTY35eDeLzfPceqg/BwbSCir/Ii7Nk6rd6dm6g3x51WUP1J0g5
Du6P6rptuK6T91n/G9V1uQtfUv0JO2wOHkZ1SDKuQ+YcSWtDdQgvPo09OP1d
K+4T9bB+npv8ow/i8x3mc8/pFohPw/xkyAM/evgTNL3V1yM+HTGfQi+agc/E
ORZUH8Ktea9gnrgV47In3sM88fELRd17nwazHZ8+/I5wZ5aX1Dr5CawcO1eq
D2HCJgGiTssPngE8X9sQTfUhLFzmYMZcH0XiwyD+dwkr3kF13Vhc1znujhuP
6jqJX6W9+RD+hc/gmJIOmt9g++XNA2RzJrAPur8tafsLv7+jQNjHZg3rxLMj
mTS/wSKhR2sRn26YT4XFVqWIz6vipQRvM7HfYMS5jYBvw/jZ0AOAf9bXZSE+
V2M+DXaXSCM+RymmU/0GTWKDCf/qeDE1mHfn3vVbiPAdGD+K/QaFcVuIdfDu
aBngee/c7AzE5zjMZ8uBjrGIT5lZL3rzG/wLn2db6qdKuI1m20R275l1vJL1
7bHD8l/xlax+dd8FEZ8G2zl8KvPpDkB8vj+hCvpMeQ9fgUz1ZipusUhg8v55
SuzYgHPhCC+WnechucGQ1b/bi+ofcAk7T8VX8olORXrCZ6wnrJ9yIwTpCW1t
ylRfQcnhNmKOI2FqAeuXdF4sweeU0Zx8O/fNGCOa3yB9hO4BVCc/w3XyYenq
NahO5sVnH6PN0xCfk505fH7mWwl81k3i6D+6PXSevA+d6qge6Ivrq6buOVAP
zNbzy6L5B8YkCE1CfGZhPpsUVNwQn29jtKj+gRXrDhN1wtrrP6BO4DeVovoH
mtcJqaK+WAT3xUaG/UFvseS3I/oLrk8gWviVORPn+gFsDEzNaNcrrbtMvQ8v
Pu3VK4BP7xkcPl0nc/j0Uh0B+lVhD5/AzYcXJyM+X+D6SskwDvhcsGUS9K1N
PfwDCS4NwOcNzGeu5iB3xOfRcDuCt+d47t+h7EfFJyiFUHFPPTtVpn51ZoEm
8JkhetaKmQeGDbKEPFBv5kjMN51mesD61bp7uQnNP7CgyAn0t0Sseyw8c2MK
0j2mxuoS+ap5+yaIh5/xXRbMf3fLY0P4dwWEphL7dJKaJWCflPDVq4R+lff6
IuhXFT99xZl17xuBJ9B3DLU3V2LqWt2nDllCH/dhUh+m7mRt0gh9cVys0UBm
f61q4wz9tZbzKMJv6aCoD3V4tfENWWb/cn9kBehyCkYjiL5G7dwD0ENe7KkY
wXyeY8OuzEO436QM0IvkMG8+4n20EW/8Ge+hf+nC9eEk8SW6qD6cXvEe9CJR
/B5XrDgMelHNV31LJp9NRRuBz7cih4h9H2IJeZCH1zdKEvub7H0KgU/H/LME
ztq1BnjwMTxK9HdaU+2hv8iy1Cfq509ZA6EvTvQ9TPiBlx+NA94UrpdKMO8j
u2Iz6GZBg2KIfuejaR/YB3TQ5gjR7/ysGgp1uJvbewIX2a8F/+7cJW2Q37pw
fvMNnw2696wx2VnM+eZLbRv47r5Niqhh7vtQmDEOvpc+c4bMY+aHGO08Tj7Z
oEbkDVPjgZDPz5jf1GLyHJBzAnjOCzpB/C6jTRLw/N7LhxH7awQW2ILOE6gg
RPwuha4PwIPO6C8EvmlCGdznwuYZBJ+3l74BHgr7PyL67tmhabB/cOBFcUJH
Ova6vzbCU045CzFxwb45gNtZB0Md/gzXOWKrBkGdY/1lKdTb/XE9s6ImAebO
BdG/QS8ywvqG8TcB0N92nl0B+lsp1oskxxiA/qZgPYDoO2IeZQHPV6S+EnXL
FR8ryDNF+rOJeOaT28HxkZroEvEWI2MAPJywWE/wpi0/E3h71vmU6O+Mlr8G
nnO/Xyd0OeuzboAfCEslcPv3EoDfKOsSZPKWZSY4DeGqY+0Iv03poOVaCL99
cZIOWkdct3TBOlLSwVlHJB9cJ/qX9jQZWGd37xoNfM7FfF7mMwD9raLqNOR5
Jxy3w6s8Yd084BRK8HYu9yXUvcMurbVi1snWe4ZD3DqrriB8DlrJ22C/ktEp
Y6K/k1gRBXpF6GvXBtTfPcT9natrsSTq71QayPyQvdUDvutz7w8T/E83mQB4
zY4kIm6vy1fA+8oPGUXoGMM8vCGfl3r6Enr72f16cJ8VY59C3bjSlbMup3Vy
6kalh+OnoPV3Kl5/T2i+Bf3NJyCH8Lfrbx8EPL/y0IH9pO7ceju1KQp8p9fM
iH1hFj9mQn64KUXuS/KzZwPPga7PCP8P3+BtgE87uIToEzufz4T68Gf2/BnM
fTE5J8uA56XLtYj9Sl/L2wFPTlEn4vapPycPjJLRJ3jeau8JfA68u43g83pE
HvB5t/8SQrc3PzWZuf/oX+qfULkxUM9cwvWhvFH/PMSnve2ALKYf8kPwMcir
M9WXnGPqG3l3z4G+YZQfTPA8sUoQ6oH6VhYf0oscsV7Ef2E26G/TlW8TdfL4
V/eBt6sXWwgdSV9VA+K5UFmRyM9Htv6AfDL7mRcRz6f8pwCfaqMsCdxBwBxw
mZmviLwd9lAdvnd/kUUE/4VadbCuZbq+lWLynPku2LA3Pp/E74c5Zjyeq5b+
0oO56sUuCagPP2E+NZyKQX8Td3UEvagB8/nivCTweYn1iOgTu2sEoe+ee+06
sc/uWdpFwKN/3JjL5Odg2k/gp3LdLiKe1W9MgHw7oT7LiOnndx2ReQJ8zskq
C5n+UhO/q+AvTVl5k9Ar1KJiQReqdFQj9r/8aEsH/Fy/vkTcSg4PB55HvY0i
eL65cmCv+lvbEmWYp6/C61Sc2AlYp1aL7+jurz6WbYD1t2px2Xqkb1SHigPP
jZhna8tkiNvSYemw33k75s2zzwrIA+4+xoDv5NaxcytAN15hchT0txFYL9q+
fiPob5cibIjv/etUHYjbTW77CfzzCz7AY55UEPxHLn4DeeOCjg/Rj/+8NBv6
8faGRCJuayLUgc9tD1QJ/GcxC3DJE06E/qY9pLNX/a1G4QH0NUOxXrT1xkio
o8L1PoH+NgHrRfrTVJsRnzevaRN9otK+ZMir7POnQX9zxvpG9Gl90IveD08l
4rPf+0sQn0MNLQkdKdCGBbjWNntCF8qJeg660Hg5EXNmPxKjqQm85QU0EPWb
i+5SiHPljQKEz9+x/ij0NSvPyRF55v3Dy/BevgXdhH1zUzCfctEp4OffO+sR
gZcfmFPem77h2zkf6qgYrGeemi3N8XtMUhVC+sZTD46+kVJVDfqGS2Ek1AP9
8Dol8/kX1Fcq/kNBf1uD+Rw8tAL4rP+lTvA20HIm8HZ78nMiP6SZvIV8+9FO
n9CLBBTegV4UkrKWiMNniZEc3XjtyfnM/kJd7zjwJrHyFdE/imscg77jxPUU
U+b7WrL1Nryv36dHEvrb0tZLoL9ZGZD621dP6V71IvXMmwKIN/8dHN6U+q4S
QrxlptpnMX2VW3+WQRyOF9HIYs43nWQXAf5pQwYRhwObrgBvS+45EnxGJ1gB
rukcS/TXm9yEoO4SEDpEfNdCg4QhfgYIphP4yuMfIK+GaegvYOrA1/SyQQeW
nj6NWNcsTFnA891bZ2Yzdfs7OtNOIvxpghGxr/yJy4FeedPYUgbf9QSsV2Rq
uoO/qCVXE/JhPeZNxvkN5MPRA26xmftbp0xUgfVogJOnOtIrErBecTnxPegV
96RaiLrUfMxK4Cfaeiih84SMcAQ8folOHfN6vR3bAF8dxya+X+/ykfD9drh/
JPC4qnbgeXu9JsGbv8EM4O1QyyRjZhyuDHsMcThVmLOvgYuf2Tf+XG/6z/Jd
TuCrzMffr11GDfBm2bYQ6qJWXGcW1zqCzhMbngPx9hPzNmM0H/D5/tFG0Hky
MG97E9xBNwvPOUXoJPm5ifCdGggOAz43YZw18DjUnxeuJBHz4qORfYG3hNAw
QudhfVkGOs/YRZOIvHdX/xHw4xA1gsh7aZUpwKePNcfXzcV3lv0CPG919IDk
NCW20avGXKRXRI545Gp5Yj6rn7dsMtIxPLGOISD1EvxX9jklwM9yXDfmPD0J
daN77VLwzfLjPr1SaAvoZgen2oLvaz6Oz0J5Q+DZbu0E4P85vn5BvRusR3MD
7g1Ez8OPn+f0wvgt6Hl2DHlM+HwUntxdgNa7dt1iGWbde7lkrWlv66C2bQQx
X+jgV4E6M2WvCqH3bpzO0XvPJk2m+r153b/u1mSokxtxXffk7DeYU09NcYI5
uHg7Zw4eGMCZgws+8gN9Yz5elxtz38Mc58BcCYi3Lu7c9kMA5DdX2f7g90gJ
49znZuM3uE+77lRYj0RxPId55cN69CR+OrGOq1rcgvtYxTvHoftI74qA+3zd
WwX3efTaSAv1X5XSfQJQ/3XHltN/qexyhfnyAvxdPHSLhv4rSVw2Cd3HUZjz
PNn9G+E+EXy7oS/WsuL0xc3yq+A+Rv3CQZe+g+PnRuXbB+g+Vi6mseg+p+5x
nkfg6Re4T9JDIZi/yOL1tKSiYyCsp3GftdH9DYs497c4y+m7p0jqQ1xVYh5m
iT+CeHutYwDPkxDLuf5+Luf6xQMPQP48jePwhlU6xOHjh7WA22DcyVUE4llc
Thni3AfHc9s7cbj/2rdf4D2K4Pd4bJwG3IeXPsCLH17973qxTVMQfsWV814M
uuwB5xWH/9/x1Pzivui9X8X1wPUjwzn1QPEi6LOe4D4rCvuTM4LGTUVxpYLj
M//wb4hPC2cveF96+H1NmLsU3tf/FZ9LrNWg7/uN80ON7knQgTdMvAZ1400c
53ekB0Gcbz624if7hxK776JEf3T9lt/fBxZ+NOJ5f0UbkVbUv8jg/mVAnhbM
u/m1HA+iedNjPG86tbNiE5o3xRm/DWH637zTRcH/xiphCzL7i1p3Segv7D+o
Eb64rOOOoHNeiU4h+r4qhzDQK6R9rxC+tdago7BPraF6nRANby6a3o+GL2l+
RviUgmOmQD/+JdJyMA3/vThBioYvX/n6LnOeONnuPdQ/vPgcGfyROC/Lfag5
rOOB3n2IOeCRkRdg/bW4Xgc+Q0VcD49qn6aB6uGvv8y+Mv2ca01KRJDO9tv7
GHEuil7ECtAfLrd6E3ryBecU0PPl+FIJHYOrz7ds2ELodRUYb7cylKBdzxJa
QviElxupgU946+4FIrR/N1Arhfo8w0KCCR01EuO8+HS8XQLz8dW431mhpfwW
9TtJqZLgizPGvjjxqnTwxelV7CLqw+7xAVA37tlUI4D8FR5cf4Vfx0/kr6jK
d9/H9F0LvXkIvuszspsJPdnu8ybQJTq+BRB8cnX4V4tmS9LwtzOlqbr9018T
iHgri/KCecoTJzVCTzZcUga68SeFYAEabnIvk4rz4jN0ky/0lW04nnXfSUFd
2vE2o5bZ1+yQroI60yB5OlHPrEzqhHpmbJkioSf7rhwMdZFkyPNZyC9UhP1C
Xi9dM5FfqHCBPfjcPmKf2+qCdm/kc5sS2J+IH67eLtaUS+jDVhiXLj0uRrt+
28Bi6n1M+WuJOAxMXwrzLPs0kwE0XOMaH/V6H/UmWEcE8XpdHjmduU/2X3gO
ebsmkzkfCd9+D/p3Q/GbhO9oT7MU8OwSkD+OOdcrVHgIc73Xbr+I/d17Hd0g
nh9VVpswzx9IV9EBn4B9dZ0n8sWNwr64o2WH9iJf3Jtix2bk53yL/ZyThtlf
R37OrHizdiaujvEh+8YQ+ZOrz3vcsid0OS7Ot/adJO161jYdQn8+5Xgb8qrS
00RZGj5M6yTU/4+xjnd7lPyu3niu+jIUeBbBPGdPdwKeja/egP0dvnh/R/TG
+1Jof8cFs8lE3+QtLgh90z2ZsZrI1/EV+zoE000Cka/DqqiD8BH5Y51f3SyB
OC+Iq/+bZQlkMf2fRtNUFiD/p295KnHO2PKbFuCzHapxJH5Xmwjb4xc/8LBK
/fMnPc9hLIFy0n8oNVMO5h1hoTJE3pDEePVPHTlmX+M3ZgfMo4ctNxlJwyWs
VaH+fI/r1TeznHqN566RS+4wdRV1yS/QF9QdDKDiAbfFqpjno8bVfwS99JmS
LhXvao6m6vzlmxbNpeFzAt9QcaVLHl1Mn3OHXOFQ5HOuSKwkzr+6GhgKOn/Z
nGTCZ250eKQ48pk/OepB8C8SHQ/rrM7y/kQ8c3X+FcuXyfyJ/v+n+H58/hjX
lzsb+3LLBW6dHmaqxk5/lN/n51/4iYXssie161hb8blkPX281X3t2Mx6Zlqa
LPij7uLzynr6eMMLogm/dOr1YHhf4vgcs57Xl2s9p16/s8f5Zj+xj3fm2muE
fj5x3kHQz3mde/a1oR91TsHrPLQFwsHU63mdk7Z9zypD5rk66nHNxxA+pMf5
afOwr3he98ojqE5+iOvky0fnbIH9CzzOVasOHE/gpWc3A67Y47y15dhv7Fbo
GY7q7SRcb3cJzW5H9Tavc9hGqFgQ6+DH+9pQb/M6n01PJVKMdj2vONyyMh76
5VTcHx3/XgB9rqfbfiIPOOyvhjzgIbET9K77WO8a93v9NqR3fVc/T+jS0vIF
UCc/fZxFxVOu3yDyA3duMrRIhzpPWTZxBzEvUGPZg763vKmIOBfldJA+zK3k
HQ48RnX4CFyHvxCeoIXqcL6FQ4h5Ss5nfnhf+sclCZ9za+088DkXy48n6r0h
/Sbo9sZnXKcN6AYXcB5+0Hwd8rCorTvw+QvzWfzzGcd3d3IacW5AEcZDCnYS
OvaLdd6gV29af5KK54w8JIrq5/m4fpZsvrIN1c8Dn5LzlH254bCuqdi6UfFH
ZkGEz3mTxTjoa4xEC6l4SZhd56e/6vBduA7f7sRuQXX4CKuThK/j3vcK8H0V
VtnvZdbnUQ22UJ/z4jNM4BDEZx6Oz/3ttyA+PyZmE3P/wXie8qveP4uJc+cs
Hg+ECf1/c4IK8GazUpWKf+9XTvj2cz+dBn/+hVMPiH06/iqzgLfbimrmNDy+
WpXw5XLnKYX67dQ5i+qxHSzmXKBN5jPMZ1fkVBLzFFs1SZgLCIdtoOJ/uh6V
ZnLOo/DF9bDL+ljQIdecEb7D3AfNnbPsLivIouGPI0RKmH6hGcVN5sjfomJu
SPguNk8TgvUlqV8a+Ac8ML7wdyXMZ/VUdxL186jrTlA/v/sxi+hfpGMOQP4v
ljhvzZy/yHumAJ8PQmcR+LdERcgPHk0LiHPt9E81wPxl3IwOqLdH43p7/Lyc
AFRvs/pkED7GD1KeZX+H5w1G4RDP93E8hyXfhnjWMj6YzNxnWh3yDPaZehSF
gf+5kjvXbtjEWffNvwP/1T3wITbriXVcJbMJeJ7z1YeKHznjScxrRD+kQP3s
O71Gi+mLDirwAF+0pIUf0Y93/UiE/Pw6RImYR5xdFgb54XWXpSGzr1mF5zU3
SoqIeY0DxvUfFGSgetsL19vmmjFWqN7mxed1j2DOHAfzadE3Ffg0bbsF/d1k
nIc3PJ8B+K1XGpBv2zFvXhYFnHniwiNEfvbG+ITG49Q5jt2eJCr+MaqN6Efa
dU2AT6nCfnU0/FboYsLfEqF7HfrBe9otRD3TEDcS6hnNkvHEuWozXxjD9ZIJ
pP+Zi78euZWou7jzjkleQsTzF4RlwvNfqIqxZH4vxo6bYY6pVedHxL9oWg3k
mQfHS4h963ILs6G/VkwoI/y9XP3wzIePVF2Ol4/32bJiQZoeKLXNl6oTTqwT
lqTdX0qkXJqG69wtpz5PfHYLsd85Ac+V3gRNIr6LwOG6oei7uLSsmqoHPvjg
T/hIT9ldBd4skn4NpOl+bol8hJ/zxYgsnd58udrHi6j6ntrhZMLPnHvFDPxg
RQvcCP2Wq+P17S9HxafeekHVAzWaBYk80EeVo8tZPq2n4ttOiRM8vBoVBDyU
+04nnj/i/J3Zvfljby37SdS9LhgPyL1A4ErGw0AvOr18LBEnRlhP2+J/uS8N
/zr8PqHP7ObqYLf1iXXf4NcXyFcOlvnEvP7Aw03wu3j5TtNXhlL1rgUr5Kg6
1VjHVMLHzsV5+UJjnrEI/y1XX/JxUzWl6Uu8fJtb/FiErn4a6znrbn8m+mKu
zsPLP/lw4hiCNy7Oy8dYUNBI6B7+WN/4Uz9epoY+7N8cg/dvXprMORfF/Jgt
tV9e5R/j9bL/CPaxkxVPEd7XSfJN8dDprFemBdT+17GsnoonZjcQOhK3P+Xl
xzsavojan9bOX2qDcO75sdOy18TD+43O1qb2m7uPUPFlIf7U/vGORCG1T5yX
9yQd1SFr3nHqEH7nN3aoDrEYVZrFXDftcD9YZnOE2t/JfblJxd/JhYEuV4Xz
Z+2pz0Eof/Ly0dnfSiTyiap9J+DtufzEObrcvi/OU5/a37XlxU+j4bVG24i+
m9vf3ckOzaL1Zc1j5aC+NcP1rfbWevBvLw0NofZlr5qKCP/h0DgNqG95+dla
o29Q+ywZ72LC93J26SnIP8oyxUSflYv7rCsS5tT+a5S1EJxbUo3nj5V9r4Pv
tOqIPLUP2pA/tJr5/M1mW+D5rV7GE38X49w2G8gnTesf6qB5QTGeF7wq1MxA
84Ip4+KIPmUJ7lNsg9Rrmfr5FtwX2ObMpeIDPikbMOv22bhuv84aMIVWn3/u
2ETUY8q47v29dCHRr3F9RH9az/PClzZNBn+C+xbOHD/6l8N/dL4skS8A/oHL
Gzn339CH4yt4YeAC/oHnfpy59rhvnLn2KYUBUA/b4HzoZ7l5W2/6sJvEHrhe
HdfPgWK6UD93YL8Nty66guui5y9diPXaM8qV46++dA7uMwzfJ0J40fbe/t1/
HM9ubmael8VdF4pWGf5GuEMPv7F0dwD4BxLw8x+cEQ16zv5CG+g7vHG/7Iz7
5X/6+SWqlaj1PK/rn84XhHhwNeHESdAoTpxc3Tw0BeX5tbjfjFxgAf3mh7Dx
nHMR8e+d3MR574k7x8J9hs3lxNV1RU488/IvLexxjqX3vznHcmfM+mveBlMz
NZZKVditbZ3Jff4LB23Bb9YH+4UaUuaDH2+vZ1MWc+4ZwPcD8jOv89Ym9vAv
vcT+pf/Ue2n2d9Wa48rKVHWYfC7wQvf/Pr869vNMwX6ez52954F/c07jv1x/
cUxNPOItyY7kjdd9TMs6wd/lsonzPJe7Oc+j3R4M30ULfo8pu+X/K/H8T+Of
8bmI3DrQAJ+P1/O8xHdOHPxUwh2IZwfMg1brE875exJFwNvJVZz4nyPM4S3y
vhjcZzG+z55/k1f/aTx3SDWcf2iLn8cfP4+8RSCb6V/N3igMPgFe582O2enB
Zn5fe/H3xX/bEuJEtIfPzdMnCfZrPMT58yae8/L6Hl1O60FefYvzzCs8r1QV
DIH7f8L4at01gJdeHgL3+YhxB4x3bJr2g6kPh2M9jde5iLxwg/PqcJ/H+D6W
WEdSe3AYcHv8e6fgeNi+9DM1ThxCSwneFp1qAd52KnlQcecv6RA/fvg+rngd
WTI5kxpX1m/nj0R5rPEIJ49NSqi+hPJYuPRGQvfwtG2A/miXVT/qexd6H0L4
JfrcnAX6TEDSLmrfzStO0ozXnGPWk3x1j6CeHJTWSNTV0w7xwVw7+s5aok/n
9r/ha5LEabhfhDb4hVywX+jghFo4T2N3uQ5R19UXTQE9zaFwGfH3GpKyxGB/
R0vkwlamL6LAxAF8ETdS9xC8XcP97+kTXgQP3L5Y+e4oqj9hfOw4ot+Js8mF
fue68iyqP0E4rIDqNxj96AGxT3AZ9hWEd7sQ+wpXYLzzdgPRv3N9BbHCO4nn
5+JnQuyo8/336sdbkc+wcSH2GQ55JoJ8hqGx0tT5vkXQb5jzDsdz3vKUtzDn
nTdoLdHHqeI5/sRdVdT5/ui7dsTvSsFz/NFHrabR5vuSXhuI8w+5c/xDqvrU
+f6eHnN27tx8c495ugLGec3Nec3H/7//nS9e64jeAVnifX3B/Tiv6+N2tbQy
6+RgXCfnVL4h9J+9eM64a+886vyR1z6pXzHdcmi/eTneby6vaZiO9pur2XVQ
53HNuZMIP1tG3xXAZ7HbDeJcRGc8t5K2z6LOoZxmdxK6DXfe9FhgBTGHksG4
gXYVoUvU4HlT5AgWmznHmY/nNeH1Y6nzHdEe+3Gu4f04eV9dqPMahyof4nwb
Lq6lTv59nE48r2nUDafOcWbGLSfikDvH4bXvxiD0eyjyq2x/w/GrhCc75SG/
inFVF6GfcOcsjVYPIc/U4zzT6dUCeYbXfhnVyBQqbmLaQZ2zTDjb2o7ykgTO
S4OdZn5DeelWXRrxu+rxPOX5DnuChxl4biJWPJTYL8OdpxzskU/scN7g9V3w
2m/Cqw8yHHomB/VlD19x+rInx47sRH1Z9N1vxmjdr93MWfeX1rfWonU/UHMP
1CFPetQtvPYj8HpOzQ3TdiP9Mwzrnwqec98i/bOx5Tmcj1SB9bqZq8TCkF43
2c7YB81JlfGcdJZb+QE0J91y6ddU5vnJt86570K+0PqYpcQ5JNx5UHvfTUQ+
V87izEF4zYNuFWpT50HW6cJUXDozhNA/x+D7F9xQpM59nIsqqXOiQzK3iHN9
fY22wDz6zKDT1LmPhtATH+a504NFg+Hc6YKl96Yz+bELN4XzpQ+ndBL6/xub
E7N6m/ssnj6Yim8d/ZE4J0T52hQTmBckVhK/1wfXh20JNdS5j9cFYQLn+rr3
6gTORvtM7fE+01StFFm0zzR5SzZ17tMtdoHkwTR+H+KhKih6BpOHJPUXXogH
XnOf4EXkOQncuc9Mt63E9ULa8cCD9Yn71LnP2inkOR5cnOVfQcxP09wOcf4u
lbkGkT9XYb+0xrPFhE8g46EH+AR4zX2qHo+gzn0KJ/lT5z7zlaMH0OY+wT3m
Phfx3EfYzoc69xGU6ab6innNfSILyLlMdCRnLhOlNZyYB3HnPuk95j4HcB17
sEvij+Y+b1dF/EfmPuO+ns1A+XMKnl+E7WmyR/nzaiAb9t3U4j7lvfRu6FNS
jqZS5zgnhr2l4kPOphLnyqq25UxE51rwmu8Mm7rCiOnnGdhsCH6eehnt+cy8
kXdUAfKGS7JhAIqrkTiujr+vPYjiyqXwK3W+kyCQE8w8B3Xl2ANjkZ9K4lA8
de4zT9UJzoesw/v9o45cgfMhhSLWE+u1PZ7vnKu7SJxXs2+ULsw74ofEUuc7
HwRDYP/RELz+KtY8/YrWX17znQGPyX2XfgKrOT7AF9+pvr6Dqu1+iB9FzM++
0onBiJ+uoibqfEdDak0Qk59H40YAP6d22BC/l+vH26/6Cs43WI/7zS6fQNiP
b3zDjzrfsbw1sIbJg6lY/5je5jv7VROo851xwzcQ/WDjgeccX+uB7p3MPOPe
pA/+/xfxgdT5jlpf8vk/sw/D809KlKLOd87OiCXqq2fPb8F73Hx1FuGTn7F6
LXy/u/0uZzL3+2uPkYX9/lLDXlHnO3qq6n6orgjEdcWr/mFlqK4IHm5Cne+o
VWvq03xZ7iW26cgXtBv7guRiBOYhX5D3WGfqfMdWNpw63ykJkiDWi2ThTuiL
L4drEHXIuWRryM/nZ0gOoq1HfJcGwRzQEH8XTwpHw7lYtUf5if1Ej0uHwPVv
XkVQ9Y1tOeup+Ns0I+K7013rDt9dHKu2DX1fg/D3FWneD+rbrQ89dZnnTqt4
2/qj9dTETL6Npnt4uLYR+0G4useDcwZU3WOoZ9saFFdbcVzlNBwGHeaSxgTi
uzj5NQDi6nXAAXhOSfycGUq+teg5J6hN9mV+vyGvzsM5z6v3ZBA6AHc/hbOD
SRj6fgPw99vJHzcefb+L8ryJ9Usa6xs7IqupukeuojPMEVbiOULW8zDYty5l
6EbVQ3LSTWG9aMLrxVqhe7CPO9JPgaqHzJkgRpx3dMVAGc47evflEVUPqXya
4M/kocPjNPBg2l2sTdM93Hw+BDLzGFvSCs67To01JeKNq3s8ySX1t3dFvhBX
//Q54e96nBMe/h8+J9ykxznhu//NOeHre5wTnvQ3zwlPVB1H1UPOTPxN1Tfs
PJb+kb7xO/WBLvP8FhFrIzi/pYUlTfUVfygg/76tpWUt8NOc+Y3q11XoKiP+
vkOC+SH4+w7S0ipUP+26l2VEPXztyAlYv1bIhBPnnHD1jccvFvVH+5e98P7l
U8fXwv7lr0nJoHtU9dA3FLtaqDivc0ge+Oyk6h77nN1GMP8OiOzQYDiHUJm1
iqp7fO27ifhdZUNiOOdAfkwmztG6o3Mqujfdg1f9mVzc2sKcI3D9qF8vShFz
zJpdnDnmasHjVJ2Ef8Z02GeRiXnIrJzb67kiUVG+xPe4dyLnnFiTPfxU36ns
SyXiPN5BXbJwrki/xc8Ifri+02lHThLn8XJ1ktr8gWZMnmdhnJfukTNIAc5H
HYfnzuzb0dNQfb4Dn2uRjs+18MXnWlhf4pzTEod1RbPCONAxGiazYX6UydVP
juf26k8Yd+sZMQeMxXP/RR0RsL/+G9ajDK7JiyI9itdcu+5EKnGuY/ZnWY5+
3ihLnNfxfuwhwHmdmxG3YDH4N545cM5/cBTu/fyHnnrOF6Pe9Zw/xXvOSfdY
cfjp/nV7c8HSiezFP29F5R+oY6n2Cyw7EfX6j+8/6cwOYp7FnUvuSHKBcw9y
cN7Q6voN52X9DynoaCA=
    "]],
  Axes->True,
  BoxRatios->{1, 1, 0.4},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0, 200000}, {1, 6}, {0., 95419.4988641107}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.460225241484375*^9, 3.4602252625*^9}, 
   3.46022530928125*^9, 3.460225377984375*^9, 3.460283893296875*^9, 
   3.460362673984375*^9, 3.460362712140625*^9, {3.46279485240625*^9, 
   3.46279487209375*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQn4LUV1Z9t99//6FlbZBBQDIoqA4oa7iQqiQAREn6iIgIggiriAgggu
CMgi8h6rxt1oFOIWEQyiQkA02ySTGSeZJJNM9snMZObLdz+mzzlVp6uqf9W3
+t773vvjN/Vx7/vTt6uXqt85dfY68uRz33zKmSefe9obTt7rxeec/LY3n/aG
t+/1orPOKQ8Vj8qyfLcse9Sn98ro74ezzH49XP4nX3vQFx3+ZT9wPH116e0L
+qugvzr6Vw8cq/7aEl4n4wtl5jbya9nyKX/rbIVrbnae+QT+u/DOK9bos54I
nnWtjuurG86T8e14v+nh+bzeL9ljntT0KP//CZOe8BHLnaK8N50zz2OV+BCY
s2uc3y+mL57p65yj79fnsXN+yimn6DXc/hfQV67vZc60o+Ke+R69prmovVx3
Qsfz9RZd8DIWq7a3ucLVzgXeqXceNCDYvqH9jdonnKucq4+x0JIO3Kucrc+y
Pnjt6ir+la9wep+lz7DDFL3fovfeCfRG1P1xp/dpNUy4Z24EV+yA8y53rniq
vk0fnLlhiiu+UZ9xT9AbwedjTu/X6/Psk9j7o07vTXrvx07R+zV678eD3j3Q
+yNO7xNjtLUfuBga7A87F6uYUSVYdvWvZvb1BH0N9MJoYCY9DbpOt4HYttUi
9Xh954PAWyFGc9mEt+oZiLvHtuELPVZf6GDwQkPwFJeu7RfaR7F46C/HC+2l
M/RU8EIj8BQfegQQ0h76VoeDt0Jr7SUT3irXKzZJeltDCny03hmN3mFzej90
7Sbtd2u86S5KXEeAt1oET/hB56062jv+ftvuXXbUWXsueJcl8IQXT5ghtIQ2
L5w76Ii8YIpneLZe50Wg9zLofZHT+xna+9divfnJ3DserkcRGtFTLOhdAhnF
fZTD9CQ0rC8Gl10B573fueIh+qCvBL1XQe8Lnd5P1uc5doreB+m9XwV6rwO9
L3B6P0HvfcIUvffXewfDjS62Hlzsfc7F9vMRG5yJXm4DOO+9zhX31SsiUenX
p7ji3vrCiPscB664EZz3HueKe+ozvgn03gH0frfTe3d9ntOm6L0rfbGkcTro
vSPofb7Te2e9N5qvU8EVdwLnsYjUrZ5Brr2Djsrb2lwnwnvdK2/Qp347uPLO
0Sv7x85wrriqz/oOcMVdEq/oPuOSXvFdiVdEctlpzhUX9K0DQj1/hkc2N7hd
n7a9JeoA/QtxePT2uyY+3Jvl4e4AP60lk97jdWI+8Mv/spX2dzF42UeDp296
itMfGS9daYjWTFqb4YBQznhkvFilKV4GXqxaHZDF8JxHxitWauNHwCvuqK+I
5MizHxmv2KxNXgpeew9w3tseGS+7s/M6tl3Z7hVv10mf9gG3rnb5CfA6e4LX
OSs+Y+1d/Rv1r2vB7fcC93ir3P4fdTSvb9fx7+gfFl0/BTo+BnQ8Uzr+bTB/
/knXtbvYX+t73ww67g06vkU6/qU+xW2g4z6go1kU/lzv+Jl2HX+hd/wc6Lgv
6GjW1z/Tkf5CYkcjF/6JD5TgpM+2u9gf6+MjVe43wMUeC84zctIf6JMhyxga
2MeB80TDyX6uT3ZHu44/1af4Jui4H+goGmL2gN4xEObRdR4PrmNcoPc1ThB6
m4aL/Vgf6vuxt3G03OyHeuDu6KhhVmfu9wO9wD3gAvuDB32DdLxLH/RHoOMB
oOPrpeNb9Y6pjqoD9S8kA6HnfgI472S5/dkNY7KtzOiVvef32j28yHvbzalR
we9B8NwHgqd43Zp47sfqeP8MPPcTwVNsWhPPvbeO9++3e+61APJKr/mjxId/
rfStGMS2dgntrndGjOYPwGscBM57jVzvLPDTtvaWBGpx8DQIVGv8hSp1+Bfg
4Z8EnlDC5kTtqPSzhFWn0gX+vN2tPqPP+Jeg45NBR4mRzG6lf5jZ/BXoeDDo
KPGqIjVHhfG/aHexLfrefwc6PgV0FC9FdoM+xT+CjoeAjhIwmH1S7/jP7Tpe
ox3/FXQ8FHQU94dod1GPGHqKp+jcmHtf0Uha/wQucRg4T5wnEhfFz4Ms0Gg4
nwrOE7+J2Fj4lzHo+DTQUfxlYn/ip+DDj2rX+xIdoYflAdJ6HyO9L26E8MPg
YoeD88RtKD7FQh9l2K73+/zei6D300HvV0jv9/iDuAJ6PwP0Plp6v1jv/UT/
Kda1u444dTEPPaAR/Py9DO72THDyyyff7fH+e+wIrvwscOWjJl/5cf5I7zK/
K+/jP/OjwZWfDa585OQrP8Z/5j3md+XKxhpos3zK7uBGR4AbvWzyjSpLJzLX
RgfsOeDkl06+WxW7wsce1+7KFTnt5E8pCtx8LrjOS+Q6m/ynOAD05tFk9mfu
fZIe4BOeAPo8D9xRwjpkMW7mh/snXvFX5Yqv0hHgl38K/fXH4BLPB5eQYA5Z
YPih9qS/Fg3aTvqNcXbSZ8bZq8tPTt/GX3HCp8u/jr9tXL7Cq8rvV906zn5d
Pnl23C3jbJgdW34fe/M4O8Z8Xkmfm8Z83VeU/77iRrri0eV3kR29ZZy9nD6b
6dhRm+nYUTeMsyPNp8Pf8tz22IC+n0BHPi+zUb7oC+Pv90odIobdiM/pZad8
cZy98Qvj7A3l5/WfH2cnf26cve5z5Uts+mz59drPjovsNeUQ9HUg7GBQO7H8
98RPjycPR06jkfMwCCnQQNDHH4ieNxD0oaEoBwK9/zJ982ysgl9X6PtAOnK+
vHg5Op1ERAjNmgXA9wRw0EFfIPCWr5a3P+M3x9lidnr5ffpXxtlp5efN9Pny
ODv1yzJIb/rSODul/Lzxi2aUv1B2O/nz9MDlQGeb6PNZGgE72DmPtYzTq81o
tx1pIa5jDOTMSOc81B0eamegEeCi47ocG+vgGOqLjhX0fYCyFh7tQeI8Cdpl
AYlqtsvKqkqKef/vjLPzfnucnf31cfY2+vzWODur/LyVPl8rR+JM+ionthyl
M8pvmt3T5ZPz5C7xhez08tR+0ZtaIaLPj725LWhucyYkeThLTIaj0Mx2aWaz
E8opPd58aHpznuAeTzGxFfoQY6FWMhcmqZznt1BaMvS0pfzh5Vtqs9s4sdW0
81/rEifxQGVFu+kkLrSbxJcq+21SkReqyexnV/1onF1Zfq64d5x9/IfyZh/4
3jg7/5v0/ud8o3wHmudCZ5k+Oc1zefVyorMzyxmmubYznfNcD/hClpJ1mqup
znmuu9Vs12eaX+Mknm7LL2UBOZGot5zogmd4EJIw39rOsZ3fguZXaLfv0+6W
ikn6ExfliFNSLgJC6rHd6HsXOmKIO6vybCaB4wUOOIyp0uHG0UhyObQhu+7+
cXbtfePsmp+Ms6vLzyd+PIaoufj74+w93x5n594+zt5On2+MCT/Z2d+oWEVO
8BH0LHjoeYtBDzVvHTBMImf8FMoo6CMQ6vjMwiy45oWIWdCnGUfENgKWQXAy
CCQkdUJBxIFTJ4ST9RgRouz8Lc2wCqw0spLUYy+kb8NUql+9GU/A0vNDRhP0
GbrIuemn42zLg+PshgfG2fW/N56MpHsFAJfcNc7e951x9o47SjTdIYjKCVPM
kEpGTpCKrTzlsBKYqHmLTwCoU78UZ0k+njKBgUpxHU+ctUtPDEjSWSXaBiBZ
MZZQRE3F2Ch2plxoUnnTfuDYToqiFYCiVNnw+XWOZH8qu/YdUeS2n4+zjdmt
5fctD41rgPpkIqAuu3ucXVhKLe8spZZ33lGO1jvoi2DV81jVOZZVEZOynMqw
AQJVlyFFcDrNgVNOgBIGNfAY1BscSYbaJoKQ4qgb4ojlUwdMHQYRNcORHBx1
a5rRMTdRZxJiOirEEKD44QlTnUoXEH1gtNVWulSErU88tlGetMTGhhlQhyLJ
xVotFgL+ZQAwybzOUX2oETDp0+Xv9VF4XkfwvM+B54/r8PzwD8ZW5spZsu5Y
pDILVLB2/XXVXVPLLrSoUuNl1Urgq3UG2MwEGbTUDAfMFbVW9AbKPInePcYs
tWAdZdSKJUCWypc3a039WZfK7QDQVWWLO84AUBQkYwB6RIM8j9wL6JZ5FL4b
slt+5sP3Uw58r02A78V3ivAnasO7LJC7IZCrtbx8bCsd2qWc2lutfFh48qHY
CAqP9+aM475qFxbJ1KwiuQP/X+GpB8JBC4+Dso6wP527OBcJDAEsFUyLCqZd
E8GEjHpzBBMSDhGYOna5/pm/XG8GgOIl+8f1JZvaR353rDLgu79VDvz59FWC
qrzDed8U48M75cNLeYkBKya6DJLa237LYZAiJVoGKSyp79kd4jYHa09yLXfU
0u1JBQNNRsxa7USDKDwNIud1urCrNEOgEyzVHQ8w5Wdv/Y3PQrBKhS7qO1BI
7gEgiTx5iL8xtnp05JBEIBYuJCfBr3Dgd7OB343lZ3OEp02C4IdKCF743XJA
S8aWExDLYS+RyDzuXfJpWq6NgZMQt54x95bAUoJWZWo1g1iljwSrsQtKau2N
nMQGb67QLAJkz7OCOdhE0CzmuFxT24O+unPGb0fxu/cM+O02wPXQ6VgrsuEg
bIsmtDOv0ze7rNXBNomc14f4BloRtY8afJPYSWz2vfT5tov1QrEuE0JtHQOc
muW1riAaaOPQOng6WwgJ8UPGvOL9SxDv5cQh8ZOaWn7LcyzmT5BPCuqpHaOL
f8T2W7428KOUv0Ug30qZQuexqr8bHUE9ELIZOo9LBDWSEyJlMKbEM/I65Abp
Lp5ZozdYJh5dMJoXGc8kLqjJqBnL1kdzaangX1RC+YLv8qcnvMzKDqUs5PBs
ZtnUiGm/w5EbCMuVvLC+EcMu36ZGMmjgn7IY7imEy3F8jUEv/ev5L9qh2Iy6
lWDzmiXJ+C3InOQo/c0OqSnNSeg81uF2lbmxnHcjOA+p8+2AWx2bAbUo/id3
6IIR+zNGbMGQXc1ucgQM/jwoDDkBtKQ4yXULki8saMs7EifuWl7M+hR93v3t
cRby5Hd908xmef55Rvg412JYjQKFK+8aG9aS64+rYdjKHqFAPKgs6z0FsP0Y
IEdwzF4a1wVHzXXDTeeimdIaEOXEreTmJUU1Wgt2Ci8VruxpgkZraCNXDvIg
htA2n5wwnjNbHrH+drP5ENYj2JaLdDxL68V3llchJ3GHja4OxBnhOQO88CDe
YXgLsgjaxJodOMfRvJyEZuLKgXo3FEALRyBYRwHdDQHNNn6XO9uWYuUvLxdC
mxoyhC3MCukpj+2u4O5NYNnekw4FCXW4BcZVp4jXZDQzvuIYRsasHgsXxK6t
HYKwWwrIcvKw0ZZ12Q/G2Qe/TzNYAjhn/AImLRAeeRCmjwffO3z4iibY8TVB
ioiwYRECxj4Uh61NYsRWCSE6+uu18klzKFjIUqsJFA0OBc87Ra0pyGo4Fzk4
9Rji1115ghIseyVKHIgtP1NBi2JgkRBRcyWgk5YSodynbzk0YOUO+k4FwDkj
uPDw22cGXHgMOFcWXDB+hd2ebyRikoTfLtqcg9fCw6sbqXVaIAE3aHEhas3H
8anGvArWEUYtdCm0cYSZ1uQI28oSsRyr2e0YCftEcVrnjAScFwBgSfC11vxy
f0Kx2rly4k6FtHXMMe1qzyrY/Y3Iy668tzIpkBvgku8Tj4pAr0SyNTUw8L7V
BLxezGQWWg/sOo/MuCNjxHWBV6g69iQ6PG/PUnTuefyRS73tTD8jPtMol6DQ
ZTQ3VlLX15PzNK+o/Sg22VdFJpvsRwvVWrnM8xyd5dvVvR4aikSaKxrtRE0S
3Xrh1DFrvcbaphhGM+AaKk8Nwo5rUcdbGqKObagMHbDt0UJ9Eai18jZV6ohz
j5iwhtbMthh8ehyDqzEMmvXGUTiskygnDTpnPK6qRROhMWatZzSKNXORuc9G
RiPE4jcnYhEZfEZmAm1MEH0GgLv0gyCPni5sthllopV5/pibrZZAIOxC8zyy
9yAzOmJ4vADuHmOHiM0NFXHoHqmezibYIb3YhV0hBBIDm3S0mkBemW76arZB
oWk5Y2040S9EfE+gNoJQI3WWNQELtW+IfiTRsQuNmmoo9Feq6giii1oQ4j59
hHuCCeaoGxq8PlBkqok9bBocxIR3ns/hzLiqBZYhTiZpfpICw0+8Uf6KhPvk
aigxQROuM8YFE3QyOgupC6aLFExFBabvWgF9pIZpG34d4VNtsHWyp1D6PGxU
87lQA9H2PRht78vnhRtpHxqqs8rzfbT1fNs11F0q5x2fxvyOWboJiGXK3CZ4
e5qDt+CnSbtA+GEWC7UwizDszF05cwZgT/kZNesDvOjOkjeV6BM+PGToER+r
WTRqPhJkkSs8i5xj2RigJB43XWoIsLjoOk+oBSa6dDiW/Y+zSKwMzzVEdj1E
hpaOGrubt3mOZ5+Z5s70WwuwofWyAWwozTYeVDGqwPZQffF0ACfr58BjeS7e
2FF3Z/maFm9saCvB7PI9Xkhj4Gt0bkQSjpjA/YQjBEOz5vYBDpercCA+/lpO
NrOahhiKC89QnAe+D7me9XuE0p2EBikKBxCF1MwCnOBujmoQS/JrxHmRqnPw
Ss3hdcvpgHxqHJBoF5t4JMSoMcrHAWXObLDvKbSfcEF5j3n0BQvE7zrSXASE
tdBbP7LMDRZ3mSE1AWQXZr/BhJbPjTsAjyvYENwcoyvWtJ7HIqkZ4bBIMgQH
DgxqMVswcmAsN0KzAu6oUcGYJRaIwyslP61QbYP+RYA9LA5Yfsw4Gx14qL3N
iXcw63XOkO1quIMbniaoLTzF17qMLxUXG8NVpMblZtDeMYZx416Sg7G3eelY
XzXJAw4bRaj1Ep8dtSWPwdYkVFgLsGOw6YTeC9d5IasFNNhgf1s9EaJAuZyq
zs5xLa+iHtCVZ0Fv6L+IqcoucPkXVP0iD+wyblROudDnapwpYYoCeY1Zkfhp
11OTyQ1MboglxucQ4vN8J5KXLDKa4+Dg1Fpo3GycM9kt4eZ4iVtiGeZ5ofSG
IOfUcKM6WoP8fcHooOZhsys+tZKl7iCDkpbYMAvIeC5Rcti2wJdx4L4Y/ISK
e+CV3MYb5Iy4Ql0PhDNL8IEmEyoyijhxfAngej7gvqPmP4ki73m4c0LAJL9w
qCzyLGAcpHbmV63A2W9MMpSksL4HvjApjLXtXQUzkwzT9bX5lRq+KMuDWgRv
HHMgbWAPDpKbK21jKyGoaWk1MeBclqYrj/qw6zktZP7rf6FN5nZrpTvvyNKj
26IpCg1ZhdZ8Q4txqdOQTVB8XztA+HEoF4VvOSFcmsng4xCt1SpsUnOETWGF
Pc1MdCMTSwyu0unIUt2DtkRQmGRafwk1pzqJ+Es6oUWRGSWKM1lUJbgSBZG+
MkumfSp8UfihC981UpwcBRyguk6R+C/puGAjHVXVb6INYceLatq8yqhVl/9w
zPRBwirRCAkDTCffYzrpG+nVpZP3GTpxwx/f7dCMplv0PHI5tyIXt1QFNaIX
cdws1lIfXbmAWiDBLgGKGQQU0wmt7/VQmwQuTq0KQk/37UQ9hxOOCVAyY/pc
kSlPI6vHzUAuJjpmT/DTti4RisgE1Vmrdh4sEmwOn7xfDf95ZQlbVvWN/qVG
FEIlM8gaRn5LEpUvvUv8lw6VdJlCumoXsx95ORuDxvka5Qs5NOKuK30zhm52
hidIx93uI49SeHZxStLCtvMgyLu3sde69Xqi9obgWK7LDaILJjsO8EXuq9T4
4VSqkSqscH+G7bK48CPsGaMVaKnre1Tj5SyxlE+009PcpU/e71FSwYvNMl+W
yMkSz+X3jNly9xGHiGiZoZAUIiIjjhVBGPKF3zUmDaKkQm3N8nrU+ko9roZQ
1SARZoCkMmgCjGsH8hhEWr0YYTW7Q+yzTOULScghaSKsCeGdlbeXEBKUCmla
X9hWsqPMRjs6mlSl0dDRYxrwva2qnqPVZ68oRYGYGaEmNstI1lTPy5qylFXS
Vc5k1WWCspF89JFHJMpaVFu4reT0sXtkabKUZQU4szwxRfUqIupUDhv5yIq0
PFHToVbTdIxFMkZOK9CiDguMAZtkX22Pq8Z4bp05xqfouHKqmP8TazH/vVi9
sal8OjanpVypKuP3si5BU5qGom6fjXRk10SqefLaoRqU2rJ3jGqs6cgqMreI
79K1MlkJzgk9KzwyksBICUezixY1uzi5sR1hNbTLKzrqyCBxgKQ8FK1IF9oP
xWN7eTFFINCd7+csSrmDoav0RNNvHQGvyvmiVjOP4vUHWg1WnGPG5yR+0MB+
4NhGi6pUn9ThoKZ1OCYQTX0VkmGoW1dR3Y6qbEGqtjSLNYH7bpBZrhPYs1R+
yvzyy4bKBM3bbScRRGD7AAIrnMf0bAdEbIUlNaa0XNYp9SEsMSHRX0R9dAad
aS1x9P+0boVWhq4ZMiKqD5vshp6R66jRX+bTnK9TVLntI6YtatZJFuYBe8sR
iDTIJeCK2tBfgaYkpsrnkOjGLVS6k6mtlzgN8yvLLsdUUX4ZTuuJRDGjFInK
yYVUoXlT136App4DQPukNUtO+8raFIks7AUpmF0vBfMWk85WGCu2pRoT6VAY
JNZKmtwrqxHpSjZkv2ciDV3i6TTka5YzWctINqtTAgU5rrty+mNlUKiFchxI
6EgnoonOZdWU+rG6ZUxLRZN/uevlF3nGOkRDiEoYzwklp1plJz/OIRULQCTf
yVY+a8qEjegGlfRH9oaRCVgj2vDD1wrP32PiD2ihWYBxulf+qNKFrBE7Rjli
p+t7lOOpRJy8ryvPUGnmPMe4EFZScWhm3aw0w7EYKKSNDXeH0xEjIWW4+Nks
+ZmpTpd1iYiVTcHEAhV4BZt9htWv+yWiaalyiXRY+rdBZTxg9MdiDTxXGSXg
cgMcckpb78cHrE0X4acbcl7GT2XiReB552TwrEbrl1BTPeBL0boPOwhNNnkP
Z6+O1mabB47gKRwHiDEx0acIrE/mwwYlJL9sCxAjCcWA+EXgJ7TrCALnsAJn
V6uT3GR8dWTqEfbG3h21qYaSNbG6K6yAYM09Bq3kp4uzu4igsKxh467vLsTs
O+qYrSUcW8jaDURMhHgFvQQhYIAgWni10qZy2MWSsUzYhXHVsbe6hCmKXkSi
cUehisSEWWC56sCS/qKGeOuBcVj+SiIsjQyrqJSMK1N+wZhUCtbyLC4FpyPB
5U/85ddikjnonY7fuAUkF6DsiiBJsqsw2JVmbjlB0UNLbRX2uFDzIVODxcQT
IUnNiwQykd1Hk3In6e5HbancxkduHqPcrdQ4tL7CNNVEPwskZUukDG3Ig3ZY
ijqh+FDflLpVVmkse65BgpoNeaD1nlglQ9KwSV7U7xZrODlqh23xWHh4tP5Z
a8472y130wlzUmex5VXGbxToWKHSKVF20vSeJZHtnaXZi1MLGKbVlwSqAlGL
iuYYcfQr+5B2iAE0FYxo2W4AI9q6i8FoMgukOI31gbr6fG5yuagRGO06TcCz
zk6rgth1eRQFnaQP2sazIP6Y1Trbc1X2oA4zyIfemnZkP8dmWreMbAPjYo5a
zQbWVdmytnOWjbJx2WXU1ZmakogwysIoG4qb1vpJeDwA45HagYnMccGxOVV2
JS8CPLOqcl8w+WMfkxfLuhzBpHA3yAhBmbtvWQ/7AkToORGENvs5EhTkVHxO
5fvgtdhfyE2Lxk5G+GThwJOaGpgWGxlixS6bmJ97jK/HBTV6RjS1UDRwPGIC
GvluB7XBoE0wrJCnSYabH6ziqxSMI12ZXTBqBEgVkNvRRMNe07K8vtHEGUMj
qB9RgdHxEIxS7TRR2THJ5mk1Hes4rlWDnrw9TRSNg7qac2PljyshuepkyFZF
Aiw656h5o2McqGVLETp7W8XAun98KW8H254GNwXhgNZCRM1d0y1krWlRIwAF
vh15hZZC5QrUuxW9KQb6LObjMmk1yk8npNWcXKVzI7NRKphl/LteYUbLYota
dbATbqsM+Ch2kPB8rIfnXHZyrPu+FlQYzUNAb7by6WSr/rzxbeOqEvjwr8Sh
/aQpOLIL7U8ZpcjNsFWOLIk6TjSRJcdLHXXpoiYb6NYDdxXvqskSaKs5KlRA
2C5AUm7hSbRFG4mWB/wQPu5s7rXFFBdHjiKkuWwjSKG9pQ2kUDWLg1tBaqEG
KdKzXR2c/qVGEBMADT2j+kedqLRLjFmIVKLWqMKmygRUFVVYwFBF0LAgCzVv
P0yJqV5sZp/1befY1LmzIIcN3HWIdf0cxQwEDZiRnFBa/Lh21vglYp5sCJq9
KqJ/TMoJdD1kWj0IwfPxLjzBxl1la8f5Oh5MOXyF/mc9i6duu+GBKljZGtQV
rT/00fqhyrA+JVhRTswEsPZgkje1wKFYgZRdBotxj88ptD9f/deq7tmsxvYe
NLaX8FvH2KvSHM2nsNsmOjuLsYOoUC0785MgZ0l4bAvO/Rxw8qM/JQbFXAa+
clffYsxE1gdpQ6tu+qmz7C4q+K5uAb5cmMtMMR/nxVbdrxMaLO7Eoj6qVYyN
2I1sVLtbZm9JTZcd+YszM+oQHNaSTmpbhUxlXGf43Uw8rUqzdaqlFa4oiUEY
YKgKxA2AmRrf0QTCZ00AYfDToQK9SEyS42YcqHLuJkBZk2WAx2sb8HiZi8c7
x62djIW3crdxjA8MIVmVnZqyxm69/oW/eC9ElXhqYfGLJWPLpObYJJcBbh3j
eyc0vhctUFvlSR3DaK12G3Piam10razjNxnLJ0JuFsscX1H4ppYPsjUKXLy6
fS0YnwEAKsE/msbq/lTl51U7xqbmiz81USLoKgW42Uzh5nY2BxB53W2weI0e
yAJQp4f2XnffpcQEYavbWHMpfQbmm5pXTBAY+vOqnGAPmlF5PGCxooGKCQn6
0ZIKr5HqbhD//VoChlvYbZUZt9zHKv6dwPT/ikmmf2qp5tIllTNQkHkq9g9X
uO7nIj4966Ipi3aeuUpPS6ScXGMBeoaS0C7OnKIkZLPqkc0nI2TjGc4c8aYx
vKpGOUIGg0lxKSOmlI7SjPk0Jimt1pKUXLsZNbt2RAon5UpB8cJf4JjdDSjB
ZIaWEUZVSUfLzv5otk5iB+RoNDlzA6vZLAGEi0pceSIhPRXogWuLqlCM69Nj
VMUvMjIWuZB6XPPJlgc1ItyKYt7GvZEcJes7idBPVaixXNndSg1II6WGwmrc
fX6FpAqPpNimUgAzdFGZoYdKStRiNhS78Lj6Q6odetUR2TZ9tk1JvXAvILMs
rThZtjYfo4vjyaPURK3DNOXsV4FqPs1iH1xQ2S4rPPcJn/ZMANd9BcxcU6yX
hvetT0PPiNFQxBhp90GwxsebglwLavQbxVMWNk4N7Y/gGCgvu7vSsk1Ro9aG
HY+McJgGoqLQ2DOEFf3OCJw51tOCHDl5GzdOSD7mE2RhpDlvlgDl9JsopxtW
+mN9JpqJgYryzUJAi2BtKsDa9HSA2n0cUmpcmLYxcXm0n2o4tTYCQ0J5YM6i
NmRK6uriZKOcSJizuX7vN1FMUsttrgR0TpyABpVs1w1lO1MnhcZhydtqDhUV
RoJdqsuIyeggMw5O9JLrjO8z2qmFzvijbPrevOPdUxF+eBzhu2LBbLuAO3jC
ZyXCXMyzA62TeUtgDrtBIpv7DPFC9wGQ15Rv0lts9da4o78L84mckj8LyWA/
OyJ0ybFdGO5u1Jxb53DSbuUI+F5Iy2fty5d/7VX9qYjvTe+9Kjz1ZQRWjB59
b5QJWTvUIImpWiTT/rRWSOHZiaSwYAzEbqE41xzmBAhIBRLp3vPqX9n8KN4x
1EZrQYJISLBLoYnbm2nCrADsanX1fFv2U+QpDo2Li0CNjrGsWyuziHxjPrgH
ANyLwFlGzZi4cuSVoNWBHz4q/0TjBGdB/GPWNuKPaIX4niLeLYhcqgi5YfrU
LPBFp1rnRX+5+YEaymDKVtG/l5ggRhtZa2WhPqCDCxAdmH3PqQ3iFCBUMBSY
88iwDm53QynhkLr9uV0ITvXdIp4r73OhKw9lIczswDvu1nEXkMqyQyrUgrCG
KKmwGwTZdDmniwkpNbhxAZBPB5DP0+LkwxVu87VCNM9pRTSFt0xIuZ2ultSx
7Xr1oAy8kIor763FTOZMNgWr20RE9Mn5u9BUiYpo0rJre55721k+pOhOF3q6
e0I2mUboZJlZWWQsw22bcq+a1SSxyujk1LCDcbI+Mbt3sQAktSKlewQdRFdh
qBAkKvUtIsdhFadekRfaYmcWUpI6azM5E4UYKi3GtOdOQQ824cwQNSnJ6/iA
3bPaZqBd85N6XQLrTicXIhEFuRPpOC0tBf/V5XOoOeEfjZU+ZFvrJbitda0g
VSBeDZQG1jU4TSZugg3qjsL4OFx3tNnHiEomQhKoV3gzDsb1xgZlScE4SHSH
UN+9aCteu/B3NjhzQR1XRmrp7EwYsxDBnoLb5+l68oJE7FbRIH3z/wzWn1Vg
vQ6AVcDYYYcD/T/JPyVHl/0ipLyhZezWFX6x2SBK6jl1fM7tbWEtD2gxahLe
CJaF54AoVKQPBP6VmDdCg+IdM5ATFL8AC3rWkuBcOyoq5znJjur48tyIuler
fgw29QmceiFkzSdvwG3hZhtRs/kcrVRmm7pf8yfEnXZxnAY/pSK2it4Qvrua
hFiq788oNfXM6TdTwbnDJ/e1mDOdYvOC7VYANoDDLTrbM/jEOW/EVxeZq7qG
GG9PgKDWX0YSdMQFUD5e04a2dg9315XmVgCJZHOkpiY1edEmYLjjYTgziUmr
QPwoAgg3JHVmskMztVhts1QhPppujPRiPg1pw3vEYf3CKKxxrf4VDbEol01b
ZSFEtIvga2j/FJIolljAdgote06tENksUd9Jg2eLv2a4jqV5H89eaV2yrgAh
27AMao5iK10zpr9eTr3VToeNxfhKOdFsVjUpvjTc62++zq1J0KbmurmWYw5i
VBSzylvKCvVyNdYbS/UBpOK6m8i4d48j/EUidPBqbCXqjY4wQeqhC2JCI/1L
6KRjPUc9bEBttaGfiBD1egS+AijoHMCCxRabzI8InIUmF9FnCbDhoS/v2i2r
qPlF9pu2AZwu44iByjv/9AG4BpN9qIyqpq0nthGwDmsHrF+Nsk5fIthg9C8X
bDlBaQR8NkLvXZ8PSikviy66n5wGa/qWgK0t+bLsy6o/8qBG7Vy84i8CmC0E
apXEndp1ProZGljjCWH7ce+Z3TO3QQs2RyjvZYbT2teckjQzFT0aAEj1EiEl
+0aJ+s5v8mszAIld2zIefmHBa4K9P0IwsZnKKCni86bmVLaNVIsuhwhAS3cC
oYZ2l6pFOAIvyA5mslzzrYUGMt7O6PswZThBWZlWHhAnXYiXSuOq2fo4erSD
o+Cnl06LqAfGjuesE/Cna3mXUNFGXGh9NIBWodBCtbMqNbtAdciHnjct5lGz
y6Ibbc6ayEgeXEW3VVVKqJ1Z2X9qYbIRRsWKdHRf0QREJrgYygd2fM0xhtab
4GcIK3N5foZIXS7kamCD4IYZwHpoO7C+bEqwksuXOd8ghlMby6i+37vNhhLs
cqpDM1SjpZi3z/5GNfMkCj8tl1KRLqudwejfxQqY69sBExTwMFryLNh0LPUD
tdQzNB2m6e7JF+zk7MCzA9C5aiRAaii5192mDwE0YrbnRXpVpnZ6lB6ixsjd
4tg8MhGb66ustUJzdCV8M8ZDC9Ug6OK5UVkv+X7lgl0EEB1MTsuxrW8exxXr
Bo0y3YygfP18QLmsEqAR9NR4Xt/1Pij2CiRACMnAnG4LdXUgMqv6r9GCR2zO
WTHjba2P9EMfAO/JCrzM35WhgUcelYjD5SB3TH69yXDLRQBGuaZIf2SFtHzy
EnHeLMXYpFD1kuoa1GocMRIbNgGFS1OhEKmwuTr/VxvDAFaN6kENJLOk5bJM
NHuLzlt4ccMe7ws250lVRvoOx7ONpwdJjbtgkAlk6KKJSBsp0noAaQsiRNJF
Rp5KYnkeGbvJf3jZD6JQo1bFs7PE6Gi5LZB3+1bmfyD2NtV2Ml9zdiQpJMGc
7Vj6hl7JLXcLHNcew27yaOhWH6zBiBUeAgC6s+DxOWqse0UiIvtqmh4BRPYV
kQUowx+F5l2SITvU5AqpOrihHt4RxEUxKr+9nVAZ2Y9snqiMmKM7YUlCUbW7
qmpTs4wzwSI92dkiXNtxdrdNWeoBsA4AWJ8yAazBT69MhG2hjHTJhe1DVsH5
5P1i8+snwPZj91Tlqy/2vCco0W6wvaFMLQnK9XCMWaDMpWZ24UO1yKPFaBpQ
tE5hw5YsmW/ETt30eBZE7iSI3FnZZ+p2FahkwTEJGKZmBCsfvpsfMO8wsh6U
CHLZjmSqt8V1no1zxenbvj7uN0N1g+fOngGqbMtkSfRgocQ6IlMqakmPE83G
QfvKsPv71blMkL1zqUlnswBuRwGc4G5t7OiDaggc206TF218s6PJL1jlyaCY
PrbgoJuK+cE7odLUqLgveximphhuKjY4EcNdiOF1Qq3Ta+htjOyy8ocGI175
4xb2mruQU2qQpJmK3IMBJB4hyD2une7P1Z8rTkwRnxT1vFA5iobQh/1xIz9c
ZjY8XNKqXcP0dMgZocsZAYtmdANBN6meYcB5Z8R53HTvsmXXdB+JZ46b7hs3
1Zi02XzHi72wJii0/UsXkMkwkUx2WPtkQu3XE8lkpGTSA2TSV+9XqCbWaOZe
4/26p9okdBkw/v5WoZ6OOrtGFbsXi28tAs+L/+h5BOQ4vdziStSM5NJOP4y6
Fxr2+Egjobh/QSAS+hemIqHMpNcsZ4IA15SbSi5DlagHa49wqjT74+mvKiwq
IJKeEsnIRLW6RHK9EYl4OQn10pBOwmJ8U9HJYBKdDGXE6kvKqgmZouZmxSAK
CWNXcqKPnAmkE2bFsF84NSMm6ubI8NYjjhnF9b4V83By+DvyFsbNsYXm3DOg
GJ01w3KXu6DYxuwIqQiDBkT2HSLJK/iuqV10TzTnu0tLRaWWUlj+Mkrs5KXD
TUC4ZAqS6JvR0zUCVJ9EItYqOOZXcJlAFBS4zYRhlpuIWzpLTZZBtBGtLmad
MpP35om4Z3oeoaQTR9cjDmpHRbwxqaLWkwHQ+omEUk8Ga0rQ3Fab5r66gUx4
PFaUQrJqmz5KiUghmMtN8cpLGwiGrZwCy5VayTBq7w6jbUPK+UZbylHha2Ol
a8coKCjKNyFQvF32TpIPyW4ASCQU7kpdc6NTI9pZF3MfZfVNKo+5yUheTDrl
MDb5kKJ7UgbUM0qknt5k6tkZdFsLpHMSfXeM1cmeqOVfjKVW6h1Rc7I1F4N9
gSclVZgAkyWllKZqYRLytNhIPqDSUSr1OHF6fmVLvx5slTiUmGLRLnFo8nl5
YAeI7r1lMy+O9x1dzX4uh4yODcnIcS64lcaQcwG5u1Kp6UkAkgnUtEtLmWyb
LkRFrMJ4X0lq4JJUlaHXF5/b9bwhiLvzTEljkss0bM5bMjFcA/W+DU3cTMSD
AclschxNKpn1DbEFKXqSxzTySvTB6P0v1ewDjmcjtWAsojWmq70z4UI183CK
K+7YebriZqEWhqGjv4BfTTmyqp5GglOu+vV4xbTVhNIdy4sY57kpi0fqvN1k
iT8P2I2TA/jfb+A/SoK/BT+qLt6fI0Hc3poghiYY1yUI1yZADeSzHErHUTl9
uDO9H6Rj/HUCUmouS4cg3YxrRs4C0g7WHYyd6gjQ4zhFXT8BdfKOGUXb1QFX
4iknOAmyhuxbs/shuwXtHbRlArcuhJvVI2y0LH3QlqB9P3qsfDbPb/yder2J
OaGMpRtJ/16OMtYmn3GWnvYyy2b0bV10CxqcE92RoQAgXQAgPQhADi3oBqFo
t5tjFKELiXxxfZXC3PGqapVo5DpBOacX9HUr0Cgyrfs3kK8Ljr0p7H6gjvt3
7si8o45Ms6lP+RdX1WJvcKmc2t1HHBG7Kq/VEpwzAnMUdasF+343ADPuUeuE
HrUizRNQJTILTxTu4to3jTO0DmPeiJbZOgqi6cfBe7SCdyURvG4SDO8q/xA9
P+F1qAWl3Z1yQvxKz1FNTbzqR8EWTndxFFlOEZA5K42FbhfipsrMAc/fjOJ5
oO7gHuCvyxFkwwDJr4yTqk7MiOzFJIfXRHDHfV3CcRyLSyK4a26urhEmgv2c
mGUcEDWSxGTeBogfqRDfMAXEbzNVb2U7vKrYs4F4R8jSGA8jCfo2TVEt7ly4
7bK7x7JRaEf2cL5LtwtFFUFDaC+0grZUcytsTn8mfCTDBVWWzTEX1nm1NUFz
Or+XC1HpaqbFLYWToW2Pue6q3DEnnhSYE5vwvQ18VkhMXgSs+4kAsstxNL9E
0bzTlGiWfWpK1i2HOn5NT7uL8yiK5qA6YcGQLtgy7lUlzBnnPd2gPKjtOXKq
FIbxlLmpc+VCWvwmxcRYX1TdKo7o1VqVz5ZiyCyIds8z9vGsaEJ0J8wXzxnS
hfUwMW7XbQU3ExKnEZifEIgTAmE+58X606PbAFfosVcruWxEim40u1GUXFts
38YAdExhto+aaoLmIyDueXuTXWLKaZaYHQZpufJIwkRTdLac0eoni6NQgblg
N0HQmDN2K2ta4OEJAbwVPDyC2j507xA+CWTLAKm8NVJHYhXrcFyKM+AXisxR
nr1nIo5XFceFCWWxm7BYIJNc3ANs17JeasF2p13ivwVjumDP5MfMJ+fvgcrR
1GwtTIcF24pWFyK7VycUJqR2VQ8C/O3fGHs1gr7uVBTcSvielJju4juactnK
Rpzue+mGvhcGeHxbpEQXJmM7SDGKYXsfZbW9OLbRnqnP1457J2I79A4OvF+t
8Oxgnb0aIde+7r7K0kbNYt/ivUM2t5ykDol073Ks8Md/WH2IDuxGKlZL1Eog
GaiFzIUV3sc2XpuyrjuqBAK052e8o3wOQn7HYt8KI/k2xPspGO8I5WwtfpYZ
Ga0ZrnHuyLnR5A0cQf8GgZKQ4jBfJB3sqfAatsPlc7Tj45T7oqDBQeBYW2xE
42bX7iviRLUzYy7OBna4Uet6RYltbcEO/1VkVxmg0kdgOGKgUguqeKsP3DDj
TiBbXGhLfpSXeJ+RNd7nqHha76jyghdVwe5eVUvLkZOzKRU9A8Un0o+zFFSA
7omex0OpmRiqPQxa6zsv1h0XUrmi7rhADolddclfbAe/Zyn8DjBmBxRg1Au8
XX0MPmM7EJOZo3w9UHl+y8PXmc0UDHe0BTuuva/S36374WojGNAnZzwuKB6p
ob3RXX2sb0p9uCySWpjg5rLGEnwFoU/qDg9gwS1qJpoJ8UHW3SQqdtnfKX1C
esUUqRWpON1aDgveqGdk5ss16Jqg4TpWd1TIrU7CKo5KeJpe4KAGzOaK2VVT
qT3ELO9iZmxege6lpWWo+bt/gKW9cGrOXG1YqMB1lArVkXFkUIvtBlKitMMw
XfQKW7raGQGVWhDMsKC2XjdcgZoXrtCFlgKJR+2EYM0ZrYXF61T2rkmgrZwZ
hcmFo+bJp36NmqTkoKWwJCs1dw9cgpPDiZH1wOphrGtsVEBuBIhedBDNjO0w
PV3iuTshfnO5qCTUhKh1rQWbKyVroClo2G5wbcVpm2B6JYLpXQFMhf0HBYPD
fTjeS/twEGPteHUMVeMSHu9oXAtCXbG1PILZAcSsYyHIGbQ93xthzLabPjee
N2SdLdCr/Tle4xZY6mhgtbf/WVJSzoojxVKzcoTENiZ5K7phXhtfaEUFCGR7
dSEccPNDFMxPBR2jLmJTHxgB27UcdBTVnYAhy//NgnTHcxFFuu+oyB151jJo
lmcLAr68USf0t6Eiw8jjtmLyi6kl5dF8hW5OYO+E8oT1UFBzYh5QdM0sUJfz
cJKN44vrxSqBtnJXsDWr0bzbV6CHhjJqC402WgPwjWrSnaWww8F6q9QdjNeb
vLAISRREE9Kj0EAJ+vS2ClHc6+8knkIUvCI4BaRWJycHOFQC6iN3oxRSbURj
Ms4kt2ahHnjRYGWweWfUwnqki3MmE+QKaXLuOdloHW/Tmgzn2RC42jpAXCdI
X+G6R5wyNjTI49s7QZk+T1LjyRHgJeI0163RHGkFhbmP9YZDTXbOZGcVhGDj
HCK7Kta5cpWXvWPlWqg5Gq2IW/1oTgFRXJzc/GO5WaTCDUma6E4WqSHLZNQa
KluKwL+VaM9z5aDaGtbeDfw5t8b9OSJ6pftzCiVCaoUS32MeucR3oL7E88BL
RInPBJjI0hdRxIetSS0nSiussQgQmLtRrRNOLVy1ACucVDNeDzcdpAaN6/EQ
11Ra6zRlFhSVPPib9H+y1Rq1hAKKg21CZZvqBey6yLeUtXEuEbASnUvVRkFa
A3jfRy6N7a809qJEGqsSQgtjtGWDlxPD6JgPagavVoTWCQmNaQlJixNp6Ttb
hZZ6VTJc4WlWYZ6OzdVxww0c7eqt9NsSwGToXqphMjeYdOe0AY4bAwjING4H
GPIj7Kfge0ki+BYC52ndjnWrw/CdbZcXpsMhS1Qiz/dre2raxBnaL3NuoIxH
1qaCks+THUKHOKYlyFmYvcTovP1ZLCCtGnTWSiRTuLhLC1WV5klUIOkGpjqS
f/paYMb7Kj2k1g4P8yIT6eH32tGD2TAz4nkwhi6rXBiKiBMEKF4aEkTdYasq
RlgvAwWFjXy/hDDoAa4NOblYGUpYtlvdZLMFyiR71DrqUXMjZyKbm7v+NAIQ
/d+Qvpl6HhunizWzOgR08Rili/YFehcjYQ0eXUTCGpBCzqEONm7GrYzqyC1z
IJJ+I5GIB2QU3c4kIJJCHcfIQrxU0UiPaYRaYCJ2k/pj4TXh8tKCNtoXJ3MD
y6ihwLIE350ljyVQwjLLmtaQtSTYo/S7KnIopcie3CGzTu16IIYlFw3E4Ky7
rFDPNtFGX90qeSxcLRTxMal8ZN6kUu0rSm0oj5gmTq065uGavjz0TFMRV2Em
vsIOUwc1s4KkUkIrH2GBNmH5zAw+QksiVmW2PkICEIp5fITQx25KHycmrinr
G1aSW1wV+EFPBa72ZjMCFjUJWZpII+WUWtvuJ0B80scwqTQoI35Aft9Qw7Ry
Vpxcqtp9qebcKiSk560mll5et5bppQCqu2vQtbDaa4Ls1cpHiCQlU62ivP5r
W6G6WW9wDKd5LR7EwhlpEOmQdtKjPFdFE6SdymGLky2ovpNQYj87sERrMsoX
FeWJFSrFZ9GvqRYOyJMRPTvKbeRIN0S5U5Kv8FyFBVgXEM73jOP8GYrfnZQD
n6yoRSHK6yNh8oEEz51SzI0IlJ0QlLlhkBMx2ZfzJii2cSDGigW3ZLidkOFK
VPJK64SQrQ7F3Enas3CMbpGUdetRHjZsNBWMyP3sgjE4vYq6e5MRKVAY6Ean
WooDSuvhdVP4bRr/9fePB1PCs/DgmTPXFIJowGdRJS0VujmXBC6vTbSKSL0U
rWK6LaHqVAWYDqqvmhdUR3GorlOonj4JqtKxEzJO0eK6ngXEum5SwhFSwdqF
YOWjA92zYPvjsvBweYGhHdcAzex+BKZu9/jUPR1M3YpO3Vsbps4rvmr1dGq5
CXa0U8mqeRhVYvjOtEwnWBN/bKxeHZ/P3DlGu/JGd1ybzh/Xair5vGUZJZLJ
Oqp7uMYssfYOtzdz6YbBvEHJkSZDluUqlqNIDFf5zdGeSAZrAOSiAvIc/n8c
PV7tINlviCMHekN7wcwmhbmJOdHVbvuisErMWTJuYWUjvk7ABVLLSwQGo+2h
FrQoe9MWg6uAPe7WDo1DReM7E/XYjiJzIRYI/lA9hTzFDSbcV1ifrephou7U
JzYrRsFGacAnlopRi0ZU7GN12njwbWyccfDZCfFZpEaBp6ITxW676HStMeU5
707EJP/fSizL+6F6ljfiksaebuvYxi0paRjM4iBMN6Tb1heqaCNitUCeBnkO
oJ9pu4DPWgYbbCZ5LQnBCpAxsX/XdsyxCu68IAZEXqw3xDK6H2rM6C60pJGX
IdPCpgeQiBK/4khEdWNGkzcCcGx4xpkVQ+EoFYU5w7ATbr5kPTrUnAzbWVJh
0LHlymAi4lCwyXnWaKYON52pLHgWkOsBGHeZBEZ/mxdrubuolb0ZZHo/FGR6
WwcjIZSESWqFfM1HL6VvkRKuiBifOU7+dxqMzz0zim2iuxqQiyK8lqMYrqTM
AMdhBiPay+LUL43dDWFQeYxNLTaEmYbZtkxa6XpobkLwznEEHx6wUw3hvaQV
fHF6R07KD1c9tO4+Omr3S0n1lxRSpbaKQLxacXpVGG7u53M4BunerJoP8AC2
Q2fXO2bzqkQjLzyNHClFynnlxWNRjBamqduuTLtxuoHqxD3Ta5qShWkJWbTw
I6QO/YXf/enSViD1j1V1CwqjL7maulNhyMVn16mtYfF5HaHTQtTMjy1wGANm
1BSdHBHYQkNPxWnUdhQP6C68jRfOMi9UK08xBFON8p+Hvml36qk2/ljJeEHR
+J/C0ztsmF5DwOHM8iSiwtijOUXgm/Qxrv+HNIvoTPI+qjJNK/7+GDGvVyQk
Gm32PW8Fo1AFw+EpA5jGYtF1wm3jqEuWlaoGZvLMGRBW2aD7zTlVKGt4CSxw
AqyulzDlrWAQWQvpUcPfInIlfC16BUy8tOC6xYQu5XqnnKWLoVVt0S2LWNdT
G6idwRV+CW4Lreruofh7pEnMUmiyiwDn501ZoEneVOEZVdyqqdaQMgBcbsc4
Bp81AwZHisEOWNpsjUgbiOWWMZEART+9HSkQzlbbC57lj6QvW9OhFWIlnbbj
QZZHl3C7zktkD+pE+apCJKFdBsOCE61lzp7ynTD2Xfhk38v2w9FYfQhZgpQQ
zHxhOlCFt3ACfAkemiHiVo6cDNIeAOkOcZA+W/XZy/Svhr12M1rrI7KWAWTo
nZMqZoVnhUZrcy8ItGpG5YcTULkETCtVbQUur8P1o3PGYqHRstTYfLmUKEQt
u0IUNQu8dNT5Zmanrs6885JGCji7rwWhwkaVR8wrRVhI2qKtA9CGajcZtD0n
yhIb963lqaijjn/lMuVmjQYODyvQu0izOBu1wNkHG3C24hyzWGOcma0LCV2j
mgOfmisDmjp4C62MyyJaWHPILLCjZisIbJpt0+iogdka9miqAyNzqmEPRphY
yKDNGwzynhtFXs3vy9hYB/DWN1wOlWauCiyttEHV9+OoWqyCPf011d/3sgsX
VREHxQfTUCFmOEUQk7VsqFw4CsMNYjY4CzlqQA+ZeS/myDGaXltaaaLpbZIh
2cINMTmzARSq3dDE5DYCqHUN4JCEZyFXyAvVV9J5IbCjCES7jRTB6qpFvBxw
rtRqOlBLLF3UUN1r8rHCIBYVfRD7W88PSjAw5SElmHahiXiW7Y6j/g6DlU2K
0fQS+V2PMdotHhrA+Xxf3msBSauIuIlRNlJrkrIxNSKZWSwC9PUa0UdcMaib
VXHFPgafuw9Dqoc3mo1+HB1ZgZO7qV7OAwRX2loeoaOfGlrmzPS+EPz0IbzM
OR5ToF0a5hLkvdl5RkUEp5njquZZ5ptJV8GUhzts6JRTFexICRmYBNH1LSKG
46Smx/VVB7UocXlMHlaBpebKX+Lg79UMcobDzGKLY6azzoyma6PlLRDXx1GD
KqF8KNFSEQpKghtqI/UTuQljVjWsyegITf1GNLHwO5wgkHviVGB4p6YFv9oU
H2qAzFDhgYSrUWBTG8Ry8ydFyrk+y9Sy66kLFVqUgnIWWaErU7BjnC+Ro8rU
BnQvngF0K4E1oguLnsZxhWLdupqzPikNC8FLbA3rPFsDw2sKaHEoL9rAFbGj
xcr2sBEns4d7BDcZaSdv7Noq9cWsOvZYljUVe3DKoqyLw+ZXVYBJtaVWJXQK
sNr1HC9SaOOP8KbFynQ6wszpnmp/yoZs7jiO/EVuyeDTsh079TJSbSQVWWpj
UUAwTJw+IUR4nj83m+Ezgo+FuHxk+QrahdSAA1VVSg10qCrL9KPS7yC79edY
ITO5BwyXXIDux5M1CEZ1tCSzHXZMikt6edplLFXwiR9b0GPR1NDanpDDahcy
B2HUXNdkanxZC4Qt+QjLqo19Y+AyG4e+dAZw5erPWYj6czqealWCq3ACwghj
boCCy48s0IYRoLl7i04LNCfIZr23yF0wvfw0O/D8Y7mr838tKFyx1GgNpYbc
Pqk1jKMmzzr+VitLaJVoR4hZjkPvZW2g15G7RLw0Yi8fePK4664xZbO6iqrl
VFRNKA5XxWotr20YddrDiBpaKC2MZinHG2Fj682p1rJJ078UR9CRKjZNq9jp
Gpmb0s42KoKiqb0aOC5vmhd6KksB2tR7ae0gin2Bz6UjqDrshMm0E0kftAGV
mcyXg58+OMO0Vnui0WrzQGXLQ3aeZRNJ5c3oT8b1Hazvpp6kSxU6s2o3dvjA
mphJnrV1AuKIMdnR2nGCZYlbjx8A3crwg1R2wEr3LmZeagadBmo/OgaQqH9/
nVB2ZsLq5EfRim6qYupsWj/SihCl273w3GInvJ2u2YiUzbvIuRBXjXxozGC9
iUJjNQaDqJ+hFj+pPtj4coFU73ksFyJ1dD0OY404iM2M4ih6RVTqaPAamNKZ
olS7CrWTfJOzONuz+TcWVbZY1KqJBwmRdLWgSYTfRUliuNcvN3hpkPvlbCa+
bhZITUq+dyBlDbBWQ6/8p9Oi6auPHDShTTsNmlAlyyY0rVOVqUBxHoHc6rgq
Bl6OF/1LTZX0+8dujKZtdk+6q38SVnJYYkWdONgV5qOrXLATOMWIUCPQIQfG
kpGDE9G2IKMwvSjioKkX08jRytUApm2JpUEcS8cE0ixG0JKuZCiIsmtj1oCT
wuS00MrXY4QR0qhZhlaiaVhZAX1zcsfZqMSDUsFIWqiX/jKMi5rdytAyr6UY
jsToM5zaTzGLhiTMbWOt3B2y9rhm5yZwbcLgSg0LjijbqTxKSstlx0UFa4yw
oSJsABA2smadn1foupUSpiprD7UtTr4C3HhQIKb7Y3Y9ZNn804KZ1aK3HRuJ
WtQuc1ZGBdj3ojtROWXmNvCBOS2PWwmHwyQculbHKA5bZldFK/bOyOUMGlEd
2yY0VpL7IkDjYuDosMYegl9mlPcqLJL3tjZ2RidTRipAF15ZCE7Yk12ulxmK
FoLU3FRoWitdAc2BYV8hN9wKItncIRffTGYS4sIUnO2AuH4cca+KIq4WPsJy
PrIyWuxZnBG+TEilb7q+Tj6FVnpgWBWaA2prjVCzYpfWS/5dX/QqoYTCSJCl
cQ2Bia/3fDqy3HIOe/E5PF5lo1TnBDIJVU7TEi83PhiVpdWhbmeVPsxLZP0q
dGMF3Vyh42aoU7OlE2y+5MV3uptJpWtt7926s4oS8bjvejrCUZ8r5g1cW82O
MobR+ULVmC+eYeZ6qjflRgpxXdtImN0sru7lWFJGBsoM2BIVXoY2Jkzl72tj
Gnm23ggGGFVsMnP06jnPUZWbXFnUI2LhaixL2Rha/JIPC0pQCZOSbadZYQvJ
eWD4UFUiMwMnzToDjvO1H5OBmKGti5ckitQu2Arj3/XH32xIKRWJunD8eZ38
cOKgSn347DW6VKR6D5Z1KJdB3IwtwpgZG55Jop1m2MLKJGnD1gmHjYWCq9uN
yibwU2qxl6pcIDI5hKLRjZwep/4zN5CkCh9B8dSILc9/TDm4hHNINoPXRzWc
zAi+boYR7CrCkEq9mLCk3VQtaZVSg2qCRhe3Yp6jyBD8DHh7VHfIDODJsQF0
/De4FDPKk1vUNcYNgLvJLTG0NOXwLLYaHgunL4PXQ8n8ZjReH7Cpmi7Cz43W
2YpdlT98yklSQFJryvv2YvydV+Pb270XEkIuMicg/R4F61cMxxg0rcfuhges
9tD2TTMxXdrGw/cd8KiowId5s1Pm8GYVI7DJUBxsYLxIzJUeqGLvUiZUrlW2
uxPfRrZmyd401dtg+pR45aHmENI73WKY1y0u81KPqv9OVZm64IHuafdOp07z
Tg6HERnKAu4WX2aV1d8IqOXV7gM3Q4UTzLO9Wen94oYnqmLAs6pUNP27BCST
LRVslvxn+yl4DpQvb57tdPDTBxqechSgOGKT+7m/N5sRoiohwNye7mA+vw8e
BOV9mec+I/rcODGosiWOos89rD23laO3OA44C1b3+Xnk/6jdG7wl+gbNQoXM
dGYlVv9FlgypWk8ik+PPbPbTw6bq5H8Et0FJWOZJz1T8pgo9UTtax3+QX4Dr
obwe8yBngZ/e3+aRcmVZ1YgwXv5r4oPItGdvm+FBovpzMDb/rd0jnT3rI3UU
1tzh70BflMZgbn+OYuQD+heKy1kGg/9P4LIo0cbc6tzom2KWtQAG91/b3fId
LW9Zxd5XA/pv4BooOtvcEpXNbrplAW757+AaKCrX3PI8fw4jcmk1bw8nXl4g
l50PfrowdnqhN+i0uwsq7Xyh/8jIRYWCz8wV3wN+QnV7+RuFH6HIR3Pt9+qQ
R6+4AH5Ax8wV0XXQG0xzbTRbaLz5G701Gh1zbcSrEGL4G80Wuvaj5NpoWX3X
nK5dqbHRKyK0Iqe9uSKyXSEGxN/x5CF47UvAT4if8jdiiMjwb66NArHfPqdr
X6qjHL0iWpyQW8lcEZkW0bLO32jd7cav/RHwE5Jd+BsJXnztR9GhR8lffNmP
gjPfOvtlP6ZjG71YVIytXezj4Ewkq/M30ksKeNkrwJlIdWl52SvBmafFLos0
vBxe9iod0ejFdjITEi7lp7A2wVdBZl6kuvP3zg3XM091Deh7ygzXuxb0RSYg
/t7FYMa7uRm1LLtOByx6gdA86zzI9aAPsjjy96P1Vqb3p8CZm2K9dwt73wDO
RDt38vfuPlqwHfo1jU9eOL236MNE+zDMeNSNCnUTOBN5bCsewr1NPurN4MwT
Yr1XtLeIAtkt4MzjY70XtLcsFdmt+rbRPgMdIWFY2afBmSgm7mG5mb2jECc0
ch8b710eEi9M9hvgpGPAsX/XjntKx8/qO6LT/01P30dO/zw4CaVK/E8dl/2k
4xfASSgJ55/1jvtLxy+Ck44Cx/5eOz5ROn5J3wyd/jd6+sFy+lfASShf9S+1
42HS8TfBSSiL+r9oR6nTnX0VnPRr4Nh/0rF8tnT8mr4ZOv1P9D5SsS37OjgJ
1Sv5Q+34Qun4DXDSC8Gxn2lHeR5oxX8BOPaAdjxSOt4BTno+OHafDolkWGS/
rUOCTr9X7yPElH0LnIQqK/5AOwoHyL4NTjoCHLtTO4rbHZr/nw2OfUc7igsw
+66+GTr9t/V0Wcay74GTUF3423UE3ywd7wQnHQ6OfU3vKEJW9n1w0tPAsS9r
RxFMs7v0zdDpn9fTRf6WuQhOOhQc+4x2lACJ7HfBSYeAY7fqkIj2Ch0CTwHH
btQ7iiqc/VDfDJ3+KT1djJvZj8BJTwLHrtWOovhkPwYnHQSOXaUdRU/IfgJO
eiI4drl2FCk7Q36IA8Gxj+hYfkI63q9Dgk7/kN5HRDzhDMFJ+4NjF2lHEaqy
B8FJvwKOXaAdb5SOyIvxeHDs3drxVun4kL4ZOv08HQhZorOfg5MeC469Xe8j
a26G3BX7gmNnaUdxEmd/AE7aBxw7Qzt+TTr+ob4ZOv1UPV3YffbH4CS0e/0b
tKOw4ew/gJP2BMdep2P5O9LxT8BJaD/ck/SOwqyyP9U3Q6cfr6cL68j+DJyE
wl+O1Y5C0rJ0ByehqI+jteP90vE/g5NQtMPLtKPgN/uFvhlym79ER1DQlP05
OAkpsy/S+4jPKfsLcBLS2Z+nHf9UOiK/B7IcPFs7yliI4BWchKwkT9eO8ozZ
X+mQoNOfqkPy13I68oIgm9dT9D5/Kx3/BpyEDHEHacd/kI5/C05CNsEDtOO/
SMf/rm+GTt9PT/9fcvrfg5OQnXEf7fh/peM/gJOQOXEvHcuxdPxHcBKyFe6m
d+T/N9rmP+nroT47+3260udfwJndGFar3qbG8f8AZyJvwKrfW0Y/Qy6eAhxb
0mHi/xczoqhMnherNtzVHY22+b/NE7pnln/3/ZOFE2ShO4j+LfwzJYA3+z8y
oPaoMPEse9T/A/eMzEY=\
\>"]]
}, Open  ]],

Cell["\<\
Les diverses tranches se recolent de sorte que la fonction impot soit continue\
\>", "Text",
 CellChangeTimes->{{3.46279682396875*^9, 3.462796875390625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex4) Op\[EAcute]rateurs de fonctions.", "Subsubtitle",
 CellChangeTimes->{{3.46028408146875*^9, 3.460284084328125*^9}, {
  3.462796901078125*^9, 3.46279692115625*^9}, {3.462796973140625*^9, 
  3.462796975765625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", ":=", 
   RowBox[{"Function", "[", 
    RowBox[{"f", ",", 
     RowBox[{"Function", "[", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", "+", "1"}], "]"}], "+", 
        RowBox[{"f", "[", "x", "]"}]}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "[", "f", "]"}], "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Composition", "[", 
    RowBox[{"T", ",", "T"}], "]"}], "[", "f", "]"}], "[", "x", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nest", "[", 
   RowBox[{"T", ",", "f", ",", "3"}], "]"}], "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.460284090125*^9, 3.460284225375*^9}, 
   3.46028475278125*^9, {3.460285195703125*^9, 3.4602851985*^9}, {
   3.460473981140625*^9, 3.460473982203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x", "]"}], "+", 
  RowBox[{"f", "[", 
   RowBox[{"1", "+", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{3.460473989734375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x", "]"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"f", "[", 
    RowBox[{"1", "+", "x"}], "]"}]}], "+", 
  RowBox[{"f", "[", 
   RowBox[{"2", "+", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{3.46047398990625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x", "]"}], "+", 
  RowBox[{"3", " ", 
   RowBox[{"f", "[", 
    RowBox[{"1", "+", "x"}], "]"}]}], "+", 
  RowBox[{"3", " ", 
   RowBox[{"f", "[", 
    RowBox[{"2", "+", "x"}], "]"}]}], "+", 
  RowBox[{"f", "[", 
   RowBox[{"3", "+", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{3.460473989953125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["T", "n"], 
    RowBox[{"(", "f", ")"}], 
    RowBox[{"(", "x", ")"}]}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "0"}], "n"], 
    RowBox[{
     RowBox[{"(", GridBox[{
        {"n"},
        {"k"}
       }], ")"}], "f", 
     RowBox[{"(", 
      RowBox[{"x", "+", "k"}], ")"}]}]}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{{3.4627949383125*^9, 3.46279509275*^9}}],

Cell[BoxData[
 RowBox[{"U", ":=", 
  RowBox[{"Function", "[", 
   RowBox[{"f", ",", 
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"x", "/", "2"}], "]"}], "+", 
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}], "/", "2"}], "//", "Expand"}], 
          "]"}]}], ")"}], "/", "2"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46028507509375*^9, 3.460285148140625*^9}, 
   3.4602852370625*^9, {3.46279533003125*^9, 3.462795333546875*^9}, {
   3.46279538134375*^9, 3.4627953855*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"U", "[", "f", "]"}], "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Composition", "[", 
      RowBox[{"U", ",", "U"}], "]"}], "[", "f", "]"}], "[", "x", "]"}], "//", 
   "Expand"}], "//", "Factor"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Composition", "[", 
      RowBox[{"U", ",", "U", ",", "U"}], "]"}], "[", "f", "]"}], "[", "x", 
    "]"}], "//", "Expand"}], "//", "Factor"}]}], "Input",
 CellChangeTimes->{{3.460285128*^9, 3.460285138921875*^9}, {3.46279542025*^9, 
  3.46279543421875*^9}, {3.462795523828125*^9, 3.462795546359375*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "2"], "+", 
      FractionBox["x", "2"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     FractionBox["x", "2"], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.460285139984375*^9, 3.460285150890625*^9}, 
   3.46279533646875*^9, 3.462795388796875*^9, {3.462795425078125*^9, 
   3.4627954349375*^9}, {3.4627955330625*^9, 3.462795547140625*^9}, 
   3.46279560190625*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "2"], "+", 
      FractionBox["x", "4"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["3", "4"], "+", 
      FractionBox["x", "4"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        FractionBox["x", "2"]}], ")"}]}], "]"}], "+", 
    RowBox[{"f", "[", 
     FractionBox["x", "4"], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.460285139984375*^9, 3.460285150890625*^9}, 
   3.46279533646875*^9, 3.462795388796875*^9, {3.462795425078125*^9, 
   3.4627954349375*^9}, {3.4627955330625*^9, 3.462795547140625*^9}, 
   3.46279560196875*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "8"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "2"], "+", 
      FractionBox["x", "8"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["5", "8"], "+", 
      FractionBox["x", "8"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["3", "4"], "+", 
      FractionBox["x", "8"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["7", "8"], "+", 
      FractionBox["x", "8"]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        FractionBox["x", "4"]}], ")"}]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["x", "4"]}], ")"}]}], "]"}], "+", 
    RowBox[{"f", "[", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        FractionBox["x", "2"]}], ")"}]}], "]"}], "+", 
    RowBox[{"f", "[", 
     FractionBox["x", "8"], "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.460285139984375*^9, 3.460285150890625*^9}, 
   3.46279533646875*^9, 3.462795388796875*^9, {3.462795425078125*^9, 
   3.4627954349375*^9}, {3.4627955330625*^9, 3.462795547140625*^9}, 
   3.46279560203125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["U", "n"], 
   StyleBox[
    RowBox[{"(", "f", ")"}],
    FontFamily->"Times New Roman"], 
   StyleBox[
    RowBox[{"(", "x", ")"}],
    FontFamily->"Times New Roman"]}], 
  StyleBox["=",
   FontFamily->"Times New Roman"], 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["2", "n"]], 
   RowBox[{
    StyleBox[
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], 
      RowBox[{
       SuperscriptBox["2", "n"], "-", "1"}]],
     FontFamily->"Times New Roman"], 
    RowBox[{
     StyleBox["f",
      FontFamily->"Times New Roman"], 
     RowBox[{
      StyleBox["(",
       FontFamily->"Times New Roman"], 
      FractionBox[
       RowBox[{"x", "+", "k"}], 
       SuperscriptBox["2", "n"]], 
      StyleBox[")",
       FontFamily->"Times New Roman"]}]}]}]}]}]], "Text",
 CellChangeTimes->{{3.4627951608125*^9, 3.4627952105*^9}, 
   3.462795292359375*^9, {3.46279544759375*^9, 3.4627954503125*^9}, {
   3.462795482828125*^9, 3.46279550196875*^9}, {3.462795581109375*^9, 
   3.462795596203125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
EX5) Diverses formes de la d\[EAcute]rivation\
\>", "Subsubtitle",
 CellChangeTimes->{{3.4625043591875*^9, 3.462504361953125*^9}, {
  3.46279694840625*^9, 3.462796959421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{"x", "^", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.460285775609375*^9, 3.46028579775*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"f", "[", "x", "]"}], ")"}], "'"}], ",", 
    RowBox[{
     RowBox[{"f", "'"}], "[", "x", "]"}], ",", 
    RowBox[{
     RowBox[{"Derivative", "[", "1", "]"}], "[", 
     RowBox[{"f", "[", "x", "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Derivative", "[", "1", "]"}], "[", "f", "]"}], "[", "x", "]"}],
     ",", 
    RowBox[{
     RowBox[{"D", "[", "f", "]"}], "[", "x", "]"}], ",", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}], "}"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.460285285015625*^9, {3.4602857396875*^9, 3.4602857665625*^9}, {
   3.460285839796875*^9, 3.460285875359375*^9}, {3.46028591759375*^9, 
   3.46028592596875*^9}, {3.460285957890625*^9, 3.460285962640625*^9}, {
   3.460286000421875*^9, 3.460286069875*^9}, {3.460286100109375*^9, 
   3.4602861099375*^9}, {3.46028614353125*^9, 3.460286146109375*^9}, {
   3.46028618046875*^9, 3.460286212328125*^9}, {3.46028625559375*^9, 
   3.460286264953125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["x", "3"], ")"}], "\[Prime]",
    MultilineFunction->None], ",", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], ",", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["x", "3"], ")"}], "\[Prime]",
    MultilineFunction->None], ",", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], ",", 
   SuperscriptBox["x", "3"], ",", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.460285876484375*^9, 3.46028592915625*^9, 3.460285963828125*^9, {
   3.4602860643125*^9, 3.4602860713125*^9}, 3.46028611125*^9, 
   3.4602861471875*^9, 3.460286181359375*^9, 3.46028621328125*^9, 
   3.460286266109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"f", "[", "x", "]"}], ")"}], "''"}], ",", 
   RowBox[{
    RowBox[{"f", "''"}], "[", "x", "]"}], ",", 
   RowBox[{
    RowBox[{"Derivative", "[", "2", "]"}], "[", 
    RowBox[{"f", "[", "x", "]"}], "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Derivative", "[", "1", "]"}], "[", 
      RowBox[{"Derivative", "[", "1", "]"}], "]"}], "[", "f", "]"}], "[", "x",
     "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Derivative", "[", "2", "]"}], "[", "f", "]"}], "[", "x", "]"}], 
   ",", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"D", "[", "f", "]"}], "]"}], "[", "x", "]"}], ",", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "x"}], "]"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.4602864268125*^9, 3.460286434734375*^9}, {
  3.4602866381875*^9, 3.460286675875*^9}, {3.460286732234375*^9, 
  3.46028676096875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["x", "3"], ")"}], "\[Prime]\[Prime]",
    MultilineFunction->None], ",", 
   RowBox[{"6", " ", "x"}], ",", 
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["x", "3"], ")"}], "\[Prime]\[Prime]",
    MultilineFunction->None], ",", 
   RowBox[{"6", " ", "x"}], ",", 
   RowBox[{"6", " ", "x"}], ",", 
   SuperscriptBox["x", "3"], ",", 
   RowBox[{"6", " ", "x"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4602867631875*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fonctions avec variables locales", "Subsubtitle",
 CellChangeTimes->{{3.462796473625*^9, 3.462796485796875*^9}}],

Cell["Ex6)", "Subsubtitle",
 CellChangeTimes->{{3.46279563928125*^9, 3.4627956424375*^9}}],

Cell[BoxData["Exit"], "Input",
 CellChangeTimes->{{3.501661702875*^9, 3.501661704390625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
   RowBox[{"Module", " ", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", "=", "1"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"If", " ", "[", 
         RowBox[{
          RowBox[{"PrimeQ", "[", "k", "]"}], " ", ",", " ", 
          RowBox[{"p", "=", 
           RowBox[{"k", " ", "p"}]}]}], " ", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", " ", ",", " ", "a", " ", ",", " ", "b"}], "}"}]}], 
       "]"}], ";", "\n", "p"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.460285757390625*^9, 3.460285757453125*^9}, {
   3.460287655265625*^9, 3.460287665625*^9}, {3.46028775365625*^9, 
   3.4602878745625*^9}, {3.46028797459375*^9, 3.460288008125*^9}, 
   3.460288192890625*^9, {3.46028838121875*^9, 3.46028838175*^9}, {
   3.460288503796875*^9, 3.460288538828125*^9}, {3.4602886655*^9, 
   3.46028866609375*^9}, {3.4602886973125*^9, 3.46028870775*^9}, {
   3.469809453984375*^9, 3.46980945515625*^9}, 3.5016617138125*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"1", ",", "10"}], "]"}], ",", "\"\<    \>\"", ",", 
   RowBox[{"f", "[", 
    RowBox[{"10", ",", "1"}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "p"}], "Input",
 CellChangeTimes->{{3.460288209421875*^9, 3.460288235375*^9}, {
  3.460288546796875*^9, 3.460288587984375*^9}, {3.462795679046875*^9, 
  3.462795679171875*^9}, {3.501661603078125*^9, 3.5016616051875*^9}, {
  3.50166172453125*^9, 3.501661725765625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "210", "\[InvisibleSpace]", "\<\"    \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm[210, "    ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4602885889375*^9, 3.460288711390625*^9, {3.4627956803125*^9, 
   3.462795684328125*^9}, 3.50166160578125*^9, 3.5016617269375*^9}],

Cell[BoxData["p"], "Output",
 CellChangeTimes->{3.5016617269375*^9}]
}, Open  ]],

Cell["\<\
f (a, b) est le produit des nombres premiers entre a et b, si a <= b.\
\>", "Text",
 CellChangeTimes->{{3.462796648703125*^9, 3.46279665496875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{
      RowBox[{"p", "=", "1"}], ";", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"PrimeQ", "[", "k", "]"}], ",", 
          RowBox[{"p", "=", 
           RowBox[{"k", " ", "p"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "a", ",", "b"}], "}"}]}], "]"}], ";", "p"}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"f", "[", 
  RowBox[{"1", ",", "10"}], "]"}], "\[IndentingNewLine]", "p"}], "Input",
 CellChangeTimes->{{3.5016615769375*^9, 3.50166161975*^9}}],

Cell[BoxData["210"], "Output",
 CellChangeTimes->{{3.5016615900625*^9, 3.501661620421875*^9}}],

Cell[BoxData["210"], "Output",
 CellChangeTimes->{{3.5016615900625*^9, 3.501661620421875*^9}}]
}, Open  ]],

Cell["\<\
p a pris ici la valeur 210, alors que dans la premi\[EGrave]re version, il \
est rest\[EAcute] vierge.
\
\>", "Text",
 CellChangeTimes->{{3.501661652015625*^9, 3.5016616805625*^9}, {
   3.501661747234375*^9, 3.501661761984375*^9}, 3.503822873203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX7) Ensemble des diviseurs", "Subsubtitle",
 CellChangeTimes->{{3.4625044333125*^9, 3.462504434890625*^9}, {
  3.462796684109375*^9, 3.462796695921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"diviseurs", "[", "n_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", 
       RowBox[{"D", "=", 
        RowBox[{"{", "}"}]}]}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"Do", "[", " ", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{"n", " ", ",", "d"}], "]"}], "==", "0"}], " ", ",", 
          RowBox[{"D", "=", 
           RowBox[{"Union", "[", 
            RowBox[{"D", ",", 
             RowBox[{"{", 
              RowBox[{"d", ",", 
               RowBox[{"n", "/", "d"}]}], "}"}]}], "]"}]}]}], "]"}], " ", ",", 
        RowBox[{"{", 
         RowBox[{"d", ",", 
          RowBox[{"Sqrt", "[", "n", "]"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "D"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"diviseurs", "[", "24", "]"}]}], "Input",
 CellChangeTimes->{{3.460289041734375*^9, 3.46028909996875*^9}, {
   3.4602891625*^9, 3.460289340796875*^9}, {3.460289386703125*^9, 
   3.460289401828125*^9}, {3.460289754421875*^9, 3.460289755203125*^9}, 
   3.460289859375*^9, {3.460289909078125*^9, 3.46028991371875*^9}, 
   3.4602899668125*^9, {3.46031180928125*^9, 3.4603118161875*^9}, {
   3.46980102440625*^9, 3.469801090203125*^9}, 3.470330264515625*^9, {
   3.47292644175*^9, 3.472926465515625*^9}, 3.4729265394375*^9, 
   3.50306500403125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "6", ",", "8", ",", "12", ",", 
   "24"}], "}"}]], "Output",
 CellChangeTimes->{3.4729265413125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", " ", 
  RowBox[{
   RowBox[{"diviseurs", "[", 
    RowBox[{"2", "^", "40"}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.460289801390625*^9, 3.46028983109375*^9}, {
   3.460289872421875*^9, 3.460289882125*^9}, {3.460289948453125*^9, 
   3.460289951953125*^9}, {3.46029005746875*^9, 3.460290059359375*^9}, {
   3.460290095328125*^9, 3.46029014121875*^9}, 3.462504874203125*^9, {
   3.469801136515625*^9, 3.46980115978125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.703000000000001`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.460289883390625*^9, 3.4602899175625*^9, {3.46028995296875*^9, 
   3.460289969921875*^9}, 3.460290017640625*^9, {3.4602901015*^9, 
   3.460290115578125*^9}, 3.460290150265625*^9, 3.46250488440625*^9, {
   3.469801115078125*^9, 3.46980116675*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", " ", 
  RowBox[{
   RowBox[{"Divisors", "[", 
    RowBox[{"2", "^", "40"}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.46028992628125*^9, 3.460289928921875*^9}, {
   3.46029000809375*^9, 3.46029001384375*^9}, {3.46029012659375*^9, 
   3.460290155046875*^9}, 3.46250489246875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.460289930046875*^9, 3.4602900149375*^9, {3.460290133765625*^9, 
   3.46029015565625*^9}, 3.46250489365625*^9}]
}, Open  ]],

Cell["\<\
Une fonction bien plus rapide, propos\[EAcute]e par David Cohen, 2010 :\
\>", "Text",
 CellChangeTimes->{{3.470330212234375*^9, 3.470330241578125*^9}, {
  3.470330343234375*^9, 3.470330343984375*^9}, {3.4724764405625*^9, 
  3.472476441078125*^9}, {3.503065031625*^9, 3.50306503321875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cl", "[", 
   RowBox[{"D_", ",", "k_"}], "]"}], " ", ":=", 
  RowBox[{"Union", "[", 
   RowBox[{"D", ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"k", "*", "x"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "D"}], "}"}]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"divisors", "[", "n_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D", "=", 
       RowBox[{"{", "1", "}"}]}], ",", 
      RowBox[{"u", "=", "n"}], ",", 
      RowBox[{"p", "=", "2"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"u", "\[NotEqual]", " ", "1"}], ",", 
       RowBox[{
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{"u", ",", "p"}], "]"}], "\[Equal]", "0"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"D", ",", "u"}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"cl", "[", 
              RowBox[{"D", ",", "p"}], "]"}], ",", 
             RowBox[{"u", "/", "p"}]}], "}"}]}]}], "]"}], ";", 
        RowBox[{"p", "=", 
         RowBox[{"NextPrime", "[", "p", "]"}]}]}]}], "]"}], ";", "D"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.4703280239375*^9, 3.4703280338125*^9}, {
  3.47032818278125*^9, 3.470328184109375*^9}, {3.4703282450625*^9, 
  3.470328248828125*^9}, {3.470328394640625*^9, 3.470328404*^9}, {
  3.470588470875*^9, 3.47058847190625*^9}, {3.470588639734375*^9, 
  3.470588646*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"Divisors", "[", "434654564346848", "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{3.470588450640625*^9, 3.470588481421875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5.9396931817445875`*^-15", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.470588492640625*^9, 3.470588648859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"divisors", "[", "434654564346848", "]"}], ";"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.24999999999999883`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.470588495359375*^9, 3.4705886233125*^9, {3.470588656109375*^9, 
   3.47058868059375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"divisorssimple", "[", "n_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"D", "=", 
        RowBox[{"{", "1", "}"}]}], ",", 
       RowBox[{"u", "=", "n"}], ",", 
       RowBox[{"p", "=", "2"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"u", "\[NotEqual]", "1"}], ",", 
        RowBox[{
         RowBox[{"While", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Mod", "[", 
             RowBox[{"u", ",", "p"}], "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"D", ",", "u"}], "}"}], "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"cl", "[", 
               RowBox[{"D", ",", "p"}], "]"}], ",", 
              RowBox[{"u", "/", "p"}]}], "}"}]}]}], "]"}], ";", 
         RowBox[{"p", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", "D"}]}], 
    "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"divisorssimple", "[", "434654564346848", "]"}], ";"}], 
  "]"}], "\n"}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.3129999999999935`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.4705886600625*^9, 3.470588685390625*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX8) Somme des cubes des chiffres", "Subsubtitle",
 CellChangeTimes->{{3.462504490703125*^9, 3.462504492203125*^9}, {
  3.462796704125*^9, 3.462796714*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "n_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"q", "=", "n"}], ",", 
      RowBox[{"s", "=", "0"}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"While", "[", " ", 
      RowBox[{
       RowBox[{"q", ">", "0"}], " ", ",", "\n", 
       RowBox[{
        RowBox[{"s", "=", 
         RowBox[{"s", "+", 
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{"q", ",", "10"}], "]"}], "^", "3"}]}]}], ";", "\n", 
        RowBox[{"q", "=", 
         RowBox[{"Quotient", "[", 
          RowBox[{"q", ",", "10"}], "]"}]}]}]}], "]"}], ";", "\n", "s"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<f(310)=\>\"", ",", 
   RowBox[{"f", "[", "310", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4605499335625*^9, 3.46055004775*^9}, {
   3.4605500791875*^9, 3.4605501383125*^9}, {3.460550184296875*^9, 
   3.460550229796875*^9}, {3.460550262421875*^9, 3.46055029778125*^9}, {
   3.460550342125*^9, 3.460550364984375*^9}, 3.462504507078125*^9, {
   3.469801197109375*^9, 3.46980122396875*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"f(310)=\"\>", "\[InvisibleSpace]", "28"}],
  SequenceForm["f(310)=", 28],
  Editable->False]], "Print",
 CellChangeTimes->{{3.460550360015625*^9, 3.460550365890625*^9}, 
   3.469801226*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "  ", "[", 
   RowBox[{
    RowBox[{
     StyleBox[
      RowBox[{
       StyleBox["I",
        FontSlant->"Italic"], "f"}]], "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", "n", "]"}], "==", "n"}], ",", " ", 
      RowBox[{"Print", "[", "n", "]"}]}], " ", "]"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"n", " ", ",", "1", ",", "500"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.460552318734375*^9, 3.46055241715625*^9}, 
   3.4703303735*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.4605524180625*^9}],

Cell[BoxData["153"], "Print",
 CellChangeTimes->{3.460552418125*^9}],

Cell[BoxData["370"], "Print",
 CellChangeTimes->{3.4605524181875*^9}],

Cell[BoxData["371"], "Print",
 CellChangeTimes->{3.46055241821875*^9}],

Cell[BoxData["407"], "Print",
 CellChangeTimes->{3.460552418265625*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX9) Nombres retourn\[EAcute]s", "Subsubtitle",
 CellChangeTimes->{{3.462504532765625*^9, 3.462504534140625*^9}, {
  3.462796718125*^9, 3.462796732703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "n_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"q", "=", "n"}], ",", 
      RowBox[{"m", "=", "0"}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"While", "[", " ", 
      RowBox[{
       RowBox[{"q", ">", "0"}], " ", ",", "\n", 
       RowBox[{
        RowBox[{"m", "=", 
         RowBox[{
          RowBox[{"10", " ", "m"}], "+", 
          RowBox[{"Mod", "[", 
           RowBox[{"q", ",", "10"}], "]"}]}]}], ";", "\n", 
        RowBox[{"q", "=", 
         RowBox[{"Quotient", "[", 
          RowBox[{"q", ",", "10"}], "]"}]}]}]}], "]"}], ";", "\n", "m"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<f(310)=\>\"", ",", 
   RowBox[{"f", "[", "310", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.460552483140625*^9, 3.460552559984375*^9}, 
   3.46250454603125*^9, {3.469801239796875*^9, 3.46980127815625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"f(310)=\"\>", "\[InvisibleSpace]", "13"}],
  SequenceForm["f(310)=", 13],
  Editable->False]], "Print",
 CellChangeTimes->{{3.46055255375*^9, 3.460552561109375*^9}, 
   3.462795731890625*^9, 3.469801279984375*^9, 3.500655459328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"k", "=", "0"}], ";", 
   RowBox[{"b", "=", "98"}], ";", 
   RowBox[{"While", "[", " ", 
    RowBox[{
     RowBox[{"b", "!=", 
      RowBox[{"f", "[", "b", "]"}]}], ",", " ", 
     RowBox[{
      RowBox[{"b", "=", 
       RowBox[{
        RowBox[{"f", "[", "b", "]"}], "+", "b"}]}], ";", 
      RowBox[{"Print", "[", "b", "]"}], " ", ";", 
      RowBox[{"k", "++"}]}]}], "]"}], ";", "k"}]}]], "Input",
 CellChangeTimes->{{3.46055259265625*^9, 3.4605527630625*^9}, {
  3.460552867234375*^9, 3.460552867453125*^9}, {3.460554589734375*^9, 
  3.46055464959375*^9}, {3.4605547086875*^9, 3.46055475665625*^9}, {
  3.462795719453125*^9, 3.4627957289375*^9}, {3.469809507625*^9, 
  3.469809509578125*^9}, {3.500655455546875*^9, 3.50065545578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData["187"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["968"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["1837"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["9218"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["17347"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["91718"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["173437"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["907808"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462515625*^9}],

Cell[BoxData["1716517"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.50065546253125*^9}],

Cell[BoxData["8872688"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.50065546253125*^9}],

Cell[BoxData["17735476"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462546875*^9}],

Cell[BoxData["85189247"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462546875*^9}],

Cell[BoxData["159487405"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.5006554625625*^9}],

Cell[BoxData["664272356"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.5006554625625*^9}],

Cell[BoxData["1317544822"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462578125*^9}],

Cell[BoxData["3602001953"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462578125*^9}],

Cell[BoxData["7193004016"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.50065546259375*^9}],

Cell[BoxData["13297007933"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462609375*^9}],

Cell[BoxData["47267087164"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462609375*^9}],

Cell[BoxData["93445163438"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462625*^9}],

Cell[BoxData["176881317877"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462625*^9}],

Cell[BoxData["955594506548"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462640625*^9}],

Cell[BoxData["1801200002107"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.500655462640625*^9}],

Cell[BoxData["8813200023188"], "Print",
 CellChangeTimes->{{3.460554620515625*^9, 3.460554650578125*^9}, {
   3.4605547235625*^9, 3.460554757703125*^9}, 3.462795733640625*^9, 
   3.50065546265625*^9}]
}, Open  ]],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{3.462795734828125*^9, 3.500655462671875*^9}]
}, Open  ]],

Cell["\<\
89 est tr\[EGrave]s long \[AGrave] se palindromiser (24 coups), mais 196 \
l'est encore plus ; 
on pense qu' il ne se palindromise jamais, mais ce fait n'a pas \[EAcute]t\
\[EAcute] prouv\[EAcute].\
\>", "Text",
 CellChangeTimes->{{3.46055478259375*^9, 3.460554790703125*^9}, 
   3.462795763453125*^9, {3.468611297375*^9, 3.46861130171875*^9}, 
   3.46980163121875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX10) Fractions continues", "Subsubtitle",
 CellChangeTimes->{{3.46062047909375*^9, 3.460620481703125*^9}, {
  3.46250459290625*^9, 3.46250459478125*^9}, {3.462796738078125*^9, 
  3.46279674596875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", "n_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"x", "=", 
        RowBox[{"a", "[", "n", "]"}]}], ",", "k"}], "}"}], ",", "\n", " ", 
     RowBox[{
      RowBox[{"Do", " ", "[", 
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{
          RowBox[{"a", "[", "k", "]"}], "+", 
          RowBox[{"1", "/", "x"}]}]}], " ", ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", 
          RowBox[{"n", "-", "1"}], ",", "0", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ";", "\n", "x"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"u", "[", "5", "]"}], "\n"}], "Input",
 CellChangeTimes->{{3.460554917015625*^9, 3.460555058296875*^9}, {
   3.460555117484375*^9, 3.46055521509375*^9}, {3.46055524640625*^9, 
   3.460555280328125*^9}, 3.460555381328125*^9, {3.46055544721875*^9, 
   3.46055545428125*^9}, {3.46055549046875*^9, 3.460555510078125*^9}, {
   3.460555558734375*^9, 3.46055559771875*^9}, {3.460555654921875*^9, 
   3.460555655796875*^9}, {3.46055573134375*^9, 3.46055574940625*^9}, 
   3.460620303515625*^9, {3.460620347421875*^9, 3.46062036153125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "+", 
  FractionBox["1", 
   RowBox[{
    RowBox[{"a", "[", "1", "]"}], "+", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"a", "[", "2", "]"}], "+", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"a", "[", "3", "]"}], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"a", "[", "4", "]"}], "+", 
          FractionBox["1", 
           RowBox[{"a", "[", "5", "]"}]]}]]}]]}]]}]]}]], "Output",
 CellChangeTimes->{
  3.46055505953125*^9, {3.460555122609375*^9, 3.46055513103125*^9}, {
   3.460555195203125*^9, 3.46055521615625*^9}, {3.4605552475*^9, 
   3.4605552816875*^9}, 3.46055538203125*^9, {3.46055544846875*^9, 
   3.460555454703125*^9}, {3.460555495609375*^9, 3.460555500125*^9}, {
   3.46055558475*^9, 3.4605555988125*^9}, 3.460555656578125*^9, {
   3.460620280109375*^9, 3.460620304609375*^9}, {3.4606203501875*^9, 
   3.460620362640625*^9}, {3.460620458734375*^9, 3.460620487328125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "k", "]"}], "=", "2"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "100"}], "}"}]}], "]"}], ";", 
   RowBox[{"N", "[", 
    RowBox[{"u", "[", "100", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.460575659515625*^9, 3.46057566578125*^9}, {
  3.46062036878125*^9, 3.460620451921875*^9}, {3.460620508640625*^9, 
  3.460620562453125*^9}}],

Cell[BoxData["2.414213562373095`"], "Output",
 CellChangeTimes->{
  3.460620452515625*^9, {3.460620499953125*^9, 3.46062050984375*^9}, {
   3.4606205453125*^9, 3.46062056375*^9}}]
}, Open  ]],

Cell["x = 2 + 1/x donc ... ..", "Text",
 CellChangeTimes->{{3.46062066878125*^9, 3.460620718296875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", "k", "]"}], "=", "1"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "100"}], "}"}]}], "]"}], ";", 
  RowBox[{"N", "[", 
   RowBox[{"u", "[", "100", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{3.46062070940625*^9, 3.46062073971875*^9}],

Cell[BoxData["1.6180339887498947`"], "Output",
 CellChangeTimes->{{3.460620681359375*^9, 3.460620709609375*^9}, 
   3.460620740625*^9}]
}, Open  ]],

Cell["x = 1 + 1/x donc ... ..", "Text",
 CellChangeTimes->{{3.460620887421875*^9, 3.460620888*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Fonctions", " ", "r\[EAcute]cursives"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.460621175609375*^9, 3.460621183125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Ex12) Fibonacci avec ou sans m\[EAcute]moire\
\>", "Subsubtitle",
 CellChangeTimes->{{3.46250465459375*^9, 3.462504662*^9}, {
  3.462619359546875*^9, 3.462619360171875*^9}, {3.462796751828125*^9, 
  3.462796759609375*^9}}],

Cell["Sans m\[EAcute]morisation :", "Text",
 CellChangeTimes->{{3.470154998296875*^9, 3.470155044390625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n_", "]"}], ":=", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"n", "==", "0"}], ",", "0", ",", 
     RowBox[{"n", "==", "1"}], ",", "1", ",", "True", ",", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"n", "-", "1"}], "]"}], "+", 
      RowBox[{"f", "[", 
       RowBox[{"n", "-", "2"}], "]"}]}]}], "]"}]}], ";", 
  RowBox[{"Timing", "[", 
   RowBox[{"f", "[", "30", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46063616146875*^9, 3.46063620428125*^9}, {
   3.460636247078125*^9, 3.460636248515625*^9}, 3.460636287390625*^9, {
   3.47015494303125*^9, 3.470154947828125*^9}, {3.505294792625*^9, 
   3.50529479284375*^9}, {3.50529484715625*^9, 3.505294848765625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.938000000000003`", ",", "832040"}], "}"}]], "Output",
 CellChangeTimes->{
  3.460636211546875*^9, 3.460636271265625*^9, 3.46063632734375*^9, 
   3.470154969953125*^9, 3.505294781953125*^9, {3.505294836296875*^9, 
   3.505294855421875*^9}}]
}, Open  ]],

Cell["Avec m\[EAcute]morisation :", "Text",
 CellChangeTimes->{{3.470154998296875*^9, 3.470155046515625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fr", "[", "n_", "]"}], ":=", 
   RowBox[{
    RowBox[{"fr", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"fr", "[", 
      RowBox[{"n", "-", "1"}], "]"}], "+", 
     RowBox[{"fr", "[", 
      RowBox[{"n", "-", "2"}], "]"}]}]}]}], ";", 
  RowBox[{
   RowBox[{"fr", "[", "0", "]"}], "=", "0"}], ";", 
  RowBox[{
   RowBox[{"fr", "[", "1", "]"}], "=", "1"}], ";", 
  RowBox[{"Timing", "[", 
   RowBox[{"fr", "[", "30", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460311759859375*^9, 3.460311760765625*^9}, 
   3.46062096453125*^9, {3.460621170359375*^9, 3.460621235546875*^9}, {
   3.460621268*^9, 3.4606213094375*^9}, {3.460621469578125*^9, 
   3.46062146978125*^9}, {3.470154979359375*^9, 3.470154981453125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", "832040"}], "}"}]], "Output",
 CellChangeTimes->{3.460621378859375*^9, 3.4606214703125*^9, 
  3.470154982890625*^9, 3.505294861484375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex13) Triangle de Pascal", "Subsubtitle",
 CellChangeTimes->{{3.462795850078125*^9, 3.462795852109375*^9}, {
  3.462796766390625*^9, 3.46279677578125*^9}}],

Cell["\<\
Premi\[EGrave]re possibilit\[EAcute] : on initialise la premi\[EGrave]re \
colonne et la diagonale :\
\>", "Text",
 CellChangeTimes->{{3.4724770545625*^9, 3.472477084921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "[", 
   RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
  RowBox[{"Which", "[", 
   RowBox[{
    RowBox[{"Or", "[", 
     RowBox[{
      RowBox[{"j", "\[Equal]", "0"}], ",", 
      RowBox[{"j", "\[Equal]", "i"}]}], "]"}], ",", "1", ",", "True", " ", 
    ",", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{
       RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "+", 
     RowBox[{"c", "[", 
      RowBox[{
       RowBox[{"i", "-", "1"}], ",", 
       RowBox[{"j", "-", "1"}]}], "]"}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"n", "=", "6"}], ";", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{"i", ",", "j"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "i"}], "}"}]}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.47014877859375*^9, 3.470148789171875*^9}, {
  3.47014899525*^9, 3.470148995953125*^9}, {3.47247712090625*^9, 
  3.472477128390625*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"{", "1", "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "3", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "4", ",", "6", ",", "4", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "5", ",", "10", ",", "10", ",", "5", ",", "1"}], 
        "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
        "1", ",", "6", ",", "15", ",", "20", ",", "15", ",", "6", ",", "1"}], 
        "}"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.47014879196875*^9, 3.47014899709375*^9, 
  3.47247690640625*^9, 3.4724771295*^9}]
}, Open  ]],

Cell["\<\
Autre possibilit\[EAcute] : on initialise la premi\[EGrave]re ligne :\
\>", "Text",
 CellChangeTimes->{{3.472476529421875*^9, 3.472476536578125*^9}, {
  3.47247709453125*^9, 3.472477109671875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "[", 
   RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
  RowBox[{"Which", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "j"}], "}"}], "\[Equal]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", "1", ",", 
    RowBox[{"i", "==", "0"}], ",", "0", ",", "True", " ", ",", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{
       RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "+", 
     RowBox[{"c", "[", 
      RowBox[{
       RowBox[{"i", "-", "1"}], ",", 
       RowBox[{"j", "-", "1"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "6"}], ";", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{"i", ",", "j"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "i"}], "}"}]}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.472476565453125*^9, 3.47247664303125*^9}, {
  3.47247677021875*^9, 3.472476785453125*^9}, {3.4724768444375*^9, 
  3.472476867546875*^9}, {3.472476935609375*^9, 3.472477021765625*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"{", "1", "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "3", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "4", ",", "6", ",", "4", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "5", ",", "10", ",", "10", ",", "5", ",", "1"}], 
        "}"}]},
      {
       RowBox[{"{", 
        RowBox[{
        "1", ",", "6", ",", "15", ",", "20", ",", "15", ",", "6", ",", "1"}], 
        "}"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.47247678696875*^9, 3.472476810296875*^9}, {
   3.472476860109375*^9, 3.47247686890625*^9}, 3.47247690046875*^9, 
   3.472476943421875*^9, 3.472476977703125*^9, {3.472477012796875*^9, 
   3.47247702234375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX14) Exponentiation rapide.", "Subsubtitle",
 CellChangeTimes->{{3.4724774991875*^9, 3.47247751578125*^9}}],

Cell["Algorithme naturel :", "Text",
 CellChangeTimes->{
  3.460691321078125*^9, {3.460708464546875*^9, 3.46070849209375*^9}, {
   3.472477592828125*^9, 3.472477593171875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"exposimple", "[", 
   RowBox[{"a_", ",", "n_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"n", "==", "0"}], ",", "1", ",", 
    RowBox[{"a", "*", 
     RowBox[{"exposimple", "[", 
      RowBox[{"a", ",", 
       RowBox[{"n", "-", "1"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460691375125*^9, 3.46069146521875*^9}, {
  3.4607085084375*^9, 3.460708520375*^9}, {3.47247761903125*^9, 
  3.472477622734375*^9}, {3.47247955740625*^9, 3.4724796045*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"exposimple", "[", 
  RowBox[{"a", ",", "256"}], "]"}]], "Input",
 CellChangeTimes->{{3.50382295821875*^9, 3.503823033859375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Recursion depth of \
\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(256\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" exceeded.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/$RecursionLimit\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.50382300840625*^9, 3.50382303478125*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "254"], " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"Hold", "[", 
     RowBox[{"2", "\[Equal]", "0"}], "]"}], ",", "1", ",", 
    RowBox[{"a", " ", 
     RowBox[{"exposimple", "[", 
      RowBox[{"a", ",", 
       RowBox[{"2", "-", "1"}]}], "]"}]}]}], "]"}]}]], "Output",
 CellChangeTimes->{{3.50382302159375*^9, 3.50382303478125*^9}}]
}, Open  ]],

Cell["\<\
Exponentiation rapide, version r\[EAcute]cursive :\
\>", "Text",
 CellChangeTimes->{
  3.4607084176875*^9, {3.46070850071875*^9, 3.460708501203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exporap", "[", 
    RowBox[{"a_", ",", "n_"}], "]"}], ":=", "\n", 
   RowBox[{"Which", "[", " ", 
    RowBox[{
     RowBox[{"n", "==", "0"}], " ", ",", " ", "1", ",", 
     RowBox[{"EvenQ", "[", "n", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"exporap", "[", 
       RowBox[{"a", ",", 
        RowBox[{"n", "/", "2"}]}], "]"}], "^", "2"}], ",", "True", ",", 
     RowBox[{
      RowBox[{"exporap", "[", 
       RowBox[{"a", ",", 
        RowBox[{"n", "-", "1"}]}], "]"}], "a"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.46070853653125*^9, 3.46070867990625*^9}, {
  3.460709233234375*^9, 3.4607092624375*^9}, {3.460710071*^9, 
  3.4607100929375*^9}, {3.47247767134375*^9, 3.472477671921875*^9}, {
  3.47247772553125*^9, 3.472477740453125*^9}, {3.472480045765625*^9, 
  3.472480052078125*^9}}],

Cell["Ou bien, en une seule fois :", "Text",
 CellChangeTimes->{{3.472478981640625*^9, 3.472479001640625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exporap", "[", 
    RowBox[{"a_", ",", "n_"}], "]"}], ":=", "\n", 
   RowBox[{
    RowBox[{"If", "[", " ", 
     RowBox[{
      RowBox[{"n", "==", "0"}], " ", ",", " ", "1", ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"exporap", "[", 
         RowBox[{"a", ",", 
          RowBox[{"Quotient", "[", 
           RowBox[{"n", ",", "2"}], "]"}]}], "]"}], "^", "2"}], "*", 
       RowBox[{"a", "^", 
        RowBox[{"Mod", "[", 
         RowBox[{"n", ",", "2"}], "]"}]}]}]}], "]"}], Cell[""]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.460822494375*^9, 3.460822612296875*^9}, {
   3.46082264453125*^9, 3.460822645296875*^9}, {3.460822712484375*^9, 
   3.460822733421875*^9}, {3.460822776140625*^9, 3.4608228510625*^9}, {
   3.460822893796875*^9, 3.4608228983125*^9}, 3.46082292921875*^9, {
   3.47247902128125*^9, 3.472479025078125*^9}, 3.472479081984375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"exposimple", "[", 
    RowBox[{"444444", ",", "251"}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.47247774725*^9, 3.472477766078125*^9}, {
  3.472477855078125*^9, 3.472477858953125*^9}, {3.472477891953125*^9, 
  3.4724778963125*^9}, {3.472477932578125*^9, 3.4724779479375*^9}, {
  3.47247800271875*^9, 3.472478041578125*^9}, {3.47247917409375*^9, 
  3.472479202390625*^9}, {3.472479730234375*^9, 3.472479792625*^9}, {
  3.472480075296875*^9, 3.472480128078125*^9}, {3.472480222515625*^9, 
  3.472480261015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.015999999999999834`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.472479731734375*^9, 3.472479793171875*^9}, {
  3.472480069953125*^9, 3.47248012890625*^9}, {3.47248022575*^9, 
  3.472480261984375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"exporap", "[", 
    RowBox[{"444444", ",", "251"}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.472478060046875*^9, 3.472478071703125*^9}, {
  3.4724781586875*^9, 3.472478176359375*^9}, {3.472479138265625*^9, 
  3.4724791933125*^9}, {3.472480064265625*^9, 3.4724800649375*^9}, {
  3.472480101703125*^9, 3.472480102265625*^9}, {3.472480133578125*^9, 
  3.472480135734375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.3834419720915037`*^-16", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.472477960390625*^9, 3.472478009828125*^9}, {
   3.47247806296875*^9, 3.47247812453125*^9}, {3.472478155046875*^9, 
   3.472478177296875*^9}, 3.47247907328125*^9, {3.472479138875*^9, 
   3.47247921503125*^9}, 3.472480065984375*^9, 3.47248010296875*^9, 
   3.472480137078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"444444", "^", "251"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.472477996296875*^9, 3.472478018640625*^9}, {
  3.4724791431875*^9, 3.472479220625*^9}, {3.472479374453125*^9, 
  3.472479384453125*^9}, {3.472480110109375*^9, 3.472480110578125*^9}, {
  3.472480146671875*^9, 3.47248014725*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.472477870625*^9, 3.47247789746875*^9}, 
   3.472477953453125*^9, {3.4724779979375*^9, 3.472478019296875*^9}, 
   3.4724780683125*^9, 3.472478098640625*^9, {3.4724781366875*^9, 
   3.47247814284375*^9}, {3.47247914378125*^9, 3.47247922146875*^9}, 
   3.472479375390625*^9, 3.472480148125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exporapplus", "[", 
    RowBox[{"a_", ",", "n_"}], "]"}], ":=", "\n", 
   RowBox[{"Which", "[", " ", 
    RowBox[{
     RowBox[{"n", "==", "0"}], " ", ",", " ", "1", ",", 
     RowBox[{"EvenQ", "[", "n", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"exporapplus", "[", 
       RowBox[{"a", ",", 
        RowBox[{"n", "/", "2"}]}], "]"}], "^", "2"}], ",", 
     RowBox[{
      RowBox[{"Mod", "[", 
       RowBox[{"n", ",", "3"}], "]"}], "==", "0"}], ",", " ", 
     RowBox[{
      RowBox[{"exporapplus", "[", 
       RowBox[{"a", ",", 
        RowBox[{"n", "/", "3"}]}], "]"}], "^", "3"}], ",", "True", ",", 
     RowBox[{
      RowBox[{"exporapplus", "[", 
       RowBox[{"a", ",", 
        RowBox[{"n", "-", "1"}]}], "]"}], "a"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.460709544515625*^9, 3.460709608765625*^9}, {
  3.460822667203125*^9, 3.460822674875*^9}, {3.47247931721875*^9, 
  3.4724793279375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"exporapplus", "[", 
    RowBox[{"444444", ",", "251"}], "]"}], ";"}], "]"}]], "Input",
 CellChangeTimes->{{3.4607096224375*^9, 3.460709646609375*^9}, {
  3.472479330609375*^9, 3.472479388015625*^9}, {3.472480199875*^9, 
  3.472480205296875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.460709623046875*^9, 3.460709647203125*^9}, {
   3.472479340609375*^9, 3.472479369421875*^9}, 3.472480205984375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX15) Algorithme d'Euclide", "Subsubtitle",
 CellChangeTimes->{{3.472478560953125*^9, 3.47247857225*^9}, {
  3.472478699609375*^9, 3.4724787001875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pgcd", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"b", "\[Equal]", "0"}], ",", "a", ",", 
    RowBox[{"pgcd", "[", 
     RowBox[{"b", ",", 
      RowBox[{"Mod", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.472478575671875*^9, 3.47247864209375*^9}, {
  3.47247868646875*^9, 3.472478686921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pgcd", "[", 
  RowBox[{
   RowBox[{"12", "*", "123456"}], ",", 
   RowBox[{"11", "*", "123456"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.472478647484375*^9, 3.47247867421875*^9}}],

Cell[BoxData["123456"], "Output",
 CellChangeTimes->{{3.472478677375*^9, 3.472478689515625*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX16)  Maximum", "Subsubtitle",
 CellChangeTimes->{{3.462504709828125*^9, 3.46250471134375*^9}, {
  3.462504743359375*^9, 3.46250474634375*^9}, {3.46261962053125*^9, 
  3.4626196211875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"maximum", "[", "L_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "L", "]"}], "==", "1"}], " ", ",", 
    RowBox[{"L", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Max", "[", 
     RowBox[{
      RowBox[{"L", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"maximum", "[", 
       RowBox[{"Delete", "[", 
        RowBox[{"L", ",", "1"}], "]"}], "]"}]}], "]"}]}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.460622242109375*^9, 3.460622248953125*^9}, 
   3.462504732296875*^9, {3.4627640046875*^9, 3.462764270609375*^9}, 
   3.46276430471875*^9, {3.462766673171875*^9, 3.462766730140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "8", ",", "2", ",", "4"}], "}"}]}], ";", 
  RowBox[{"maximum", "[", "L", "]"}]}]], "Input",
 CellChangeTimes->{{3.46276428153125*^9, 3.462764283046875*^9}}],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{
  3.460622250796875*^9, 3.460637336671875*^9, {3.462764045265625*^9, 
   3.462764062328125*^9}, 3.462764236984375*^9, {3.462764283828125*^9, 
   3.462764307765625*^9}, {3.462766683671875*^9, 3.462766733921875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX17) Tri par insertion", "Subsubtitle",
 CellChangeTimes->{{3.4606221955*^9, 3.460622202703125*^9}, {
  3.46250475115625*^9, 3.462504758015625*^9}, {3.46261962571875*^9, 
  3.462619626296875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"insertion", "[", 
   RowBox[{"x_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", "=", "1"}], "}"}], ",", 
    RowBox[{
     RowBox[{"While", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"k", "\[LessEqual]", 
         RowBox[{"Length", "[", "L", "]"}]}], " ", "&&", 
        RowBox[{"x", ">", 
         RowBox[{"L", "[", 
          RowBox[{"[", "k", "]"}], " ", "]"}]}]}], " ", ",", 
       RowBox[{"k", "++"}]}], "]"}], ";", 
     RowBox[{"Insert", "[", 
      RowBox[{"L", ",", "x", ",", "k"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460640049390625*^9, 3.460640070734375*^9}, {
   3.460640102375*^9, 3.4606401091875*^9}, {3.46262023528125*^9, 
   3.46262023559375*^9}, {3.462620358859375*^9, 3.462620391109375*^9}, {
   3.462620429*^9, 3.462620453375*^9}, {3.46262066303125*^9, 
   3.462620670296875*^9}, {3.46262074003125*^9, 3.462620759640625*^9}, {
   3.462620794859375*^9, 3.462620822125*^9}, {3.4626208724375*^9, 
   3.46262087565625*^9}, {3.462620963296875*^9, 3.462620966734375*^9}, {
   3.4626212009375*^9, 3.462621205109375*^9}, {3.462622187390625*^9, 
   3.462622188609375*^9}, {3.462622251390625*^9, 3.462622331328125*^9}, {
   3.46262237809375*^9, 3.462622380640625*^9}, {3.462622531046875*^9, 
   3.46262256859375*^9}, {3.46262261296875*^9, 3.46262264209375*^9}, {
   3.462622684453125*^9, 3.46262268475*^9}, {3.462622759078125*^9, 
   3.462622759578125*^9}, 3.462623107390625*^9, {3.46262423515625*^9, 
   3.462624241609375*^9}, {3.462624282640625*^9, 3.462624283109375*^9}, {
   3.462624334640625*^9, 3.462624408234375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"insertion", "[", 
  RowBox[{"4", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.462620272421875*^9, 3.462620298859375*^9}, {
   3.462620559578125*^9, 3.462620560578125*^9}, {3.462620606953125*^9, 
   3.46262061090625*^9}, {3.462620833*^9, 3.4626208336875*^9}, {
   3.46262110478125*^9, 3.462621112515625*^9}, {3.4626218988125*^9, 
   3.4626219111875*^9}, {3.46262203696875*^9, 3.462622037625*^9}, {
   3.462622577375*^9, 3.46262259865625*^9}, {3.4626226595625*^9, 
   3.462622665015625*^9}, {3.462622746515625*^9, 3.462622774640625*^9}, {
   3.46262297990625*^9, 3.46262298371875*^9}, 3.462623119859375*^9, {
   3.462624259609375*^9, 3.46262426478125*^9}, 3.462626439*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "4", ",", "8", ",", "9"}], "}"}]], "Output",
 CellChangeTimes->{{3.462622645484375*^9, 3.462622688109375*^9}, {
   3.462622747484375*^9, 3.46262277565625*^9}, {3.46262297571875*^9, 
   3.46262298465625*^9}, {3.46262311340625*^9, 3.4626231206875*^9}, {
   3.46262424509375*^9, 3.462624286140625*^9}, 3.462624358234375*^9, {
   3.4626243889375*^9, 3.462624412796875*^9}, 3.462626439921875*^9, 
   3.462676340921875*^9, 3.46276431234375*^9}]
}, Open  ]],

Cell["\<\
insertion[x, L] ins\[EGrave]re x apr\[EGrave]s le dernier \
\[EAcute]l\[EAcute]ment de L qu'il d\[EAcute]passe.\
\>", "Text",
 CellChangeTimes->{{3.46262125640625*^9, 3.462621306953125*^9}, {
   3.462621353140625*^9, 3.462621353796875*^9}, {3.462623055265625*^9, 
   3.4626230574375*^9}, 3.473621738234375*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tri", "[", "L_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "L", "]"}], "\[Equal]", "1"}], ",", "L", ",", 
     RowBox[{"insertion", "[", 
      RowBox[{
       RowBox[{"L", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"tri", "[", 
        RowBox[{"Delete", "[", 
         RowBox[{"L", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"tri", "[", 
  RowBox[{"{", 
   RowBox[{"4", ",", "1", ",", "2", ",", "0", ",", "5"}], "}"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.462676160625*^9, 3.462676181203125*^9}, 
   3.462676219765625*^9, {3.462676612390625*^9, 3.462676616921875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "2", ",", "4", ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{{3.462676163453125*^9, 3.462676182171875*^9}, 
   3.46267622153125*^9, {3.4626763345625*^9, 3.46267634403125*^9}, 
   3.46267661821875*^9, 3.462764318671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Random", "[", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Timing", "[", 
     RowBox[{
      RowBox[{"tri", "[", 
       RowBox[{"L", ",", "100"}], "]"}], ";"}], "]"}], ",", 
    RowBox[{"Timing", "[", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"L", ",", "Less"}], "]"}], ";"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.46063845596875*^9, 3.460638497609375*^9}, {
  3.460645748875*^9, 3.460645778328125*^9}, {3.460645821890625*^9, 
  3.460646017171875*^9}, {3.460646101453125*^9, 3.46064616928125*^9}, {
  3.4606462186875*^9, 3.460646230953125*^9}, {3.46064626984375*^9, 
  3.460646273296875*^9}, {3.460646313421875*^9, 3.46064636403125*^9}, {
  3.4606464105*^9, 3.4606464141875*^9}, {3.462621455734375*^9, 
  3.462621457765625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "Null"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "Null"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.460645984046875*^9, 3.460646018109375*^9}, {
   3.46064610196875*^9, 3.46064614778125*^9}, {3.46064619690625*^9, 
   3.460646274453125*^9}, {3.460646325390625*^9, 3.460646335171875*^9}, 
   3.4606463675*^9, 3.460646414859375*^9, 3.462621473875*^9, 3.46262307925*^9,
    3.4626232706875*^9, 3.46262441821875*^9, 3.462626468515625*^9, 
   3.46267630825*^9, 3.462676346515625*^9, 3.46267662234375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["EX18) Ensemble des parties d'un ensemble", "Subsubtitle",
 CellChangeTimes->{{3.460629014953125*^9, 3.460629019921875*^9}, {
   3.46250491284375*^9, 3.4625049148125*^9}, {3.462626381546875*^9, 
   3.4626263825*^9}, 3.46276457559375*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ajout", "[", 
   RowBox[{"x_", ",", "Q_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"X", " ", "\[Union]", 
     RowBox[{"{", "x", "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"X", ",", "Q"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"P", "[", "E_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"Q", ",", "R"}], "}"}], ",", "\n", 
     RowBox[{"If", " ", "[", 
      RowBox[{
       RowBox[{"E", "==", 
        RowBox[{"{", "}"}]}], " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"{", "}"}], "}"}], ",", "\n", 
       RowBox[{
        RowBox[{"Q", "=", 
         RowBox[{"P", "[", 
          RowBox[{"Delete", "[", 
           RowBox[{"E", ",", "1"}], "]"}], "]"}]}], ";", 
        RowBox[{"R", "=", 
         RowBox[{"Q", " ", "\[Union]", 
          RowBox[{"ajout", "[", 
           RowBox[{
            RowBox[{"E", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "Q"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "R"}]}], " ", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"P", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<papa\>\"", ",", "\"\<maman\>\"", ",", "\"\<la bonne\>\"", ",", 
    "\"\<moi\>\""}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46064663934375*^9, 3.460646671640625*^9}, {
   3.460646728421875*^9, 3.46064672965625*^9}, 3.460646804015625*^9, {
   3.460822056140625*^9, 3.460822102734375*^9}, {3.4618317216875*^9, 
   3.461831730578125*^9}, {3.46183193115625*^9, 3.46183193809375*^9}, {
   3.46183199009375*^9, 3.4618320460625*^9}, {3.461832093734375*^9, 
   3.461832102296875*^9}, {3.461832485484375*^9, 3.46183249115625*^9}, {
   3.461832554640625*^9, 3.461832555015625*^9}, {3.461833732265625*^9, 
   3.461833733765625*^9}, 3.46183387740625*^9, 3.462505199921875*^9, {
   3.473621797625*^9, 3.473621799296875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "\<\"la bonne\"\>", "}"}], ",", 
   RowBox[{"{", "\<\"maman\"\>", "}"}], ",", 
   RowBox[{"{", "\<\"moi\"\>", "}"}], ",", 
   RowBox[{"{", "\<\"papa\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"maman\"\>", ",", "\<\"moi\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"maman\"\>", ",", "\<\"papa\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"moi\"\>", ",", "\<\"papa\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"moi\"\>", ",", "\<\"papa\"\>"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"maman\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"papa\"\>"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.460822104453125*^9, 3.461831736171875*^9, {3.461832034359375*^9, 
   3.461832047265625*^9}, 3.46183213421875*^9, 3.461832492296875*^9, 
   3.4618325675*^9, 3.4618337348125*^9, {3.461833864859375*^9, 
   3.461833879203125*^9}, 3.464922861859375*^9, 3.464923068796875*^9, 
   3.464924077921875*^9, 3.47362180071875*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Ensemble des parties \[AGrave] p \[EAcute]l\[EAcute]ments d'un ensemble\
\>", "Subsubtitle",
 CellChangeTimes->{{3.46492256825*^9, 3.464922576265625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"P", "[", 
    RowBox[{"E_", ",", "p_"}], "]"}], ":=", "\n", 
   RowBox[{"Which", " ", "[", 
    RowBox[{
     RowBox[{"p", "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", "}"}], "}"}], ",", 
     RowBox[{"E", "\[Equal]", 
      RowBox[{"{", "}"}]}], ",", " ", 
     RowBox[{"{", "}"}], ",", "True", ",", "\n", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{
        RowBox[{"Delete", "[", 
         RowBox[{"E", ",", "1"}], "]"}], ",", "p"}], "]"}], "\[Union]", 
      RowBox[{"ajout", "[", 
       RowBox[{
        RowBox[{"E", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"P", "[", 
         RowBox[{
          RowBox[{"Delete", "[", 
           RowBox[{"E", ",", "1"}], "]"}], ",", 
          RowBox[{"p", "-", "1"}]}], "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"P", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "3"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.464922599578125*^9, 3.464922679203125*^9}, {
  3.464922717796875*^9, 3.464922739*^9}, {3.46492287490625*^9, 
  3.464922884890625*^9}, {3.464923128578125*^9, 3.46492312884375*^9}, {
  3.464923278953125*^9, 3.46492330096875*^9}, {3.46492334925*^9, 
  3.464923425671875*^9}, {3.464923519109375*^9, 3.464923546390625*^9}, {
  3.46492376265625*^9, 3.464923777078125*^9}, {3.46492387134375*^9, 
  3.464923900046875*^9}, {3.4736217679375*^9, 3.473621778796875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.464922896203125*^9, 3.464923445890625*^9, {3.464923519859375*^9, 
   3.464923547171875*^9}, 3.464923779203125*^9, 3.464923904890625*^9, {
   3.464924065328125*^9, 3.464924082*^9}, {3.473621782*^9, 
   3.473621804234375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex19) Liste des permutations d'une liste", "Subsubtitle",
 CellChangeTimes->{{3.460630674796875*^9, 3.460630682046875*^9}, {
   3.4606464401875*^9, 3.460646440703125*^9}, {3.4625032768125*^9, 
   3.4625032875625*^9}, {3.46250492365625*^9, 3.462504925265625*^9}, {
   3.462626385984375*^9, 3.462626386640625*^9}, {3.462763907578125*^9, 
   3.462763917375*^9}, 3.462764579671875*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ajout", "[", 
   RowBox[{"x_", ",", "L_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Insert", "[", 
     RowBox[{"L", ",", "x", ",", "i"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{
       RowBox[{"Length", "[", "L", "]"}], "+", "1"}]}], "}"}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"permute", "[", "L_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "L", "]"}], "\[Equal]", "1"}], ",", 
    RowBox[{"{", "L", "}"}], ",", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ajout", "[", 
         RowBox[{
          RowBox[{"L", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "X"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"X", ",", 
          RowBox[{"permute", "[", 
           RowBox[{"Delete", "[", 
            RowBox[{"L", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      "1"}], "]"}]}], "]"}]}], "\n", 
 RowBox[{"permute", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<papa\>\"", ",", "\"\<maman\>\"", ",", "\"\<la bonne\>\"", ",", 
    "\"\<moi\>\""}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.462503453578125*^9, 3.46250346328125*^9}, {
  3.462504086921875*^9, 3.46250409925*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"papa\"\>", ",", "\<\"maman\"\>", ",", "\<\"la bonne\"\>", 
     ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"papa\"\>", ",", "\<\"la bonne\"\>", 
     ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"la bonne\"\>", ",", "\<\"papa\"\>", 
     ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"la bonne\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"papa\"\>", ",", "\<\"la bonne\"\>", ",", "\<\"maman\"\>", 
     ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"papa\"\>", ",", "\<\"maman\"\>", 
     ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"maman\"\>", ",", "\<\"papa\"\>", 
     ",", "\<\"moi\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"maman\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"papa\"\>", ",", "\<\"la bonne\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"papa\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"moi\"\>", ",", "\<\"papa\"\>", 
     ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"la bonne\"\>", ",", "\<\"moi\"\>", ",", "\<\"maman\"\>", 
     ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"papa\"\>", ",", "\<\"maman\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"la bonne\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"papa\"\>", ",", "\<\"moi\"\>", 
     ",", "\<\"la bonne\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"moi\"\>", ",", "\<\"papa\"\>", 
     ",", "\<\"la bonne\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"maman\"\>", ",", "\<\"moi\"\>", ",", "\<\"la bonne\"\>", 
     ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"papa\"\>", ",", "\<\"moi\"\>", ",", "\<\"maman\"\>", 
     ",", "\<\"la bonne\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"papa\"\>", ",", "\<\"maman\"\>", 
     ",", "\<\"la bonne\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"maman\"\>", ",", "\<\"papa\"\>", 
     ",", "\<\"la bonne\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"maman\"\>", ",", "\<\"la bonne\"\>", 
     ",", "\<\"papa\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"papa\"\>", ",", "\<\"moi\"\>", ",", "\<\"la bonne\"\>", 
     ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"papa\"\>", ",", "\<\"la bonne\"\>", 
     ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"la bonne\"\>", ",", "\<\"papa\"\>", 
     ",", "\<\"maman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"moi\"\>", ",", "\<\"la bonne\"\>", ",", "\<\"maman\"\>", 
     ",", "\<\"papa\"\>"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.462503464328125*^9, 3.462504100265625*^9, 
  3.470330402796875*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1352, 663},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{2, 10},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 194, 2, 74, "Subtitle"],
Cell[764, 26, 294, 6, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1083, 36, 446, 14, 43, "Input"],
Cell[1532, 52, 5403, 96, 201, 1883, 37, "CachedBoxData", "BoxData", "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6972, 153, 399, 12, 43, "Input"],
Cell[7374, 167, 71, 1, 42, "Output"]
}, Open  ]],
Cell[7460, 171, 285, 5, 41, "Text"],
Cell[CellGroupData[{
Cell[7770, 180, 1182, 33, 71, "Input"],
Cell[8955, 215, 23329, 392, 365, 13040, 221, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32321, 612, 530, 15, 43, "Input"],
Cell[32854, 629, 69, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32960, 635, 403, 12, 43, "Input"],
Cell[33366, 649, 90, 2, 62, "Output"]
}, Open  ]],
Cell[33471, 654, 304, 6, 41, "Text"],
Cell[33778, 662, 891, 26, 71, "Input"],
Cell[34672, 690, 140, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[34837, 695, 718, 18, 43, "Input"],
Cell[35558, 715, 13077, 224, 356, 5109, 91, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48672, 944, 133, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[48830, 950, 348, 12, 43, "Input"],
Cell[49181, 964, 859, 26, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50077, 995, 297, 8, 43, "Input"],
Cell[50377, 1005, 5924, 105, 231, 2070, 40, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[56316, 1113, 250, 5, 41, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56603, 1123, 197, 3, 42, "Subsubtitle"],
Cell[56803, 1128, 1665, 45, 233, "Input"],
Cell[CellGroupData[{
Cell[58493, 1177, 363, 10, 71, "Input"],
Cell[58859, 1189, 95377, 1558, 441, 68903, 1122, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[154251, 2750, 167, 3, 41, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154455, 2758, 222, 3, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[154702, 2765, 854, 24, 125, "Input"],
Cell[155559, 2791, 172, 5, 42, "Output"],
Cell[155734, 2798, 258, 8, 42, "Output"],
Cell[155995, 2808, 346, 11, 42, "Output"]
}, Open  ]],
Cell[156356, 2822, 488, 18, 79, "Text"],
Cell[156847, 2842, 682, 19, 43, "Input"],
Cell[CellGroupData[{
Cell[157554, 2865, 677, 18, 98, "Input"],
Cell[158234, 2885, 508, 14, 62, "Output"],
Cell[158745, 2901, 824, 25, 62, "Output"],
Cell[159572, 2928, 1456, 47, 62, "Output"]
}, Open  ]],
Cell[161043, 2978, 1069, 36, 85, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162149, 3019, 188, 4, 42, "Subsubtitle"],
Cell[162340, 3025, 183, 5, 43, "Input"],
Cell[CellGroupData[{
Cell[162548, 3034, 1107, 29, 71, "Input"],
Cell[163658, 3065, 759, 22, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164454, 3092, 970, 30, 71, "Input"],
Cell[165427, 3124, 526, 16, 48, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[166002, 3146, 118, 1, 42, "Subsubtitle"],
Cell[166123, 3149, 90, 1, 42, "Subsubtitle"],
Cell[166216, 3152, 93, 1, 43, "Input"],
Cell[166312, 3155, 1103, 26, 98, "Input"],
Cell[CellGroupData[{
Cell[167440, 3185, 498, 11, 71, "Input"],
Cell[167941, 3198, 334, 8, 32, "Print"],
Cell[168278, 3208, 68, 1, 42, "Output"]
}, Open  ]],
Cell[168361, 3212, 158, 3, 41, "Text"],
Cell[CellGroupData[{
Cell[168544, 3219, 700, 21, 98, "Input"],
Cell[169247, 3242, 94, 1, 42, "Output"],
Cell[169344, 3245, 94, 1, 42, "Output"]
}, Open  ]],
Cell[169453, 3249, 263, 6, 66, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169753, 3260, 163, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[169941, 3266, 1459, 36, 125, "Input"],
Cell[171403, 3304, 182, 5, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171622, 3314, 472, 9, 43, "Input"],
Cell[172097, 3325, 363, 7, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172497, 3337, 327, 7, 43, "Input"],
Cell[172827, 3346, 213, 5, 42, "Output"]
}, Open  ]],
Cell[173055, 3354, 299, 5, 41, "Text"],
Cell[173357, 3361, 1605, 47, 125, "Input"],
Cell[CellGroupData[{
Cell[174987, 3412, 191, 4, 43, "Input"],
Cell[175181, 3418, 163, 3, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175381, 3426, 127, 3, 43, "Input"],
Cell[175511, 3431, 209, 5, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175757, 3441, 1165, 35, 179, "Input"],
Cell[176925, 3478, 158, 3, 42, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[177132, 3487, 162, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[177319, 3493, 1136, 30, 179, "Input"],
Cell[178458, 3525, 238, 6, 32, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178733, 3536, 520, 16, 43, "Input"],
Cell[CellGroupData[{
Cell[179278, 3556, 67, 1, 32, "Print"],
Cell[179348, 3559, 68, 1, 32, "Print"],
Cell[179419, 3562, 69, 1, 32, "Print"],
Cell[179491, 3565, 70, 1, 32, "Print"],
Cell[179564, 3568, 71, 1, 32, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[179696, 3576, 165, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[179886, 3582, 952, 27, 179, "Input"],
Cell[180841, 3611, 284, 6, 32, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181162, 3622, 793, 19, 43, "Input"],
Cell[CellGroupData[{
Cell[181980, 3645, 191, 3, 32, "Print"],
Cell[182174, 3650, 191, 3, 32, "Print"],
Cell[182368, 3655, 192, 3, 32, "Print"],
Cell[182563, 3660, 192, 3, 32, "Print"],
Cell[182758, 3665, 193, 3, 32, "Print"],
Cell[182954, 3670, 193, 3, 32, "Print"],
Cell[183150, 3675, 194, 3, 32, "Print"],
Cell[183347, 3680, 194, 3, 32, "Print"],
Cell[183544, 3685, 194, 3, 32, "Print"],
Cell[183741, 3690, 194, 3, 32, "Print"],
Cell[183938, 3695, 196, 3, 32, "Print"],
Cell[184137, 3700, 196, 3, 32, "Print"],
Cell[184336, 3705, 195, 3, 32, "Print"],
Cell[184534, 3710, 195, 3, 32, "Print"],
Cell[184732, 3715, 198, 3, 32, "Print"],
Cell[184933, 3720, 198, 3, 32, "Print"],
Cell[185134, 3725, 197, 3, 32, "Print"],
Cell[185334, 3730, 199, 3, 32, "Print"],
Cell[185536, 3735, 199, 3, 32, "Print"],
Cell[185738, 3740, 196, 3, 32, "Print"],
Cell[185937, 3745, 197, 3, 32, "Print"],
Cell[186137, 3750, 200, 3, 32, "Print"],
Cell[186340, 3755, 201, 3, 32, "Print"],
Cell[186544, 3760, 200, 3, 32, "Print"]
}, Open  ]],
Cell[186759, 3766, 93, 1, 42, "Output"]
}, Open  ]],
Cell[186867, 3770, 379, 8, 66, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187283, 3783, 208, 3, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[187516, 3790, 1212, 29, 152, "Input"],
Cell[188731, 3821, 984, 24, 116, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189752, 3850, 473, 13, 43, "Input"],
Cell[190228, 3865, 179, 3, 42, "Output"]
}, Open  ]],
Cell[190422, 3871, 104, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[190551, 3876, 342, 10, 43, "Input"],
Cell[190896, 3888, 135, 2, 42, "Output"]
}, Open  ]],
Cell[191046, 3893, 99, 1, 41, "Text"],
Cell[191148, 3896, 165, 3, 51, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191350, 3904, 232, 5, 42, "Subsubtitle"],
Cell[191585, 3911, 109, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[191719, 3916, 743, 18, 43, "Input"],
Cell[192465, 3936, 281, 6, 42, "Output"]
}, Open  ]],
Cell[192761, 3945, 109, 1, 41, "Text"],
Cell[CellGroupData[{
Cell[192895, 3950, 766, 20, 43, "Input"],
Cell[193664, 3972, 189, 4, 42, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[193902, 3982, 161, 2, 42, "Subsubtitle"],
Cell[194066, 3986, 188, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[194279, 3994, 1048, 32, 71, "Input"],
Cell[195330, 4028, 1347, 42, 164, "Output"]
}, Open  ]],
Cell[196692, 4073, 207, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[196924, 4081, 1167, 33, 71, "Input"],
Cell[198094, 4116, 1476, 44, 164, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[199619, 4166, 114, 1, 42, "Subsubtitle"],
Cell[199736, 4169, 176, 3, 41, "Text"],
Cell[199915, 4174, 516, 13, 43, "Input"],
Cell[CellGroupData[{
Cell[200456, 4191, 153, 3, 43, "Input"],
Cell[200612, 4196, 613, 11, 33, "Message"],
Cell[201228, 4209, 389, 11, 45, "Output"]
}, Open  ]],
Cell[201632, 4223, 162, 4, 41, "Text"],
Cell[201797, 4229, 850, 21, 71, "Input"],
Cell[202650, 4252, 110, 1, 41, "Text"],
Cell[202763, 4255, 918, 23, 71, "Input"],
Cell[CellGroupData[{
Cell[203706, 4282, 586, 11, 43, "Input"],
Cell[204295, 4295, 255, 5, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204587, 4305, 446, 9, 43, "Input"],
Cell[205036, 4316, 399, 7, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205472, 4328, 358, 7, 43, "Input"],
Cell[205833, 4337, 392, 7, 42, "Output"]
}, Open  ]],
Cell[206240, 4347, 965, 26, 98, "Input"],
Cell[CellGroupData[{
Cell[207230, 4377, 307, 7, 43, "Input"],
Cell[207540, 4386, 216, 4, 42, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[207805, 4396, 158, 2, 42, "Subsubtitle"],
Cell[207966, 4400, 436, 12, 43, "Input"],
Cell[CellGroupData[{
Cell[208427, 4416, 205, 5, 43, "Input"],
Cell[208635, 4423, 96, 1, 42, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[208780, 4430, 196, 3, 63, "Subsubtitle"],
Cell[208979, 4435, 710, 19, 64, "Input"],
Cell[CellGroupData[{
Cell[209714, 4458, 240, 6, 96, "Input"],
Cell[209957, 4466, 263, 4, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[210269, 4476, 203, 3, 94, "Subsubtitle"],
Cell[210475, 4481, 1657, 34, 96, "Input"],
Cell[CellGroupData[{
Cell[212157, 4519, 769, 13, 96, "Input"],
Cell[212929, 4534, 497, 8, 94, "Output"]
}, Open  ]],
Cell[213441, 4545, 320, 6, 91, "Text"],
Cell[CellGroupData[{
Cell[213786, 4555, 744, 21, 159, "Input"],
Cell[214533, 4578, 284, 5, 94, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214854, 4588, 951, 24, 96, "Input"],
Cell[215808, 4614, 602, 12, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[216459, 4632, 242, 3, 94, "Subsubtitle"],
Cell[CellGroupData[{
Cell[216726, 4639, 1916, 49, 402, "Input"],
Cell[218645, 4690, 1678, 40, 208, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[220372, 4736, 164, 3, 94, "Subsubtitle"],
Cell[CellGroupData[{
Cell[220561, 4743, 1508, 39, 280, "Input"],
Cell[222072, 4784, 992, 27, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[223113, 4817, 387, 5, 94, "Subsubtitle"],
Cell[CellGroupData[{
Cell[223525, 4826, 1315, 40, 280, "Input"],
Cell[224843, 4868, 3334, 76, 490, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)