(* 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[     52803,       1077]
NotebookOptionsPosition[     50805,       1014]
NotebookOutlinePosition[     51310,       1033]
CellTagsIndexPosition[     51267,       1030]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["P\:0159\[IAcute]klad 4", "Title",
 CellChangeTimes->{{3.4909917860985985`*^9, 3.490991790457974*^9}, {
  3.490991845051724*^9, 3.4909918611298485`*^9}, {3.49125193084375*^9, 
  3.491251931359375*^9}},
 Background->RGBColor[1, 0.9, 0.8]],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztvW/IK1ee5/dc+9KjNjN35dnpu9rpnbkKNF6xiRex4EEvkovYQCwIuwgz
BGXJesUE0gJD8ix5I2ezPAm7RF46Gb0Ygrrt2y2njVvtud6WGzPW2Pi2etpg
2dBBvRd61RA3WmyMLsRpgcEUhjtSfvcpu3RUVao6der8q6rvh8JcP49UdaSn
fnU+59/v/Ed/8j889ScPn52dvXfl7Oy/o388+PceAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAHlhd3bmO3S+HQAAAAAAWI6Y7wXfBWkEAAAA
AMglsnRR+FQAAAAAAMBmhB3v1BshjQAAAAAAOUPY7iLMEMYIAAAAAJAbpHcw
pjwtAAAAAABQTVKRU7HaBUtgAAAAAABsxlpjhDQCAAAAANiAPboY+mL5HxgA
AAAAACQExggAAAAAAKLRYIw8F0r6MgAAAAAAoAfbdDH0xYKfDQAAAAAAyADG
CAAAAAAAooExAgAAAACACJLqYvCHUi4U+3qxTwcAAAAAANIDYwQAAAAAANHA
GAEAAAAAQAQCuhj8efoL8bxF4NMBAAAAAID0RIhc8FcwRgAAAACAAhKqhRHH
qXcJXMj3K/7XAwAAAAAAnQjoYugbU14l9i0yPzMAAAAAAEiCHmOMvVDs66V9
YAAAAAAAkBDhoeeko8aJjBFD0gAAAAAAViGgixFv5L8QOhgBAAAAAHKPop5A
dDACAAAAAOQJDcYo5ZwAAAAAAMAU0vsD0cEIAAAAAJA/JDoedBEAAAAAIK9I
MT3oIgAAAABAvknpe9BFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
kB9Wq127vev19vO56aIAAAAAAAAb2VWrh7XVnc5+szFdIgAAEOfsO2e+w3SJ
AMgtCLdCsSuXjxLylEq7i4u945guFwAAiKCzCkt5LdS2IOvIuocRStlgPA5m
cdxVq/vp1HTJAAAgMdrqDrELBd+Fmg5kFyk3MEIpSywWu0YjxBubzf1yabpw
IARFAYKgA1knc7qos8wAyMUqXZRVHsDFeLyrVEK88fx8v92aLhz4gthWVZoY
gTECwINwmJx6I+IOFBOEUobZbnf9/oOpjD5pLJf3w6HpwgEuXZTY0EO4ARCK
cIxExFcm4u6MG84z6Cw88PhHJ9BfkqyEUkhnGo7I46/rdWTgYdEfdOqMUUWP
JQC5RHqvSMrTaoNfF08JIb9YAhWcqrNMeWOGQsm4gGX1aLf363X67z+7mAq6
CJ1Lb3owRpAD9Ny9Apfgb+vZHHoCxsg6IY9SAqVwVl6c9Zf0ngqxi+oJJfPq
lc3jfqWyn0zSf//ZRW7Q8aOuVZWtaguAU2i4e8UuIVbN2RZ9YsbI6ZNAA1YZ
Y7ZCybh6Ze64Xyrt+n2kauQPOonSyHP/KwpAWR8BAKXouXXV1XHC59cDj+zB
GC3nVN0kUHmlD7fChlKuWCz+ul4PMcbCD0Z7nAqoHBij8EkAMA6MUSmcsgdj
tJmIWgnGCJKx2ew6nZCuxVptP5uZLpxFRIRS5owx+HoYI8goGm7dNJfgfK+1
AQhjzAESK6+UN2qRQynzOM5+MLgfSKpzv1ymn5suXJbIljHytMsQZSAT6Llv
VddxKa+iDmFdFDsP0E+iyit9uBU2lDLPanW/Wg0Zhu719puN6cJljOwao/BJ
AEiKihiBMSoFxph7YIyAh/u1ms8V/7rR2C8WpsuVPdTp4l6BMZ56JYwRKEVR
mMAYlcJjerJeA4wAYwQ83Gd2BnyQOWc8Nl2iLBGMMhW6uJdtjBEvgzECdSiK
FG03rdhVkhbPtgAU6DkU7oQERtCsi8GTiL0rc6GUB4bD+6XSF5lzsH90QvTo
4l6qMUa/BsYI5BLRqoIxSryKOkKFMBr+U+n8ICCUpFEJYwRADKX1IIs6Y4w9
5H4QUDQsMUbOOzzRSSQWL/1V1CFLF0NPpe1TgFMkDcmk4Rb93kKFEig4GmpD
F1nGmFQXEWUgJapjREpDKfRlsSeRWLyUV1GHFFGMOJvq8oNoVOjiXo0xZj2U
APBhuTEK6CKiDKQkE8bIeecXsJqT1bt46mwaPgI4hUAwwhgBkIgpaRRTShgj
0IwRYwz9bXpjFKizggVIfwmlRDgejDHTiEWicLiFvrdQoSSFzeaz+fzj0eiX
Fxc/b7XeaDZfDx7n5+8OBkt62WqFlSm2o9MYvRDgCUDO2MlllAF7kBsgnLer
LGMMvitp8ZJKKfc3oYRowRPoZoQxWoI6XdzzGWPwbEkvna1QSgnpH3lgtfqD
mG8hcJTL4273p9Pp2nHum/4QRSQ2stQZ4z5JJ2HsG/kvIbH8AFhojLGvjLii
QAkzVM3FCh6MMXMEA5A/Bg0aY+jVMxRKYpDpke9VKi8lFcXgUSrd6nTeHo9/
td1+bvpjFYjY+MqEMSa6hMTyA6DfGKN1MaUxxgZImjg1Hn0CxhgtgTBGs6TR
xb28IWn+s0VfPUOhlIj1+lOyu3J5nF4UQ492+835/GPTn7IQRARaaDDKNcY9
nzRGvyXp+eWWHxQciQHCea8KBwvndQXKyVPbGg89TruLflmoUkag5ZMVlFM1
VATs2wXCLfbnBQklfjabz87P3414YJVKt5rN13u9d9yZiqEH/YpOQi+L7pxs
td5YLj8x/YlzTpqIk4hw4MAYgVm0xYgHvy7uhYxRVozYFnrCxngWuToGxmiK
lMbISRpjzGso8bDdfn5x8XMSwtBHFTsdcZeE2AmQnc7b6/Wnpj99brFBFwHI
LprDJJEu7vmMMXhaFUWVcs5U5eHWORhjJtBgjIl0MfirvIZSNCSBw+Hd0DHo
SuWlXu+d2ezDRJYYynL5CRlprfZK6NOQrHKz+cz0N5FDoIsApCGXxpi+VrKt
VySRy0W4H4zRHjJhjPkLpWi2288bjddCXXE0+mV6UQwyn39cr78aekUMUqsD
rgiAAAaNMfi/sa/nPHPKiilbdRwApwi9hxMFXaFCiQwtOF5cLo8Hg2XS0eek
TKfr4KVLpVuTyQemvxUAAPgCWca42Wzm8/l4PL64uOh2u80AvV4vWHHE1iaJ
6hop1VO26jgAIhCIuNCXFSGUyNl8sxbpf/v997fbz5W6Isto9Mvg6hgqg+nv
BgAAHpDGGJfL5WAwaDQaZ2dnlUqFtJBckYyRvHEeYDQaHT0Iz86q1eqpCiVY
13DWOykrqWzVcQBEIxxHoe9NeekUn0M5Fxc/9xW32Xx9s/lMmyt6OM794Ors
dvtNpG0EABgnqTE6jkNC2Ol0SBHr9Xq/318sFpzX8lUf6/V6NpuxP2y1WiSc
pJdpajoAgAuCKBYytE7nbd+3Q86m3xVZJpMPfB2e9fqrWEMNANAM9yx7v0Bu
NhvSuWq12u12J5MJ/W+i656qrXwVGV2i2WzCGAGQAsInGp8ukqcpWuGSlMXi
nm+EulZ7BT2NAACdCBjjarUiSyRXJJ1LKorCzOdzulyr1SqVSo1Go9/vz2Yz
PZcGABSBwWDJKlm5PCZPM62KBzabz3zLqFutN0x/ZwCAApHUGMkVa7XaeDx2
HMdUmReLxWAwIHssl8udTocKo01cARAjOJXXZTgcXsRBt3pw7VgiTp3ZVxiD
QW2c6XTt68Fbrz81LYl+HOd+u/2mb8Tc9DcHACgKSY2R9Mx0kQ9st9vJZEIS
686iJI1cLpenXtz9aXf8q7HG0oHMQ7cTK1Sz2cxnXP1+P6hnpVIpmMrylMud
n5/HGiNd95RwcnLqzG4Z6v9VvfyvymzJq9Wq+yt38dpoNKKTRARX1lmttmyO
bvq3hbroQtLoSxGJlDsglv77/eHdoXO/uE1CoI3NZtPpdFqtls1deVSdUfVN
3kj2SNXcdDr1vaD5+oP5kNUfVOGNBWS9Xp8yKF/2J1bz6HZif+UuxWKhRkpQ
zzLUUzf/eO7GhW9Co/d1uQmyer3eA7Gs1z2Z9DTSUMFlst1+ziY/LJVuzecf
mxbDKDabz3wFXizumf4W00LNfy+C6Ol9qnWjGqpEYltwLCmbci7uQIM7lEBV
Lf17MpnQz1erlayvt/vTLt0slZcq8EagFDKxWq1GN7DpgvBCWkvVXLvdLpfL
JAPedEevZoQ35o850wFIj1z34U/3red+XqeZC/vM92V/Mv1RNMG6YqIlMK5M
ehpJ3y3VdGTO/EkSrMJx7jebr7NddpYsdYlmufyEXT1dqbyUiW0E3ZvHl6fX
jVB6XHvhSU9vRW4WC93JiYxRiqa6Aw3uUAJVtd5DzHuC+V558WV7zYWnJ8c1
RveANwJF0D3caDSo9We6ICJQsenRRNVZpVKh2u0fvPwPfKtE4Y3ZhaoeaphT
zfIgjeflE9XrAHSb53OpLfQ8EXTFlIum6SnR7/fpQeEGWrYGr4fDu+y30Ou9
Y1oGeZlMPmBL3m6/afq7DMGdOESe07yc8+A23Hx5ek2XMQN4cuhNe3bbay4U
d17TmMKQfRjS6903/tM7/9QX7/BGIBeKdKqRMzTEdgpqglGL7Nr/ei00OQ+8
MVuQB9Ijkaoeqoam0ympo+kSZYZTrigrzY4baPV6nf46VFXZ/+hwnPtsyppm
83XV2//Jpd9/n/0TWrXxNAkhxam7ONH1FvvvhxywWCzmzICL6+rEw//tw6FR
D28EUnDzcucpxiPqSnhjVqCHITWi0S+RlGhXlJ6YkTSeqir7vZHtYCyVbpFx
mXbAZJDfshMaLelmJGlx8/QiTu2BHZUOHr89+u1v/vk37/1/mZ8NC4xAz3mK
d9OlkExsjQlvtBzyENJFm5dfWQiPK0o3Rhf6S5E3usm4pJ88PZvNZ2wHo/GN
XcTwJQWazz82+626G8Wi5982oo3RPR76Px668Sc3/sX/8i8wnwfwQy3EZrNp
c8+AGJz1JrzRWlqtFtK288PvioqM0YXkwU34b9vqOXa/5lLplpFto6XApvWm
fxv8SkkXqY1gsADgFDzG6PU3Xv+vr//d/+Tv2tnQA1ax3W7r9bqUFmKi2srC
Q5Y3rtefmv8wth4XFz/n/BpHo1Gv10v/5ygCSV3RzkPpV0R+yK41zmgHo4uv
m5H+V+lXdwoSjPyNTAnDb2h2Hr83/r0/evaPbnzjBqYWgAiazaasOyQHddaZ
DG+EMUYcnMY4nU7b7Xaav0JByIcruofSL6rff8+7kpuaRszWfIXW9l4fbIKg
RsOfilYDs9ms1Wrpv661dOdd4xGU/vjai1/7xje/8fz4edNfJ7ARd3WVrLPl
o+b6g5f+AMao7uAxxrxOk1ABjJETdsHIcHhXWNV8hdb2Xh/L5SfsqeiZo/Tb
87HZbKrVKiKUJR/G6K6kvvmf30RPI/CxXC7r9brEE2a95vrDl/7wj//3P3az
uKRZbQFjjDhijXG1WmU3I6gp8uGN6r6fxeKed5lS6VaajDq+Qmt7bxC2m3Ew
0JoSk56Qw+FQ5xXtJ+vGyGbdWa/XtVoNLQLA0m63gzvr5QmxlS8UJvQwJG/s
9/ti3sIaY7X6g5T1Qg4gS/S+kGhjpC+fnlRYdymGJStfTjEajUyle2XvwE7n
7TQ3sz3GOBr90jsV2aO2L5P+guVyGTphOfwGG5qhkSpBrGkCHtI7GC0kTXYd
eh4OBgM3v1zS68IYffAbY7fbxXq9lBjMrhPLZDLpdDr6r1ur/dD72OPxr9Lc
zPYYo28sQ9umgZhjnAl4jDEim/d2u6V2gf5iAzvJfQfjXkYGb4oaamc1Go1E
W+jCGH1wGiNqIolozuDNj/4l8Gw8lkq3ttvP09zM9hgj0Wi8xpqwnu8TQ9KZ
INoYeXZ+qdfr2doAFCiiCB2M+9PGmHQ1NOkiSSPVdJyvhzH64DFGx3Gq1WqR
k3WTycznHw8GS6r6Fws5ezGo3iVQDLkL7mKhr9T7zK3WGylvZquMkY0s+mh6
vk+J6TWMs9l8RkFHX+Nk8oFVWy6m55Qx8u8SGNs0oJpuOl3Tt3e5d6vWtVdA
JwVJjBysK9Nkzun1epzVHIzRB48xarYIq6Dail3JyzrAaiVhBdApb0x/ZmEo
mvibYClpNKbeZx6NfpnyZrbKGOn2YLpPX6BGh4bvk1p2OZhpPBzeZTcA8o5O
521t4/tKCRpj0h2lT+XbdJz7/f57dL/5vrpy+Xvn5+/quQmBNijYKeRNl0IH
bC0pJTs353AMjNFHrDEWNlkH1U2khSeHji41QNYy2KA3SjmtMEknewjDfp/p
93mxyhiJWu0V74Syuqbjvk/Dd05KSLPZRkTwIPPRNsSvDtYYk7qiS6gx0j3G
zgoOHuThs9mH8j4HMMxgMOj3+6ZLoQO3fpS4AyDnyCmM0UesMRZzZhTVXFQ3
RTx72c5GWRdlvVHWOcVYLpckjaqbCWwvnJRgtM0Yu92feifU4DlZ73CYzz8O
do6FHr3eO6YLmwrXGMVc0SVojJPJBzxfnZ5bEeihONNZKWSk7xbNk3MAxugj
2hgL28F4oqPj+dAnsNyEe643SjyhGBqmIrAb6qWfxLizzxjZWZr9/ntKv8x9
xo3Rce6HTf8Ijzg6SJBMF1mc/nt9YVd08Rkj1Ws+2S6VbjWbr1Obhf7LbsF5
+asXpMyoAWZZrVa1Ws10KTIMz6IhGKOPaGMs5gxGtqLnOXL5BKZmAkUTPZTU
XWI4vOt9h1L2krbNGFkl7nTeVvdNumTaGHu9d+Jc8dvs/7q7SZoutTF8xshm
jL9snrzPZsK/nNz4PvsCI5tXArkUs3aWCI9ywxh9RBhjMZdIb7efcw6NsUe7
/ZemCy4fNxGBuvOz916azQE9bDNGdthdQx5vCtVKpaL6Kipgvyj+g1oZpgtu
DHYCG9swcXtfQ+9G38tGo1+a/QggJWQ7Slv0uYcnZyCM0UeEMc5ms1arpfIv
ZiOz2YcClRdJpumCK0HpPBm2Wyll7m4X24yRfdrU67cVfY0spVIpi3NI2C1y
+A89X6mddDqdyWTi/pvM2ftOondNYifWauj0BuqQ1TxkBQBH9AFj3B0bI47A
cXIaFQ65X28ujXGz+cz0N5yVA4Em59ubTtcRN+R8/rH3yiL7dg6QtacGBID/
gDHuYIwyj2+rv0TOjkNNR3VZ+pvZd35t7+U/LQ7ZB4Lu6FivP424G7fbz9kX
p/cNYIp+vz8YDNKcAVV/0gPGuIMxyjxQeSU9YIw4Uh4IuqMjOqmp49xnXyzL
XoB+0m/1gqo/6QFj3MEYZR6ovJIeB2M8NV0/Eb7za3vvKTAqjUPzMZt9GHFD
Lhb3vFfWaj+UZS9AP+mXvfBs95ZLlstls9ncbrnSm2Dli49Tt01hV+77VhRG
HgdFLJVeoPa76bKrolwuc8ZXIgq18kVPBT2ZTDqdjoYLyYXNs8Q/p7GYzuM4
TqVSYeORjaPoLFVsjp1cpncoDumfycU0xkS6uIcxBoAx+hDLrpPv/Gbtdns6
lf8B2Xsv/abSO/uMcbn8xDuhhuw6+8ymZGS/KP6j252bLrgBgiksfCvNF4t7
p+5GNpU3sutkFxIeMsaUJymgMS4Wi0S6uIcxBoAxBgkkEw49jnpC5vOPTZda
IelnWYdSqAze2rp0yBjJG/VcSyLRe7hfHkezPnKZNp+HYPPNce6z20mXy+Ng
j/1s9mGl8hJb9+V4TCT38GxWEkvRjJFqsUajkbRjFsbo49RtMxqNer2e7D9a
Nki6YVnWd7mNRVHzgU192W6/mf5mts0Y2c2DtKWbprCl4NVzLYlsNp9x7uTu
HnK35swKp1SBnaDoHvX6q3TL0SOd/ttovOb7bb5buLlnPp83m2l3ki2OMa5W
K3JFsU4PGKOPU7dNMTd88aAnKufYdL1+O/etdUXGyO70Uau9kv5mts0Y2YTJ
2gYBpfQ/GGEy+YBTF1utN0wX1gwR80P6/fc4v70i75WTD6RMVy6CMW63236/
T8/DxWIhdgYYo4+I24acvLDdjPvLZjs71hN6dLvz7fZz0yVVjropCuyXGZ0Y
hAfbjJE02EivjtKdepTiGzwNPUiNct9GCyW2LTAYLKPbufTbYvbN5gzfruJi
5N4YR6NRrVYjjUmzDRaM0Uf0bUN+TneminWymYAqJqqeQh/CVK9R7Wa6gDqg
cGs0GooMpNGYel9p+uXSVhkj+6ihW0hny2K1WpFaZHG7wP3l0rNTE4mpBUft
ONMFNEaz2ZzP59GvWa22zebrod8e/byYMz/zB7uruDA5NkYyanoA9nq99IOk
MEYfsbcNffmVSoW8MaO9Fukhb5xM/h/vW/q933txufzEdKE04U6YSZkqNgJ2
pl+r9UbKm9kqY/R9NEVf4Cmk9EIYhLxxOPx33hf49/7enxfcdobD4fn5OeeL
qZqj9iw9z92D/k0/UVo8oBMpgz75M8btdksuLVdXYIw+eG4bx3FcaS+Xy+12
m55dJBIZ7cEQw3fbmC6OcqhpNhqNGo0G6aLwDBAe2KmMpdIt8oQ0N7NVxsgu
NzCSyYRittVqZbehx26CrCc3kbW4WUEK9cgFEcAYWVarFdVWZCbkiv1+X+7i
Cxijj0S3DTn8dDqlpi49vkqlEgkk/aPX69HdO5lMSCPzOn5dBGNcr9fkGPTX
rNVqFHr0D6Wu6MFOFk2/84uY+EnXRd9uL/S/Gr7JILPZjBp6nU4ni/l2YIwu
JIr0R0y5wQfIE1QFD4fDlCeRaIxUU1DtT0UiEyBna15ClchZHK5C+CD3u4iD
2sL0Sqqq6CT0X6qtyExUNKlgjD7S3Dbkh3SfkN7TX5BqJfoL0g1AJkn/oP+l
H9IfMR8PuvwZI/3h6K/j/eHor1atVrvdLv01Nf/J2Duw03k75f1siTGySZWN
2w615tw/rqKHqiJgjPtLXaQKVN20EJBFKJapdZ/yJCmNkWoQVw7J2dzRKPJY
qlAGg8H8Ep6+PlchfLgVUzQUEfRKDVXV8XT0W/QgKvjBJh6U0jVNjzj6U1Il
RX9WetaR/7sOSbcT/TCj6Xr0GCPZmtt0cof+xcKBvmEv9Ch43fiiJ4zbfCOl
dxt3XlPO7Rw2KBJsKjkKSce5n0bVfO7Ho38Cb4mFXX1gyepUqmLoL043ALUR
6I8ut9eRbiF6htPt5A5AuPUIi/sQSDRmBGOk+lTpLGKQUQwaI92TFObUAqU7
05XDlMWwHLbqx+E7FE1mcB2SFIiqqkql4vYhZ8seVRsjhSG5In0tbtPJHfqn
L4oCk/U6D1//v9tJ6FbN9A17P6QXuMZIjxf3jXZOG2CbLcPh3ZS2lsgAVeii
b887qxYdUDC6ydyql9A/3GnJpwSSbYB4WsgODLk3Hv2D/pd+6J4tWI+4DwGq
YuiupgLwFLXgxkgNRtWziEFGMWWMo9GIHhoU5lmc5SIGjFG/Mfpw56m69liv
18lq7G9EqzZGqhpCE/NSYLJjxx6+/v+sL0Rikw9XKi+lTMwYem+nfGUi2A5G
mzccp7uL5M3tFaSKIHSiEdsA8bSQHRg6deOxXyr7c/5+s8IaI/1d3AZjdlct
AaXoN0YK20aj0ev17OxzUAeM0bgxstAjkbSHqiG3m4KqITt7uZUao6JdmzME
KSKb9DL9HtPCIZBeF9m9pOmg/zX97ZrhlDHuL/stSVBj2ziFMsbFYuG2DV17
T7+uAeQYKVUGvzG6rbxidnc7zn16EOEIPcwOn5Erug9Mzx5ns5klXWfqjJGq
iXa7LfGEGYUs0fuGS6Vb0vd/0aOLRL3+qnfCev226e/VGBHGuI/c7c4jE8YY
MWofDX0Dbret27vbaDTc+Sd2NpmBVbi3UOqTcBmj0h0cAJCCa4+tVqtUKtHt
en5+TvWLwXmPioyRs7OlCJAistvDpe9mdNHpirtAB6POnQFtI9oYefJR22aM
FKckhN7kYXcCZ8SofTT0QHMlszhTwoAsdBqjlEw+AGhjsVjQHevm5/QyL2me
TaHIGBGMLMPhXbabcbn8RJbIaXBFwnHus0t42u2/NP2NmiTaGN29hKLPYIkx
usvQ6vU6KSIJoTd5GA09YAptxpjp/UYB8LK7l8vlRqNB7X09gzgqjJHCkD4F
gtGDjIvtZiRJSJlpRzP9/vusixZnK8lQsm6MFJjuylA31RVG5YA9aNtXWsoS
GwBsYLFYUOC4w0P0VKfHu7phaxXGSAXu9XpSTpUb2G5GOnq9d0xrIC+TyQds
ydvtN01/l4bJtDG6e+VQeGLIGFjI8+PnW/99y11/sLgnuCCFxxjL5XLRFkeD
3OM4znQ6pce7l67H1yHAru8Ru4QKY6QaE7PcfTjOfTY1zdnljsymZTCe5fKT
UumWV2Y3QZDp79Iw0cbIs+DLlDHSk6TVauVjsyqQS771vW95wVX9QVXsJLHG
yNOsAyDTuOl6yBur1Sqpo/vYj668eJBujNRwo+Zb+vPkj+32c3Y2IJkYmYNp
JYyC5NBX4MXinulv0TzRQTcej7vdbvQZ9BsjtT3JFUejkYZrASCMHmOUMlsS
gEywXq/dDSYebFZunzHy1JiFZbUinR57Xzj9m75/02IYjuPcbzReYztFJ5MP
TH9/VhAddDyVkWZjJF3ElnwgE+gxRp4UWADkjNVqZaExYkZxNL40NbXaKxZK
I+liu/0mW87z83dNf3O2EB10PPe/ZmNE/QiywuStiQZjrNVqmJsBCghbeVFV
JTCbXbox1ut1rL6MZjBYsjJWLo8Xi3umJfHAZvMZm6ybjlbrDdPfmUVEGyPP
JF6dxog8VyBD/OivfqTaGB3HKZVKqUsKQPZgK6/xeFytVpPujynXGDGJkZNO
521WyUqlW5YshCF3ZRMBub2g2+3npr8wi4g2xkqlEpvZQJsxYoY/yBbv/Pt3
VBvjer2mijJ1SQHIHsHKazQa1Wo1/qXKco1xNpu1Wq2UJykCjnPfJ41n8raD
EWYy+YBdGX32YDfAV83usGkhEcbI2X2hxxipMPV6HaNvIEP86v/9lWpjXC6X
FBepSyqJxWKPSVxAF6GV12azIW3jnEwo1xil5F89CdV9+RpfY59snj+k33ha
ADJYdv9r92i330TvYpAIYyQ9o/Za7Bn0GGOyBaGOs6MXI0MdMMr607VqY7Sl
450irt/fnZ3tqI2JZh3QwqnKy3EczhUoco2x0+lMJpOUJwlnMKDIovja5yvT
43S69nXr0f/2+++TqmnTxdHol76RaDqoDKa/G0uJMEbOPnYNxphsE7TFYler
Pai8kOUAGKU4xrhrNh9EnHs0GqaLAwpB9JQqqrxiU2rINUZFa9CoIjsEV7W6
z9f+g8vlJ2zaw7Mvl8MMBkvVmwmSrwYvTcqKRDoRRAQd525HGowxQRb9+fwQ
XNQiQxIeYI7iGON+Oj2KO+RKBeqJNsbNZlOtVqP7GSQao8JlL8slG1w7dQPf
hthuP/clP3SPSuUlRStiSFp8C6K9KxZ82+hYIoKOcyBYtTHy7DvDsqvXc9wi
AxmiQMZIcdfpHOKuVNor2wsYAJdoY9xf7gsWvdGDRGNcLBYNZb3rX0z58Fpk
uUvg4zj3h8O7bH5v1uJ6vXdmsw/TiyLZID1Ca7VXglc5u1x6g00AY4kIuthw
c1FtjIkzXFGL7HLKxxfH+bn0IgHAQ6GMkRRxV6kg7oA2Yo0xdmKVRGPkHJIT
xHG+mGrlHkm6UDLEdvs5PeJ8MxvZoepu96fT6TrpaDUpCtlgcADaOzqdt7Em
mpOIoOOcx6vUGMXyFewuLtDdAYyjwRg5l6dpYjhE3AFtxBqj4zjlcjliYFqi
MSrPFeyb+JHfCVebzWfBlcu+qYZkGr3eO/Q8nM0+JAMJHsPh3X7/fXpZcFUL
e7Rab2AYOhERQcc5e1CpMQru8EItMnR3ANNoMEa78jEWoycEWEKsMRKNRmOx
WJz6rURj5Flok5Jdq3UILntyaqmB/jSdztuh49RSjnb7TVIX058ye0QEHefK
L3XGmCrX3Hic74kfwH4KZ4z7QE8I4g4og8cYo/s9JBojz24XaTleArMvxm65
0+m62/1pdFch51Eq3SILHY9/hUSLwkQEHWcIqDPGlFtIHy2BQXcH0I4GY7Rw
l8CjuOt0TBcH5BZ7jFFbGFJFVpxuRh+x0xFPHewESNMfIvNEBN3Z2ckwZFFk
jBI6T3zdHUgsnAuCjwTTJTqJBmPcc8epPti4w2xGK8lQEEVgjzHq23qpkN2M
Pjabz9iZiqEHPSrpBfQypUta8hFHibDWGJNt8nKCo+4OzGbMBWmCNGWAJ317
QY2R4o6dzYi4s4/0NZ3mUIo9yanXRM+tkmWMSVPApeGomxFjZ0bRaYw2RNze
YmOUMy1kMkF3R84QvvPF3hh8F/9J9BijjglUSfEtmkZOVMswUvukCaXYE4a+
IDartixjHA6H59paRr5uRkwVNoc2Y7Qk4va2GqO0Jptv0XTqTktgFuO6mOhU
eowxccJSDRzH3V5p1hGQEEt0UW5JQl8Qm1VbljH2+/3BYCD89qQcjZ1hM1xD
ZE4XpZTZTmNMueblCLa7o1JBd0cBke6ZnCfUY4wyg0Uig8Eh7uzJGAnSYSqU
Ys8Z+oLYrNqyjLHb7Y7HY+G3JwZThQuDVRG3Px10m82mQn7FgXRj5L80F46z
K5cP3R0cOclBzpBSJfnea48xKk8dLMZmw269lOOEw4XCVCjFnjP0BbEiJ8sY
OXMXS2RXraIPvwhYFXH700HHv1RZujFKWfPCsjs/P7TIlG39CexEehuN/7R6
jHEwGPT7fbGTK+Vop2lM0c8+BkMp9rShL4idsCHLGDlzF8uEHTuzKiMrkIdt
Ebe30hjpunT19Oc5sFphqnAOELvP07+F8wieR48xTiaTjp1pDxeLo7jD2JkF
yKosNIdS7MmDv41d9rKXZ4wGVp/5+vAtnJeSa9LEkfBVxAomMeL29hlj7Fxl
MY72V1K3XzxQicB9LkUyheNOjzEqChkpHE3Rx7ozC5CiZ/pDKfbkwd/yLJ+U
ZYxGMlztul304ZtCgzFaGHH700HHXw3JNcZerzcajVKeJATfVGGsf8kaUsJH
7EIR8WWDMVq3USDLaISxM3tIU82ZDaXY8wd/yzO7SYoxGgtAtg+fKrXt1kAZ
CokGXQxeRaxgciNufzro5vN5s9nkOYNEY3Qch0JPUff+UboPnevagAyyboxf
f/HriT6vR6wx7q1M4v0F2+3R2NliYbpAhaZQxsizGkWKMerb8CUAmyoflZo2
YIyWGONsNmu1WmnOEMGu3z+0yJRdBShCIEgl1o+n3hv9MtYY/9Z3/xb/1Vl4
jFH+1F95HG1Rgf1fjCIcEcZDKfYtwd+Wy+VtXLebFGPkryuls7u4QKWmHw3G
aGfE7S0zRrVZrdhU+chhlSnS39sqIi72Kqwx/u63f5e/ACw8xqg/uUcC2H2X
JGbNAgmRWAcpuqhEY+Ts95NijFRndU2l0fYt6kSlph4Nuhi8iqLiSTRG/gWY
sozRcRxqFToqZxge9eGrmC0J1JADY/ydP/sd/gKw8Bij7gTCiXAcJGa0gUIZ
I2f9JcUYtW4RGACVmmZgjKGv5283yTJGDS21oz58W5eXgiA5MMav/ulX+QvA
wmOM1qZkdDla1IlNzQxRKGPkjAgpxig9gXAijio1Q4PjhQLGaIkx6hhZW6+P
+vBtnfoFWIQjVMq7Yt/IaYwPP/cwZwF88BijvSkZXWYzrJg2S8pqzngoxb7e
9yvOXncpxqgqvwcn7MA0VkwrRo8uBi+kqHjZNUZtCQp2jQYWl2WL3BijWBIA
HmO0OSXjA3wD00ihr52iGSOFw4JjYb4UYzQ+J+Rox0Bsg6sSGKMlxqhtWO2o
Dx9ZT7MATxSE/tZ40PlGpWdCU/h4jJFnewuzHK2YRipv7aS8q42HUuzrfb/i
HLGSYoytVksstGVxlAbE5rGG7JO0Mgp9scBJJBYv5VUsMUZ9+3L6Vkwjlbfd
cIaALGMUqBw5jfFv/J9/g5pFPGXwwWOMe75cIiYZjzGF2BSJ7upoVzQVSrGv
9/1KpzGaz1Qwnx+Ci1qOqNTUIFAZJToiTiKxeBKvwv5cpzFqHlM76sPHyk27
yY0xfu2Fr4lNNeQ0xnq9vrR5tHezOZpCbLPc5g7pNZ3Ei0a8JdHrfb/SaYz6
ujtOc7Q/hbWJtjKOamO0qvLieQv7c53GqHkeyK7XQ0rhrMATBad+mz6CgiGc
qHi+PV+oZknwyb+E0xhJRyd2T2E6mkI8nZouToFIGkSxcaQ/lGIv4fuVTmO0
IX/+UToCzPpQg3BlxB9cia7FXzxZEXfqA+41GuNms6GIU5qG0Q+7ctPQ7k6A
B85bOuIFiSIitGYUrmf3gX2lxQaOOY2x3++LjXpr42gKMVpqukh/G3OeJPr1
6csQ/Rbfr3QaoxV7dE6nyLGjlDSVEf+dH3HFpMVTEXERpdVmjAaSWflWbmKA
zFY0G2PoFSUao9gMeU5jHI1GvV4v6cm1ws62QktNF0lvY87zCFxXpzFydrnn
xxi3W8zPV4oUY+R/S/CKAiXMnzE6jlOtVsWyjqSBWmEYILOf9JUdZ5hHvD7i
vbEv8BmjWOOI0xgNbm7LC1upoaWmi0S3cZrzxL4+TSjFXsL3K84ciemNUVte
uFiONn/BVEbZCFdGYpLJecXo10uPuIjS6jFGU5mHd+fnGCCzHM5bOtELeOKC
M+J4zuwzxul02k6e0InTGO2puSLY1etoqelEuJrjOZvA1YVDKfb8vl9xts5y
ZYyYyqgMgcpISv1lMOLqt+vRH+fUQW+MLmQaYzS2wJOd9YEBsiwjEMXSr8tp
jGJZEzmNkSiVSlrnAycHLTULETZGnaEU+0bfrzgnaaQ3Rov69tkEVpYUqWAk
1cV9QmPUGXHT9VTMGOmN0VcXNkaxLhc5YIAsF3CGkoagC32Nzxj3Qk0kfmO0
IctHDGipWUbSuDAVSrFv9P2Kc/QqvTHOZrNWqyXwRvmwe+BiKqN2pOti6GlV
FPXUywS6GWM7GPeixug4DtWeBis4DJDlADFjTB93nCcMGuP5+flwOEx0LX5j
NJ9JOBa01CwjpTFqC6XY9/p+xdn1l94Y+advaeAo1bDlj4LckdQYLa+89kLd
jLEdjHtRYzSwRPoYDJDlAP44khh3/KcKGqNAvzq/MRrf35YHtNSsgqdei3iL
tlCKfbvvV5zTC9Mbo1U5CjCV0SC+uzH6rk50zxuMuGTdjP8zV8EEjHG5XDYa
DcNzrjBAlnGSRpCUuEt0kqAx0j1fLpcT3fn8xmh/SsY9WmqWEXEzR2uk5lCK
PYPvV5xzhtMbo/GujyMwldEQwVsxNrIS3fOmIi5RN+P1/+I6Tyr7pMZIsUy6
aH7CFQbIMk703cv5lpRXjH590BiJpFkZ+Y1xOBye2+9gaKnZRGwtwP/GlNdN
Wfjgb3kWgqU3RoF5JgrBVEZD8Btj5iKOs5uRXtZut6ccw0ZJjVEsj7EKMECW
acTiThHzj+fBY/LBxCtP5aWK+8N/Pvrn//h//Mfeaxb3FtFn5jdGq6ZUnQQb
TFuGVXEUCsVIaHyx5Qz+tvKfVSb/d0wS7/TGaNtUEGwwbYRYOQz9obURx8LZ
zUgv4xzkSmSMVrXIsMF0drEt6Np/2eYJq+Bx/m7MjcdvjCaTDyThaH4+WmoW
YEMERUAxIhZcN39wM/rM6Y2Rs19FG7t2G1MZNXMqcEJjKnPGuOfoZnSXSHNW
QPzGaNUk4Qewsz4wQAZSsPxkKVCjlW6VNp/FbHjEb4wWpYaL5Gh+fr9vujjA
dihGKFIE4utP//xPo8+c3hitS1AwHB6CKwvtR2A/sd2M7hLp1WpVq9Viz8Zp
jDYOmbGzPs7OMOsDpKH9ZuJuxtgOxuee+8UTT/xbTmPkDFjzoFIDCRHoZvzD
wR/GjhenN0brkqAuFofgsmMzGpAD6q+e7GakX3kv45k8zGOMNuriJbty+WCM
RnafAXkhaTfjqQ7Ge/ecp55669q1F4PviTZGezYsi4Gt1DKhuMA0At2M3/zX
34xdxZzeGCuVymYTM0ygFazoBAqI6GZkczDyTNKINUYKWzt1kdi1WofgmsRM
kwYgmkTdjE9864ngGZ544kehr/7qV79HukixFnH1zBgjKjWQnETdjBSJPKkD
0hvj2Zl1E8+oFXYIrkXMwjoAOAntZmQ7GPd8+ToijNFxHHJOi9JVBUB2OCAR
/m7G0q3SH/zHf8D2Tjz33C+uXDn5hlLpVuzVM2OMvsUvqNQAB4m6GSkSeQa2
Uhqj2E7xqmEXv+xHI9PFATkhtJvRt8kLz8yoU8ZI7200GlatIwuBXfxiyfag
IMtwdjOev3vOrix76qm3Tr306tUXHnnkuzdv/jj20ovFgiJO8eeTAyo1IABn
NyPF4J5vIVhKY7Szjba7uDhUalYtNQUZx9fN6OtgdKGIiM7jHWqMg8GgXq8v
7Z8ZuFwegqtSMV0akHl4uhm9GYwkeKR5oSPR1669+MwzP0t06clk0ul01Hws
yez6ffTtg6RwdjNSDO4vdxarx2XASGmMlmYnYJPkZ6QJCTKBr5sxdBfp2AyK
PmN0uxb7/b7hTQA5cRxMqQJyie1m9JZIU7D87u/+T8EB6Nu3fy1wXWqm9bOS
rAaVGhAitpvR7WDc8w0ZpzRGSzOgrlaH4LJv0BxkGq+bMbSDcf9gi4ZNtVqN
0D/WGP/O3xlSs26RqYlJRzu/2LEZDcg00d2M7BLpZ599z/frJ574kfB1rUsN
FwEqNSBEbDej28HoEpvrI6UxZiMHCMdWvwBw4nUzhnYwukR3M7LG+I1vjLLR
tciw63QOwWXNfjQg00R0M3odjPfuOb7fPf30T4SvGNuys41dqXSIO6vykwC7
iehm9DoYXWKTJaY0xotLkr5LA7tGA9sqAUXUX62f6mB0oWqo2WyGrmGZzWb/
8B/2gvMYs8RggHnCQC6nuhnZDsbHH7/N/q5cvhBOBexGaMb69lGpASEiuhnZ
DsY9R697SmPk3EhXP+wGuHsrSwiyy3Q9jehgdNlut61LLr6E/l0qlei///Jf
vpRtY5zNsFcgkE5oN+OpDsZHH32RfK9Wq4lNALZqu3ZOUKkBYUK7GX0djES3
243e9iWlMcae3xij0aFSy8hqOJA/ZrOZZ4z0b7dq499X2lI2m0NwlUqmSwNy
QrCbke1gvHnzx+zv7tz5yP35YDCoVqv8Oak2m02n07Fru3ZO2L0CUamBJIR2
M/o6GPcco8YpjdHemcPYVgnYSuaN0TdP2KpNQkGW8XUzsrtIP/LId71fXL/+
ffZdJIHtdrtSqZAHRtRH9DKqDUkvJxndq4it1NC3DxLi62YMdjDuH/S0jaIb
UymN0d4Mcr5tlbIzvRnknjwYI7tXIKZUAUmw3YxsB6NvSPq5534RfC8JIdV3
zWaT1JH+2+l02AkhlUvo3xla6uKHrdTQtw8S4utmDHYw7jnyJaY0Rus2lWY4
2lYJ3SDAGvJgjMxegZhSBSTidTOyHYxsUp0rV56PPgNVSVTxTSYTdkKItfVU
Io769nPxiYBOvG7G0A7G/WXsVCL3ZUhpjBZuKu2xazaRNQ5YSA6M8WhKVRan
hAFbcbsZ2Q7G/fGegI888l2DxTPLUSrUTC30BjbgdTOGdjC6lMvl7el9GdIY
Y6yOmmXX7WIjTqAHiiPyQM5jOPx3XtDV66/yv3GxuGf6g34JuwMFdpcGUmm/
2WY7GAl2W0DfJMZCcbS7dEZnYwKjUGSd6mB0iZ5qmMYYLd/G/Wh36axsBQWy
ycXFz8MTpEo9BEYBVMHuLo2VZUAqy0+WbAcjcePGy14U0L9NFcw47O7SmA0C
BKDIiuhgJDqdTsTSsDTGaPs27pMJchEAPRTOGNndpTEJHyiGzd1d5D7Go6xx
mA0CFBCdZDuNMdq+jTubi8DivlCQAwpnjPv9rlLBJHyghyeffAPzGB/AJs/H
bBCggOl02m6fHLZOY4y9Xm9k8/xANs+wxfMtQQ5gjZHiqNl8XdbRaLxmqTGy
e5ZhEj5QyTPP/MyLgitXvmO6OOZYrTAbBChltVrVTt9aaYyx1WrN7F6DfLR1
e3bTcAHrYY2R/r2TR8psBurYdTqYhA/0cPfub9jO9tu3f226RIbAbBCgnojl
0mnqo2q1ul6vJZRPGdQKQ0pGoIEiGiMm4QONXL36ghcIjz32Q9PFMQZmgwDV
ROzll6Y+sjkZo8vRzhR2d4eCTFNAY8QkfKATNsEOHffuFXTMCLNBgGrOz8+H
w2Hor4Tro+jBbkugigwpGYEGimiMmIQPNHLnzkesMf7+779kukRmwGwQoJrx
eNztdkN/JVwfRS+osYXBACkZgQaKaIyYhA/0cv3691lpfPbZ90yXyACYDQJU
E7E5i3B95O7XKad86kBKRqCFIhojJuEDvfi6GQu6BAazQYB6Go3GImzOg3B9
1G63p9OpvAKqASkZgRaKaIyYhA+0wyZmLGhPI2aDAPWc6hIUro8qlcrG/joC
KRmBFgpqjJiED7Tz2GM/9EnjjRsvF2ghDDsbpF43XRqQT07tAS1WH2Vi2YvL
IbisX9kNsktBjZGdhG//iAPIC9euveiTRjoef/z2nTsfmS6aetbrQ6VWrZou
Dcgtob2CYvXRcDg8Pz+XXUAlUEwdKrUTSSkBSElBjbHbPQTXeGy6OKBABHsa
3ePq1Rdu3HiZjmee+ZnpMqoC84eBBkIHpsXqI/t3e/E4SuJtd75xkF0KaowX
F1i2CUzx1FNvhUrj2RebCT5vuoCqONrLDAA1bDabarXqHG+WJ1AfbbfbSqXi
ZGTTvV2zialWQDXFNMaj7FX2Z04AuePOnY/K5ZAR6pwbIztwhm4QoIxgKm+B
+igiu6OF7NrtQ3Cd2PgGgJQU1BjH44MxZueZAPLBvXuOL0PjsTF+x3QBVbGr
17H7LdCA4ziNRmO5XHo/SVof0Rnq9foqO3cpploBDRTUGKdT5DsFRrhz56OH
H37hlC7S8Vu/dct0GVVxNHCGbhCgkvV6TdLoLYFJWh8NBoN+pjZPOcqQj40C
gRoKaozz+cEYm03TpQFF4bnnfnHlyvNBS3z00RdzvODFAzkKgE7cTDvry/kP
ieojekutVsvKDEYXdnI+ploBRRTUGJEaDmjn9u1fh6bWKU5Kxl2vh4EzoBOS
xnq9PpvN+Ouj7XbbbDbnmesDZ6daZSQjEMgcBTVGNkM+UsMB9dy9+5srV45c
sVS6RT80XS6tIEcB0A8ZYKvV+uM//iZPfbRarRqNRvZ0cX+8tTQm5wM1FNQY
kRoO6OXq1aO5i9evf990iUwwHGLgDBjhW9/6XnR9RK54cXFBupih1S5HsFOt
sAsnUENxjbFcRmo4oAdfAsZr1140XSJDIEcBMARbH125Mmi1WhcM9Xq9VqvR
P7bZ3S1lucTkfKCa4hojUsMBXTz00GG1C/27OBMX/cxmyFEAjMDWRzduvDyb
zVhjZPPwZBXswgnUU1xjbDSQGg5o4JlnfsZ2MD777HumS2QO5CgAhrC8PpKA
4xyCq1IxXRqQT4prjEgNB7Tw6KOHvV1KpdzmWuSC7QZBjgKgEcvrIykcggtT
rYAaimuMbIZ8pIYDymATMD799E9MF8coyFEADGF5fSSFo6lW2Z2QCSymuMaI
1HBAPc899wt2SLq4Mxi/BMYIjGB5fSQFTM4HqimuMbKp4WCMQA1PP/0TLwq+
8pViD0lfAmMERrC8PpICjBGoBsYIYwTquHnzx0iqw4I8qMAIltdHUoAxAtXA
GLH9BFDHjRsvszk9TBfHPJicD4xgeX0khaPlnDBGoAAYI7afAOp47LEfwhhZ
YIzACJbXR1KAMQLVwBhhjEAdGJX2AWMERrC8PpICUsYB1cAYYYxAHc8881de
FFy9+oLp4phnV6nAGIF+LK+PpGC5MbKtRYEnQMq3AykU1hj3o5HNxojgyge3
b/+aza5z9+5vTJfIMEeT852i5xrKE2cnEDgVtbNu3HhZ7vH1r7/Ett2kn9+G
OSc2G6NYlRR8F+o1sxTXGMfjw43X75suzREILttIUw9euTLyAuHJJ/9CXSEz
AZZz5oxTopgmZNj1Yhk61H3JnFhrjLJqNOFT5Q/huEsZnjDGB0e3a7o0BxBc
tpGm7tsfV38PPfS8okJmBcuNEX37ieCvtmCMGti12xYao3BQnHpj0aIsSKK4
kxukMEarjBHBZSFp6r59YNuXp556S1E5M4HNxoi+fX5UVEYeMEYx7Nz6Vjgc
IkKpCCEWQWoxFI9TGKPNxij8RgSXRNLUfS6l0mFr6StXvl3k2YzWGqMsXRQ+
VYbgrGuEQwbGKMaRMdqxLYX0PpCUp80H8jWRO1RhjPYYI4LLQpIGVCi+bsar
V18o7AbTu1rNQmOUHno5DrpEtYxY1MAYxUhjjIoqESmtMJ4j0YfNNDzRx++E
SaWxuMY4mQgbI4KrOEgxRuLRR19kK5dHHimoNNo5OV84QCKCK5dBl7R+8d6S
6CowRjFsM0ZZ70K9xsIZgPyhCmPkYj4/3GzNZqK3IriKgyxjJD+8evUFtn55
6KHnb9/+tdzS2o+FxigcHSqeA5YjKxyigTGKIWyMiu5kdTWa8PlzgHQPhDFy
IWqMCK7iILd+vHv3N1eufNtXy1y//v07dz6SVWD7SWOMmQu9nAWdHl3cq8nH
qOFQ9G3wA2PMPdJ1MemLYYwwRnAK6VXk7du/fuih54O9E6XS8zdvvkYVpZRi
24xtxijrXUWQRm3GCMSwyhjT3Pyc781ZfPEAYzSGTcaI4LITFVXkvXsOu3Q6
eFy58u30V7EWYWNUEXfBN4qVJEIOcxN00EX7ETNGeyJL4Iq5iS9OeMIwaajC
GLkQMkYEV3FQWkU+/vgrp41xJPFCtrGr1w934HKZ4I3WhB6MEcZoJzBG/qtk
kdgYDL5Ari7ui2yM0+nhTmu3Od+E4CoOSqvIJ5/8i+CcxkL0MYrmY1QResIB
y//eNJewChij/cAY+a+SRUKFMBqBE0a/pbjGKJSPEcFVHBRVkffuOdeuvVjc
UWkhY0TcmQW6mAkEjFFRZAXfK/au2DfmILj4kauLoSeMfQuMkd8YEVzFQVEV
effubx5+OMQSr1594fHHX3nmmb/6znf+vZQLWQuMkf8q9gBjzAS7Vutwm81m
XG9BpZYRJIriqRPyvAvGCGMEQVRUkZfZdUY+V7x27cVCZWWEMfJfxR40GyOy
64ghsKxMLLJ47n9UanLhN0ae8BSOaBijUmMM/hDBlQmkV5H37jlf+crREmmy
x+ee+4WU0maIXaVyuAM3G663oKVmGoFaKU3IIIO3GEmNUZYu8rydq/zJYzkH
wcVJRAAKxKZw7VZcYxyNDndarxf7clm6iOCyH+m6uA/sEkj2ePfub9KfNnNI
NzQYowYSGWP6qIExiiHRGCPqLM56DZWaRKKjTyw8xeK0sMa4u7g43GkXF/Gv
Tx5c0ZGF4LIW6cb43HO/YGuWq1cLuqn0XrsxRl8OxshJaJUUjAtZUQNjFCO9
MfJUWNEBGHFygfL4fsX/+pyRNPRCoy+RWJ4CxihsjLHBFXuTR5xcoDy+X/G/
HviQboxsyu4rV75dzN5Fl6R3YBpdjL2cQESkD1Weq1jIKWnklMlEwBjFSJrs
VEAXY88Tcf6UhYl9S+znzS4Cxuh7jawghTGqMEbO80ScP2VhYt8S+3kLi/Sa
0dfB+NRTb2n4FNYi0dAi7nx1QQFjlBUXEcAYxUi6rMyqSi22PLGvjz1/RuEM
roiXJQ3eiPiFMeo0xoiXIbgsQXrNyFZ/Dz30vIaPYDPpDY3nzhcLCrG48/0q
/SVsRlZQRANjFEOKMZ76Fed5os8vUJ5T781ZZEXAGV8RkZi0UosIYRjjLoUx
nvoV/3sjXiNQHgRXemRFlgebUefJJ/9Cw0ewl/X6cBNWKjzviFXECHnjuecl
Bl3o23MZd8KxwAmMUQyB1FViNdqpM3Cen788RYusUPgD7dQrk1ZqEZcorjGy
6fFHXDv5CgcX572N4DKOrLDyuH3712ydUuQZjA9gjbFa5XmHmDGGvp3n/CnL
k/78YK8mH+PXv/6SF4ZXr76Qz3yMoltwprpokvtfVggoOq2FJKp0TlVSiX0R
xhhAbAtOwWsJVS4IrhxAdR9bT5kujmkkGeOpX0W/nfP8AuU59V6Enj1YXh9J
QSDZadorKugJSXpdhJVOYIwajPFwURM9Eggug9y8+ZoXBdeuvWi6OKZZrQ63
Yq3G+SZhXdyrqdE4dVHgzEAdltdHUtB8s3FeTnq7CQ0xgxTXGDudw/02mei7
rt5uRgSXWR57bOJFgQ3jVoaZzw+3YrOp4YICxqiopYbQM4vl9ZEEttvDzVYu
q75aykaWlOsirPRTXGNMvgWnnOsm6RVBcGUddg4/jHE/nR7uxnZbwwXFukGk
XxqhZxzL6yMJJJ/yIYzAjS2lMkKNZpziGmPCZKcilwjc0px3O4IrN2BU+ojk
m7mnRMwY0wcLos82LK+PJLBYHO63RkPddYL3tp56DTFlA8U1RvXLysTC6tR7
U146xecA4jz99E+8KPjKVwq/8mUwONyT/b6GC2qLOEWnArKwvD6SgK4pH8LG
CHJAcY2xVDrc4Y6STX4RVsC34Utht5N2YZOgkj3quGKSiJMSpIh0O7G8PpLA
ZHK461R24MMYi0xxjdG7w0slHVdBQBWVK1cOxvj00z8xXRyTaEtQIFyjoW8/
r1heH0mAnfLR65kuDcgnBTVGjZOEQcF59NEXvUAolQo9MH2UoGA6VXgh9IGA
Y6yuj2SQdBczAAQoqDGyeeHqddOlAXmGTeJNx7PPvme6RMbQlqAAxgh8BOuj
9Xo9v2S73ZounQR2/f7hDh8OTRcH5JOCGqP2vHCgyDz00PNeLNC/Czubcddo
HCq11cp0cUCBYOuj3/mdP6te0rykfEmv11vr2llPBUb2pABFo6DGOJsdjLHT
MV0akHOeeuottpuxsGl2jOx7C8D+2Bj/5t/8jk8Ot9vtaDQih+x0Oo6ahZCq
2bXbh+CazUwXB+STghqj9rxwoOBcvfoCK43Xr3/fdIkMsCuXMTQM9ENC2Gj8
lzz10WQyabfbWZRGU3tSgEJRUGMcDjFJGOjk7t3fsIumL1fB3KIfmi6XVvQk
KACAZbVa1ev1yeQtzvpoNptlURp3tRo68IFqimmM+vPCAXD79q9ZY3SPxx+/
XZRpjZsNEhQAzczn80ajsX5AgvpoMpl0sjZb6WjKx2ZjujggnxTUGHs9TBIG
+nnuuV9cufJ80BsfffTFZ575menSKYZNaYUEBUA9i8WCdNFdCp20Pmo2m/NM
je0e7UkBgBoKaozssjKVeeEA8HHnzkcPP/xCUBq947d+67umy6gGJCgAGiFR
rNfr3gqXpPUR6WIzQ3fpdnsIrkrFdGlAbimoMWKSMDDHvXvO9evfP2WMV658
x3QB1YDlZkAj3W53zIwfCdRH1Wo1M/l2kGEYaKGgxogsH8Aod+58VC6Pz85C
RqivXHnedOnUMBhguRnQw3Q6bbfb7E8E6qN+vz/Iyix3Nl/c8QcHQCIFNUZM
+QDm8KVnvDye9+wxr32MmDwMtNFoNBaLBfsTgfooS+tfRqODMZ6fmy4NyC1F
NEas2QTmeOyxH4YORl+9+sKNGy/TkdclMLtWC1NBgAbW63U18GAXqI+Wy2U9
IyO82CIQ6KGIxrhYYAY+MMK1ay+GJti5c+cj00VTDvLFAT2MRqNer+f7oVh9
dJaRQahdp3MIrsnEdHFAbimiMU4mmIEP9BPsXbxx4+WiJGP0TQXJWnpkkCHa
7fY0kAEj58bI7th+PBwPgESKaIzsDPx+33RpQCF48sk3fLr47LPvmS6URtip
IMj+AVRSq9VWq5Xvhzk3RqTvBloooDEezcAfjUwXB+SfO3c+8uni7du/Nl0o
vSyXB2NsNEyXBuSZUqkU3OMv58aI/TeBFopojO32wRhnM9PFAfnHl32xWL2L
LtPpoVLLyvpTkEFWq1WtVgv+XKA+2m635XJZdgEVwO6mFPbZAZBFEY2xXj8Y
Y2DwAgC5+DoYf//3XzJdIhMMh8j+ATQwm81arVbw5wL1UeiaaxvBbkpAF0U0
xnL5YIyXW44CoI4nnvgRa4zFWerCQpaI7B9AA6ELpfdCxniqu9I6sJsS0EXh
jJHdfzMTIw4g41y9ethF+rHHfmi6OGY4mgqCndyBMi4uCf5coD7KytbSu4sL
7KYE9FA4Y2Rn4GckOyvILnfv/qbQC16+5Cj7x3Jpujggt5za2i/He77sul3s
pgT0UDhjxP6bQCPPPPMzLwquXPnOcrmczWYXAYbD4Xw+X+ZXpXaVCqaCAA10
u91xmDUJ1EcUledZmHOL3ZSANgpnjNh/E2jkOA3jn9Xr9VarFTRGqpiazSb9
9uzsrNFoUK03GAzIIbf5kCtMBQG6kGiMFJXDLMy5PWqOIRkjUAlrjM3m6/S/
so7z83ctNEbMwAfaIOUrlf43LwquX/8+z7sWiwVVef1+nxyyXC5XKpVerxfc
wyJLsB37SMYIVBK64cteyBg7nc7E/h330BwDGmGNUd1hkTGy86mQjBGowXEc
qm5I+f723x57UXDjxssCp9psNqPRiOrBUqnkVmHZ63hkU+uErWMFQBYUdPOw
kVkBY2w0Ggv7d9xjU+ugOQYUUzhjZFProAMfKIB0kQTP7Z1gU+tw9jFGnNad
il8ul+n8oUNvdoJdloA2JBpjpVLZ2F9HoDkGNFIsY8TmtkA9rVZr9mX39VNP
veVFwSOPfFfWJabTabfbpRqt3+/bX6kd5cy3v9MGZJnQTaX3yY2RGmilLOy4
d9QcwzwroJj5/GP+qYn/7J/N2aDjf+NweNf0B72E3aosbF8AAFJCLtdm1uA/
++x7XshcufK83GuRKw4Gg2q1St5o81D1rlTCQmmgBwqH9Xod/HlSY1wul/Us
pF87mmeFhdLAJkgvvaBrNl83XZzkDAZYKA2UQrUMmyTn3j2H7Wx/7rlfSL+i
4zjkjbVazdJx6tUKHftAG7KM0df0sxY0x4C1sMZYr79kc7dGKLtOB/OpgDpC
+yUeeeS7sqYyRrDZbLrdbqvVsm6QGh37QCOyjDEbyRjRHANWQjE4GAz+6I/+
Gy/oyuV/VS6Xm83maDTKijpiPhVQSmi/xM2bP2a7Ge/c+UhdAWazWaPRCJ3H
ZYpdv3+o1Pp908UBOeeMnu1hJDXGXq83sr9XAc0xYBnL5bLT6bhzpf7Nv5n6
RqXn8zlFFnljaLPOLhznEFz0VHEc0wUCeYNaVf2AFPkGph999EWlZaBIJGm0
Z/uYox2l7c9uBzKOLGM8tebaKo52lLa/RxTkms1m02q16vW6l8X01DxGqp6s
qqTCYXeUrtVMlwbkkFMpfx9//DYrjU8++YbSYlDk1mo1S3r+KdawozTQhixj
zERqnaPmmJ3TmEExmE6nVOnMjnNcR6x8Wa/X1WrVsbnjbjLBjtJAKb5lLx6+
bkY6nn32PaUlGY1GPRuSs7EbUqBjH6hHijFSa6uchf1T0BwDNkB1TbvdDvZR
RK+VtnwXTnZ/QMynAioolUqnGk1smh09PY1WdJIsFujYB9pwOy5O/CqBMWYj
tQ7mWQHTUH3X7XZPzfiNNsb5fN5sNtWXUZBdq4X5VEAdq9WqFilFpIg+abx2
7UV1C2GsmLo/Gh0qtU7HcGFA3pFljO7mSgoKKBU0x4BR3N3NIrK6RRuj5Uny
d5XKwRhtWkwK8gHPQPCNGy8Hd0S6fv37KvI0zmazlunlk7tuFxtSAG3IMsbQ
JWzWwe4P2O2aLg0oHOzuZqHEZvA+lQvLPOv1IbiyMEEFZA7OxZXBnkZvR5ir
V18gpbx588dSyrPZbCqmU7TtqlXMswLaiBjnSmSM3W7X0nz4DEfLXoyPJoCC
wdOqijXGRqOxsDPP4XiMZS9AHRGdG0GCcxrZ4ytfuSWrVOVy2eSKabaZViph
nhVQjSxjtLciY9iVy2iOASO46XFiVzrHGqO1OazY0bHdxYXp4oC8kXQY6949
x5dyxzu++tXvXVz8nGItfalOrd3WBNtMs3iGM8gNsozRilVj0bDJ4jBqBvRS
q9V49onIsDGyo2NWlhBkGs4I8nH37m9u3vwxu42gd5A0pi+V2XhEMw1oJmLF
Cr8xZiO1DjuJEaNmQCP8W65n1RgxOgZUkj4Xx717zjPP/OyJJ/6tXGOMnZms
FDTTgGbG43H3xBoQfmPMRGqdo0mMWFMGNMKveVk1RoyOAZWc2uolKWSJco3R
5AR+NNOAdobD4fmJzfL4jTETqXUwiREYIVEPfKwxio3NqQajY0Adm81G1m5H
uTJGNNOAdvr9/mAwCP0VvzFmILUOJjECQ0R04wfJaHYdjI4BdURUUkmRbowG
R6WPmmknun0AkEtEE4nfGDOQWoedxIjmGNBIoq39MmmM7OgYGaPBZCMgdziO
Q/e8rGWV0o3R4CyRo2badGqkDKBoRNzw/MZof2oddhIjRs2AThL1QmTSGNnR
MevnM4NskaiLPpb8GCOaacAEEdOi+I3R/tQ6R5MYMWoGNJIoOmKNsVQqSZnQ
JRGMjgF1yE14KN0Yjc0rRjMNmCAiZT2/MZ6RhtkMO4kRa8qARpImnoo1Rgtj
DaNjQBHSN26Wboym+vzRTAP6cRynRAZ1Ak5jTLR5kxkwiREYYrFYNBoN/tdH
G6ONiU8xOgaU0W63p1LbIPkxxkrlEHTmEkKCQrFarWq12qnfchpjxK4xlkCW
iEmMwAhJZ2FFG6ONrbPR6BBcSdwYgGhUpPmVboxm+vwXC4yaAf1Eb0XBaYy2
J2PcbimmDs0x+3LZgRwTke80lGhjjG7iGWHXaqE5BlTQ6/VGo5Hcc8o1xs1m
U6lUpBQsERRo2L8M6Cc6zxWnMSatE3UznR6Cy7b+GZB3Li7hf320MVrXn+84
R80xJMYHkpCYtZtFrjEmnXMii129fgg6y/PagRwRnfeD0xgTpZvTD2YIA4Mk
7SfJmDGiOQbUIDFrN4tcYzQzvoaZw8AQEQul99zGKGvHT0UczRBGXh2gl6TR
kS1jRHMMqEBu1m4WucZoZnxtMMBCTqCf2Fn0nMZodfru+fxoc0DMEAZ6SZrg
N0vG6DhIcwpUoK7vTq4xGhlf2zUah6CTPc8TgFNEL3vZcxujjZtQfMlRH4i8
jQMA4CRpgt8sGeNsdgguE/P/QV5R1wsh1xilJ/+JxzckbffGGSBPxE4U4TRG
C1MKf4GvDwRJq4B2kranMmSMR82xXs90cUBOUJFUx0OuMcrdj4aHo1XS1jwK
QBGI7f3gMUZT6QW4YPtAMCQNTBA9VThIZozRt0oaQ9JAEiqS6njINcak0Z0Y
qsI6nQdDz19WXrtaDUPSQD88id14jNGiBHGr1a7Xe5AR7ssQxpA0ME7SHnhL
jXG7fdC5QUHk9ahMJhiSBtIhAatUKup2TpdojMo3YGIyCX+RQofd7hZD0kAj
PGnieIzRnk6PQ4oqd/Garw8EQ9JAO9G7cIZipzHu+n1fCp1du40haSAd1auP
JRqj0tHzB7CNssseD6raDj+Rut02ABFw5i7IkjGy84HdPk9287JKBUPSQD8C
m/rZuefL0VjYer3fbI6aY9amSgBZI+lKsaRINMbYpaNpGY+PjNE3LV/zihtQ
YEajUY+jW4DHGJNum6sK1hgv62g2BcGu3zddPlBEBAQv2hgFOi2lQDF1ZIxs
Rjil3SygSCjvtZNqjMqTMfqM0TcPBH0gQAtU6TQaDZ4VXlkyRnZn9kbDP9/D
1uQ/IN8I9MBHG+New2T7MHzGeNTlaPF+TyBbaEhvKNEYla7QecCxMe6aTfSB
AP3wt4yyZIxspm6KLMz3ABagwhj1J/TY+4yRrchKJWxSBqSgbp8XFonGGL3H
rgSGQ7YWQx8I0E+i7d2zaoyNxtHOgJjvAQwhEB2xxmggaTAZIzOB6qjysiH2
QS5QPi3wEonGqHrK5VHqRfbwfUvk2PM51k0DFSTa5Tarxsgevvke2+2D4EID
DWhBhTGa2ZgsNLioOebr7VwssAoGiJF0B3YxJBpjqVRSlwVof9oYD30g2+2D
JAbuGrRqda9SX0EBSTpGliVjZJN1s8Hl1a0U2sPhF32PpRISDgMNDAaDfsIZ
R7HGqHy+fRjhxsguUqAmm5feCpOsQEJUp2H0kGWMGrauCDdGN+gc58Fv2Z5/
L2cjADLgX/DikSVjZOdWsZOs3L56+i0zEevBob3OBQWEJ+upj1hjNJJgJ6qv
Y7E4mpN/dsjZCAAnnOk70iPLGBeLBdWnEgsW5JAE1dcH4nV9+H6F7n0gD4Gu
icwbIz2CplN2XechuLC/ElCPwAhyrDHuk+9VnRbHCZ/vsVwe5fHGWjMgivJV
JF8iyxg1zLo82rOMibvwYFQ/oA+KQ6IFLx48xkhh3rKhggg1xuNOe6/jcZew
2wcAMQSmZvEYI7XRxjpHoNhkp9E119nltHysngZJoIqpXC5rGJLeyzNGDZND
wo0xWMcxG+MCIAWxScU8xqihc56LUGMMHhTjWFMGdNFsNucJZ8zyGKOGRMdH
hBpj8Gg2MT0YCKBz4zBZxqhhAVqMMZZKD6ozuCKQjXA88hijwD5oKjiZiMA7
ul0skQaaERg+5jFGgpppC23TlmKNkfQV+7YDUXQu/5dljBpWdkcZY6+Hrg+g
gu12W6/XxWY98RgjcXZ2Jl4+SUQZY7vtzwECgBYEQoPTGPUkr/uCCGOk1iLy
nYJ06ExKL8sYNTTZfFm7vzg6HXR9AHWkyffLaYxGti3zEW6MzSaWjwFTiOXf
4DTGvcbFAkdbcDLzGJHNA6RH8yiVLGPUsPrMn4IAXR9AMSln53Iao76a6zR+
Y6zXMaUKmEVsii+/Ma5Wq3q9rmO9gC89PrnicLjXsk4B5B7N2TYyaYyYIQzU
QxVWs9lMU6FwGmO/3x8MBsJXkcKu1/siuGo1DJMBGxCrCvmNUfgSifGMEQsz
gWz0bPXiIcsYNczFemCMmCEMtLDZbBqNRspGEKcxUrxT1Ke5UHoeTBKuVjFM
Buyh1+uNkqf9TGSMe6Ek4YkhY8TCTKAG1bsz+8iQMWIMGuhhu902m830c4k5
jdHIJhR+FgsMkwGrEJvPn9QY95dLTclOFQ5PbzZYmAlUQDdtqVTSecUsGSMA
6pGli3tuY9xrbycCYDkUhuVyWeCNAsa4v9xkrdFoIAZBttCdWRTGCACDRF3c
JzHGwWDQ7/elXBSAHCCcBFXMGPdfVr4XFxd69s4AID36ZzTBGAFw2Ww2EnVx
n8QYLcnjDYAlCE8vFDbG/eUYH12UIlHnUgIAhNG/alKWMdqQUw4AYRaLhfQ8
qPzGuBfaEA2AvCI8TyONMbpQy7HT6ZA3jkYj9DcCm0mTLliMDGXXAUARVDWQ
sG1kz05PZIz6Z6QAYCdpNltPb4wuVJ31er1KpdLv9zG/EdiJ/gnwsoyx2+2O
kZoDZA3HcXqXqOhMSGSMezsSMwJgnDQ9J7KM0WW73VJIUr1MrbnhcCi9UQmA
MPoXSu/lGaPmxOMApIdqJaoLBHK+cZLUGOkJQBUTOjRAkUnZ2S7XGNlSnZ+f
VyqVRqNBDqltG18ATmFk9rssY6TGFxUesz5AJiArazab7XZb6VSKpMa4v6yY
qGCYEgyKCdUgdP8vUuxmrsgYPahs/X6fnJbqu16vR61O1HrACEYmMskyxj0G
pkEWIBk7Pz+v1WoalpkIGOMe0ggKDMXmcDhMcwbVxuhBjc3RaEStzlKp1Gq1
6N8YHQA6Ec5AlQaJxoip+8Bm6Anf7/er1WrKKinJFUWMcX8ZSsgnDIqGlORy
2oyRZTab9Xo9aodWKhX6CPSEwbA1UE3WjZGgptYM+z4Dy6CaiO5McsXBYKCz
707YGPeX4+bU/kKnPSgIVP1RKyn9CK8RY/TYbDb0tDk/P6fgLZfL9NihZ06a
QXYATpEDY0Q3I7CH9XpNj2u31W+kIZPGGPeXc7q6l2CFJsg31DIiuZLSmjNr
jCz0ceix0+/3yYTPzs6ocr+4uKCfYMIJkEIOjPHyhBe9Xi/9eQAQg57J7kzF
arVKj2uDupXSGF2oMqXPQuqLCfYgl1CVQc0iWbe3Pcbog+p3+qQkxuVymSKa
akkKbcw8AcLkwxj3l/mQK5UKRcRwOJzzgVkfIA304KWbjZ7G1Jan/9K/bXgU
SzHG/WVnBamvmwgIHRQgN1CQNhoNsd0AT2GtMbLQB6dYJk+moCaBbLfbGLwG
ScmNMe4vp3NQRJyfnzf5qNfrZwwUR6EvoxNe6ILqaM7C80CPhTOpRFwr+Fmo
MetT9KyLB30E+lDu38hts9O9YdscWlnG+OXZvtiEgv5rgw8DIIzjOG6OGuma
lAljZKFH8XQ6dQev3WXXZI/YMBTEQrUAVXyaL6rIGFNCX0VoV+RwONRmjG7Y
ykK6oUVcK/hZqDEbbbDkIb4X0BPMdxLyMd+FlI6TUlXi+6O7BfOEmT6U+zey
1n7lGqMLfefUFnPH3N10cNZ+fACC0A1MEe0uQ1PxAMmcMbLQF+JOfXQfdG7z
fw57BGFkes8XkGk2m43PBul57jNGavz6rJJu14he0KCFRkAv9r2dWtzur7yO
Zbdgpr+qBKgwRubkX6SDI/nHPhTAfqhp47oiRbS62cWZNkYfbvPffdJ2Op3x
eIxFcICF6k3NtwSMESgiaKER5PJJqNQYWbx9KOgBQmJPtcxkMsmWXYO8QqJI
quM2bZS6okuejNHDcRyK6G63625TSOKtdLMqkBXoZtA8/RXGCIAitBmjB1XH
s9mMjLHT6bgDW9Vq1R3bcuey5tLMgYXQneaJIqnOdDrVc91cGiMLGQKJN8U1
tRBJHTEppchQfGmLLBcYIwCK0G+MYWVYu2Nb7lxWb/TfG/R3R/zZtAZYVgOE
WS6Xo9HIvdN0iqJH7o3Rg75qUkcshSsy9Nyme0DnFWGMACjCBmM8hbewyDVG
Nq1BrVZjJ5S6vZQepAHs7FbSA3Z2AeZSFpA5k2mwXq+TwBicEVEcY3TxlsK1
220MVRcN/XumwBgBUITNxsiP20vpMR6PWWMkPWB9kk2TRf7g/bzT6XhvYXM9
IS05i++rjsCde3AKdxZrEFlTnlarlZcQ5syy3UyKZowe9Bdx8yfY8FcA2qDH
rM6/OIwRAEXkwxiFoeeY5yrkMKG5ntjl9qFZWCNSsFIVyelXSRHI4uVOHI3A
l3I2FF93bgTu+qakhXEFz4W+efZX7NuDebTczAne5Fi3R8vOpNOFNUYXt79x
jlVvhYGikp6u2i4HYwRAEQU3xqSEZmGNkDeSFk6/SorATgGnuvU8bBuvdxyH
LR77WYJ5tNzsrJlYgF9wY9xfrjly/2SmCwJ0QO07Clhtl4MxAqAIGCMAmoEx
ugwGg0ajgRUxRUBnVkYYIwCKgDECoBkYo8disSBptG3vVCCdfr9PDQQ914Ix
AqAIGCMAmoExsmy3W/0p+4BmdK6YhjECoAjWGG/cgDECoBwYow/HcUgax+Mx
5+uXy0/oO1ws7qksFJCMtnYBjBEA6dDzttN5+2tf+74XXHTU66+en7+73X5u
unQA5JDZ7MN2+83f/u3vskHXaLxG9Zrj3DddOsN0u93hcBjxgsnkAxLsUukW
++3RT+jn2goJhFmv17VaTUOyMhgjABKhuqnff5996vqOSuUlqtpMFxOA/ECt
sG73pxFBV6u9gk4zNwNA8OebzWet1hsR3x79ll6jvbwgGfT3jW4USAHGCIAs
qOaq11+NePYi1gCQy3r9abX6A56gG49/Zbqwhgnm7pvPPy6Xx7FfHb0G7VzL
2Ww2tVpNdTZvGCMAsuh03g573j4f+hDGcA8A6Wk0XuPRRfcoeE+j4zjNZtPL
u04t3ErlpaAcNpuvBzWSXomeRsuh5gA1CpReAsYIgBTIAPlrLjyBAUjPYLBM
FHS12isFn9O43W7r9bq7A7VvKL/VemO12u6+ZL3+1DdaTS1i08UHMXS7Xf5V
TgLAGAFID1VDx6318H5F33F+/q7pggOQVajB5VupwXMMh3dNF9wwq9Wq0Wj8
7Gdr9muh2n8Xhs/Jp9O16eKDKKhFUKvV1CX0hjECkJ7F4l7SmssdADJdcACy
ynj8K4Ggq9dfNV1w84xGo7//9/+19500Gq+F6qJLs/m698pe7x3TZQcxLJdL
ahEoWjfNGiMOHDhw4MCBo1DHZPJBhDHOZh96r4RvZwJ1m03DGHHgkHFwDUPj
wIEDh20HO30xyGbzmffKUumWCg8B0hkOh+fn54pODm/EgcPQ8W3TBcCBA0eh
j+328whjdJz77IsVSQiQzqkMnOmBMeLAgQMHDhwFPObzjyOMcbn8xHtlpfKS
CgMBiiBj7PV6pksBADhiOl2LPauxaSAAYoh1dMB5XNjksYPBMsIYh8O73ivb
7TdNFxwkYzQatdttDRsIAgA4Wa8/Fai8MI0cAGHm848Fgg5JBV1Go19630mp
dIueYKcmMbLZvJFQJYtMp9NWq6Uu5Q4AICnU+j6um0InKB4tkMG2ZQCkgXNT
Tt8IrOlSWwGpIJtClr7J4PoX+gn7DZM6YtOBjDKfz2u12mw2M10QAMADfI3x
2KPVesN0kQHINsvlJ4mSeCOdIItvmyr6Js/P3x2NfklSTf+lf/u+W7RwM812
u221Wufn5xihBsAG+FMKo7UOgBT4ZzNWqz8o+BaBQdjZjNEHZjDmg+FwWK/X
l8ul6YIAAB5IY2xPY632ynL5iemSApATBoNlbE9jo/Haev2p6ZJaByn0P/kn
b8XqYrf7U8h2blitViSN5+fn2+3WdFkAKDqbzWet1hunnr39/vt49gIgl9Vq
S04YGnEkk6SUpgtoNY8++p9ev/5/hX57lcpLs9mHpgsI5DMcDqvVKv3XdEEA
AA9mWFE9RW3zZvN1OkgUx+NfYSQaAHUsFvcuLn7e6bztBh39ezL5AAmsYqlU
Kv/hP3xMZkjfGLV26auj/9K/6Sdo3uaY7XZ7fn5er9fn87npsgAAAADAakgb
yuWy6VIAYyyXy+Yl0+nUdFkAAAAAYCmz2azVapkuBTDMfD5vt9v1eh3eCAAA
AIAgF5eYLgWwguVySd5YrVbH4zGS8AAAAADAZbPZkB7ADQDLer3udruVSoX+
u1gsTBcHAAAAACYhUWy329gHBISy3W7H43Gj0ajVaoPBAJsMAgAAAAUEugg4
Wa1W/X6/UqnQDTMajdbrtekSAQAAAEATVO9Xq1XTpQBZYjqd9no9um3q9To5
JDaOAQAAAIpAu93Gxh9AAHLFwWBA3ujOdZxMJhizBgAAAHIM1ftupY8czkAA
EsXxeNzpdOguqtVqvV4P9ggAAADkEsdxqNJvNptef5HpEoFMslqtRqORzx4x
cg0AAADkDLe/yE3Hh9UNIA2ePdbr9bOzM2qPkEAOh0N0ZQMAAABmoTp6Hsdg
MLg4hurx5pc0Gg2q3EulUqvVgjECidC9RwJ5fn5OtxndY7VajRomdPtNp1Pk
ewQAAJA5qPKKlS6q+C6S0+l0mgkhcztLAtXCsefs9/u+gtHH8T4a6m6gB2rd
kCvS7Ufe6LZTqtUq3Z+klPTD2WyGrkgAAACncBwnWtXcKiaCaFkioYqVLqq8
YqWr1+sJGONkMol1UR/YhwUUh/V6Tff8cDikYGm1Ws3Lrkh3ONtr6bhBRLZp
urAAAAD8RPiM+2wPpd1un9KtCFsrlUrRquYOY0UQLWCoaADIHG7wurMp3I56
t+nnPS7cbsmLL3sm5+icBACAS9yW+CnG4/Epm+p2u6dMLGL0M8LfvAd1kOl0
eqqEpr8/AEAe8IYkvKar2zPpNUs9paSfBxuVWMENANBMtL9F9IZF9MJVq9WI
jjh3ts8pSAtPXZFk8lQ5MfoJAMgZnlLOZjPvMeg9Kt0V3MGHKtsQZlu+mOIL
QJ6IMLfozrdof2tGDqRG+1vEFSN64bBGFQAAtME2/NnJNmy94C7POfXkDy4o
Cz7YkdUcAClrS9n8HqH4ojXp+GkzsvMt2t/mGEgFAADA4BtdCiatCtZBlUrF
V2fRT0JrK3YYPVZEWbDdZwGhlkisgwVhO96jiTYrD87MHlLWlrL5PULBiAAA
AIA8caquj6jNo6vacrkcXV/X63VOARCoxwtL9BglP8E2BQ+n2h3RRLRKfHAq
KOa2AQAAALlhuVwm6oliEctDWwSixyj5wbwFAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABI
yT86gelyAQAAAAAA85xyRXgjAAAAAADY8+kipBEAAAAAoMjAGAEAAAAAQAQR
ZghpBAAAAAAA+zAt5P8tAAAAAADIPTxCCGkEAAAAACgyMEYAAAAAABANjBEA
AAAAAEQDYwQAAAAAANHAGAEAAAAAQDQwRgAAAAAAEA2MEQAAAAAARANjBAAA
AAAA0cAYAQAAAABANDBGAAAAAAAQDYwRAAAAAADEEi2E0EUAAAAAABB0Qk8L
I34FAAAAAAAKRagZQhcBAAAAAIAHjBEAAAAAAMQCXQQAAAAAADzAFQEAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOSP/x+kBPrf
    "], {{0, 456}, {870, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", ImageSize -> Automatic, Interleaving -> True, 
    Magnification -> Automatic],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSize->{414.8666666666663, Automatic},
  ImageSizeRaw->{870, 456},
  PlotRange->{{0, 870}, {0, 456}}]], "Text",
 CellChangeTimes->{{3.4909547578485985`*^9, 3.4909548099110985`*^9}, {
   3.4909548452235985`*^9, 3.4909548980985985`*^9}, {3.490954929332974*^9, 
   3.490954990707974*^9}, {3.490955070239224*^9, 3.4909550854423485`*^9}, {
   3.4909918704110985`*^9, 3.490991908176724*^9}, 3.491251924796875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell["Vstupn\[IAcute] hodnoty", "Subtitle",
 CellChangeTimes->{{3.490979043582974*^9, 3.4909790480048485`*^9}},
 Background->GrayLevel[0.85]],

Cell["Sou\[CHacek]\[AAcute]stky:", "Text",
 CellChangeTimes->{{3.491251940734375*^9, 3.4912519513125*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"soucastky", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"R1", "\[Rule]", 
      SuperscriptBox["10", "3"]}], ",", 
     RowBox[{"c", "\[Rule]", 
      RowBox[{"470", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "9"}]]}]}], ",", " ", 
     RowBox[{"L", "\[Rule]", 
      RowBox[{"2.2", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]]}]}], ",", " ", 
     RowBox[{"R2", "\[Rule]", 
      RowBox[{"6.8", "*", 
       SuperscriptBox["10", "2"]}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4909558597860985`*^9, 3.490955979582974*^9}, {
  3.4909560280673485`*^9, 3.4909561185673485`*^9}, {3.490956256457974*^9, 
  3.4909562633173485`*^9}, {3.491252614984375*^9, 3.4912526856875*^9}, {
  3.491252723046875*^9, 3.491252725625*^9}, {3.491252764359375*^9, 
  3.4912528133125*^9}}],

Cell["Zdroj nap\:011bt\[IAcute]:", "Text",
 CellChangeTimes->{{3.490978131489224*^9, 3.4909781318485985`*^9}, {
   3.4909786624110985`*^9, 3.490978663926724*^9}, 3.490980031176724*^9, {
   3.4909890579110985`*^9, 3.490989096895474*^9}, {3.491251968609375*^9, 
   3.49125197946875*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"frekvence", " ", "=", "1000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"amplituda", "=", "2.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vstup", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "[", "t", "]"}], "->", 
     RowBox[{"amplituda", "*", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", "\[Pi]", "*", "frekvence", "*", "t"}], "]"}]}]}], 
    "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.490956666207974*^9, 3.490956719895474*^9}, {
   3.490956752426724*^9, 3.4909567715360985`*^9}, {3.490985346270474*^9, 
   3.490985348801724*^9}, {3.490985387551724*^9, 3.4909853897860985`*^9}, 
   3.490985428739224*^9, {3.490988839301724*^9, 3.490988865895474*^9}, 
   3.490989011895474*^9, {3.491252721265625*^9, 3.491252728484375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Popis obvodu", "Subtitle",
 CellChangeTimes->{{3.490979081770474*^9, 3.490979084426724*^9}, 
   3.4909791699110985`*^9, 3.4909792283173485`*^9},
 Background->GrayLevel[0.85]],

Cell["Uzly:", "Text",
 CellChangeTimes->{{3.4909786706923485`*^9, 3.490978671114224*^9}, {
  3.4909800250985985`*^9, 3.490980028239224*^9}, {3.491251992328125*^9, 
  3.49125199475*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"uzel1", "=", 
   RowBox[{"0", "==", 
    RowBox[{
     RowBox[{"iR1", "[", "t", "]"}], "+", 
     RowBox[{"iL", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uzel2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"iR1", "[", "t", "]"}], "+", 
     RowBox[{"iU", "[", "t", "]"}]}], "\[Equal]", 
    RowBox[{"iC", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uzel3", "=", 
   RowBox[{"0", "==", 
    RowBox[{
     RowBox[{"iU", "[", "t", "]"}], "+", 
     RowBox[{"iR2", "[", "t", "]"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4909551090360985`*^9, 3.4909551991923485`*^9}, {
  3.490955680832974*^9, 3.4909557225673485`*^9}, {3.4909557927548485`*^9, 
  3.4909558096298485`*^9}, {3.49125203825*^9, 3.491252112390625*^9}}],

Cell["Rovnice sou\[CHacek]\[AAcute]stek:", "Text",
 CellChangeTimes->{{3.491251998203125*^9, 3.49125200303125*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"civkaL", "=", 
   RowBox[{
    RowBox[{"u1", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"L", "*", 
     RowBox[{
      RowBox[{"iL", "'"}], "[", "t", "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rezistorR1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"u1", "[", "t", "]"}], "-", 
     RowBox[{"u2", "[", "t", "]"}]}], "\[Equal]", 
    RowBox[{"R1", "*", 
     RowBox[{"iR1", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kondenzatorC", "=", 
   RowBox[{
    RowBox[{"iC", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"c", "*", 
     RowBox[{
      RowBox[{"u2", "'"}], "[", "t", "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zdrojU", "=", 
   RowBox[{
    RowBox[{"u", "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"u2", "[", "t", "]"}], "-", 
     RowBox[{"u3", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rezistorR2", "=", 
   RowBox[{
    RowBox[{"u3", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"R2", "*", 
     RowBox[{"iR2", "[", "t", "]"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4909557331923485`*^9, 3.4909557372235985`*^9}, 
   3.4909587933798485`*^9, {3.4912521246875*^9, 3.491252207078125*^9}}],

Cell["Po\[CHacek]\[AAcute]te\[CHacek]n\[IAcute] podm\[IAcute]nky :", "Text",
 CellChangeTimes->{3.49125200728125*^9},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"poc1", "=", 
   RowBox[{
    RowBox[{"iL", "[", "0", "]"}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"poc2", "=", 
   RowBox[{
    RowBox[{"u2", "[", "0", "]"}], "\[Equal]", "0"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4909558038173485`*^9, 3.4909558065673485`*^9}, {
  3.491252141515625*^9, 3.491252141578125*^9}, {3.49125226509375*^9, 
  3.49125227228125*^9}}],

Cell["Soustava rovnic:", "Text",
 CellChangeTimes->{{3.49125201121875*^9, 3.491252018265625*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{"rovnice", "=", 
  RowBox[{"{", 
   RowBox[{
   "uzel1", ",", "uzel2", ",", "uzel3", ",", "civkaL", ",", "rezistorR1", ",",
     "kondenzatorC", ",", "zdrojU", ",", "rezistorR2", ",", "poc1", ",", 
    "poc2"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.490956159582974*^9, 3.490956223801724*^9}, 
   3.4909563667235985`*^9, {3.4909584647235985`*^9, 3.490958473114224*^9}, {
   3.491252278015625*^9, 3.491252322734375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0158e\[SHacek]en\[IAcute]", "Subtitle",
 CellChangeTimes->{{3.4909791543173485`*^9, 3.4909791739735985`*^9}, 
   3.4909798205360985`*^9},
 Background->GrayLevel[0.85]],

Cell["\<\
Abychom mohli rovnice vyhodnotit, dosad\[IAcute]me do soustavy rovnic hodnoty \
sou\[CHacek]\[AAcute]stek a vstupn\[IAcute]ho nap\:011bt\[IAcute]:\
\>", "Text",
 CellChangeTimes->{{3.490978388770474*^9, 3.4909784125048485`*^9}, 
   3.490979148020474*^9, {3.4909799961298485`*^9, 3.4909799963485985`*^9}, {
   3.490989117082974*^9, 3.490989127395474*^9}, 3.491252366515625*^9},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{"rceDosad", " ", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"rovnice", "/.", "soucastky"}], ")"}], "/.", "vstup"}]}]], "Input",
 CellChangeTimes->{{3.490957088239224*^9, 3.4909571027860985`*^9}, {
   3.4909889215673485`*^9, 3.4909889266923485`*^9}, 3.490989017801724*^9, {
   3.490989136989224*^9, 3.4909891404735985`*^9}}],

Cell["Nezn\[AAcute]m\[EAcute]:", "Text",
 CellChangeTimes->{{3.491252379578125*^9, 3.491252387*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"nezname", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u1", "[", "t", "]"}], ",", 
     RowBox[{"u2", "[", "t", "]"}], ",", 
     RowBox[{"u3", "[", "t", "]"}], ",", 
     RowBox[{"iU", "[", "t", "]"}], ",", 
     RowBox[{"iR1", "[", "t", "]"}], ",", 
     RowBox[{"iR2", "[", "t", "]"}], ",", 
     RowBox[{"iL", "[", "t", "]"}], ",", 
     RowBox[{"iC", "[", "t", "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.490958053395474*^9, 3.4909581374735985`*^9}, 
   3.49125273540625*^9}],

Cell["Interval \:0159e\[SHacek]en\[IAcute]:", "Text",
 CellChangeTimes->{{3.4909784473173485`*^9, 3.490978473801724*^9}, {
  3.4909800021923485`*^9, 3.4909800042235985`*^9}, {3.4912523970625*^9, 
  3.491252410203125*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"perioda", "=", 
   FractionBox["1", "frekvence"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tmax", "=", 
   RowBox[{"5", "*", "perioda"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4909582688798485`*^9, 3.490958279489224*^9}, {
   3.490958363207974*^9, 3.490958366832974*^9}, 3.4909585742860985`*^9, {
   3.490960780114224*^9, 3.490960781551724*^9}, {3.490961161676724*^9, 
   3.490961163332974*^9}}],

Cell["Vyhodno\:0165me :", "Text",
 CellChangeTimes->{3.4909784855360985`*^9},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{"rceDosad", ",", "nezname", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.490958312895474*^9, 3.490958341895474*^9}, 
   3.4909584374423485`*^9, 3.491252739015625*^9}],

Cell[TextData[{
 "Dostali jsme 8 \:0159e\[SHacek]en\[IAcute] pro 8 nezn\[AAcute]m\[YAcute]ch. \
V grafu zobrazme nap\:0159\[IAcute]klad pr\:016fb\:011bh nap\:011bt\[IAcute] ",
 StyleBox["u3[t]", "Program",
  FontWeight->"Bold"],
 ". Proto\:017ee v\[YAcute]sledky (\:0159e\[SHacek]en\[IAcute]) jsme dostali \
jako seznam pravidel pro dosazen\[IAcute], je pot\:0159eba napsat \
v\[YAcute]raz (",
 StyleBox["u3[t]", "Program",
  FontWeight->"Bold"],
 ") a do tohoto v\[YAcute]razu dosadit ze seznamu pravidel (",
 StyleBox["reseni", "Program",
  FontWeight->"Bold"],
 ") :"
}], "Text",
 CellChangeTimes->{{3.490980012801724*^9, 3.4909800132548485`*^9}, {
  3.491252422203125*^9, 3.491252425578125*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"u3", "[", "t", "]"}], "/.", "reseni"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tmax"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4909602529110985`*^9, 3.4909603271923485`*^9}, {
  3.4909604374110985`*^9, 3.490960515051724*^9}, {3.491252428953125*^9, 
  3.491252429421875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:0158e\[SHacek]en\[IAcute] pro obd\[EAcute]ln\[IAcute]kov\[YAcute] pr\:016fb\
\:011bh vstupn\[IAcute]ho nap\:011bt\[IAcute]\
\>", "Subtitle",
 CellChangeTimes->{{3.4909891682235985`*^9, 3.490989177614224*^9}, {
  3.491039016953125*^9, 3.491039022078125*^9}},
 Background->GrayLevel[0.85]],

Cell["\<\
Zadejme nyn\[IAcute] vstupn\[IAcute] nap\:011bt\[IAcute] jako \
\"obd\[EAcute]ln\[IAcute]kov\[YAcute]\" pr\:016fb\:011bh.\
\>", "Text",
 CellChangeTimes->{{3.490978605645474*^9, 3.4909786145985985`*^9}, {
   3.4909891962860985`*^9, 3.4909892139735985`*^9}, {3.490990427426724*^9, 
   3.490990428332974*^9}, 3.490991483301724*^9, {3.49125247053125*^9, 
   3.491252478234375*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"vstup2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "[", "t", "]"}], "->", 
     RowBox[{"amplituda", "*", 
      RowBox[{"Tanh", "[", 
       RowBox[{"100", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", "*", "\[Pi]", "*", "frekvence", "*", "t"}], "]"}]}], 
       "]"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4909630626298485`*^9, 3.490963122082974*^9}, {
   3.490963187489224*^9, 3.490963205520474*^9}, 3.490963237020474*^9, {
   3.490963292270474*^9, 3.490963292457974*^9}, {3.4909633792235985`*^9, 
   3.490963395457974*^9}, {3.490988973989224*^9, 3.4909889872235985`*^9}, 
   3.4909890365673485`*^9, {3.4909894185360985`*^9, 3.490989493895474*^9}, {
   3.4909895441610985`*^9, 3.490989571457974*^9}, {3.491039024765625*^9, 
   3.491039026140625*^9}, 3.491252853375*^9}],

Cell["\<\
Dosad\[IAcute]me nov\[YAcute] pr\:016fb\:011bh vstupn\[IAcute]ho nap\:011bt\
\[IAcute]:\
\>", "Text",
 CellChangeTimes->{{3.490989256864224*^9, 3.490989315864224*^9}, {
  3.490990473426724*^9, 3.4909905501610985`*^9}, {3.490991516145474*^9, 
  3.4909915294423485`*^9}, {3.491252500640625*^9, 3.491252513078125*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{"rceDosad2", " ", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"rovnice", "/.", "soucastky"}], ")"}], "/.", 
   "vstup2"}]}]], "Input",
 CellChangeTimes->{{3.490957088239224*^9, 3.4909571027860985`*^9}, {
   3.4909889215673485`*^9, 3.4909889266923485`*^9}, 3.490989017801724*^9, {
   3.490989136989224*^9, 3.4909891404735985`*^9}, {3.490990495989224*^9, 
   3.490990497426724*^9}, 3.491039034265625*^9}],

Cell["\<\
A vy\:0159e\[SHacek]\[IAcute]me obvod pro nov\[YAcute] pr\:016fb\:011bh \
vstupn\[IAcute]ho nap\:011bt\[IAcute] :\
\>", "Text",
 CellChangeTimes->{{3.4909893678798485`*^9, 3.4909893923173485`*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{
  RowBox[{"reseni2", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{"rceDosad2", ",", "nezname", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"StartingStepSize", "\[Rule]", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.490958312895474*^9, 3.490958341895474*^9}, 
   3.4909584374423485`*^9, {3.4909895218798485`*^9, 3.4909895371923485`*^9}, {
   3.4909905760673485`*^9, 3.4909905928798485`*^9}, 3.491252744890625*^9}],

Cell["\<\
V\[YAcute]stupn\[IAcute] nap\:011bt\[IAcute] m\[AAcute] v tomto p\:0159\
\[IAcute]pad\:011b tento tvar :\
\>", "Text",
 CellChangeTimes->{{3.4909902208173485`*^9, 3.4909902542235985`*^9}, {
  3.490991012520474*^9, 3.4909910600985985`*^9}, {3.491252528953125*^9, 
  3.491252529703125*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"u3", "[", "t", "]"}], "/.", "reseni2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tmax"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4909602529110985`*^9, 3.4909603271923485`*^9}, {
   3.4909604374110985`*^9, 3.490960515051724*^9}, 3.490990595051724*^9, {
   3.49125253265625*^9, 3.491252533078125*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 698},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
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, 242, 4, 147, "Title"],
Cell[812, 28, 35798, 591, 347, "Text"],
Cell[36613, 621, 94, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[36732, 627, 141, 2, 98, "Subtitle"],
Cell[36876, 631, 144, 2, 65, "Text"],
Cell[37023, 635, 847, 22, 48, "Input"],
Cell[37873, 659, 323, 5, 65, "Text"],
Cell[38199, 666, 809, 18, 98, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39045, 689, 180, 3, 98, "Subtitle"],
Cell[39228, 694, 223, 4, 65, "Text"],
Cell[39454, 700, 815, 22, 98, "Input"],
Cell[40272, 724, 153, 2, 65, "Text"],
Cell[40428, 728, 1260, 39, 228, "Input"],
Cell[41691, 769, 155, 2, 97, "Text"],
Cell[41849, 773, 436, 12, 106, "Input"],
Cell[42288, 787, 135, 2, 97, "Text"],
Cell[42426, 791, 445, 9, 64, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42908, 805, 175, 3, 147, "Subtitle"],
Cell[43086, 810, 424, 7, 97, "Text"],
Cell[43513, 819, 349, 7, 64, "Input"],
Cell[43865, 828, 138, 2, 97, "Text"],
Cell[44006, 832, 533, 14, 64, "Input"],
Cell[44542, 848, 259, 4, 97, "Text"],
Cell[44804, 854, 448, 10, 148, "Input"],
Cell[45255, 866, 115, 2, 97, "Text"],
Cell[45373, 870, 337, 8, 64, "Input"],
Cell[45713, 880, 737, 17, 138, "Text"],
Cell[46453, 899, 373, 9, 64, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46863, 913, 299, 6, 147, "Subtitle"],
Cell[47165, 921, 426, 8, 97, "Text"],
Cell[47594, 931, 845, 18, 64, "Input"],
Cell[48442, 951, 363, 7, 97, "Text"],
Cell[48808, 960, 427, 9, 64, "Input"],
Cell[49238, 971, 245, 5, 97, "Text"],
Cell[49486, 978, 552, 12, 72, "Input"],
Cell[50041, 992, 336, 7, 97, "Text"],
Cell[50380, 1001, 397, 9, 64, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
