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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     40435,        835]
NotebookOptionsPosition[     39226,        789]
NotebookOutlinePosition[     39580,        804]
CellTagsIndexPosition[     39537,        801]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Elemi sz\[AAcute]m\[IAcute]t\[AAcute]sok", "MainSection",
 CellChangeTimes->{{3.494841392390625*^9, 3.494841411296875*^9}, {
   3.49484822690625*^9, 3.494848245765625*^9}, {3.524244890610344*^9, 
   3.524244894744351*^9}, 3.665829946489374*^9}],

Cell[CellGroupData[{

Cell["Trigonometria", "Section",
 CellChangeTimes->{{3.4948420765*^9, 3.494842081171875*^9}}],

Cell[TextData[{
 "\[CapitalAAcute]br\[AAcute]zoljuk a ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", "(", "x", ")"}], TraditionalForm]]],
 " \[EAcute]s",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"cos", "(", "x", ")"}], " "}], TraditionalForm]]],
 "f\[UDoubleDot]ggv\[EAcute]nyeket:"
}], "Text",
 CellChangeTimes->{{3.4948420588125*^9, 3.4948421165*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Pi"}], ",", 
     RowBox[{"2", "Pi"}]}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49484212134375*^9, 3.494842180203125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmnk0VO8fx21ZSpgZsqaSylKSFFE9DxKVFvqKLC2itCAVsheSskSRUkoJ
kS0hUj5T2aKkhJLs+5i5drNYfvf3z8x5nXvnOe/7eb+f9z33nlnl5GHlIsDH
x7eD/Pj/9ymbywa8VWL0Cw92FzU13Cq34Dwol1QSo9+g+ob+l3sGtj4qN1Zd
JkaHKKHTCrk+INohtm//YjH66bT96f05NyH3dIr903FR+hZ/X8FLOYnA9voW
YPJZlG66Y93rr68yICZ+HUQ6i9IvXS3JOpD2Fkp//DVRyhChp0UeD70QWQ1K
akfGj4kL061MBt0jKb9BxXtRwZ8oIfrjj1xfGdsuOPu7pJATLkR/azrv3XC+
C/INLryVvy5Ep7xvkggJ7gK08PP9US8hum/Prd6a9C5wiEip/uMoRC+VHVjo
meyChCTDf3+0hOh6B7yrdt/pBlHwFG1tEKRfM9PW8H7fAyyR9mOt0oL0DBUn
u33TfZD+es2gn4Qg3YGb8rJetB8c7d08FUUF6cK2JjwTxX74mjsb6sAToPuO
dgYJ4X7ItFbMbO8SoKd/fVv6N6IfnFNtJ7pzBegzHpuYv2UHoHVn402GuQB9
9JVaJmgMwt1BBUqUsQDd0OpiiJvhIOy565S0frsAPTmLyltiMQglfWPZbhsF
6GENRikKboOQECX1k5ARoC8wzyQE5g7Codb9SpPd/HS/+G2qllpDUO1Vkz8b
wE/XHfuYO7hqGBwm/lNY7MNP5y3nBj7eOAzjF7tCZT356dWPeY1GO4ZB+QL3
iI4LP90E6U2fsB0Gb6f1c2f289Pf5dgbj0YPw9qDsXsal/PTMyR1b1tMD8MN
NdvuzHI++pH73uK1ZQxQSO/d97aEj679wbkopZoB+as9iyoK+Oih/omCro0M
aFO+HdGRzkc3qa7xqhlmgK7Mey2ZO3x0lKU+911uBHr5V/pfO85HLw++RJ30
HAGTvwM0Gz4+uirNZMxFjgl3MUW0dmIBjk/8VpdbzYQntVaDff0LwDh07urb
DUx42970cvm3BfhETBt+MGbCoHCbevTDBRjSyXnSe54J+2wGNS/oLICCcP3i
5HdMsO1SF49YswBxwrkhyyuY4Hz+/Eiq3AJkcgRe3v7GhIBgVvbf+XmYP/ak
W6OTCbkZkxv21c1D+19HjxAhFkix+bQ1nOfB7WdwfcQeFiiFGEvttpkHK2mu
3Q9LFqiJh42e3DsPAdJMfWE7FhitFHn9UHseKsV5jbrnWHDJfKmO2Nwc7Bco
nHxxiwW/HsjrDibMwY+fL/2+VrCgU8VeWujWHJSFBZa11LFgJPvx5IqAOfj5
JX6+/icLFn1cUWTjNAcPs6/7Xu9kwdahNVurtebAbD2jaorLgofbdPTTq2eh
0shLUm49ARVL/5nNv5slzw99XLWJAFbXTZsjubPAjBFKO6lHgPHtf97CCbOQ
e9lJwdGYgJHWiKLTTrOAnzvonbUhYFne5spy61kQxz7Y34EAo9D2X8v2zIIZ
b1+W70kC7mvqTlZtnIV1Mfn3DM8TgAM6dNbN8aC9k3BtDCTg3KHbxsGjPFAz
klxtHkJAguoWq5YeHtTKGa/NDCdg+Ottz5u1PNAg2LMb7xAQv3xr/kAiD07z
zT879JSA8rFOQJE8+JFQZLculYChysjviUE88DlFmA2nE7DTvYtl5sIDd4Wo
Yt1cAgbLoza81OFBm2Vc2t8yAqj39HbwreXBLTvNzzQgYMeZbgtbefI4t15Q
/xMBdyX1L4jy8cDmiVP/rhoC3vd0+5+Y4ELKjVthG+oIGHgbHVnSz4VN39ft
FKgnYPuJnizXb1wo0fk469FIwGndmHd0Ohcon4/MizYTECe6rVaukAuJLx5I
x/wmoD8/ZqgmiQstth1XHf4REMtvoKbuyoXaBucZsX4C3jX16l2358LU7NgV
wUEC+jLvmP05wAWlbwze4BABBlZ9p29t4cLpN5dWXWUS4Lw21rtLjQvybyo/
rCIIuMM1CN+mxIWDmpTjb0cJ6H0emzYkwIXBlvTs9AkCJHwMi4ymOVDMVrDh
myJg277+iodDHBC48Fdg9zS53oq4X2NtHHjmppTnM0NAzIRh754GDiS8V7ZP
YBNQUt0/8ewzB0IebRR+yiGg51GcILeYA2t+vMyL55LrX9xOs8riwJuXo0e8
eQTo7xpQyUrmAB735ZnMErCSrjjxN44Dx1k3Po+RLLL90Oel4RxQ4vdZFTNH
5vFt2D3kx4EpMba0/DwBzZtLT3m6c+DBqQ/Jd0kuz2NuTnXigGRvWBmX5DRN
FaGmIxzoa5Nxt1wgICrjyC/hfRwwVjQquk/yldWRL/QRB8QGO2NrSXZ4ClfO
bSbPF/nDxyTZRHFy1+N1HHAqW7ZonmSNRDWZekUOjJbHJs+RTKU59i1IcoCx
16yWQTI3Jq5okxAHkmi7ImtI7l5cdeMUmw3qe5I675FcG861ThhhQ2ri6dr9
JL8W2Li2upMNrWu/m0+Teh8EnZpm/2KDQ5KgQzTJ17iJVRpf2GBF2SFEI9nV
++t9hw9sOLm23OgmOY9D43xnYl6zIZr4KT1MzkvffYsePY0NwvMNgYYkrxg+
KzL+kA0LjrKB/rz/7+efGdYhbJDKVMPVpD/NjiJXb3qzIYfSJdRI+vfhj6F5
6Tk2HK56f/Ib6W/UjxeDSofZcNFiVX80mYcr+/+UHDBjQ+bZHon/Jgmw/7L0
1jVDNlSdNfwpSuZH46O3eu9qNnz+c1NzJ5kv6o5XHBk5NnBt+T+XswjglHR8
MRNnA/Fbgb2BzGdNvvm5V5MzUCCbsvM3md/89YEG/wZnYOPjNksame/El68X
S/6bgdpXdsI7yPyfTlF4dalyBgL51tg4dBNwQOmg/4vSGah7HT1l2UnAlgeh
+5pzZiCo8uK2re0ECMWOMLbdn4HbbbuLa/8Q8Dy4fD3/mRm4uzgzfXUDAbd5
47M69jPgNSR3L+YbAZ4+6745H5yB9+sMNg7Wkv3kEetWozcD4V7HA85UEtB+
zCn3jugMaJUw4u+XElDVej/o4+w06E/YqfsUE5BzpO7AxOg0KHxa6rf7DQEB
B3SJI3+moZi1zeZ1NgGKO4W1lbOmQX1r8uaSJ2Q+zE8ttUyehqL6V3yQREDW
YfpwaOw0WNs+uPv6Prmfz/qlDXlPg3b0VUm7GALs4lkKRSbToLpiXWlJAAFJ
w82LLP5NgdcjDes8awKcpjb3BDVMAWtDxufLh0g/+OLorz9PQWFA7FrVfWR/
yOzzl82agvbLB1vMMQGtGEa7vafgonPL7ufqBCgkZvz1lZqCRWo1SQ/YLOh+
JlSaLTgF7yuFhJTHWZCVffJ+x/QkKC2nPLnDYIHBJ0VL03+TkK/n4aXXzgI7
5p0qqaxJ6KR3qSd9YkGSydXXGSaTEPuB8iDvJgvkR81vNnlPQGe8Rux2QRY8
eb5xTfe5CegNsvUb4jJB1XrZZ9axCeDtrc66Mc4ErXc98yJmE/CwQX0ssosJ
xmFB3gayE2A4YP+woZwJ5+QKXZ6+HYfCyLyUnd5MeIdX7DrLHoP5Z+dLfvwe
ATSxqNtrZAx+aTtt9KwfgYq0keCQzjEoSDSI56sYgfrF78oe1YxB7HjfTiJ3
BLp//be5/sEYjKa7fxAPG4ElZ2+rbN42BruNS9P3a46AQ9wU35zvKDylxunS
3BmwEG1ab+o+Ck+Yxunckwx4fjvhUYzTKGyeuHG20ZoBQ6Fbtq7cNwr3K1rm
bXcwwNvb67yJ0ihcLliyvGgJA1a8HX5FI+97oiJHhN6mDUP4vmHrDcIsgOyj
bMr3IfjvylDmCTkGjNsvzNDZA2Af2Xpscn4Y/uxwleweGACn53W0iD7ydxxJ
qcnmAfBsyAnMKxiGwtSemeHCAYhZf8ly3mIYuJmr76y5OAA1vVz2o+tDkJpM
OdPS0w87rMXNW4YHoBz62P70Pli7dWP//g+9cEkpNMXGsgcEc+Lqtz75B1K2
4ZZX7rbB2vrDnPZPDWAT/mB2Nq4Burdc29Iakw9tp5d/7IvMh8jfeYcrw8tR
Md/UY5Mr5chKPlNC/PQvlNbMM5SW+IVK0PEVh9U6Ud2Xim/3p9pRXIhKqnxy
P1oRM+i3troXneAdO3aluB+lVTH2u7b2Iu0rj+S/f+9H826JYsnMXlTvIh0b
JjCAFtcWLe6g9aHFe4QDiTMDKDY8qPfz8T4UIjl8pFJnEK3evjVBeKoPXXr8
erFnzRBa9bQ+VVlmABnJsCrruoYQ/9ELjelrB5BUjMb1tbwhtKfb1W+l/gDK
DU6d+bthGLW9ShMYtBtAw04JvbvvDaODS0zqqp4OICd133KlYwwUvVb+V+na
QWRVjC/VTIwgvnrH8+vVh1BGx9lsjyVMdN8vcfiT3hCaFb3Xv2w1E30ae/Z8
3+4hlG7fZ+dixUSmdm7Jm08NIQ7fbROB10wkjZ26HB4PoZR9jdLb3VnI6WJ3
y1LxYcTqdHmbN0ggmyCLD4Wdw0jlRvVVTb5RpKfgFRHKHEZf5dtkFpaMovmn
xskm3GG00mTRofTVo0iVN30zkcZAtQk2FZNWo+jAu4KUaFMGUjaczY57PYrK
hW6MZaczUOUN06A69zFkcfXNwduOIyg2cpPEE/8xhMv/yZ44O4Ls4pY/uRgx
hrzd8lNWe40g1uOpDzLPx9BHRZXmy1EjaFlh2tzxpjGU+ipmQe/dCDrdvShw
0nAcJVKoLHMqE2kPjolXm4+jtHOsgzNKTMRl/nv80HocrQ5QXLi7joliOEXv
d3qMo1btzRp3tzNRsdTp2Yjn40hfJXIm14WJhFGV/3KxCeRPrChxKGSihl0F
S0ZlJtBe9e6Wtg9MlLT3yaNPKhNoq9jTf3uqmUjriHfZme0TyGj0X8jwHyY6
4raW99pjAg1cm4o2nWei9EfhfrubJ9ADMb1HjiYstJu929cjdRKtOCBXQZSz
0OEjmeaueZPI7oaN0+1KFjpRuETuZNkkqju2qYr2lYX8LjYUWzVOog0Kig3j
v1kod/Do5BbBKXQhMzeia4yFZP5c8Jh1mkKLV7ZHBq0kkIre951T7lPI4u+X
LsG1BNJK2CTB8ptCd1osqn00CWRuOZ3dcXcK5ZuM6GpuJVDAl+DhT5+mkCcK
MqPvJVBv6V2XWyrTiKUQ/CPlIoHGZKd0Q7SmUUTARPVSLwLNe9kI+RtMo5Cq
8lVnfQkkp6OUesFqGlmvfj41fJ1AFllpnQdDptFt3Q9tCncJdFRUNN88ZhqJ
SFW+4iYQ6PTpc8FGSdPIDwrrah4S6JrKRuXNBdNonPN9auMzAr1JKrFf1j2N
znlAqXoegehsBU1J1jTS3nq72b+AQF+PBHJFuKQeOzPd90UE6qcaP+RQZlDo
I7tXIu8JpBBZ19xmNIO4o8dsvlQTaN3QhvSm/TPIWGpsb3QtgXTNYr3qj86g
O6M8T/SNQAcEraXpnjNIwybgP/efBArxb7dMfTaDLv+xNZn+SyDPOy1jx3Nm
UNudDe9XthPoRGpDnFLpDHLKXSNp0EmgHXWffiQ0zCDxFiG0rZdA6zvKPK3a
ZpDDgUr5Ff2knolCiuTgDDIXc6idGCAQWyHDMmJhBpWXqmaeZRBoQCtlbNcS
NtrC59e0mEmgZuOHcfyybKS2YaQxiUXO41zkDz8tNnKMaDS5OUag50FhnnoG
bGTHK3rTM06g2LuBlElTNlrecWdca5JA7u88LN0c2ei+0bnWuGkCOda7jqmf
ZSN7YZWQzBnSn+6Tcf1X2Ki4Bk3nsQlkMG23KfUaG00c2Lo1jUMg9cX//Tge
xUbbnl03usUl/VXe76n0gI1+iWXIOvAIJKyzm/InlY28ZLaULJ8l0JQpep2Q
x0Ye9z6r1JPce1Tf0qqMjVgJE0fc5gjU6LZpTKKajTZe8viPR/Kn6xpxdT/Z
KIM+rHB1nkD5Cas3RbSz0SZHlawekp9mKv3YNcxGOmfa+HcuECjmg4wn/zQb
FRkNrrpJcsAPCUo5PwdF3FNeDCSf7xN57beUgyzNTr7rI9mOw2epJ89ByZGP
dHgk71nKHZ1Q5SDGz4+XFkjWXzURm6/NQW8af/iNk7x2y4i223YOco34ufcX
yTJ7+hrUzTno8sZf3S9IFnJsv9h/mIM0940aO5M8frFFKvU4B1U+23OeSnJX
WEP+8fMctHuHuEMeqb/hwZdDSj4cdOa8m4whyZD9afR3CAf5fXiVWERefy69
LDYhhoPMRCV7lEl+/KtQ2yqJg4ZODc54k/OLHMxpkEjnoCead5s/kPP2m02/
WPeagx7MeQRPkH64SqVIRXzgoC/vWOOyJO/Wv3uIv4mDRqryDTeQfm6xiBz9
0MlBh1bPUpRJv1VPhMX6jXCQ6Q124dwUgfgjvBsmBLnIerffqVsTBBp95HEx
X5KLFpVbXtxC5qk9z1XKTZGLSs8HWTSMEuh9i92hfh0u+u7Q5fWTzOcrxuHR
5zu56GbJm4ptIwRKWrCIPb6Xi2T8aP13hgnksw41/D7JRYck5V+IknnX8Vl9
qC6Wi9DSe2rrOwiEZye6w5O5qOjZRdG/beT+u17hZZzFRfsjst55tZJ+Rro8
Kv3MRfWZlo/dmwj04mlGf8Y0F62dFQ9xJ/dvgepV31OCPHTYmaYSQO7vj5nm
4iukeMi3av6ZVwWp/83QpvvqPPRiteGe9eUEkq3RDAxz4CE7Zar7y3zS7/2z
kvgsDy0bzzWVySH74OfX5zwvHlKRGFrqnkmgQ21uNZfu8FBoe4hvD9lHt0fz
aCc/8RDRvpm/PY5As3K6WTvUZpH5eltFaXcCLX4itIOjO4tMP6lqGZ0lkPzq
pu+FRrMoWD7Uwc6ZQFs3eE9p2s+iU+YX5CztCORhVIIVYmbRt8GJ04dMCdR9
dnvL9MQsMtm7xvahLOkHS/xcAd8cSuKKFt6ikH17+d+s29I5ZL1lyanTSwik
GBSk0rd2Dt1eIVTbO89C/92luzUenUMqFrma070sVP1ul1A+zKF9x773ueew
kNyDyOa4ujnk1QS3U9NZ6JzXz5eXW+bQKnlsXv2UhcS1T+zXI+bQzUxFpbY4
FrJK879frjyPvkT53jP0YpG9V6D2LXAe2bbIGjXps9Co88r9w4YLyEH6ZFDc
GyYyMj6z4qvZAqrz0dzxOouJ7q7IHcs5vIDaHl19Sn/GRFtaDe97nl9AEu0O
5IMME/kdtOlgJy0gf484t6pzTCRkEOMpwl1A2khfnrmciaJE5vdSHfjwzv6F
eIOrI6hCKzonxIkPW/Jbf3e/MILmrJWkJlz5MBL78TT2xAhyf2HQ1OjFhxWf
LlZJNh9Bh4x8jifc4cN/iOIbrbIjiOY/elnuMx8WdrT7xCxgoCRW92NlDX58
21LLIP/vMMpoqmZpsPnxrlC+0UecQdRg83xb4Dw/jtvEVa8cGkTcPwFh34UE
8JqKj03tfwaRRfsmhSsUAWy23C+rp3QQjfc/Mv2gIYCnrg2d0PUdRNvZHo8P
OgpgR8aiXu7kAPqpILf3yicB7K9/apdLVz+aPe6a9iFKEHdeVLGTie1FeeON
e+WEF2HxmD07pzw7kHXmhn2WT4Vxr4FS+NGPjcjW1crAarkori84cd4S0VFC
z/7t3+6JYT/nsPXvLmZDZYjew7UaS3DSjc3rP0o3wGGNkV6zNHF8MOFom+uW
v9A4FRNphiWw/6IUaFfoAZWc3szduyXwF43BE7JaPXDJ2aDG1EICC8y6G5oa
9YBUY5/QLlsJnLVN1fPamR44kL89CF+UwDGzEwWX3/RA7bnhi9tSJLDphhfG
u/b0wqcO0yOafJL44SKu564LffD6y+xKSbokHqmrKY6OHoDxv8nrRislMUfw
bsal5AHQYe3U+lEniXVX3mnZmzMABdTrhvdaJLFU59jPX18HoNB+0RFZQhIX
rPfZc2DJIPydDq+UlJTC+Uzrf99vDEJ7xB2u7E4prLNF//Cvi0MwT+kMFDWS
woWmacqU4CFQfqTNzzGRwk38Wmtw9BAcz/kh0rpHCr89OF1xJXMIOn/QZB5b
S+E128FPr2sIuhQebFzpJoVX6lXpKB0Yht7sFGe1x1LYz1uJX3s5AyyoGS9s
n0rhw2fL3N5oMKDQJ6c34rkUDo63TVyjz4Aw43fOQy+l8KXZ8wtNVgxQ/d3o
nFUkhT1Dr2w9fZMBLoIiLuu/S+Gc+EN8O5gM6D/q5qItQMGrL3hbRr0agQNw
Oe3EIgrmt5N62VI8AsWqfn2xouRxywmQ+jQC4US4y5gEBee/k5e1IJ8v191I
cSlQpOBAE/kn/YJMcM1vdNHdQsFhviCRZsOEIWGD0/quFBxw+Giv/BgTnASU
t+qcp2BQWSp8lcOE1jl+4fXuFLzidmFsJT8Lvk5+SVtxhYL/Pb5Rr0VlQX73
0T7haxTsdb3GbZsOC7zLfZ2bEin4lkmri6YHC4hSR93vSRSsduW6YJA3C1yL
jIS+JFOwXeNQBQSy4Gi22Iv3qRSs/WD6uVQUC7YnPexJzaPgp6taHAcyWCDo
Xep0qZqClWQ2Bri0sSDAM1nnQi0Fu+5zi3jZzYLJC9cFTn+j4OCKmIDWQRb0
n9rz/GgjBX9s+SaxZIoFtZZ/unAHBTfG3wl8Ik5A7AbOCckZCj7b0lsUqU+A
mPo/bTEuBYdPvCgt20FAiOpHPsE5CnZZ1Hmp1ZiAy4q3UqYFqPjVTz9ujwUB
R8TkO/9JUPE1td2UdScIWN6nfzx7LRVPbvwmfT6UgPb3Pxl96lQce8rEuO0m
AU/iL1xdsYGKFVKPjulHEbByV0rc3c1UfNBV6UthPAEqqSIVVzEVtxZ0Uotf
ENDj9+xQgQkVx5d18IW+JOCFleE/xm4q/soxtTfMJmCNgMf0sf1UvD4kc5/7
GwLUTjarmdpRseMh59Y2OgFD+heLghypGM03DwtVEJAltdi45AQVtzC/W8tV
E6BJ32GveYaK25qdNvN/I2AksWXA+RwVh4Wued78nYBsD88rT9yo+EcrnEr8
SYDWirRoyhUqFig78bu1hQBieqfCPh9Sny/vpmMrAfn1v9PD/Kj41KH7oXVt
BGwKEqfPXKPidXkRtme7CND9d3n8XzQVz4v4HsoeImCqcGmwbBwVh2z+vvUW
g4DiqIwllvFUjK/MOloyCdDb/le1IomKZavMzqWOEsCmeb2eS6ZiPdsd+zeM
E1DCkNip94yKhQRLLzyfIMDgkbFNVgYV76OFOx6YJoB7qa2nJ4uKLUYVNtyY
IaBsr/fF5blUvKH5/ZYMNgEBKlJzR15TsYtxnnchh4Dt3MxbsYWkvs0mRDaX
gLkfJstq31Kx6PqWJ7E8Asoz/z0XLKNiPq2WsOOzBARd99m4o5yKN9Hfp8jP
EYCOUt57f6TipSMS4+Uk8216ZZ5fQcVXdzpdPThPAF3UtGmomoopNbab60i+
3tl+cnUdFXssf66is0CAcclVlkM9FVvZ8EzDSBaIpfrf/0HFv6gbkz+S/PlM
tkjDLyoO95RRGyY5DO2OF/tNxVHy8f3/f7+7S7ZzpclfKi7Y8uT3LMmLCN+c
gHYqvuClO99PclUVzaC4i4o7xF1s3pMc/iSniugl/S3c1xtAspm32WH1QSp+
kEVJUyNZ9EBXhxODigXzmQ+B1Fuzxv/CYxYV6yxR/WxE8q05aU7TGLl+uPCq
PPJ69zbl3pCcouJhj8k3IiSH2rkLG7Cp2L1nncJBcl7vOzbcdOaR+o6He4eQ
85xyZorcmafiNLnYL8/IeWsNZ0eU8tNw+vcftBzSjzMeF8R6hWhYrbHX+gXp
V8qk5m0JURq2m3ePvUn6SVvIijwlQcOPp8rHKFMEWISdE4+h0PDXzZIKpWQe
wsU0okukaXgqgLHDYvz/+cmMWapIw9sWD/hvJch8PnSV1Fem4UO0qcRoMm/n
lNVinVbR8Ir8C28ayDy2qWXEvV1Hw22L+ZgKgwTI5J6mdmvQsPE396Uq/QQc
2Lz2nrgWDf/WYG6S6SXg4460+JO6NGwdaB4FHWT+PjnLROnRcPeTtgrvf2T+
zVXvFxvQsN4blrDCXwLSrVITlxjRcHVaWI5qMwEdLU5yW3fR8JMPq2WiGgmQ
c1R5eMKMhm9s84nq+P/73zPPkor207Aw4uXvrSPAI+Bp8nE7Gr5Z5CmoAwS8
5D+ufNuRhp9lHlHglhHQHa78tPAEDftpFx7MLSHgv7jkFLEzNLyqb53y39cE
6Kc/Sn1zmYZzjzaG704lwFPTXrXdm4bPyIvUezwl+yJfIU3Uj4aP5ceb3nhE
9lvZw3THa6ReatL3K/fIfDYkZopE03BHrXji6RACDK1tNHRiaZh+1eflWCAB
V1qXvXK4R8P7I/UWXH0J6O9NyH79kJzXx5URShcJqOPcy7NPp+GTS9TtEh0I
iF8dW5QHNDzpJ/6+fRPZnzs3VKV+omHZuAlG3Hqy3+xqmxMrSX1rDZbrriPz
FCvEDq6j4eRvz++YKpF9OXfV4FALDbesoYkmLyJA5/dJGGXRcB3HWGRVE3m/
mJj/3jtGri9xhl5Zz4IqicedvydpWJUlnnu0hgV2ps38H7k0nLNrUPdgGQuu
F+zdFScsjetrVa09U1jQELX5yyZlaVzp0boi4QwLFF42/FmzShqvCNf+o3WC
Bc6f3YblVaXxATUrwRJbFrA5GUsENKSxYbvZuwd7WLDijNKBn1uk8T4j1XXx
GixwN1rUeGm/NFaiW5V5DzFh6XRz25sAaXylODZxsT0TnjDVswaCpXFZ6YlH
9YeYoN0X4KMYKo1TtSWagncz4b9fKtTQW9KYke8nlLWJCY8L3M2s7ktjQfFI
SWURJmh4CBeM5kljy10W/27njsDuwS03N/RI4zCw5WUSDPjdEfHfyX5prHb/
oLtKDwPOtfxdlTAkjYuKQ/lvNTMguur6+1lCGlODZl+u/MCAXy++jdXNSuOH
IkpdfrcYcOqki8O5ZTKYVZ5n3K3MgGut8Zsy9sjgtgMCgaXbh0HFtTLmhYUM
vmTH+8e3cRgqp6YYzw7K4Fsy9k+2rRqGxRSb9MfWMngke6VD8KJhiDeTV7x7
UgabJ+1Nc/g2BC8Lk4UCfWVw1Lof/7nYDUFDTHqLVaYMllRT4B88OwirTEoC
50WX4XtvH9HvnuiH7UES30eWLMNh44y+Lwf74Uip88q/EstwrNZDqamd/RC1
kfL5rfQy7PNya9K65f3AVjwn6rlyGc5IlQ2c/90HDZOK93r0luE9DaKR/gf6
4Fp68Mua08uw4/5rdpPavdAhZtZ4t2IZFg6sHOVr7oLEbosjy2Jlsf6bh1lB
fr8hCJU0zO2Xw1++2e45crAWbn27W7XfUg5Htylw4wa+QLy92/vk/+Qwq/j8
QFnwF8jyUXm5w14O3xtIiP+bVwPNeVHBga5y2D0zbZGVZDVorTypNRcih7e+
3vz1aN1naOdbHDX7Vg7rN/Fu3r/8DoZieq9blMnh7NincQUppTCpBD6Py+Xw
gevnRT98K4HF266c2l4phy980Lz2dN1b2OrZbhDwUw6LaN1zy2p9AzFdBUO8
ETnsu15rWW5AFjz0iO7YNyqHjS0uJxk2vYQXc2eaHk3I4WOip2VLNmTAO/nl
Hw25cjgnV+RGSHsq9FvefOAvIo9nGt8Mc4KSYKzjZEzdYnlc3JsmtmtjIsy6
bQ9TlJDHnzVTjIM67gH19phHmbQ8Vk5fo/0g+DYsl/vqskROHtdczQiq6QgF
tfR0e3tFeXzK5JVtc7Af6Ohet3ylLI8rJI5K0a6dgx2f7M145MPnok3Rxf//
/87/APmlP14=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmnk0Vd/7x413QETFFUpCaVQhRHuXqSKZQikKTRKSBpIypEmiaDBHUSiZ
KdonmSnTB1Hm+U7bkDHD73zX+p0/7lmvdffd6znv5/3s8+y97jpHd4szfDw8
PJvJj//dnWyuaP9bRyeOLf3vwshk9uVXMVk6cWFnq840yRrRX/crStIJtYtz
E39IXqvbX665nE4Yit5QyiSZ1kU3PixEJ5wZ5xuukDx+Z3vdaQE6cWsNe1qR
5N8KRy2vLdKIqMPbX5UuYlRa6tP6cIZGVLiczbUg+ePZBLv4cRox3lhnUreA
0QtaeVc2m0bU+mQ7aJN8J5XlVDlII5K4jtxn8xi5mIgP/+mmETsstGZ//8PI
kqvhOtZOIy6dir4jQbJO2IlRwWYaYXVxOmj3HEbKOwO8VtfRiDS7MorxLEYz
V3/46n2nEXJ3yoN0pzHqlZrgsS2mEYZXpQNkpzCqKWTcdc2nEfYNcksjfzGK
W3B6HJlGI4Q/9PmYjWN0L/6BeOpbGoFfiN8cGcXIY19G5Nd4GvEKVS14YIz0
7s7FDj2jEV3Tq0ON2Rht2SCvMP+YRjwVvxQbx8RIssogefl9GnHQ+8vO7mGM
hkXCP2r50ojykI0T2wYwCo3YgB450wjPgePDc38wuqFxWC/BnkboPXHSL2nH
6PQvz4ocW1KfDqntN35hpCb7ta7DhEZopITlZjRh1JZk1b1dnUac2qqRfrgK
oxIDH2f97TQi7mRt4oNyjNKH4odtVWhEWKX8rpzvGPltZo36y9GITrR/Q3Mx
RorZ/rz/CdIIo2vqjwwzMVp2NOXu8BKV2EsxuDX9AaOpqVr6wiyVUFK4J/ki
FaMqbYaEMpdKnK8QN0xMwsit5KPCjRYq4VJmVzccgVFhw2892RQqgfdkH9f0
wkjiS6RpZgKVCBO7deaqO0aub44cM4yiEvkcdfU4F4zkr39383hMJR7VTG/P
PoVRsGzaq9IrVKLUUoXDNMbI4pwPdoUkV+8PilhDPo+Z2hyvNpWo/anp8YSB
kaA2V+DFLiqh+lLo2DUJjApEHFd/U6YSV3l5d9AoGK3JOmiwahmVeDFrcFGH
zUXMeUZ0cRuFiBlM/8LM4SL9wca3Fk0Uwk3A6XzKBy6KrQv5NFRLIXgoJdZm
yVxklshTLk5QCBjrKnzuBRflGQ2PnkmmEOEZrXbvbnBR4NN8Q9ErFMJgPnbB
bzcXyW60HrcXoRC5e9UXXidzkNWAVccpCoWwrW2ci4zloJBEy0pHHgpRGXT5
uHcEB83Lmsed/StIfFy53Uo0gIM6xE0Ouf0RJCwHZb5fPsFBcf/2Jd5KFyQG
tqRrrhfloLV1Wy1iTAQJu98pOTZn2Mg2ZItunKEg4ftm2eP9x9ko7ODmjQlQ
kDhxqMtX7ggb8ZRuXExSEyS+XWn8kqTJRt0F61PTZAUJiSB4flyIjRISpfm+
sAWIu3KPFOLSWUjhmmBWW4gAIS/ju96+n4ku/CrImQ0WIGQEjmlHtTLRJ23X
fGl/ASLf4GRrRTUTgaXGomNXBYiFEyFo+hMTnbifUNF2UoAw2C4ikubLRJFR
ezratgkQw66bas6IMxENXaa11/MTsoKP1jqojiAutdO+fSU/4btoeGOF4RBK
zlQa9hHlJ5aY3iaP1YbQSbtLl2Vo/ETPlrazMwpDqPbjfOCJf3zE0Gh5VOLS
IHp/VOZ9Zw8fEechpn2gYBA5J9lO9H7kIxYm+A/1Kg+i9r1N91gH+AjV4Wzl
pNl+VHG18tO8Ly+RUzQ0tXS9F+n9Hlphw8NDpGwZI+LftKNXWjs1kyvm0dsU
H1oTuxZp6g8ppMbOoiP/CgpvM+OQzF6K6prUKXTt3ZkvvanfgfTogXvN1ybQ
ZMP1WtauFnAifJJnwXsUdQhsRWyfbmDlNfL+FIOFfl72183ZOQDsHrXb/11k
ItXRC7yFBgPAMbFmxf0BJurOWWX7yXYAXK7/cCsji4kWtnY8vuY3AEK3eJov
mjDRxYcrfzpUDYDK/rmZaP8RJCpQaBV9YhDoHhU50MocQsSLkoEzN4aAvuvC
vEvDEOot2eed/GAImARyMxfzh1DbOp8dv6KGwPHMehnlu0Mo81tev2jxELix
LBJ7rR1Cbk8bNlbyDIOsMrkXElaDaJeXdfupu8NAWWP74OHifqQw3+3VGzAC
3sXsko1824+2NhRc3Ro+AlT4NS3+PO5HdIFvF1ziR8CWevjVxb4fUdasEfn8
ZQTsdLF4fm+pDz2J7zyVMTECdOOuGn7b14euCWZHsU4xgRWlKFmtvAfpFr71
uKbKAi2uxJ+bH3vQ7sJuwzEdFrBpKpX4/rwHRb7UUjp5kAWOJ/zwMz/Xg746
LXVSHVnglHaXtRutB133Knnw7ikLXHTjo7471I3a78Zyl4+xAP+H8J8acR2o
90TRPvNENrifq+Ne5dKBtjAMy0s+sIHI1yGxE7s7UFrLwfJ1hWwgWadr7l//
B830ucq8q2ODjWMjTTV8f1D209tHmv+xgYn6/rZT59rRTomjmWlmHFCvy/Ge
2NWOmpOI52PHOeCo4cvVwTztaMWjpnuKZzjA3oZrl/aqDUHFN57m3hzg4R3V
OVnzC60F4bnlCRwQUTze91C1Fa2qXe4mzeYARnlskNxCC6Krx0lsneSA2J8H
lD5VtSDzrzoOWxc5ILkr7myzYws6ounTNiHGBQW8xiNrI5vRd9qRrBc7uaDD
IImbM9uERA6dWKfhxQWOpqZPjMqb0Fjz0jtxXy4YtJ7d3v60CamJRfu3BXLB
6Lkjl5c2N6Ha8nTxbc+4gO/hv4mD9o2IKpOznvmJC5R/Ws52ltSjTuY4+/0w
F6xfSrJxDKtHjxw8r6tgLpBX/Zs7cLIeHbfo/xY5yQUaiioDv8bqkCfxMViN
DwP59NTWiZM/UajIkOPD1RisFjWOmJv5gZ5MZtx2l8dglQfLjDfiB3LM/6a7
TxkDIbUt1aLVtUj71ZEnqTswmPzyoUhFowalxaYoRRhhMCpn6q3aUI10v0+O
dJhgwLzNVd/tWo0eBw3uWmmBQbfe9gz9xCpUm1VibHgCg+qaT68dRCuR/5Hw
XYQ7BnG/s4MjB0uRCrfahPYMg5e6Vnox/qXo3/pEHukXGDyL/7uUKFuKxt2Z
wpLRGNx3Uvf+ZPEd9Uyz1zQnYnCFlXex5us3ZLZ/79+zmRi4HbbZ2HjsGzok
/EO+PQeD8xnT/b/+EuhBw4GnWgUYnLyiaT+4iUBxxz/uKf6KwZOpK6/5thWj
2GRPj9ZqDII+56xe7lyE7POsQtJ/YODjN/lMLuoLGvXI7LhUj4Ez5XqwJuUz
4oQKr85txuBYdf6SgU4hcl1J8O75hYFp6MwNS88CxH14kvGhHQNNSZ+Lbp15
CG07WHu0C4Ot7Z/7b67MQzFKmWdDejBQiPt38sGhXHQ2UX1TRh8Gy5Rvmb3J
y0b8D45sKBzCgI9ZXJXJzkJf7py2TxjBYObD4n6kkIW+yjwovMLCoFf9jnp7
6CfUtD+qtZOLgRkrz436NgNZ/kkqthvFoMPlkufxLR+RewE8XjGGwdSFdm+e
PWno0MlNOS5/MQgcCbtlWfIeLcTSPRInMVh+wcg/+eA7NCf+uqtyCgOV8zn3
TWzfoj+3glp7ZjDIG3IJie9KQuymD/b/zWKw/9y6sPGziUh99aEXuXMY/Bxs
fWbATUAHXLru3P1Hjq+V3b6DFYcW9yys1p/HoK7mgUbrbDTKPKNzZozk4eop
3Vu0V+imLHB4vEA+b7WTwXqp5+jU3080xiIGMlX1JlVKz1BQt+HpcJLVKnWt
3NXCkOkudH6W5OjQo/mbgh+ix3E9a8yWMPgRsr38WlIQerXrdmAkyUurVqTe
9b+Fzjt5Pq8i2VmiokKu6DJKWYyzYZOssIcd2dpug8rUx8sXSDZu0puo0LYB
PK8c+//HbjOyXdIRl8EFxmjG/8bT589/8z92C/Txv1GpJrnxdnuD15MgoCAc
bv6c5AR/nu8bPR+CaN2mDeYk5+9bcdxtUxi4KRSWPkfGG7c/2aJS5hl4DKe6
npIcpKdlrLDsOVAU3VsiTfJF/Vo938WXYIHnveUTUg8LAwedFhwNpCkBEROk
XlqG42qqPXHg+QW5u4YkhyWVSBqMJIDAll9K90m9+RVFVoyfTgTvrGWuF5D5
uPbmqFh8exKwtjjq3Urmi6kYL2xi+RasD+PZOkDm8+TbYepsTTJIV0t42jON
gX7yTR7L4vfgP8bM1WTSDwXKZfNL6mlg19WBv26kXzaniM6mf0wHSpd3bFSe
wEDi3esxSkIGuO+b9/EU6bf9EZNTx0I+AbkQd/5+0o++VquvfjqQCZD2PTFr
Drle/Od0+eS3LHDBQcucwsRgU+R9nH0rG8ynxd3XHybzc/TDJSHtHFCsN+Nz
eRCD1uapC/lZuYDaGhTxoheDry0PHMXfFABZs6mClWR9zTz/2H3uVCH4Ypgx
UNmKwQ6bJvuvsp/BnTMHWi6S9fmmVdbuYuQXoHJ6P82PrN9HvzIsy4K/gu0m
ns1NZeR8qcZLQpYI1Ng6ryZKMLjx9crRd2IEEHG8ovwSYZAWJsbL/U0AvqXF
aOFCDMTVjWy9vUpA3LC2Jk8aGf+aVdti2kvAqJrK2KEUUj9qHz+C38F/CxkB
/kkYXG/zyxBYVgq21WtqZZHrV8etPErY2zLwgtOjrfCIrMezQX+yhMvB+9z+
xZpgsv7MLLKaL5eDiE+qn04HYKCnwD0ps7cCKOfiATNvDN6XK+Umt1SCUvkB
vPcsBlfFIp2KqbXA4om1xgkdDEJnHLW6L9UCm5GNOuUaGLzrURXj/68W2Lfu
dpQl1+/27NrPBxJ+gLznQXKPlTCAtgIS/2nWAQMzTsGdZRgE12udmlRrAKN/
JtnZbVywoky+hnK+ASz97C7paeSChEKqBiO6Aaz1TJz5V8MFhYnNwnt4G4HF
JaPIyWIuYHtdzr/zoxHkblIQX0zgAgvp96IiZ/8Dt/O0tpx34gKm24XreZH/
AbGq6u4hOy4ILFXpPlX2H/gcd/yrtRUX5LinZuYqNgObiYOCfAZcIFmeZuXQ
1wz0xjW1nyhxQbvnx6isU63gY5iT3P0+Djhdm618zK4deCmPRa605IC5dV5P
+B+1AznJdBBwkAOeXleb+fC5HYg7R6V2AQ4oUcit4lv9G/R0+LRd2MIBit55
rum/foMdo8q7igQ4YFipMGvpaAeIyTqbdTKLDQqAw1rLjd2gqHhvRBEvG5Sa
uGkp7+8GpkPvLqhPskDdsVuWs3bd4Lj0F3rMMAsMXom+F/+kG7QM51bvrGOB
Fe9aMWuqGyjuyNC8F80CbsvNiKCyHtC+9rFqE9lfKfbA03mOfaB1OthM3ZQJ
wgMUkqRjB4HNqarb6tbD4NQ/e3uvvEGwv1PFPt9gGKh6RUvX1Q0Cp4isJRX1
YfDzzMqwIL4h8PFLS27PimEgdJByC58bAnLGuSti6odAgBjTumznMBCRle4y
MBoCnjGZQpcrR4BY2MOBQpVBYJEHPSsn2OB5ufb9xLI+UHbXwK/GbQx8P+mu
PhTfAQxnDL3dk/6C4W9F2kPFDSDgZqd50utpYBa6YtZnPh/svL7erCZsDgwc
Nj2wcSAPVXzWF/iEFkBUZAIjWL0RhVAXD0mc4IGPfC4a1Gp2oJTmCu6mGV7o
WaHwMpK3H9XbJGrdWuSFFSkHvYxX9aO5Nt+gOgE+yHvuQPnfjf3IpHPHai9x
PnjjwueodWb9aHww2qB4Ex+0T3iT0Rvbj3Rm3GOOnOSDRnlnJqc1BlDjasYh
rxI+WHqV/U/GYRD9ixmPKK/kgyc+uZxVuTyIFNf+6GLU8cGAPzk/NgYOouvr
A64W/+aD01ElZxaSB5HsFnYCZZIPcjOMAuc5g+icLjH9cgM/5Njq/zjgPYTm
Hc6/LQ7hh3oirft/Bg0jI9FFsaSn/FBL38kKPxtGT4ue+dx/yQ/3NmwW4U8a
Rhuk0RHLN/wwsCnvMN+3YWTRuGpu+As/TB3cpu4wP4ze6383Xcnih2eSw8Mf
eYwga5U1My4HBaDJ9MnB66ZM9Lo129HsiAC8I/zIo9OOidh3D/5QPyoAA4cP
vde4wET+vV6JPKcF4IhwCL0okInSo2tMnt8QgFZJtCLpAibiE/V+/S1FAG6m
2n5evYaFMsabDjEognDvM96D/F0s9PBY87ZbIoKQ7Tfn/IjFQs5Ei0SvhCB0
MptI5Z1hodWhbe1pa8nxvIzIguVsFKTS5QK0BKHfhVWUI/vI/e4p5sOzroJQ
Rq81XiqejXZWsNxqPAXh5+0vC/1S2WjZNo6FqrcgvGh+MrApl41K/uHVc3cF
oXuksJBhLRttfTGZ+jie5JEtsqYzbMT3k6cmp1EQvjjctqffhIP+qPFlSLeR
37fMC6234aD8aP5nfl2CkCnyW+bIaQ5yvUCxO8AWhI0OzcNuVzmoVUCE9VuQ
Au/Ol/jWxnBQ+h4pYX4tCvS3l5WdG+Kgo++3GpvHU+DwNb9dU+5cZKHDND34
lgLFrJ84mFznItO6ZIt9aRS494Dg83A/LjKcXHt8Rz4FckJmxUdCuEhjn8QF
8ToK7LQQbK15x0WSbVPBDYsUKODaqnOyg4skXLMfVglQoeYv472JfVwkuuQe
+k2ICjnNLctaRriIojQSmSlJha8iXOhCU1w05fH7Tfg2Khw8rbkyaRlGLTSi
xNyeCvOfur99roVRY7Rv+UFnKvQTWlgs34vRz21a1ftcqHBXcP/EgB5G5VZZ
DTuuUaHMJuc3+DBGeQlvusVDqfC2a37jjtMYZe063U+PoMJVYY6FLWcw+lgu
N8wbRYXL1d8rubhglMx+jsfeUmHu6d6gE1cweqH5YLGhmAorzaWk3YMwiqgx
4Kv+ToUePpeG7t3HKMyej1JSRYWOh8Q2PgnB6H7QzWVZzVQodtZo+nwERjfq
L8k+5VBh0MSG8INJGHk5bZJ/OEGFPfbquc3JGHlMDa4PmKXCXzhD2ywVo/Oy
pzZ7CtKgtNtux+WZGNmet9C2kKPBboESXFSMkYH1ceUt62kwRmX2XzqB0U59
RwmKCg1aSecIh3zHSETek1moRoN5D15tl6rCiGgNj1pnQoNpGidPnW7C6EPZ
q+B/5jTY+eaDQ1UzRlHZrz2bbWgw8JuGjfwvMr4nmYceONHgxJU5leg/GG0w
apgb9aHBN7t9dEv7MVqp3jZYfYcG7zUEdCQNYsSzvqfxTTAN3qUTrp7DGLUv
jqbaPqXBl+/5j/5hYVTBnnm+8yUNKoVrpF/nYJTTzhMoEkeDuZLTXF6MUWje
cjviPQ3qeXfu6hvD6OYbhlFUBjme66OmPUHq8VR+l1cuDb7dESZ35y9GR+9s
XGv6hQbzme7cnEmM9rupCm/8RoNnB7ySf01htP2E5jRvBQ2qrOA3YE1jJHsI
9v2upUH1R/eq2DMYTSmZfXnyiwZjrx4NKJrDqG+FbcqFThpsak7OffgPo3re
U8/0+mnw8YnFWqN5jIrxudtyTBqc75mqIPtNlNrhfnEa0+DrM2rJof87H665
btMwSYM3RZ3Pkf05Ciq8rZf2jwZ3b9YRJvtzdDnl3va7vHRotdM3fIZk+8gn
Mg5UOjQsYc+aLmFkHPiCqrWMDl+8dtCPIFnzcvyExAo6nP+a4VFJspJDSheb
QYcuO775sUiWOJxRU76GDpU0/d3IfhwtaefnJyjSYY32IFgkmb0RJflsokPb
KjzOIblNsuKJlSodKsck36sluVyg7uY2DTocfia7+Irk7PGWczQdOkwsdLW2
Jjmhu9Oydx8dxuz9EsZL8uOfg6DIiA4P+qp/iCbj9ynibn5+mA53/RVPVyT5
XOqUlIclHXYeCXscQ+ph9XKR/9AxOkw+NWvOT/K+YMroegc6fLY2ftaW1G+b
l+ifBWc6VP/wJyiW1FvGUbKy1YUO3cwl/9aT+aCZrcnJ9KBD3ZuFRhOzGE3q
Kic8ukaHdwmdOwIk927eFnLGlw5/dqyNEyDzWSetcQMEkHrlsl5PkPkvou51
lr5Ph6IWO0MaSH9E9h3W+fGMDu3z3koeJ/0k8fDba+UoOjx9eX3PIOm3UFV1
6p0EOiyaDw5xGCXr95Zs484PdFi+YfDBStKvgophu0Oy6fBs+d8OM9LPAdX8
sQOFdDixQ0zKe4T0qxTr3MtyOlQkGLqPBzCaKbb/MVZL5nfHnS3efWQ9OTfu
NG6iw29C/YLmPRi5ZRYuLHTRYWOprG8pWV+nje8/c5qlQ/1V3vGfGzHqHPs3
U7REh1Vj4VRKPUbHX7rbS1KEINdn6IzuD1LfAWuVKgkh2PPRVsSjAiOj20po
2xYheCkzWG3gM0alSq8U7+8Uguwkh4CwfIxgrcjDHk0hWGLQ0bwhByNt6b9W
EQZCcE//heerP2C0NbuEOWsvBC2KloqWx5H+PqZhZnlGCL7Q7LgmG4WRMk9q
bvpFIXi4gH1g5XOM5A+H33G4IQTT+1pA5WOMVgw5SJaFC8GmffTv+3wxml29
sC+sVAje23Xj1a2jGF375pEyUi0EiZeRCiZmGI2f6xfRaxCCCh5O4xRj0q85
Na2THUJw+3bnK/sgRl2mUZfspoXgo/q549UqGJUF7H6lvEkY2kUqjGyb5SLn
o2fXrFAVhv7CV3bvnOAivo2RSUvqwvBNkvFjRQ4X7f0x/uHXPmGY7zRwoqWb
i/KkPpY8PCYMp579ZbpVcNG7dEU2974wDKrPbb8WTr7Pblte/h0qDCcm1uq7
PuSifvOAqYoIYdhnepdrFshF66a7eF4nCEPGlp5Vw15cFLUvepVlgTDUN92z
xtSGi0JaxEH+kDDktXX6OM/gok3vYWkSRxg2RMiLDS/nosqb7gfDJoThKgef
iRIaFwmu+2F5YUkYbusbsTWa4SC/i/fPy0iJwG9oYdWjFg7y4FkKv20oAmXl
Ejz4wjjIchO73+itCFyXFqfVNMVG/rnBfdlpIvAr1U6zk8VGGXBd79osERgH
1SJautlI2Ma6a/qrCFzak3/7STUbfQ8k2lJ+icDcuxNYIZaNdnVE/KSKLINL
hYtpLXvZaEWYbkGF5zJYNeCXneLFQvtkfuXt8l4Gr1r85Ll0joXckz1z428v
g69M77+VP85CNUUpWddDlsHUlaFSloCFAkfEP2xIXgY/+UaFDdBYaGL/4Ot7
bctg3guf8MqXTNQ0GfrICIpCp4EH7PK0EaTwof+9oaEo3Kj6KO1S7AjydNau
NDARhalz2hTKkxG0vGlAQN9WFIb9WJYh7DmCTD/p+EEPUQivSmdf3D2Cql2Y
HloJotBtTc33u2gYlXQZWG/mEYNHu01jT5YNocyqeXkxQgxGctaOh78fQP3p
Cc4bY5bDerZrWcFiNxqhaJ/VPC8Ogw3zsmmRLUhuQNMhXVkCXnry9785nXJ0
qPnjXbFJCXj6Vihjy9NoELE+LDcDrYDi4jligfdrwbKplj/Zviuh7Q66zXvv
NnCnPWJHysFVsHJWI6XJvBconC8LfWOyCqItoNLlTC8om5xkvT6yCr4TcEqc
vtELhMRtkmOOroLW7y2tx+N7QYSRtMzT06vgFdnrIS6cXvAuJ1bglvcqSPWZ
/nYiuA/Uhya3WrxfBdk9vaKLGf1gnV7BrUWaJPyusP/rVNcg0PETrWMLS0Ip
PiMZ69FBYF3oLP9bVBLetL224T3PEAjZLv49f6UkLFU12bRp3RCYkXGhXZaX
hGoWYoPPTw+B+r8yz/p2S8I/HjUfVnQPgTvJt99VnpWE1fo/Ex2ahkF0T/Ns
3gVJ6PEHuyr2DoM82S3Gb10loX71VPvv0WHAfvqL4+8pCV/MygcqiI4A29s7
du3xk4T0sx4bRQ+MAFXbvuIPkZLwjcVqftvCEdBFN2p6WioJjxW12vmHM8H+
dZY9RIUkFKzxb0iOZ4I3mg6YWy0Jgw9UXPnygQlczl0XNm6QhL0jz1dnVTHB
VGmKHn+nJPRVQXNNPCyw7A4t58q0JLSpUvHqvcgCe6aqIqw2ScGDnxQWsRob
xC1rSQzYKgWXswaimJANeJR6P31SlYIcStiJJhM2KLecqxXZLQWtZB6oujuz
gUXmJsEyPSnIPLTauO4pG1xwfXRV/aQUjLvsOrqJzQYvek2sJcOk4LkfL4LW
hnOAUJjG32XPpGCArHDq5igO8NOVfyr4XApOjlne3ZDEAWdfTvz4Gy0FpVrf
HeTmcICaaZRBU4oU1Dqg4p/fygH1hUNqYUgKKou63FNbzQX65xoa75WQ81Wn
12opcEH+yi8et8uk4CW/Qd9tm7ggzj003a1GCmb0looManHBJSV1xcOtUtAY
/rr82JYLhMIDVghhKaiUUJFe+JQL/Pa6ZvKOS8FA3U3vsl9xwRjr6JHZv+R8
zaW1MQlc8MtQ5dHwnBRMkLwaoPORC1Lm6/gqKAyyX3iyO7OSjOe83HjgGgbs
U3j71nWOCwpWUcNurmNAE/V7d2x4MNj8fXTrFUUG3MOvbLKDgoHEmtILjpsY
sNi25F2mOAY9TS49UIMBZSQT1g5swMAPFNQvHGbAt1pbnFeaY/Dgx9Pyw+YM
2Mk/w+drjUGE3aWiWCsG7NB7oPjTDoPU6wrvdO0YMDXTs2fHWQxaMkJu3zrP
gG1ObV1T3uT8uueu/rjIgMIDPTuy/DBg1+y7KOfOgLMdsiybQAz4hqesi68y
4PAX72DHEAy2yZ/ethDAgDfEtYW9YjHQ+rhH8XAwA/6IaYMBrzHQ15FcHfuA
AXc715b5vMXguG2NoG4Yg9yvtWRt+oBBcJh6h28s+XuB4fq7XzAIX7O8qTaB
AT8VK2kOfsUgJp1ZKfuGAa3Mn7SrlmCQVRmfU5TKgGlZnIqgSgw6eYRC5vMZ
8HKSOX3DfxiMhPb7m3xhQAovj2hbCwZ/ZdH1mK8MWKPkpnu1DQMhLS8nnTIG
/Dfrvsq1E4NVFabHQioZcEw95nN5NwbyR1WO/KlhwDtWhYHCfRhoXO7U9m1k
wDdbY25aDmGwb6lAtbaZAT0dPFOsRzAwefxMWbaNAY2dj4/psTBwfH9AoqiL
ARU6ldr/cDG4tHs9TaSPAbWbw6/dH8XgRtnCgt0gAxq8ld+yZhyD0J6skX9s
BjTnP9lJncTglfvjLuNRBnTQEm6zm8LgzcK55ugJBvzzqmP41TQGGY/217Cm
GNBSaE6kZAaDz9Jy3/bMMeD5G5H6/zsvL0uZznu0wIBO7ROhZP8H6tUb03/z
SMPM7edZef8w+P09PXGzgDS087c6dm8eg0Hzey9vUqWhV6/Kr30LGIx1nQ6t
EZKG1zzOnxskef6STpCMqDSMt4ynXF3EgDov6XNRXBrqINdcDskSD8fcv6yU
hqyxW1f+dz4ux6g9I8yQhq3qT2AsyRuTk+3sZKRhf/dF2f9I3qnmb562Rho2
WnEpkyTrltgZ/VsnDf///yng/wAXRhHn
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{-Pi, 2 Pi}, {-0.9999999999999815, 
     0.9999999999999815}}, {{-3.141592653589793, 
    6.283185307179586}, {-0.9999999999999815, 0.9999999999999815}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.49484216496875*^9, 3.494842180640625*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Hatv\[AAcute]nyf\[UDoubleDot]ggv\[EAcute]nyek interakt\[IAcute]v megjelen\
\[IAcute]t\[EAcute]se: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    SuperscriptBox["x", "\[Alpha]"]}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["f", 
      RowBox[{"-", "1"}]], "(", "x", ")"}], "=", 
    SuperscriptBox["x", 
     RowBox[{"1", "/", "\[Alpha]"}]]}], TraditionalForm]]]
}], "Section",
 CellChangeTimes->{{3.422025112342408*^9, 3.422025135746061*^9}, {
  3.444623133296875*^9, 3.444623138953125*^9}, {3.44462412784375*^9, 
  3.444624136328125*^9}, {3.4447537688125*^9, 3.444753774953125*^9}, {
  3.44508803915625*^9, 3.4450880534375*^9}, {3.44509665259375*^9, 
  3.44509666790625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SuperscriptBox["x", "\[Alpha]"], ",", 
       SuperscriptBox["x", 
        RowBox[{"1", "/", "\[Alpha]"}]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4220252696285744`*^9, 3.422025407877366*^9}, {
  3.42202552031905*^9, 3.42202554175988*^9}, {3.4446224631875*^9, 
  3.44462246471875*^9}, {3.444730821265625*^9, 3.44473083259375*^9}, {
  3.444996681453125*^9, 3.444996702328125*^9}, {3.44509660940625*^9, 
  3.44509661146875*^9}, {3.445097792484375*^9, 3.445097792875*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Alpha]$$ = -1.99, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Alpha]$$], -3, 3}}, Typeset`size$$ = {
    360., {176., 181.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]$42948$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = -3}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$42948$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`x^$CellContext`\[Alpha]$$, $CellContext`x^(
          1/$CellContext`\[Alpha]$$)}, {$CellContext`x, 0, 3}, AspectRatio -> 
        Automatic, PlotRange -> {0, 3}], 
      "Specifications" :> {{$CellContext`\[Alpha]$$, -3, 3}}, "Options" :> {},
       "DefaultOptions" :> {}],
     ImageSizeCache->{409., {221., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4220253806081553`*^9, 3.422025408618432*^9}, {
   3.4220255339686766`*^9, 3.422025542430845*^9}, {3.444996615390625*^9, 
   3.44499662496875*^9}, 3.444996658*^9, {3.4449966929375*^9, 
   3.444996703375*^9}, 3.445001467078125*^9}]
}, Open  ]],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"]],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"]]
}], "PreviousNext"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exponenci\[AAcute]lis f\[UDoubleDot]ggv\[EAcute]nyek", "Section",
 CellChangeTimes->{{3.494841490859375*^9, 3.49484149746875*^9}, {
  3.49484198859375*^9, 3.49484199934375*^9}}],

