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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    135097,       2843]
NotebookOptionsPosition[    126812,       2684]
NotebookOutlinePosition[    127235,       2701]
CellTagsIndexPosition[    127192,       2698]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Ondas en una dimensi\[OAcute]n", "Title",
 CellChangeTimes->{{3.8981911148840227`*^9, 
  3.898191121624124*^9}},ExpressionUUID->"3b52c642-4207-4cdf-bcb3-\
2f6a2e20aca2"],

Cell[CellGroupData[{

Cell["Cuerda infinita", "Section",
 CellChangeTimes->{{3.898191125464287*^9, 
  3.8981911354478607`*^9}},ExpressionUUID->"6408f118-07fb-4e89-bc3b-\
b3700fa14a9c"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.898191217383078*^9, 
  3.898191217862883*^9}},ExpressionUUID->"933505bf-9343-4c96-83d4-\
c02490946a66"],

Cell[CellGroupData[{

Cell["Modo hacia la derecha", "Subsection",
 CellChangeTimes->{{3.898191153143958*^9, 3.898191187631179*^9}, {
  3.898191329181638*^9, 3.898191331237507*^9}, {3.898191373295086*^9, 
  3.8981913787009573`*^9}},ExpressionUUID->"8f3381a1-e334-4ec0-8b8f-\
fd462b83d0f0"],

Cell["En t\[EAcute]rminos de una funci\[OAcute]n cualquiera", "Text",
 CellChangeTimes->{{3.898191380741803*^9, 
  3.8981913889943533`*^9}},ExpressionUUID->"fcdefcc8-7771-458d-836e-\
557c6d7fcef0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fp", "[", "u_", "]"}], ":=", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"u", "^", "2"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fp", "[", "u", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, {
  3.898191290942535*^9, 3.898191292239201*^9}, {3.8981913532387238`*^9, 
  3.898191356574024*^9}, {3.898191780898335*^9, 3.8981917842249517`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"0b822ae7-398a-485f-9c1a-0cabac4e7c3f"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux
Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz
89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9
uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty
68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt
rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB
7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd
ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om
G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2
WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2
TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8
/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq
JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4
d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv
P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL
r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d
s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb
dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO
uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I
BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX
FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH
iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT
iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1
wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4
65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4
RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN
Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf
5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF
FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx
dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb
uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY
MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb
8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB
RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW
OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt
3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au
ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF
Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde
snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY
eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM
uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r
0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y
0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow
mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql
sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7
1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs
XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc
kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV
oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq
qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf
ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP
sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4
8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q
J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX
iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP
NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU
D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD
TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q
32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo
G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta
LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe
fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3
Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx
k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx
iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr
VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer
4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC
1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng
Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT
GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U
MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe
tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f
+yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE
60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU
Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi
YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30
bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW
ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz
MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk
eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY
BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB
5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW
Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5
STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR
kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM
yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z
4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz
1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU
KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp
VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR
aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal
Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7
ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry
StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW
/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4
1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18
FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp
8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd
HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9
b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4
6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf
YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf
3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA
z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u
AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4
CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex
n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ
YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI
YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR
E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68
Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj
6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ
a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1
WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h
CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf
+nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2
+lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x
LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO
jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs
z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO
ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY
0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX
TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw
MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3
/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY
pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3
83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ
kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l
mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN
/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU
4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD
YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono
1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC
rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi
FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js
5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4
78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1
hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1
4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8
eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k
g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae
59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB
1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj
YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr
m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f
7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo
ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8
vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1
173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh
ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI
IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq
fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b
skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw
b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID
ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0
KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m
dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic
V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t
PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K
9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU
1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri
cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE
qXtjmPTJ8H/5Kvr/fPV/AF0he+I=
       "]]},
     Annotation[#, "Charting`Private`Tag$291006#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.898178518004966*^9, 3.8981785277450314`*^9}, 
   3.898191295206668*^9, 3.898191357300709*^9, 3.898191784974062*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"2409da52-2ca7-4077-bcd4-d75592298c18"]
}, Open  ]],

Cell["Podemos animar seg\[UAcute]n", "Text",
 CellChangeTimes->{{3.898191315254592*^9, 3.898191337581568*^9}, {
  3.898191393397159*^9, 
  3.898191396389042*^9}},ExpressionUUID->"f15db67b-3409-4d51-9df4-\
639aaaf4e8fc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fp", "[", 
      RowBox[{"x", "+", 
       RowBox[{"c", " ", "t"}]}], " ", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "->", " ", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178533337009*^9, 3.89817856142127*^9}, {
   3.898178611949658*^9, 3.898178676394897*^9}, {3.898191306766424*^9, 
   3.898191310270533*^9}, 3.8981913602862663`*^9, {3.8981917633827353`*^9, 
   3.898191808432724*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"03ff5230-00eb-43a0-8c6f-7afc3ca92899"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 13.093133926391602`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -15, 15}}, Typeset`size$$ = {
    468., {150., 156.4998681001722}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -15}, 
      "ControllerVariables" :> {}, 
      "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`fp[$CellContext`x + $CellContext`c $CellContext`t$$], \
{$CellContext`x, -10, 10}, PlotRange -> {All, {0, 1}}, Axes -> {True, False}],
       "Specifications" :> {{$CellContext`t$$, -15, 15, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {176.861328125, 184.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.898178564768065*^9, {3.898178615109125*^9, 3.898178677017771*^9}, {
   3.898191344043911*^9, 3.898191361067409*^9}, {3.89819176988326*^9, 
   3.898191809218013*^9}},
 CellLabel->"Out[45]=",ExpressionUUID->"aa4c2849-e6fa-45d4-8b58-010e2cf61fde"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Modo hacia la derecha", "Subsection",
 CellChangeTimes->{{3.898191404253745*^9, 
  3.8981914077990227`*^9}},ExpressionUUID->"38fd7ad5-6523-4fd1-9971-\
38a68ad88be4"],

