(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     56603,       1110]
NotebookOptionsPosition[     55707,       1076]
NotebookOutlinePosition[     56067,       1092]
CellTagsIndexPosition[     56024,       1089]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Potencial", " ", "de", " ", "Woods"}], "-", "Saxon"}], " ", 
    "*)"}], "Section",
   FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", "x_", "]"}], ":=", 
   RowBox[{"-", 
    FractionBox["U", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "-", "a"}], ")"}], "2"]], "+", "1"}]]}]}], ";", 
  RowBox[{"U", "=", "7."}], ";", 
  RowBox[{"a", "=", "2."}], ";"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"V", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.01", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.523187052083769*^9, 3.523187100368927*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3c8V/8Xx+31sdfH/NgyG6JCX/eQykqykxSi7K2ojCiFZJRRSCUVkiiJ
zx1EiZK9iexIRpL9+/z+uo/n433ufb/OeZ37vufKuPhZujHQ0dG9YaSj+//1
x3p//kZ4LHIJS5G/UEvg718e9DtVE490bxy5wPCXwBteNUsMxiQjWl+9UTmV
GjzXedekbmM6MlrmQN1Oq8ELXP6hV4oeIRoGj4R0fGtxq4/vLXUOlCDqR7fj
H/9XhzcsnmBu+/wKmXtFYlQNr8Mf8iz3v3lZilQ8/GBt+q4OFzp4O8kMKUP2
XM5qsNtbj9PdQ5cuu7xFzgUeGUA1PuLdRyhY3/Nq5NABpt6S4w04/2nPjIIA
KtLD7nBWK70BNwuq8A/UQRG9jKbpc4MNeO1DczmOLxiSy8pg8cHnM253BanL
XiEQ47dbVx+kN+IGnX7KX8TqkKTJ8CMv2L/ionEtSyrOjYjwezO/E3qtuM7Z
3AaG5kbE5Ntwn0xAK+6g7Z3Tp9OE8FYdPuuR34rfn2E9Gi/4BSHLe+mf5WzD
xSyQ+9OfviJv8x9ObY204UmcdtLWGS2IE6N55838DpyyinIQX1sQuV2GQ4Lf
O/CScfllVaZWhNizViwj1ok3Y4ufGQNakU49lwE8pRPnDkgKKjdpQ1ijR1Yk
47rwO531H/m32hFcXe9td3wPLl2r9jpCswMZkFqNL/3ag5eWpD346dmBzMcn
B/Hz9eItcc7+td0dCOPlI1ZBWb04r86maODrTuTq0e2Kt6V9eHKupk/ruW7k
k9OnK1mrtC3PPxFIbupDOjCD2Cfrw3ildCh+dqsPMcxo01eXG8GHe4289uzp
R2xK7x5cMRnBd5rN1bal9yOGx3iUzB6M4I27tQOFXAaQ3n+qput6P3CmteaW
+/8GEarqreuhqaP4wSObH9tSh5FXHQTnkMcE3vJ4QkK3eBh50lbbFZo1gbtu
fwt8Uj+MOHvHXjr+eQKPr3xMCf43jOzrfzSEK0/ivSpGoUJOI0ixuMSO+78m
8VCeNAV75R/IinJyHjl6Gn/VoxQ7iI8inlUHCxm7ZnGTEO1DH3tGkekPxxe1
OH/hE3wmDK8WRpGSqWObDw1+4RRTr6gouTGkLrDTUqz0F56IvrwiFzeGqAxr
BOXdnsMvPNYI8TAfRxaPebGeVJ7Hpb0Pui8PTCC3BKqKLOkX8ZTt40Zca9PI
Iv35OzMLy7gFY/inl6fnkbCB/pF86W3cpOUm/aPYJaT4uQ47Vs1I6DGHkkxT
lxDuJ0u2+BdGQkPHVWj54RKS1uCa+maQkRDP/0/ZuHoJYZ/vPx6+zUjMXly0
WFhYQqihu875GTARSVKOefpn/iATaQNTY/VMRJvvLuSH9jLSkzVLp1XLTHx8
ImGceHQZqXlnFxXeykxU9bBb7bNZRhYDbniXDjMTTwzG3OP9l5GXXXy7fm0x
E8HCWUkaz5aRTukjU890WAhhjGHomuBfJC7jQwjPKxbiJFfXFbnffxG1JMFW
qQRWwvKHbfXtjb/IqZQN4M5kJUzeda+usK8g6e7xHjP5rISOc2/oF/kVJKXg
zcsAjJUQezvgH+KwgvQnWiUVz7MSA46j5z7VryA/EnbWtZxgI84Uz5t5Zf9D
lL4EqN1gYSfsowMSOl/8QxzurTJo8bETFraLn5F3/5DVHIf/WsXZCaD7c0Sw
7R+yoamAt+5mJ6StVwBlXUXELjOpLJ5kJ36sb2ryBK0iEQ+3ywufsxNupiTJ
cuM1xCmgLKFtPwdxTWAyYZ/tGvLsP2ffNISDyOuvXXvvsob0dJjcOHSUgxjw
Cu8hLq8ha4sGJgG2HIR14nRa88s1xGSBvYshmIMw/PqJ4yffOhLy9mfLehEH
4XLvSZgPZR3R711oLSnjIKJOR07Nq6wjhejciMV7DoL6a9/HlUPriHe06w6X
jxyEJndBNHPoOvKlI5T8/jsHIX889p903zrSHDezez8PiTAgnz2fP7GO7Iuv
cOoTJBFnv+t27VhaR3axl8V4i5GIbL+l8p2cG4hFel/JaQUSIZjs4ndQbwNp
5gj1CdIhERr2ekO4yQbSU7W9PwkhERbSYscO2W0goSYLCxmGJCKxtFXFxH8D
CSxp2X3JnEQwtcKE3eMNxDHtYb2XM4mQzZKw6S/ZQJrYTP9uupEIcP73wal6
A0l4Vsob6Ukiriy8euTWsYH87DlFZx5EIv7wSZ0OYtlELnT4USmxJGLUcrM9
yXMTqV8/bZjwmETUCg5FSl/aREbbC1/bFpCIvC5Mtez6JqLVULLNVUgiHB2i
YjrzNpGcfykH4TWJ6HJm3CvRvYmwRHXtKcdIxBu5saGXY5vI5YH67MEaEpE6
XhePLG4iIjlWE0t1JOK4x40fLlxbiEv+bcGxRhLR4M+e+uLQFvLrHl9vWyeJ
KND4+Z/uiS3E1d1X07GHRFz/0zj9xWkLmb98yKe1j1bvS4n682FbiELRSmjk
dxIhrePzKzpuCxEeLD5aOUIittaPZQnc20LIB28sD4ySiOpInoV9pVvIiV73
qelJEnFffz67Ad1C4iYt1dumScQlxlYjh6YtZCpG7XjBDInQjEvNuzqxhYw/
jVbm/00i+I2DzHj+bCHF9bMjL+ZJxAKH9b88+m1kLFD+ovoiiShJErKok9hG
XqWP7v/3h+aXxd91G5VtxFDaxRX5SyI8+bufTe7fRpb2PPAKXCERRh3vrMIO
byNn/iVYpPwjETvSM7c5rLYRAQUN/uxVEsFiH1aUfXYbUR5MKE1dIxFjog52
O323Eb4XGaoh6zR/+nUYicvbSJmbdcyhDZo/OeKvTtzaRjL31bzbpHHEmQ2H
0fRtJC5ssOHJJok4LTPIEpK/jchVP6/Q2iIRB0fRMpaybWSqWDa6nMZiT3Od
MvFtxFjCVElym0T8c4/kUPm6jUjMyBQH0rhL6WxFdd82Isv+jPMNjd/8BJdj
U9vIT98+4xEapxXLcH9f3ka+iFJd12isvZ/+dCU9HexhN3PYprFS5oJGNBsd
CPwXrz5PY/LqCJsJDx08ehs6+IXGLA5tQ/zCdKAbzOd5j8bLVbVv+iXoIOGq
Q7sxjcfEy+Pz5ehgYuCE6E+a3o4rT876qNDByPMV3VAafxhM27dvDx1Ispvp
ztHyLdOL5dzeTwfG/x0nW9L48cPgH5/06MD3KX3LI1p9UujcKpMP04FDk6vb
IK2eUc42SSfNaPE+od1MNParPXxO1ooORm/pKIrQ6u8kt09n5iQdmPm8PkGm
+XNwXHjiynnaehqm10vzF8M1rdt86CA54P6b18u09+++Ze2OYDo4IxmXc4nW
D4bHk3Lbouhg4OzDhtYFEvFRuZhTKY4OHmS3cZyj9ZMRU2P41dt00MKlSIzN
kQiz98x2Svfp4Jq5YexrWj82p8nVX82jg49xEmmbtH618NXf215AB62/dwkd
mCIR1nJXeSLK6aCAqh50aYzm9+0/n9q/0AH/ra8ZigMkYvg8/z7ldjpwFKjR
n+glES4Gu/MjeumATcrxzN1uEuG+4hWlPEEHzeoDy9VtJMLXefRA5DYdbDVU
pR5oIBHzuvTPOpjpwT/j3oBXPYkIFJYSUuGkhxOpy/dv15KI0CaHhQ4RGpN+
hGRTaf2n1fZCRYMeaticXky+IhF0vPPkqAP00Oiun51UTCKu/eS60alHD0ag
xSz/gkTceGjsEmVKD6PjtjpitPMnib1GrOscPSycLNDWTCMRvGNDN1W96GHe
VGTc/A7tPME2/kYF0MPHVgl2+wQSkR50oF01gh72r4dRtWJIxMPBVwnRGfQw
YsQwSAmknY+VX1e7cujh7lXXky99SER+6sx5tXx6uCGgaKniQSKeH91h2F1K
D7XOO6t/nyERpa9zN9Qa6eG+VfDV52Ykgrh+26dngx4qRlp92mRpfu5eXuZi
ZIB3/Q8E3SRp51efY8Qhdga4Gcm8NEEmES271O6UCDHAUuqGQyUnrf69jaWx
OxngtGXSSsoyB0G/k+3P7rMMwFV5Jk6mjoO40eN3xd2dAWIbDug9p42aHDHd
TNneDNDJixlQ3nEQ/D0FQqxhDHAoeFu35wUHIXvt8P7BFAYIimmTj03iIAy6
roXf+sAACdapxag1B/Ex6icD/pkBrqgVauoc4yBMVC0T/nxjADVH8s6CwxyE
ZZRM9pkBBnBako8y20f7HqoQqNYyAwz3JS61CdO+txGbdD8UGSFlyHz2cwc7
8UHxUpxOPCM4Fl9DLhuyE0rmLjtXkhnh/KrkPgkddiIxxKyzPIMR1H0vGRfu
Yies66Tl1J8ywt7y1tHbYuzEmPNnTIpghN3W39Cg32wES47YX6a/jFCm/vto
zT02wkQAPffNmQn4efJEn3WwEiU6z0iJF5igea/Sjs1PrAS/S0qZkR8T2O/1
T9OvZiX6S93oaq8wgYzzAHrvESvhbc6d/SaDCU7ZzA96+7ASSbfOtGd9ZQJf
H3qVUXpWonWb3uCcNjMIpHy84UphIRryRKNfIszwX7jsSh4vC0Ho7yH+HmaG
IqP1yRYGFqIk5qzeLUtmUK70SmabZCbiWXGdEi9mOHW/a7anhJkw4Lmy918O
M+yQYGbjPshMvKH8lU9kYIGSlw/v2R5jIjL++8n6pokFdCwGFq5YMBAXygN8
myLZIPP7Hu7oM+u4/iObics32OC2pQVXnc46LnZH20ntNhvMDFX0k4TX8a+e
9Oa377OBZYGPVdGXNVxDNkX9+Fs2SJLJKNirs4ZvJJfOtv1kg+Tn+03fC6/i
yb6/Pfts2CFjYVyX1PMXr1T2OT+tygHUogdWjkmLuHxKxEVFDQ7gN0TF3/gt
4sn/7sS5HuCAoAihNZkTi/iFT2XPBg054JvHcDMILuKibv8mW09zAI4+Sk5+
sICH58VcqLrDAQnuxx3zS+bxg+T7HglLHGBKX7Zc9e0X/jyiKKxhlQM+bVzU
eJH5CxecoN5ipiPB877yymbnX/jsm+8vIjlJoBPX8Jr4M4vnWCr8DFIgAXde
d8RRyVl863app6MdCRrHky4Khf3Ea5g+ealXk4AI8GEWOj2Jc0873F+oIUFJ
j+t+C9r/hMPXuYa3DSToICVca1+ewBfvCSvqdZEgPaZ6suzOBC6/w33YfIEE
HK27ZHo+juM3jJlt/HdwQvLKb6UWgzHcNOmQXnkaJ+ARYoPVASN4ZmC398X7
nHC79fNO0aMj+Jit1wPdR5xwX4cxFJcYwa9Ipf37UMIJHO8U0icahvGS0h9l
HZ85Qb9IKz9bfhjnbY/e8XebEwoD3+tLtQ/inWSCV9ubCxo1D/0WPNGLvwmJ
7r4VyAWXyOKe7Py9+N12g9y+S1ww3LPlH9zeg1veqVe9cp0L5st2Py+268Gb
WZqO4Llc4OkYy//ArRtvWO68criVC1oVqtSFMzrxZ1YZh9K7uUDWRVjP8Ewn
fuO1PcfkIBcUXzlm92NHJ37Ypz/j5k8u+GDJ2Odd1YHXjg2XNTFyw2qc9pmS
sXac2j4zdWIfN1ASUiH8WBv+YM/LV48PcsOB/hPKARJtePgd39AlA24InDa8
3jLTimubLjDeO84No7zDdz8mtOIVtX8pPRe4ofTOreHolhb81Wt6G6cH3MDM
Hng0prcZf3yHXONJxwOJh6SsXHo/4y6epwoMWHnAk2/SAG59xmUOP0wQ4+aB
TmXRmzPan/G8NUXbRnEau+dE5uc04Dlu+2aU9/PA5eM1QmG+n/BMXRuhaR8e
8FD3iwzWrMfthbPWiGDaOh53JWq+DicvDHzPvEy739gg7tDLOjy94Fyh0S0e
CG81+G9aqQ5P4wtGnufzQFtu/51EpQ940mSqx/l+HtB61yxHZ1SDH6vtMkd+
8MD9OsSqh7sG58wR0yRP8wC2qxg70UXgCZaPtz7+5YErKs5LsucJvG6ox1iA
nRc2tZ947ZXG8VrjqaFAeV6YcKhZdN+oxmX3x7cO7eCFB+Y5Dow51fg1ebU6
E1VeUE2YzKrUq8b1t/1eyGrwQi/+LMX1ehVOvFkJakN4Yaa3qihE6j2OSrGy
a5zihXLhYynusRU4ZfkrW5ITL/DMLPJ076vAIxrvsv105oWb7VeHdv98i0OI
LNvjC7wQKdf+JMPqLV7b+B8rfygvvDcbZF/e/QZvCAlmXkzmhZKPPJECgmW4
sqkus/ldXlAIcFUU6XiNx0szMBdm8MIHpVL/sbuvcdOmO0wuubwgcujPnyaR
13izdBFjWxEvrLEsP32oXIq3N43Ql33kBWWzz/N2/cW45qPn9NyNvFCYssV9
PbAYvxvqR+/5lRcOoCrlTKRi3FZmk062g3a/drrxL6QI7wkVoUsd4YUAMmZO
//4FPiRzfCtgg1YvWZvv+8cLcGRFaOvrNo2/BJ/7facAz/sysKnMyAcp18D3
g24B7nzRc3OEnQ+kbfrC3qQ/xce+XN84QeaD2Cmxz64n8/Hpi9S1PRp8sOp6
Ls6O5zEuyHH/iLUWHzwsdK1l/PYI18u+mBp6gA8syoNvRtx5hKcSGirVenzQ
P77e1MX/CNdhf3HS0JQPzjhxdHXI5uEJ9+9V2p7jgy+alVx2X7LxCrUgprDz
fOB3Pu3eVddsfBizsHjgyQdSl9Jkt9Yf4JqjpKnv/nxQ/fvbp83dD/AB1Wtk
j6t8kOdRl5JYmIWro76hl9P5AE27c+xVTzpuf9ysNieLpid2ta4iJh2/NqLM
TWTzwefCZqmhXel4F/P4U6YnfJD4LJgSmXAPjzA/1Xn7FR/8DSAcS47fxb99
P6qZ18AHU6I2/RtsqfhagEJUbRMfvBM2Ko6uS8HlmRi/jDXzQYsDU+CfqBT8
khLmqtzJB10FW16ZG8m4dIBmWtkIH+S+umNE3ryDBzDILNat8QFfC2v3dZtE
nLMd+aqyxQfeLzhmk4cS8IInTs+T6flhP6PhhrtHAt5nmO3kyMYPbW1PnU/F
xuMGceSmJSF+KNi5J4jafBMfsNtXcFKUH4wyjwmGut3EQ5VsonEJfrhn3Sff
tBmHF31O3Z8gxw9VN0RE9uyNwwU5ufNl9/CDSrBSgmXpdbxkQC3ypiY/ZFnF
Bx2zuo4bvTR1mNvPD5c60ejKlVj8qvkt3io9fogdF8htNIzFJ5KZrp4w44fT
WzVyVr+v4ZVC6zZR5/khN8Pe7XN0FG45IbpnwpMfuMb+jkRpR+GzFQc4zXz5
4fU+YfHqsUhcxj60lhzCD1pt/sdnmiPw+PsLO19d44cjDcdyHNEruLwXL4fQ
DX6QfBuUekDvCo7p7hoPv8UP3h6G3pSay/jSgPeDI8n8kLRtEjb9JRx3lJpi
Hcrhh6KOZo6S9Uv4398so4ce8UOqe/p19sRLeDKhgL3I54c/LYJvNCmX8Hpn
1+CQIn74cWqlY+joRXxn/tAw53t+4Lx/ouLTqxB8W6nzvW4HPxhKGO48+yUQ
d6ngGDnfzQ/F6tGi1lcC8Y+HgO1uHz846JCar6sH4klORbazw/ww57KRmpwW
gEvcjV7K/sUPed+vv2nw8cejZN6JfZ7nhykhycJdO/zxsZJZ/eUlfrC8Ef7O
9YMfzR+75GNr/GAWmnD+d7kvrrOtrr7FIgARwUIfNEu88dxEV2sVDgG40hvN
1LPHG6cXy7psyyUA3y9uXwh654U3aDI1lggIgGr1OauQBk/czrPP/Yy0AOTu
+MA8ROeBB3feyCO0BaAoadXHst4N73Ghfpo9KABtrVMnddzccN35hTkREICZ
4aG2VyxuOAPp9H8BRwSALsK4TtX8HJ4Ce/tkrAQg6Fbq5Y9zLvifrxfozW0F
QNq6SyDsvgtufypXKfykADir2M0nHHXBpUPZL7adEQAJ1ypAnzrjJUXfBWK8
BUDhjMk3NOAszq8tpPvKTwCG7ULvjuw4i4d+NHHpDxSAzxfDhcKxM/h/I29L
94YJgEalhyTvEyf8i3DisbHrAjBw+rtfX5wjPh19IO7wQwFwc2ut/q/SHjdf
Sa12fiwAwioODyKM7fEy71+/rz4VAC+7669SB+zwK3aP7SuKBCAJSZshs9nh
3OqcKjsqBYDtgF1wR5ANHvTY3elQtQB4uwgwzvLb4D3kmtQzmADwfq/UySu3
xh8xhK5n1AnAbwVz5fpVK1yz5/sXtlYBaPya9NQq0xLPPKZDr9AhAC4f9C4+
PmSJb9be1dLvFoDSwseHT8+fwD++NM4NGxSAd0iTNJ35CfxkTLnfz2kBCP57
1OKsqAUesTOO/wuDIBTrZp763W2K/3gycmSKWRC8CyxvcNqZ4kdFD15mYqex
SVn96R4TnJdpYfQgjyAce2J359KIMf6k1+HtS3FBcGEI377PaYSzHX87/Zki
SJvHExJds4/i3nU8lAkZQTh4dtcT8Z1H8X2v6m5QlARhVtfsuo7dEbwhdqf9
HU1ByP1kfNoBN8TV124mFu0XBCLy74P604Z4qt8o8UlHEAJu/80Y3TyEn3LI
VKbTF4T2o5ejxQ8dwud2Maz7HxOEH7wTwtXD+rhAf2eOpbsg3EgIlZX4qIdP
JQU4l3kIgu/pYt1qRT2casClwO8jCI9/ThZ6xP+HuxcaFrcGCYLkhYn9VIeD
eGVYeZVFtCAw2VPbqiR18NvqxyNKYwXByWrxpc09bdxl5Kc+701aPqGX1e/x
aOMkY9nP35IEoW/OdK6FdAB3EknpNs8WhI2Xo21zMvvwvV/UHpQ8FAQ6RrvC
sy+1cLaoBifuJ4JgHYAIiOlq4a8nt8e/vhCEK59OEgdOa+JM73z/mL0ThKQb
vB8ZqzXwQhszPtM2QRgXVTB69nwXHsk+1VHYKQicN/maVbd34tZoTCZHryBU
B/l58Z7ciW/KV0s1fheErqfX1N4Lq+MWf5R3Gv8ShBWVtKPt71Rwhef1C8/n
BcF59ty/vB0q+Nop57dsfwQhJ2DFx/q+Mv7kQ+bBhjVBYEPFYzRvKuF/U1lN
j7IJQfr5QzucYhXxpiNPuJ+RhEBzMIBukF2RNt/ptbHwCEGidGNed4oCbuwS
evKjkBCs+/2Xy/NCHs/eM37+sJwQ+MoeDjVYksUNWmpjD+kJgWN1BvW/Pil8
GELueugLQemHp8fbtKTwiNc78u8YCkH+eY/XKXcpeHVq4od+EyGo/zIzYHNK
Ete0sWUIthMCHXox9BynON5Wz8Z/30EILs9t9GCRYrj/vmoZ4rQQPNxalOpY
FsWLydL6nOeEIFC7sWtjWgRX6JuOzPcXAqNo5daZeWG8ziT7TmOQEIy+skqp
vSSMu1SbP5wPpeV7d9FjiUEYz80uxw5eFYKA9Z2f91GEcOEzVzc7bgnBdYfg
FmE/AZxtjPcy8xMhGIqNuewZwIsXWH+IVy0Qghi3EyscYry4YX3I/RMvhMCM
oepUy00ePLqg733OK1r8T7l434Pc+NqF/H9aVFo+YkdDEhpJeGavLZsjLgTK
am7KrVokfJ8Ju8i1WiE4/43tE18+Bx6o6ru/uUEITFbzMeNb7PjMr/2h7p1C
MHxHjMwVworHO/28ntgjBPtutj/P+8uCK33LvlfWT4uXX62qCWfBz5XSv90a
EYKr+MLh8HhmfCCwaSl9TgjYyt73B35kxJtXnAI+sQpDr0KKf34BHT5QYMm7
hyQMRItBo4ghHf7T5sir+9zC4LnRGRL+aRtjfaP+y0dIGE4H0R9ottzCwH/j
gqCcMBi08+5luL+OmUvNs0YoCgPzhx12PstrmGPzaMGksjC0vfscHWe9hoWp
NY1V7RYG8q6XuZckV7GyqayzznrC8Cdp3F2j5y9GZNzebtQXBj35b1or5n+x
5iPRuZqHheF69eGXHQ3L2Ez+hQFWM2GYeu4Rea/+DybvvN++5KQw6AjfdXAb
WcQ0eFVXyKeFQXwjOUHObxEDnJIefVYY7H5prYZvL2CnJVk6rM8Lw+Tw7Ynq
HQtYem/H8fVgYfh3mZeXReU3ln+zYe7cJWGIVxkdJHnPYWX7qbebLwuDEUUi
wbvsF/bt3pOmR9eEwXyCWWjQdBZjsww8apQsDDuVBDdnS6YxYXr3iddpwmDJ
PiF3gG8aky89eV08QxhEyx15lC5OYfrc+h/mcoQhcf+tzSfHJrHwRh7kXpEw
nCXvLByTHcduhjEObZUIw6rcq/9U88awdKWVKxfKhCGEgZPlqvQYVn5jqEr3
vTD895pxaUN5FJs1eLnvx0dh4Dh+43OO0wi2tpDXadooDFIbUwOei8MY+6O7
wW+/CoN64/BAzc1hTHH7ctnNDmEouhpWVxD2HTtTbbJz1w9hUJTh4N2IHsB8
LV37bo4Lw6fx0djTbf1YxPTlGz+maPoLxz+0KfZj2eSXQ/d+C8OvV1VbD/p7
sd4gnjsbG8Jg3ZCx/2BgNzbFoaRrS0cGp/DaPU3DXdi/RzD5ipEMqYX7uGos
uzDhlgDElYMM+pf3R6ZBJ2al1vH7M5kM9EWKXJ/12zGXD7MP5MTJcObpMBb9
uQ0LdGA2ukohg2LnjzUe6zYs+ea+vN0KZDgyM53vFdCKfR3LtMjQIAM7++uy
tvRv2MDl1xvzWmRgSZ1/r9LSjM3yNz430SZD5LcvI9rczRiH/jrdFkIG97ip
AZ7ML9jRnNOvzx0jwxeXQznV3z9jtpqhpzELMhjnqDlP637G3JuS2EWsybDj
LUcffXYDFruKOzc5kMFk8w1fxvlPWI2NLL/GBTKkf0ayZ5TrsZZZHSzBiwxB
52VsmJ7UYcMxVp7jvmR49eFMtaNUHbb1OrY2M4QMXcXKjZEyHzBd7snA7Wtk
OH8sWvi2cQ1m8nSbcvIGTV91jF5uH4E5HBRpKrtFBhG3FM2zvgR2ydNYzj2Z
DF6VKvPeujj29mNR+5ccMgSfFbff3kvF6k7XRSo+osWzcPz4drUa6/gzoBqV
T4Yf91LLBL5UYYuy3LF7i8iQEfTCKT7kPbYr0l/zfiUZWE8PlXusVmBs7Q/V
qqrJcK2OlXPZpwIbVvwm34eRYbAsS/XN+FsstVldSKyeDD+Ft0OvD73B/kjO
LGe1kqH7fWvInaUy7GuA2Nz7DjLonIrwa40swwrqjSd6u8lQtXlNj+Auw+x8
nneJDpFBngVPPK/5Gquiur3L+kkG/rgzofE6r7A03nuv3v8iw7DJgQfPwksw
73N1z3rnaf4jdyJ08ZeYJKdcpugKGcjmOlbONsVY1KnhS1mMIqCecNT3X9kL
7OQrnoD3LCLA7Fr3VkzwBabBiHj0sovA8Zlde5YvPcdGC3NOivKKwEGlevar
x55hR9YcdLIkRCB/v+psltRTTMo8XuO9lAg4XpfjP5idT+vf9yq9siJwn9ss
/694PvbCWERcVFkE+kXmD/jIP8E4szrXM7VEoPIGmT/S7hE2Nsv0p/KACPgx
Cz+lm8nDUNCc7dEVAUX0WqdgdB7mO5U6IGIgAj9+VkwGeDzEWvdboJnmIqB2
LiKs2j8bK0yIfFt5QgTid7vWYegD7Nr3kpc91iKw0Ld4iZXnAaYZx5Urcor2
vN05hUxYFpbe1RiReV4EssMcurlMMzA/lbXQSk8ROGl9dDPjXTpmFKHs1+Mj
ApZMttnFO9KxVYWbZ0SCRcB1V5+fDP89zDHkMGRGicCcR8dVNu407Clrxaf1
GBEQUu1zuBefis1lKR4/EycCUekB0mkcqVgkxuqkmCQC/tm3794UTMEeszZe
fvNABBbrn5YIZydhM1k6jCIPRcB0b6xTxqfbmKZaUfzlxyKwh7z+7PW/RKze
IjHL4IUI3E1wCZXxSsCmsszftVSIwE4xhkD52zexPWq4nmaVCLA+bat9NBKH
hWO7PmagItAkxDtUpBOHkUZ5O53qRKC88JT979Xr2E619sXZVhHI+bnDXqww
BruIHQq36BQBLe8dsd+lYjDC4g39mx4RGNBSKbTJuoZZhtzjvfydlo9pz72l
9GgsBLPbyf5LBF4aFzwYCI7EMIuGt97ztP7p93F0So/AWEYP/NeyRNN/651U
P3oVy2QVM8tYE4Gje6bmFClXMKrFgIcCmyikZIokT0qFYcyjZgs3SaLw7fvg
D1GfS5h5CHppllsUjFir7sviF7HvWblx5UKiwGF647dWQCjGMHr2qb6cKEzb
W59k4wjGTENa1Z4qisJfOaaFhPAg7C6rwRs2FVGIEq0lVuYCMQU1uQ/fdosC
E5PGOGU0ADMKGR8+rScKXfYLj4Zn/LAUVtsLNfqioNSqED3D7If1ZX38LX9Y
FF6q6ZQcUvTFvLBnWzOmolAZg+3bE+aNJbF6SoSfFIXCb9u+qa4eWJ7twu8n
jqLwn3bx5afvLmBlTy99+HpGFHy/tz9T5L2AdR+K85RxF4X9t4f8GJrdMemo
/MqGQFq81vbCzvBzmMY31cTFEFFgqTGWRedcMUNK+RmJMFHw8Hn7aMrdFfOg
1rD4R4pC2Qfm7ipnF6zs35A1OVEUMnfYGf2IOIvVHXVX0r8jCr90Ohdnuc5i
Xem/1j1TReGFtY5KO3IGW9fceIxligL/VG54b+ZpzDBAdMHtqSisN45eggQH
zJbIq7vzXBS427efhXWcxC7wKGW+LxKF2G+rf6/KnsRuv9yHcJWJwqvKnjCv
L3ZY17TV7TeYKKimDEnlWNtgUwf6zw7ViIJ9I//LWcIaW4tz0WSrp9X3g2Ki
zB5rTEoxoP9UkyjQO5WGdkpYYRdckpQZe0RBpJPZhaCcwMJfC22q9YtC+Snj
fcnPLLBEupwW2yFRcKlwTby11wJ7nVt0sXCM5ke5JGL6whxb62uoP7EgCsmP
JwLfBJpinCoWWZf/iMKcecSB1DITjBLW7f10RRTuSp3zSV4xxg6RJwRWN0Wh
ovFTqnuyEZZoxeiSxyEGF099H1xaPYzlPo7XauQSg+MJe4aNzhzGShf42P/w
ioGgmJRPXYMh1nFHuvQoWQz4mm9SiWeHMMkv/23NyYmByNerg79T9bHdjD+H
2HaIQSKL6BE6UX3MUCcdl1URAyYG7WqTx4B5Pp+Lst0tBmWWldqBVxCsIvYh
I3ZQDK6XN59K1jiIfa42HetGxEBaj5lh1EcXG1hcqVswoD3/m/z5gBIdjNHZ
4oaCsRjE95iYvtPTxiz+o2e/bSMGscmFQRaZ+zDX4JfTBfY0Hi/NHl3VwkKL
TjYSp8SA39hspPyMFpYjWpbwx1kMWg0H9z3Yr4n9XHbhdvQVAwb34OJMIQ1s
U43nd0iAGIQ0pLLIpe/BeM9Vf7sTLAZJOceUxcX2YPvbBFI+hItBv17vwVXV
3VhsSZ2AapwYzIXfHSD/VMMyxv3/GMaLwcSvnRREUg0rlJDsdLotBrb7Herm
bVSx1viQ9NQ0MThiuxbm1K2MUc4riq49FIOjyTsqbgjvwPbktq0KPBEDIkRb
RzJQETPsjOhTLxCDa2/bzdXaFDCvQ90PnIvFwO6Elr/uQ3msUuom5XOlGEy2
Krmte8hiTbaa2z+qxeD8yuErOydksKHbw983MDGQi1hn33CTwZg3DjzaXS8G
hR2Gr5n8pTHLnmm5zFYxaE9vvxJrK4m58aQzlXXQ8jU69TU4RgK7dMRgvKlb
DP41/aelUSGO5b65X7A9KAaSZibjIWpi2EyyqfL5n2KA5dDPMtmTMV8W7ay6
X2Kwn/T0q+AjYWzxsiK77IIY1GouGzz8LYT9c6efHlgRg6ajTxajsgWxKwNz
9jrrYuAo3pV+a00A2z4x0JCxJQZKx/6m+J0WwFj+e/fcklkcLPzDfQz28GO3
yvJFStnEgYf4aTX9iA/jVEq9ycUpDs9Ci5JGhPkwAQGfCw384iD3LKbFkIsX
k56WVdKTFoeeM6EiDCc4sSdOvJm0ARFGg/OCiv1JmGLHJuuqojiYbVsGyGZw
YOp4z2S5ujhQFm9/yV9hw0o1P9rx7REHG46KNPM9bJhmYfknX01xKNSMqd7y
Z8V07iU9U9YVB/+b349R6VkwjOMKOU5PHBSeP+UNtGTG9KM84sb0xYH3/t3W
iOdMmJGX4fmHRuLgpSCav+7KiNnorykK2YoD28o5SztBeqynYjI98KQ43P3Y
wZ+SQIc5qnWytDjS9ntrFrjOQoe5kEsn4l3FAYoWf9UJbKETiTm2U+7icP2Y
/pFDspuoB0PCx8Oe4tCw22lQ7cAG6v/LrYAuQBysvJM1z4StoUsuVsJOweLw
7Sm5WSd/FQ3tgRvVF8Xhe4uC/rPOf+jVD+LuoRHi4PegKcvDdAWNz2pVmE0Q
hzmuujC3q39QLh78nvEdcTjCdcQwqXsJTY4tZn6WKg5rzZXyffuW0Ay/uHHn
LHHY6ueeOsi0iIqNB9vg2eKgWffxHmvgAprr4FIvkScO3q/GBx3H5tH8w/89
7S4Qh+4yoxGt4t+oUrWKkFahOLy7FncyqnAOLdotcj31pTh80Bt92Vr6Cy0T
Xzp37I04XJDWOZjcMYPiC8/lP9SIA0fu1FOhwCmUU/7l8ESdOAwopHNbv5tE
7W1fZ3M0iMP4ZPoQG8Mkulj1XtCyWRyGZWyL9z0bR5FfaEtIqzg4VWvPuNCP
o4lStYlZHeKwsXKYyfvsGKoQ28g00icOp14g7TfURtHAimaCaUicNu/tJlln
/UCxqbYrSiPi4PbOTyCE4wdqf6z/j9+kOOz0OTS3d3UYTRCeHdtaEgfuleOH
MY4htMdoPk92RRzOkGPUN2UHUfnLfxyPrIlD/GK9qJDBAIp93+i4TScBO8k7
4lju9qEkfvqU14wSYLVDvDfiYy9qb8h8rJNFAthLaqlc2z3ownOuegkuCViR
mX5cHd2N6vXzRQOvBGgU2LDENnWh8VzC/50TkIDHPI5Fb8W6UPlAytsiUQlo
vTr5+k1DB2qnu+upjqIEIA+qp7ad2tB8n73OTsoSQFRwUqa+taLzD/dLXlOT
ALOZ7Syhw61oPBPc+6whAaqMnf41ui1o9z7DE7+0JKAzjk2JOfwbKu9hxMWn
LQHJoTyMkrHNKPrV4ro9IgF7z73xVC35gnLQ2ehfMZAAhzMha2++NqG2Gic3
Hx6WAGU+Nu61pUZ0Pt05ZNJUAkxcQ9N+WX1G5c4GuoXaS0Dd0kkNY8ePqH9q
qMz9UxJwN8fxv6DiepRaFz6IOklA114fyZ/09aitcowNs5sEfNe9qSZF/YA+
ORXHp3xBAuTM+B4lS39A528nfDXzkoCJo6Jub2/VorcW0w7fDZCAnyfBMsGj
Bu2Sz6SvDJYAH6lCw3/fCVTWLhvtvygB/iuOHMkOBEqtzteSi5AAu4kbsbHv
MPR37FuFsngJCJPa1TEuVI0WL6/5iybR/GoSfSKhXoVecAdqVAot//axK9um
79EfR5ssj2dKgH3fO++vD9+hDyt5cyse0Pz6FH0D6ahAHZVtpyUfSkBtrWWa
F08F2sUxEjn7VAIW18cEBLPeoGmXFZusXtD0XNTeqThZjlrMeglXF0vAmMO2
t6RuOfr569/iW+USEH0ph/pv6TVKTebsU6yRoP0/PDduNHqFhtFbKiTVScCt
zZgnO7VL0H2BGf7LnyQgKVqrMVfjJVpqJcta10zTu66EhCJFqE/deUvVNgmw
Mdq8cMyyEFXRepmT2ikBAs4353l8XqBPhA9oOg9IwLoVfuv4+2fo2birkQ3f
JcBlqIhs/rMAlfhX27hrVAJO3mft05EtQNN7jzlvTUtAaE/Gu5Wn+Wh8tmvS
gxUJ2jx6/wvfyiP0KNeLXoZ1CegJ1uKIO/kIZYqYk/fckoAL9NQk45o8NOJM
WPUBZkmIPIFIsMNDVLcFY8ljk4TiKQ6n4+q56D9gsmTllISCTs+MPrkcNED2
zlQnvyTE6FTL3VR9gO5M69j7n7Ak9CmFDwgevI/+ZBSLzBeVhIe813dVW2eh
58bzhYKkJeHQC47gQzkZqP3zKgPenZKgl+BUcyj2LiokSpd0cY8kTD9M/nO7
OQ1tu3W4d0hTEh7rPG5jlkpDTb1a/F7qSoJ8PEnwZWsKyjYgVC2ISMKBOMat
i3tT0DqzUyxXDCRht7ty7LP7yajezolsE2NJmOfopazNJ6HruapTr80kwVa/
xCJ98DZayROwV9RCEgbSR3setCeiGgvrnydtJaFb4I784754VOEN30rsOUkQ
MC5McDeLQ4tHfJLKzksC3tEuk3nrBqrB06gw7CkJvLw+7KSv11E9z2vWugGS
oNvEeGrWLRatyxiauRAsCULM3BfWqmJQ03qdmPSLksBMqfpzUygGtZdeer1w
VRL+DIm0hPZFo0PHjhtLRUvCo7n3ytGG0ei5y0XDZrGSEMRfyOhSHoUGdLny
PI+XBLLM6+/CepFofGKHt1OGJHB60q+uWl1Geat2MyXelwSDgAnDcz7haPpk
4oP3OZJQ9ezd+NGkMPSJweFGwXxJoF6yOXFr/CKq4v/I2eCZJEg2944Hil9E
S3M2//kVSoLnd6PDv+xCUeq/tzuaSiWh0dA5AB8NRg0U+fF/5ZLgd01/plQj
GG2w8rVVfCcJqL2Xv3tcENpZong9GpWE7FXeHS76gejcuYwf+xslwbTFzihr
3A8NTl0Kc/sqCaHfH5exdvmia/hxvrQWSYjmZb9v/80HZRVng7kuSaBncngU
2e+FJhmd6xbvk4RO/USbxl+eqGAo4Ws8KAm71O0Thlk9UenWSzn5o5Lwvumy
rr/lBbRgq0OzbUIStpZSJfyunUfV1PZ82Z6WhGMqP9QM37uj2nHTaw7zkvBd
mi04WccNtfzPwZ5vUxJYXGT3zl93QXs8K37r0VGgZqG6p3XCGXXK5I/zZqTA
vwTF2D9mzqjXUuPbT+wUeO7O8Oy40ll0UXrHsWVOClxPvtvtoXMGvWQeMybL
S4E+tj2hHupOaOwLXYEIYQpMPLG9163uiHJ0ZxQWiVKg89Hcn3KdU2gK0x/9
XgkK+CRO0T067oDmnin215SjAJkz+MejZHv0nZBk889dFHC7ZmfidsEG1VPN
DWTbSwG1lP/2BZRZox9Biqy4jwKFqs/t/Ris0Q4vmbPOBymg6u8tGlVuiTpG
P2aKRCjA8CwnWEvQEh1Nl3uRbUBbH+47Lxt+Al2sUVjsNqJA2ewT+3/WFmhY
d0H6sikFTIacn1PSjqN0v3boChynwGzjZHbQdXOUR0Ql1tyGAl2eN4zcY81Q
Nd+dwvXONL3WyjHVo0Zoecyrqh/nKCBVmBTsyG2E6mTtPkN3gQKTaWsOLHAU
Na7TeK7rS+MdM/tvvzuMtvSWm50MoMCZObHhtQ1D1P635kJoMAVWA+BDqpEh
6i62X6csnAIKo9S8kAUD9NeuyqFvVymQQ3+vz8ncAA0+rB3zK4qm3zLwTUmp
Phrjr/tFKY4CrMjZmG+xgOZ9RJweplGgRclug+7rQXTHAMGAplOg+/DC9Ga7
LlqyoP+sL4sCI7Vn1A6N6qCohOG8UB4FojxemKWJaqOGGvV39z6h5TfwYEMU
DqBfjh7RPlFA03f1b/Swz360L9DoWmIxBRLrOsN0h7RQ55ufFQtfUeBgP8PG
KWktdCrHpOlTGQU4bOOsOi5ooisNZoKM7ymgiT9+8Y+0FxWUOlEQVk+Bo3bv
Xz6+txt9oNlmktFAq7fdjU+szLtRWROr32+aKBBLXpi6vbgT3RNic2C+lQIW
LBVxzt/V0Mr4rgGuTgp8fNyTLTaqikKeXbRqDwWan40fO/5bBTVvOtnoPkTb
z5n+OLe0Mto13OcbO0KBnsbCJh5DJfT031MCj8co0ECUkS/77UC9ZZwcB39S
4E+Bx4l7/QrorYsuc1YrFFCRalcMYpBDo5rkZd+uUSDS5F2jxzFZ9JLUpI3w
FgXCHyudZnwog7p/8kJ7mKRASVRcVc1GGnUS37mgzSYFHfjG+aRAKdTGb17+
AUkK7v7pQrSPUFBDckjiaX4puO+JJBpxS6C6XvsJTEgKhKoz/o7Si6Ma+OqS
lKgUMIYytzhvi6Iy5yNO/ZCSgrCUyOVMYRF0qyJO5by6FHSlNGuWFwuifzlM
nBp2S0Hy1q421gkB9JcTZ6qyphSkvu5Xq1AUQAdYUlZndGjrl5L1eFE+tN3B
Sv2YnhSc2BQR0eHnQxtLhJxL9KVA/RnS8N6HF31ve7/B30gK5oz35T304UZL
Cx03Wk2l4OKx0aWZo1zo8y3K7r3HpcAAjVyQVedE0wueZCzbSMHh20GG1cIc
aPDfYvdwVylg+RUlc9iRBXXN3dN80FMKRJW3zT6XMaGWRyq0tv2lQKAw0iZK
iRGFOZ2cmotSsOV0d0Cpmh7dlY4zxUZIgVR9+ePCC3QoRc/Q+8h1KbA5aGCy
w2mLyjnR0M6WKAXxdZcGVUQ3qD+12h7fzpIC/+T66UzOf9TeQVsOizwp+FD9
8Bs98pfacL0/gP+ZFIjflalJTvtDrVA/29vxUgrmzWqXP7EuUZ92jkHGm//r
446yy1qg3r3q8fxktRSctA7mFjsyT72mMMcjUSsF3O82muRE5qhnQ1aG8r5J
wesyIgOvnKa6Vp4a0huQAsuYJbpgrQmq+zo+ODAlBUvxuxOvqI5SPfTkB8OX
pYDtQfPHV/HD1Aow9OWkl4brlC872eIHqAdc/vqcYpUGkcv9V1Oze6hVMc99
CrmkIfv0rorO/Z3Ug08dfFYFpCFi5/KdEOM2KvqR08dITBqaPboT2GO+UfWm
MO8MaWmYHGDRPy/fRCXYA7wnFKUhqlKBnv/MJ6p06mm1cCVpqFir+bwn5iM1
WsxklktFGqqps2qmr+qpBqpy3lrq0nBudVDJmFJHrTPr9IrdKw2Spa9F+S1q
qPKdNaoiWtKgl8L0NKGYoF4/XTJTtE8a/Hzp6le5CeoR3zivdm1psLxrrfH2
M0r9dEfbSxak4ab9nvfmue+pjW05noSZNHDaCHS4z5VRXdZUFkPMpaE07kiy
m2oZdV2mMkzVQhqi5xpi5PxfU9UC2m6mW0lDclWN4AueUmoSD+szbwdp2jyz
yi6rV0Q9YeY/KnJBGni7r/3Xl/qE2lNv4BgQIw2npFToPKTuUv1/fRtVvC4N
c2YC+Q/M0qjsQqe9Bm5Ig0OU1F2ra6lUnXMXw4/GS4PcBnpvjTmFms1QnCmZ
Ig3ubvsHhxsTqWcRoc7PudIQ4x3s2pASS52snDwmWyUN+xz5MP6pYGqUNevA
t2ppGPluoH6WK5gqMq/oeRWl5Xvf5vA13SCqyQ73Gz2ENAi39dl9Lw2gltwb
w5I+SUNc/26VhV8+1NDAkV3rHdJQK5QY1HbOjcqs1s/X8VsazI20/bF6G6rc
w+bO6woycORibMTxnfuoSZTbw2W3aNyWG5IstFa97hXUfuKvDFy6aGyqnVZR
nWG5x7jqlCzwW6cv8g6GVFtqJ7rK47KQo/HozEi1ZjXvHLc7naoc8L7DGx+c
n63a0PWYeXpHDsS+0H9UUiuoGtLOszqfIgcnWuXMdzE/rSL2d1crpcnBa3s6
R69fT6pi9x5OLEqXA3XV4ykBU4+quFRl1F/nyAHl2IxE7s/sKopYry+1SA4u
f5vp7mpPrdL/Z7TY9kkOcm4kRps0RFbJ/410uPtZDkIQOr0i8Ygqlj8VtTZN
cqDXbBgRfP1KVeNv+bSeZjlIc6XefZERVmU5Sac51CkHtrNzmsVZwVXnuipD
pkfl4GbR+yilQs+qIx2/BwvH5eBDbBrtFPOoUmpTPOI9KQeKIz1P5KfPV81+
vSv8+6ccXB+dAx9/t6qQev93fxZoeq4Km+/Rda6y//BMqmJJDo74tzYFWZyt
0qkZiru4LAclMZdKD4w5VW1RzezX/smBNkdTkmTpqarhqhiiek0ObMTUB032
OVTVVlYpXd2Qg5NnT+SEtNhX5VcsJOtt0fRu0kmkXLWruvFGaXV7Ww6m8yqe
5h60rfofrL5T3A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.523187059776228*^9, 3.523187101504748*^9}, 
   3.523190549124979*^9}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"B", "usqueda"}], " ", "de", " ", "Estados", " ", "Ligados"}], 
    " ", "*)"}], "Section",
   FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ener", "=", 
   RowBox[{"-", "3"}]}], ";"}], "\n", 
 RowBox[{"solution2", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox["1.", "2."]}], "*", " ", 
         RowBox[{
          SuperscriptBox["y", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "x", "]"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"V", "[", "x", "]"}], " ", 
         RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", 
       RowBox[{"Ener", " ", "*", 
        RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0.", "]"}], "==", "1"}], ",", 
      RowBox[{
       RowBox[{"y", "[", "0.", "]"}], "==", "0."}]}], "}"}], ",", "y", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", "[", "x", "]"}], "}"}], "/.", "\[InvisibleSpace]", 
     "solution2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.523187115685037*^9, 3.523187142424204*^9}, {
  3.523187692980747*^9, 3.523187693882578*^9}, {3.523190555953314*^9, 
  3.52319055613774*^9}, {3.523190607947391*^9, 3.523190609649914*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"y", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "20.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.523187131228683*^9, 3.523187143059006*^9}, 
   3.523187694402921*^9, {3.523190551616188*^9, 3.52319055714164*^9}, 
   3.523190610290787*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwcV3c8le/7t/fe45gH5+AYyUcRnet5lFKUbJKs7C0hqxDZkr2FUChURpLs
bJEVDSu7jGTm6/f763rdr2u93+/7vp/nvkSs3HRvkZGQkDBTkJD8n80OsqI6
YZN5Vua09f/b1iFhLSNhP2LBgGNp4rE9am8MFRaOJL6QXmxkFIkkZjfFClEK
pxONvEl3a7HpRGc1b5e/QqXEdvnYlfeypcShffuk30J1xJatypF50zoi9Zdp
3KrQR2LiirvwPl0XcazpnffKwkeinxCPZsVSF/HZ07SW5couosbqoFlPdzfx
iueVm0vqPcTP3z4/9k7sJabQ1qf8tOsn9szYFpmkDxDZsjrJ1kc/Ectd+Ph0
bIaJ+V25HstC48Q2ijupiT2TxK2011LfYsaJzCUExXOOU0QNu+6ZT7vjRNqX
bl9yab8SV8j/GtQPTRDrXEntPLW/EU+rXVGJjJgkpnYJ0eP/fCcOvDggw/36
Rrxbds3iyfsZIhuR1pxR9jsxXIUsNkhglnhGIkklwuY7kXPLO8AhYJYYt1W6
eXfwOzFbjKTDT22OqPjo8y2r5z+I9rJfpOd75onBXYRLJ27OEJMZdF78wi4R
SyprJJ4nzxDzN0y6DJOWiJ/SUHLxnhmi+4XNP2RUy0QxO+MGHuVZorJvAf7U
6jKxizxMloR9jnhpubPgVvcqkUvtC1t/+zxR+kCMp2b2N7HiReQXZ9klImU1
lwmL2x/iEttSzCXLJaIAxu3KRu0fIu7OpbP44z4OvS6WoeTbxDxV+vyZ3SXi
Ee291VcZ28TEjzG2pm3LRKOaRS6rwb/EOzPx6xfMVomZKvFXpSz2iLn03aGs
538THT4+bOogJYGzav5m98x/ExuVcLt9J0hg0lX6v18+v4n3qYo9CVYkwPMp
er7n2W9iwAIxbKGFBB6laWk+ZFknLhQMaRhHk0KoeB/T0Zd1IkduTnOGJDnY
EQfTVzw3iTbSrqXBOVRA8mS7/kv0JpGY+R23NEIFaRSYya7CTWLzZWa9eGZq
6PxoK1g6skmksZ2TenCfGvD6B09uqWwRL/65wfjPjgYW7HFlX0n/EGfZo/MY
ztKBY2Jg40DCNlHYtOfZJAUTkP158u196TbxoNGojQFlggyjTpIXzdvErXxF
7KVgJujCsKvHbm0T2++nrM/tMoF0cUmHpvFfYtUvDjXPX8yw8nZooFloh9ij
7B5KWGUB1znJmVcVu0QTXJWa9yAbfDcfp/nwcZcYdaGPrXqdDfTGHsr2zu4S
u9o+aoyyssPp7p9+c3x7RIUfzOp919iBvLKIhStij3iRYZ/DaIAd0gJEzvrc
3CdOv2x1m2rnALrtAevQu/vE4alitYNZDgh0uxcZn7xPjJYjUPwm4wQrq2/D
xd37RIxupavuWU4gXMx2Gjt1QLy5J0Hzs4oTPrDzpiuzHBKDjZajAxK5QDG2
s/G89CFxlImMw7ecC55S+c5e0zgkoisHP5U7uSBmd0TOMeCQaBrdr8N4yAWG
35LaMxYOicl64ye+WnPD0jOWrf2mf0TOAUP/BHEeMBNr4qWZ/EekpfiemKXK
A/3ZbkSOv/+IPjMeBTZ6PPAqoS+KIHNEvD3IOiJxjweC78SI3Eg/Il4tcBix
G+EBOpEw3LfTx+dou/hrojcvdKo+kgs6TwIc1Mbhf8N5Idw455SALgnE1UbP
Y9J4gSyh9sJ1JxLYn3n/uLSOF/b+rdiNZpPAkCeWu2uXF2r59tzuPCOBfAWP
zydp+eCOErUvZw0JaN4aNzbn4YMNF5GHegMkgD+dzLP9Hx8sTxqU9JORQlab
XqSiKx8827F66cpMCjfNCCYl/nxgz+Fey4ghBU8NR62vD/lg9nJU5+X/SEGJ
q6bq0RM+mKxvXOiwI4XEnRMXhIb4oCcNJ9nUQwrTE9yDMpL8EPVK8cTNcVK4
XW/+6pcCP1wcQJT/zZFCa93l2Luq/NBKbaapekQK12xUklev8EPDnQSH2hNk
sFPDeuu6Bz/cTcz2MDpLBoyJGUo+fvxwuuKZ3/YlMuhfrr9jeZ8fXs21Rira
kEEoP69dYQI/lOvvlr5MIYOqtOdK+2X84OxOVXW1gAwuh9I+yK/mB6kY9vq1
F2Qw3OzILVDPD09bZLoIH8kgJ4x5PLWdH3IUrJZK9skgiPbUi5opfjC74rZx
gYYcTskFjWJn+IHPMWBvnoMc0HxGN5cFfkjJT6ETlyUH+yXNW9kb/BDH0i2V
b0EOAxHa3xMoMVB3SuD1FVdyyL99wdWODgOz5m7EA39yaA399kSYGQNnytn1
jVLJoVnK4QHCg4EFTbNAxj5yiLt82dhZEgPqoav9fmcoIDHsYcufixhwfUY0
xWlSQGlLeWCnFgYyBh/NDhtSwL87IVSZOhj4LaS0K+dJAWsTmDcXjDGQ0xAk
Ol9CAdsi9/T27DDwcWag7PEbCpjgI8VQOWNgiw57CmmlgMg20UZRdwxcNum4
nPWNAtza+OJSfTGw84fZW5eLEtq61GpeRGEAK2B1dISlhMvdhXdD4jFw5dyr
yPITlOBK3VLnm4SBokTjHBptSjANP3N7PAcDA3XP8G9MKaFifmvmYiEGDr4f
VFnbU0JWPq52rhQDunL5HY2hlDBPEt5Q+RoDQYab15wfUUL+1DT7/FsMlAae
n+TNpYStUUlB3WYMkPQs/r5dTwkriq7fv/RjoNxegU96nRKcZtAM0jUMjMWH
FY79o4Rn3aUTZ7cxQFEzIhvOQAVrggP5H/9hwJTSX/0Hjgr02B0IQywCEE7o
7Y37jwpO5i29MuITgEo9IWNVdSoQbLW78p+YANA8aXFONaeCn53vo6iVBeDk
R86/55yp4LdUiBTZOQEw/213f8OPCqBb4bPlVQF4fZYhRTv5uP7P2CQzOwGw
+qL/nryHCjKjb5qlZgkAXeYPF49xKvhW40rf+0wAqkxdMd/mqYDX7mRAQJ0A
kE9E+NWTUsP1dgzBYEwAytI58Pjj734O/7/msAUB0DfJH0nGUENYjGa3yq4A
FI7Vn/Q4RQ10GYZKFzCCoJV2YfrrOWogksTKF8oKwpbRcIKWLjXcN7DoTkIE
4fzo6irOhRqMrzm4nnUQhPnPwiVfn1CDR88XHEeTIMQllxtqvaQGryX7Z66j
gqBkoEJZ/44aLJ3P9/n+EoSIYT2r5DFqOIzyLH8mIgT4oXCMFhMNxDuNr6zG
CcFAInt3HT8NBPZ8N5EtEwJf3Tw/nCQNzMuzf1XtEoKPg3UjZOdooG8ll9+R
QhgcB1YS6vxo4NuN6Si5i8LAluBHxEXQQAC1nxNiKgz1V6nWkpJoYPKSFGm3
szDQ9wtddn9BA/r2GXxXHgtDWa8uJW6OBl4+kTupNy8M+rHfqpM2aKA692aD
5YEwHGg5W5GR0ELP9YZre2wioN3z4P0UHy2MVFdfH0JEYK2r1i9JhxZOR7wc
dHwqAilR5/Fk5rTg6VzsxPxBBM5e+jTi5kQLge5HFrqTIhD/cfnk5XBaGH5z
XaaRQxTkOwXXSBto4bnOLTb/WFEYi3ie5faRFraeLTBalIvCvQunL0+N0AKv
9TLZXq8oDLRfK6ldp4XHWbsrxqxY8GgLs3LD0YGp2t8G3nwsCM5qUG2fpAO7
i+uzjq1Y6CajfRYAdHA/fdDYbQEL4hC7HmlCBwPmSkLZCmIwXp98rzCaDlTC
5CW/9ItB+LiRmHQaHVQ8Gffg3BWDkzu8nZWFdODKNEnChz3O/i+H+f07OmBv
KVCK8xMH5OXTnPFfdFDlccPEX14C1vrsUYsDOqi+wTp900ICMlel5udp6CH2
rdEt/CMJ+CP1QmZLhB60b/Hzef2RgNKimgYmfXo4mX1DXfcjDlgzOyfUa+mB
d1rVJCBfEhrrooK6Wo/977GFxj8kwWlMS/TaID30e5thDEWloI1z0MF8iR5a
JENX24qlwC9hfMcXwwBhkzNi203SIPEiM+sIzwCm/3ICjekIMNR7A8L/YwCn
UD9XEgMCyNBPRzy+wgBCDF45imsE+PFgiaviHgO4EK6TvZWXhbjCsnrFWAZw
JOzYj4TJwpkWV/O36QzgXR9gZzEhC8kkm0WdVQxAo4SVHImUA03/fcWZWQZ4
WNv6zCtQHirdGfR4NBnBQN/OwI1TAXoy2P3KDRmBMX0w+J+OAsy38uWiNoyA
/TtzMTdWAfh4JZedgxnBsbszFkd3EsI+nA/98JoReAbCZodYFCFnWavUsIUR
OpsMH7obKEItp37/8gAj+N+WdzmXqQirDlb8XCuMkPXaS/Op1H9gyBZc7SjK
BCU632TmjJXAXTV8/EiOCU6b3CD0FStBlG3sUZIaE3gOiZ3n3VGC9/WZl98b
M8FkQPDcStYpwFvXzrDHM4HRm1jMiZ3TsFe9zv5unwlMCO9/vd07Axxfd5R1
aZlh9vRbgUorVZClIbH4ycUMAimede49qmBtxlTGqsAMiUTRky5FatBDIX3O
1p4Zbpmo/jrpSoR5WQXHfW9m4Oip8tGfIwKJiXJCQigz8Boh+kQ5gP/KL0zW
5zDDJRNm1sjnADkGNreZPzND40wiL1clArXBThmF08wQ9IJq/sIfBIZKPZuU
fzMDd0pP6BMVFCiCgaqKkgX+eJDmznWicHroiu6kMAvwMp5qldtSh3x/pyV5
IxaYrIi5EhSlAfJNtDsRN1igycGVsmZKA5ooSii/WbNA2EaV3VmFC/A9dlY4
1p0FFMjHsrW/XQDBvBtGi5EssM+6cJ70kiZUzO7bQAILzM/GaqAlmqAmmeGZ
msICnxxofh5QXwKzqpHY8wUsoP7hI/d29yXIaL3amt/AAvmHnQU5tlogRbs2
uNPMAjiF1ju6g1pQpx3z7epHFvgrK2DzUk0bxkY69w4/swBBJzc5jP8KcC0i
J0x/sUCsVQPu0spVSGRUzGETZYXFTYdE2LoGorqfnjvgWSEJ53oj9rQuVKa4
1zXJsoLOZL/HYqAuDAiVD7ueYYUTIqz03+n1gElBgr5bnxVe7eILzv6nDzl3
WnlEr7MCHybwV0CIPsi8tZLws2QFMDS8uTqgD1rnchGcKytsKT6w8PEwgChD
Ht/QCFZYN/TbevPBEPgy3zyYiGWFoDO8qwy8RlD6Tf/xiSRW2CFHLRo8jKDT
/lHFtzxWcJRSGVHFGQOVP93cmXpW8Kfp9TArMIGQ3INrWyusIGhNNyEyZwY6
8rUe0pusMH+JeztY9wYIfvB6ZLXLCjjS14NhH25A/fTSwAAlGzSbkotkFZrD
hvj41XJBNmgR//f3C9ECmt4kuc2KsQGXlDvf/UALiLugE88vzQaXz0+qcDRY
gJRDR1/kqWO/7/xbNlVLsCp7rW2rwwanyxgrRy9Ygbyah0u2IRtk2ciY6MVa
wb9eQuywGRsIHpbuTgxZQcavgh7UgQ00ja+dErSxhk8KiZeFQtiAO8Q0deGR
DSB1rppj1Wyw41mMsZKwA6ZLUg7M9WwQ4OrBkh9kB5MTcw81mtjgjeB++8kx
O/A9MOt81cMGPzIZftjH28NL4uULj+aO5yIjiqlCJkcIGqCy61xmA5Wq93c4
PB1By7I5/Oh4bsJ7vykmG3WEhRDldpd/bIB5dK/Do8gJhNtx5y9xs8ODmDdP
wcAF1gxnbO4LsAP2+EF6qc0FGn7mhNVi2aFrQEWT7JQrGNNytUrIs8MLUT+B
dCE3SNCiUCfXZAdr/gk7xlB3IBn6Dg132UEgOvOlVqonhC025t+9zw4yOXMz
QbOeQEuSTab8kB0SH27wbCp4AZuMSevrZHb4/V426s2QF4hHDF548ZIdaFvU
XBFxb3iW/aLEpYYdZOM0SPkDvUH2VSwtoZEd4nnuzFqNeMPpH5rdJd3s8K5V
PsQg9g5cOtN85ck8O1RKN6x6MvpC37W8Fxar7CCULC3j5OELevZBLEJb7IC5
uyNOMeoLZskqnzJJOWDg2mvvk8V+4PqryiAZwwFX2RLktcz84XFBgdlDXQ6g
SvQ9uyYUDDz1999pmHDA5gbr65v5wZA1cFOQ0oIDqj/6IHfY7sHTQ/7v9104
oAxbUKaWfg9qjZKs/R8e+6vSiUqv7oOqq2ercjwHaLxcx345vA8fwnTEd5I5
YEJGeLjqYgh0VTL8vF3AAf2ml3KZpkNgkv6Bo2sjB3x0a6mkEQsDC1HrbkIb
BzDgVJSHfcJg7jRCWO7mgCL9s10HPWGwdutw1W6cA7ZPp3/y938ApE3eHpZb
x/FSFsjIYjhI3Lb11ZfiBIw52Ttv1iiQUfmmlyvPCVfDPWbz7kSBIomx3JIS
J8yx3dnWn4oCNEZzPlidEwr9c9rcXkSDeSFB/7kZJ+A/XSrA2MXCLcciuW0r
ThDS8ec8Mx4LzvKC9IgDJxiMxr7h0I6Duw3MzSPenGBHFXyPQyUeUoY35Mji
OYFz9borRXICZGc40Wsnc0L4FO6m5ecEKLSYnU/N5IT/HMiQWq5HULXyOVum
hBMmFHyZrbMeQR9FHb3JB05gpDzK43uVCJT/Bf98sckJCUtaJtU8ycCw/7d5
b5cTbL7d20t1TAa2D+4550m44IbfzfT6d8kgrG1l8IWBCz5oRBN67VJA9db5
FioJLqjgCTeu7k4FdenGnGsELqjW+s7Njk+DS+tKd7MUuMBUfjRs/EEaGAfi
TygQuQDfcPXsy/PpcDuZPveGMRe8rzR4LzqaAf7Xw+6WmHNB2dHFFX1iJoSI
HBps2nBBkkHDc/7STEgoX2OI9OA6/s85hgXfz4KytsG7r6K4gE8txVBXIwdm
/6Qa0r/jguclTX1k7PnwBDnpNdXCBZ/G3FwXTPPhZmxf/IsuLjAXCR45KMiH
CTHKj3pjXKD8pJKkXfkJDOp5nsna5IKwhq8ujrcLIC6X0dh1jwuY1095GbYX
gNZyyW0g5YYO3EefTN5C6Az5Vj7LxA0DP8I1L7QWQmOllrCMFDeEMr1Z6ZJ6
CgGHP1WP5LkhvccGh334FJQ1Q00GT3FDxcWDuxQ/n8Kr73WJ3ue54Ujjxq2A
0mJ4xoyjbLTghvZTM8KHSCmkupAuXUnlhvJ/79/f6ygD/bosKpEcbqhzzTGu
hHJgozyN3Szkhnr+35e/vy2HuCxXs9QqbigzK9o1ra2AsO4vfd96ucFNe7v0
+q2XgHL7LFcOc0PqAO2E7bOXcGTFRhP2hRu+DVztTvr9Eu7uXUTwi9xAckkY
53yvEtwl31S7U/CAT2PN68cVVSDrfW0ApecBnW3EhHhYBctNKyscbDzQOjR/
QUm7GmyNsRJ1Qjxg+/PTIv96NdyISEgjPcMDDtX9j2w0X8OlOcfARA8eCA54
/lIWqQWNQGzZOV8e0DuxeeRWVAso5+TEdhAPjB3tvblKXwcq57VPX4/hgZ9a
1WcoJ+tAqkhuE1vMA9+9A37QJb4FCbUFkZFyHqDq0/tDQtEAop/zdB6+4oHF
C2d4+nwagI+SrWLlAw/cvMfKzXDrHdDf2rJ/PXmcP3z946bhe6A5LEu1m+GB
Wn7ta0Fj74Ei+VY779IxPopTOBbZJjhoHcEG/eWBVK2HL+dfNcGKWN1XDTZe
sHvKf3um/wP0zAbqj13ghQebH4I1iK3QGaAUGnWFF+Z5ua3/JrZCK8evSlUD
XrBg/fMf2UIrNJyzYM634oXzE8y8qiltUFaIdjkE8oJg7aPDafIOKFHd3+EP
44U/9mRLFNYdUDhcjeuL4oU+OWbWly0dkEUh/kAhjRcifwzHvY3shFgbativ
4gXrmTvZNyW7IOrgvWt5HS9c50whDU3ugvAk3+ybTbzwOzzG6hZ5NwS1Lu61
9PJC3Loed9hsN7iK9byOWeAF/wHm4b2GXrgymyAtKMgHr72WtX7MD0CP9Oyw
mRgfnEnVoSTBD8Jlr1NBmVJ8oIqoFPA6DsJFsq8DPKf4gHimq1ZrfRBQYek7
7Dp8gPz1eSrEMARNdkFCuoZ80D71OTTEYAiILwY7E8z4gEdmWogkbwhUz/ry
MznwwVzE51Kz08Pwn1lbE00IHwRt4FEun8/wqoDH8cJDPmBVapz++PEzKCw7
sYfH8cH9aU6JBoERkL3LZkueyQdiNeIjbh9HAJ92k/5fNR+MPjd8lyM/Bpjh
XYPNOT7gqJnQqkK/QAa/9tGJFT74J7lIVf/8y/EcmFfivsEHXrfHHQ25JoFr
Q2N/9R8f0C5cLrz1exJYWJLyFrj5wXz25dm42q8QZ/RTEyfIDwufv9Muy34D
xlyVzVti/KBEtTTJXPwN6GR/nJ+R54fD7cAk2yvfgVxLdnlK89ivQRPvevUH
hDy+n4TR4YcxsjqMcOIPIPkyrHbdkB9eh2zlfvr8Aw4c/BPGrPhh4Ooe4yWL
adiO6PxvyJ8ftm8xPNy4PwNLLVb3Osv5wUrzIe3X/TkQejTmGPeKH3BDC6Vd
RvOgb37FQP8tPyQ5Nz479XoeGneUpb538sNdambKsts/IVGGdfjvDD+04a28
X1EtQsdeeOO7JX7o9ttsMnFbhIOOg5LQdX54io/KeTW+CLZWC4HMR/yQTevZ
Wly9dHwO3uNwfBhYM8nQ0QtcAXeb/9hWhTEgzvDir9fWCjw98fygCocBk4Xp
xnCXVWDpSRk8+x8G8iTPXy+4tQazJK7+hjoYyMxajdU99RtiHDH9D8Ix4PzR
wOaT9wZ8OJVYdzkWA8K/b0qRt2zANgVNIWsSBsrzmV7fYd0Ei9xN3+x8DGxa
TZ87U7UJisNdoq8bMPDYxNlliPwPOOQDo38LBrAeTtNV1/9Ajuubv9CFgWJh
sg7S13+AhvZJT88oBqx+le5SOm/DlJrfndkNDAREGeobrvwFNvpfFs92MaB3
4+uyuc4OXByzuexOIgDS0dY9tG92oMpTR/iAUQCUrkuMW4bvQngxrotdUgB8
pa8n/DizD7KsIwLqNwWAZ8TXsIbkCOZj50OSbwmATHjY3ad+R5BN9/fnTycB
yO6zN3XZOgIGCp6qGF8B6BsVT+73IUGWtk00Rh4JQCcF/mllECnyxMvxOT5N
AAoHbi/+aiZFTH7fZfHPEYB/I19unqYhQzoXMyeEngvATT09uZ1kMqRocsrV
oVUAyAT5v5Y0kiNmJmtDb7sEoFSbZ7icngLhGPl3mmlQADAfSZW/mVAgIf1C
5NVTAmC0zlY5vkuBWDRbph5sC8DFNOJB5UUqBFMy9z5eUhDo9XrC9SRokWGx
bbFpOUGgQkiGXB7SItH5VFGKSoIgvNvTTbVCi+xl4PTHUUHYfz9A6KmhQ8Zi
HRZEzQTBtHYsS9uKAUmgu6vtbSUIfUZ0hZSDDMiFiKiqDntB4E+Wi3NBGJE3
954HOHsLwjR3u48djgl57LXK8iZOEEzOnhO3pGBBLv0+9KZJFgTl5i9VX1AW
hMyF6YtppiCgf2X+aoawIO62ckVHxYKgtyIXy0LBilwx8VDW/CAIUnfiwivZ
2RA64h/Lyc3j/Pm3PJ9sORBfBE/zZk8QEsim8/nfcSDz6tcr4kmFQP2CoMAn
Dk6k+eKHPZRZCAaE9URyOjmRu7qxj0ulhMCIVfiRJcqNLOg3KYeeEIKyqn+y
Hwq5EUOjzW9mp4VA0V10qomGB1EwMyGwaAgBW644VcNnHmT5lnjbHUshmDCC
8w5hfIipvbGTjr0QgKzY9YQtPqTTMZpVyk0IrLN8Ox/Z8iOFbus3pgKEoPfI
Aquug0HM/N5tq6cJgWGkaZz6GUGkJ8YAz9ovBMrOLLVPz4ggKvEP+5Y+C0HA
iphfZJgIUvLo7e3WSSFgjaQLyusTQcJSRD74LAnBfj9ZZ7CtKCI4sE34RSYM
a4c9RqlFWMTgGguJGZUwiN7/m/diB4vEfJIc6qQVBmrn8us4bTFkb9jM7wmL
MOT4bfho7YkhI+PNbQaCwoC+CiTlspVAGK9PpjWLCIPEduT8YKsEcm7yj5Oc
uDBgf0v7CIrjkKqveDZagjAEiKadCFvCIXEzceYNysKgEqphhUZKIhdWTf+K
GggD07+y6TWMDJLDEToUbCwM0gv7273JMsjWmecvJq8f19dp+f6ERRbJi9q3
S7EShkfSgbNXGOSQPVzWGK37cf1ZxSPtOHlE52rrK1svYXh2YiKZbkgeeXpn
JaHljjC0PSWJm+U5gei1qWoGBgoDe7SLMnnJCaTMaqrud5Qw9E1e+e4xrICQ
RVGmaMcJQ69ljU2u6EnEuFLG89kjYdhdOxPI6nkSoSQJkrJJE4Zwpe64MQ5F
xDxbMHO0SBgeL0oxRjv+h7CM3QxobDrmc5GDKvn6acT2KMKYv1UYui0ZF143
nUYaJF4q+nYIQ4ayW/FdnDLi4E2yeqJPGHpqI7np95SRZrb8G0VfjvVpbvZm
fHUG4VH5qEz2TRj+BNuosuFUEVfLdc6b08IgnNkZvZWpivC/RPp4FoWhS+z+
N/doNeS29vTZmG1hCE3uOSMZQkS6btPxL+4Kg/rbdVwgGSDCWQp/zx8KQ4XX
BvLnHCC9SyEvjshF4N1/fz6L9wIi8RAr7MUqAmopdBY0ywgy1mxDakoQAVL/
sgtslueQ38gEX6CcCMjQkaPbL84h1B+uKuYpiABVaHk+Pcl5ROm9it38aRH4
YtbHP1VwHkl6y9LreV4ERlnGG/P2NJAylfD55IsikFFsLpusdwFpqds/qr0s
AmUp1Ls/yi8gGzXzCkfXRMCiTOhhuu1F5OqrhrRocxHYpJmx5F7URGxPKlRV
WIpAXj5x20b7EhJUVdw9aCMC4YTlIaXqS0jZy8R/3E7H+JPs/gWFXkboyu1t
Cn1EQFQuSvTyKW2kvYhD/l2CCOQIFJvU+eogX8WiNL8/FgHbK+XjAbU6yJ+C
IyvyVBGQlsXJn9rVQcSeLCVrZovAf1nUN3IDryEhOU37n0tF4LS34nBpoi6S
IaDEuVsmAp+lo1viJ3SRyqznspiXInCPooYqBquHfM9IsbR6IwLqSwWuY7V6
yNlU5461ZhFY3r1YrrKujxhyTX9nbReBnT2311qoAeKSbLSn+PFYj+pTj9OS
DJCsx6iMf78I9IvkTv1WNUT24nkeU0+KQPfzJaxMthHy+mGrufAfEcjfxllb
5JkiJZe6eSJ2RMB8xDrnJMt1JIPh06fVfRG4v+cdOHn/OnIv4ZvGWzJRoAk4
4OlzNEO00vZkDVlEgZ5HIplF3xwhmpIuNrCLHu9/wYzbkDmigKEpwHKLQirY
iczr30S48zi51wVEQbz1r76AnAUyXSx/FC0tCmaRPK4fzlsinx1O1W3IioKS
lmbP5ThLpFP6rJeJgihwUQ4OUo1ZIuUvLv+UUBaFmxYNc6JuVohvjW3/Bw1R
6M4msQgrs0aYOrJy/1qKwp7Sr+n39rYIaWSBifktUWiPZlybbLdFti49Y2+z
FwUmhUCVBxJ2yHhfTUSimyiIht598mjJDikc+eQmEygKpTqC9IbhDkhq2rhk
0j1RMLWYaH247oBEmX6f2QsVhZS17upAc0fE7euqUWeUKAQyeX3pVnNCVOZp
wDpNFCyXtL/2s7kgMiXMex8zRWHU3u1gMcYFEXbkeiWfKwoz8hE/KWhdEco1
LP5fkSgUVaSvmVO7IQN/zrKkV4vCfx2pLD1x7ogtpff3vj5R2GH4ghea9ET4
hD6O7g+Kgt6Lys80El5I32mBfvxnUYh7mCXD4eGFKDm3vQv5Igpjtb/K8ulu
I1RDnJlKC6IgceKXA4+WN1K/4pBovSwKb35O+MXneiOuVI2RCWuicGUzoFB7
yxsZUbb1Xdo63q+eU7eq8+8gRXlvDHJIsXA26+DFawZfxLieTrubAgvfbtIQ
th19EYZh83M71Fh4ObRBU9Lli9ympj6py4QFbj+6jDtxfsg5VyMWKn4s8Kl4
/7HC+yOzZ3a6XBSxIPMERzb3LAhJM9BqzjiFhWq/Nh5ObDCi5ZZX16GChQs0
Cv9hsoORV08uloggWAhVG1K2vXwPCaNNf/BZ+7h/2r3DZp37yGnsagDZNSy0
OJ9TyU26j6yoIrfl9LEgfrXd4cH4fUTffdEq0hQLDUpUe8G2IYjYqDKo2WGh
MgIzURAbioz9jj3l6IgFnogTZ85PhCIxdNOyqS5YeHP7+yobPgzZUosSWPfC
QubU13fnO8KQ1sKJvcJ7WIiopkbjOMIRa0//1wwZWMiWa3jD/ushoqTw9bVk
NhZkn9a4Tl6JROg24I1GHhZ+lUXzc76MRF56UNXce4oFIR+S4JU7UciB+6Pa
rSosSGyUXxviikH65bdqWd9ggfoSM+XbkBjkyW/DOtk6LIyYOashv2MQTXdM
vf17LOS5pSuhA7FIilvx28nu4zWjoVNXYTziIEfXsNuHBes7cdME5gRE9Zdz
A9cnLHwlUWP4qpWAzLgqvNMZO9bfSPknXXcCIu/6rrF1FgsbF+pPbH16hHx0
HvpQdoiFWLufgzc5kpAsglLzRxIxSCAdeR5imYS4r6Q1z5OLgb7Uq9HeF0kI
l7N5izCdGOzN5x2tXU1GrJwWW5O4xGASH6g3lZOC/Cet1VbJKwZcJf4MLX9S
EJrlirY+jBgEG39P2dZORV443m6nwYpBq0eK6nWyNOTA4agjQE4MGjPyJ577
pyP9klad6QpiUKEs/TxhKh15stja+eY/MSDTvRq9ChmIpkPUx99nxCBtqUZU
giETSbHn7La5KAb9mo48Sq+zEDk76T4tSzHYWkvmzZLOQ746CLmV24iB7i20
g84tD4lxZmdhshcD8yvOJYnVeciix/61flcxMC0ecSSBfKQgoPvztYBjfNVr
22O2TxDd4Pd3qoLFoLeR0J5c/QQhCanmZg8VA0WhlymJpAXIjYhMk+FIMai+
zSNtmV+AcCc6TRmmikFljHfo4u9CpD3pZlBNhhhcbqckqF0sQm6n6gnx5IgB
b7rzv4O8ImQw64zleKEYLHMsb44ZPkWii+nnrleJgZRqjl3FcDFy1PB8xaJX
DFgbDOIfCj5HKt7nxn4YOMa7XdWWG/8cMWt+LCs6LAbKU6IpcWRlSF2Hv/vM
hBhcOzf7jXWtDPH6dHnr1oIYjHrmy8dNViCin4nJ7ctiUGWV7ws3XiADoyeV
cL/EIKQ4y5X++wtEZorfd+HPMd6dGKC+8xL5+XN535FcHApO1D+yjq9EUpa+
ZXVTiUNJxOpM9lglcm51SI1AJw63/iUk0WKrkPyNt8GrLOJw+cdj+si3Vcj1
w2hyd0FxaP2V2l67X430sxHovZXFoax5m6zk3RvkrIvLYqaqOHQMJO7ycdUg
FR0VHc1EcRDeS9yac6tB4gJOhLFoiAONr9xWGq4W0ZpXOnyuKw58hclhdCV1
SAP4fvlkIA439K4HD9PXI4TMurpdY3H41Z6VLupRj9DrqN65cFMcfM4Pj1vB
W6SrDvk17SQOxvadNwQ3GhAVjtBeWjdxsDRPj622eoc8c219Lu8pDmyUKbn/
ht8hkdgL9kG+4lDvHig82NiIXIzV+sH7QBzun1nAc+g3IW0WRkM6OeJw3oNq
4cipGVF8m1bpky8OdYL/Ap5WNyOFnBPxOYXiwD9zrsn6oBkJ6zLTWnkmDm2K
n66dfNSCoIpWbRE14hATgL2U39mKVMUVFFTUH+srSxntw9uGiC7O3v/8ThwW
SxYUHzq1IaQ5dmexreKQSWhdd2JvR5qoXWoaB8ShWCHas8OzA5G3qkieGxIH
7UzD73u9HUhewy8vhlFxeJwbSPVIqhMJ9vCUN50SB9dJf6H9n53I2S8+pX8W
xaG/X6TI6nYX8rYiJJNALgEPfv0wKh3rRai0DPhSqSSg6r23Q5xhH3JtEZdO
SicBfn0OYeEjfchPbG/KCIsEuKtq7H+a7EfY07kT7wlKgDZu9tEq6SBirrTE
siwiAfdLx74+0xxESoca4g3EJeBpq2d7SuIgQmSyipUiSIDnxXPOTPhPiFNo
2cNhZQnI3n6/xmg1hLwRDqYmqkkA2fKq+UD1EELaeC28FCTgtn5H+TLVMJK6
sx0adEECJjQI9eqVw0iLCxKMN5AAlvv5RYLcIwi/8Yh3gLsE1MwLDxwQxhHb
PyVb814SYPyVxEE2dRypTPT3uuYjAZwF7utC5BPIhV5hD4kgCZg8t+Bt8X0C
8UKdnAeiJYCQo/1WpnISafymtqwSLwFr/o+cFaWmENpAFseiRAlwjljJVi6a
QnJrXtvdTZeA9K4Pmpb5X5FuAom1WLEEdFxvYY81+Y5wdX36EfdMAhqHC8TD
cr4jlnZFFrvlEkC5ZSqYM/sd+Zt/ybzvlQRsf22iuHL7B4LlTjbxbT5e/3H5
iX8yjfiTSun0TEkAzvAvwVl1Dpk/Rz8m8UMCmg8gxiRpDtF5uHLz/qwE8J4g
369anUPEmF+4KS1LgP/Oj7IPhfNID0YxPm9HAlRJNYx2xRYQJQtO7v19CdD0
eRCy/nABySvYzjE4kgCdt0HpEWsLiLdUXQUdFQ4EHme5lDQuIoKnz/bdZseB
q2ImY7DXMvLQX8iwnwsHUjhSFfzcMrLRSPJVkg8H7VTRZCXGK0jH+ZbVr8I4
6FQq2dU8v4q4611k1JTFQeN6ZODWf7+QZlddLQFNHBhoxKgKNK4jhKqTwz5a
OLihde79Y+oNJOUPh9mnqzhYuz7toqK7gTgFjDpFGOLgfOwEC2F5A+GIMote
t8bB0gMqdTnCFhLUq8auZYcDtfgg99fBW8gCi1DmU0cctFgZeSYPbyHvUn88
u+6BA6rTGw5+IX8Q2yLbrrYgHMzHCcd5/dpGBhYu6AqH4MAr9izO8cpfRIUg
OXH3AQ5omNvWFyv+IszVy4tyMTig679TlHN7B6ltcqfNSMfBk+h8qWT2PYRu
8u5F11c42CzMUxsrOkSUfEoZ42tw4Lnz88UFnn+IJdvYpxf1OIgku/nZPeYf
UnvxvxvrTTjov07/l+7uEWL7+pfH7d5jfAG9b+Nfk6CJOoKnkgdwMCsXfZ1p
mwR9t6x18HoIB8F9ZssPTpGiHKLPwv+O48CEyL/q+o4U/RBnk3l3Hgcb8z0y
yZ/J0BXJxxaZiziQYHmbd0GQHOVp+yDesIID8scVZWz25KjrvuDLww0c/KQ+
HUN+RI5i7Mdb7x3hICb293qXCiXqi1xZC+fBQzHJjZeHq9Ro4WRAdTE/Hm4k
dC6bXqJB+32e+3YK4oExI64UU0KDSlTQkNOJ4+FNzQlkxo4WHeJr4Y49gYfy
1aR4nl069N/r9clyRTy4+fYfKVrSo1LXhJ/0ncLDtMFLzZkuevReRCCB5Swe
MFfIGhkLGFDZrVPI40t4CDE4V6hpx4SaxttSvdLGQ1+mRmPBJBP6QCq5e1gH
D1nTd3qb9ZjRSYsNAy4jPNznDs18jWVBo3rLHNOt8RB688H9ZFFWdO6pSFJu
AB6kCj498NVhR1fCfuyS38ND06lRgnk+O7phlX/TPhQPOz9FSlM22VESIRHp
E1F4ULJ5eIsriwPlSxVubk7Fw69yps31Q05UxPs7DpeJh0vkr8qYTLlQvF5e
bHQOHpysfiuW13Ch/zELm+gXHfMzt6eP9OFGdSKEfs9V4aEwuQLvRceLGt36
ZnDpDR70rqUe6HvxoubquW8r6vBQ/yWaf22KF3U6EozwacLD4+RIHutaPjTc
R1CQtg8Pb68YfcKHYtAGOwEtwiIeOCXyUyLPCKMt56cqE1bwsFLx+3N4sDDa
hc3m/vMLD//4T03ktQqjo98wM++28fCAhXNBTVcE3TDC3L1KIQkqD066FPiL
orv/TX6rppYE7SWdQsaPoigJR9Z5HnpJiCce8DVwY1HGAX7WH6ySUCaWwrlf
i0XxF/lLPIUkYcU2wzCTXhyVk/jCOCoqCTstA3QfrMVRJYpMrzMSkjC4oLlh
9E4cVW/iI1LISILi1ufs9dsSqPlpvpFkFUk4sFicCN3GoUl4Xoo6A0m4+GrN
d+eiNGpmLlE8Y3yc73NnLbVaGhVLOnmJyUwS3vxIpB8TIqCvjrQTrK0kYatD
ul3vkIAOj4RgmNwk4frFEw/We2TRLIaE96c9JaGlWG1U+7wcaoNmW1l7S0J9
zWjwvfdy6FZ5TUmtvyTQs14ZbjaTR9kfrChaP5SEZzllL9ysTqAT9bujsdGS
UMP/36j50xPok99U/rVxksCj/OOO0fIJVMFM5ANjsiRwFexYe/sqoLonDbVr
8yVBakHp5njuSTTxx/tbjG8lQWaZLVEMp4SacvfSnG6UBAm302uvA5VQUe2J
51YfJAGfefZx+mcltKp2a72mQxLmZwa9nCNPoZ/iJYOsho/1JHkqM0KqjGa0
KYnEjh7rdTZhPs5aGbXaV2+tmZAEaynToLZ2ZXTD1pyO8YckBGnaVLU8UkFZ
zz5OqVmVhBhOQbZyFVV0zCtPefq3JNjuuTEelqiieaXlkwxbx/jfafAf8Kih
8pydolZ7krBqrD8h8k8N1Vk5qGCgloLSrt9xXVNENCHDtsNSWAouKvdRuR8g
qM+dEK8ArBQMH+IP9RAUNdfNEUqVkIKGpr8DxAgUJdCN+PQQpGBJ+fnSWS51
9KPfefwpZSlg96JQ0kbOoS8NLIevqUoB3xke0um4c2jaicB7zkQpqLkpv5k7
dQ61XXw1ln9eCrqyOSVKg86jZCZikQy6UjAqIRXi0a+BLirCfzgDKfA5o9vb
L3EBHWAx+4EYH/fLYG0ICL6A5nY+VvYxl4JG4dCcEcWLqOpp8qUfjlLwrxBx
53+piXpzT1+qCZWCrfh0llerWqjZ5uH2YLgUhI/F3blvpo2e6+ctWImUguW8
DeRvjzbKFnFtXyRBCiTLLCL+VF1BK7abnsdkSYH/VXn9PU0dNPnTpFFxrhRQ
xPKcNn+ogwZU7JA3P5ECccbX7JUdOuhlW3mzvyVSQN6+yKCgeQ1d+JzLYPVa
CujeZsfSGOui/ZVvawNqpSB1v874co4u+iZ21Cb1rRQYnqVDMud00bDzzO96
PhzzVW167Omjh4q8DnI51ScFQnivUa8SfdQ06UYfw08paJIscsxUN0Ix1XT8
TktSkFnyPul6oRH6bbDG7uPqcb5CFqaCyhi1YWYjDd+SAr/rauFiA8aoa1T7
ySNSaUB9uB9x+Jii8qVe925QSkPsSbkPYnOm6GaHcO9bGmlISDEo+6d/HfWl
9Lf1ZZYGk3HeRzIqZmjIPbn0dYw01IrdCrnKb46ey52cuyosDe5vnIvD0sxR
6sZIhQqsNIw8pwxt5r6JxuzPdDtKSQP3UZK0GpMFmnIn7d/MKWmIGLhBvyBk
iZY6k9qM6ErDYctXfUF/a9Q5uuKloqE0TP+zfy/aY43KPrt+mGgiDe/ycLy+
gjZo1c/XKVctpOGn3r9k6Q4btMHK8WOnizQIhVU81Ze0RYPuc3PhPKSBXyt0
OuiBLYrktVo9uH0cX3nggJ+xRdunBA8Qf2m4znt4g63ADh0wHpJ9+1Aank68
f7b9nwOa6HPPnzdGGqQ+cd/qz3FADVJkOn3ipaEo6hHejNYRnRiKsFRMkYY5
yn21ihlHdPaKalJ5gTRw3o3WJ6twRnfOFe3mNkqDjXV3tpCOOxrwNje09YM0
yO35iVnHu6MkChmMi63S0ErnRJ7V745SC8WLKHRLQwzjzTcHuh4o166vZuuo
NDBOO2fM3fJEM9y8hhYmpEG7XlGaWO6JCsy73GD8Kg1dIlj38j+eqNiQlYfh
rDSw6dEuj0V6oSfLtdIXfkvD4pwx69z72+gb7AUs45Y0SDx5gNxg8UZVMpDy
E3+l4T5DTyijlTeKRih9uHsoDUw+h8qStHdQHUvhRQY6AixQ+JqP2Pqgrpxb
p09gCSC1LaoQb3MX3YheazaQIEBABNPuYtdd1JtsUeuuJAG86x5XDir4owG/
pixa5Aig/PYGxoI6AI3+2PHQQJUA9SZ3aXGtgSgTNLPdJRJgVzXyV8qpIDTx
TUNWDkoAxYwHoe1lQWhGQeXLnxcJUBAt/js4KxgtCcwc8zMgAO0hBZ7l4z2U
sJVslWNMAN1H96rxdPfRl44JK83XCdCnIlOlpnUfrTF6QMJgRYAiIyob56H7
aPsJN3yOKwGSuvwsL6+FoDNzqG9zBAGcnDh+1Jk8QNHcvidS0QQ4dBHbiKp+
gOYZm/YmxhHgV2/f+GemcNS820PUOpkAYUuUAhsfw9GJl3k95AXHeszJf9rR
fYgqOxL+Oj095uf+TEOr7iGahq0VGS4lQNOR+4krIpGoYUr/ncKXBKgbFB/y
245EP/n/Ez7fSABtzWdtam+i0RP/RV0u/0AA95Th/EGpGDRhjfMOZxsBdH5f
XriaH4NesZTpnusmwG9LPTZCUizapWHmHT5OgNjeSztaifFoM2v9x44tAgTL
8j8+2H+EinSf35LbOdb/y1Rw4YVE9F7YoGDaPgEcN7gro5IS0bN/F7zsyWRA
TdF2WkLhMVo/yS1IyyIDXk7BbkqBSShvSsFFD3YZiLl6csJuKAn1vSrnNc4l
A6tuAlPk0smoUrNGZ6mADMhNU2Y8/pqMVhV7e16SloFXEfw0741SUVZL0uwq
WRn4k8VVsF6XirrzxXbwKciAHetdww8CaahsbCFm+bQMkNGjl/SW0tBnnkPt
0RoysBFpm06VloE+UTvB32spA5K2U5OntXLQ5it0ofs2MnC4OoYntOSg0zdn
liTtZaCTwHxn40wuig1Jrg93lQFkW8wpijcPLWzfNQF/GbDUrhQATD7aOvrp
g2uQDPy3QCPvcjMfnV14Lpl9Xwb07/74l1+Qj4rRm+/uRshAdP975pNyT9Ci
q81p1Uky4Fq/pmivV4C2W2SSTKfKALbXePtCbgE673HbniVTBmrCjDOurRSg
EkkSp13yZSCZnnZ6K7IQfToWNSpRIQNPC7iGj4aK0BJLPa6MDhnQKV6ViCwu
QTs9CUGdXTLAJJQfpU9Tii6EUs5v98rA0Bm7zUzHUhT/tOa13rAMCHTsqrw5
+QwtXeI3YPwhA9oF2eEfxp6jXftbDWdmj/VE9Mw4NcrQJYY+Mcefx/0g04nr
dRkqJXdvq31VBpLcbxWppJWjz7xmH9/bk4GDk6MXu7xeoF1h7/YrDmUg7d/8
v/O/XqBLySnWUySykHBAiugpvUSlay+eVKGWhVN81HPpb16iZQdlnzbZZQGH
/ekk3VKJlj/wZrWTkYUzJQyWv5lfoSuqN0IeyMvC0YEIj8SNV8f389xmwUlZ
+MvTvRn2/BX6zIrj83dlWRBMUKIZuPwaLSFWp5lqyEKtQCyZQOYbdGE7g9ZP
UxYUKhvaMRtvUFxFyN1ULVkQ+85k5nSpBn2K0TUb1pWFc/cq5WiPatDC3d9C
V27KAu2PD2fHfevQ2ZdjCc5WsiCLFPV8n6hDsfZNpNG3jvGv0eVanq1Hn4zE
z3Q4yYKyw8zIHO1bNLdathjxlYV7BiKfsqob0AwXZ9n/HslCSXRidrp0Ezoh
pp+rlyQLQru/F4YdmlDeyTMsnqmyIEpkenVU0oSmXaLfqMiWhcABpbMKUh/Q
ZNyz1/hnx/FCGDuv083o8NdHEhfKZSE0Wik1MagZ5UjxS731Uha8S54Vvm9r
RhMpNP2evJGFP5+C8/WMWtCEHz9VMS2yYHS9PncsohUdSOsvV2mXBaaGjN4v
I60os06NoMlHWbiMJ2FhxrWhcY3hJCn9smDfcUjg6W5DYzLFW5knZQEb8ldS
WbQDjTCwvkz+Rxa6akQ/cLF2oU+uTprd2pGF/V/+TLuBXWiDpoFrx74s9FaJ
yz5Z6UI31C48iiaTg4CgL1W2/d2omYT0KDuLHCifvXI94Xkv6iNcuODNLgds
rRsbwbg+NJFPYG+USw6m8I9UvYv60A4mZoEsATnof7j4KbG4H1X4u2ElJi0H
7KJ5LzumB1Dtdafb4bJykN70wEdHchC1X559sHBCDmwXWr8duQ+i2d9GSspO
ywGztPTMHPknlKbz+OJpyMHOEKeB6ekh9GtayN3zlnIw/GbD8+H3z+hu4n50
sY0cWCxzxi2dGUE5Ym9n09rLwbdriGVX2giqed+2qddVDlaXyk5ijEbRVw6X
qAwD5EBHnc/l3fwY2m/dwl0bLAcKc/SBH66Mo0s3VCX5QuXgrk0xrW/tOCqk
K6v1NfKYjxAPG++jCTRKhS3RNlUOPgv/a9sxmkSLFKMLOjPkgLeLbfxG3yTa
JEvxWipHDlIXPvtWakyhf0S3R9cK5SBe3bDjnNpX1IJ+QsCnSg42dGP+hYh8
R/+bzC+N6JUDadp3bOZm0yiLrP3OiwE5ILk9XrNQMI2uBMteGBuSgzN/CgWj
VqbRQuzbWfyEHLzI81ARvT+DcjgNC3XNH/PD4lNFa2fR3w0ZrhuLclAsPtI2
RTOH9jBZvuNblYMv/DVhQ6ZzaFjVqqnTphys1Zit3CebR/cCyC9TkcjDpKoN
r7flT3ShyNYzg1Qe9n4BaXzDT3Sk72O6LLk8CGac+0HPu4BWCScsGFLJw0/p
s2fOjSygjq2Y8GIGeeAi8n29bLWEjtMrfbjIKw85PcXvZ9tW0XbF9IVJPnn4
QsmwOK+8hr66ccDsgZGHKGk57vIXa2jCi2bzdCF5UJbIEMnP+4Ve1Lt6sCgu
D2dF+fJ9en6jSgFV2CCcPCy8DOdeYVxHxYo4L7NJyoPcmmbaTZ11lOTvl3QV
gjxgYreu6I2to7UZ9qeiFeSBpWCC+uvWBvq0pdtcSFEelBzNf9Sf3USTVmTD
q/+Th7vWkxE1kZuo+9k/w19Oy4Nfp8UnEewWip++70kgyoPGeo6Gss0fNE0y
s7z38jGfiMOSp9gddGtToyhUWx6WR/S1CyN30KuNG1nKV+VBxD9iSmd9B6XS
uxRTpCsPXyu1dIfadlHvgF3HQBN5GPCyOqEVto8OaBRZnbwuD0Xzjxjjd/ZR
Aus100UzeZDeHBB+53qAzhaVaBpYyAP1/r2AfYtDVLffCC9jJw9LM/kpKzeO
0Ip0cuEZe3lAKMoHvaaPUFqbF9zpjvJAw3stOFmRRL1ph4qa0vXYH2MmUdxI
oi4n+mZu8rY89PPF5tR/J1Vn8OYoiAmRh4YzVas8lhTq9sSmDDRMHiyyg16c
rKFQb6F1Ttx5IA+PQoTO1jNRqt/NablvEykPPMGp30SbKdUXOzwtVBPkwZpU
oITlDLX6uURB441H8uAgkJV+KptaPc+s62rJY3m40rJ59pCERt14XYTIkSoP
vEolovd6adTb+QYFVrKP48seSEv706mLzgVwPsmVB6fRO58Zl+nUA1/gGY3z
5cGtN1r5oxm9uuK5ewcthfKg66UZvnieQf2Ji9yXzOfywJGtNF0lx6Qe3BSb
drlOHrAFffR+iqzqS1NNSbv18nAx8eDusD+ruuH+ZkJxgzyomnyfMmplVSco
mUaSNx3jwQU2LRqzqY89l7j7tl0ePt/Okm9LYP9fAIEAfv9DQ8lZdmnIMEBA
qofu6uETQ67mjHIXyjBA8Ff+OmE0FEOFIfNqc80wQOhmpGVV3RRDMpe/WyvU
MED2gVFT+j8WQ5208lfZ1TBAcxIYPkKcFkMI0iVUh9cwQOWAa+QI+hZD3wyM
TOPaMECzlP5KK7oXQ7OFOIfm2jBAOqLgIu26F0OTLvGt
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 20}, {0., 1.6698630298768785`*^15}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.523187131228683*^9, 3.523187143059006*^9}, 
   3.523187694402921*^9, {3.523190551616188*^9, 3.52319055714164*^9}, 
   3.523190610297086*^9}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
    "Busqueda", " ", "automatica", " ", "de", " ", "estados", " ", 
     "ligados"}], "*)"}], "Section",
   FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"solution2", "=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1.", "2."]}], "*", " ", 
            RowBox[{
             SuperscriptBox["y", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "x", "]"}]}], " ", "+", " ", 
           RowBox[{
            RowBox[{"V", "[", "x", "]"}], " ", 
            RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", 
          RowBox[{"Ener", " ", "*", 
           RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", " ", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SuperscriptBox["y", "\[Prime]",
            MultilineFunction->None], "[", "0.", "]"}], "==", "1"}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0.", "]"}], "==", "0."}]}], "}"}], ",", "y", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], " ", ";", "\n", 
    
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"y", "[", "x", "]"}], "}"}], "/.", "\[InvisibleSpace]", 
        "solution2"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], " ", ",", " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Ener", ",", 
       RowBox[{"-", "3"}], ",", "\"\<Energy\>\""}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}], ",", " ", 
     RowBox[{"-", "0.05"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.523191690675867*^9, 3.523191738204468*^9}, {
  3.523191769570843*^9, 3.523191834989634*^9}, {3.523191878053752*^9, 
  3.523191938946342*^9}, {3.523192026309103*^9, 3.523192030783916*^9}, {
  3.523192062103298*^9, 3.523192107117128*^9}, {3.523192166632808*^9, 
  3.523192168458055*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`Ener$$ = -2.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`Ener$$], -3, "Energy"}, -3, -2, -0.05}}, 
    Typeset`size$$ = {360., {94., 99.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`Ener$28197$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`Ener$$ = -3}, 
      "ControllerVariables" :> {
        Hold[$CellContext`Ener$$, $CellContext`Ener$28197$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`solution2 = 
        NDSolve[{(-(1./2.)) 
             Derivative[
              2][$CellContext`y][$CellContext`x] + \
$CellContext`V[$CellContext`x] $CellContext`y[$CellContext`x] == \
$CellContext`Ener$$ $CellContext`y[$CellContext`x], 
           Derivative[1][$CellContext`y][0.] == 1, $CellContext`y[0.] == 
           0.}, $CellContext`y, {$CellContext`x, 0, 20}]; Plot[
         Evaluate[
          ReplaceAll[{
            $CellContext`y[$CellContext`x]}, $CellContext`solution2]], \
{$CellContext`x, 0, 20}]), 
      "Specifications" :> {{{$CellContext`Ener$$, -3, 
          "Energy"}, -3, -2, -0.05, Appearance -> "Labeled"}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {138., 143.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.523191753567355*^9, 3.523191771450735*^9}, {
  3.523191813683064*^9, 3.523191836423805*^9}, {3.523191881277105*^9, 
  3.52319188647496*^9}, {3.523191927852486*^9, 3.523191939514738*^9}, {
  3.523192012829798*^9, 3.523192031314139*^9}, {3.523192080640652*^9, 
  3.523192107771534*^9}, {3.523192169781075*^9, 3.523192198385622*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"Ajuste", " ", "fino"}], "Subtitle"]}]], "Input",
 CellChangeTimes->{{3.523192514589792*^9, 3.523192517739056*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"solution2", "=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1.", "2."]}], "*", " ", 
            RowBox[{
             SuperscriptBox["y", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "x", "]"}]}], " ", "+", " ", 
           RowBox[{
            RowBox[{"V", "[", "x", "]"}], " ", 
            RowBox[{"y", "[", "x", "]"}]}]}], "\[Equal]", 
          RowBox[{"Ener", " ", "*", 
           RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", " ", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SuperscriptBox["y", "\[Prime]",
            MultilineFunction->None], "[", "0.", "]"}], "==", "1"}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0.", "]"}], "==", "0."}]}], "}"}], ",", "y", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], " ", ";", "\n", 
    
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"y", "[", "x", "]"}], "}"}], "/.", "\[InvisibleSpace]", 
        "solution2"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}]}], "]"}]}], " ", ",", " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Ener", ",", 
       RowBox[{"-", "2.6"}], ",", "\"\<Energy\>\""}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}], ",", " ", 
     RowBox[{"-", "0.00005"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.523192224348254*^9, 3.523192374039838*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`Ener$$ = -2.5978999999999983`, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`Ener$$], -2.6, "Energy"}, -3, -2, -0.00005}}, 
    Typeset`size$$ = {360., {106., 111.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`Ener$56285$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`Ener$$ = -2.6}, 
      "ControllerVariables" :> {
        Hold[$CellContext`Ener$$, $CellContext`Ener$56285$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`solution2 = 
        NDSolve[{(-(1./2.)) 
             Derivative[
              2][$CellContext`y][$CellContext`x] + \
$CellContext`V[$CellContext`x] $CellContext`y[$CellContext`x] == \
$CellContext`Ener$$ $CellContext`y[$CellContext`x], 
           Derivative[1][$CellContext`y][0.] == 1, $CellContext`y[0.] == 
           0.}, $CellContext`y, {$CellContext`x, 0, 20}]; Plot[
         Evaluate[
          ReplaceAll[{
            $CellContext`y[$CellContext`x]}, $CellContext`solution2]], \
{$CellContext`x, 0, 10}, PlotRange -> {-5, 5}]), 
      "Specifications" :> {{{$CellContext`Ener$$, -2.6, 
          "Energy"}, -3, -2, -0.00005, Appearance -> "Labeled"}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {162., 167.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.523192233162813*^9, 3.52319249369833*^9}}]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{801, 892},
WindowMargins->{{104, Automatic}, {Automatic, 51}},
FrontEndVersion->"7.0 for Linux x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 231, 7, 41, "Input"],
Cell[CellGroupData[{
Cell[801, 31, 638, 19, 82, "Input"],
Cell[1442, 52, 20422, 340, 227, "Output"]
}, Open  ]],
Cell[21879, 395, 238, 7, 41, "Input"],
Cell[CellGroupData[{
Cell[22142, 406, 1496, 42, 128, "Input"],
Cell[23641, 450, 499, 15, 31, "Output"],
Cell[24143, 467, 22275, 371, 223, "Output"]
}, Open  ]],
Cell[46433, 841, 238, 7, 41, "Input"],
Cell[CellGroupData[{
Cell[46696, 852, 2114, 56, 186, "Input"],
Cell[48813, 910, 2424, 49, 298, "Output"]
}, Open  ]],
Cell[51252, 962, 208, 4, 85, "Input"],
Cell[CellGroupData[{
Cell[51485, 970, 2015, 56, 186, "Input"],
Cell[53503, 1028, 2188, 45, 346, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)