Cell[TextData[{
 "Vizsg\[AAcute]ljuk meg az exponenci\[AAcute]lis \
f\[UDoubleDot]ggv\[EAcute]nyek tulajdons\[AAcute]gait grafikusan: \nTekints\
\[UDoubleDot]k az ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["a", "x"], TraditionalForm]]],
 " f\[UDoubleDot]ggv\[EAcute]nyt \[EAcute]s v\[AAcute]ltoztassuk az alapot. \
Figyelj\[UDoubleDot]k meg, hogyan v\[AAcute]ltozik a rajzolt \
f\[UDoubleDot]ggv\[EAcute]ny 0 helyen vett \[EAcute]rint\[ODoubleAcute]j\
\[EAcute]nek meredeks\[EAcute]ge, ha v\[AAcute]ltozik az ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"a", ">", "1"}], ")"}], TraditionalForm]]],
 " sz\[AAcute]m."
}], "Text",
 CellChangeTimes->{{3.494841510015625*^9, 3.494841687953125*^9}, {
  3.49484172471875*^9, 3.494841739171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"a_", ",", "x_"}], "]"}], "=", 
   SuperscriptBox["a", "x"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"erinto", "[", "a_", "]"}], "=", 
   RowBox[{"1", "+", 
    RowBox[{"x", " ", 
     RowBox[{"Log", "[", "a", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"2", ",", "x"}], "]"}], ",", 
     RowBox[{"erinto", "[", "2", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "1.5"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4948416993125*^9, 3.494841762625*^9}, {
  3.494841794421875*^9, 3.4948418669375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwllP8/1HccwM+X+1AcWd/Ow3TUGMlMdX278XrP9zPMJRRqYdRWvuRMHpe0
Ces8SkOLTqWsEloNyzTlTeh86cv5uqvOt0snXLrD3Ue+3dpjPzwfzz/g+Xg8
LSPidkZpUygU3w/8Z6+jXXKNRoPtg7xpFIoIvuQxggVzGqy2FPINdUSw4/ih
hs2kBueGzAtMCRFsOKlz/rsJDUYJWilMQxEsO7sJuiQaXLskh5VIF4H4Rl7O
jXsa3G9yu5XmKIKDvQFbfLka7LvoPFYRIQI+s/uEQLaIg88/yGkSioAV0naL
f3cBt+o1eoSVd4BZy5DjHwXz2KUtLL0uqxNQv4FVzE9zOIPdcosb3wW9IXaV
qTtnMSu80nxrUjcUWhzOF259jxn7DavGknqgw6d4VRR1BnND5I6Bhb3gYzmu
c0GsxmsLI/NOt/4DaudAtm69Cguc2GSpUgzLGv+0aTo7jU8VS87RXF/Anl+Y
+2u5U/joJ1kMevZLGKG2Utl7J7HKxEwYL5WAbIjjbuegxAFL8jw50f2wQm9e
4rZSge8fOxSRIx2AaKut5tHCt/jQDMd6qHUQ7M8UhsXFjeNAB89tFaVDsPNn
F58RGMXXckvbRtOlsMevO05/SIbjbeOOVqe+grqSm64FZcN4xqjMt5Y7DLpP
D3zV4SbFnuvDd3RlvYab/IJ9sd0D2IPd6OlXLgPdi7LM1fEvMXOhaBv10Qis
81q6evnvvfhH2pFGhv4oLNCr9OQ7OvG880oPltsY9Kz0DXeqa8fN1KwUV/44
bLEfSPNkP8TmeU/uls3JYc3HZBtdXonzm3TSJdETsJjT98UbvjcUuy8889FW
AN2oPuv5fCV4Sjihq8QKMBpJHjqHHoKXMotxqlQJWXkye3p9O0g66zLtCybB
a+5amMKvExRRG975pk1BtYHhGK+kFwQV15MXE6YhPO2ScdW+l2C7MJ3gl6EC
TndpN615AMKSWMrPc9UAHgq6gbsUeP3O2RlNJJDG7HyLE8PgyjsyzFTOgDU/
ZfuS2zIoEnYsjbGeBS6zucTLcBSiiprIlsw5iPi6PcrUZRwcR/fHhw7OQ/xF
2TtU8hasN+4yo3y/CDyfiaeXKAoAQV9kDIWCzmi1PIk0VcLUXVVgo5CCHPxv
bexhT0JkkP7kYJkWKg6MA+PoKbheJzV8wNdGokpGf2XKNDTc+SFjIFYHZZe+
kGqVq6Cj1juWkqiLzIMTz5o2q2HEwWqZbiIVXe4ataG2qeF4zSZmfjIVrfH/
5qHiqRr8hzQBdsepyILtrRKK1WBpdeNEUCYVrWVZhCbJ1UA/TPm1poCKbBiP
rbuWk1Bu0iArf0BFG0fW1Z2OICFMnVjkr0+gqsgLwckHSOgRu36rQyPQ5kEj
ZeRhEsLvZ9v+ZUIg5vP361hJJGh2c6stzQi0rf0Zf5RPQvCWpAHtzwjkdOdY
oEcFCTm7j11WBRCozk454VhNgpWtML1mN4Gcb0afMq8lgZeriU3ZSyB0lVM7
/aGLgXK5v94BArnkfWr5m5iEBNznbcsjUKPxpb+z+0jY/vpK0HQqgdxOf7SL
JyVBHEI7WH+SQO4ZC5kcOQlXExouhp4h0CMtroWTkgSTjuT69bkE8kh9c89G
TcJrsmZs9jyBhLN7A1bMkWD86p7Z40IC/f8vEmIEVQGXrxDoX2ipa84=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1Ps3lHkcwPHHLW1anC0bLRqX5OxwRNHF5fMohplGoax0j4httmlpS5MU
pRrl1nRKSsradBk2dLNOvpIamUJjTEOKkTNm1tDMMPO4P7t79of3ef0Hb4dY
dmS8IYZhYf/2n6FHO1QkSSLbPPTarFaKAjlLooumSJR6xWG2my9Fa08ceLGS
IFF78Wnv+7ekyO200ZWkERKd4YeUhZ6XIsu8FdDRQyLFm7aMrGgpkt7hFdyp
JdEj4z4/UvcBJUo2+4SlkIjJwWq0Xh8Q11t8skg+i07FB5Z08TuR77YWPvfx
DMpXxILpbhH6oVnm+bBwGj0MbNOevtSK8M9mS3/JmEJbWYI4XVYzkmyjVqdH
TqKt6tk4F/0LdJ3CuipYNYHyn094fOE/Re+Zpd/Hm4yjPUUKluZdGWI6DBld
k+oRllpMbzXNAn1AFN24QYfy+cWN7IIKsHz5yLUpbwwpGEPden0dxOR776lL
GUXhv514csqxCQZN3pjQd2rRwgtXDLN/bAG5LCKY6qFB9U7PepXb2mGh6XRP
kJUaPXsbWJaR2AEJS1fZJQiG0Zw31Nu1TyXgnnN9B5s9hBiJN0tSiC6IPLeO
OQhKFClyP0MheyBmo5g9VyZHHwS57T7OfVBffnd94f0BpDCzEkn4MjBu3b/h
fVA/Kj0m/Er76Qvc5RbuOijuRdLVNPNxYgCMb8jPLjr0EbF3tpWUnpCDU+i8
RQsqJKjqwfkwO2cFzFjXmKrWilDU7vCDBZVK6LQK2+tfL0SH9/Xk0TyHwMe9
NzOE3oj8eYXvhGIV2NsSLdaqapS0LC6dsWMEZgs++Sm4DCjRVv7BNFSDtXlD
dtd0NYRwci9eFqnBfDBVdhlvhFsrdW5dlzWQzZO7WzcIoc3o8Mes/VoInSrb
od4ogkoTznoPt1F4Yjb/b065BDYs76dOqEZhb2axRc2uj/CcHetIrR+DCPE9
8beveqFPliSKydAB0NTWZsH9IE3k5qu36IGwoF+lnByADMflc88sJsCFm7bm
m0o5KIzXYKt7CEjxflUeOl8JztMxc7ZUjkPsJmG8zbohsHQxfM1KnoBDN+Rf
8fJhEO1r5A3TJoHDHGktxtQQ+XZAlrtoCnIMmt/F2WggMyFX6dY9BR7hfK9O
uhbOWYWTXhXTUBrFBouEUQggClu9k2egvXrJ5+q0MagyCLKPWTELufe6+w0e
6GCSYpo2YEyCXfThPJtXehhLjuCxmkm42aF0NWnRQ7pWeK9TSIJ9+O5Gdase
TJNpDQFtJFDoDJ1AqofFv/oOW0pIcPSlbD+i0gOwl4Y8/kKC65K3Lh0LCMg+
MDE5M0uC16BT/cVYAiyrw6sEizG8Ju5adOp+AsSaHL80Wwxf2WeuiWMRUOQp
FCy3x3Dvrgkn3yMEOFYFf77mgOGrhW1cJZcAn4drzViuGO7/5/EoWhUB2yud
4y19MLyeqhnxfEIAZWSvumkVhgfcTThvV0fAgHvJ8WNrMBy/HVE31kTAwQqb
S/1+GL6Ot8zhdykBp/jm6NF6DH9pUfxX7icCglUbGEnBGB508bstnH4C5rlx
O+1CMDw4a+ZshIoA3gMj1VkGhr82SKH4awjYOoQf9WViOC1dUeuqJ8CWmm6o
DsNwweTOzQunCJD9XJdTtgnD//8XAXfuj1vHRGD4P/nDhdo=
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 1.5}, {-0.38629431160937755`, 2.8284269847093158`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.494841858578125*^9, 3.4948418678125*^9}}]
}, Open  ]],