Cell["En t\[EAcute]rminos de una funci\[OAcute]n cualquiera", "Text",
 CellChangeTimes->{{3.8981914146452713`*^9, 3.8981914209408903`*^9}, 
   3.898191597762928*^9},ExpressionUUID->"23b0d7be-f17f-4ccc-82c1-\
463a84f33f03"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fm", "[", "u_", "]"}], ":=", 
    RowBox[{
     RowBox[{"1", "/", "4"}], 
     RowBox[{"Chop", "[", 
      FractionBox["1", 
       RowBox[{"1", "+", 
        RowBox[{
         SuperscriptBox["u", "2"], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["u", "2"], "-", "1"}], ")"}]}]}]], "]"}]}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fm", "[", "u", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, {
  3.898178919640772*^9, 3.89817892694945*^9}, {3.898179002261174*^9, 
  3.898179008205229*^9}, {3.8981914243731728`*^9, 3.898191463341125*^9}, {
  3.898191509613262*^9, 3.8981915263970737`*^9}, {3.898191556827965*^9, 
  3.898191571387702*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f5f4597d-d33a-4dc1-ac68-0770b8ad7943"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1m3c4V2/4x22y994jInuUjPsYESF7Jlt2QkZGJSGjjBAq65stQkLlnEhm
fKxSZvbKyB7x87uu3++vc72v+37OeZ7zvJ/rft1/PHyOt4xdCPDw8PQI8fD+
9xk+r//35EQAe0Olb/4v5EB1LpR5e+RIAKsg6nBojDtQNaCd2H2/L4B9rB4r
j8o+UOVV9P13a1MAG3l5RU7t04Fqc1wK2eScAKZ1EOZlg3+oSibxgxv7JoBt
bNAN8iQcqj4LsL96P1sA+84qxahVfqRahu//H94FAexR4XacCPuJ6kWTUpJM
WQHsk/E4xXWpE9Wv//12k5YSwC4/+OpcoHWiOqltKO54TgBj0t/b9PY/UWV+
Il7XwiGAOcaETG99O1GNZF9oi8YTwKR4+l75aOCBpaztMmUnP0b7TqvGhggf
iF20Zdhs+bGgAbHlvWIC6L8hbbFsxY+R33u59u8dAbyy5Aj7ZM6PxUQqm1K3
EICC3lqrgyE/1v141NtojABcZTOsSjX4MSrDQTlHekJox5+/ryTKj/FfcBis
jyCEhFfRvba7fBirWHhOqj0RMAy3euUn82Fv6XsV8fRIABPLi416woctTUjX
bNqQgNe9sP9c4/mwa+JKQdueJPD1rOyo6CM+TJx8kVMwgQTu3sm9WhPMh8W9
jU+R/EYCU/Shol/s+DBbnVESKmNSqNaXWpgV58MenSTrmt0kA7s8CqJ2UT7M
KZ8pQDqEDCi353hKhfmw1AvFR1zxZOD64qWFDx8fVrmh4i9SSQbsy+RtO4x8
WO4u/zbRHhlExs6+Jj3ixdr1a5JXEs6AcUuW07lOXmxpSM77Xws5CA7OjLd9
5cXSbPDEm36Sw86MhLVrCy9mxCpAn7ZGDpkkLYYFH3mxtUjShkccFDCps6zC
VcmLWXKR3b0TQAHeOCVWume8mCBzmlGRKCXEjo1279nyYnw/m7n5SqjAevXs
lQxrXgxGGIXGP1PB+RPfFnkLXoxmO5Xo3S8q6OUlbvQz5MWmKOT7qiipgdlZ
vGhFnRf7/vvypZnb1FCwFP5gUpgXex5ZXWehRgOhaypeSdM8mGpFTHrNXVp4
4XBhARnjwYr8Aj0nYmjh44CU88Z3Hqwv+o0vaxotHL8XuG7cyYM5uz+/Wl1J
C5H3z+gxvuXB3iw+JY6ZpYU4uiGx5xE8mBar/nyzCR1kyXot57DxYHVtdDJH
l+jhw2uXm4YMPNjVz/nZqzr0MMpiN41HxYOdOK/YrVvSA/eR0YgDHg+mYFWk
yR9ED/lfLnQJzHNjk+G1z9Vq6aHEjLCsqJYbOya1yrgnzQD1QVkelde4sabG
FZPYi4zA73z79fAVbmxFJzz1QJcREg2vTOKrc2PB02aLD2wZwfHcjpmpHDeG
/aDQw0UyAsWIkdo+Kzc2mH1G6FYPI9xQPcOqMcWFndP9F9HrzgSExMGt3wO4
MEHF+PXdt8zgs2GAh+fDhUWS0f6+0sYMw2NCSuducmFcujSL1aPMUF43UBVq
xYVR4n596ydlAXM3yRe8qlwYDZXE6GU7FijumvPzIOXC/E007dgYWMEgxYz3
OJMTU9/7U/joKRvclaHR0U7lxP5m3DHoLWKDwv7220kJnBh7P+e0PMYGx/TK
Lfz3OLFYwbEQ6w02qEjld9V25sT+lB/sEJuxA2XaWlmSBCcmNv9ykYKfAzoz
Hl8QaOHAmBzslmgHOWHngoa910cO7L2pPaPBOifwDx/FvnvHgdXd0l2uoOSC
u6y+v7SLObCbvELe3y9zwblM83CvRA5suyzmNq6BC2KzBFreWXBgQpGD4hnF
3KD98pPBlRV2rOYsoUWYES+sJ44eEc2xY1HB2kHj9ryQFXFY+nmCHftGXt1q
7MsLK3aKpEoD7FhZZrKp31NeSOF/h4o3smN4TBxsST28MF5ULsUQy461yBB9
sTXkg8DqbPpxAXbsuPalPakTP/AWNGJZXOxYa8pxz0wAP3Sk/vSxYDnV3hN4
w9H8wHmHpQtHzo7dbj+UwCvjh+YLqQ9bNtiwqoVSsNniB+pPcVvFKBsm/O6r
plW8ABS2hXz3t2HDRor5n7t3CUKmTKBGiSkb9p+EEhHxlCAkvPSrGtdnw9xs
8TXQPUHw8/eM00HYsHfrJoTJZ4VAhcdWlUeIDSsmrJSsfCgEg4FIYecqK0Yz
8ymaSPMsEJwlDeSLZMUs4w5CsseFYTuJcNo8lBV748nGErovDAuHJ9cSAlix
p3i3i+4zikBP3965XVdW7Gq883/HuiKQGb401n2VFSPjXVH51iACUkPfLgcz
sWJJUa5s66/OwY2oZ0y9xSzYVrdDufpjMeiBHdLgfBastbKpX6NIDODQ4oD3
BQumyBNz5N0qBrx+HBN+T0/zxX67qRKchym7/GLmQBbsSwSb8I/w8+CqVKV0
Q4MF+27LRno2XBx8/nY5/BljxrQS7m1pvpKE8Qpx0/QfzJgrXytu87MkXHN/
qgV9zNg5vXXZoVlJkJo0Fkv+woyl2gkFsLJIwd9vP7fkypixFANhXKm9FASW
zMeEBTNj5H87i/v2pCDCnvANBQMzthRVqhekKgNVvdpPBimZsTExc8zFRAam
VBN8XpIwYyzua+Z+bjKgxcUkKXnAhPX6OTTNpcgA9a+zVca/mTCVv2va6osy
8MpEtzqzkgljEJxQ3sqWBVQruU5YjwnjaCKwGmGXh7/vhtLXLzNhLE1yREey
8iAoxB7UAEzY8eE9ZXV9eYglLLhwVZYJK4DrTsh9eTDEaut92JmweulQeooF
eZhUHG58t8CIYee9eVhRBcAT50E1HjFi4WJhUfyJFyGMWe3GowhG7LXP51z2
Nxdh98Tx39cgRkxR6IeJbu9FWO0vVNL1YMQ2v+lpGNMrwkiwRL3hNUbsVfKn
GdpsRaj7ovLWlo0RY6ESev/2/SXwvn69IKiCAXMR6fQj5FOBhcsR6g2FDNhH
/SDtCR0VcJbM/X2Qw4C1G84zE/qrgDXBDE9ECgNmybhELvRVBa4Ue76ICmLA
5rjibadvqYLg1t20ZLXT/DrNkB99AL/iM2PKhuixmHTLb9IeajDQyltu30uP
UV8SeU0RqQbdJ0U4pg567Id+yiPqLDVo8q9ju/+RHvuN7/0uqVMN8m0GykwL
6LGnASEmSeLq4CFGhfvnS4+99zvv0HWoDoed91kNKemxeNNxhh8fNGGLiEyF
mIQes89RHYn5qQmrqk8dGk/osNqeNWqfXU2YrH5ZKrhJh93vOZMwKnsZvmQ1
Ku//pMNstyoHDCovQ4LHln1+ER0GuEaNrSot4CR3K9lSp8OG5NN5Z6auwI2m
7gR+ZTqM6qUAtwOFDuT5SfsaytNhkY1Fi1JyOnB25EChXJgOayNZ5+qO1gHJ
8sQvTpR0mE/21CyplC6oG9RM9A/RYjl1G5qmqVchioC1Ba+XFpv6Wibk9Pkq
tNWFFUq002K/o7aa+teugh6PlndcIy0Wr8Xx94e+HpivDx+o5dBi1fTOo2nU
+uCecsz01o0WU5E6LG0tMIByLaf9cQdaTLYryNtq2ABWD9pGKW1oMTVPqv9u
UF0DP6fkAjd9WixwOpi6OfgahMkJSvPK0GIBuNuEMaKGwF2R+px7lwaTimvn
cKM3Ak95UeIRThrs9c2/NgiTCfgRNxQF0tBg232v49QvmMDdIW1degIarNws
cyfJygTi7rg81ZmnxpTJP31myjGB0ne5bPVvqTGyugDz7+KmsCjPIpGmRY0p
vm1a3rY2g3XiQpyUIjUWvXv3Dn+kGewNyfl3i1FjeJP8biUlZkAWaFxPSEeN
iXXk3u3cNwORukR1vxEqTHOtoezOK3O4qUBkcc2XCjMy9pG4cWABPiSp+0uO
VNh8mcKbN8KWEPid70W0GRWGqxpc9zCzhOhA+P3pEhVm/aQhQ6zaEgrr7nqe
J6bCVJ5paqz7WsGswsa9M1mUGF0oPl45kQ04XRgvbmmhwBhEvVuon94A1+IL
5lrvKbBowrc1tu03wIMtmbCjlALjLAqclyWwA99DjRs9yRRY7lqeQFiQHYSh
JQw/7SiwjDbzEhM5e3imfSdi9ZAck6+Tfekh6wAZ9T1it9fIMXP5TfVyUwfI
Oifyc3OKHONREx5WDXSAXIoR2f0OckxkcTLOutEBKnqRRcLn5JiYytJotJYj
fLWgNGWTI8dMn81+fHbLCTraXfBfCJNjuqbl3NfTnaBbEX3DzUGOJby0n4/6
5AT9HH5nBAnIsTieYIMTSmeYmPjRJIE7g23MxjXXVznD3s2Cc5peZ7Dwf09Y
LChdQTT40onPf2RYyecWUxJud8DGDESn08kwypFURm5LdzDXcDKzeEyGlfeV
E0+kuEMkdUIZ+JBhn1CVXhdyD/j535gF7UUyTFGJ170T3xNi++5Xve0ixZyT
d8fOM3oD94W0EaEmUkxhSz2JyNobal+UkGRVkWLo+XcRlbneMHmz/3pkGin2
sW3ybLyUD1w4FjhjYkeKfYgZ5n1rfQvmRNsctv6SYB9uURfg/vhCWNJIgtss
CSbOQbjAxnob6HfW3o/+IMHWLOtEF9Rvg+pnVurWjyQYd2dvCkfWbUiz8GhM
iybBqjT01Fmu+YFmFBXDBXYS7Ebuf+NXh/zh1yKfahklCVZkI/tuliwAfK8p
uPOcEGMFsX/iRFQCIJvdDiWdIcZwZ9+V1hQFwN+qKs/hCmIsMiOiWOzRHcgb
M/kSokaMLSj+N3/eOQhkZmQOBuWIsX7/uHz3nCD4skQnJSVCjNFcYWN1GgmC
ud3e7DlqYsw8Ni8xwywYROn1/E1GibDQUboVS5MQqNbS5BcPIsKEauxbjwJD
QUNfwDLWgwhL+Dj6+Q4aCoMmBE+mbYmwucTnUhNkYbBjj+1nahJhPLkxvimv
wkApVLmPhJ4I00mYLZsfCocvlXL3J8sJsUuL++YHSvfBrI6hTimXEPtH+tah
0u0+zH38u5yeSohpPTJlPkm7D2SdVRb6dwkxmeX6pOC/90F/5rxkozYhRtuw
ScBV8wC+swqNp04RYIJneeZyzR7CTR4ixrUhAuxMaFGtTuJD2BOa1tHtIMCS
hiTjP7Q+BHbZvHd4VQRYwaW+LVLFKLihz5XoHU6AdZrGEhadewTzD5iUtVkJ
sPrmZU0zhRggD69cSyUnwOArU6ZMZAxIBOsUTB7hY/dKv0Vr9cZAoE84+d3f
+FjGxgciUe9YILGZHS4vxcfyPo59T6x/DKLm9xL2X+Bjqh/2XL9Rx4GBERui
9RQfcyN37Ap0jYM0bf2iCX98rCfqwh0B9ngQlHt3h14FH2uptmesTU2AK5LX
ztlJ4mNSirUEdDsJ4CW6OFrGh48pZj+eYLROhFpeLs3LJPhY9ZSykazwE9Cg
ekQf3IuH2SxbxLd8fwqOc6aVYw54GMhHjAx0JEP071VHUVM87E2cBb4PeQqU
jsYyB2nhYZI3OUnP66XA3/6P4bRieFh3nDPv+YEUILin8zx64QRV7bJ+t7aW
Crp3wk94vp2g/b/KGG0uPYNkz7euDW9PUILtt8w80c+A15JNfuXuCfqGLN+3
hy8NQHqxz4jqBKVIS/LJ90iHaGEuxeWNYzSV4UdlCZYOPVxGuVHfj9FhIhkp
HdYMuEHe4PM+5xh1EHrsF9CdAWHTsRRcMsfoxhOpd/d1MqExTeTygvk/1HOS
T8g65wWQ2cw74Sv/Q+nnDn+60L0Ec97CSHa+fygHan791aOX8LdUANNbPkIn
yTX6vwa8gnMYt9Lbe0fovqdb4psLuRD4aMyq0/kILYh8fYf9bi580X0RPK1z
hCbPP6zu+5QL9kNsdUyMp+Ofe74GnTx4vsQofbf4ELURoLq/4ZsPc5UD11IT
T/Uto4MnTfkgdyfFp9zvEFUxWrV+T1UAvSc05ePKh+jcZxnB7qoCIGGiENbo
O0B7Vg39yChewx3A56I82EcjyruvprIWQzMRpiQ0sY8WY5y6fg+LgbYzwlr1
yz5qaat4PXK9GMpNjzJ8n+yjeEK15jf7SmDGfZd+iH8f9fkz9bqisgxkJOuk
V0n30b09z6Qw8XK4vxVgSPpnD93Dz5KcqygHjnt/ExXf76HXMi/StdRVgPGz
P2Svru6hzFrSbzSWKiHXqlz4vdQeSuMv6KQBVbDK7amFY9pDf28rrq7GVUFc
ycJDgsldtPQ6xQMi4bfwuWn62DVgF71L9wKl968GqcWfW5Ivd1DjBC83Xcd3
ELAufo4lagfN/bMGDM3voH73ge2xxw5Kzj+qWiZQB2okol+7L+6ghlk5BS4r
dWAscDfDfXAbjdT/s971rB7SRXu6DD9so+NLIztDhA0wIs2PdzF/Gx1Ns7We
D2gAZ6TTjcR3G20gdTC+ZNsId2zZLxVQbKMHR48j9bU/QqOzj0/c3y2UM3wY
g7aPcOzZnH/75xZ6JllF2E3nE0Tf9aBAirZQAWLiQm/TJnie0Tg6qr6FErhk
1v5Sx6Cxz/oe891NNNctkD6wrBmOh9/U/LPfRFfJnsrU/WsG9UmChRntTdSa
jWOZxagFulZLDWuYNlGJsHg1+cMWGKU45DN8+xd9U/Iq/Nb1Vji5nP3l8cIG
en998lunfjtoNo6c+We+jnKFL37ay+2BN6WvFduU1lErrzFhS5peYM2+5Z7M
u47uCuaIqob3wvddkpSrg2uoW91zgzQxHAiFmtO+PFhFD56khQng9cGezdIt
6S+rqFrJfA9Otg+6lSN6WxNX0bnR4bOdrn0QcPz6ySrvKjp4oD7q3NkHzQ+2
KRHtP6ieVg1zXnQ/pDs+9hqk/YOS/shiYarpB3cNrm63XyuohUxMj9N4P9AS
X45P9l5B+2nlfe2lB2BmdnhJ6MIKOkWkY7trOQD1X710G/FWUI9JPU6lewNg
F/vszHTqMspzlSQqv20AZNxF3INsl9HVuLX22sUBINH92E4hvIy6cpmIGJEP
whuKmRi5xiX0vSmrDbX2IESuBM23P1xC3XrNnQWdBsHsG4W2rf4S6sn5++BN
+CAcPZEliZ5cRP/UcM4wvRkE3K02F/bSRVSPSDZotWUQCgxtWt/4L6LuZX+Y
5IYHIVB6TVBDZRF99k2DZn5pEHTpH0b9IFlEhYyexJMdDQL3JvOMJ24BPQy/
F5NFMQR/B0o18LIW0BQ/wZ4ctiH4Wqta8MxpAZ3xJvjLcXYIMtP6Cc6JL6C+
QU6XGaSHwCvQ1fHTzjx69/x8X9ylIUAsDj4bYfNohof3tVj1IWC8+IRv7vE8
aiF7m51eZwgWWPkf3DWZRxXDl85JGgzBx/13k9Rc8+jAu29E80ZD8PSXDlIw
N4fOP4T3aqZD4PhhLOdC1Rx6eTqlTdtsCBRe3D7pCplDzxELixGcavJwYjt7
jTn0Q5ii0l2TIRizzWzaopxD+SWxkgbDIahSFed+/H0WVb5iG9ipNwRRPJ/D
uXJn0fs8EdN12kNgiWc29tZ9FuWKr/V8rDYE538vKGvJzqJvci3f652uB685
7MWvoxnUwOpeCoXMEAzk0x75fJ1BRfCNpnEiQ1D48D8bwqQZtPJbe24R9xDc
db74IcNqBmW/NduRxTAE/Gft72Ir0yjJfpQRweEg7JBs/TStm0Y14nwSE/4M
Qsd8jOLivWm0RvvZ7xsTg+BbUrlHxzCNiumeu0fyeRCkqH0eqk9OoXxCP7xI
qgdhw+88tX/FFPo0xf/4cf4g+CmXCAxqT6HmIuGlypGDcKc33yA97DcqZLOk
KKYyCJtLYjry3ROoS1XdK/eiAQioLb6R7jqBXvE8OGJ+NgA74UIBu3gT6DZP
0Frt/QHYo+XJaZAfRxOfSfR9txqAIwX6bZWcUZTdTPu6POWpfx/u5Wr5/UR5
LW4K/wrohxi9O3VFlD/R9YUrzYmO/UDG/LeLrGgYPex8Qelj2A/kJcs7nSM/
0Fp1XaWm8/1A0zuud+3yd1QZJCeG5/sg6bmNY9XEEDrCPtMlcdrQ0jsOB9Hd
HUKZjSzdP3/tA8btvvyBN4OoCv6Pt/mFfcDK0bpnwTqACg5y3rzr3geZM2rU
DdX9qO9Zr9AR6z5gf9MkwK7fjy7F4ZM/1OsDLrV6g9EHfajeRRumEqk+0Ogx
1/n8vRdVddyldz3CgZaDYcBDil7Ut3g7j3YdB1e2dHIuIz2ol9r8RdIZHOix
q2x3lHSjLF+bbX9148DcVSCvP6wDNTWLSRTIx0Hcbf/YlHftaIaib7vHcxx8
Cmu5Zbzahj69zjDw7wkOBFOdVPvtvqLjx+TiZOE4sHxVI5TyvBX1+M36614A
DuJLCKmM+76gHTZMDJpeOPiLFoz0qbegd9v/VFdfx8HZrs3m5NBm9Nc3EzNb
MxxYfdcoNar9jFLkWR+aGuDg1FvBfUIYKqdJWyimhoOFtZsY/6cmVLvn5Bu5
Eg6ukZA9zZf4hOJ4kpAL8jjglr1yPp+uET1opZcLFsXBI52FA76H9aiy+GJb
ghAOVuxiO/K26lD3nbjuVV4cmASKPOdzfYd2XpzTfsWJg8aEdte8HzVog3OP
ajYrDvgK3OT5dKpRv5v872YZcRDbQEaU11iFavatVYTT4WA8x+i1muUbNJsm
VcyJGgcV3cnqakplKFvXoGQ6BQ5C9/smEO5iNCWY6CPzGRzonKUPR/Bfo8mi
tH0zJDhgMTFmR2by0KjKzFt4xDjoOhG8de/JSzSP9Mxzd0IcuFm9LokwzUAP
lV7o8hLggKhGaCacPRmVzAmIEcTHAcKmp3KAPULDI/IMAvFwsP4803kj0w+l
1RHJZTrVYQTPWrUuWkGeNHkYwamWyHJqY1S4B4n62lPKp3qc7e0qBU0CbMpM
9H851Saywx+j1Z6BFHOvftbp++t+WkTGhGZBqwuVyafT71NhywJfrHMBmYqc
EifCAaSWRX8JKoBMCfyj5dP533b1XPzyrBC2BxRydklxkK8optf6tgQSq3O7
DMlxMEi5/Ka1pxxYh4Pv71LigGSylO7rciV8qc7/uEyDgxdW8pecot6CX/qz
CHEGHMhrpHlO09dAcazql4/MOOg5v/3CKa8WrmqtxmWy4wAP792JU9N7+L72
JkFJAAeZi4zSM3oNsMNL2YQnggOZgQBH55FGmDb6cJ1BHAfOhXKtznufwNj0
D8Z7EQf/nj7bmYlGoZrk120O1dP/r3yQWh2Hgc5/0a5Omqf5Z61bZdiagaS/
b+SXEQ6kOMjH/SabIfZzugK51el4msad6qIWyKaYi422x0H6PpuIrEIrRNnf
L3LxxUFb9884WZN2mEFr8RpTT/cz+FebjVgHmFPvj/K+wgGZ4AhRFGEnHByt
tk8W40A3dDRisKYL+kSFIjxQHHSfm/C7w9gLKXZe+Fmn59draKLy5Uov7Onr
yDb9w0E04rvj6IgD02aqpgsUfSC84isbf6kP9Nyf0ooI94Gbhl/FyFI/uIU4
eMw59sHFzL9da+YDEB0sEfnKrw/I1vyWCFsGwF+D+PF/kX1QkuUvfD57EPaa
EgTSCvpgaSMgL+zqd/ilN8ExvtAHXrlBaVzlP+F2AoOtxb1+UN7ZrZFm/QVj
K++6GVL7gVIvuP9y1C+Isnn7/aCwHyp2g2l8ro/Aheuanpd6+2HV4O7jJsox
aBlE5Gj5TvkioqmpUmESXidePfrdOgC5JcffGrwmgdSCtlrk1wDEDqqOteRP
QvfzuSWt1QGwFEUPf1D/BvO1uwErTIOwP4RexJv/DWupkVInDoMwhYd3hZxr
CohivEWFAwahUwyxYDSZgtw1HcbZR4OQ9QC7I4JOgTPvjav/ik55pBzvkcz2
FHDnfLTUrB8Ejx/IM2WxaRh9MDp60DYIl8Q/VxtmTIOmfOj7xNlBkB/8nt7U
MQ33bFtcbv09rV+hK3fPH03DL9RrpPJ4EMT4CeyyJGZAs5c7SIt8CM52sGiQ
OczAR2K7WFGmIeDzFRcOTJ0BfxczUxOeIeBk0aCYaZ0BWsFp9vrTesvaZLlm
tDcD6WTknIan/MHg4jOAis6CkFH+S3rFIaCmjHovbjsLNy5e39iBUz6oyczO
fjoLjz3PhG5dHgJi68p7Z5pn4cvWufcEV0/rO36rU9DWLORdea/Gdm0IDot+
ac+enYM714THJI2HYMdgXczEag7a3HNDVE95ZGObmPZz/BzIPTdXVjnlj5UX
HFsSTXOQwnEmRvBUz2tID79YnwNK5oyTlVMemVrS+kguMA9vNnMznp7yzXjy
9dxgs3kwLhd7RnzKPz8v+kXNxcxDsd6ltCunfDQ4EeNm2jgPzv8ZvTTWGAJc
9Eu95pV5eB3xk5VbeQi6xGukpHgW4IWnwexr2VM+G2xnfGW0ALa/FSxnzw3B
59DxPYqoBRi17Lk8fMojH/m3RkPqFuAJlRVpKP0QvO8483l+YQGKxBgedBIN
QbUvz2szjkXwiHoj/GV7ECpY5B+36C/CuJExsevpfhY36XpL318EjfN0TW8G
BiGHMlCeanYRlo083GXKT/1SE88WyrIELDQxrd7pg5BunfdvQWcJbB5pDRre
G4SE4u7WL2+WwOB2whGT/iDEXJsqkfm9BB3GWm//SZ/6a2c3MZdhGZRNqvWf
n/o1WFPAPCx4GZrCJOP3hk/P3fLFS0uly/B63X+6vX4AfFIMuC3HliFJwi/O
IWMAXCZD5mTVVyDklvonUqMBMA7DBS5T/AGmwKjMM+/7QV9gztpK9Q+0RF7Z
2U/shyudh6ptvn/A+XC1dtepH1RZhUkLhv5AH0fYymWqfhCrDc+wzlkF0kFF
/JvmfUAQyDTqzLYOjrLh6zxZvWBtX9pfL7cO2R4mHTNivVCtCx2UhusQJHr9
vfCnHnDkca+rjV4H018U85nj36C5/WMS0dY6HKlXRwrzdsNDDufL//VsQKiN
y/Z4dTuMEu8r7S1uAEPPHnLpSjvIrSfK6BH/hcOlbyEh420w8+U9z5bSX3Cy
WRAboWoDTR+KA42Sv6C27f82JKQViD5Xv5l+uAlc1bVtr+Ob4XqZ9usLOZuQ
MDYL47LNUJs2mh3fuAknQsXB/mOfwdmD5LHsxibgxA30G+Q+QyuDtdPDG1vQ
+o/BN2AeBe7jVasfIVvA8WiPr0MfhcCFh4ZiaVsg9q771kBdE5z9VKEy0LUF
RcJUx7tJp/2kKz6rgOI2rFQ7/1py/gDjhunUQabboDxabmQz2QgKSmLEXbe2
IT67QMz4RiPM0Zj99SvchlfNj+prHBpAq6G4u5lhB9JXe0euP3oPpJSGDxxX
d8DqKHLB72ItWApbYwpndsGc9kRs72cNlKo7n5AL7gI3kVCpY3gNGIQEh9dY
7cKmeSLLl45qSJ/LDSFq3QX2JzoUrUFvYQG/rH544jRf6qzG/dP+/RLXu93y
g10wcZefGBmugnGTjjtmUnuQn6frboJUwdnPG7cLs/fAZf+capv6GwgePay6
W7cHMWtVJpGNFdC5S7xu0LcH8wSFDnjyFeAjwe6zS7IPAyr7I+Qy5VCXre5x
xW8f9v7lsn/TLYXLgamOS1cOIOE/bUr/5UJIT36Z1+R0APduj9URPC6EhfKi
yZSIA7iJJ+0ZI1IICdMfbijVHkBFdlCHpvdrGDScsU7gOYQsbXrMm/I/OOu1
mml/6RDMrmiGRdYXQHDM3rCc2SGE/OZ5reRaAJxNlBZjcYfQEaj9J/BrPjiL
yZtI7ByCzK3Ms9yZeVCnBSkEdEeAd33vPwejPCBz1On7LnYEf9US14gp8qD8
ue21ew5H8JsrPdk4Mhe2iKOv4rqPoOKHBIcjXg48nPyu4VfwD8z1/vnfcM2G
8Yar3sEf/8HXra6BLMJsuJSKpUcM/YNAq5Oxx/lZsH65dDGO9BiOrkR02M5m
wo2y8KcFnscgGne0tRv+HBqj/taXRB0Dl3+gzrTwc2C6cXOq8uUxVNvdjFEb
yIBuWiP5j73H8KRjjPCSRAZcChQcGZQ9AbxbMwbWW2mQfi2TaETvBNZ61rk5
StJgQ4Ra4rfLCegSjcuy2aVB8cju/T8ZJ2ARLXRU2/MMmNW6zpIcnYCYSmFr
+4dU2CdWbDhdGGJLTrv0tj0ZCv02v73ywUN2GAq7qp4kg+lExRRfKB6yGPm4
ONMsGarq+SlFnuEhkVL3OVnnksDVk9JO7iseEh+aYGJKlwSMw1/93/fjIQQW
k9m2H59Cs+aD2EsTeEjPYwWuQounwMW98xbZw0MsOr3zBlOewCBugkhfFB9R
0P6xPM2eCJEqWWw4BXxk70GAmy+WAFKlphImGvgIrz7+lNXNBIh/2GFhdR0f
cfX8wCDWEA/qCjWlLk/wERzTf9q8XnFQlR1tGPEXH2HTz62JIo+FLoboeRo8
AkQ4t+InfIqBufhHEXlUBMjl1PscUrdjgDMsqvyLCAHyZ/+CcOZoNMRejySj
sCNA5hU1/bewR1Aw+CDnhRcB8jvzY3FT2CNo0nugIHGXALFbj3ZKVXwEW8r3
nY3SCJAPqz/O69RFgT1XBJbRRYBMGN9bcP7wEELTwi3O/SRAIDjPFf/eQ0in
Cl9tnCNA+BwlfaI0HkL3v1DOcXxChMK6HSfeGwkXx0OCBS8SIrx8h0G56w+A
NueO1Nv/CBGOlpXyn5b3QYzlTpt6NSGSOfRchufcfdB6GnBjECVESH8p5Att
3YOwe/4Ju78IkTUpId4NpXuwYHd7QYWOCKmYd0wa+xUOGK93bmc4EcJ0ZsPF
1ygURp57XbgeT4S0hT+sliMOhR1ar54/z4mQDIIcOsLGu3Ae3/OItpYIWWNv
aS4/exee/3aztFgiQtb55RNQihC4le9MO2NOjGRsdYZE4AfBk5DMF0+ciJFJ
LDeSuT0Q3hj2iCj6EiO1bvuTDk8DYfX4gtqTx8RIduUncTLeQPCyofC7+JEY
OS8s6KKncwc8GKsHEvhIEPbEtpLcBn+IW56zuyBBgowYc67pxvlDaTPHyu9L
JIgul1L4Qxt/WPR9RHTBlAQhcboUknHiB27fLOV/R5MgtvUzU4wGfuAafZIu
v0KCnI1Sj+0huA3RtnICk3skSEuohm7EiC8UyrlXxhGTIvJ972Zzan1hdqq/
bYKbFFFLGLsv4+YLzlC499iIFJnZjKD+UXwLHPf0rMfrSJHL9T9eTd/zhsje
B3OxLaSIeGaKhpCqN+QX1vnJ4k7jhGgi9z8v+G3KGx+7SIooXbQLkwj3Avu3
mx9kOMmQc1HGFZGPPOGGRxZXzAMyRPzO9+u079zh8OeZno1EMsTvenr8YIQ7
PNcJibieRYbcgLeiIjru0CdiOSFdQ4ZclBzLC5xwA815przRGTLkMEtD4T69
G5xzThaUuXIGeXDscWE4yRW+DuANvTA9gyR1ltzrcnQFRw3fR6QOZxDfwR9Z
cvKu8IL/2txoyBmk/6ZEoeOIC1D/piyOKTuDOFyMrCAVd4Et21ixMWpyxIB2
attoxgmSvu2OaHOQI6/8z4gTfnICcZWbCdXC5IiOgmEHU7oTuHJq/YlByJFi
HEWFtY4T/PxFWCnjR47Edy9e16x1hCaLezKxQ+SIetkV84osB3hsFKgo+4IC
iZPkyfbUsoOUblGv8hIKZCXohqs9qR280J54JfSeAvHvt4jaar8BVSpXiFj7
KRALL2nJTf0bMHyOvfeIlBKJ8yHdYLazBRGCJuev/pRIQcUE+L2wAZlwvwx4
QIk0x+5px7jagPLe2c76J5QI1xD/NV5pGzBcfSpZVkKJ/Pi3rz/cZg1BvxwO
nk5QIo0EtoMKh1bwtZo4yeoqFUKtv60ZEGx5yg2Nzf2WVEi6yzwet64l/Cr2
2b7qSoUMOSd9kOe0hNVXP6xVH1AhC/GeOqWfLYA5vkRI4D0Vsvgs9FY0nQW4
OOl/WOGnRqZU9DHKL2ZAxJg2d++AGumWYE5m9TYB+tUIanpSGkRObi6nQc8E
+NrdFP5joEGoFxP0X503AdUw5ej28zTI15e/JyT/GEPIzLQQnR0NElL0s9Xh
tjGs1sq45LfQIKmab7vvPDKCf084E+VwNEjVT10gdjcCSneSd19HaZD9b0dP
evSM4BzXL6LlbRqk+vJOEiWTEVQ3I/1sjLRIF30jsXCxIayILtx21KJFDh9s
5bVUXYMtlrFHZXq0yOSvh4y5EdfgkKg/c8uYFuG+2bw1oXcNyCc+fI62o0U0
psP1opcMQDj1KV1ZMC2iw71LbipqAI6HCm83S2kRc8YkW+kPevCj69F6FA0d
MqTHYW/BqQvPVF9eNmOmQ3a617kbNnTA+G1tlhAXHSLL+4nUr00HetKnNb+K
0iGFvYZ4c/468NVBLZNUiw5R89t9i+KuQN3ukVpcGB2Cf8OpLi5TGwI8GDOs
H9IhI/nZJSf+2iAzJrYiGkeHvNV/cRs10IY3zdbpXRl0iD1TcS0nsTYUJtYv
UdbQIfqOsjOX7mhBukBA6tNFOsTVPm7Vz/EymKbHL9it0yHcTLxwWe0y0J8p
UJHapUOkmTKoLHkvw5PVvnkcET1ClrfVqTyhCdENksr0vPSIZNZc5V87TQi8
tjzzzJwemU4ScX/mpQFmoY4KWS30iML2beCsVIP0l4wkux30iJnF99KqdDX4
jn4dMsHRI0nurGa3ItTAnEjsDtUYPaL0PpvUw0ANLBM3a+7v0CP4kB12dR0B
65wo6ZvnGBDylnrCQCUE7FsKz8s9ZUB+mmRKZ/xSgdxZy6OkNAYkPHPmEluN
Cvwmpej+k82AHC+jNaPxKuCod8uzqJgBma7DXxFSVQGnoQul7M0MyOAj83s1
r5XBdb5dGH+bATFMFpC8dl8JvCiW+XusGZEoKvZoe3tFWA5pJKJwYEQOCirC
OxFF8Fh4PKd9kxGZ+WBU7cKnCDdbRUo/+zMiSaTxjhLTF8Hxnqv0uwRG5ElN
096x20Ww2vwNL5oYkRCM/4ph+AXQGhm+7sHPhMRn+Gj5f5WHVp1i1SIRJsTy
T5Gjfbk8aNYH8c5IMCEf5sIzAlLkQS2NecZWiQlxScWk6ezkQfmaqaeRKRNS
SUHxnOFADmRaekMuRjMhrDnLdwkuyAFP2dd0kiUmhAhfqaqnUwZMc+obOteZ
kK8f5lX1amQgLrV09MkuE6JkOpezmi0DW6FP+FmImRG1GZUvud4y0Kln/kaY
lxnxfsoiXEMvA4Grs61XzJmR4QCFD+ZO0vBNmng7rpkZeboZErvAKQUEZ3dZ
rnUwI92fuMajzkjBRfbFSww4ZuSVUHZf2Iok5BN8u589xow4PM96RpsrCcED
zyjL95iRka0evukzkiB4R1DwmwQL8oAx6+rovDiE1muY0GSzIBIdX0hjO8VA
5jpu3S6PBZmyir1/p1wMlk6uP6kqYkGYX3C+i38iBtbagR1GtSzIOP4ZHWkT
Mbj0vRiefWNBioYjD6zGRWFvk+o8Gx4r8oIogXTp8BwESg4TCbiwIh3WY6n2
xiIgMeCc7+/JijgmstCuXhSBucAN+HKbFVGIj5p4wSMCZk3koS4RrAiL4ctC
2z/CIKevslGUwYoUDapIu8YJw6ZH/tj5TlbEjvDK5ZudZ8G30KtOQZINMRdP
3BuxF4LxXo40agU2xIjershVRwj09zv955TZEBqCpAQ6GSEQ1Tsnna7LhnS3
LQu1EQrBzMZs2bYLGzJ9/+tYWbEgWKjY5dW+YEPEy/rXJPYEQHXQKEGGnB2p
9VhFusr5ofwfnic5HTvy/eZz+n/P+YFDuEpnioUdOWtTdV7nET/shVCTpgix
I6k8MymSN/ihmqfrwQbCjqg727yWouMHIU/NoKogdkSJtqBjMpQPKAkuOErM
siN6pLvbq4680BBEaDK3zI7oFHuHexnzguufXo1Xf9mRgfGdwWM1XsCG3YSo
8TgQNRHPQAc+XvCvzFr4w86BfEuUUVZo5oFf1499Kgw5kCKZSub4dm4oft8a
ev4jB0L9dD7IZoMTzMRTvGaaOZCxSM+brEOcQFBww/ZFBweyScoxvlvPCdef
7KpS/uBAau5UpHM94AQal3MEKxsciO7wVfSYnhMC6RNjy4Q5kUTuTIs/yhxw
2ds0TTSVE2mXeWx/oZgNAlI+4N3K5ET+FldoxyWzwX/v+b1qcjiR9+Obajt3
2YCAYENduZwTySudXWI1YAMsPXFdv5UT6b2UEfhomxUuYV+v3t7lRM7GPbaZ
uMIKEgyKBPU2XMhPNykPFI8FbC/meh85cCG4id8LuyvMkGBL+hNx40JEBdLe
XP7JDMtFQ5UdAVyIa6ZCHm81MxQr+9mOJHIhXZfGxfqcmUHAtaz+GOVClEba
XxH3MAFrA9ety4LciNkJeo68khGOnYo46MS4kSnPORfNF4wwQy3dPirNjSxE
cP1NfcwIVc6afAHAjVQK1UT7OTOCNq3nQL41N2J+WzVClIMRAm/WX8BL5kZI
SkRFvBMYYIjJBO/DP26kmutQLTKcHhqx0fJoIh5kPykkVtqbHnI9Xa2MKXiQ
c8TfcX+v04PX55DqRVYexP3LMGmZMj0Qeec6s8rxIK8zf4auHdGB3Jc/7Xc8
eBCFRGbL2vt0kOIXmyz1gwfhDGvCpT6jhYPu8vrYMR5E16QY0YmhBUfhvonJ
aR6kk8eSiPIuLciOskkkr/MgesQbWg12tLCUbza7R8SLiOJr/KsSo4UEyvkH
Vty8iJN6kRRNAg30TJz5wG7Ei4R6uFn3k1KDcfQ18Zd1p/GgmtgddQootFrX
aWg4jU8EKCZLUMD++WTXoY+8iAM1JR6wU0DuQH8OVQsv0m9JHzKwQQ5/eM3p
I3p5kc83D9rH8sgh9sP13RsLvEjPN543LsTk0LTu/pmXnQ8pzCrzqPtJBqI2
UWb/hfMh2hSR4VdrSMDqdh090QM+ZIke4a7JI4HYmIVepyg+ZMVM+ZtYEgnM
1ujpCsTzIbrehSSG3iSQS8kE+c/5kOkArmYHERJganotklvDh5j9q4vNzCMG
PL62w+xFPqQ6YW51OIcIvs+dyU8140eoA23O/mwjgK+mj180WPIjI9Nc6zON
BFDXTJYxYcOPhJFYzR1WEED6K9IEMUd+hJXl5NzVZwRgZk4c2OLDj3gQhn/z
diCAwVY83c0YfkS4tKqi4R8+9P+3u2HcyI8woz3dPKr40OM4q0bPI4Co/KXa
Gnl/ovqbqGgvjV8AyS5JbA3IPVHdKnSrZDsrgDg/DpEQeHyiyra8zMknLoB4
FtLcxKxPVJ39/+5KKgkg9ewaY/vHx6oHD08q9C0EENVZ8WTTq8eqZ1+zsT9+
KoB8m3pfSrl5pKqoPYKjTBVATJium54fP1LVW3wRk5QugNCQ/MDd6DhSvS3O
u53xUgApufxn/TDnSPXju7O4wjIBRBEvJJPR4EjV+Kts9Jc2AWT/9y2VNxWH
qi5u28pXugQQCzIqdCPzUDWY/P1mV48A0pmq+1Mr+lD1pcElh4EhASR00jNB
yO5QdeE7ojw1LYAskbdPV9Mdqh4EE2y6zAsg/MXqvA+OD1SpOL6ULC4JILFD
Gg72yweqMnbaLBsbAsje+L1io9YD1cv4Z3oCtgWQ8wOtcU7VB6qWBZ1Re3sC
iPaV4nPROQeqHpcTlMKOBBDM1Nm/IeFA9f/uKyH/f1/pfwCKLNPP
       "]]},
     Annotation[#, "Charting`Private`Tag$117211#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.898191457005766*^9, 3.898191463786951*^9}, {
   3.898191510737247*^9, 3.898191520718318*^9}, 3.898191572622909*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"8fdde79b-7cb2-4938-aa07-ca700dfe15bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fm", "[", 
      RowBox[{"x", "-", 
       RowBox[{"c", " ", "t"}]}], " ", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "->", " ", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178533337009*^9, 3.89817856142127*^9}, {
  3.898178611949658*^9, 3.898178676394897*^9}, {3.898178937216487*^9, 
  3.8981789549528513`*^9}, {3.898179022321972*^9, 3.898179022949939*^9}, {
  3.898191583189148*^9, 3.8981915854034653`*^9}, {3.898191662756349*^9, 
  3.8981917444178553`*^9}, {3.898191824490272*^9, 3.898191826039283*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"f813551b-a717-4883-80c7-c49eecca6d24"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -3.0965795516967773`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -15, 15}}, Typeset`size$$ = {
    468., {141., 146.59986810017216`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -15}, 
      "ControllerVariables" :> {}, 
      "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`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \
{$CellContext`x, -10, 10}, PlotRange -> {All, {-1, 1}}, 
        Axes -> {True, False}], 
      "Specifications" :> {{$CellContext`t$$, -15, 15, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {167.861328125, 175.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.898191745221869*^9, 3.898191830468207*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"a5146ef2-3316-4e18-8009-2db77880d1ba"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n general", "Subsection",
 CellChangeTimes->{{3.898191614512085*^9, 
  3.898191619193075*^9}},ExpressionUUID->"eba8f49a-e87f-4b5a-85c3-\
518eb74adaad"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"fp", "[", 
       RowBox[{"x", "+", 
        RowBox[{"c", " ", "t"}]}], " ", "]"}], "+", 
      RowBox[{"fm", "[", 
       RowBox[{"x", "-", 
        RowBox[{"c", " ", "t"}]}], " ", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "->", " ", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8981790467876377`*^9, 3.898179065063031*^9}, {
   3.898191627090581*^9, 3.8981916464878483`*^9}, {3.898191724042563*^9, 
   3.8981917285539513`*^9}, {3.898191839889669*^9, 3.898191855288638*^9}, 
   3.898191888257699*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"ada0eeb3-31b6-419e-b2e6-4e79efecd8a0"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -3.3113765716552734`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -15, 15}}, Typeset`size$$ = {
    468., {150., 156.4998681001722}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -15}, 
      "ControllerVariables" :> {}, 
      "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`fp[$CellContext`x + $CellContext`c $CellContext`t$$] + \
$CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \
{$CellContext`x, -10, 10}, PlotRange -> {All, {0, 2}}, Axes -> {True, False}],
       "Specifications" :> {{$CellContext`t$$, -15, 15, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {176.861328125, 184.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.898191631636272*^9, 3.898191646793857*^9}, 
   3.898191729093204*^9, {3.898191846408287*^9, 3.898191855864077*^9}, 
   3.898191888851077*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"9b46934c-9ea3-4f91-90a9-051cd5169129"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cuerda con un extremo fijo (Dirichlet)", "Section",
 CellChangeTimes->{{3.898191125464287*^9, 3.8981911354478607`*^9}, {
  3.898191918769053*^9, 
  3.898191929510745*^9}},ExpressionUUID->"d8d4ceb2-775e-4b2c-9a07-\
91203b1cb705"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8981919393750973`*^9, 3.8981919398631897`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"8e51095c-9496-40dc-b1f3-9affa349b1f7"],

