tecnicas_numericas.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<div class=\"alert alert-success\">\n",
    "Este notebook de ipython depende del modulo `vis_int`, el cual es ilustrado en el notebook de [Visualización e Interacción](vis_int.ipybn).\n",
    "</div>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "['Box', 'Button', 'FloatSlider', 'HTML', 'IntSlider', 'Latex', 'Markdown', 'Math', 'Text', '__builtins__', '__cached__', '__doc__', '__file__', '__loader__', '__name__', '__package__', '__spec__', 'clear_output', 'cos', 'discretizar', 'display', 'exp', 'fixed', 'graficar_autofuncion', 'graficar_autovalor', 'graficar_funcion', 'graficar_potencial', 'graficar_punto_texto', 'interact', 'interactive', 'link', 'log', 'pi', 'plt', 'potencial', 'sin', 'sqrt', 'tan']\n"
     ]
    }
   ],
   "source": [
    "from vis_int import *\n",
    "import vis_int\n",
    "print(dir(vis_int))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Técnicas Numéricas\n",
    "\n",
    "Para el desarrollo de los modelos expuestos en los cursos de mecánica cuántica y física moderna, se recurre frecuentemente a funciones especiales y técnicas de solución matemáticas que en su operatividad pueden distraer el objetivo del curso y el adecuado entendimiento de los conceptos físicos en medio de las herramientas matemáticas.  \n",
    "\n",
    "Con esto en mente, el uso de técnicas numéricas simples puede apoyar significativamente el desarrollo de los cursos, teniendo como ventaja la reducción a formas matemáticas simples (los métodos numéricos llevan a aproximaciones con operaciones aritmeticas) y funciones simples (las funciones se aproximan a funciones mucho más simples, generalmente polinomios). Esta reducción facilita además reducir a una sola técnica multiples desarrollos, ya que las diferencias no van tanto en los detalles del modelo original (como si dependen las soluciones análiticas) sino en los detalles del tipo de aproximación general.\n",
    "\n",
    "Se exponen las soluciones numéricas de los siguientes problemas, útiles para el desarrollo de problemas 1D de mecánica cuántica.  \n",
    "1. Búsqueda de raíces.  \n",
    "  + Bisección.  \n",
    "  + Incremental.  \n",
    "1. Ecuaciones diferenciales con valores de frontera.  \n",
    "  + Método del disparo con algoritmo Numerov.  \n",
    "1. Adimensionalización.  \n",
    "  + Unidades atomicas de Rydberg.  "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Búsqueda de raíces  \n",
    "\n",
    "Los problemas de búsquedas de raíces corresponden a encontrar valores que al evaluarse en la función de interes generan como evaluación el valor cero. En la mecánica cuántica nos encontramos con la particularidad de requerir el calculo de raíces para determinar los autovalores de energía de un sistema en su planteamiento continuo (representación en el espacio directo). En estos sistemas de interes, de estados ligados, la energía del sistema se encuentra entre el mínimo y el máximo de la energía potencial a la que se encuentra sometido en el espacio, $$ V_{min} \\leq E_n \\leq V_{max}.$$  \n",
    "En caso de ser el máximo $V_{max} \\rightarrow \\infty$, el sistema posee infinitos autovalores que se encuentran con la condición $V_{min} \\leq E_n$.  \n",
    "\n",
    "Para cualquiera de los casos, se presenta un interes en encontrar estos autovalores de manera ordenada, y esto lleva seleccionar los métodos de búsqueda cerrados por encima de los métodos de búsquedas abiertos, ya que en estos últimos la selección de un valor inicial no asegura la búsqueda en cercanías de este o en una dirección dada, por el contrario en los métodos cerrados se puede limitar la búsqueda a una región de la cual tenemos conocimiento que se presenta la raíz (autovalor de energía).  \n",
    "\n",
    "El uso combinado entre el método de búsqueda incremental y el [método de bisección](https://en.wikipedia.org/wiki/Bisection_method), con un paso adecuado de energía, permite cumplir con el objetivo de hallar todos los autovalores (cuando los límites de energía son finitos) del sistema de forma ordenada, y con precisión arbitraria (limitada solo por la precisión de máquina). Para ello se inicia en el intervalo de búsqueda con el método de búsqueda incremental, el cual al encontrar un intervalo candidato a raíz (un intervalo que presenta cambio de signo entre sus extremos), refina el resultado mediante la aplicación del método de bisección en el intervalo candidato.  \n",
    "Forma iterativa de búsqueda incremental $E_{i+1} = E_i + \\Delta E$.  \n",
    "Forma iterativa de bisección $E_{i+1} = \\frac{E_i + E_{i-1}}{2}$.  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def biseccion(funcion, a, b, tol_x = 1e-6, factor_ty = 1e2):\n",
    "    f0 = funcion(a)\n",
    "    f1 = funcion(b)\n",
    "    if abs(f0) < tol_x: # Se verifica que los extremos sean raices\n",
    "        return a\n",
    "    elif abs(f1) < tol_x:\n",
    "        return b\n",
    "    else: # Si los extremos no son raices, se bisecta.\n",
    "        c = (a + b) / 2.0\n",
    "        f2 = funcion(c)\n",
    "        while abs(f2) >= tol_x and abs(c - b) >= tol_x:\n",
    "            if f2 * f0 < 0 :\n",
    "                b = c\n",
    "                f1 = f2\n",
    "            else:\n",
    "                a = c\n",
    "                f0 = f2\n",
    "            c = (a + b) / 2.0\n",
    "            f2 = funcion(c)\n",
    "        if abs(f2) < tol_x * factor_ty: # Se verifica que efectivamente sea raiz\n",
    "            return c\n",
    "        else: # En caso de ser asintota vertical con cambio de signo\n",
    "            return None\n",
    "\n",
    "def incremental(funcion, a, b, delta_x = 1e-4, tol_x = 1e-6):\n",
    "    c0 = a\n",
    "    f0 = funcion(c0)\n",
    "    c1 = c0 + delta_x\n",
    "    c = None\n",
    "    while c == None and c1 <=b: # Si no se ha hallado raíz y se esta en el intervalo, avance\n",
    "        f1 = funcion(c1)\n",
    "        while f0*f1 > 0 and c1 <= b:\n",
    "            c0 = c1\n",
    "            f0 = f1\n",
    "            c1 = c1 + delta_x\n",
    "            f1 = funcion(c1)\n",
    "        if c1 > b: # Final del intervalo, equivalente f0*f1 > 0\n",
    "            return None\n",
    "        else: # Sub-intervalo con cambio de signo\n",
    "            c = biseccion(funcion, c0, c1, tol_x) # Se invoca bisección para mejorar aproximación\n",
    "            if c == None: # Si el candidato era discontinuidad, incremental avanza\n",
    "                c0 = c1\n",
    "                f0 = f1\n",
    "                c1 = c1 + delta_x\n",
    "    return c"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Se observa en la implementación del método de bisección, que se considera una revisión extra a los códigos tradicionales, con el fin de validad si el candidato a raíz realmente lo es. Esto se requiere ya que es posible que la función asociada a la discretización de la energía posea discontinuidades alrededor de las cuales presente cambio de signo.  \n",
    "Notese que la teoría clásica de métodos numéricos indica que estos métodos se aplican para funciones continuas. En este caso que esperamos discontinuidades dadas por cambios de signo a causa de divergencias al infinito, se pueden remover sistematicamente notando que a medida que se converge al candidato a raíz (tamaño de intervalo menor que la tolerancia), la evaluación de la función en este valor es significativamente mayor a la tolerancia, y cada vez su evaluación es mayor a la anterior.  \n",
    "\\begin{equation}\n",
    "E \\in [E_i, E{i+1}] \\wedge \\Delta E \\leq tol \\wedge \\begin{cases}\n",
    "f(E) > tol, & \\qquad\\text{Discontinuidad}\\\\\n",
    "f(E) \\leq tol, & \\qquad\\text{Raíz (autovalor)}\n",
    "\\end{cases}\n",
    "\\end{equation}"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Una vez se obtiene una raíz, el método de búsqueda incremental continua nuevamente avanzando hasta encontrar un próximo intervalo candidato, al cual vuelve a aplicarle el método de bisección para distinguir si es raíz o discontinuidad. Este proceso se continua hasta el límite superior para la energía, $V_{max}$.  \n",
    "Para la busqueda de un autovalor especifico, se requiere buscar todos los autovalores anteriores. De manera que se requiere de una función auxiliar que medie este progreso dada un modo. El caracter progresivo sobre las energías ofrece la ventaja sobre técnicas de autovalores, de la posibilidad de obtener los autovalores ordenados de manera natural."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def raiz_n(funcion, a, b, N, delta_x = 1e-4, tol_x = 1e-6):\n",
    "    c0 = a\n",
    "    cont_raiz = 0\n",
    "    while c0 < b and cont_raiz < N:\n",
    "        c = incremental(funcion, c0, b, delta_x, tol_x)\n",
    "        if c == None: # Si incremental termina en 'None', no hay más raíces\n",
    "            return None\n",
    "        cont_raiz = cont_raiz + 1\n",
    "        c0 = c + delta_x\n",
    "    if cont_raiz == N:\n",
    "        return c\n",
    "    else:\n",
    "        return None"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "A continuación se ilustra el uso de la técnica con la función trascendental del problema del pozo finito simetrico con paridad par, que en la forma adimensional corresponde a:  \n",
    "$$ \\sqrt{E} - \\sqrt{V_0 - E} \\tan\\left( \\frac{\\sqrt{V_0 - E}a}{2} \\right) = 0, $$  \n",
    "con $a$ el ancho del pozo, $V_0$ es la profundidad del pozo (con referencia desde cero por convención)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/latex": [
       "\\(E_3=8.661879687493155\\)"
      ],
      "text/plain": [
       "<IPython.core.display.Latex object>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAZAAAAEACAYAAACd2SCPAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAALEgAACxIB0t1+/AAAIABJREFUeJzt3XuUVOWZ7/Hv0zQ3QQEvoCIKKghesAUlRsfYjEkkJ0bD\nZCQazxiCJsYYL5lJVDJnQs5JMolJxmASzc0I6Ch4WYmaGZYxEdqomQgijReuGiGAghcQBEQb+jl/\nvLt4C2igu2r3rqqu32etWrv2rl3Vb/264Ol3P7WrzN0RERFpq5pSD0BERCqTCoiIiBREBURERAqi\nAiIiIgVRARERkYKogIiISEFaXUDM7Agzm2VmL5rZ82Z2TbK9j5k9amZLzOz3ZtYr7z4TzWyZmS0y\ns4/mbR9hZs+Z2VIzm5zuUxIRkSy0ZQayDfhndz8B+CBwlZkNBW4E/ujuxwGzgIkAZnY8MA4YBnwM\nuM3MLHmsnwGXufsQYIiZnZvKsxERkcy0uoC4+xp3b0yubwIWAUcAFwDTkt2mAZ9Mrp8PzHD3be6+\nHFgGjDKzQ4H93X1ust+defcREZEKUVAPxMwGAnXAX4B+7r4WQpEB+ia79QdW5t1tdbKtP7Aqb/uq\nZJuIiFSQNhcQM+sJPABcm8xEdv0sFH02iohIFahty85mVksoHne5+0PJ5rVm1s/d1yaHp15Ptq8G\nBuTd/Yhk2562t/TzVIxERArg7rbvvYrT1hnIHcBCd78lb9vDwPjk+meBh/K2X2RmXcxsEHAsMCc5\nzLXBzEYlTfVL8+6zG3fXxZ1JkyaVfAzlclEWykJZ7P2SlVbPQMzsTOAS4Hkzm084VPV14CbgPjOb\nAKwgvPMKd19oZvcBC4Em4Esen9lVwFSgGzDT3R9J5+l0XMuXLy/1EMqGsoiURaQsstfqAuLuTwGd\n9nDzh/dwn+8C321h+zzgpNb+bBERKT86E71CjB8/vtRDKBvKIlIWkbLInmV5vKytzMzLeXwiIuXI\nzPAybKJLiTQ0NJR6CGVDWUTKIlIW2VMBERGRgugQlohIB6NDWCIiUtZUQCqEju9GyiJSFpGyyJ4K\niIiIFEQ9kHYwaRL8679Cly6lHomIVKOseiAqIO2gRw946SU47LBSj0REqpGa6BWquRm2bAmXNOn4\nbqQsImURKYvsqYCkbOvWsEy7gIiIlBsdwkrZG29A377wP/8Dp59e6tGISDXSIawKlZt5aAYiIh2d\nCkjKNm8OS/VA2o+yiJRFpCyypwKSMs1ARKRaqAeSsscfh/p6uOMO+NznSj0aEalG6oFUKM1ARKRa\nqICkTD2Q9qcsImURKYvsqYCkTDMQEakWKiApy81Acsu01NfXp/uAFUxZRMoiUhbZUwFJ2ZYt4UMU\nNQMRkY5OBSRlmzfDwQerB9KelEWkLCJlkT0VkJRt2QKHHKIZiIh0fDoPJGVXXw2LF0O3bvC735V6\nNCJSjXQeSIXSDEREqoUKSMrUA2l/yiJSFpGyyJ4KSMo0AxGRaqEeSMrOOQcuvBB++MPwtbYiIllT\nD6RCaQYiItVCBSRl6oG0P2URKYtIWWRPBSRlmoGISLVQDyRlhx0G8+bBUUeFItK5c6lHJCLVRj2Q\nCrVlC/ToAfvtp1mIiHRsKiApcg89kP32S7+A6PhupCwiZREpi+ypgKSoqQlqasJhK81ARKSja3UB\nMbNfm9laM3sub9skM1tlZs8mlzF5t000s2VmtsjMPpq3fYSZPWdmS81scnpPpfRysw8Ih7HS/E4Q\nfddBpCwiZREpi+y1ZQYyBTi3he03u/uI5PIIgJkNA8YBw4CPAbeZWa6h8zPgMncfAgwxs5YesyLl\n+h+gGYiIdHytLiDu/iSwvoWbWur0XwDMcPdt7r4cWAaMMrNDgf3dfW6y353AJ9s25PKVPwNRD6T9\nKItIWUTKIntp9EC+bGaNZna7mfVKtvUHVubtszrZ1h9Ylbd9VbKtQ9AMRESqSW2R978N+H/u7mb2\nbeA/gMuLH1Y0fvx4Bg4cCEDv3r2pq6vbcawz9xdHuaw/8UQDTU0A9fToAXPmNNCzZzqPX19fX/Ln\np/XyXM8pl/GUaj23rVzGk+V6Q0MDU6dOBdjx/2UW2nQioZkdBfzO3Yfv7TYzuxFwd78pue0RYBKw\nApjt7sOS7RcBZ7v7lXv4eRV1IuEf/gDf/35Yfu5z8KEPhaWISJbK9URCI6/nkfQ0cv4BeCG5/jBw\nkZl1MbNBwLHAHHdfA2wws1FJU/1S4KGCR19m1APJhrKIlEWkLLLX6kNYZnYPUA8cZGZ/I8woRptZ\nHdAMLAeuAHD3hWZ2H7AQaAK+lDeVuAqYCnQDZubeudURqAciItVEn4WVol/9Cp5+Gm6/Hb75zbAt\ntxQRyUq5HsKSvdAMRESqiQpIitQDyYayiJRFpCyypwKSIs1ARKSaqICkSJ+FlQ1lESmLSFlkTwUk\nRZqBiEg1UQFJ0ebN7VdAdHw3UhaRsoiURfZUQFK0ZUv7NdFFRMqNCkiK8mcg6oG0H2URKYtIWWRP\nBSRFmoGISDVRAUmReiDZUBaRsoiURfZUQFKkGYiIVBN9FlaKBgyAP/85LJuaQhEJ3w8iIpIdfRZW\nBcqfgXTuHJYqICLSUamApCi/BwLpHsbS8d1IWUTKIlIW2VMBScn27WG20bVr3Lbffum+lVdEpJyo\nB5KSd96Bww8Py5xjj4VHHglLEZGsqAdSYfL7Hzl6J5aIdGQqICnZtf8B6oG0F2URKYtIWWRPBSQl\ne5qBqAciIh2VCkhKWpqB9OiR3gxEn/MTKYtIWUTKInsqIClRD0REqo0KSErUA8mOsoiURaQssqcC\nkhL1QESk2qiApEQ9kOwoi0hZRMoieyogKVEPRESqjQpIStQDyY6yiJRFpCyypwKSEvVARKTaqICk\nRD2Q7CiLSFlEyiJ7KiApUQ9ERKqNCkhK1APJjrKIlEWkLLKnApIS9UBEpNqogKREPZDsKItIWUTK\nInsqIClRD0REqo0KSErUA8mOsoiURaQssqcCkhL1QESk2rT6O9HN7NfAecBadx+ebOsD3AscBSwH\nxrn7huS2icAEYBtwrbs/mmwfAUwFugEz3f26vfzMivlO9EGDYNassMzZsAGOPDIsRUSyUo7fiT4F\nOHeXbTcCf3T344BZwEQAMzseGAcMAz4G3GZmuSfzM+Aydx8CDDGzXR+zIqkHIiLVptUFxN2fBNbv\nsvkCYFpyfRrwyeT6+cAMd9/m7suBZcAoMzsU2N/d5yb73Zl3n4rWUg+kc+ewbGoq/vF1fDdSFpGy\niJRF9ortgfR197UA7r4G6Jts7w+szNtvdbKtP7Aqb/uqZFtFcw8zje7dd79NfRAR6ajSbqJXRsMi\nZVu3Qteu0KnT7reldS6I3uMeKYtIWUTKInu1Rd5/rZn1c/e1yeGp15Ptq4EBefsdkWzb0/Y9Gj9+\nPAMHDgSgd+/e1NXV7Xih5KaspV4/8cR69tuv5dvNYMuW8hqv1rWu9Y613tDQwNSpUwF2/H+ZCXdv\n9QUYCDyft34TcENy/Qbge8n144H5QBdgEPAS8R1ffwFGAQbMBMbs5ed5JVixwn3AgJZvO+kk9wUL\niv8Zs2fPLv5BOghlESmLSFlEyf+dbfr/vZBLq2cgZnYPUA8cZGZ/AyYB3wPuN7MJwArCO69w94Vm\ndh+wEGgCvpQ8KYCr2PltvI+0peCVo82bd38HVo56ICLSUbX6PJBSqJTzQObNgy98ISx3dc458PWv\nh6WISBbK8TwQ2YN9zUB0LoiIdEQqICnYsmX3c0By0ioguYaZKIt8yiJSFtlTAUmBeiAiUo1UQFKw\ntxmIzgNJn7KIlEWkLLKnApIC9UBEpBqpgKRAPZBsKYtIWUTKInsqIClQD0REqpEKSArUA8mWsoiU\nRaQssqcCkgL1QESkGqmApEA9kGwpi0hZRMoieyogKVAPRESqkQpICtQDyZayiJRFpCyypwKSAvVA\nRKQaqYCkQD2QbCmLSFlEyiJ7KiApUA9ERKqRvg8kBYMHw8yZYbmr116DESPCUkQkC/o+kAqiHoiI\nVCMVkBSoB5ItZREpi0hZZE8FJAV7m4F07hyW77+f3XhERLKgHkiRmppC8Whq2vM+vXvD8uVhKSLS\n3tQDqRB7m33kqA8iIh2RCkiR9tb/yEmjgOj4bqQsImURKYvsqYAUqbUzEJ0LIiIdjXogRVqwAC69\nNCz35IMfhJtvDksRkfamHkiFUA9ERKqVCkiR1APJnrKIlEWkLLKnAlIk9UBEpFqpgBSpNTOQNL4T\nRN91ECmLSFlEyiJ7KiBFUg9ERKqVCkiR1APJnrKIlEWkLLKnAlIk9UBEpFqpgBRJPZDsKYtIWUTK\nInsqIEVSD0REqpUKSJHUA8mesoiURaQssqcCUiT1QESkWqmAFEk9kOwpi0hZRMoie6kUEDNbbmYL\nzGy+mc1JtvUxs0fNbImZ/d7MeuXtP9HMlpnZIjP7aBpjKBX1QESkWqU1A2kG6t39FHcflWy7Efij\nux8HzAImApjZ8cA4YBjwMeA2M2v3T41sL+qBZE9ZRMoiUhbZS6uAWAuPdQEwLbk+Dfhkcv18YIa7\nb3P35cAyYBQVSj0QEalWaRUQB/5gZnPN7PJkWz93Xwvg7muAvsn2/sDKvPuuTrZVJPVAsqcsImUR\nKYvs1ab0OGe6+2tmdgjwqJktIRSVfOX9zVAFUg9ERKpVKgXE3V9Llm+Y2YOEQ1Jrzayfu681s0OB\n15PdVwMD8u5+RLKtRePHj2fgwIEA9O7dm7q6uh1/aeSOeZZyfcMG6NFj7/ufcko9W7YU9/Pyj++W\n0/MvxXpuW7mMp5TrjY2NXHfddWUznlKuT548uez+f8hqvaGhgalTpwLs+P8yC0V/pa2Z7QfUuPsm\nM+sBPAr8X+AcYJ2732RmNwB93P3GpIl+N/ABwqGrPwCDW/ru2kr4Stvu3eGtt/Y+C2lqCvs1NUGh\nbxdoaGjY8cKpdsoiUhaRsoiy+krbNArIIOC3hENUtcDd7v49MzsQuI8w21gBjHP3t5P7TAQuA5qA\na9390T08dlkXkOZmqK2F7dv3XRi6dIFNm8JSRKQ9VUwBaU/lXkA2bYJ+/Vr3DqvevWH58rAUEWlP\nWRUQnYlehNa8Ayun2EZ6/vH/aqcsImURKYvsqYAUoTXvwMrRuSAi0tHoEFYRXnwRxo0Ly305+WS4\n886wFBFpTzqEVQHaOgPRuSAi0pGogBRBPZDSUBaRsoiURfZUQIqgHoiIVDMVkCK0ZQZS7Odh6QSp\nSFlEyiJSFtlTASmCeiAiUs1UQIqgHkhpKItIWUTKInsqIEVQD0REqpkKSBHUAykNZREpi0hZZE8F\npAjqgYhINVMBKYJ6IKWhLCJlESmL7KmAFGHz5rYVEPVARKQjUQEpwpYtrT+EpR5IepRFpCwiZZE9\nFZAitHUGoh6IiHQkKiBFaMsMRD2Q9CiLSFlEyiJ7KiBFUA9ERKqZvg+kCCedBPfcE5b78vzz8JnP\nhKWISHvS94FUAPVARKSaqYAUQT2Q0lAWkbKIlEX2VECKoB6IiFQz9UAK5A61tfD++9Cp0773b2qC\n7t3D0tr9yKSIVDP1QMrce+9B586tKx4Q9q2pCQVEZFdl+neSyF6pgBSoLf2PnGL6IDq+G3W0LP7z\nP+G88wq7b0fLohjKInsqIAVqS/8jR30Q2VVzM3z72zB7NixeXOrRiLSNeiAFWrIEzj8/LFtr8GCY\nOTMsRQAefBD+/d/h7/8+9NNuvrnUI5KOQD2QMlfoDETngkiOO9x0E1x/PXzhC3DXXfDuu6UelUjr\nqYAUSD2Q0ukoWTz1FLzxBowdC0cfDSNHwgMPtO0xOkoWaVAW2VMBKZB6IFKs738fvvrV+E6+K66A\nX/yitGMSaQsVkAIVMgMp5jtB9F0HUUfI4sUXYc4c+Oxn47bzzoNXXoEXXmj943SELNKiLLKnAlIg\n9UCkGD/8IVx9dTi5NKdzZ7jsMs1CpHKogBRIPZDSqfQsVq2Chx6CK6/c/bbLL4e77279oc5KzyJN\nyiJ7KiAFUg9ECjV5cjh0deCBu9925JHwd38H996b/bikMA8++CA1NTUsXbq0VfvfcsstbN26NfVx\nDBo0iHXr1hV8fzO73cwazWyBmf3GzA7Y131UQAqkHkjpVHIWb78Nd9wBX/nKnvdpSzO9krNIW6my\nmDFjBueddx7Tp09v1f6TJ09mSzscy7Y2fsie7X6H69y9zt1PBl4Brt7XY6iAFEg9ECnEz38emuVH\nHrnnfcaMgTVrYP787MZVjdauhQ0binuMzZs38/TTT3PrrbcyY8aMHdsff/xxPvGJT+xYv/rqq7nz\nzjv5yU9+wquvvsro0aM555xzAJg+fTrDhw9n+PDhTJw4EYBf/OIXXH/99TvuP23aNK655hoAxo4d\ny2mnncZJJ53E7bffvmOfXU+6NrPnzew5M7s2WT/KzBab2TQzex44In9/d9+U7GdAd+CtfT3/khUQ\nMxuTPJmlZnZDqcZRKPVASqdSs9i6FX78Y/ja1/a+X6dO8PnPt24WUqlZtIfWZvHKK2GWN3QoHHdc\nmBE2N+++X3NzM/PmzWPevHk0t7QD8NBDD3HuuecyYMAA+vbty/y8qt/SjODqq6/m8MMPp6Ghgcce\ne4zXXnuNG2+8kYaGBhobG5kzZw4PP/wwn/rUp/jtb3+743733nsvF110EQBTpkxh7ty5zJ07l1tu\nuYX169fv9DOeffbZ3NXTgA8Cnzezk5NtxwI/dfeT3H3lruMzszuA14DhwK9afNJ5SlJAzKwG+Clw\nLnACcLGZDS3FWNpi+/bw4nvkkfDXoXog0hZ33QV1da37CuTLLoP77oN33mn/cVWLl16CCRPg1FPh\n4INh2TL4r/+CX/4SzjgD5s2L+85fMJ+RY0fyoR99iA/96EOMHDuS+Qt2nxJOnz6dcePGAXDhhRdy\nzz33tGosudnC3LlzGT16NAceeCA1NTVccskl/OlPf+Lggw/mmGOOYc6cOaxbt44lS5ZwxhlnAOEQ\nWF1dHaeffjqrVq1i2bJlQCxYTz75ZO5nbHX3zcBvgLOSH73C3efuZVwTgMOABcD/2dfzqG3Vs03f\nKGCZu68AMLMZwAVAJh8n5w7btoWPZN+6NVzeeSdcNm4Ml9z1NWvC510tWQIvvwwHHRT+ajnxRPjw\nh9v2c9UDSUc5ZuEePsvqvfdCn2PdOnjrrXhZtw5+9SuYOrV1j3fYYTB6NNxzT/hreU/KMYtS2VMW\nixbBd74T/vD78pdDIenTJ9x28MHw5z/DlCnw8Y+HTwX41reamfCNCTTWNe74E7uxuZEJ35jAvN/O\no6YmbFy/fj2zZs3ihRdewMzYvn07ZsYPfvADamtrd5q17K1pvqfP+/v0pz/Nvffey9ChQxk7diwQ\nDo3NmjWLp59+mq5duzJ69Oi2NuT3+Sesu3vyf/L1+9q3VAWkP5A/fVpFKCq7ufzy8J/9ni7bt+98\nvakpXLZti9dzl/ffD8XivffClzp16wZdu4bLAQeEy/77x+sHHBBeYP/4j6FoDBnS9llHvjR7ILki\n+P77LT/nXTPKXfLXm5v3vGzNxX3P6y1dL2S5p+ut+XktjbGly96y2NNrLVcs3nsv/g46dw6vpV69\nwjusDjooXHLXJ02Cs89u/e/4i1+Mn5O169GQ5uZw/H7Llviazl++/358PbT0b2bX10Brf+97yz6t\n3+fefmctjTt3yf0ucr+X3KVrV7juOrj11vC72VVNTZjxjR0L//ZvcNxx89n0kaU7H5+pgYXdl/LV\nr86nb9+RbNsGTz99P8OGXcq55/5sxxhmzBjNuHFP0rPnQJ54YiFf/GITTU2buf/+x1i27CyeeAI2\nbDiAK67YSM+eB7J58yhmzryWd99dR6dOvZg9ezqDB1/DuHGwdetYHnvsO3Tp0sjhh9/EzJnw+usb\n2LChDz17dqW2djFbt/6FSy4Jf3C89ppz6aVgFiYbZtYN6ASMBf538kz22Gk3s2Pc/eWkB3I+0Liv\n12ipCkirLVw4nr59B1JTAz179mbYsDqGD6+nthYWLmygUycYObKeTp3guefC+umn19O5Mzz7bAO1\ntXDWWWH/uXMb6NIFPvKRsH/umGnuL5f2Xn/55QZWrgQI67NnN/Dmm9CnTz2LF8Nf/tLA5s1wwAH1\nbNwIK1aEdbN61q9v2FEEt2+vT4pgeH7duoXn29wcnv/++4f1rVvDeq9e4flu2dJATQ0ceGBY37ix\nATM45JB6ampg/fpwe79+Yf3NN8Pthx0W1teuDbf371+PGaxZE9drauDVV8P6gAFhffXq8PwHDgz7\nr1wZHm/QoLC+YkVYP+aYsL58eVyvqYG//jWsDx4cbn/55bDeqRMMG1bPSy+F9aFDw/5LloSff/zx\nYX3x4nD7CSfsvD58eFh/8cUwvlNO2fn1M2JEWG9sDPl+4ANh/dlnw+1nnhnyfeaZBjp3hg9/uJ4u\nXeDxx/f9enj88da/Xjp1amDtWrjyynrefRcWLWpg3Tp499163ngDOnduoFOnRg4++Dq6doWmpvD6\n7ts3jGfjxjDeQw8Nr/9160I+Rxyx8+9zwIDw/FavDusDB4bbc7+vo48O+a9aFW4/+uhw+yuvhNuP\nPXbn39eQIWH//N+PGSxdGu6fvw7h92O28++rU6fw77umJv6+XnghrOf/vmpq4NRTw/oDD0zmhBPq\nOOuserp2jf/ex4wJz39feT/3XAMXXghnnLE/lz5IeB8SwKCw2LZmO42vP8Npp42kthaeeebnnHji\nxXTvHl6Ty5c3cNRRJ/Hqq9O58MJbWbDgA9x77zEcdtjxHHvsCLp1W0SvXg2MGfN5Zs8eQ5cu+3Hx\nxTfzT//0Xf77v+vZunUzgwefzlVXfYKaGli4sJGlS/uyadPfmDLlVBYubKBz5+5MndrE6tUn0KfP\nQWzYMIwbboBNmxr4l395k/Xrr+KQQ45LBs5cwIFfuvsCMzsqWd9NUjSmmdn+yaZ5wFUt7bvT/Urx\ncelmdjrwTXcfk6zfSJg53bTLfmX7ce6FmDUrHIM9++wwrV68OMxKhg4Nl/79w19I+TOg3KxowYIG\nzj47/MPIzZxa+22IHU1DQ0PVHLp56il48kno1w/69g3Lfv3gkEPCa6CastiXtLJobm5m5NiROx3C\nohnqGut2OoRVzrL6OPdSFZBOwBLgHELHfw5wsbsv2mW/DlVA3norfN/DMcfEotHSyWQiUlrzF8xn\nwjcmsHT/cHLg4I2DmfKtKZxy8iklHlnrdOgCAuFtvMAthBr/a3f/Xgv7dKgCIiKVo7m5ecfbck85\n5ZSKmHnkdPgvlHL3R9z9OHcf3FLxkJ3p/f6RsoiURZR2FjU1NYwcOZKRI0dWVPHIklIREZGC6DvR\nRUQ6mA5/CEtERCqbCkiF0LHuSFlEyiJSFtlTARERkYKoByIi0sGoByIiImVNBaRC6PhupCwiZREp\ni+ypgIiISEHUAxER6WDUAxERkbKmAlIhdHw3UhaRsoiURfZUQEREpCDqgYiIdDDqgYiISFlTAakQ\nOr4bKYtIWUTKInsqICIiUhD1QEREOhj1QEREpKypgFQIHd+NlEWkLCJlkT0VEBERKYh6ICIiHYx6\nICIiUtZUQCqEju9GyiJSFpGyyJ4KiIiIFEQ9EBGRDkY9EBERKWsqIBVCx3cjZREpi0hZZE8FRERE\nCqIeiIhIB6MeiIiIlDUVkAqh47uRsoiURaQssqcCIiIiBVEPRESkg1EPREREylpRBcTMJpnZKjN7\nNrmMybttopktM7NFZvbRvO0jzOw5M1tqZpOL+fnVRMd3I2URKYtIWWQvjRnIze4+Irk8AmBmw4Bx\nwDDgY8BtZpabTv0MuMzdhwBDzOzcFMbQ4TU2NpZ6CGVDWUTKIlIW2UujgLR0nO0CYIa7b3P35cAy\nYJSZHQrs7+5zk/3uBD6Zwhg6vLfffrvUQygbyiJSFpGyyF4aBeTLZtZoZrebWa9kW39gZd4+q5Nt\n/YFVedtXJdtERKTC7LOAmNkfkp5F7vJ8svwEcBtwtLvXAWuA/2jvAVer5cuXl3oIZUNZRMoiUhbZ\nS+1tvGZ2FPA7dx9uZjcC7u43Jbc9AkwCVgCz3X1Ysv0i4Gx3v3IPj6n38IqIFCCLt/HWFnNnMzvU\n3dckq/8AvJBcfxi428x+RDhEdSwwx93dzDaY2ShgLnAp8OM9PX4WAYiISGGKKiDA982sDmgGlgNX\nALj7QjO7D1gINAFfyjsj8CpgKtANmJl755aIiFSWsj4TXUREyldZnoluZmPMbHFysuENpR5PqZjZ\nEWY2y8xeTN68cE2px1RqZlaTnLT6cKnHUkpm1svM7k9O1H3RzD5Q6jGVSnLS8ovJm3vuNrMupR5T\nVszs12a21syey9vWx8weNbMlZvb7vHfHpq7sCoiZ1QA/Bc4FTgAuNrOhpR1VyWwD/tndTwA+CFxV\nxVnkXEs4NFrtbiEcAh4GnAwsKvF4SiJ5887ngVPcfTjhsPxFpR1VpqYQ/q/MdyPwR3c/DpgFTGyv\nH152BQQYBSxz9xXu3gTMIJyYWHXcfY27NybXNxH+k6ja82bM7AjgfwG3l3ospWRmBwBnufsUgOSE\n3Y0lHlapbATeB3qYWS2wH/BqaYeUHXd/Eli/y+YLgGnJ9Wm048na5VhAdj0JUScbAmY2EKgDni7t\nSErqR8DXgGpv3A0C3jSzKcnhvF+aWfdSD6oU3H094fyzvxFOWH7b3f9Y2lGVXF93Xwvhj1Cgb3v9\noHIsILILM+sJPABcm8xEqo6ZfRxYm8zIjJY/Qqda1AIjgFvdfQSwhXDYouqY2dHAV4CjgMOBnmb2\nmdKOquy02x9c5VhAVgNH5q0fkWyrSsm0/AHgLnd/qNTjKaEzgfPN7K/AdGC0md1Z4jGVyipgpbs/\nk6w/QCgo1ehU4Cl3X+fu24HfAGeUeEylttbM+kE4Vw94vb1+UDkWkLnAsWZ2VPJuiosIJyZWqzuA\nhe5+S6kHUkru/nV3P9Ldjya8Jma5+6WlHlcpJIcnVprZkGTTOVTvGwuWAKebWbfkE7/PofreULDr\njPxhYHy0oamyAAAApklEQVRy/bNAu/3hWeyJhKlz9+1m9mXgUUKB+7W7V9sLAgAzOxO4BHjezOYT\npqJf18mXAlxD+LSHzsBfgc+VeDwl4e4LkpnoPGA7MB/4ZWlHlR0zuweoBw4ys78RPjLqe8D9ZjaB\n8PFR49rt5+tEQhERKUQ5HsISEZEKoAIiIiIFUQEREZGCqICIiEhBVEBERKQgKiAiIlIQFRARESmI\nCoiIiBTk/wNVTV+g1pKvQgAAAABJRU5ErkJggg==\n",
      "text/plain": [
       "<matplotlib.figure.Figure at 0x7fcac619f7f0>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<div class=\"alert alert-warning\"><strong>Advertencia</strong> Alrededor de las discontinuidades el gráfico no es representado fielmente. </div>"
      ],
      "text/plain": [
       "<IPython.core.display.HTML object>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "<function __main__.int_raiz_trasc>"
      ]
     },
     "execution_count": 4,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "def trascendental(E, V_0, a):\n",
    "    k2 = sqrt(V_0 - E)\n",
    "    return sqrt(E) - k2*tan(k2*a/2)\n",
    "\n",
    "def int_raiz_trasc(V_0:(.1,20.,.1), a:(.1,15.,.1), N:(1, 6, 1), n:(1, 100, 1)):\n",
    "    f = lambda E: trascendental(E, V_0, a)\n",
    "    try:\n",
    "        r = raiz_n(f, 0, V_0, N)\n",
    "        E, tr = discretizar(f, 0, V_0, n)\n",
    "        graficar_funcion(E, tr)\n",
    "        graficar_punto_texto(r, 0, 'Autovalor ' + str(N))\n",
    "        display(Latex('\\(E_' + str(N) + '=' + str(r) + '\\)'))\n",
    "        plt.grid(True)\n",
    "        plt.show()\n",
    "        display(HTML('<div class=\"alert alert-warning\">'+\\\n",
    "                     '<strong>Advertencia</strong> Alrededor de las discontinuidades'+\\\n",
    "                     ' el gráfico no es representado fielmente. </div>'))\n",
    "    except ValueError:\n",
    "        display(HTML('<div class=\"alert alert-danger\">'+\\\n",
    "             '<strong>Error</strong> Se evaluo la función en una discontinuidad.'+\\\n",
    "             '</div>'))\n",
    "\n",
    "interact(int_raiz_trasc)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Ecuaciones diferenciales con problemas de frontera\n",
    "\n",
    "La ecuación de Schrödinger, ya sea dependiente o independiente del tiempo, es una ecuación diferencial de segundo orden. Al remover la dependencia del tiempo y disponer de problemas 1D, se tiene que la ecuación diferencial es ordinaria. Para este tipo de ecuaciones (segundo orden, una variable) es posible aplicar métodos especificos que solución con bajo costo computacional aproximaciones de orden alto. Ejemplo de esto son los métodos de [Verlet](https://en.wikipedia.org/wiki/Verlet_integration) y de [Numerov](https://en.wikipedia.org/wiki/Numerov's_method), con método del disparo.\n",
    "\n",
    "De la ecuación de Schrödinger se observa que si se reemplazan los valores por cantidades conocidas estimadas, el valor de la energía $E$ que cumple con ser autovalor, es aquel que haga satisfacer las condiciones de frontera del problema, y por ende una forma de solucionar el problema es mediante la aplicación de un problema de busqueda de raices. De esta forma, el método del disparo lo que hace es el ajuste de $E$ para que partiendo de una frontera, con la condicón respectiva, al propagarse hasta la otra frontera llegue con el valor de la otra condición. De no hacerlo, se cambio el valor de $E$ y se repite el proceso.\n",
    "\n",
    "El esquema de Numerov para la propagación es, dada una ecuación diferencial ordinaria de segundo orden sin termino lineal, $$ \\frac{d^2y(x)}{dx^2} + K(x)y(x) = 0, $$ su esquema discreto se plantea como $$ y_{i+2} = \\frac{\\left(2-\\frac{5h^2 K_{i+2}}{6} \\right)y_{i+1} - \\left(1+\\frac{h^2 K_{i}}{12} \\right) y_i}{ \\left(1+\\frac{h^2 K_{i+2}}{12} \\right)}. $$\n",
    "\n",
    "Para nuestro caso, la función $K(x)$ posee dependencia de la energía, y todos los demás elementos son conocidos (la función solución, de onda en este caso, se construye iterativamente dado un valor de energía), por lo cual se puede definir una función que dada una energía como argumento, genere el valor de la función de onda en la frontera opuesta. Este valor en la frontera, por las condiciones establecidas por los potenciales y la condición de integrabilidad, debe ser $\\psi(x_{izq}) = \\psi(x_{der}) = 0$.\n",
    "\n",
    "Tambien es usual usar como definición de la función, la diferencia de las derivadas logaritmicas en un punto intermedio, realizando la propagación desde ambos extremos. Por facilidad, se optará por la metodología clásica del disparo, que ofrece menor cantidad de operaciones y no presenta ambigüedades de definición, que consta de comparar con el valor esperado en la frontera opuesta, $Numerov(E) = 0$.\n",
    "\n",
    "Este problema de búsqueda de raíces requiere conocer dos condiciones iniciales, la segunda debe tomarse acorde a la paridad de la energía buscada. Para paridad par, el segundo valor es positivo, mientras que para paridad impar el segundo valor es negativo.  "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "La función `estacionario` se define para buscar el punto de empate adecuado para el análisis de la continuidad de la función de onda y su derivada. Como criterio, se buscan los _turning points_ clásicos, donde $E=V(x)$."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def estacionario(K, L, h):\n",
    "    x = -L/2\n",
    "    while x < L/2 and K(x) <= 0:\n",
    "        x = x + h\n",
    "    if x >= L/2:\n",
    "        return L/2\n",
    "    elif x == -L/2:\n",
    "        return -L/2\n",
    "    else:\n",
    "        return x - h\n",
    "\n",
    "def numerov(K_ex, L, E, N, n):\n",
    "    h = L / n\n",
    "    K = lambda x: K_ex(E, x)\n",
    "    p_est = estacionario(K, L, h)\n",
    "    x = -L/2\n",
    "    phi0 = 0.0\n",
    "    x = x + h\n",
    "    phi1 = 1e-10\n",
    "    x = x + h\n",
    "    while x <= p_est :\n",
    "        term0 = 1 + h**2 * K(x - h) / 12\n",
    "        term1 = 2 - 5 * h**2 * K( x) / 6\n",
    "        term2 = 1 + h**2 * K(x + h) / 12\n",
    "        aux = phi1\n",
    "        phi1 = (term1 * phi1 - term0 * phi0) / term2\n",
    "        phi0 = aux\n",
    "        x = x + h\n",
    "    phi_i_1 = phi1\n",
    "    phi_i_0 = phi0\n",
    "    x = L/2\n",
    "    phi0 = 0.0\n",
    "    x = x - h\n",
    "    phi1 = 1e-10 * (-1)**(N%2 + 1)\n",
    "    x = x - h\n",
    "    while x > p_est :\n",
    "        term0 = 1 + h**2 * K(x + h) / 12\n",
    "        term1 = 2 - 5 * h**2 * K(x) / 6\n",
    "        term2 = 1 + h**2 * K(x - h) / 12\n",
    "        aux = phi1\n",
    "        phi1 = (term1 * phi1 - term0 * phi0) / term2\n",
    "        phi0 = aux\n",
    "        x = x - h\n",
    "    phi_d_1 = phi_i_1 \n",
    "    phi_d_0 = phi0 * phi_i_1 / phi1 \n",
    "    return (2*phi_d_1 - (phi_i_0+phi_d_0)) / (phi_d_0 - phi_i_0)\n",
    "\n",
    "\n",
    "def Phi(K_ex, L, E, N, n):\n",
    "    h = L / n\n",
    "    K = lambda x: K_ex(E, x)\n",
    "    p_est = estacionario(K, L, h)\n",
    "    x = -L/2\n",
    "    x_g = [x]\n",
    "    phi0 = 0.0\n",
    "    phi_g = [phi0]\n",
    "    x = x + h\n",
    "    phi1 = 1e-10\n",
    "    x_g.append(x)\n",
    "    phi_g.append(phi1)\n",
    "    x = x + h\n",
    "    while x <= p_est:\n",
    "        term0 = 1 + h**2 * K(x - h) / 12\n",
    "        term1 = 2 - 5 * h**2 * K(x) / 6\n",
    "        term2 = 1 + h**2 * K(x + h) / 12\n",
    "        aux = phi1\n",
    "        phi1 = (term1 * phi1 - term0 * phi0) / term2\n",
    "        x_g.append(x)\n",
    "        phi_g.append(phi1)\n",
    "        phi0 = aux\n",
    "        x = x + h\n",
    "    x = L/2\n",
    "    phi0 = 0.0\n",
    "    x_gd = [x]\n",
    "    phi_gd = [phi0]\n",
    "    x = x - h\n",
    "    phi1 = 1e-10 * (-1)**(N%2 + 1)\n",
    "    x_gd.insert(0, x)\n",
    "    phi_gd.insert(0, phi1)\n",
    "    x = x - h\n",
    "    while x > p_est:\n",
    "        term0 = 1 + h**2 * K(x + h) / 12\n",
    "        term1 = 2 - 5 * h**2 * K(x) / 6\n",
    "        term2 = 1 + h**2 * K(x - h) / 12\n",
    "        aux = phi1\n",
    "        phi1 = (term1 * phi1 - term0 * phi0) / term2\n",
    "        x_gd.insert(0, x)\n",
    "        phi_gd.insert(0, phi1)\n",
    "        phi0 = aux\n",
    "        x = x - h\n",
    "    n_d = len(phi_gd)\n",
    "    phi_gd = [phi_gd[i] * phi_g[-1] / phi1 for i in range(n_d)]\n",
    "    x_g.extend(x_gd)\n",
    "    phi_g.extend(phi_gd)\n",
    "    return x_g, phi_g"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Para la ecuación de Schrödinger, $K(x) = E - V(x)$.  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "def K_Schr(V_0, a):\n",
    "    return lambda e, x: e - potencial(V_0, a, x)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Para ilustrar el método del disparo, se presenta el siguiente control. La idea es ajustar para una configuración de potencial $V_0$, ancho $a$, longitud total $L$ y numero de elementos de discretización $n$, la energía $E$ adecuada para observar continuidad en la función de onda y su derivada en todo el intervalo. Dada la implementación del método se verifica dicha continuidad en el limite de la primera pared. Más adelante se define de manera general como seleccionar el punto de comparación.  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAXwAAAEACAYAAACwB81wAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAALEgAACxIB0t1+/AAAH41JREFUeJzt3XmQnHd95/H3t3suzYw1pzQzsqWRFSNb8m2DABOwiI1t\n8LJAsgfLBoKhgqtSBCpFiiNJxTKbbIA/WDYLpjgMFQgu7CSADTE+sbx4U8TGinFknT5G54w0t0Ya\nHTP9/PaPp1tqST3H0/083f3083lVTWm65zl+rZ7+9He+z+952pxziIhI7UtVegAiIlIeCnwRkYRQ\n4IuIJIQCX0QkIRT4IiIJocAXEUmIUALfzO41s0Nm9mLefR1m9piZ7TSzR82sLYx9iYhIccKq8L8L\n3HrOfZ8FnnDOXQr8AvhcSPsSEZEiWFgnXplZP/BT59xV2ds7gBudc4fMrBfY7Jy7LJSdiYhIYFH2\n8Jc75w4BOOeGgOUR7ktERBZQzoO2uoaDiEgF1UW47UNm1pPX0jlcaCEz0xuBiEgRnHMWZPkwA9+y\nXzkPAR8Gvgj8AfDgXCs+/9c3hjiM6vKNJwe486bVlR5GZMr1+O74zk6+dd+DbNiw4fR9P/oR/O3f\nwlNPwbXXwte+Bm95S7j73bRpE5s2bQpte+vWwfe+By+9BA88AA8/fPbP33DtFXz8jQ1cuWppaPuc\nTy3/ftbyY3toyxB3/9POwOuFNS3zPuBfgLVmttfM7gC+ALzDzHYCN2Vvi4TmySfh9tvBDN75Tnjk\nkUqPaH6vvgrj43D99fDud8Mzz8DMzNnLeJ6HBarZRBYvlMB3zn3AObfCOdfonFvlnPuuc27cOXez\nc+5S59wtzrmJMPYlkvOLX8BNN/nf33Zb9Qf+P/8zvOtdkEpBVxdcfDFs2XL2MpmMRzqlxJdo6Ezb\niF1/cXulhxCpSj2+Awfg8GG4+mr/9g03wO7dMDIS7n42btwY2rYef9x/Yzqzbb8dla/cFX4t/37W\n8mMrlgI/Yq9fU9u/dJV6fM88A299K6TT/u36ej/8X3gh3P2EGfgvvgjXXZe/bXj66bOXyWQyZa3w\na/n3s5YfW7EU+BJL27bBlVeefd8VV/gHQ6vRkSMwPOy3cXKuu85/E8jneR4pNfElIgp8iaVt22D9\n+rPvu/zy6g38l17yx5v7iwRg5UqYmPDfDHIynoda+BIVBb7E0vbt/hTHfNUc+Fu3+n+B5Eul4NJL\nYWfe7DovkyGlxJeIKPAldmZn4ZVX/LDMlwv8kC4PFapCgQ9w2WX+m1eOWjoSJQW+xM4rr8CKFbBk\nydn3d3dDU5M/g6fazBX469bBjh1nbmcyaulIdBT4EjuF2jk569efXTFXi5dfPv8vEvAr/PzA95wq\nfImOAl9iZ9cuPygLWb0a9uwp63AWNDMDQ0Nw0UXn/2zdurPfoDIZTz18iYwCX2Jnzx4/2Avp74eB\ngXKOZmH790NfH9QVuHLVmjX+eHPHHTzPqaUjkVHgS+zs2QOrVhX+WTVW+AMD/htRIc3N0Nrqz9EH\nyHiapSPRUeBL7OzdO3eAVmOFPzAw918k4L957d3rf+9l1MOX6CjwJXbiWOEvOvCdWjoSHQW+xMrk\nJHgetM9xmZQLL/QPkJ572eFKChL4GZ14JRFS4Eus7Nnjt23m6nrU1/sHSPfvL++45qMKX6qFAl9i\nZe/euds5OdXWx5/voC34jyfXhlIPX6KkwJdYyVX48+nvr54+vufB4GDhOfg551f4CnyJhgJfYmUx\nFf6KFX7IVoOREVi6FBoa5l7m7B6+R0qvSomIfrUkVg4e9A/Mzqevr3oCf3DQfwOaT0+P/1m3J0/m\nLo+sCl+iocCXWBkagt7e+Zfp6/PfGKrBwYP+eOaTSvmhPzTkcDpoKxFS4EusDA4uHKBxq/DBfxM7\ncMC/jo6pwpeIKPAlVgYHF67wq6mHv5gKH/zHNDjoSJlekhId/XZJbJw6ZUxNQVfX/MvlKvxq+CCU\nxVb4/phdWT/AXJJHgS+xMTZWT08PC85iaWnxT8CanCzPuOYTpMIfGnKYAl8ipMCX2BgZqV+wnZNT\nLQdug1X4kNacTImQfrskNkZH6xdVLUP19PGDVfimKZkSKQW+xMboaLAKv9KB73mLm0YK/jKHDhkp\nVfgSIf12SWyMjDQsusKvhsAfH/ePJzQ1LbxsX18u8FXhS3QU+BIbQSr8nh44dCja8Szk8GFYvnxx\ny/b2wvBwSi0diZQCX2IjSOAvW3bmYwMrZXh48YHf1ARNTQ6zzmgHJYmmwJfYGB/3p2UuxvLllQ/8\nIBU+QHd3BlyAFUQCUuBLbIyP1y06QJct8wO3kg4f9sexWJ2dGUCBL9FR4EtsjI/XLzrwq6HCD9LS\nAT/wPdcd3YAk8RT4Eguet4TZWeOCCxa3fK7Cr+TlFYK2dDo6ZoEAfxKIBKTAl1iYzXTR0TEz52fZ\nnqulxb8Ew7Fj0Y5rPsPDwVo6HR0zeJ4qfImOAl9iwQ/82UDrVHqmTjEVvlo6EiUFvsTCbKabjo6Z\nQOtU+sBt0MBvb1eFL9FS4EsszGa66ewMFviVPnAbtKWjwJeoKfAlFvwKP3hLp1IV/uwsTEwsfO3+\nfG1tJ8l4AVYQCUiBL7FQTEunkhX+6Ch0dEA6vfh12tpOMZtRhS/RUeBLLBTT0qnkQdvhYegOmN0X\nXHCKjNeO5+l6OhINBb7EQjEtne7uylb4QQPfbJZ0aoojJxZ5soFIQAp8iYXZTBft7cEq/K4uGBuL\naEALGB0N1r8H8DyPuvQY40fboxmUJJ4CX2Ih43XS1haswu/srFzgj4wED/xMJkN93QjjxxT4Eg0F\nvsTCbKYjcOBXusIP2tLxPI/69BhjxzqiGZQkngJfqt7JmQZwdTQ3e4HW6+z0g7cSimnp+BX+KOPH\n2qIZlCSeAl+q3uT0UtLp8UVfRyeno8P/mMFKXECt2B5+Q/2oWjoSmbqod2BmA8Ak4AEzzrkNUe9T\nasvk8QtIp8YDr9fQAEuWwNQULF0awcDmUWwPv6FujPGj/dEMShIv8sDHD/qNzrngr1gRYHK6jbr0\nOBDgLKasXFun3IFfdA+/bpTxabV0JBrlaOlYmfYjNSrX0ilGpWbqFNvDb6ofU0tHIlOOIHbA42b2\nnJn9YRn2JzVmcnopdUW0dKByM3WKDfyG+lHGj2qWjkSjHC2dtzjnBs1sGX7wb3fOPZO/wDeeHDj9\n/fUXt/P6Napw5IyJ40tJp4tL7UrM1Mlk/AundQTMbc/zaKof1ywdKejXr07w/GsTAOwcPFrUNiIP\nfOfcYPbfYTP7MbABOCvw77xpddTDkBibnG4jndpV1LqVaOlMTPjHDOoCvrr8Cn+MyeNL8Twjlarg\n5zNK1Xn9mjPF8ENbhnh6e/BKJtKWjpk1m1lr9vsW4BZga5T7lNozOb00e9A2uEq0dIpp50D20gqp\nDK2Nx5g8XuajzJIIUVf4PcCPzcxl9/UD59xjEe9TakypB2337Qt5QAsoNvAzmQxpMzpaJ5g41kZH\ny2T4g5NEizTwnXOvAddEuQ+pfaUctO3shN/8JuQBLWBszN9vUJ7nYeboaJlg7FgHF7M3/MFJomm6\npFS9iem2oiv8SrR0xseDH7CFbIWfMjpaJjQ1UyKhwJeqNzm9lHQqPrN0Sgl8g2zga6aOhE+BL1Vt\nJpNm6kQrdUVOy4xThe95HinLBr7m4ksEFPhS1SaOtdPePIlZsCtl5lSiwp+YgPYiOjKZTOZM4Kul\nIxFQ4EtVG5nqpPuC4kv03BUzveLeL4pSaoXf2TLBmAJfIqDAl6o2erSTrtbiA7++Hlpa/Ctmlksp\nPfyUQbsqfImIAl+q2uhUJ10lVPhQ/rZOGD38CQW+RECBL1Wt1Aofyn95hVJ7+J2taulINBT4UtVG\njpZe4Zd7pk5J0zIN2pYc4cjxC/C8gB/xJbIABb5UtdGpTrpDqPDj0tJJG9SlM7Q26Xo6Ej4FvlS1\n0RAq/HK2dGZn4fhxaG0Nvq5/4pV/hUxNzZQoKPClqo1Old7DL2dLZ2IC2togVcQryz9o67dxFPgS\nBQW+VLWwKvxytXSKbedArofvV/idLROMHVXgS7gU+FK1pk8uYdZL09p4rKTtlLOlU0rg53r4oLn4\nEg0FvlStwYke+toPYSVOVil3S6eYKZkAs7Ozpx9rd+sYI1Pd4Q1MBAW+VLFc4JcqLi0dL/sBKAB9\nHUMMTvSEODIRBb5UsYPjvaxoHyp5O3Fp6WQys6RSfuBf2DHIwfHeEEcmosCXKjY00UNvR+mB39Hh\nt1rKYXy8+JZOJjNLNu+zFb4CX8KlwJeqdXAinAq/vd0PYudCGNQCJiZKm6WTq/CXXTDK2NF2Ts3W\nhzg6SToFvlStwYneUHr4jY1QVwfT0yEMagEl9fBnM6fn4delMyxfOsKhyeUhjk6SToEvVWtwvJcV\nIbR04Mx18aNWUg/fy5xu6YDf1lEfX8KkwJeqdGKmgakTrSWfZZvT3l6ePn4p0zL9Hv6ZxF/RrsCX\ncCnwpSoNTvTS03aYVCqcxnscKnwvr4cPsEIzdSRkdZUeAMD1M0+fd9/HUv3cmV593v3fyAzwTW+P\nlq/15duBP/4+18/49y+/quW8ZQE2bd7E3U/ffd79d914F5s2bjp9Oxf4i10+6PZzXlm1iQ0P3w0P\nF7H9lf7XF2Z287FUP/1dB3hq21vPWr5qny8tX5HlgzJXjqkL8w3AzD3/1zdWdAxSfe596vc5drKZ\nT9z2TQDu+M5OvnXfg2zYsKGo7X3oQ3Dzzf6/UershF27oLuIk2Tv+OAHuOjo87zvDX0A7Br8Lf7i\ngb/ggU/eEfIoJe4e2jLE3f+0E+dcoPPQ1dKRqvTacD+rl+8NbXu5qZlR8jw4cqT4Hr7neaTzWjr9\n3fvYP7aCmUw6pBFK0inwpSq9erifNcsGQtteOXr4U1PQ3OxPAS3GbPYTr3Ia60/R03aY/aMXhjNA\nSTwFvlQdzzP2jKxk9bLwKvxynG1bygFbAM/LnFXhA1y8fA+vHL64xJGJ+BT4UnUGJ3poa56itSm8\nM6XK0dIp5bIKAJnZzHlXBl2zfIBXD/eXNjCRLAW+VJ2XD61hzfKBULdZjpZOKZdVgGyFf07i+4G/\nurSBiWQp8KXqvLR/Hesv3BHqNuPQ0vE/8erswF+3YhfbDlxa4shEfAp8qTpb91/GFSu3h7rNWLR0\nMhnS57wi+7v3MTndxvixttIGJ4ICX6qM5xnb9l/GlSu3hbrdeLR0vPMq/FTKccVF2/j3fetLHJ2I\nAl+qzN7Ri1i6ZIqOlslQt1uOwC+9pTN7+jNt812xcjtbFfgSAgW+VJUX910eejsHoKUFTp3yv6JS\n+rRM76xr6eRcuXIbL+5V4EvpFPhSVX61+/Vs+K3nQ9+uWfRXzAyjh58q8IntV/dv5aX96zgx01DC\n6EQU+FJFMl6KX738Bt78uuci2X7UbZ2Se/gZj1SBV+QFTce4dMVunn/1muI3LoICX6rI9gNr6W4d\no6dtOJLtRz01M4xpmYUqfIC3rP1X/t/uNxa/cREU+FJFfrnzzbx57bORbT/qqZmltnQ8z5s38J/Z\n+aayfC6v1C4FvlQF5+DnL7yD2656MrJ9RN3SCafCL/yz1/W+Ql0qo9k6UhIFvlSFF/ZcSWP9SS5b\nsSuyfUTZ0nGu9B5+xssUnKUD/kHn/3DdI/x0y23F70AST4EvVeEnv76d26997LyLh4UpypbO8eOQ\nSkFTU/Hb8Fs6c//89mse54mtNzJ9cknxO5FEU+BLxQ2O9/DLHW/mfa//WaT7ibKlU2r/HiCTmbuH\nD9DTNsyGS57nH5/9j6XtSBJLgS8V992n/zvve8PPaGueinQ/UQZ+qe0cOP8Trwr56Mbv8/fP/FdV\n+VIUBb5U1NZ9l7F5+2/zwbfeH/m+ojzxqtQDtpC7Wub8y7yu9zXedMlzfP2Jj5S2M0kkBb5UzLGT\nS7j7R5/hT971Ndqbj0S+v2pv6Symwgf4k3fdw6Mv/g6/1olYEpACXypiZraOP7v/L7l61dZIp2Lm\nizrww6nwFw78jpZJ/sd//p/82f1/yWvDq0rbqSRK5IFvZreZ2Q4z22Vmn4l6f1L9xo+18cnv/w11\nqVk+8+7/HenMnHxRtnTC6OFnPK/g1TILeeMlz/PJ277Ond/+Clteu6q0HUti1EW5cTNLAV8FbgIO\nAs+Z2YPOuXA/zkhiYWa2jp//5mbuefyj3Hr1L/jjW75JXTpTtv1Xe4XvClwPfz63X/s4HS2TfPaH\nd3HzFU9zx41/z7KlY6UNQmpapIEPbAB2O+f2AJjZD4H3AAr8hBg92sG2/Zfyyx038MRLN7K292W+\n9IG7uGpVuB9wshhtbTA1BZ5HwYuUlWJ8HFaV2F3JZBbXw893w9pnuf8TH+HezR/k977yPa5atY2b\nr9jM1au2sqp7P+mUV9qgpKZEHfgXAvvybu/HfxM4yz2PXXH6e0ehX/jz73NukcsVWGox6xYcR4H1\nCi9X6K7iHtfi1yuwWMH/j1Ie17ljg4xXz6nZJZzKNHFqdgknZlqZOt7NxHQPk9M9zHr1rOzcxut6\nf8Unbvkqna0HmTgG/zfgJe9ffGWIT3/606xduzbYiudIp7/CHXd8jsbG4yVt51ybN3+Yvr5d7Njx\nL0VvY2D/IL/c2cxFHUHP3hphw5pNXL3yi7x0YCM/2/I7fP3x9zN1oov2lkHalgyztPkwLQ0TNNQd\np6HuBPV1J6hPnyBlHinLYOYwPMw8/3vzMDxS2e8Lv5Iqx6psPABY+ca0a3A1sDPweuYivBqTmf0e\ncKtz7mPZ278PbHDOfSJvGde85I7T6zTUX0tDw3WFRnr+XYXjfJGDW+z2qmUcC2/PCv7CFT+2xWwv\nlZolnT5OOnWSdPoE6fRxmhpHaGwczf47EkqP/udPbC59IwC8BrwdGAhpezk/Ab4LPFjSVt52wwZa\nmptDGdHMbAsnTizjxMllnDzZxamZpXiZRjJeI5lME5lMI86lAcO51Hn/OgycZZeR+RQuzMJ16tQW\nZmb+7fTt6ePfwRWuXucUdYV/AMj/Q/ei7H1nOTb9nYiHIeK79lq4997XuK5ATVGKt70NPv/597Bx\nY7jbFTnjhrNumQXPzahn6TwHXGJm/WbWALwfeCjifYrMKaoLqIVx0FYkapFW+M65jJl9HHgM/83l\nXudc+B9YKrJIUV1ALYxpmSJRi7qlg3PuEeDSqPcjshhRTc1UhS9xoDNtJVGiCPyZGThxAlpbw92u\nSNgU+JIoUZxtm7uOTrnOGBYplgJfEiWKCl/9e4kLBb4kShSBH8aVMkXKQYEviRJVS0cVvsSBAl8S\nJaoKX4EvcaDAl0RRD1+STIEviRLFmbbq4UtcKPAlUXJn2oZ5zUC1dCQuFPiSKI2NUFcH09PhbVMt\nHYkLBb4kTth9fLV0JC4U+JI4YU/NVEtH4kKBL4kTRYWvwJc4UOBL4oQd+OrhS1wo8CVxomjpqIcv\ncaDAl8QJs8L3PDhyRIEv8aDAl8QJM/CPHPGvg5/W53xLDCjwJXHCPNtW7RyJEwW+JE6Yn2urGToS\nJwp8SZwwWzoKfIkTBb4kTpgtHU3JlDhR4EvihN3SUQ9f4kKBL4mjlo4klQJfEkeBL0mlwJfEaWmB\nU6f8r1JNTKilI/GhwJfEMQvv8gqq8CVOFPiSSGG1dRT4EicKfEmksCp8TcuUOFHgSyKFWeGrhy9x\nocCXRAor8MfGoKur9O2IlIMCXxIpjLNtPU89fIkXBb4kUhhn205NQXMz1NeHMyaRqCnwJZHCaOmM\njkJnZzjjESkHBb4kUhgtnbExBb7EiwJfEimMlo4O2ErcKPAlkcJo6ajCl7hR4EsiKfAliRT4kkhh\nnGmrg7YSNwp8SaSwKnz18CVOFPiSSG1tcOSIf/JUsdTSkbhR4EsipdPQ2uqHfrEU+BI3CnxJrFLb\nOgp8iRsFviSWAl+SRoEviVXq2bajozpoK/GiwJfEKuVsW+d0pUyJHwW+JFYpLZ2pKWhqgoaGcMck\nEiUFviRWZ6ffhy+G+vcSR5EFvpndZWb7zWxL9uu2qPYlUoyuLr8PXwwFvsRRXcTb/7Jz7ssR70Ok\nKF1d8PLLxa2rA7YSR1G3dCzi7YsUrasLRkaKW1cVvsRR1IH/cTN7wcy+bWZtEe9LJBC1dCRpSmrp\nmNnjQE/+XYAD/hy4B/i8c86Z2V8BXwY+Wmg7mzZtOv39xo0b2bhxYynDElkUBb7EyebNm9m8eXNJ\n2zDnXDijmW8nZv3AT51zVxX4mSvHGETONTgI11wDhw4FX/dTn4K+PvjTPw1/XCKLYWY45wK1zaOc\npdObd/N3ga1R7UukGF1dfqVeTL2hSyNLHEU5S+dLZnYN4AEDwJ0R7ksksIYGWLLEv2JmW8AjTPrw\nE4mjyALfOfehqLYtEpZcHz9o4KuHL3GkM20l0Yo9cKvAlzhS4EuilRL46uFL3CjwJdGKCXzn/MDX\nlTIlbhT4kmjFBP7Ro/4B38bGaMYkEhUFviRaMZdXGBlRO0fiSYEvibZsWfDAHx721xOJGwW+JNqy\nZX6ABzE8DMuXRzMekSgp8CXRli2Dw4eDraMKX+JKgS+Jtnx5cRW+Al/iSIEviVZMS+fwYQW+xJMC\nXxKtqwsmJiCTWfw6qvAlrhT4kmjpNLS3B5uLr8CXuFLgS+IFPXCrwJe4UuBL4gU9cKtpmRJXCnxJ\nPFX4khQKfEm8IDN1pqdhdhZaW6Mdk0gUFPiSeEFaOrnq3gJ9kqhIdVDgS+IFaemonSNxpsCXxOvp\ngUOHFrfs4CD09UU7HpGoKPAl8Xp7/SBfDAW+xJkCXxKvry9Y4Pf2Rjsekago8CXx+vpgaMj/6MKF\nDA2pwpf4UuBL4jU3Q1MTjI8vvKxaOhJnCnwRFt/WUeBLnCnwRVDgSzIo8EVYXOA75/fwddBW4kqB\nL8LiAn90FFpa/H6/SBwp8EVYXOBrho7EnQJfhMUFvvr3EncKfBFgxQo4eHD+ZfbvhwsvLM94RKKg\nwBcBVq6EffvmX2bPHujvL894RKKgwBfBD/wDB/xr3c9FgS9xp8AXARoa/Msez9fW2btXgS/xpsAX\nyVq92q/i56IKX+JOgS+S1d8/d+B7nn/QduXK8o5JJEwKfJGs+QL/0CFoa4MlS8o7JpEwKfBFsuYL\nfLVzpBYo8EWy+vthYKDwzxT4UgsU+CJZq1fPHfivvur/XCTOFPgiWWvW+FMvT506/2fbt8P69eUf\nk0iYFPgiWY2NfhW/a9f5P9u2TYEv8afAF8lz+eXw0ktn3+d5sGMHrFtXmTGJhEWBL5Jn/Xq/ms+3\nbx+0t8PSpZUZk0hYFPgieQpV+GrnSK1Q4IvkUeBLLVPgi+RZu9afqTM1dea+Z5+Fa66p3JhEwlJS\n4JvZfzKzrWaWMbPrzvnZ58xst5ltN7NbShumSHk0NsKb3gSbN/u3PQ+efBJuuqmiwxIJRakV/r8D\n7wOezr/TzNYB/wVYB7wTuMfMrMR9xdLmXHLUqFp8fLfeCo8+6n9/772b6e6u3Yum1eLzl1PLj61Y\nJQW+c26nc243cG6Yvwf4oXNu1jk3AOwGNpSyr7iq9V+6Wnx8t9xyJvAfeGAzN99c2fFEqRafv5xa\nfmzFiqqHfyGQ/4FxB7L3iVS9q6+Gkyfhvvvg17+G97630iMSCUfdQguY2eNAT/5dgAP+3Dn306gG\nJlIpZnD//fD2t8NVV1HTFb4kiznnSt+I2VPAp5xzW7K3Pws459wXs7cfAe5yzv1rgXVLH4CISAI5\n5wIdG12wwg8gf8cPAT8ws/+F38q5BHi20EpBBywiIsUpdVrme81sH/Am4Gdm9nMA59w24AFgG/Aw\n8EcujD8lRESkaKG0dEREpPpV7EzbuU7aMrN+M5s2sy3Zr3sqNcZSJOmkNDO7y8z25z1nt1V6TKUy\ns9vMbIeZ7TKzz1R6PGEzswEz+42Z/ZuZFWy3xomZ3Wtmh8zsxbz7OszsMTPbaWaPmllbJcdYijke\nX+DXXSUvrVDwpK2sl51z12W//qjM4wpL0k5K+3Lec/ZIpQdTCjNLAV8FbgUuB/6bmV1W2VGFzgM2\nOueudc7Vwjky38V/vvJ9FnjCOXcp8Avgc2UfVXgKPT4I+LqrWODPc9IWc9wXKwk8KS32z1meDcBu\n59we59wM8EP8562WGDV0LS3n3DPA+Dl3vwf4u+z3fwfE9oyKOR4fBHzdVesTvjr7J8pTZvbblR5M\nyGr1pLSPm9kLZvbtOP/pnHXuc7Sf2niO8jngcTN7zsz+sNKDichy59whAOfcELC8wuOJQqDXXZjT\nMs9T5ElbB4FVzrnxbO/7J2a23jl3NMqxFiNJJ6XN91iBe4DPO+ecmf0V8GXgo+UfpQTwFufcoJkt\nww/+7dkqspbV2gyVwK+7SAPfOfeOItaZIfuni3Nui5m9AqwFtoQ8vJIV8/jwK/r8S3FdlL2vqgV4\nrN8C4v5mdwBYlXc7Fs9REM65wey/w2b2Y/w2Vq0F/iEz63HOHTKzXuBwpQcUJufccN7NRb3uqqWl\nc7oPZWbd2YNmmNka/JO2Xq3UwEJy7klp7zezBjO7mHlOSouL7Isp53eBrZUaS0ieAy7JzhhrAN6P\n/7zVBDNrNrPW7PctwC3E/zkD/3V27mvtw9nv/wB4sNwDCtlZj6+Y112kFf58zOy9wP8BuvFP2nrB\nOfdO4G3A583sFP5MgjudcxOVGmex5np8zrltZpY7KW2G2jgp7Utmdg3+8zUA3FnZ4ZTGOZcxs48D\nj+EXRfc657ZXeFhh6gF+nL2sSR3wA+fcYxUeU0nM7D5gI9BlZnuBu4AvAP9gZh8B9uDPjoulOR7f\n24O+7nTilYhIQlRLS0dERCKmwBcRSQgFvohIQijwRUQSQoEvIpIQCnwRkYRQ4IuIJIQCX0QkIf4/\npbKtmdPFUZ0AAAAASUVORK5CYII=\n",
      "text/plain": [
       "<matplotlib.figure.Figure at 0x7fcac6165710>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "<function __main__.disparo>"
      ]
     },
     "execution_count": 7,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "def disparo(V_0, a,  L, n, N, E):\n",
    "    x, phi = Phi(K_Schr(V_0, a), L, E, N, n)\n",
    "    V = [potencial(V_0, a, i) for i in x]\n",
    "    graficar_potencial(x, V)\n",
    "    graficar_autofuncion(x, phi, V_0)\n",
    "    graficar_autovalor(L, E)\n",
    "    plt.show()\n",
    "    \n",
    "def presion_disparo(boton):\n",
    "    disparo(V_0, a.value,  L, n.value, N, E.value)\n",
    "\n",
    "interact(disparo, V_0=(0., 20., .5), a=(.5, 10., .1), L=(10., 50., 5.), n=(100, 500, 50), N=fixed(1), E=(.0, 5., .01))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "La anterior ilustración tambien permite observar los efectos del potencial sobre un paquete de onda cuando la energía es menor o mayor que el potencial. Se puede observar como para $E>V_0$, se obtiene una función de onda oscilante en todo el intervalo, equivalente a una particula libre.  "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Se define la función `E_N` para el calculo de las autoenergías, que pueden incluirse en la función `Phi` para generar las autofunciones. Esta función puede explorarse en el notebook de [Estados ligados](estados_ligados.ipynb).  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def E_N(K, E_max, L, N, n, delta_e = 1e-4, tol_e = 1e-6):\n",
    "    Numerov = lambda e: numerov(K, L, e, N, n)\n",
    "    return raiz_n(Numerov, tol_e, E_max, N, delta_e, tol_e)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def Solve_Schr(Vx, E_max, L, N, n):\n",
    "    x_vec, V_vec = discretizar(Vx, -L/2, L/2, n)\n",
    "    V_min = min(V_vec)\n",
    "    K = lambda e, x : e - Vx(x) + V_min\n",
    "    E = E_N(K, E_max - V_min, L, N, n)\n",
    "    if E != None:\n",
    "        x_vec, phi = Phi(K, L, E, N, n)\n",
    "        E = E + V_min\n",
    "        display(Latex('\\(E_{' + str(N) + '} = ' + str(E) + '\\)'))\n",
    "        V_vec = [Vx(i) for i in x_vec]\n",
    "        graficar_potencial(x_vec, V_vec)\n",
    "        V_max = max(V_vec)\n",
    "        V_ref = max(abs(V_min), V_max)\n",
    "        graficar_autofuncion(x_vec, phi, V_ref)\n",
    "        graficar_autovalor(L, E)\n",
    "        plt.show()\n",
    "        return E, x_vec, phi\n",
    "    else:\n",
    "        display(HTML('<div class=\"alert alert-danger\">'+\\\n",
    "             '<strong>Error</strong> Se evaluo la función en una discontinuidad.'+\\\n",
    "             '</div>'))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "El siguiente bloque define la base de los controles, `fun_contenedor_base`, para el notebook conceptual, [Estados ligados](estados_ligados.ipynb), donde los parametros de máxima energía de búsqueda, longitud de interes, número de estado y particiones son comunes.  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "def fun_contenedor_base():\n",
    "    E_max = FloatSlider(value=10., min = 1., max=20., step=1., description= '$E_{max}$')\n",
    "    L = FloatSlider(value = 30., min = 10., max = 100., step= 1., description='L')\n",
    "    N = IntSlider(value=1, min=1, max= 6, step=1, description='N')\n",
    "    n = IntSlider(value= 300, min= 100, max= 500, step=20, description='n')\n",
    "    return Box(children=[E_max, L, N, n])\n",
    "\n",
    "Contenedor_base = fun_contenedor_base()\n",
    "display(Contenedor_base)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def agregar_control(base, control):\n",
    "    controles = list(base.children)\n",
    "    controles.append(control)\n",
    "    base.children = tuple(controles)\n",
    "    \n",
    "control_prueba = fun_contenedor_base()\n",
    "agregar_control(control_prueba, Text(description='Casilla de texto para prueba'))\n",
    "display(control_prueba)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "La función `agregar_control` permite agregar controles adicionales a la base para crear el control especifico de los casos de prueba.  "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Adimensionalización  \n",
    "\n",
    "Para fines de la solución numérica, conviene definir las [unidades atomicas de Rydberg](http://home.agh.edu.pl/~bjs/ARU.pdf). El uso de estas unidades permite hacer comparables los ordenes de maginitud tan dispares que poseen las variables involucradas y así controlar el error numérico que pueda tener el algoritmo.  \n",
    "\n",
    "$\\hbar = 2m_e = \\frac{e^2}{2} = 1$\n",
    "\n",
    "Para fines de ilustración se considera que el problema se resuelve solo para electrones, de manera que el problema se hace independiente de la masa.  \n",
    "\n",
    "La energía se mide en Rydbergs y las longitudes en radios de Bohr.  \n",
    "\n",
    "$1\\ Ry = 13.6\\ eV, \\qquad 1\\ a_0 = 5.29 \\cdot 10^{-11}\\ m$  \n",
    "\n",
    "Realizando las sustituciones correspondienes, la forma adimensional de la ecuación Schrödinger es.\n",
    "\n",
    "$- \\frac{d^2 \\psi(x)}{dx^2} + V(x)\\psi(x) = E\\psi(x)$"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "Python 3",
   "language": "python",
   "name": "python3"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 3
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython3",
   "version": "3.4.3"
  },
  "name": "tecnicas_numericas.ipynb"
 },
 "nbformat": 4,
 "nbformat_minor": 0
}