Cell["Most v\[EAcute]gezz\[UDoubleDot]nk interakt\[IAcute]v \
vizsg\[AAcute]latot. ", "Text",
 CellChangeTimes->{{3.494841878703125*^9, 3.49484189925*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "^", "x"}], ",", 
       RowBox[{"1", "+", 
        RowBox[{"x", " ", 
         RowBox[{"Log", "[", "a", "]"}]}]}], ",", 
       RowBox[{"1", "+", "x"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "a"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"a", ",", "1.3", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.494841945734375*^9, 3.494841963546875*^9}, {
  3.494842005453125*^9, 3.494842046015625*^9}, {3.494842196375*^9, 
  3.494842217203125*^9}, {3.4948489766875*^9, 3.494848988296875*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1.3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 1.3, 10}}, Typeset`size$$ = {
    450., {143., 148.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$164629$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1.3}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$164629$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`a$$^$CellContext`x, 
         1 + $CellContext`x Log[$CellContext`a$$], 
         1 + $CellContext`x}, {$CellContext`x, -2, 1.5}, AspectRatio -> 
        Automatic, PlotRange -> {0, 2}, PlotLabel -> $CellContext`a$$], 
      "Specifications" :> {{$CellContext`a$$, 1.3, 10}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{499., {188., 193.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.494842013125*^9, 3.49484204790625*^9}, {
  3.494842204328125*^9, 3.494842218734375*^9}, {3.4948489800625*^9, 
  3.494848988734375*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4948422884375*^9, 3.494842289671875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.494842311390625*^9, 3.494842312046875*^9}}]
}, Closed]]
}, Open  ]]
},
WindowSize->{701, 805},
WindowMargins->{{Automatic, 348}, {Automatic, 44}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (December 10, 2015)",
StyleDefinitions->"Modelbookstyle.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 250, 3, 40, "MainSection"],
Cell[CellGroupData[{
Cell[854, 29, 93, 1, 39, "Section"],
Cell[950, 32, 367, 12, 37, "Text"],
Cell[CellGroupData[{
Cell[1342, 48, 421, 12, 45, "Input"],
Cell[1766, 62, 24028, 402, 134, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25843, 470, 788, 22, 30, "Section"],
Cell[CellGroupData[{
Cell[26656, 496, 962, 23, 61, "Input"],
Cell[27621, 521, 1913, 37, 463, "Output"]
}, Open  ]],
Cell[29549, 561, 781, 18, 27, "PreviousNext"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30367, 584, 183, 2, 39, "Section"],
Cell[30553, 588, 758, 18, 236, "Text"],
Cell[CellGroupData[{
Cell[31336, 610, 807, 24, 186, "Input"],
Cell[32146, 636, 3849, 69, 861, "Output"]
}, Open  ]],
Cell[36010, 708, 155, 2, 85, "Text"],
Cell[CellGroupData[{
Cell[36190, 714, 976, 25, 290, "Input"],
Cell[37169, 741, 1829, 37, 868, "Output"]
}, Open  ]],
Cell[39013, 781, 90, 1, 62, "Input"],
Cell[39106, 784, 92, 1, 62, "Input"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