Cell[CellGroupData[{

Cell["Modos que se mueven hacia la izquierda y hacia la derecha", "Subsection",
 CellChangeTimes->{{3.8981922124594803`*^9, 
  3.8981922250584927`*^9}},ExpressionUUID->"fa480deb-86bf-4685-876e-\
bef381c186b5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fp", "[", "u_", "]"}], ":=", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"u", "^", "2"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fp", "[", "u", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, {
  3.898191290942535*^9, 3.898191292239201*^9}, {3.8981913532387238`*^9, 
  3.898191356574024*^9}, {3.898191780898335*^9, 3.8981917842249517`*^9}, {
  3.8981919827823353`*^9, 3.898191984009453*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"7f77ffcb-aba2-4fe7-8bbd-e75510a72259"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux
Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz
89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9
uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty
68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt
rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB
7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd
ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om
G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2
WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2
TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8
/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq
JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4
d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv
P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL
r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d
s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb
dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO
uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I
BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX
FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH
iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT
iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1
wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4
65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4
RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN
Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf
5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF
FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx
dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb
uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY
MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb
8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB
RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW
OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt
3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au
ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF
Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde
snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY
eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM
uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r
0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y
0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow
mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql
sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7
1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs
XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc
kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV
oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq
qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf
ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP
sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4
8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q
J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX
iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP
NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU
D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD
TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q
32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo
G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta
LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe
fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3
Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx
k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx
iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr
VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer
4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC
1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng
Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT
GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U
MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe
tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f
+yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE
60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU
Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi
YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30
bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW
ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz
MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk
eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY
BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB
5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW
Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5
STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR
kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM
yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z
4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz
1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU
KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp
VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR
aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal
Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7
ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry
StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW
/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4
1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18
FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp
8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd
HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9
b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4
6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf
YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf
3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA
z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u
AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4
CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex
n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ
YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI
YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR
E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68
Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj
6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ
a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1
WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h
CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf
+nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2
+lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x
LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO
jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs
z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO
ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY
0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX
TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw
MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3
/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY
pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3
83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ
kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l
mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN
/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU
4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD
YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono
1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC
rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi
FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js
5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4
78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1
hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1
4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8
eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k
g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae
59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB
1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj
YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr
m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f
7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo
ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8
vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1
173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh
ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI
IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq
fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b
skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw
b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID
ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0
KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m
dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic
V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t
PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K
9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU
1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri
cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE
qXtjmPTJ8H/5Kvr/fPV/AF0he+I=
       "]]},
     Annotation[#, "Charting`Private`Tag$3516#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.898192034299303*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"855ed7b1-986b-4073-a0f4-10103ad78ef2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fm", "[", "u_", "]"}], ":=", 
    RowBox[{"-", 
     RowBox[{"fp", "[", 
      RowBox[{"-", "u"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fm", "[", "u", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, {
  3.898178919640772*^9, 3.89817892694945*^9}, {3.898179002261174*^9, 
  3.898179008205229*^9}, {3.8981914243731728`*^9, 3.898191463341125*^9}, {
  3.898191509613262*^9, 3.8981915263970737`*^9}, {3.898191556827965*^9, 
  3.898191571387702*^9}, {3.898191965103423*^9, 3.89819199225441*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"badeb665-1b7d-47ba-bc02-c071e3bf6be6"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1WWc013/Ytvcmq4UfQkJIA30/ElKSJJU2JUn+pZIiGj9CIntE2XuT7Ptj
y17ZO9n8ZI/w9JzzPK/uc53rut5cL+77XOcWNf3P8C4NFRVVBzUV1f/OV2Nn
57e3SZjUPfR6VZsMo/b8Sz1/Sdhe7ovgqbNk0OcaWPm+RsJkZpfwkAtkEDn6
aPO/BRK+e0jE9dQtMpS6+zANjpJw/6PyiaoXZGCS69iD6//xhQn+xilk8Ht6
68zrzyQcrmTUivmdIYn6STTVYRJeM8mjObLgDPR3dRSFrothLSnF5WVqV+Dt
rLCK9BbFmV5n7hspuYNhWYiZdI0ILvtctM8qzgPsKepWn37txQc65DnN8rwg
93mIZdq5Pbiw6nXOmos36PtcFNkK3oWbHl9w6Y72BZ2wIv1T08KYZ4GT/vXu
AJj72PuXblQYvzkw/MlvXwCEOG4klgwI47GH3ktpBwNg+uZRRtVWYXzv/UHT
Da0A8BH7BgfyhXEhbYztb+sA6I9LVuB1FcZsii18bKUBYJv5maefJIyPbNwe
a3oYCLFVL9qfXBXC1eF37+DeIAhWtNVMMBLCpa3ei2UTQeARZpPef1YI37K5
m9C8HAQ2Tx646yIhPB47nsjKHQzqe68f3yshhJvCgg5taAVDmy2KrZkVxJ5P
HnU2ZwQDjSSjrehbQdxuLpeT5B0CN8h+OxrjBXCVTZze96eh0EAsM9pFCmAV
kyvw6V0oEBuX1kVCBTCn9v7cZz6hIGKzc8DGSwBXq5EfmKaHwvDNyHh+WwG8
OyJpX/V0KJirpqve0BTAp7KMwhrvhYH1fO3tmT5+/JDBgmrfvS/geIs2lZWX
H0dpfRRa1w6H9EYdzzY2flx4lD+871w4DB/3sA5j4Mc7UxmuVV8OB+3dO+Tl
13dgkae0vlmW4cDRLZluOLQDT9L96RjyDIcvF05nBqftwPOuu7OjO8MBtL1z
9untwFadIjGbjyOA6sBe0HTmw5l8rW/niyLBgV/jhrMjH27hYZRo/xEJK9um
m5XP+XDGfdrl8p+RMNsSq3rakg/30bRfLZ+JhB47uVyDc3z4dBQvPrMnCnLK
1TOuC/Hhx8lcDm5vouDhtWtRz1N4sTDH91Xp89EwruV4Ii+WF1Of+/DX60Y0
3JEPH1r/yot9aaP5aa2iwYRmZK+jDy/2EKZt5nofDafiH4SSn/Piy9GrqnVF
0SC++NLfW4MXr26PKLQciIHuD8Hvk37yYPE5v5QQwVhorRBJvtXIg5+ElHWU
SMZC3XZc044fPJjqTaTlsnIsFD/JEXpdyIPXPp1ldz0fC5FXW5OMoniwMjON
yLkPsWC5n71p8xEPtuT1/WJPHQcbNa8FDdh4sOCrtNK61ThYpGNSp2fgwVob
HGZlTPEwe9zrdv42N3bse/T9h2A8DGaGJYovcOPyEct6+qPxUB6Sr7bWxY27
bvnPqL+MBw/LxVuRcf/4RBNzvB0Pu1gsEhZPcONjJWSfeIFEuFFc5yGmxo1f
RrIoa+1PhAibg48MDnFjEUcJv5XjiSDZs66SvI8bLz2K4PhingjyyR/Lzdi4
sRJfrfVSTiKc0M8aaPnJhZGwT9Lk1SS477O1I8OCCy+p5JCGvydDsrbZWv9t
LmxqjM7YNSTD7HpVL9tVLly5ohMi9TsZbMy8oyzOcuGNYauznTwp4KAsflBE
kQubdb2xtvsvBfak+AbtWeHEp0dcqwcOpMKDQzL0Pbs4cS5WSXbAaWBDnxdn
y8mJd22/d5HvToOXP3VO89Bw4rLTxbNUi2ng/uyul+4YB/beOsdLxZcOid/C
hXIzOLD/JfnC/FPpMHFIQM5fmwOb+Ka/VPqWDvdU6C6de8SON6rcNiZCMsCa
wXdt0vQfHuYp60vIANt20VCXi+w4KHNGYiQ3A1xsiaGiY+yYPUhRRbojA2Jz
Xj6QpWfHgr2q3YF8mfBb5Y8Tcwgb7qvOKhPzzQSzw/3xZWWs+DadHEPX1yww
jz9srP2dFfuLpxIK6VlgKeRN+yORFd8c8bj8GWfBow3NGw3erJiepz4mZSgL
HCCBt+smK550OiNdKZ4NfjrPHGc3WDA73WPbX6nZUHmJzUhImQUHPfovsKT1
G/yovksduo8F2zAf3N8++g3qjkLqnp0suKUyjp52/Ru07LRhFqdhwdP+BnKx
IjkwMNBRLNfEjOl89xXx/5cDq/eipE9aMeOSkB3nK7i+g4zdsW3raCbsJC64
+dEiF3CfvsyvACY8cX3lwujrXDDWNLt4yY0JXz1W23c7OBfecngkEdZM+Mgr
lk9lNbnQFd13iesIE97qnsg5Ip8Hrs2v0zNqGfGNzg9qktt5MCpTdXtxngEL
D5Q+4SoqAIdPPR4WvxmwlMa01ZXuAuBZpnzv7WDARh4Mqw0rBXC8RJCjopAB
t8rb7dFQKgT/S5b5/i4M+GfmksGZ5EI4SWbnPSzMgN+wUvh14oogou9C+QsN
epzSk+n+vgxAcURxvU2ZHvubFzTkjQCUT3IrKEjRY4OdyX0ctBhGVxo/j3LQ
4+RbHLTF4hhkePSeXOilwymHty3172PI1D4pduA5Ha4ekh40XcFQnqb8ejCZ
Ft9QYVSqlSqFizm8OarhtLh09zO2YbVSGC2cnwrwpcUM7EOPBc+XAlNN+qWz
L2lxIrLtHHlRCmdHZOXzdWixpYTTGk19KbQLSvT7DtPgh9z27h9flMHYmx1q
OoI0uLNObFfZTDmwvEqj+LLQ4FaOfJPrTBUgZ6cbNfiXGrNePS6wj1QBttav
WF4OUWNNHJh0+koFMFz93ZmcSI3bWW6O9FVVgLjyt2c86tQ4xiCBwz+1Ek7J
n5O+KU+NVZfLj5jUVYKVzERvkig1HupQHbg4WQnZIrtPajFQ41XOSZd5ySrQ
ZHfmsWukwjJSWT8aIqvAdNQore82FRbI/HjyXUw1uAzNmsoYUeEbdRZeU5XV
kNjryv9cmwp35cQ/9xmvhvmWwldc+6nwNZ+DRl9kfwCNk26Qy/g2bJ6Y+1P0
/QcQByeaz7Nvw8E/exq+dNdAvr+U1rjxJmiqLktpXKoHpqtjZtRqm3Byn2H7
0Ot6MBaJfSssugnSdwbutyTWw3wiCetN/YXh4MtMsdv1II33qGY4/YWEhw/b
ZVIaIGiS7+DL+A1oWbUOlGRrgtG01nO+Hzeg6LG/XASpCZSf+Vgn22zAiTEU
pKvaBI3bnMn9ahvgtSzyTOJBEzDsYN2n2bwO3j9yHfjqm+AZQb2bbX0NbhW7
P9of0gyldFhVYmAN3F2In1nZzcBV42hyvHwNiP3KiY8amyHZ6G/gI881GDkV
cteNvgVG7q/w/BRbgy0FIU/Npy1g6DfD9OXMKtyT9VNA11pBYaJrUT5sGUyu
90rGXvkJT+cOSAuQl6HgYUbPpRc/IXflzfUty2XoihW+fDL4J2gwyFTWHVmG
5YJA7caun2BIehl4v20JWihcl3Kvt8Oz68LHoliXoEFpUVLxcQfkN5s48b9c
gBqu0OFPP7pgqzM1a/PWAjRd1DA0/dMFJwZpxkd0FsB4hl3QXqgbamcTDbJ2
LMDlW/5sZMtu6GXdEDXImIcOoag9m5w9sK31udxt/A9oOrXuarXohZP5Pcyb
xnMg+vZKSf+FAUhNjDlapToHV8+k9hm4DYDg5//ue4vMgVjrved7YQDaVxh8
zrRRgBokSRM7BkHC3pgrbH0W6M/ULFWSB6H0zRIb0pmBP95rmaIPhuCvpxKD
y+AE7KFKRJxXfsGjhLRVbt5fcEblHeVW6BgocFi/OzE4DDcZzCeuFY3BHxtZ
jicpwxApd6Hyav8Y2KglkNp0huHd0CO7ayLj8KwxUj/AYQgExF9IoOhxWJjc
r3uobgAOdBklSidOwNPs+BsB5gPAIz3tFVQzAcuvJJ6uUA2Arszpv5TJCVjl
2vs171A/dDB8qTTYPwl/VXiW1L/2Auln976oxElgeLcarm3TBeRshf3FEVPw
Xu9ZThxbF4wLJHWWwhQw8c/XMsV1Ao/mnQTPvilgSZharunpgO2J+ngbwWng
bOzXO6fVDj2jMQKyH6bhU9BV0/SBn/Cf4vaidNw08Jh2Pud++RO+9zL79ZZO
A99Sc2Rrahvc9nlbarw2DYI7K1YvCbZC+99Jp+umMxA8osGRl9kCUhbufNh+
BoRTi0nCZ1tgG/tXlvvNwG6NXP3eN83Afjr+dFLFDGg2GOuWtDfC4a3krWSx
WdC+bfD0HWsj0Dj3hA0emYVTi7pftVADREYk60Xrz4KesPrSj4Q6iFaXUmq1
mwVjc1JEi8MPCP1SLuVXNQvuj5+4+nyrhvDre19ndM1CkUPZf4azVXBjl8OD
C1OzIO5rdrzlZiV8dc1q381OgctfsiR8girgzSHvnhO7KfAhgZbdsLkcPH3P
O/2WpcA8RPU0nygDp7eppLDTFJCsXSj1ti+F03uuUqddpsCVds3E89klcIOj
48gRcwrg6V92zRIYbukZriQ6UWCccg+LFRVD3BEF7P2BAucYmLwi5YpA5vSF
e5MBFNijdEo2kjsf3D8RVtNJFHDWHV8XfZcLhleOOPh+o/zrH64/IhZzgPB4
2hhXTIELtlJBoubfYOB32h2pKgrke1SbR3RkgdWEymm+RgqIRlkcEtXNBGFd
6S+W7RRwzWOii8hPB3m1XE+ZPgr0fz0fo3E5FZiibplc+EWBlDrvExqqSYB6
RAxGxilgv9Y8gPbEg6hUYmPvDAV0JXleIeoYGPf/qKs2TwGBC4bCaCQCDNEd
gmaZArXb4v85eYZBwNi8ptwaBSyuxCQ4GgUCR8mpDdigAF2WxMgrYW+496RL
+PsmBZCQnvo6doZABZ/7vNsUmAsKvvMn2AbChieg7R92oPGr0D5yhdA2nWbc
+IflQsyq+FSciLOZSN3lH+4Xyphl5fQg1FVlHtpu/ctDqbPQRcOPSGF0zqn9
S4Gcrktv39uHEFk0Rbou6xRgx1OkcpNwQkUdW8SuUIDwTXIpfx5FPNGYNpdd
pMBj8wcT5X6xhKXjcrzgHAUij+7Xq8hIIPo7GqMfTFGgjW0qtaIhmQi9/25I
YpQCDIOJ3JVTaUSWF9eKziAFQq8cOmZGziAMdJBnSxcFDmn6P/jFk0X4bD27
VdlCgQbZpVCziGwCpuwPi9dSgIrq27ZZ8XeCtqThgWg+BYIn+A6O6OURL0Kj
k0vTKaDY+tT0Tk8+YQcduc2xFLgTq1xxZ7WI8FX5E6nuTYFNL7/lERcguJaf
9oU6/8tfbd030x0Tjsqzn61f/NNLmlQoCpUS4twLq9Y3KaCwk6XfZrCU0O1n
Mws//8/Pmb+cGVdGROx6NaarSYGANSEpJZUKIio19TarBAWq6rrclS5UE/Gv
xAOeDc+ChV131dX9PwiC9GWBpXEWmMR76Mi0NURPmtpFroJZOG3f69iWVUtQ
P+dKfuo9C3XSAzbP+BqJtg8n6scP//Nr2qT0TLYQc6zH8ysezsCR4PlainEr
4ea0tOVhOANMFJtJ2rJWgtX5lf6sygwkhDzZJ/u5jTh/4M8J961pmPzzNMLh
TDvxe48oydZtGqzCn/vvTu4inJeTCrw+TYHa8krWQcFugirzfq/2oylg07Nr
0SJ3E+diGM+Vn5uClBU7TutrPYSgD3vOLo4pmNV/6VbM1keMk61mPrhOQq5j
cXGayiAh1pEm52k7AccOlGQaBP4inq5LcnzVHoNDbe0BxT9+ES6d+v0rEv/2
v/30S9m/v4jfEeGuV+jHQPKHgCbT7RHic4bScbXyUeC9a90KMr8Jropcra8n
RmE6dOeiXPEocWycX7v8xG/4ymZ7iP33BOGSLshsavwLQrI+CNkLTBLsERJE
zJFfEGASsTmuO0kUbBzJYdn5Czzi6yrKUyeJ41G2dMf/3R27kyRjB7spgvv+
3tsGVsNg6NBkO8U6Q1TOO9vf+zAENLY7eu8IzRFG8vr+N+oHwORWYkuu8hyR
YpvLpRY4AJmniR9sBnPESKhyt+3tATDdez8n22WOUMRS/HQr/VBaXfiJbnGO
8BloV3gp2Q/vdt7Rim74Q1xOsvJMDuiFXvo11dWJP8SK8qdYPfNeUJ77qKhH
P098/LGnWVulF0bKv+9dVJ0n3pF30p7q6IGT1qzrmgnzBP3J3YVPdvcAXUlm
6q93CwTWCZEWyO+Ca0k6MYe/LhCiB7rOyXh1QbZ/7+cP+QsEPePzzU93uuCO
JYOb0p8FYveyFfMlri6o4DUxe3djkfg13HY590EnuJhTC5KOLhH08Ukqtw52
ACObwRvT2WUiN/+pRsJiG1zeZ4JVmFeI7CXn1YbWNkg8cWebRXyFYDW+bXko
qw30X9i9yrqyQhwf9XcrtWmDgNHwF3QVK8TRJi+BpsVWkCz58zj28yrB2xA1
qEfXCna9G+kvc1YJ21gui5NjLVCzQj+n37xK5MN3pmc1LWAtJ2y9wrBGvOJN
ASfvFsj5fMLylM0asR6fricn1gJatr6mk6fWibYSWl2Ps80Q4B0WUWy2Tpy+
axc1oNQM48lxgz6O60Tmz2aWu8LN4PGr4IZq9jpRWnr+It14E7QZjJh47N0g
tFs3Lro5N8Gd/YcuyC1vEAWyG5GxPo3wbrBd0yZqkzjfHBX3ergO+vPOPLQr
3CTK2GWP9RXWwTFfHOD4c5MIOpsu4RBYB3NaiRPujFtE9aDgpOPZOriR9Mor
6sEWYXYC/NwKa+GYrXhPm9I2IR1ro3EitgbW6I/m7TSlQrw6Eh+no6sh1mah
/os1FXrYUHouwqUajAZShkXtqVB6mKyVm0U1pOeKsUn5UaFuZT6eedlqMH/A
dlO5kgo5nJkZFMqtgramAbqzMtTIYiak3qqjEtI/uxg4zlOjoVKxQr/DFVDL
6zLGSUWDJIy2S8d3VcDoB2fHCHYaxODtnPKApgJ2OZCTy6VokPKJvJC/9eXg
eu0tE+tNGpQ7oM6A7pXDrd2OOLCWBhmYCoavRZQB19dnChnRtEj6Vn5t9aFS
2C/wrOpEJi1SHAhv0BYpBW2vpzfagBaJPtgqGWcpBQenJx4r3bSopx7OBQ6W
wPjNx+Pq3HSITlKfPvBjCWCRh+E1r+jQ60671eEZDP9F3uEaMaZH+hYD40Uf
ADxfBId6mtGjUiWqSqoHAKkGDVJHH9GjGz/lxJ+eBpjdOqzh6UaPEqzOrE8y
A1hdZbU5UkiPtrn0jTk/FIMlX2arhygDOmqQ/GbMvwjMXbYDDk0zoJPti3+/
1haAy3Vl0uAqA5Ir/fb2fHoBxCrfT3OnZ0S2Hal+0v4F8Hu4pWpgDyP6LKej
q3ezAO4Qsatu5xnR8bw8V6OlfDBd1TPpz2FEDQ3UdSpS+XDDMmT3+zdMiEV3
mdk7Lhc2upgb/nxkQrrnhWjYvHMhSPeF47UQJnRt8EpG9MtcaJa6PHAwiwkV
cmxYyennwsmxHRG9I0zIpJR9KWz5+78e5S2ueIoZCTmn3C/T+w6L113393Gw
oIY647opthz4VL/So7OTBaU+Y44tW/sGB9TveWTuY0EjvdwxWaPfwHyX9sx7
xIIiX0/a9uBv0NVNm6Zow4IcBOOUtW2/QfElJ0XXn//0bGdv3fudDW7nbY8q
hbIippjrG4OtWeBTJ2OVnMCKfq2RH/KUZkGozsAXie+sKLmkZd/V9CxIVz9F
J9jCigydtzoOfsyCTmnhxr+MbMjmd84MRScLpGiK71Q+YUPUxWriniWZUJlJ
/+nKGXY0cyj80tXyDGg6kF/acpkdldUeN5b/lgHd8dZLZ8zZUfJxBQ3+2AyY
/dJhcvwNO5LloNze5ZoB/B8SJEjf2ZGqJ6czw9kMuGt2tmBajAM1ltTjI93p
QMfnP+q0zoESP1YWXKBOB55ZRw4eRk4UpL8sZjKZBqLVFirRvJxo/ENg276W
NDjuoOZSLcuJzt5wSuWNTIMXI78kuG9yIo+IXEZpzTSYzVa8G1nGiejWzV9L
u6fCtMz4Y1NtLmTRocfkKpMCiwJ9zkl6XEg83DHDaEcKbNC1BC8acqHWyMq1
w1QpwDJQUOJykwvVvFmb0GhPhn2+XtxJdlwo8InI75vvksF0QyVjIZELie7+
3JwwlAQdtc5zZE5uNBvRuJyUkgh+x8O0LvJzI68tsgA5OBEMM7JDJHZzo6Wx
sVAb50RoCPh1slKGGw2T1y/4XE+EytsawYza3EgmJX2hkyMRclb+arg7cKOL
rVxZ954lQADpqa/XBDfCCs19BefjwSjgw/jNOW5E8/4CSKB44GGOUldY4Ub2
h6muR8rFg+ds81gTHQ+aI3vdaWWNB5c8eTUeER5EP6HUxl0VB7bnpkb8jHnQ
D8ZINIni4KK9qUpIGQ96ZmXNb6oRCwFhfAwrP3hQt1uBwppiLLRD5c8LTTyI
T/wS5xfxWDCm2/+Mve8fj7+0cTHFwuWPC1mvl3kQ26hSVFBjDJh8JR+8J82L
IuPoysRux8CtslhZZS9eVGRskJbxMRqsWKfEGkz40KMrgV5uzFEw9SKfjvU2
H9KIufrScCsSLMfdRnXu8SG3e0MyEguRcK9CKrHkCR86yu6YPtYbCaZO5ge/
efChsKq3goPpkXBlYYgILeZD52cNhv1MIkG7p/OapdgOtPX5aFBFdgTsTaoM
YJjcgZRerEnLvA0Ho6+5eTVzO5C5y+yigV04uPsm9nqu7EDT+q+fvrYOh0V7
TzEBen60L5X6/ppJONToGafuE+FHY/ImnIbK4WA7+7vilDE/Cgh0ebW/+SvU
H6Rfci/lRw9G7uXppn4B+1zNC5yfBVB2jWTRml8oKF5rmrsZIYCYUcyMqEso
TG5f80yPE0A6RjOeF5+HgomO7Y/z2QJols1sqf9KKBxrjyf86gXQ4euNnC/2
hsLqArusEJUgUrSpD8LJn8FWvpOOdFcQ7bbZLDZoDIFHsVY5KvJCqL/urbe6
YjD0N+7051ARQkXLBRlj4sFwdq3myaiaEPotX64fKhAMMnrSBwNOCyGzsOJW
8c0gGPnzO2nprhA6ebWpJ6M6CC6p34zIDhVCq4u90Zm3g+B423kPRRZh9FLV
spnxcyCw0Rw2lfstjNgSQ1/NSgVA3nPaC6NTwqhf/eD73XsCwHymUfPLvDD6
/FrngRFvAOBOCwkOqp0omaE7umvTH56khYzPCO9E44cy2DRa/aH72pZ1isFO
lMubf/KVkz/Ef6+wly3ciS5GO8KLPj/QemjkL+O7C/Vo88hwpfqCYN7u/7TE
9yAl/dFDBbne4GPj6q3QsRdFUT4dT232AkOXcwfCckSQotOGWdyEB8hcJV+M
fiWKjNiKM/2t3aF9lDnS96IYMmr2e2mzwxUaTH9r8OwloSASi1yWtAsM0cWt
+ouR0OArPd1YURdYjLVIE5IkoWOaPqVhQi4gNDW1S/QACdWfCSgNZnaBO0/m
V+RVSWhNVjSiYsIZ1t9tp5y9REJvnG5KTiY6g2SMkLCbFwlxfBAxOK/gDEd1
eprYfEmoQqHzVI2UM+hNhL7/FEBCh5VkkY6oMzw+ILIUGEZC/6Xf33uWxxkK
v0k2xSaR0NQIg6HrIhkMK5VcyqtIaFuEtCc/jwx3LZbUTtWSkMVelezHmWSw
Y/m+UNtAQkcrtncdSCJDmP6x260/Sei5A9e1tFAyjLcjteFfJJRZKaw95ESG
dTuahbtjJFTUW7Hvux0Z2HeWJ0xMktClPfxVnx6TQfGmjsCfPyR0xf6U8jkz
MmhRMzc8XSKh7MvUm0rXyHA5qoa8ukpClEG2F7suksFSy0PV4S8JCVP3xjDp
k+H//qvo//+r/wP7XWdx
       "]]},
     Annotation[#, "Charting`Private`Tag$4211#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.898192035744974*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"2e6b4832-feeb-46f0-ac22-0b945bf66557"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Animaci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.898192229785335*^9, 
  3.898192231543243*^9}},ExpressionUUID->"da922d42-93fc-4b70-a9ce-\
b282b65993b3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "=", "1"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"fp", "[", 
       RowBox[{"x", "+", 
        RowBox[{"c", " ", "t"}]}], " ", "]"}], "+", 
      RowBox[{"fm", "[", 
       RowBox[{"x", "-", 
        RowBox[{"c", " ", "t"}]}], " ", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "->", " ", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "25"}], ",", "25"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178973693942*^9, 3.89817897918531*^9}, {
  3.898179032473754*^9, 3.8981790330343733`*^9}, {3.8981790703170977`*^9, 
  3.898179071723257*^9}, {3.8981794463865957`*^9, 3.898179468000723*^9}, {
  3.8981920043821383`*^9, 3.898192023632134*^9}, {3.898192069391204*^9, 
  3.898192133857958*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"cf2a2431-90a5-4c83-a072-3a8bb305f782"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.898178979956296*^9, 3.898179034211294*^9, {3.898179067188308*^9, 
   3.898179072260508*^9}, {3.8981794391495953`*^9, 3.898179468590567*^9}, 
   3.89819203740875*^9, {3.8981920705481167`*^9, 3.898192134749393*^9}},
 CellLabel->"Out[15]=",ExpressionUUID->"40ae767d-9515-4926-9884-e0c00e809657"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -21.17128849029541, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -25, 25}}, Typeset`size$$ = {
    468., {138., 144.66726011631175`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -25}, 
      "ControllerVariables" :> {}, 
      "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`fp[$CellContext`x + $CellContext`c $CellContext`t$$] + \
$CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \
{$CellContext`x, 0, 20}, PlotRange -> {{0, 20}, {-1, 1}}, 
        Axes -> {True, False}], 
      "Specifications" :> {{$CellContext`t$$, -25, 25, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {164.861328125, 172.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.898178979956296*^9, 3.898179034211294*^9, {3.898179067188308*^9, 
   3.898179072260508*^9}, {3.8981794391495953`*^9, 3.898179468590567*^9}, 
   3.89819203740875*^9, {3.8981920705481167`*^9, 3.8981921347656717`*^9}},
 CellLabel->"Out[16]=",ExpressionUUID->"5f2282d1-439e-4191-9111-a278b56b1b11"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cuerda con un extremo libre (Neumann)", "Section",
 CellChangeTimes->{{3.898192171421978*^9, 
  3.898192184160554*^9}},ExpressionUUID->"3ecbab6f-3c69-4080-9e75-\
a3c44ffbd2a9"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8981919393750973`*^9, 3.8981919398631897`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"c01d6a4e-ebbe-4763-b976-8a59c89818e2"],

Cell[CellGroupData[{

Cell["Modos que se mueven hacia la izquierda y hacia la derecha", "Subsection",
 CellChangeTimes->{{3.8981922124594803`*^9, 
  3.8981922250584927`*^9}},ExpressionUUID->"0b562953-4f64-4d2b-969d-\
e8ea6b7ddf98"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fp", "[", "u_", "]"}], ":=", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"u", "^", "2"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fp", "[", "u", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, {
  3.898191290942535*^9, 3.898191292239201*^9}, {3.8981913532387238`*^9, 
  3.898191356574024*^9}, {3.898191780898335*^9, 3.8981917842249517`*^9}, {
  3.8981919827823353`*^9, 3.898191984009453*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f6a80da5-3470-4e41-b056-29dc2551d4f0"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux
Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz
89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9
uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty
68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt
rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB
7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd
ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om
G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2
WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2
TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8
/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq
JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4
d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv
P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL
r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d
s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb
dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO
uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I
BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX
FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH
iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT
iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1
wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4
65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4
RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN
Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf
5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF
FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx
dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb
uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY
MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb
8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB
RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW
OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt
3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au
ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF
Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde
snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY
eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM
uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r
0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y
0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow
mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql
sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7
1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs
XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc
kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV
oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq
qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf
ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP
sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4
8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q
J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX
iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP
NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU
D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD
TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q
32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo
G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta
LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe
fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3
Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx
k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx
iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr
VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer
4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC
1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng
Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT
GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U
MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe
tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f
+yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE
60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU
Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi
YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30
bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW
ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz
MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk
eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY
BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB
5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW
Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5
STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR
kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM
yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z
4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz
1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU
KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp
VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR
aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal
Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7
ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry
StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW
/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4
1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18
FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp
8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd
HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9
b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4
6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf
YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf
3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA
z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u
AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4
CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex
n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ
YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI
YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR
E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68
Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj
6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ
a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1
WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h
CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf
+nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2
+lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x
LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO
jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs
z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO
ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY
0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX
TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw
MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3
/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY
pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3
83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ
kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l
mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN
/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU
4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD
YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono
1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC
rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi
FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js
5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4
78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1
hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1
4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8
eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k
g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae
59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB
1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj
YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr
m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f
7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo
ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8
vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1
173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh
ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI
IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq
fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b
skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw
b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID
ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0
KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m
dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic
V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t
PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K
9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU
1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri
cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE
qXtjmPTJ8H/5Kvr/fPV/AF0he+I=
       "]]},
     Annotation[#, "Charting`Private`Tag$1930#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.898192034299303*^9, 3.89819226647221*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"290b01d4-18e2-45f4-8d41-2dbdbca178c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fm", "[", "u_", "]"}], ":=", 
    RowBox[{"fp", "[", 
     RowBox[{"-", "u"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fm", "[", "u", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178481189189*^9, 3.898178500370598*^9}, {
   3.898178919640772*^9, 3.89817892694945*^9}, {3.898179002261174*^9, 
   3.898179008205229*^9}, {3.8981914243731728`*^9, 3.898191463341125*^9}, {
   3.898191509613262*^9, 3.8981915263970737`*^9}, {3.898191556827965*^9, 
   3.898191571387702*^9}, {3.898191965103423*^9, 3.89819199225441*^9}, 
   3.898192257827187*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"3800b10b-2c97-436f-a271-4ff3d597907a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1WWc413/Utvcmq4UfQkJIA52PhJQkSaWNJMm/VFJE40eUyB5R9t4k+/ux
Za/snWx+skd4eq7reV6d677uc785L865z3WLmv5neIeGioqqg5qK6n/ry7Gz
89vbJEzqHnq1qk2GUQf+pZ6/JOwg90Xw1Fky6HMNrHxfI2Eys2t4yAUyiBx9
uPnfAgnfOSTiduoWGUrf+zANjpJw/8PyiarnZGCS69iD6//xhQn+xilk8Hty
68yrzyQcrmTUivldIIn6cTTVYRJeM8mjObLgAvR3dBSFrothLSnF5WVqN+Dt
rLCO9BbFmV5n7hkpvQfDshAz6RoRXPa5aJ91nAc4UNStP/3aiw90yHOa5XlB
7rMQq7Rze3Bh1aucNVdv0Pe5KLIVvAs3Pbrg2h3tCzphRfqnpoUxzwIn/avd
ATD3sfcv3agwfn1g+JPfvgAIcdpILBkQxmMPvJfSDgbA9M2jjKqtwvjuu4Om
G1oB4CP2jTiQL4wLaWPsftsEQH9csgKvmzBmU2zhYysNALvMzzz9JGF8ZOP2
WNODQIitet7++KoQrg6/Y457gyBY0U4zwUgIl7Z6L5ZNBIFHmG16/1khfMv2
TkLzchDYPr7/XhcJ4fHY8URW7mBQ33v9+F4JIdwUFnRoQysY2uxQbM2sIPZ8
/LCzOSMYaCQZ7UTfCOJ2C7mcJO8QuEH229EYL4CrbOP0vj8JhQZYZrSPFMAq
JleIT29DATYurYuECmBO7f25T31CQcR254CtlwCuViPfN00PheGbkfH8dgJ4
d0TSvurpULBQTVe9oSmAT2UZhTXeDQOb+drbM338+AGDJdW+u1/A6RZtKisv
P47S+ii0rh0O6Y06nm1s/LjwKH9437lwGD7uYRPGwI93pjJcq74cDtq7d8jL
r+/AIk9ofbOswoGjWzLdcGgHnqT70zHkGQ5fLpzODE7bgefddmdHd4YDoe2d
s09vB7buFInZfBQBVAf2EpoufDiTr/XNfFEkOPJr3HBx4sMtPIwS7T8iYWXb
dLPyGR/OuEe7XP4zEmZbYlVPW/HhPpr2q+UzkdBjL5drcI4Pn47ixWf2REFO
uXrGdSE+/CiZy9H9dRQ8uHYt6lkKLxbm+L4qfT4axrWcTuTF8mLqcx/+et2I
BnP58KH1r7zYlzaan9Y6GkxoRvY6+fBiD2HaZq530XAq/n4o+Rkvvhy9qlpX
FA3iiy/8vTV48er2iELLgRjo/hD8LuknDxaf80sJEYyF1gqR5FuNPPhxSFlH
iWQs1G3HNe34wYOpXkdaLSvHQvHjHKFXhTx47dNZdrfzsRB5tTXJKIoHKzPT
iJz7EAtW+9mbNh/yYCte3y8O1HGwUfNK0ICNBwu+TCutW42DRTomdXoGHqy1
wWFWxhQPs8e9budvc2OnvofffwjGw2BmWKL4AjcuH7Gqpz8aD+Uh+WprXdy4
65b/jPqLePCwWrwVGfePTzSxwNvxsIvFMmHxBDc+VkL2iRdIhBvFdR5iatz4
RSSLstb+RIiwPfjQ4BA3FnGS8Fs5ngiSPesqyfu48dLDCI4vFokgn/yx3IyN
Gyvx1dos5STCCf2sgZafXBgJ+yRNXk2Cez5bOzIsufCSSg5p+HsyJGubrfXf
5sKmxuiMfUMyzK5X9bJd5cKVKzohUr+TwdbMO8ryLBfeGLY+28mTAo7K4gdF
FLmwWddrG/v/UmBPim/QnhVOfHrErXrgQCrcPyRD37OLE+dilWRHnAa29Hlx
dpyceNf2O1f57jR48VPnNA8NJy47XTxLtZgG75/e8dId48DeW+d4qfjSIfFb
uFBuBgf2vyRfmH8qHSYOCcj5a3NgE9/0F0rf0uGuCt2lcw/Z8UaV+8ZESAbY
MPiuTZr+w8M8ZX0JGWDXLhrqepEdB2XOSIzkZoCrHQwVHWPH7EGKKtIdGRCb
8+K+LD07FuxV7Q7ky4TfKn+cmUPYcF91VpmYbyaYHe6PLytjxbfp5Bi6vmaB
RfxhY+3vrNhfPBUU0rPASsib9kciK7454nH5M86ChxuaNxq8WTE9T31MylAW
OBIJvF03WfGk8xnpSvFs8NN56jS7wYLZ6R7Z/UrNhspLbEZCyiw46OF/gSWt
3+BH9R3q0H0s2Jb54P720W9Qd5RI3bOTBbdUxtHTrn+Dlp22zOI0LHja30Au
ViQHBgY6iuWamDGd774i/v9yYPVulPRJa2ZcErLjfAXXd5CxP7ZtE82EncUF
Nz9a5gLu05f5FcCEJ66vXBh9lQvGmmYXL7kz4avHavtuB+fCGw6PJLBhwkde
snwqq8mFrui+S1xHmPBW90TOEfk8cGt+lZ5Ry4hvdH5Qk9zOg1GZqtuL8wxY
eKD0MVdRATh+6vGw/M2ApTSmra90FwDPMuV7bwcDNvJgWG1YKYDjJYIcFYUM
uFXefo+GUiH4X7LK93dlwD8zlwzOJBfCSTI772FhBvyalcKvE1cEEX0Xyp9r
0OOUnsz378oIUBxRXG9Tpsf+FgUNeSMElE9yKyhI0WODncl9HLQYRlcaP49y
0OPkWxy0xeIYZHj0Hl/opcMph7et9O9hyNQ+KXbgGR2uHpIeNF3BUJ6m/Gow
mRbfUGFUqpUqhYs5vDmq4bS4dPdTtmG1UhgtnJ8K8KXFDOxDjwTPlwJTTfql
sy9ocSKy6xx5XgpnR2Tl83VosZWE8xpNfSm0C0r0+w7T4AfcDu8/Pi+Dsdc7
1HQEaXBnndiusplyYHmZRvFlocGtHPkm15kqQM5eN2rwLzVmvXpcYB+pAuxs
XrK8GKLGmjgw6fSVCmC4+rszOZEat7PcHOmrqgBx5W9PedSpcYxBAod/aiWc
kj8nfVOeGqsulx8xqasEa5mJ3iRRajzUoTpwcbISskV2n9RioMarnJOu85JV
oMnuwmPfSIVlpLJ+NERWgemoUVrfbSoskPnx5NuYanAdmjWVMaLCN+osvaYq
qyGx143/mTYV7sqJf+YzXg3zLYUvufZT4Ws+B42+yP4AGmfdINfxbWLzxNyf
ou8/AA5ONJ9n3yYO/tnT8KW7BvL9pbTGjTcJTdVlKY1L9cB0dcyMWm2TOLnP
sH3oVT0Yi8S+ERbdJKTNB+61JNbDfCIJ6039JYaDLzPFbteDNN6jmuH8l0h4
8KBdJqUBgib5Dr6I3yBaVm0CJdmaYDSt9Zzvxw2i6JG/XASpCZSf+tgk224Q
J8ZQkK5qEzRucyb3q20QXssiTyXuNwHDDtZ9ms3rhPePXEe++iZ4CtS72dbX
iFvF7x/uD2mGUjqsKjGwRrx3hZ9Z2c3AVeNkcrx8jYD9yokPG5sh2ehv4EPP
NWLkVMgdd/oWGLm3wvNTbI3YUhDy1HzSAoZ+M0xfzqwSd2X9FNC1VlCY6FqU
D1smTK73SsZe+QlP5g5IC5CXiYIHGT2Xnv+E3JXX17eslomuWOHLJ4N/ggaD
TGXdkWViuSBQu7HrJxiSXgTea1siWihcl3Kvt8PT68LHoliXiAalRUnFRx2Q
32zizP9igajhCh3+9KMLtjpTszZvLRBNFzUMTf90wYlBmvERnQXCeIZd0EGo
G2pnEw2ydiwQl2/5s5GtuqGXdUPUIGOe6BCK2rPJ2QPbWp/L3cf/EJrOrbta
LXvhZH4P86bxHCH65kpJ/4UBSE2MOVqlOkdcPZPaZ+A+AIKf/7vnLTJHiLXe
fbaXGID2FQafM20UgpqQJE3sGAQJB2OusPVZgv5MzVIleRBKXy+xIZ0Z4o/3
Wqbo/SH466nE4Do4QeyhSkScV37Bw4S0VW7eX8QZlbeUW6FjoMBh8/bE4DBx
k8Fi4lrRGPyxleV4nDJMRMpdqLzaPwa2agmkNp1h4u3QQ/trIuPwtDFSP8Bx
iBAQfy6BosdhYXK/7qG6AeJAl1GidOIEPMmOvxFgMUDwSE97BdVMwPJLiScr
VAOErszpv5TJCVjl2vs171A/0cHwpdJg/yT8VeFZUv/aS5B+du+LSpwEhrer
4dq2XQQ5W2F/ccQUvNN7mhPH1kWMCyR1lhJTwMQ/X8sU10nwaJonePZNAUvC
1HJNTwexPVEfbys4DZyN/XrntNqJntEYAdkP0/Ap6Kpp+sBP4j/F7UXpuGng
Me18xv3iJ/G9l9mvt3Qa+JaaI1tT24jbPm9KjdemQXBnxeolwVai/e+k83XT
GQge0eDIy2whpCzf82GHGRBOLSYJn20htrF/ZbnfDOzWyNXvfd1MsJ+OP51U
MQOaDca6Je2NxOGt5K1ksVnQvm3w5C1rI0Hj0hM2eGQWTi3qftVCDURkRLJe
tP4s6AmrL/1IqCOi1aWUWu1nwdiCFNHi+IMI/VIu5Vc1C+8fPXbz+VZNhF/f
+yqjaxaKHMv+M5ytIm7scrx/YWoWxH3NjrfcrCS+umW172anwOUvWRI+QRXE
60PePSd2U+BDAi27YXM54el73vm3LAXmiaie5hNlhPObVFLYaQpI1i6UejuU
Eqf3XKVOu0yBK+2aieezS4gbHB1HjlhQAE//sm+WwMQtPcOVRGcKjFPuYrGi
YiLuiAL2/kCBcwxMXpFyRYTM6Qt3JwMosEfplGwkdz7x/hNYTydRwEV3fF30
bS5heOWIo+83yr//w+1HxGIOAR5PGuOKKXDBTipI1OIbMfA7zVyqigL5HtUW
ER1ZhPWEymm+RgqIRlkeEtXNJIR1pb9YtVPALY+JLiI/nZBXy/WU6aNA/9fz
MRqXUwmmqFsmF35RIKXO+4SGahKBekQMRsYp4LDWPID2xBOiUomNvTMU0JXk
eYmoY4hx/4+6avMUELhgKIxGIghDZA40yxSo3Rb/z9kzjAgYm9eUW6OA5ZWY
BCejQIKj5NQGsUEBuiyJkZfC3sTdx13C3zcpgIT01NexCxGo4HOPd5sCc0HB
5n+CbYmw4Qmi7R92pPGr0D5yBbRNpxk3/mG5ELMqPhVnOJuJ1F3/4X6hjFlW
Tg9QV5V5YLf1bx5KnYWuGn6QwuiSU/uXAjldl968cwiBLJoiXdd1CrDjKVK5
STioqGPL2BUKgG+Sa/mzKHisMW0hu0iBRxb3J8r9/vlop+V4wTkKRB7dr1eR
kQD9HY3R96co0MY2lVrxz3eG3ns7JDFKAYbBRO7KqTTI8uJa0RmkQOiVQ8fM
yBlgoIM8W7oocEjT//4vnizw2Xp6q7KFAg2yS6FmEdlATDkcFq+lABXVt22z
4u9AW9JwXzSfAsETfAdH9PLgeWh0cmk6BRRbn5ia9+SDPdGR2xxLAfNY5Qrz
1SLwVfkTqe5NgU0vv+URVwK4lp/0hbr8m7/aum/mewxOyrOfbZ7/65c0qVAU
KgVx7oVVm5sUUNjJ0m87WAq6/Wxm4ef/6TnzlzPjyiBi18sxXU0KBKwJSSmp
VEBUauptVgkKVNV1vVe6UA3xL8UDng7PgqV9d9XV/f/uKOnLAkvjLDCJ99CR
aWugJ03tIlfBLJx26HVqy6oF6mdcyU+8Z6FOesD2KV8jtH04UT9++J9e0zal
Z7IF5liP51c8mIEjwfO1FONWcHde2vIwnAEmiu0kbVkrsLq81J9VmYGEkMf7
ZD+3wfkDf06835qGyT9PIhzPtMPvPaIkO/dpsA5/5r87uQtclpMKvD5Ngdry
StZBwW6gyrzXq/1wCtj07Fu0yN1wLobxXPm5KUhZsee0udYDgj7sObs4pmBW
/4V7MVsfjJOtZz64TUKuU3FxmsogiHWkyXnaTcCxAyWZBoG/4Mm6JMdX7TE4
1NYeUPzjF7h26vevSPzb/w7TL2T//oLfEeFuV+jHQPKHgCbT7RH4nKF0XK18
FHjv2LQSMr+BqyJX6+uJUZgO3bkoVzwKx8b5tctP/IavbHaH2H9PgGu6ILOp
8S8Iyfog5CAwCewREhBz5BcEmERsjutOQsHGkRyWnb/AI76uojx1Eo5H2dEd
HxwG+5MkY0f7KeC+t/e2gfUwGDo22U2xzkDlvIvD3Q9DQGO3o9dcaA6M5PX9
b9QPgMmtxJZc5TlIscvlUgscgMzT8IPNYA5GQpW77W4PgOneeznZrnOgiKX4
6Vb6obS68BPd4hz4DLQrvJDsh7c7zbWiG/7A5SRrz+SAXuilX1NdnfgDK8qf
YvUsekF57qOiHv08fPyxp1lbpRdGyr/vXVSdh7fknbSnOnrgpA3rumbCPNCf
3F34eHcP0JVkpv56uwBYJ0RaIL8LriXpxBz+ugCiB7rOyXh1QbZ/7+cP+QtA
z/hs85N5F5hbMbgr/VmA3cvWzJe4uqCC18Ts7Y1F+DXcdjn3fie4WlALko4u
AX18ksqtgx3AyGbw2nR2GXLzn2gkLLbB5X0mWIV5BbKXXFYbWtsg8YT5Nov4
CrAa37Y6lNUG+s/tX2ZdWYHjo/7upbZtEDAa/pyuYgWONnkJNC22gmTJn0ex
n1eBtyFqUI+uFex7N9Jf5KyCXSyX5cmxFqhZoZ/Tb16FfOI709OaFrCRE7ZZ
YViDl7wphLN3C+R8PmF1ynYN1uPT9eTEWkDLztd08tQ6tJXQ6nqcbYYA77CI
YrN1OH3HPmpAqRnGk+MGfZzWIfNnM8sd4Wbw+FVwQzV7HUpLz1+kG2+CNoMR
E4+9G6DdunHR3aUJzPcfuiC3vAEFshuRsT6N8HawXdM2ahPON0fFvRqug/68
Mw/sCzehjF32WF9hHRzzxQFOPzch6Gy6hGNgHcxpJU68Z9yC6kHBSaezdXAj
6aVX1P0tMDtB+LkX1sIxO/GeNqVtkI611TgRWwNr9EfzdppSIV4diY/T0dUQ
a7tQ/8WGCj1oKD0X4VoNRgMpw6IOVCg9TNba3bIa0nPF2KT8qFC3Mh/PvGw1
WNxnu6lcSYUcz8wMCuVWQVvTAN1ZGWpkORNSb91RCemfXQ2c5qnRUKlYod/h
CqjldR3jpKJBEkbbpeO7KmD0g4tTBDsNYvB2SblPUwG7HMnJ5VI0SPlEXsjf
+nJwu/aGifUmDcodUGdAd8vh1m4nHFhLgwxMBcPXIsqA6+tThYxoWiR9K7+2
+lAp7Bd4WnUikxYpDoQ3aIuUgrbXkxttBC0Svb9VMs5SCo7Ojz1WumlRTz1x
LnCwBMZvPhpX56ZDdJL69IEfSwCLPAiveUmHXnXarw7PYPgv0pxrxJge6VsO
jBd9IMDzeXCopxk9KlWiqqS6T0CqQYPU0Yf06MZPOfEnpwmY3Tqs4elOjxKs
z6xPMhNgfZXV9kghPdrm0jfm/FAMVnyZrR6iDOioQfLrMf8isHDdDjg0zYBO
ti/+/VpbAK7XlUmDqwxIrvTbm/PpBRCrfC/tPT0jsutI9ZP2L4Dfwy1VA3sY
0Wc5HV29mwVgDrGr7ucZ0fG8PDejpXwwXdUz6c9hRA0N1HUqUvlwwypk97vX
TIhFd5nZOy4XNrqYG/58ZEK654Vo2LxzIUj3udO1ECZ0bfBKRvSLXGiWujxw
MIsJFXJsWMvp58LJsR0RvSNMyKSUfSls+TtIm3uLK55iRkIuKffK9L7D4nW3
/X0cLKihzrhuii0HPtWv9OjsZEGpT5ljy9a+wQH1ux6Z+1jQSC93TNboN7DY
pT3zDrGgyFeTdj34G3R106Yp2rIgR8E4ZW27b1B8yVnR7ee/frazt+7+zgb3
83ZHlUJZEVPM9Y3B1n93uE7GOjmBFf1aIz/gKc2CUJ2BLxLfWVFyScu+q+lZ
kK5+ik6whRUZumx1HPyYBZ3Swo1/GdmQ7e+cGYpOFkjRFJtXPmZD1MVq4p4l
mVCZSf/pyhl2NHMo/NLV8gxoOpBf2nKZHZXVHjeW/5YB3fE2S2cs2FHycQUN
/tgMmP3SYXL8NTuS5aDc3uWWAfwfEiRI39mRqienC8PZDLhjdrZgWowDNZbU
4yPd6UDH5z/qvM6BEj9WFlygTgeeWScOHkZOFKS/LGYymQai1ZYq0bycaPxD
YNu+ljQ47qjmWi3Lic7ecE7ljUyD5yO/JLhvciKPiFxGac00mM1WvBNZxono
1i1eSb9PhWmZ8Uem2lzIskOPyU0mBRYF+lyS9LiQeLhThtGOFNigawleNORC
rZGVa4epUoBloKDE9SYXqnm9NqHRngz7fL24k+y5UOBjkd833yaD6YZKxkIi
FxLd/bk5YSgJOmpd5sic3Gg2onE5KSUR/I6HaV3k50ZeW2QBcnAiGGZkh0js
5kZLY2Ohti6J0BDw62SlDDcaJq9f8LmeCJW3NYIZtbmRTEr6QidHIuSs/NV4
78iNLrZyZd19mgABpCe+XhPcCCs09xWcjwejgA/jN+e4Ec27C4QEigce5ih1
hRVu5HCY6nqkXDx4zjaPNdHxoDmyl3krazy45smr8YjwIPoJpTbuqjiwOzc1
4mfMg34wRqJJFAcXHUxVQsp40FNrG35TjVgICONjWPnBg7rdCxTWFGOhnaj8
eaGJB/GJX+L8Ih4LxnT7n7L3/ePxlzYupli4/HEh69UyD2IbVYoKaowBk6/k
g3eleVFkHF2Z2O0YuFUWK6vsxYuKjA3SMj5GgzXrlFiDCR96eCXQy505Cqae
59Ox3uZDGjFXXxhuRYLVuPuozl0+5H53SEZiIRLuVkglljzmQ0fZndLHeiPB
1Nni4DcPPhRW9UZwMD0SriwMQWgxHzo/azDsZxIJ2j2d16zEdqCtz0eDKrIj
YG9SZQDD5A6k9HxNWuZNOBh9zc2rmduBLFxnFw3sw+G9b2Kv58oONK3/6skr
m3BYdPAUE6DnR/tSqe+t/fPRNXrGqftE+NGYvAmnoXI42M3+rjhlzI8CAl1f
7m/+CvUH6Zfel/Kj+yN383RTv4BDruYFzs8CKLtGsmjNLxQUrzXN3YwQQMwo
ZkbUNRQmt695pscJIB2jGc+Lz0LBRMfux/lsATTLZrbUfyUUjrXHg1+9ADp8
vZHz+d5QWF1glxWiEkSKtvVBOPkz2Ml30pHuCKLdtpvFBo0h8DDWOkdFXgj1
173xVlcMhv7Gnf4cKkKoaLkgY0w8GM6u1TweVRNCv+XL9UMFgkFGT/pgwGkh
ZBZW3Cq+GQQjf34nLd0RQievNvVkVAfBJfWbEdmhQmh1sTc683YQHG8776HI
IoxeqFo1M34OBDaaw6Zyv4URW2Loy1mpAMh7RnthdEoY9asffLd7TwBYzDRq
fpkXRp9f6dw34g0A3GkpwUG1EyUzdEd3bfrD47SQ8RnhnWj8UAabRqs/dF/b
skkx2IlyefNPvnT2h/jvFQ6yhTvRxWgn4nmfH2g9MPKX8d2FerR5ZLhSfUEw
b/d/WuJ7kJL+6KGCXG/wsXXzVujYi6Ion46nNnuBoeu5A2E5IkjRecMsbsID
ZK6SL0a/FEVGbMWZ/jbvoX2UOdL3ohgyavZ7YbvDDRpMf2vw7CWhIBKLXJa0
KwzRxa36i5HQ4Es93VhRV1iMtUwTkiShY5o+pWFCriA0NbVL9AAJ1Z8JKA1m
dgXzx/Mr8qoktCYrGlEx4QLrb7dTzl4iodfONyUnE11AMkZI2N2LhDg+iBic
V3CBozo9TWy+JFSh0HmqRsoF9CZC330KIKHDSrJIR9QFHh0QWQoMI6H/0u/t
PcvjAoXfJJtik0hoaoTB0G2RDIaVSq7lVSS0LULak59HhjuWS2qnaknIcq9K
9qNMMtizfF+obSChoxXbuw4kkSFM/9jt1p8k9MyR61paKBnG25Ha8C8SyqwU
1h5yJsO6Pc3CnTESKuqt2PfdngzsO8sTJiZJ6NIe/qpPj8igeFNH4M8fErri
cEr5nBkZtKiZG54skVD2ZepNpWtkuBxVQ15dJSHKINvzXRfJYKXloer4l4SE
qXtjmPTJ8H/5Kvr/fPV/AF0he+I=
       "]]},
     Annotation[#, "Charting`Private`Tag$4506#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.898192035744974*^9, 3.898192269563216*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"a1ae8954-fbf6-4da3-af68-6b671bd3498f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Animaci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.898192229785335*^9, 
  3.898192231543243*^9}},ExpressionUUID->"eea862ba-efbb-459a-9164-\
61060f5ee9b8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"fp", "[", 
       RowBox[{"x", "+", 
        RowBox[{"c", " ", "t"}]}], " ", "]"}], "+", 
      RowBox[{"fm", "[", 
       RowBox[{"x", "-", 
        RowBox[{"c", " ", "t"}]}], " ", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "->", " ", 
      RowBox[{"{", 
       RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "25"}], ",", "25"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.898178973693942*^9, 3.89817897918531*^9}, {
  3.898179032473754*^9, 3.8981790330343733`*^9}, {3.8981790703170977`*^9, 
  3.898179071723257*^9}, {3.8981794463865957`*^9, 3.898179468000723*^9}, {
  3.8981920043821383`*^9, 3.898192023632134*^9}, {3.898192069391204*^9, 
  3.898192133857958*^9}, {3.898192285099327*^9, 3.89819231095504*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"abbf03f6-0fda-49ec-a27a-f6ce4665a2d5"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -6.1370134353637695`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -25, 25}}, Typeset`size$$ = {
    468., {148., 153.5672601163118}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -25}, 
      "ControllerVariables" :> {}, 
      "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`fp[$CellContext`x + $CellContext`c $CellContext`t$$] + \
$CellContext`fm[$CellContext`x - $CellContext`c $CellContext`t$$], \
{$CellContext`x, 0, 20}, PlotRange -> {{0, 20}, {0, 2.5}}, 
        Axes -> {True, False}], 
      "Specifications" :> {{$CellContext`t$$, -25, 25, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {174.861328125, 182.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.898178979956296*^9, 3.898179034211294*^9, {3.898179067188308*^9, 
   3.898179072260508*^9}, {3.8981794391495953`*^9, 3.898179468590567*^9}, 
   3.89819203740875*^9, {3.8981920705481167`*^9, 3.898192134749393*^9}, {
   3.8981922877394743`*^9, 3.898192311213628*^9}},
 CellLabel->"Out[12]=",ExpressionUUID->"5ef14612-0c45-4c0a-bb1d-ce2104b024bd"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cuerda ambos extremos fijos (Dirichlet)", "Section",
 CellChangeTimes->{{3.898192335899827*^9, 
  3.898192353089321*^9}},ExpressionUUID->"2869d40a-0b8a-4da8-973f-\
5cc0315b0e04"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8981924225230722`*^9, 3.898192423056665*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"950a4713-1227-431a-96f1-234e4232ea21"],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923783135757`*^9, 
  3.898192384557886*^9}},ExpressionUUID->"b8677823-dd2e-48ef-8f85-\
54ed01948e67"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "[", 
   RowBox[{"x_", ",", "t_"}], "]"}], ":=", 
  RowBox[{"Ap", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "L"}], " ", "p", "  ", "x"}], "]"}], 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Pi]", "/", "L"}], " ", "p", "  ", "c", " ", "t"}], "+", 
     "\[Delta]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, {
  3.898181794691731*^9, 3.898181819230462*^9}, {3.898181907221609*^9, 
  3.898181919489126*^9}, {3.898181974293263*^9, 3.898181976865163*^9}, {
  3.898182844477331*^9, 3.898182859860426*^9}, {3.898192393818509*^9, 
  3.898192406681209*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e668ce4d-853d-4371-8ba9-5a37f6da7c8f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Animaci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923879533167`*^9, 
  3.898192417000469*^9}},ExpressionUUID->"91ccfbf0-8b30-46b1-a5b4-\
b48e8bc0443c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ap", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", " ", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, {
   3.898180645557987*^9, 3.898180661868188*^9}, {3.898181852865807*^9, 
   3.898181875930192*^9}, {3.898181923529931*^9, 3.898181928093925*^9}, {
   3.898182064471676*^9, 3.8981820671620417`*^9}, {3.8981924289969997`*^9, 
   3.898192457848226*^9}, 3.898192503145162*^9, {3.898192563944908*^9, 
   3.898192564448118*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"8a08043a-8d2c-4138-b46d-df5cf857daea"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 6.484752655029297, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = {
    468., {146., 151.47858336568055`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, 
      "ControllerVariables" :> {}, 
      "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`\[Phi][$CellContext`x, $CellContext`t$$], \
{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-2, 2}}], 
      "Specifications" :> {{$CellContext`t$$, -10, 10, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {172.861328125, 180.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.898192565674349*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"14770923-c700-433e-8768-719f8783bc27"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cuerda ambos extremos libres (Neumann)", "Section",
 CellChangeTimes->{{3.898192335899827*^9, 3.898192353089321*^9}, {
  3.898192529882348*^9, 
  3.898192533303226*^9}},ExpressionUUID->"74040bef-70f6-48d5-8592-\
d30ff61ae8c7"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.898192602542685*^9, 3.8981926030939083`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"d779f2d7-dd0d-4aaa-af27-39c2a5c8f995"],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923783135757`*^9, 
  3.898192384557886*^9}},ExpressionUUID->"2231e42c-a352-4fc4-80da-\
43d9da3670d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "[", 
   RowBox[{"x_", ",", "t_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "x"}], "]"}], 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Pi]", "/", "L"}], " ", "p", " ", "c", " ", "t"}], "+", 
     "\[Delta]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, {
  3.898180692713339*^9, 3.898180716903131*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"ec4c3719-a53b-425e-9ec5-7340734b1178"]
}, Closed]],

Cell[CellGroupData[{

Cell["Animaci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.898192582349769*^9, 
  3.898192586398913*^9}},ExpressionUUID->"24690a23-28c1-4ff7-b6d1-\
890864e10f7a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p", "=", "3"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", " ", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, {
  3.898180645557987*^9, 3.898180661868188*^9}, {3.89818072858652*^9, 
  3.8981807476452303`*^9}, {3.898192593558537*^9, 3.898192593991366*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"f5fd9de1-9fdc-4681-89c8-159ff2ee5966"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -22.420909881591797`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -30, 30}}, Typeset`size$$ = {
    468., {142., 148.77549629860283`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -30}, 
      "ControllerVariables" :> {}, 
      "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`\[Phi][$CellContext`x, $CellContext`t$$], \
{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-1, 1}}], 
      "Specifications" :> {{$CellContext`t$$, -30, 30, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {168.861328125, 176.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.898192598062817*^9, 3.898192609214459*^9}},
 CellLabel->"Out[6]=",ExpressionUUID->"e51222f8-2608-425f-a2aa-bac4b48f5b5f"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cuerda un extremos libre (Neumann) y uno fijo (Dirichlet)", "Section",
 CellChangeTimes->{{3.898192335899827*^9, 3.898192353089321*^9}, {
  3.898192529882348*^9, 3.898192533303226*^9}, {3.898192654197616*^9, 
  3.898192661629095*^9}},ExpressionUUID->"1a313421-9826-4125-9eb9-\
cefa598ab583"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8981926331104393`*^9, 3.898192633629643*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"4cd22503-f7f7-479b-9990-b5fe187e0c5c"],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923783135757`*^9, 
  3.898192384557886*^9}},ExpressionUUID->"22b73a1c-5df2-4d86-bc08-\
cdc4753541b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "[", 
   RowBox[{"x_", ",", "t_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "L"}], " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", 
       RowBox[{"1", "/", "2"}]}], ")"}], " ", "x"}], "]"}], 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Pi]", "/", "L"}], " ", 
      RowBox[{"(", 
       RowBox[{"p", "+", 
        RowBox[{"1", "/", "2"}]}], ")"}], " ", "c", " ", "t"}], "+", 
     "\[Delta]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, {
  3.898180692713339*^9, 3.898180716903131*^9}, {3.898180997503902*^9, 
  3.898181015732379*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"5ce7ac40-671c-4b61-8f60-90f5b856b11c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923783135757`*^9, 
  3.898192384557886*^9}},ExpressionUUID->"307170b2-cd5c-4604-a882-\
3adeea0ba1a3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p", "=", "2"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", " ", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, {
  3.898180645557987*^9, 3.898180661868188*^9}, {3.89818072858652*^9, 
  3.8981807476452303`*^9}, {3.898181020818433*^9, 3.8981810334052057`*^9}, {
  3.898181189573732*^9, 3.898181198365382*^9}, {3.898192672733438*^9, 
  3.898192678045958*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"825c216f-7518-433e-bba3-cc9d768fecab"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 18.302947998046875`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -30, 30}}, Typeset`size$$ = {
    468., {142., 148.77549629860283`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -30}, 
      "ControllerVariables" :> {}, 
      "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`\[Phi][$CellContext`x, $CellContext`t$$], \
{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-1, 1}}], 
      "Specifications" :> {{$CellContext`t$$, -30, 30, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {168.861328125, 176.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.898192678824436*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"73d31706-7b2a-4b96-b36f-2d07eacc745e"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n general y timbre", "Section",
 CellChangeTimes->{{3.898192701976215*^9, 
  3.898192714415106*^9}},ExpressionUUID->"0da64a8f-8f6a-4f95-81e7-\
6a97a48124fc"],

Cell["\<\
Analicemos el caso con ambos extremos fijos, se puede repetir casi sin \
cambios para los otros dos casos\
\>", "Text",
 CellChangeTimes->{{3.89819273520498*^9, 
  3.898192754467928*^9}},ExpressionUUID->"e2c7942d-5677-44f7-8c45-\
d32622561de0"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8981924225230722`*^9, 3.898192423056665*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"04afbd4b-010b-44c0-90e2-b7be69120ef7"],

Cell[CellGroupData[{

Cell["Soluci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923783135757`*^9, 
  3.898192384557886*^9}},ExpressionUUID->"7ebffa90-6cf8-4be7-b6f0-\
fbf59bd1088a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "[", 
   RowBox[{"x_", ",", "t_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"A", "[", "p", "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"\[Pi]", "/", "L"}], " ", "p", "  ", "x"}], "]"}], 
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Pi]", "/", "L"}], " ", "p", "  ", "c", " ", "t"}], "+", 
       "\[Delta]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"p", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.89818044234851*^9, 3.898180506464436*^9}, {
  3.898181794691731*^9, 3.898181819230462*^9}, {3.898181907221609*^9, 
  3.898181919489126*^9}, {3.898181974293263*^9, 3.898181976865163*^9}, {
  3.898182844477331*^9, 3.898182859860426*^9}, {3.898192393818509*^9, 
  3.898192406681209*^9}, {3.898192766444613*^9, 3.898192780020356*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"27355c6d-593b-4261-9737-666e1860be82"]
}, Closed]],

Cell[CellGroupData[{

Cell["Animaci\[OAcute]n", "Subsection",
 CellChangeTimes->{{3.8981923879533167`*^9, 
  3.898192417000469*^9}},ExpressionUUID->"ed0a74de-596f-4a04-8ad1-\
b874ed6d31a1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", "2", "]"}], "=", 
   RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", "3", "]"}], "=", 
   RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", "4", "]"}], "=", 
   RowBox[{"1", "/", "4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"A", "[", "5", "]"}], "=", 
    RowBox[{"1", "/", "5"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", " ", 
      RowBox[{"{", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8981805142923937`*^9, 3.898180537465892*^9}, {
   3.898180645557987*^9, 3.898180661868188*^9}, {3.898181852865807*^9, 
   3.898181875930192*^9}, {3.898181923529931*^9, 3.898181928093925*^9}, {
   3.898182064471676*^9, 3.8981820671620417`*^9}, {3.8981924289969997`*^9, 
   3.898192457848226*^9}, 3.898192503145162*^9, {3.898192563944908*^9, 
   3.898192564448118*^9}, {3.898192802174564*^9, 3.898192863396657*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"9772e236-e7c7-4796-8975-f302308dd7d2"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = -3.844005584716797, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], -10, 10}}, Typeset`size$$ = {
    468., {146., 151.47858336568055`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = -10}, 
      "ControllerVariables" :> {}, 
      "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`\[Phi][$CellContext`x, $CellContext`t$$], \
{$CellContext`x, 0, $CellContext`L}, PlotRange -> {All, {-2, 2}}], 
      "Specifications" :> {{$CellContext`t$$, -10, 10, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{827., {172.861328125, 180.138671875}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.898192565674349*^9, {3.898192851467334*^9, 3.8981928637048683`*^9}},
 CellLabel->"Out[28]=",ExpressionUUID->"be9ac52e-6921-463c-8143-5c66b280cf70"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Closed]]
},
WindowSize->{1200, 627},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.3 Inherited,
FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4725cb30-3148-4091-8f43-a3d45709ef42"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 175, 3, 127, "Title",ExpressionUUID->"3b52c642-4207-4cdf-bcb3-2f6a2e20aca2"],
Cell[CellGroupData[{
Cell[780, 29, 162, 3, 87, "Section",ExpressionUUID->"6408f118-07fb-4e89-bc3b-b3700fa14a9c"],
Cell[945, 34, 156, 3, 60, "Input",ExpressionUUID->"933505bf-9343-4c96-83d4-c02490946a66"],
Cell[CellGroupData[{
Cell[1126, 41, 266, 4, 70, "Subsection",ExpressionUUID->"8f3381a1-e334-4ec0-8b8f-fd462b83d0f0"],
Cell[1395, 47, 197, 3, 45, "Text",ExpressionUUID->"fcdefcc8-7771-458d-836e-557c6d7fcef0"],
Cell[CellGroupData[{
Cell[1617, 54, 779, 20, 112, "Input",ExpressionUUID->"0b822ae7-398a-485f-9c1a-0cabac4e7c3f"],
Cell[2399, 76, 11724, 211, 314, "Output",ExpressionUUID->"2409da52-2ca7-4077-bcd4-d75592298c18"]
}, Open  ]],
Cell[14138, 290, 219, 4, 45, "Text",ExpressionUUID->"f15db67b-3409-4d51-9df4-639aaaf4e8fc"],
Cell[CellGroupData[{
Cell[14382, 298, 1100, 30, 115, "Input",ExpressionUUID->"03ff5230-00eb-43a0-8c6f-7afc3ca92899"],
Cell[15485, 330, 2225, 43, 385, "Output",ExpressionUUID->"aa4c2849-e6fa-45d4-8b58-010e2cf61fde"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[17759, 379, 171, 3, 48, "Subsection",ExpressionUUID->"38fd7ad5-6523-4fd1-9971-38a68ad88be4"],
Cell[17933, 384, 222, 3, 45, "Text",ExpressionUUID->"23b0d7be-f17f-4ccc-82c1-463a84f33f03"],
Cell[CellGroupData[{
Cell[18180, 391, 1052, 28, 169, "Input",ExpressionUUID->"f5f4597d-d33a-4dc1-ac68-0770b8ad7943"],
Cell[19235, 421, 19556, 339, 320, "Output",ExpressionUUID->"8fdde79b-7cb2-4938-aa07-ca700dfe15bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38828, 765, 1244, 32, 115, "Input",ExpressionUUID->"f813551b-a717-4883-80c7-c49eecca6d24"],
Cell[40075, 799, 2112, 41, 367, "Output",ExpressionUUID->"a5146ef2-3316-4e18-8009-2db77880d1ba"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42236, 846, 172, 3, 48, "Subsection",ExpressionUUID->"eba8f49a-e87f-4b5a-85c3-518eb74adaad"],
Cell[CellGroupData[{
Cell[42433, 853, 1227, 34, 147, "Input",ExpressionUUID->"ada0eeb3-31b6-419e-b2e6-4e79efecd8a0"],
Cell[43663, 889, 2268, 43, 385, "Output",ExpressionUUID->"9b46934c-9ea3-4f91-90a9-051cd5169129"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[45992, 939, 234, 4, 67, "Section",ExpressionUUID->"d8d4ceb2-775e-4b2c-9a07-91203b1cb705"],
Cell[46229, 945, 179, 2, 60, "Input",ExpressionUUID->"8e51095c-9496-40dc-b1f3-9affa349b1f7"],
Cell[CellGroupData[{
Cell[46433, 951, 209, 3, 70, "Subsection",ExpressionUUID->"fa480deb-86bf-4685-876e-bef381c186b5"],
Cell[CellGroupData[{
Cell[46667, 958, 829, 21, 112, "Input",ExpressionUUID->"7f77ffcb-aba2-4fe7-8bbd-e75510a72259"],
Cell[47499, 981, 11625, 210, 314, "Output",ExpressionUUID->"855ed7b1-986b-4073-a0f4-10103ad78ef2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59161, 1196, 888, 21, 112, "Input",ExpressionUUID->"badeb665-1b7d-47ba-bc02-c071e3bf6be6"],
Cell[60052, 1219, 11617, 210, 310, "Output",ExpressionUUID->"2e6b4832-feeb-46f0-ac22-0b945bf66557"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[71718, 1435, 165, 3, 48, "Subsection",ExpressionUUID->"da922d42-93fc-4b70-a9ce-b282b65993b3"],
Cell[CellGroupData[{
Cell[71908, 1442, 1336, 35, 147, "Input",ExpressionUUID->"cf2a2431-90a5-4c83-a072-3a8bb305f782"],
Cell[73247, 1479, 345, 5, 43, "Output",ExpressionUUID->"40ae767d-9515-4926-9884-e0c00e809657"],
Cell[73595, 1486, 2356, 45, 361, "Output",ExpressionUUID->"5f2282d1-439e-4191-9111-a278b56b1b11"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[76012, 1538, 182, 3, 67, "Section",ExpressionUUID->"3ecbab6f-3c69-4080-9e75-a3c44ffbd2a9"],
Cell[76197, 1543, 179, 2, 60, "Input",ExpressionUUID->"c01d6a4e-ebbe-4763-b976-8a59c89818e2"],
Cell[CellGroupData[{
Cell[76401, 1549, 209, 3, 70, "Subsection",ExpressionUUID->"0b562953-4f64-4d2b-969d-e8ea6b7ddf98"],
Cell[CellGroupData[{
Cell[76635, 1556, 829, 21, 112, "Input",ExpressionUUID->"f6a80da5-3470-4e41-b056-29dc2551d4f0"],
Cell[77467, 1579, 11646, 210, 314, "Output",ExpressionUUID->"290b01d4-18e2-45f4-8d41-2dbdbca178c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89150, 1794, 896, 21, 112, "Input",ExpressionUUID->"3800b10b-2c97-436f-a271-4ff3d597907a"],
Cell[90049, 1817, 11647, 210, 314, "Output",ExpressionUUID->"a1ae8954-fbf6-4da3-af68-6b671bd3498f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[101745, 2033, 165, 3, 48, "Subsection",ExpressionUUID->"eea862ba-efbb-459a-9164-61060f5ee9b8"],
Cell[CellGroupData[{
Cell[101935, 2040, 1379, 36, 147, "Input",ExpressionUUID->"abbf03f6-0fda-49ec-a27a-f6ce4665a2d5"],
Cell[103317, 2078, 2407, 46, 381, "Output",ExpressionUUID->"5ef14612-0c45-4c0a-bb1d-ce2104b024bd"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[105785, 2131, 184, 3, 67, "Section",ExpressionUUID->"2869d40a-0b8a-4da8-973f-5cc0315b0e04"],
Cell[105972, 2136, 177, 2, 60, "Input",ExpressionUUID->"950a4713-1227-431a-96f1-234e4232ea21"],
Cell[CellGroupData[{
Cell[106174, 2142, 166, 3, 70, "Subsection",ExpressionUUID->"b8677823-dd2e-48ef-8f85-54ed01948e67"],
Cell[106343, 2147, 767, 18, 64, "Input",ExpressionUUID->"e668ce4d-853d-4371-8ba9-5a37f6da7c8f"]
}, Closed]],
Cell[CellGroupData[{
Cell[107147, 2170, 167, 3, 48, "Subsection",ExpressionUUID->"91ccfbf0-8b30-46b1-a5b4-b48e8bc0443c"],
Cell[CellGroupData[{
Cell[107339, 2177, 1400, 36, 220, "Input",ExpressionUUID->"8a08043a-8d2c-4138-b46d-df5cf857daea"],
Cell[108742, 2215, 2053, 40, 377, "Output",ExpressionUUID->"14770923-c700-433e-8768-719f8783bc27"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[110856, 2262, 232, 4, 67, "Section",ExpressionUUID->"74040bef-70f6-48d5-8592-d30ff61ae8c7"],
Cell[111091, 2268, 177, 2, 60, "Input",ExpressionUUID->"d779f2d7-dd0d-4aaa-af27-39c2a5c8f995"],
Cell[CellGroupData[{
Cell[111293, 2274, 166, 3, 70, "Subsection",ExpressionUUID->"2231e42c-a352-4fc4-80da-43d9da3670d9"],
Cell[111462, 2279, 561, 15, 64, "Input",ExpressionUUID->"ec4c3719-a53b-425e-9ec5-7340734b1178"]
}, Closed]],
Cell[CellGroupData[{
Cell[112060, 2299, 165, 3, 48, "Subsection",ExpressionUUID->"24690a23-28c1-4ff7-b6d1-890864e10f7a"],
Cell[CellGroupData[{
Cell[112250, 2306, 1177, 32, 194, "Input",ExpressionUUID->"f5fd9de1-9fdc-4681-89c8-159ff2ee5966"],
Cell[113430, 2340, 2079, 40, 369, "Output",ExpressionUUID->"e51222f8-2608-425f-a2aa-bac4b48f5b5f"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[115570, 2387, 297, 4, 67, "Section",ExpressionUUID->"1a313421-9826-4125-9eb9-cefa598ab583"],
Cell[115870, 2393, 176, 2, 60, "Input",ExpressionUUID->"4cd22503-f7f7-479b-9990-b5fe187e0c5c"],
Cell[CellGroupData[{
Cell[116071, 2399, 166, 3, 70, "Subsection",ExpressionUUID->"22b73a1c-5df2-4d86-bc08-cdc4753541b0"],
Cell[116240, 2404, 775, 22, 64, "Input",ExpressionUUID->"5ce7ac40-671c-4b61-8f60-90f5b856b11c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117052, 2431, 166, 3, 70, "Subsection",ExpressionUUID->"307170b2-cd5c-4604-a882-3adeea0ba1a3"],
Cell[CellGroupData[{
Cell[117243, 2438, 1277, 34, 194, "Input",ExpressionUUID->"825c216f-7518-433e-bba3-cc9d768fecab"],
Cell[118523, 2474, 2054, 40, 369, "Output",ExpressionUUID->"73d31706-7b2a-4b96-b36f-2d07eacc745e"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[120638, 2521, 178, 3, 67, "Section",ExpressionUUID->"0da64a8f-8f6a-4f95-81e7-6a97a48124fc"],
Cell[120819, 2526, 254, 6, 45, "Text",ExpressionUUID->"e2c7942d-5677-44f7-8c45-d32622561de0"],
Cell[121076, 2534, 177, 2, 60, "Input",ExpressionUUID->"04afbd4b-010b-44c0-90e2-b7be69120ef7"],
Cell[CellGroupData[{
Cell[121278, 2540, 166, 3, 70, "Subsection",ExpressionUUID->"7ebffa90-6cf8-4be7-b6f0-fbf59bd1088a"],
Cell[121447, 2545, 976, 23, 64, "Input",ExpressionUUID->"27355c6d-593b-4261-9737-666e1860be82"]
}, Closed]],
Cell[CellGroupData[{
Cell[122460, 2573, 167, 3, 48, "Subsection",ExpressionUUID->"ed0a74de-596f-4a04-8ad1-b874ed6d31a1"],
Cell[CellGroupData[{
Cell[122652, 2580, 2000, 55, 352, "Input",ExpressionUUID->"9772e236-e7c7-4796-8975-f302308dd7d2"],
Cell[124655, 2637, 2105, 41, 377, "Output",ExpressionUUID->"be9ac52e-6921-463c-8143-5c66b280cf70"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Closed]]
}
]
*)