07-Kalman-Filter-Math.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "[Table of Contents](http://nbviewer.ipython.org/github/rlabbe/Kalman-and-Bayesian-Filters-in-Python/blob/master/table_of_contents.ipynb)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Kalman Filter Math"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<style>\n",
       "@import url('http://fonts.googleapis.com/css?family=Source+Code+Pro');\n",
       "@import url('http://fonts.googleapis.com/css?family=Lora');\n",
       "\n",
       ".CodeMirror pre {\n",
       "    font-family: 'Source Code Pro', Consolas, monocco, monospace;\n",
       "}\n",
       "    div.cell{\n",
       "        //width: 950px;\n",
       "        margin-left: 0% !important;\n",
       "        margin-right: auto;\n",
       "    }\n",
       "    div.text_cell_render{\n",
       "        font-family: 'Lora';\n",
       "        line-height: 125%;\n",
       "        font-size: 100%;\n",
       "        text-align: justify;\n",
       "        text-justify:inter-word;\n",
       "    }\n",
       "    div.text_cell code {\n",
       "        background: transparent;\n",
       "        color: #000000;\n",
       "        font-weight: 400;\n",
       "        font-size: 11pt;\n",
       "        font-family:  'Source Code Pro', Consolas, monocco, monospace;\n",
       "   }\n",
       "    h1 {\n",
       "        font-family: 'Open sans',verdana,arial,sans-serif;\n",
       "\t}\n",
       "\n",
       "    div.input_area {\n",
       "        background: #F6F6F9;\n",
       "        border: 1px solid #586e75;\n",
       "    }\n",
       "\n",
       "    .text_cell_render h1 {\n",
       "        font-weight: 200;\n",
       "        font-size: 30pt;\n",
       "        line-height: 100%;\n",
       "        color:#c76c0c;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 1em;\n",
       "        display: block;\n",
       "        white-space: wrap;\n",
       "        text-align: left;\n",
       "    }\n",
       "    h2 {\n",
       "        font-family: 'Open sans',verdana,arial,sans-serif;\n",
       "        text-align: left;\n",
       "    }\n",
       "    .text_cell_render h2 {\n",
       "        font-weight: 200;\n",
       "        font-size: 16pt;\n",
       "        font-style: italic;\n",
       "        line-height: 100%;\n",
       "        color:#c76c0c;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 1.5em;\n",
       "        display: block;\n",
       "        white-space: wrap;\n",
       "        text-align: left;\n",
       "    }\n",
       "    h3 {\n",
       "        font-family: 'Open sans',verdana,arial,sans-serif;\n",
       "    }\n",
       "    .text_cell_render h3 {\n",
       "        font-weight: 200;\n",
       "        font-size: 14pt;\n",
       "        line-height: 100%;\n",
       "        color:#d77c0c;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 2em;\n",
       "        display: block;\n",
       "        white-space: wrap;\n",
       "        text-align: left;\n",
       "    }\n",
       "    h4 {\n",
       "        font-family: 'Open sans',verdana,arial,sans-serif;\n",
       "    }\n",
       "    .text_cell_render h4 {\n",
       "        font-weight: 100;\n",
       "        font-size: 14pt;\n",
       "        color:#d77c0c;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 0.5em;\n",
       "        display: block;\n",
       "        white-space: nowrap;\n",
       "    }\n",
       "    h5 {\n",
       "        font-family: 'Open sans',verdana,arial,sans-serif;\n",
       "    }\n",
       "\n",
       "    .text_cell_render h5 {\n",
       "        font-weight: 200;\n",
       "        font-style: normal;\n",
       "        color: #1d3b84;\n",
       "        font-size: 16pt;\n",
       "        margin-bottom: 0em;\n",
       "        margin-top: 0.5em;\n",
       "        display: block;\n",
       "        white-space: nowrap;\n",
       "    }\n",
       "    div.output_subarea.output_text.output_pyout {\n",
       "        overflow-x: auto;\n",
       "        overflow-y: visible;\n",
       "        max-height: 5000000px;\n",
       "    }\n",
       "    div.output_subarea.output_stream.output_stdout.output_text {\n",
       "        overflow-x: auto;\n",
       "        overflow-y: visible;\n",
       "        max-height: 5000000px;\n",
       "    }\n",
       "    div.output_wrapper{\n",
       "        margin-top:0.2em;\n",
       "        margin-bottom:0.2em;\n",
       "}\n",
       "\n",
       "    code{\n",
       "        font-size: 6pt;\n",
       "\n",
       "    }\n",
       "    .rendered_html code{\n",
       "    background-color: transparent;\n",
       "    }\n",
       "    ul{\n",
       "        margin: 2em;\n",
       "    }\n",
       "    ul li{\n",
       "        padding-left: 0.5em;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 0.5em;\n",
       "    }\n",
       "    ul li li{\n",
       "        padding-left: 0.2em;\n",
       "        margin-bottom: 0.2em;\n",
       "        margin-top: 0.2em;\n",
       "    }\n",
       "    ol{\n",
       "        margin: 2em;\n",
       "    }\n",
       "    ol li{\n",
       "        padding-left: 0.5em;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 0.5em;\n",
       "    }\n",
       "    ul li{\n",
       "        padding-left: 0.5em;\n",
       "        margin-bottom: 0.5em;\n",
       "        margin-top: 0.2em;\n",
       "    }\n",
       "    a:link{\n",
       "       color:#447adb;\n",
       "    }\n",
       "    a:visited{\n",
       "       color: #1d3b84;\n",
       "    }\n",
       "    a:hover{\n",
       "       color: #1d3b84;\n",
       "    }\n",
       "    a:focus{\n",
       "       color:#447adb;\n",
       "    }\n",
       "    a:active{\n",
       "       font-weight: bold;\n",
       "       color:#447adb;\n",
       "    }\n",
       "    .rendered_html :link {\n",
       "       text-decoration: underline;\n",
       "    }\n",
       "    .rendered_html :hover {\n",
       "       text-decoration: none;\n",
       "    }\n",
       "    .rendered_html :visited {\n",
       "      text-decoration: none;\n",
       "    }\n",
       "    .rendered_html :focus {\n",
       "      text-decoration: none;\n",
       "    }\n",
       "    .rendered_html :active {\n",
       "      text-decoration: none;\n",
       "    }\n",
       "    .warning{\n",
       "        color: rgb( 240, 20, 20 )\n",
       "    }\n",
       "    hr {\n",
       "      color: #f3f3f3;\n",
       "      background-color: #f3f3f3;\n",
       "      height: 1px;\n",
       "    }\n",
       "    blockquote{\n",
       "      display:block;\n",
       "      background: #fcfcfc;\n",
       "      border-left: 5px solid #c76c0c;\n",
       "      font-family: 'Open sans',verdana,arial,sans-serif;\n",
       "      width:680px;\n",
       "      padding: 10px 10px 10px 10px;\n",
       "      text-align:justify;\n",
       "      text-justify:inter-word;\n",
       "      }\n",
       "      blockquote p {\n",
       "        margin-bottom: 0;\n",
       "        line-height: 125%;\n",
       "        font-size: 100%;\n",
       "      }\n",
       "</style>\n",
       "<script>\n",
       "    MathJax.Hub.Config({\n",
       "                        TeX: {\n",
       "                           extensions: [\"AMSmath.js\"],\n",
       "                           equationNumbers: { autoNumber: \"AMS\", useLabelIds: true}\n",
       "                           },\n",
       "                tex2jax: {\n",
       "                    inlineMath: [ ['$','$'], [\"\\\\(\",\"\\\\)\"] ],\n",
       "                    displayMath: [ ['$$','$$'], [\"\\\\[\",\"\\\\]\"] ]\n",
       "                },\n",
       "                displayAlign: 'center', // Change this to 'center' to center equations.\n",
       "                \"HTML-CSS\": {\n",
       "                    scale:95,\n",
       "                        availableFonts: [],\n",
       "                        preferredFont:null,\n",
       "                        webFont: \"TeX\",\n",
       "                    styles: {'.MathJax_Display': {\"margin\": 4}}\n",
       "                }\n",
       "        });\n",
       "</script>\n"
      ],
      "text/plain": [
       "<IPython.core.display.HTML object>"
      ]
     },
     "execution_count": 1,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "#format the book\n",
    "%matplotlib inline\n",
    "from __future__ import division, print_function\n",
    "from book_format import load_style\n",
    "load_style()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "If you've gotten this far I hope that you are thinking that the Kalman filter's fearsome reputation is somewhat undeserved. Sure, I hand waved some equations away, but I hope implementation has been fairly straightforward for you. The underlying concept is quite straightforward - take two measurements, or a measurement and a prediction, and choose the output to be somewhere between the two. If you believe the measurement more your guess will be closer to the measurement, and if you believe the prediction is more accurate your guess will lie closer to it. That's not rocket science (little joke - it is exactly this math that got Apollo to the moon and back!). \n",
    "\n",
    "To be honest I have been choosing my problems carefully. For an arbitrary problem designing the Kalman filter matrices can be extremely difficult. I haven't been *too tricky*, though. Equations like Newton's equations of motion can be trivially computed for Kalman filter applications, and they make up the bulk of the kind of problems that we want to solve. \n",
    "\n",
    "I have illustrated the concepts with code and reasoning, not math. But there are topics that do require more mathematics than I have used so far. This chapter presents the math that you will need for the rest of the book."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Modeling a Dynamic System\n",
    "\n",
    "A *dynamic system* is a physical system whose state (position, temperature, etc) evolves over time. Calculus is the math of changing values, so we use differential equations to model dynamic systems. Some systems cannot be modeled with differential equations, but we will not encounter those in this book.\n",
    "\n",
    "Modeling dynamic systems is properly the topic of several college courses. To an extent there is no substitute for a few semesters of ordinary and partial differential equations followed by a graduate course in control system theory. If you are a hobbyist, or trying to solve one very specific filtering problem at work you probably do not have the time and/or inclination to devote a year or more to that education.\n",
    "\n",
    "Fortunately, I can present enough of the theory to allow us to create the system equations for many different Kalman filters. My goal is to get you to the stage where you can read a publication and understand it well enough to implement the algorithms. The background math is deep, but in practice we end up using a few simple techniques. \n",
    "\n",
    "This is the longest section of pure math in this book. You will need to master everything in this section to understand the Extended Kalman filter (EKF), the most common nonlinear filter. I do cover more modern filters that do not require as much of this math. You can choose to skim now, and come back to this if you decide to learn the EKF.\n",
    "\n",
    "We need to start by understanding the underlying equations and assumptions that the Kalman filter uses. We are trying to model real world phenomena, so what do we have to consider?\n",
    "\n",
    "Each physical system has a process. For example, a car traveling at a certain velocity goes so far in a fixed amount of time, and its velocity varies as a function of its acceleration. We describe that behavior with the well known Newtonian equations that we learned in high school.\n",
    "\n",
    "$$\n",
    "\\begin{aligned}\n",
    "v&=at\\\\\n",
    "x &= \\frac{1}{2}at^2 + v_0t + x_0\n",
    "\\end{aligned}\n",
    "$$\n",
    "\n",
    "Once we learned calculus we saw them in this form:\n",
    "\n",
    "$$ \\mathbf v = \\frac{d \\mathbf x}{d t}, \n",
    "\\quad \\mathbf a = \\frac{d \\mathbf v}{d t} = \\frac{d^2 \\mathbf x}{d t^2}\n",
    "$$\n",
    "\n",
    "A typical automobile tracking problem would have you compute the distance traveled given a constant velocity or acceleration, as we did in previous chapters. But, of course we know this is not all that is happening. No car travels on a perfect road. There are bumps, wind drag, and hills that raise and lower the speed. The suspension is a mechanical system with friction and imperfect springs.\n",
    "\n",
    "Perfectly modeling a system is impossible except for the most trivial problems. We are forced to make a simplification. At any time $t$ we say that the true state (such as the position of our car) is the predicted value from the imperfect model plus some unknown *process noise*:\n",
    "\n",
    "$$\n",
    "x(t) = x_{pred}(t) + noise(t)\n",
    "$$\n",
    "\n",
    "This is not meant to imply that $noise(t)$ is a function that we can derive analytically. It is merely a statement of fact - we can always describe the true value as the predicted value  plus the process noise. \"Noise\" does not imply random events. If we are tracking a thrown ball in the atmosphere, and our model assumes the ball is in a vacuum, then the effect of air drag is process noise in this context.\n",
    "\n",
    "In the next section we will learn techniques to convert a set of higher order differential equations into a set of first-order differential equations.  After the conversion the model of the system without noise is:\n",
    "\n",
    "$$ \\dot{\\mathbf x} = \\mathbf{Ax}$$\n",
    "\n",
    "$\\mathbf A$ is known as the *systems dynamics matrix* as it describes the dynamics of the system. Now we need to model the noise. We will call that $\\mathbf w$, and add it to the equation. \n",
    "\n",
    "$$ \\dot{\\mathbf x} = \\mathbf{Ax} + \\mathbf w$$\n",
    "\n",
    "$\\mathbf w$ may strike you as a poor choice for the name, but you will soon see that the Kalman filter assumes *white* noise.\n",
    "\n",
    "Finally, we need to consider any inputs into the system. We assume an input $\\mathbf u$, and that there exists a linear model that defines how that input changes the system. For example, pressing the accelerator in your car makes it accelerate, and gravity causes balls to fall. Both are control inputs. We will need a matrix $\\mathbf B$ to convert $u$ into the effect on the system. We add that into our equation:\n",
    "\n",
    "$$ \\dot{\\mathbf x} = \\mathbf{Ax} + \\mathbf{Bu} + \\mathbf{w}$$\n",
    "\n",
    "And that's it. That is one of the equations that Dr. Kalman set out to solve, and he found an optimal estimator if we assume certain properties of $\\mathbf w$."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## State-Space Representation of Dynamic Systems"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We've derived the equation\n",
    "\n",
    "$$ \\dot{\\mathbf x} = \\mathbf{Ax}+ \\mathbf{Bu} + \\mathbf{w}$$\n",
    "\n",
    "However, we are not interested in the derivative of $\\mathbf x$, but in $\\mathbf x$ itself. Ignoring the noise for a moment, we want an equation that recusively finds the value of $\\mathbf x$ at time $t_k$ in terms of $\\mathbf x$ at time $t_{k-1}$:\n",
    "\n",
    "$$\\mathbf x(t_k) = \\mathbf F(\\Delta t)\\mathbf x(t_{k-1}) + \\mathbf B(t_k)\\mathbf u (t_k)$$\n",
    "\n",
    "Convention allows us to write $\\mathbf x(t_k)$ as $\\mathbf x_k$, which means the \n",
    "the value of $\\mathbf x$ at the k$^{th}$ value of $t$.\n",
    "\n",
    "$$\\mathbf x_k = \\mathbf{Fx}_{k-1} + \\mathbf B_k\\mathbf u_k$$\n",
    "\n",
    "$\\mathbf F$ is the familiar *state transition matrix*, named due to its ability to transition the state's value between discrete time steps. It is very similar to the system dynamics matrix $\\mathbf A$. The difference is that $\\mathbf A$ models a set of linear differential equations, and is continuous. $\\mathbf F$ is discrete, and represents a set of linear equations (not differential equations) which transitions $\\mathbf x_{k-1}$ to $\\mathbf x_k$ over a discrete time step $\\Delta t$. \n",
    "\n",
    "Finding this matrix is often quite difficult. The equation $\\dot x = v$ is the simplest possible differential equation and we trivially integrate it as:\n",
    "\n",
    "$$ \\int\\limits_{x_{k-1}}^{x_k}  \\mathrm{d}x = \\int\\limits_{0}^{\\Delta t} v\\, \\mathrm{d}t $$\n",
    "$$x_k-x_0 = v \\Delta t$$\n",
    "$$x_k = v \\Delta t + x_0$$\n",
    "\n",
    "This equation is *recursive*: we compute the value of $x$ at time $t$ based on its value at time $t-1$. This recursive form enables us to represent the system (process model) in the form required by the Kalman filter:\n",
    "\n",
    "$$\\begin{aligned}\n",
    "\\mathbf x_k &= \\mathbf{Fx}_{k-1}  \\\\\n",
    "&= \\begin{bmatrix} 1 & \\Delta t \\\\ 0 & 1\\end{bmatrix}\n",
    "\\begin{bmatrix}x_{k-1} \\\\ \\dot x_{k-1}\\end{bmatrix}\n",
    "\\end{aligned}$$\n",
    "\n",
    "We can do that only because $\\dot x = v$ is simplest differential equation possible. Almost all other in physical systems result in more complicated differential equation which do not yield to this approach. \n",
    "\n",
    "*State-space* methods became popular around the time of the Apollo missions, largely due to the work of Dr. Kalman. The idea is simple. Model a system with a set of  $n^{th}$-order differential equations. Convert them into an equivalent set of first-order differential equations. Put them into the vector-matrix form used in the previous section: $\\dot{\\mathbf x} = \\mathbf{Ax} + \\mathbf{Bu}$. Once in this form we use of of several techniques to convert these linear differential equations into the recursive equation:\n",
    "\n",
    "$$ \\mathbf x_k = \\mathbf{Fx}_{k-1} + \\mathbf B_k\\mathbf u_k$$\n",
    "\n",
    "Some books call the state transition matrix the *fundamental matrix*. Many use $\\mathbf \\Phi$ instead of $\\mathbf F$. Sources based heavily on control theory tend to use these forms.\n",
    "\n",
    "These are called *state-space* methods because we are expressing the solution of the differential equations in terms of the system state. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Forming First Order Equations from Higher Order Equations\n",
    "\n",
    "Many models of physical systems require second or higher order differential equations with control input $u$:\n",
    "\n",
    "$$a_n \\frac{d^ny}{dt^n} + a_{n-1} \\frac{d^{n-1}y}{dt^{n-1}} +  \\dots + a_2 \\frac{d^2y}{dt^2} + a_1 \\frac{dy}{dt} + a_0 = u$$\n",
    "\n",
    "State-space methods require first-order equations. Any higher order system of equations can be reduced to first-order by defining extra variables for the derivatives and then solving. \n",
    "\n",
    "\n",
    "Let's do an example. Given the system $\\ddot{x} - 6\\dot x + 9x = u$ find the equivalent first order equations. I've used the dot notation for the time derivatives for clarity.\n",
    "\n",
    "The first step is to isolate the highest order term onto one side of the equation.\n",
    "\n",
    "$$\\ddot{x} = 6\\dot x - 9x + u$$\n",
    "\n",
    "We define two new variables:\n",
    "\n",
    "$$\\begin{aligned} x_1(u) &= x \\\\\n",
    "x_2(u) &= \\dot x\n",
    "\\end{aligned}$$\n",
    "\n",
    "Now we will substitute these into the original equation and solve. The solution yields a set of first-order equations in terms of these new variables. It is conventional to drop the $(u)$ for notational convenience.\n",
    "\n",
    "We know that $\\dot x_1 = x_2$ and that $\\dot x_2 = \\ddot{x}$. Therefore\n",
    "\n",
    "$$\\begin{aligned}\n",
    "\\dot x_2 &= \\ddot{x} \\\\\n",
    "         &= 6\\dot x - 9x + t\\\\\n",
    "         &= 6x_2-9x_1 + t\n",
    "\\end{aligned}$$\n",
    "\n",
    "Therefore our first-order system of equations is\n",
    "\n",
    "$$\\begin{aligned}\\dot x_1 &= x_2 \\\\\n",
    "\\dot x_2 &= 6x_2-9x_1 + t\\end{aligned}$$\n",
    "\n",
    "If you practice this a bit you will become adept at it. Isolate the highest term, define a new variable and its derivatives, and then substitute."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### First Order Differential Equations In State-Space Form\n",
    "\n",
    "Substituting the newly defined variables from the previous section:\n",
    "\n",
    "$$\\frac{dx_1}{dt} = x_2,\\,  \n",
    "\\frac{dx_2}{dt} = x_3, \\, ..., \\, \n",
    "\\frac{dx_{n-1}}{dt} = x_n$$\n",
    "\n",
    "into the first order equations yields: \n",
    "\n",
    "$$\\frac{dx_n}{dt} = \\frac{1}{a_n}\\sum\\limits_{i=0}^{n-1}a_ix_{i+1} + \\frac{1}{a_n}u\n",
    "$$\n",
    "\n",
    "\n",
    "Using vector-matrix notation we have:\n",
    "\n",
    "$$\\begin{bmatrix}\\frac{dx_1}{dt} \\\\ \\frac{dx_2}{dt} \\\\ \\vdots \\\\ \\frac{dx_n}{dt}\\end{bmatrix} = \n",
    "\\begin{bmatrix}\\dot x_1 \\\\ \\dot x_2 \\\\ \\vdots \\\\ \\dot x_n\\end{bmatrix}=\n",
    "\\begin{bmatrix}0 & 1 & 0 &\\cdots & 0 \\\\\n",
    "0 & 0 & 1 & \\cdots & 0 \\\\\n",
    "\\vdots & \\vdots & \\vdots & \\ddots & \\vdots \\\\\n",
    "-\\frac{a_0}{a_n} & -\\frac{a_1}{a_n} & -\\frac{a_2}{a_n} & \\cdots & -\\frac{a_{n-1}}{a_n}\\end{bmatrix}\n",
    "\\begin{bmatrix}x_1 \\\\ x_2 \\\\ \\vdots \\\\ x_n\\end{bmatrix} + \n",
    "\\begin{bmatrix}0 \\\\ 0 \\\\ \\vdots \\\\ \\frac{1}{a_n}\\end{bmatrix}u$$\n",
    "\n",
    "which we then write as $\\dot{\\mathbf x} = \\mathbf{Ax} + \\mathbf{B}u$."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Finding the Fundamental Matrix for Time Invariant Systems\n",
    "\n",
    "We express the system equations in state-space form with\n",
    "\n",
    "$$ \\dot{\\mathbf x} = \\mathbf{Ax}$$\n",
    "\n",
    "where $\\mathbf A$ is the system dynamics matrix, and want to find the *fundamental matrix* $\\mathbf F$ that propagates the state $\\mathbf x$ over the interval $\\Delta t$ with the equation\n",
    "\n",
    "$$\\begin{aligned}\n",
    "\\mathbf x(t_k) = \\mathbf F(\\Delta t)\\mathbf x(t_{k-1})\\end{aligned}$$\n",
    "\n",
    "In other words, $\\mathbf A$ is a set of continuous differential equations, and we need $\\mathbf F$ to be a set of discrete linear equations that computes the change in $\\mathbf A$ over a discrete time step.\n",
    "\n",
    "It is conventional to drop the $t_k$ and $(\\Delta t)$ and use the notation\n",
    "\n",
    "$$\\mathbf x_k = \\mathbf {Fx}_{k-1}$$\n",
    "\n",
    "Broadly speaking there are three common ways to find this matrix for Kalman filters. The technique most often used is the matrix exponential. Linear Time Invariant Theory, also known as LTI System Theory, is a second technique. Finally, there are numerical techniques. You may know of others, but these three are what you will most likely encounter in the Kalman filter literature and praxis."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### The Matrix Exponential\n",
    "\n",
    "The solution to the equation $\\frac{dx}{dt} = kx$ can be found by:\n",
    "\n",
    "$$\\begin{gathered}\\frac{dx}{dt} = kx \\\\\n",
    "\\frac{dx}{x} = k\\, dt \\\\\n",
    "\\int \\frac{1}{x}\\, dx = \\int k\\, dt \\\\\n",
    "\\log x = kt + c \\\\\n",
    "x = e^{kt+c} \\\\\n",
    "x = e^ce^{kt} \\\\\n",
    "x = c_0e^{kt}\\end{gathered}$$\n",
    "\n",
    "Using similar math, the solution to the first-order equation \n",
    "\n",
    "$$\\dot{\\mathbf x} = \\mathbf{Ax} ,\\, \\, \\, \\mathbf x(0) = \\mathbf x_0$$\n",
    "\n",
    "where $\\mathbf A$ is a constant matrix, is\n",
    "\n",
    "$$\\mathbf x = e^{\\mathbf At}\\mathbf x_0$$\n",
    "\n",
    "Substituting $F = e^{\\mathbf At}$, we can write \n",
    "\n",
    "$$\\mathbf x_k = \\mathbf F\\mathbf x_{k-1}$$\n",
    "\n",
    "which is the form we are looking for! We have reduced the problem of finding the fundamental matrix to one of finding the value for $e^{\\mathbf At}$.\n",
    "\n",
    "$e^{\\mathbf At}$ is known as the [matrix exponential](https://en.wikipedia.org/wiki/Matrix_exponential). It can be computed with this power series:\n",
    "\n",
    "$$e^{\\mathbf At} = \\mathbf{I} + \\mathbf{A}t  + \\frac{(\\mathbf{A}t)^2}{2!} + \\frac{(\\mathbf{A}t)^3}{3!} + ... $$\n",
    "\n",
    "That series is found by doing a Taylor series expansion of $e^{\\mathbf At}$, which I will not cover here.\n",
    "\n",
    "Let's use this to find the solution to Newton's equations. Using $v$ as a substitution for $\\dot x$, and assuming constant velocity we get the linear matrix-vector form \n",
    "\n",
    "$$\\begin{bmatrix}\\dot x \\\\ \\dot v\\end{bmatrix} =\\begin{bmatrix}0&1\\\\0&0\\end{bmatrix} \\begin{bmatrix}x \\\\ v\\end{bmatrix}$$\n",
    "\n",
    "This is a first order differential equation, so we can set $\\mathbf{A}=\\begin{bmatrix}0&1\\\\0&0\\end{bmatrix}$ and solve the following equation. I have substituted the interval $\\Delta t$ for $t$ to emphasize that the fundamental matrix is discrete:\n",
    "\n",
    "$$\\mathbf F = e^{\\mathbf A\\Delta t} = \\mathbf{I} + \\mathbf A\\Delta t  + \\frac{(\\mathbf A\\Delta t)^2}{2!} + \\frac{(\\mathbf A\\Delta t)^3}{3!} + ... $$\n",
    "\n",
    "If you perform the multiplication you will find that $\\mathbf{A}^2=\\begin{bmatrix}0&0\\\\0&0\\end{bmatrix}$, which means that all higher powers of $\\mathbf{A}$ are also $\\mathbf{0}$. Thus we get an exact answer without an infinite number of terms:\n",
    "\n",
    "$$\n",
    "\\begin{aligned}\n",
    "\\mathbf F &=\\mathbf{I} + \\mathbf A \\Delta t + \\mathbf{0} \\\\\n",
    "&= \\begin{bmatrix}1&0\\\\0&1\\end{bmatrix} + \\begin{bmatrix}0&1\\\\0&0\\end{bmatrix}\\Delta t\\\\\n",
    "&= \\begin{bmatrix}1&\\Delta t\\\\0&1\\end{bmatrix}\n",
    "\\end{aligned}$$\n",
    "\n",
    "We plug this into $\\mathbf x_k= \\mathbf{Fx}_{k-1}$ to get\n",
    "\n",
    "$$\n",
    "\\begin{aligned}\n",
    "x_k &=\\begin{bmatrix}1&\\Delta t\\\\0&1\\end{bmatrix}x_{k-1}\n",
    "\\end{aligned}$$\n",
    "\n",
    "You will recognize this as the matrix we derived analytically for the constant velocity Kalman filter in the **Multivariate Kalman Filter** chapter.\n",
    "\n",
    "SciPy's linalg module includes a routine `expm()` to compute the matrix exponential. It does not use the Taylor series method, but the [Padé Approximation](https://en.wikipedia.org/wiki/Pad%C3%A9_approximant). There are many (at least 19) methods to computed the matrix exponential, and all suffer from numerical difficulties[1]. You should be aware of the problems, especially when $\\mathbf A$ is large. If you search for \"pade approximation matrix exponential\" you will find many publications devoted to this problem. \n",
    "\n",
    "In practice this may not be of concern to you as for the Kalman filter we normally just take the first two terms of the Taylor series. But don't assume my treatment of the problem is complete and run off and try to use this technique for other problem without doing a numerical analysis of the performance of this technique. Interestingly, one of the favored ways of solving $e^{\\mathbf At}$ is to use a generalized ode solver. In other words, they do the opposite of what we do - turn $\\mathbf A$ into a set of differential equations, and then solve that set using numerical techniques! \n",
    "\n",
    "Here is an example of using `expm()` to solve $e^{\\mathbf At}$."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "array([[ 1.0,  0.1],\n",
       "       [ 0.0,  1.0]])"
      ]
     },
     "execution_count": 2,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "import numpy as np\n",
    "from scipy.linalg import expm\n",
    "\n",
    "dt = 0.1\n",
    "A = np.array([[0, 1], \n",
    "              [0, 0]])\n",
    "expm(A*dt)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Time Invariance\n",
    "\n",
    "If the behavior of the system depends on time we can say that a dynamic system is described by the first-order differential equation\n",
    "\n",
    "$$ g(t) = \\dot x$$\n",
    "\n",
    "However, if the system is *time invariant* the equation is of the form:\n",
    "\n",
    "$$ f(x) = \\dot x$$\n",
    "\n",
    "What does *time invariant* mean? Consider a home stereo. If you input a signal $x$ into it at time $t$, it will output some signal $f(x)$. If you instead perform the input at time $t + \\Delta t$ the output signal will be the same $f(x)$, shifted in time.\n",
    "\n",
    "A counter-example is $x(t) = \\sin(t)$, with the system  $f(x) = t\\,  x(t) = t \\sin(t)$. This is not time invariant; the value will be different at different times due to the multiplication by t.  An aircraft is not time invariant. If you make a control input to the aircraft at a later time its behavior will be different because it will have burned fuel and thus lost weight. Lower weight results in different behavior.\n",
    "\n",
    "We can solve these equations by integrating each side. I demonstrated integrating the time invariant system $v = \\dot x$ above. However, integrating the time invariant equation $\\dot x = f(x)$ is not so straightforward. Using the *separation of variables* techniques we divide by $f(x)$ and move the $dt$ term to the right so we can integrate each side:\n",
    "\n",
    "$$\\begin{gathered}\n",
    "\\frac{dx}{dt} = f(x) \\\\\n",
    "\\int^x_{x_0} \\frac{1}{f(x)} dx = \\int^t_{t_0} dt\n",
    "\\end{gathered}$$\n",
    "\n",
    "If we let $F(x) = \\int \\frac{1}{f(x)} dx$ we get\n",
    "\n",
    "$$F(x) - F(x_0) = t-t_0$$\n",
    "\n",
    "We then solve for x with\n",
    "\n",
    "$$\\begin{gathered}\n",
    "F(x) = t - t_0 + F(x_0) \\\\\n",
    "x = F^{-1}[t-t_0 + F(x_0)]\n",
    "\\end{gathered}$$\n",
    "\n",
    "In other words, we need to find the inverse of $F$. This is not trivial, and a significant amount of coursework in a STEM education is devoted to finding tricky, analytic solutions to this problem. \n",
    "\n",
    "However, they are tricks, and many simple forms of $f(x)$ either have no closed form solution or pose extreme difficulties. Instead, the practicing engineer turns to state-space methods to find approximate solutions.\n",
    "\n",
    "The advantage of the matrix exponential is that we can use it for any arbitrary set of differential equations which are *time invariant*. However, we often use this technique even when the equations are not time invariant. As an aircraft flies it burns fuel and loses weight. However, the weight loss over one second is negligible, and so the system is nearly linear over that time step. Our answers will still be reasonably accurate so long as the time step is short."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Example: Mass-Spring-Damper Model\n",
    "\n",
    "Suppose we wanted to track the motion of a weight on a spring and connected to a damper, such as an automobile's suspension. The equation for the motion with $m$ being the mass, $k$ the spring constant, and $c$ the damping force, under some input $u$ is \n",
    "\n",
    "$$m\\frac{d^2x}{dt^2} + c\\frac{dx}{dt} +kx = u$$\n",
    "\n",
    "For notational convenience I will write that as\n",
    "\n",
    "$$m\\ddot x + c\\dot x + kx = u$$\n",
    "\n",
    "I can turn this into a system of first order equations by setting $x_1(t)=x(t)$, and then substituting as follows:\n",
    "\n",
    "$$\\begin{aligned}\n",
    "x_1 &= x \\\\\n",
    "x_2 &= \\dot x_1 \\\\\n",
    "\\dot x_2 &= \\ddot x_1 = \\ddot x\n",
    "\\end{aligned}$$\n",
    "\n",
    "As is common I dropped the $(t)$ for notational convenience. This gives the equation\n",
    "\n",
    "$$m\\dot x_2 + c x_2 +kx_1 = u$$\n",
    "\n",
    "Solving for $\\dot x_2$ we get a first order equation:\n",
    "\n",
    "$$\\dot x_2 = -\\frac{c}{m}x_2 - \\frac{k}{m}x_1 + \\frac{1}{m}u$$\n",
    "\n",
    "We put this into matrix form:\n",
    "\n",
    "$$\\begin{bmatrix} \\dot x_1 \\\\ \\dot x_2 \\end{bmatrix} = \n",
    "\\begin{bmatrix}0 & 1 \\\\ -k/m & -c/m \\end{bmatrix}\n",
    "\\begin{bmatrix} x_1 \\\\ x_2 \\end{bmatrix} + \n",
    "\\begin{bmatrix} 0 \\\\ 1/m \\end{bmatrix}u$$\n",
    "\n",
    "Now we use the matrix exponential to find the state transition matrix:\n",
    "\n",
    "$$\\Phi(t) = e^{\\mathbf At} = \\mathbf{I} + \\mathbf At  + \\frac{(\\mathbf At)^2}{2!} + \\frac{(\\mathbf At)^3}{3!} + ... $$\n",
    "\n",
    "The first two terms give us\n",
    "\n",
    "$$\\mathbf F = \\begin{bmatrix}1 & t \\\\ -(k/m) t & 1-(c/m) t \\end{bmatrix}$$\n",
    "\n",
    "This may or may not give you enough precision. You can easily check this by computing $\\frac{(\\mathbf At)^2}{2!}$ for your constants and seeing how much this matrix contributes to the results."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Linear Time Invariant Theory\n",
    "\n",
    "[*Linear Time Invariant Theory*](https://en.wikipedia.org/wiki/LTI_system_theory), also known as LTI System Theory, gives us a way to find $\\Phi$ using the inverse Laplace transform. You are either nodding your head now, or completely lost.  I will not be using the Laplace transform in this book. LTI system theory tells us that \n",
    "\n",
    "$$ \\Phi(t) = \\mathcal{L}^{-1}[(s\\mathbf{I} - \\mathbf{A})^{-1}]$$\n",
    "\n",
    "I have no intention of going into this other than to say that the Laplace transform $\\mathcal{L}$ converts a signal into a space $s$ that excludes time, but finding a solution to the equation above is non-trivial. If you are interested, the Wikipedia article on LTI system theory provides an introduction. I mention LTI because you will find some literature using it to design the Kalman filter matrices for difficult problems. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Numerical Solutions\n",
    "\n",
    "Finally, there are numerical techniques to find $\\mathbf F$. As filters get larger finding analytical solutions becomes very tedious (though packages like SymPy make it easier). C. F. van Loan [2] has developed a technique that finds both $\\Phi$ and $\\mathbf Q$ numerically. Given the continuous model\n",
    "\n",
    "$$ \\dot x = Ax + Gw$$\n",
    "\n",
    "where $w$ is the unity white noise, van Loan's method computes both $\\mathbf F_k$ and $\\mathbf Q_k$.\n",
    "    \n",
    "I have implemented van Loan's method in `FilterPy`. You may use it as follows:\n",
    "\n",
    "```python\n",
    "from filterpy.common import van_loan_discretization\n",
    "\n",
    "A = np.array([[0., 1.], [-1., 0.]])\n",
    "G = np.array([[0.], [2.]]) # white noise scaling\n",
    "F, Q = van_loan_discretization(A, G, dt=0.1)\n",
    "```\n",
    "    \n",
    "In the section *Numeric Integration of Differential Equations* I present alternative methods which are very commonly used in Kalman filtering."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Design of the Process Noise Matrix\n",
    "\n",
    "In general the design of the $\\mathbf Q$ matrix is among the most difficult aspects of Kalman filter design. This is due to several factors. First, the math requires a good foundation in signal theory. Second, we are trying to model the noise in something for which we have little information. Consider trying to model the process noise for a thrown baseball. We can model it as a sphere moving through the air, but that leaves many unknown factors - ball rotation and spin decay, the coefficient of drag of a ball with stitches, the effects of wind and air density, and so on. We develop the equations for an exact mathematical solution for a given process model, but since the process model is incomplete the result for $\\mathbf Q$ will also be incomplete. This has a lot of ramifications for the behavior of the Kalman filter. If $\\mathbf Q$ is too small then the filter will be overconfident in its prediction model and will diverge from the actual solution. If $\\mathbf Q$ is too large than the filter will be unduly influenced by the noise in the measurements and perform sub-optimally. In practice we spend a lot of time running simulations and evaluating collected data to try to select an appropriate value for $\\mathbf Q$. But let's start by looking at the math.\n",
    "\n",
    "\n",
    "Let's assume a kinematic system - some system that can be modeled using Newton's equations of motion. We can make a few different assumptions about this process. \n",
    "\n",
    "We have been using a process model of\n",
    "\n",
    "$$ \\dot{\\mathbf x} = \\mathbf{Ax} + \\mathbf{Bu} + \\mathbf{w}$$\n",
    "\n",
    "where $\\mathbf{w}$ is the process noise. Kinematic systems are *continuous* - their inputs and outputs can vary at any arbitrary point in time. However, our Kalman filters are *discrete* (there are continuous forms for Kalman filters, but we do not cover them in this book). We sample the system at regular intervals. Therefore we must find the discrete representation for the noise term in the equation above. This depends on what assumptions we make about the behavior of the noise. We will consider two different models for the noise."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Continuous White Noise Model"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We model kinematic systems using Newton's equations. We have either used position and velocity, or position, velocity, and acceleration as the models for our systems. There is nothing stopping us from going further - we can model jerk, jounce, snap, and so on. We don't do that normally because adding terms beyond the dynamics of the real system degrades the estimate. \n",
    "\n",
    "Let's say that we need to model the position, velocity, and acceleration. We can then assume that acceleration is constant for each discrete time step. Of course, there is process noise in the system and so the acceleration is not actually constant. The tracked object will alter the acceleration over time due to external, unmodeled forces. In this section we will assume that the acceleration changes by a continuous time zero-mean white noise $w(t)$. In other words, we are assuming that the small changes in velocity average to 0 over time (zero-mean). \n",
    "\n",
    "Since the noise is changing continuously we will need to integrate to get the discrete noise for the discretization interval that we have chosen. We will not prove it here, but the equation for the discretization of the noise is\n",
    "\n",
    "$$\\mathbf Q = \\int_0^{\\Delta t} \\mathbf F(t)\\mathbf{Q_c}\\mathbf F^\\mathsf{T}(t) dt$$\n",
    "\n",
    "where $\\mathbf{Q_c}$ is the continuous noise. The general reasoning should be clear. $\\mathbf F(t)\\mathbf{Q_c}\\mathbf F^\\mathsf{T}(t)$ is a projection of the continuous noise based on our process model $\\mathbf F(t)$ at the instant $t$. We want to know how much noise is added to the system over a discrete intervat $\\Delta t$, so we integrate this expression over the interval $[0, \\Delta t]$. \n",
    "\n",
    "We know the fundamental matrix for Newtonian systems is\n",
    "\n",
    "$$F = \\begin{bmatrix}1 & \\Delta t & {\\Delta t}^2/2 \\\\ 0 & 1 & \\Delta t\\\\ 0& 0& 1\\end{bmatrix}$$\n",
    "\n",
    "We define the continuous noise as \n",
    "\n",
    "$$\\mathbf{Q_c} = \\begin{bmatrix}0&0&0\\\\0&0&0\\\\0&0&1\\end{bmatrix} \\Phi_s$$\n",
    "\n",
    "where $\\Phi_s$ is the spectral density of the white noise. This can be derived, but is beyond the scope of this book. See any standard text on stochastic processes for the details. In practice we often do not know the spectral density of the noise, and so this turns into an \"engineering\" factor - a number we experimentally tune until our filter performs as we expect. You can see that the matrix that $\\Phi_s$ is multiplied by effectively assigns the power spectral density to the acceleration term. This makes sense; we assume that the system has constant acceleration except for the variations caused by noise. The noise alters the acceleration.\n",
    "\n",
    "We could carry out these computations ourselves, but I prefer using SymPy to solve the equation.\n",
    "\n",
    "$$\\mathbf{Q_c} = \\begin{bmatrix}0&0&0\\\\0&0&0\\\\0&0&1\\end{bmatrix} \\Phi_s$$\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/latex": [
       "$$\\left[\\begin{matrix}\\frac{\\Delta{t}^{5}}{20} & \\frac{\\Delta{t}^{4}}{8} & \\frac{\\Delta{t}^{3}}{6}\\\\\\frac{\\Delta{t}^{4}}{8} & \\frac{\\Delta{t}^{3}}{3} & \\frac{\\Delta{t}^{2}}{2}\\\\\\frac{\\Delta{t}^{3}}{6} & \\frac{\\Delta{t}^{2}}{2} & \\Delta{t}\\end{matrix}\\right] \\Phi_s$$"
      ],
      "text/plain": [
       "⎡         5           4           3⎤      \n",
       "⎢\\Delta{t}   \\Delta{t}   \\Delta{t} ⎥      \n",
       "⎢──────────  ──────────  ──────────⎥      \n",
       "⎢    20          8           6     ⎥      \n",
       "⎢                                  ⎥      \n",
       "⎢         4           3           2⎥      \n",
       "⎢\\Delta{t}   \\Delta{t}   \\Delta{t} ⎥      \n",
       "⎢──────────  ──────────  ──────────⎥⋅\\Phiₛ\n",
       "⎢    8           3           2     ⎥      \n",
       "⎢                                  ⎥      \n",
       "⎢         3           2            ⎥      \n",
       "⎢\\Delta{t}   \\Delta{t}             ⎥      \n",
       "⎢──────────  ──────────  \\Delta{t} ⎥      \n",
       "⎣    6           2                 ⎦      "
      ]
     },
     "execution_count": 3,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "import sympy\n",
    "from sympy import (init_printing, Matrix, MatMul, \n",
    "                   integrate, symbols)\n",
    "\n",
    "init_printing(use_latex='mathjax')\n",
    "dt, phi = symbols('\\Delta{t} \\Phi_s')\n",
    "F_k = Matrix([[1, dt, dt**2/2],\n",
    "              [0,  1,      dt],\n",
    "              [0,  0,       1]])\n",
    "Q_c = Matrix([[0, 0, 0],\n",
    "              [0, 0, 0],\n",
    "              [0, 0, 1]])*phi\n",
    "\n",
    "Q = integrate(F_k * Q_c * F_k.T, (dt, 0, dt))\n",
    "\n",
    "# factor phi out of the matrix to make it more readable\n",
    "Q = Q / phi\n",
    "MatMul(Q, phi)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "For completeness, let us compute the equations for the 0th order and 1st order equations."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "0th order discrete process noise\n"
     ]
    },
    {
     "data": {
      "text/latex": [
       "$$\\left[\\begin{matrix}\\Delta{t} \\Phi_s\\end{matrix}\\right]$$"
      ],
      "text/plain": [
       "[\\Delta{t}⋅\\Phiₛ]"
      ]
     },
     "execution_count": 4,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "F_k = Matrix([[1]])\n",
    "Q_c = Matrix([[phi]])\n",
    "\n",
    "print('0th order discrete process noise')\n",
    "integrate(F_k*Q_c*F_k.T,(dt, 0, dt))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "1st order discrete process noise\n"
     ]
    },
    {
     "data": {
      "text/latex": [
       "$$\\left[\\begin{matrix}\\frac{\\Delta{t}^{3}}{3} & \\frac{\\Delta{t}^{2}}{2}\\\\\\frac{\\Delta{t}^{2}}{2} & \\Delta{t}\\end{matrix}\\right] \\Phi_s$$"
      ],
      "text/plain": [
       "⎡         3           2⎤      \n",
       "⎢\\Delta{t}   \\Delta{t} ⎥      \n",
       "⎢──────────  ──────────⎥      \n",
       "⎢    3           2     ⎥      \n",
       "⎢                      ⎥⋅\\Phiₛ\n",
       "⎢         2            ⎥      \n",
       "⎢\\Delta{t}             ⎥      \n",
       "⎢──────────  \\Delta{t} ⎥      \n",
       "⎣    2                 ⎦      "
      ]
     },
     "execution_count": 5,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "F_k = Matrix([[1, dt],\n",
    "              [0, 1]])\n",
    "Q_c = Matrix([[0, 0],\n",
    "              [0, 1]]) * phi\n",
    "\n",
    "Q = integrate(F_k * Q_c * F_k.T, (dt, 0, dt))\n",
    "\n",
    "print('1st order discrete process noise')\n",
    "# factor phi out of the matrix to make it more readable\n",
    "Q = Q / phi\n",
    "MatMul(Q, phi)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Piecewise White Noise Model\n",
    "\n",
    "Another model for the noise assumes that the that highest order term (say, acceleration) is constant for the duration of each time period, but differs for each time period, and each of these is uncorrelated between time periods. In other words there is a discontinuous jump in acceleration at each time step. This is subtly different than the model above, where we assumed that the last term had a continuously varying noisy signal applied to it.  \n",
    "\n",
    "We will model this as\n",
    "\n",
    "$$f(x)=Fx+\\Gamma w$$\n",
    "\n",
    "where $\\Gamma$ is the *noise gain* of the system, and $w$ is the constant piecewise acceleration (or velocity, or jerk, etc). \n",
    "\n",
    "Let's start by looking at a first order system. In this case we have the state transition function\n",
    "\n",
    "$$\\mathbf{F} = \\begin{bmatrix}1&\\Delta t \\\\ 0& 1\\end{bmatrix}$$\n",
    "\n",
    "In one time period, the change in velocity will be $w(t)\\Delta t$, and the change in position will be $w(t)\\Delta t^2/2$, giving us\n",
    "\n",
    "$$\\Gamma = \\begin{bmatrix}\\frac{1}{2}\\Delta t^2 \\\\ \\Delta t\\end{bmatrix}$$\n",
    "\n",
    "The covariance of the process noise is then\n",
    "\n",
    "$$Q = \\mathbb E[\\Gamma w(t) w(t) \\Gamma^\\mathsf{T}] = \\Gamma\\sigma^2_v\\Gamma^\\mathsf{T}$$.\n",
    "\n",
    "We can compute that with SymPy as follows"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/latex": [
       "$$\\left[\\begin{matrix}\\frac{\\Delta{t}^{4}}{4} & \\frac{\\Delta{t}^{3}}{2}\\\\\\frac{\\Delta{t}^{3}}{2} & \\Delta{t}^{2}\\end{matrix}\\right] \\sigma^{2}_{v}$$"
      ],
      "text/plain": [
       "⎡         4           3⎤    \n",
       "⎢\\Delta{t}   \\Delta{t} ⎥    \n",
       "⎢──────────  ──────────⎥    \n",
       "⎢    4           2     ⎥    \n",
       "⎢                      ⎥⋅σ²ᵥ\n",
       "⎢         3            ⎥    \n",
       "⎢\\Delta{t}            2⎥    \n",
       "⎢──────────  \\Delta{t} ⎥    \n",
       "⎣    2                 ⎦    "
      ]
     },
     "execution_count": 6,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "var = symbols('sigma^2_v')\n",
    "v = Matrix([[dt**2 / 2], [dt]])\n",
    "\n",
    "Q = v * var * v.T\n",
    "\n",
    "# factor variance out of the matrix to make it more readable\n",
    "Q = Q / var\n",
    "MatMul(Q, var)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "The second order system proceeds with the same math.\n",
    "\n",
    "\n",
    "$$\\mathbf{F} = \\begin{bmatrix}1 & \\Delta t & {\\Delta t}^2/2 \\\\ 0 & 1 & \\Delta t\\\\ 0& 0& 1\\end{bmatrix}$$\n",
    "\n",
    "Here we will assume that the white noise is a discrete time Wiener process. This gives us\n",
    "\n",
    "$$\\Gamma = \\begin{bmatrix}\\frac{1}{2}\\Delta t^2 \\\\ \\Delta t\\\\ 1\\end{bmatrix}$$\n",
    "\n",
    "There is no 'truth' to this model, it is just convenient and provides good results. For example, we could assume that the noise is applied to the jerk at the cost of a more complicated equation. \n",
    "\n",
    "The covariance of the process noise is then\n",
    "\n",
    "$$Q = \\mathbb E[\\Gamma w(t) w(t) \\Gamma^\\mathsf{T}] = \\Gamma\\sigma^2_v\\Gamma^\\mathsf{T}$$.\n",
    "\n",
    "We can compute that with SymPy as follows"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/latex": [
       "$$\\left[\\begin{matrix}\\frac{\\Delta{t}^{4}}{4} & \\frac{\\Delta{t}^{3}}{2} & \\frac{\\Delta{t}^{2}}{2}\\\\\\frac{\\Delta{t}^{3}}{2} & \\Delta{t}^{2} & \\Delta{t}\\\\\\frac{\\Delta{t}^{2}}{2} & \\Delta{t} & 1\\end{matrix}\\right] \\sigma^{2}_{v}$$"
      ],
      "text/plain": [
       "⎡         4           3           2⎤    \n",
       "⎢\\Delta{t}   \\Delta{t}   \\Delta{t} ⎥    \n",
       "⎢──────────  ──────────  ──────────⎥    \n",
       "⎢    4           2           2     ⎥    \n",
       "⎢                                  ⎥    \n",
       "⎢         3                        ⎥    \n",
       "⎢\\Delta{t}            2            ⎥    \n",
       "⎢──────────  \\Delta{t}   \\Delta{t} ⎥⋅σ²ᵥ\n",
       "⎢    2                             ⎥    \n",
       "⎢                                  ⎥    \n",
       "⎢         2                        ⎥    \n",
       "⎢\\Delta{t}                         ⎥    \n",
       "⎢──────────  \\Delta{t}       1     ⎥    \n",
       "⎣    2                             ⎦    "
      ]
     },
     "execution_count": 7,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "var = symbols('sigma^2_v')\n",
    "v = Matrix([[dt**2 / 2], [dt], [1]])\n",
    "\n",
    "Q = v * var * v.T\n",
    "\n",
    "# factor variance out of the matrix to make it more readable\n",
    "Q = Q / var\n",
    "MatMul(Q, var)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We cannot say that this model is more or less correct than the continuous model - both are approximations to what is happening to the actual object. Only experience and experiments can guide you to the appropriate model. In practice you will usually find that either model provides reasonable results, but typically one will perform better than the other.\n",
    "\n",
    "The advantage of the second model is that we can model the noise in terms of $\\sigma^2$ which we can describe in terms of the motion and the amount of error we expect. The first model requires us to specify the spectral density, which is not very intuitive, but it handles varying time samples much more easily since the noise is integrated across the time period. However, these are not fixed rules - use whichever model (or a model of your own devising) based on testing how the filter performs and/or your knowledge of the behavior of the physical model.\n",
    "\n",
    "A good rule of thumb is to set $\\sigma$ somewhere from $\\frac{1}{2}\\Delta a$ to $\\Delta a$, where $\\Delta a$ is the maximum amount that the acceleration will change between sample periods. In practice we pick a number, run simulations on data, and choose a value that works well."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Using FilterPy to Compute Q\n",
    "\n",
    "FilterPy offers several routines to compute the $\\mathbf Q$ matrix. The function `Q_continuous_white_noise()` computes $\\mathbf Q$ for a given value for $\\Delta t$ and the spectral density."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[[ 0.333  0.5]\n",
      " [ 0.5  1.0]]\n"
     ]
    }
   ],
   "source": [
    "from filterpy.common import Q_continuous_white_noise\n",
    "from filterpy.common import Q_discrete_white_noise\n",
    "\n",
    "Q = Q_continuous_white_noise(dim=2, dt=1, spectral_density=1)\n",
    "print(Q)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[[ 0.05  0.125  0.167]\n",
      " [ 0.125  0.333  0.5]\n",
      " [ 0.167  0.5  1.0]]\n"
     ]
    }
   ],
   "source": [
    "Q = Q_continuous_white_noise(dim=3, dt=1, spectral_density=1)\n",
    "print(Q)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "The function `Q_discrete_white_noise()` computes $\\mathbf Q$ assuming a piecewise model for the noise."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[[ 0.25  0.5]\n",
      " [ 0.5  1.0]]\n"
     ]
    }
   ],
   "source": [
    "Q = Q_discrete_white_noise(2, var=1.)\n",
    "print(Q)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[[ 0.25  0.5  0.5]\n",
      " [ 0.5  1.0  1.0]\n",
      " [ 0.5  1.0  1.0]]\n"
     ]
    }
   ],
   "source": [
    "Q = Q_discrete_white_noise(3, var=1.)\n",
    "print(Q)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Simplification of Q\n",
    "\n",
    "Many treatments use a much simpler form for $\\mathbf Q$, setting it to zero except for a noise term in the lower rightmost element. Is this justified? Well, consider the value of $\\mathbf Q$ for a small $\\Delta t$"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[[ 0.00000002  0.00000078  0.00002083]\n",
      " [ 0.00000078  0.00004167  0.00125   ]\n",
      " [ 0.00002083  0.00125     0.05      ]]\n"
     ]
    }
   ],
   "source": [
    "import numpy as np\n",
    "\n",
    "np.set_printoptions(precision=8)\n",
    "Q = Q_continuous_white_noise(\n",
    "    dim=3, dt=0.05, spectral_density=1)\n",
    "print(Q)\n",
    "np.set_printoptions(precision=3)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We can see that most of the terms are very small. Recall that the only equation using this matrix is\n",
    "\n",
    "$$ \\mathbf P=\\mathbf{FPF}^\\mathsf{T} + \\mathbf Q$$\n",
    "\n",
    "If the values for $\\mathbf Q$ are small relative to $\\mathbf P$\n",
    "than it will be contributing almost nothing to the computation of $\\mathbf P$. Setting $\\mathbf Q$ to the zero matrix except for the lower right term\n",
    "\n",
    "$$\\mathbf Q=\\begin{bmatrix}0&0&0\\\\0&0&0\\\\0&0&\\sigma^2\\end{bmatrix}$$\n",
    "\n",
    "while not correct, is often a useful approximation. If you do this for an important application you will have to perform quite a few studies to guarantee that your filter works in a variety of situations. \n",
    "\n",
    "If you do this, 'lower right term' means the most rapidly changing term for each variable. If the state is $x=\\begin{bmatrix}x & \\dot x & \\ddot{x} & y & \\dot{y} & \\ddot{y}\\end{bmatrix}^\\mathsf{T}$ Then Q will be 6x6; the elements for both $\\ddot{x}$ and $\\ddot{y}$ will have to be set to non-zero in $\\mathbf Q$."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Stable Compution of the Posterior Covariance\n",
    "\n",
    "I've presented the equation to compute the posterior covariance as\n",
    "\n",
    "$$\\mathbf P = (\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P}$$\n",
    "\n",
    "and while strictly speaking this is correct, this is not how I compute it in `FilterPy`, where I use the *Joseph* equation\n",
    "\n",
    "\n",
    "$$\\mathbf P = (\\mathbf I-\\mathbf {KH})\\mathbf{\\bar P}(\\mathbf I-\\mathbf{KH})^\\mathsf T + \\mathbf{KRK}^\\mathsf T$$\n",
    "\n",
    "\n",
    "I frequently get emails and/or GitHub issues raised, claiming the implementation is a bug. It is not a bug, and I use it for several reasons. First, the subtraction $(\\mathbf I - \\mathbf{KH})$ can lead to nonsymmetric matrices results due to floating point errors. Covariances must be symmetric, and so becoming nonsymmetric usually leads to the Kalman filter diverging, or even for the code to raise an exception because of the checks built into `NumPy`.\n",
    "\n",
    "A traditional way to preserve symmetry is the following formula:\n",
    "\n",
    "$$\\mathbf P = (\\mathbf P + \\mathbf P^\\mathsf T) / 2$$\n",
    "\n",
    "This is safe because $\\sigma_{ij} = \\sigma_{ji}$ for all covariances in the matrix. Hence this operation averages the error between the differences of the two values if they have diverged due to floating point errors. \n",
    "\n",
    "If you look at the Joseph form for the equation above, you'll see there is a similar $\\mathbf{ABA}^\\mathsf T$ pattern in both terms. So they both preserve symmetry. But where did this equation come from, and why do I use it instead of\n",
    "\n",
    "\n",
    "$$\\mathbf P = (\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P} \\\\\n",
    "\\mathbf P = (\\mathbf P + \\mathbf P^\\mathsf T) / 2$$\n",
    "\n",
    "\n",
    "Let's just derive the equation from first principles. It's not too bad, and you need to understand the derivation to understand the purpose of the equation, and, more importantly, diagnose issues if you filter diverges due to numerical instability. This derivation comes from Brown[4].\n",
    "\n",
    "First, some symbology. $\\mathbf x$ is the true state of our system. $\\mathbf{\\hat x}$ is the estimated state of our system - the posterior. And $\\mathbf{\\bar x}$ is the estimated prior of the system. \n",
    "\n",
    "\n",
    "Given that, we can define our model to be\n",
    "\n",
    "$$\\mathbf x_{k+1} = \\mathbf F_k \\mathbf x_k + \\mathbf w_k \\\\\n",
    "\\mathbf z_k = \\mathbf H_k \\mathbf x_k + \\mathbf v_k$$\n",
    "\n",
    "In words, the next state $\\mathbf x_{k+1}$ of the system is the current state $k$ moved by some process $\\mathbf F_k$ plus some noise $\\mathbf w_k$. \n",
    "\n",
    "Note that these are definitions. No system perfectly follows a mathematical model, so we model that with the noise term $\\mathbf w_k$. And no measurement is perfect due to sensor error, so we model that with $\\mathbf v_k$\n",
    "\n",
    "I'll dispense with the subscript $k$ since in the remainder of the derivation we will only consider values at step $k$, never step $k+1$.\n",
    "\n",
    "Now we define the estimation error as the difference between the true state and the estimated state\n",
    "\n",
    "$$ \\mathbf e = \\mathbf x - \\mathbf{\\hat x}$$\n",
    "\n",
    "Again, this is a definition; we don't know how to compute $\\mathbf e$, it is just the defined difference between the true and estimated state.\n",
    "\n",
    "This allows us to define the covariance of our estimate, which is defined as the expected value of $\\mathbf{ee}^\\mathsf T$:\n",
    "\n",
    "$$\\begin{aligned}\n",
    "P &= E[\\mathbf e, \\mathbf e^\\mathsf T] \\\\\n",
    "&= E[(\\mathbf x - \\mathbf{\\hat x})(\\mathbf x - \\mathbf{\\hat x})^\\mathsf T]\n",
    "\\end{aligned}$$\n",
    "\n",
    "\n",
    "Next, we define the posterior estimate as\n",
    "\n",
    "$$\\mathbf {\\hat x} = \\mathbf{\\bar x} + \\mathbf K(\\mathbf z - \\mathbf{H \\bar x})$$\n",
    "\n",
    "That looks like the equation from the Kalman filter, and for good reason. But as with the rest of the math so far, this is a **definition**. In particular, we have not defined $\\mathbf K$, and you shouldn't think of it as the Kalman gain, because we are solving this for *any* problem, not just for linear Kalman filters. Here, $\\mathbf K$ is just some unspecified blending value between 0 and 1."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now we have our definitions, let's perform some substitution and algebra.\n",
    "\n",
    "The term $(\\mathbf x - \\mathbf{\\hat x})$ can be expanded by replacing $\\mathbf{\\hat x}$ with the definition above, yielding\n",
    "\n",
    "$$(\\mathbf x - \\mathbf{\\hat x}) = \\mathbf x - (\\mathbf{\\bar x} + \\mathbf K(\\mathbf z - \\mathbf{H \\bar x}))$$\n",
    "\n",
    "Now we replace $\\mathbf z$ with $\\mathbf H \\mathbf x + \\mathbf v$:\n",
    "\n",
    "$$\\begin{aligned}\n",
    "(\\mathbf x - \\mathbf{\\hat x})\n",
    "&= \\mathbf x - (\\mathbf{\\bar x} + \\mathbf K(\\mathbf z - \\mathbf{H \\bar x})) \\\\\n",
    "&= \\mathbf x - (\\mathbf{\\bar x} + \\mathbf K(\\mathbf H \\mathbf x + \\mathbf v - \\mathbf{H \\bar x})) \\\\\n",
    "&= (\\mathbf x - \\mathbf{\\bar x}) - \\mathbf K(\\mathbf H \\mathbf x + \\mathbf v - \\mathbf{H \\bar x}) \\\\\n",
    "&= (\\mathbf x - \\mathbf{\\bar x}) - \\mathbf{KH}(\\mathbf x - \\mathbf{ \\bar x}) - \\mathbf{Kv} \\\\\n",
    "&=  (\\mathbf I - \\mathbf{KH})(\\mathbf x - \\mathbf{\\bar x}) - \\mathbf{Kv}\n",
    "\\end{aligned}$$\n",
    "\n",
    "Now we can solve for $\\mathbf P$ if we note that the expected value of $(\\mathbf x - \\mathbf{\\bar x})$ is the prior covariance $\\mathbf{\\bar P}$, and that the expected value of $\\mathbf v$ is $E[\\mathbf{vv}^\\mathbf T] = \\mathbf R$:\n",
    "\n",
    "$$\\begin{aligned}\n",
    "\\mathbf P &= \n",
    "   E\\big[[(\\mathbf I - \\mathbf{KH})(\\mathbf x - \\mathbf{\\bar x}) - \\mathbf{Kv})]\n",
    "  [(\\mathbf I - \\mathbf{KH})(\\mathbf x - \\mathbf{\\bar x}) - \\mathbf{Kv}]^\\mathsf T\\big ] \\\\\n",
    "  &= (\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P}(\\mathbf I - \\mathbf{KH})^\\mathsf T + \\mathbf{KRK}^\\mathsf T\n",
    "\\end{aligned}$$\n",
    "\n",
    "which is what we came here to prove.\n",
    "\n",
    "Note that this equation is valid for *any* $\\mathbf K$, not just the optimal $\\mathbf K$ computed by the Kalman filter. And that is why I use this equation. In practice the Kalman gain computed by the filter is *not* the optimal value both because the real world is never truly linear and Gaussian, and because of floating point errors induced by computation. This equation is far less likely to cause the Kalman filter to diverge in the face of real world conditions.\n",
    "\n",
    "Where did $\\mathbf P = (\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P}$ come from, then? Let's finish the derivation, which is simple. Recall that the Kalman filter (optimal) gain is given by\n",
    "\n",
    "$$\\mathbf K = \\mathbf{\\bar P H^\\mathsf T}(\\mathbf{H \\bar P H}^\\mathsf T + \\mathbf R)^{-1}$$\n",
    "\n",
    "Now we substitute this into the equation we just derived:\n",
    "\n",
    "$$\\begin{aligned}\n",
    "&= (\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P}(\\mathbf I - \\mathbf{KH})^\\mathsf T + \\mathbf{KRK}^\\mathsf T\\\\\n",
    "&= \\mathbf{\\bar P} - \\mathbf{KH}\\mathbf{\\bar P} - \\mathbf{\\bar PH}\\mathbf{K}^\\mathsf T + \\mathbf K(\\mathbf{HPH}^\\mathsf T + \\mathbf R)\\mathbf K^\\mathsf T \\\\\n",
    "&= \\mathbf{\\bar P} - \\mathbf{KH}\\mathbf{\\bar P} - \\mathbf{\\bar PH}\\mathbf{K}^\\mathsf T + \\mathbf{\\bar P H^\\mathsf T}(\\mathbf{H \\bar P H}^\\mathsf T + \\mathbf R)^{-1}(\\mathbf{HPH}^\\mathsf T + \\mathbf R)\\mathbf K^\\mathsf T\\\\\n",
    "&= \\mathbf{\\bar P} - \\mathbf{KH}\\mathbf{\\bar P} - \\mathbf{\\bar PH}\\mathbf{K}^\\mathsf T + \\mathbf{\\bar P H^\\mathsf T}\\mathbf K^\\mathsf T\\\\\n",
    "&= \\mathbf{\\bar P} - \\mathbf{KH}\\mathbf{\\bar P}\\\\\n",
    "&= (\\mathbf I - \\mathbf{KH})\\mathbf P\n",
    "\\end{aligned}$$\n",
    "\n",
    "Therefore $\\mathbf P = (\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P}$ is mathematically correct when the gain is optimal, but so is $(\\mathbf I - \\mathbf{KH})\\mathbf{\\bar P}(\\mathbf I - \\mathbf{KH})^\\mathsf T + \\mathbf{KRK}^\\mathsf T$. As we already discussed the latter is also correct when the gain is suboptimal, and it is also more numerically stable. Therefore I use this computation in FilterPy.\n",
    "\n",
    "It is quite possible that your filter still diverges, especially if it runs for hundreds or thousands of epochs. You will need to examine these equations. The literature provides yet other forms of this computation which may be more applicable to your problem. As always, if you are solving real engineering problems where failure could mean loss of equipment or life, you will need to move past this book and into the engineering literature. If you are working with 'toy' problems where failure is not damaging, if you detect divergence you can just reset the value of $\\mathbf P$ to some 'reasonable' value and keep on going. For example, you could zero out the non diagonal elements so the matrix only contains variances, and then maybe multiply by a constant somewhat larger than one to reflect the loss of information you just injected into the filter. Use your imagination, and test."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Deriving the Kalman Gain Equation\n",
    "\n",
    "If you read the last section, you might as well read this one. With this we will have derived the Kalman filter equations.\n",
    "\n",
    "Note that this derivation is *not* using Bayes equations. I've seen at least four different ways to derive the Kalman filter equations; this derivation is typical to the literature, and follows from the last section. The source is again Brown [4].\n",
    "\n",
    "In the last section we used an unspecified scaling factor $\\mathbf K$ to derive the Joseph form of the covariance equation. If we want an optimal filter, we need to use calculus to minimize the errors in the equations. You should be familiar with this idea. If you want to find the minimum value of a function $f(x)$, you take the derivative and set it equal to zero: $\\frac{x}{dx}f(x) = 0$.\n",
    "\n",
    "In our problem the error is expressed by the covariance matrix $\\mathbf P$. In particular, the diagonal expresses the error (variance) of each element in the state vector. So, to find the optimal gain we want to take the derivative of the trace (sum) of the diagonal.\n",
    "\n",
    "Brown reminds us of two formulas involving the derivative of traces:\n",
    "\n",
    "$$\\frac{d\\, trace(\\mathbf{AB})}{d\\mathbf A} = \\mathbf B^\\mathsf T$$\n",
    "\n",
    "$$\\frac{d\\, trace(\\mathbf{ACA}^\\mathsf T)}{d\\mathbf A} = 2\\mathbf{AC}$$\n",
    "\n",
    "where $\\mathbf{AB}$ is square and $\\mathbf C$ is symmetric.\n",
    "\n",
    "\n",
    "We expand out the Joseph equation to:\n",
    "\n",
    "$$\\mathbf P = \\mathbf{\\bar P} - \\mathbf{KH}\\mathbf{\\bar P} - \\mathbf{\\bar P}\\mathbf H^\\mathsf T \\mathbf K^\\mathsf T + \\mathbf K(\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R)\\mathbf K^\\mathsf T$$\n",
    "\n",
    "Now we need to the the derivative of the trace of $\\mathbf P$ with respect to $\\mathbf T$: $\\frac{d\\, trace(\\mathbf P)}{d\\mathbf K}$.\n",
    "\n",
    "The derivative of the trace the first term with respect to $\\mathbf K$ is $0$, since it does not have $\\mathbf K$ in the expression.\n",
    "\n",
    "The derivative of the trace of the second term is $(\\mathbf H\\mathbf{\\bar P})^\\mathsf T$.\n",
    "\n",
    "We can find the derivative of the trace of the third term by noticing that $\\mathbf{\\bar P}\\mathbf H^\\mathsf T \\mathbf K^\\mathsf T$ is the transpose of $\\mathbf{KH}\\mathbf{\\bar P}$. The trace of a matrix is equal to the trace of it's transpose, so it's derivative will be same as the second term.\n",
    "\n",
    "Finally, the derivative of the trace of the fourth term is $2\\mathbf K(\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R)$.\n",
    "\n",
    "This gives us the final value of \n",
    "\n",
    "$$\\frac{d\\, trace(\\mathbf P)}{d\\mathbf K} = -2(\\mathbf H\\mathbf{\\bar P})^\\mathsf T + 2\\mathbf K(\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R)$$\n",
    "\n",
    "We set this to zero and solve to find the equation for $\\mathbf K$ which minimizes the error:\n",
    "\n",
    "$$-2(\\mathbf H\\mathbf{\\bar P})^\\mathsf T + 2\\mathbf K(\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R) = 0 \\\\\n",
    "\\mathbf K(\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R) = (\\mathbf H\\mathbf{\\bar P})^\\mathsf T \\\\\n",
    "\\mathbf K(\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R) = \\mathbf{\\bar P}\\mathbf H^\\mathsf T \\\\\n",
    "\\mathbf K= \\mathbf{\\bar P}\\mathbf H^\\mathsf T (\\mathbf H \\mathbf{\\bar P}\\mathbf H^\\mathsf T + \\mathbf R)^{-1}\n",
    "$$\n",
    "\n",
    "This derivation is not quite iron clad as I left out an argument about why minimizing the trace minimizes the total error, but I think it suffices for this book. Any of the standard texts will go into greater detail if you need it."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Numeric Integration of Differential Equations"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We've been exposed to several numerical techniques to solve linear differential equations. These include state-space methods, the Laplace transform, and van Loan's method. \n",
    "\n",
    "These work well for linear ordinary differential equations (ODEs), but do not work well for nonlinear equations. For example, consider trying to predict the position of a rapidly turning car. Cars maneuver by turning the front wheels. This makes them pivot around their rear axle as it moves forward. Therefore the path will be continuously varying and a linear prediction will necessarily produce an incorrect value. If the change in the system is small enough relative to $\\Delta t$ this can often produce adequate results, but that will rarely be the case with the nonlinear Kalman filters we will be studying in subsequent chapters. \n",
    "\n",
    "For these reasons we need to know how to numerically integrate ODEs. This can be a vast topic that requires several books. However, I will cover a few simple techniques which will work for a majority of the problems you encounter.\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Euler's Method\n",
    "\n",
    "Let's say we have the initial condition problem of \n",
    "\n",
    "$$\\begin{gathered}\n",
    "y' = y, \\\\ y(0) = 1\n",
    "\\end{gathered}$$\n",
    "\n",
    "We happen to know the exact answer is $y=e^t$ because we solved it earlier, but for an arbitrary ODE we will not know the exact solution. In general all we know is the derivative of the equation, which is equal to the slope. We also know the initial value: at $t=0$, $y=1$. If we know these two pieces of information we can predict the value at $y(t=1)$ using the slope at $t=0$ and the value of $y(0)$. I've plotted this below."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAusAAAEaCAYAAACo3xkcAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMS4wLCBo\ndHRwOi8vbWF0cGxvdGxpYi5vcmcvpW3flQAAIABJREFUeJzs3XdYlGe+PvB7Zhjq0GUAEbCgiLRY\nKIoijA1jssZNcVN2sybbkmw2J79zNjnRxJhoXE9OsombTbJJdje4J9F102NWTRswigqCSLGL0vvQ\nhj7l/f0x+urYYAaYodyf6/KCeQvzvF8xuXl4ikQQBAFERERERDTsSO3dACIiIiIiuj6GdSIiIiKi\nYYphnYiIiIhomGJYJyIiIiIaphjWiYiIiIiGKQd7N+BGjEYjjEaj2TGJRAKJRGKnFhERERERWU8Q\nBFy9EKNUKoVUeuP+82Ed1js6OuzdDCIiIiKiIePm5nbTsM5hMEREREREwxTDOhERERHRMMWwTkRE\nREQ0TA3bMevXm0ja15ieoXD8+HHo9Xo4ODggMjLSpu890rF21mPtrMfaWY+1sx5rNzCsn/VYO+vZ\no3bXm5PZ1+IpIyqs9zVbdigYjUYYDAa7vPdIx9pZj7WzHmtnPdbOeqzdwLB+1mPtrDdcatdXWOff\nKhERERHRMMWwTkREREQ0TDGsExERERENUwzrRERERETDFMM6EREREdEwxbBORERERDRMMawTERER\n0ZiSeboex2q77d2Mfhm266wTEREREQ2mem03Xtx1Al8V1sDPVYY/LvWBXG7vVt0cwzoRERERjWpG\no4AdR8qxZc8paLv1kEqAecEukODmGxINBwzrRERERDRqna7V4plPC3G0vAUAEDPBE5tXRcPQWAqd\nTmfn1vWNYZ2IiIiIRp2uXgP+pD6L9344D71RgJujDP+1LBw/mzsRMqkEBY32bmH/MKwTERER0aiy\n70wDnvu8GOVNnQCAZZH+2PCjSAR6uti5ZZZjWCciIiKiUaFB24ONX53AlwXVAIBAT2e88KNILI0M\nsHPLrMewTkREREQjmtEoYGduBf6w+yTaLk4g/fm8Sfh/S6dB4TSy4+7Ibj0RERERjWln67RY+1kR\njpQ2AwCigjzwh1UxiJ7gaeeWDQ6GdSIiIiIacbp1BvxZfQ7v/FACnUGAq6MM/7k0HA/ODYWDbPTs\n+8mwTkREREQjyoGzjVj3eRHKNKYJpIsjlHhhZRSCvEbeBNK+MKwTERER0YjQ2N6Dl/59Ep/lVwEA\nAjycseFHkVgW6Q+JZPhvcGQNhnUiIiIiGtaMRgEf5VVg8+5TaO3SQSIBHpw7Ef+5dBrcneX2bt6Q\nYlgnIiIiomHrXL0Waz8tRk5pEwBgRqAH/vDjaMQGe9m5ZbZh0eh7tVqNhx56CNOnT4ebmxuCgoKw\ncuVK5OXl9Xlveno6JBLJdf/U1tZa/QBERERENPp06wz44zensXzrfuSUNsFFLsOzKyLw5W+TxkxQ\nByzsWX/77beh0WjwxBNPYMaMGWhoaMCrr76KxMREfP3111CpVH1+jffffx/Tp083O+br62tZq4mI\niIho1Dp4rhHrPi/GhcYOAIBquhIvrozEBG9XO7fM9iwK62+++SaUSqXZsbS0NISFhWHz5s39CutR\nUVGYM2eOZa0kIiIiolFP096Dl3afxKdHTRNIle5OeOFHkUiLChi1E0j7YlFYvzqoA4BCocCMGTNQ\nUVExaI0iIiIiorFDEAR8nFeJzbtPornTNIH0p4mh+K9l4fAY5RNI+yIRBEEYyBdobW1FaGgoVCoV\nPv300xtel56ejjVr1sDf3x8NDQ3w9PRESkoKXnzxRURFRV1zvdFohFarNTtWXl4Oo9E4kOZaTKfT\niZ/L5WP7m8VSrJ31WDvrsXbWY+2sx9oNDOtnvdFQu8o2Hd4+0ozi+l4AwEQvOR6N80L4OKchfV97\n1E4qlSIkJMTsmLu7O6TSG08jHfBqMI899hg6Ojqwbt26m14XEBCAdevWITExER4eHigqKsKWLVuQ\nmJiIrKwsxMbG9vleer0eBoNhoE222pV/qWQZ1s56rJ31WDvrsXbWY+0GhvWz3kirnc4g4NNTHfjs\ndAf0RsBRBqyeocCKqa5wkEps+jy2ei+ZTGbxPQPqWX/uueewadMmvPHGG/jtb39r8f2lpaWIjo6G\nSqXCF198YXaOPesjH2tnPdbOeqyd9Vg767F2A8P6WW+k1q6orhtvHWlBtVYPAJgd6Ixfz/GCv8J2\nq4qP+p71F154AZs2bcJLL71kVVAHgIkTJ2L+/Pk4fPhwv66PjIy86cMMhYKCAuh0Osjl8n71/tNl\nrJ31WDvrsXbWY+2sx9oNDOtnvZFWu6aOXmzefRIf5zUCAPzcnbDh9kjcGm37CaT2qN31OqP7YlVY\nf+GFF7BhwwZs2LABa9euteZLiARBsHkAJyIiIiLbEQQBnx6twqZ/nxAnkN6fEILfL5sOT5eR8xsB\ne7A4rG/cuBEbNmzAs88+i+eff35Ab37hwgVkZWVh8eLFA/o6RERERDQ8nW9ox7OfF+NgiQYAEO7v\njs0/jsbsUG87t2xksCisv/rqq1i/fj3S0tKwYsWKa4avJCYmAgAefvhhbNu2DSUlJQgNDQUALF68\nGMnJyYiJiREnmL788suQSCTYuHHjID0OEREREQ0HPXoD3tl3Hn/OOIdevRHOcimeWDQNv1gwCXIZ\nR1X0l0VhfdeuXQCAvXv3Yu/evdecvzRX1WAwwGAw4Mq5q9HR0di5cydeeeUVdHV1QalUQqVS4bnn\nnsO0adMG8gxERERENIxkn9dg7WdFKGkw7UCaPM0Pm1ZGIcR37O1AOlAWhfXMzMx+XZeeno709HSz\nY6+99polb0VEREREI0xLZy/+sPsUduaaNsscp3DC+ttn4PaYwDG7A+lA2W59HCIiIiIalQRBwOfH\nqrDpq5PQdJg2N7ovIQRPL5sOT1dOIB0IhnUiIiIistqFxg48+3kRss6ZJpBO81dg86pozJnoY+eW\njQ4M60RERERksV69Ee/+UII/qU0TSJ0cpPjdoqn45YLJcHTgBNLBwrBORERERBY5UtqEZz4twrn6\ndgDAgqnjsOmOKIT6utm5ZaMPwzoRERER9Utrpw5b9p7EjhzTBFJfN0esv30GfhQ7nhNIhwjDOhER\nERHdlCAI+LKgGhu/OoHGdtME0p/EBeO/l0+Hl6ujnVs3ujGsExEREdENlWk68Oznxdh/thEAEKY0\nTSCNn8QJpLbAsE5ERERE1+jVG/He/vP40/dn0aM3wtFBisdTw/DrhVM4gdSGGNaJiIiIyExeWRPW\nflqM03VaAEBSmC823RGNSeM4gdTWGNaJiIiICIBpAun/fH0K27PLAQA+bo547rYI3HFLECeQ2gnD\nOhEREdEYJwgCdhXW4MVdJ9DY3gMAuGfOBDyzPALebpxAak8M60RERERjWEVTJ579vBj7zjQAACb7\nuWHzqmgkTva1c8sIYFgnIiIiGpN0BiP+duACXv/uDLp1RjjKpHgsNQy/SZkMJweZvZtHFzGsExER\nEY0xR8ubsfbTIpyqNU0gnTvZF5tWRWGKn8LOLaOrMawTERERjRFt3Tq8vPcUPswuhyAA3q5yrFsx\nA3fO4gTS4YphnYiIiGiUEwQBu4tqsWHXcTRoTRNI75o9AWtvjYAPJ5AOawzrRERERKNYRVMn1n9R\njIzTFyeQjnPDplVRmDdlnJ1bRv3BsE5EREQ0CrV26vC3rAt474fz6NIZ4CiT4pGUKXgkZQqc5ZxA\nOlIwrBMRERGNIq1dOvz9wAX8PesCtN16AED8JB9sXhWNMCUnkI40DOtEREREo8D1Qnq4vzueWDwV\ny6MCOIF0hGJYJyIiIhrBOnqN2HuqDV99pr4mpKdFBkAqZUgfyRjWiYiIiEagtm4d/lnchi9PadGh\nEwAA0/wVeGLRNCyPYkgfLRjWiYiIiEaQtm4d3j9Qir8dOI+2iz3pIZ4OeHpFDEP6KMSwTkRERDQC\ntHXrkJ5Vir/uvxzSgz0ccHeEGxZMUmBmTKCdW0hDgWGdiIiIaBjTXgrpBy6gtUsHAAhTKvDEoqkI\nMtbDaNBDysmjoxbDOhEREdEwdLOQfmt0IGRSCQoKGmA02LmhNKQY1omIiIiGEW23DtsOluK9/ZdD\n+hQ/NzyxeBpWXAzpNHZILblYrVbjoYcewvTp0+Hm5oagoCCsXLkSeXl5/bq/vr4eP//5zzFu3Di4\nurpi7ty5+P77761qOBEREdFo0t6jx5sZ57Dg5Qy88s0ZtHbpMMXPDVt/cgu+eXIhfhQ7nkF9DLKo\nZ/3tt9+GRqPBE088gRkzZqChoQGvvvoqEhMT8fXXX0OlUt3w3p6eHixatAgtLS3YunUrlEol3nzz\nTaSlpeG7777DwoULB/wwRERERCNNe4/+Yk/6ebR0mnrSJ/u54YlFU3FbDAP6WGdRWH/zzTehVCrN\njqWlpSEsLAybN2++aVj/29/+huLiYhw8eBBz584FAKSmpiI2NhZPPfUUsrOzrWg+ERER0cjEkE79\nYVFYvzqoA4BCocCMGTNQUVFx03s/++wzhIeHi0EdABwcHPDAAw9g7dq1qKqqQlBQkCXNISIiIhpx\n2nv0+MehUrz3w3k0Xwrp49zwu0VTcTuHutBVBjzBtLW1FUePHr1przoAFBcXY8GCBdccj4mJAQAc\nP36cYZ2IiIhGrY4ePf5xqAzv/lAihvRJ49zwu0VhuD1mPBxkFk0lJCsZDAYcPXoUp0+fxvTp0+3d\nnD4NOKw/9thj6OjowLp16256nUajgY+PzzXHLx3TaDR9vtfx48dhNBqta6iVdDqd+LGgoMCm7z3S\nsXbWY+2sx9pZj7WzHms3MKO9fl06I3afbcdnJ9uh7TXlmPHuDrgn0h3Joa6QSTU4Xtx3Drqe0V67\nwWA0GtHR0QF3d3cAQElJCe68804kJSXh9ddft2ntpFIpQkJCLLpnQGH9ueeew4cffog33ngDs2fP\n7vN6yU0W7L/ZuUv0ej0MBvstJnrpHwRZjrWzHmtnPdbOeqyd9Vi7gRlN9evSG/F1SRe+PN2Btl4B\nABCgkOHuCDfMD3aGTCqB0aAftHXSR1PtBkIQBJSVlSE3Nxd5eXnIzc1FfHw8XnrpJQBAcHAwJk6c\nKIZ3wHa1k8lkFt9jdVh/4YUXsGnTJrz00kv47W9/2+f1vr6+1+09b2pqAoDr9rpfzcHBAVKpbX9F\ndOVfnlwut+l7j3SsnfVYO+uxdtZj7azH2g3MaKtft96I3Wc78NlJLdp6TD3pgQoH3BPljoWhroM6\nJn201W4gdu3ahcOHDyMnJwcNDQ1m506cOGFWn88++wx6vV58bavaWZNjrQrrL7zwAjZs2IANGzZg\n7dq1/bonOjoaRUVF1xy/dCwqKqrPrxEZGWnzsF5QUACdTge5XI7Y2FibvvdIx9pZj7WzHmtnPdbO\neqzdwIyW+nX26vHB4TK8s+88NB29AIBQX1c8rpqKO24ZmjHpo6V2lqqurkZhYSHS0tLEY7/4xS+Q\nm5sLAHBycsLcuXOhUqmgUqkQFxcHR0dHs69hj9oZjUZotVqL7rE4rG/cuBEbNmzAs88+i+eff77f\n961atQqPPvoosrOzkZCQAMA0rOWDDz5AQkICxo8fb2lTiIiIiOzOHiF9rGlsbERmZibUajUyMjJw\n6tQpODg4oLm5GQqFAgDw8MMPY9myZVCpVJg7dy5cXFzs3OrBYVFYf/XVV7F+/XqkpaVhxYoVOHz4\nsNn5xMREAKZibdu2DSUlJQgNDQUAPPTQQ3jzzTdx9913Y8uWLVAqlXjrrbdw+vRpfPfdd4P0OERE\nRES20dVrMIX0H0rQ2G4K6SE+rnhcFYZVM4MY0gdBeno6Xn/99WsmgEokEsTExKC6uhrTpk0DAPzm\nN7+xRxOHnEVhfdeuXQCAvXv3Yu/evdecFwTT5AmDwQCDwSC+Bky/jvj+++/x1FNP4fHHH0dnZydu\nueUW7Nmzh7uXEhER0YjR1WvAh9ll+Ms+85D+24shXc6QbrHOzk5kZWVBrVbjN7/5jdjZ297eLgb1\nqKgopKamQqVSYeHChfD29rZnk23GorCemZnZr+vS09ORnp5+zXF/f39s27bNkrckIiIiGhauF9KD\nfVzweOpUrJrFkG6Jnp4eZGdni8NaDh06JE6WnTx5Mn75y18CAFauXAk/Pz+kpKTA39/fnk22mwGv\ns05EREQ0ml0O6efR2N4DgCF9ILKysrBkyRJ0dXWZHQ8ODoZKpUJ4eLjZsdWrV9u6icMKwzoRERHR\ndXTrDPgwuxx/2VeCBq0ppE/wdsHjqjD8eNYEhvSbMBqNKCwshFqthlqtxoIFC/D0008DMK3u19PT\nA39/f3FYi0qlwuTJk/u1785Yw7BOREREdIVunQHbs8vx9hUhPcjrckh3dGBIv5ogCDh16pQYzjMz\nM8W9dACgpaVFDOteXl44c+YMw3k/MawTERERgSHdEoIgoLm5WdzU0mg0IikpCc3NzeI1CoUCCxYs\ngEqlwqJFi8zunzJlik3bO5IxrBMREdGY1q0zYEdOOd7OLEH9FSH9t6ow3MmQLqqsrERGRobYew4A\npaWlkEgkkMlkWL58OWpra8VhLXPmzBnzu6oOBoZ1IiIiGpO6dQb8M6ccb10V0h9LDcNdsxnSAeDb\nb7/FJ598goyMDJw5c8bsnIODA2pqasSNLT/44AMOaxkCDOtEREQ0plwK6W/vK0Fdmymkj/d0xmOq\nMNw9O3jMhvSWlhb88MMPWLp0KZydnQEAX331Fd555x0AgFQqxezZs8VJoUlJSeLuoQAY1IcIwzoR\nERGNCd06A3YeqcBbmeeuCel3zZ4AJweZnVtoWx0dHThw4IA4rOXo0aMwGo3IyMhASkoKAGDVqlWQ\nSCRQqVRITk6Gl5eXfRs9BjGsExER0ajWrTPgX7kVeCujBLVt3QCAQE9nPJYahrvnjL2QnpWVhaef\nfhrZ2dnQ6/Vm58LDw6HVasXXKSkpYnAn+2BYJyIiolGpR2/Av45U4M2rQvqjqWG4ZwyEdJ1Oh9zc\nXKjVaiQkJGDx4sUAABcXF2RlZQEAQkNDsWjRIqSmpiI1NRVBQUH2bDJdB8M6ERERjSqXQvpbmSWo\naTWF9AAPZzyWOgX3xAWP2pBuMBhQUFAgDmvZv38/2tvbAQA///nPxbAeGxuLv//970hJScGkSZPs\n2WTqB4Z1IiIiGhV69Ab8K7cSb2WcG1MhHQA6OzuhVCrNNiICAF9fX6SmpmLJkiXiMZlMhjVr1ti6\niWQlhnUiIiIa0Vq7dPj0aCXe++E8qq8I6Y+mTsE9c4LhLB8dIV0QBJSUlIg951KpVNwV1NXVFYGB\ngdDr9Vi4cKG4Ykt0dDSk0rG5us1owbBOREREI44gCDha3oLt2eX4d1E1unVGAIC/hxMeTQnD6rjR\nEdIrKirEcK5Wq1FZWSmec3Z2xpNPPikumbhnzx4EBgbCwYHxbjTh3yYRERGNGK1dOnyeX4UdOeU4\nVXt51ZJwf3c8MDcUd8+eMKJDekNDA/z8/MTXv/rVr7B3717xtVwux9y5c6FSqZCamgqpVApBEAAA\nwcHBNm8vDT2GdSIiIhrWBEHAsQpTL/quwsu96E4OUtwWMx73JYRgVojXiNyUp6mpCfv27RN7zk+c\nOIHKykpxVZalS5eiubkZKpUKKpUK8+bNg6urq3h/QUEBdDqdvZpPNsCwTkRERMNSW7cOX+RXYXtO\nBU7WtInHp/krcF98CFbNnABPV7kdW2idwsJC/OMf/4BarcaxY8fEnvFL8vLyxLD+5JNP4sknn7RH\nM2mYYFgnIiKiYUMQBBRWtmJ7djm+LKhGl84AAHB0kOK26EDclxCC2aHeI6YXvaurCwcPHsSUKVMw\nceJEAMDJkyfx6quvitdERESIPecLFy6Er6+vnVpLwxHDOhEREdldl86I70rb8UzmAZy4ohc9TGnq\nRf/xrCB4uTrasYX909vbi5ycHGRkZECtVuPgwYPo7e3F5s2b8cwzzwAAUlNT8Ytf/ELciCgwMNDO\nrabhjGGdiIiI7KaoshVv5jTjh9JOdBtMw0EcHaS4NSoA9yWEIm7iyOhFr6mpwZo1a7B//350dnaa\nnQsKCoJMdnnSq1KpxHvvvWfrJtIIxbBORERENtXeo8eXx6qxPacMxVWXe9GD3B2wJnkq7pw1Ad5u\nw7MX3Wg0ori4GBkZGXB2dsavf/1rAKbNhw4cOIDOzk74+fmJ65yrVCqEhYWNiB84aHhiWCciIiKb\nKK5qxfaccnyRX4WO3otj0WVSJE5wwqKJzogNdMUtt0y2cyvNCYKAM2fOiMNaMjIy0NjYCAAIDw8X\nw7qjoyP+7//+D2FhYYiMjORGRDRoGNaJiIhoyHT06LGroBrbc8pRWNkqHp88zg33xofgztkTUHHu\nJHQ63bDsfU5OTsaBAwfMjrm6umLBggVQqVQwGo1iMF+1apU9mkijHMM6ERERDbrj1aYVXb44Vo32\nHj0AQC6TIC0qEPfFhyBxso8Yzivs2VAA1dXVyMjIQEZGBo4cOYK8vDxxF9CIiAjk5ORg3rx54rCW\nuLg4ODoOz2E6NPowrBMREdGg6OzV46uCGnyYU46Cihbx+ERfV9wbH4K7Zk+Ar8LJji000Wg0yMzM\nFDciOnXqlNn5vLw8JCQkAAA2bdqErVu3wsXFxR5NJWJYJyIiooE5WdOG7dnl+Dy/CtoretGXRgbg\n/vgQJE72hVRqvyEubW1tkMvlYuB+6623sH79evG8RCLBzJkzxZ7zqKgo8ZxSqbR5e4muxLBORERE\nFuvqNeCrQtNY9Pzyy73oIT6mXvS750zAODv1ond2diIrK0ucEJqbm4t//vOfuOuuuwAAKpUKO3fu\nFMN5cnIyfHx87NJWor4wrBMREVG/na7VYnt2GT7Nr4K229SL7iCVYGmkP+6LD8W8KfbpRa+trcU7\n77wDtVqNQ4cOQafTmZ0/duyYGNaTkpJQXFxs8zYSWcPisK7VarFx40YcO3YM+fn5aGxsxPPPP48N\nGzb0eW96ejrWrFlz3XM1NTUICAiwtDlEREQ0xLp1Bvy7sAbbc8qRV9YsHg/2ccFP4ky96Ep3Z5u1\nR6/XIy8vDxKJBPHx8QCAnp4esywSHBws9pynpqYiODjYZu0jGkwWh3WNRoN3330XsbGxuOOOO/DX\nv/7V4jd9//33MX36dLNjvr6+Fn8dIiIiGjpn67T4MLscnx6tRNvFXnSZVIIlEf64LyEE88PG2aQX\n3Wg0orCwUBzWsm/fPmi1Wtx2223YtWsXACA0NBSPP/44oqOjoVKpMHny5GG5FCSRpSwO66GhoWhu\nboZEIkFjY6NVYT0qKgpz5syx+D4iIiIaWt06A3YX1WBHTjmOlF7uRZ/g7WIaiz57ApQetulFFwQB\nDzzwAPbu3Yumpiazc97e3td09P3pT3+ySbuIbMnisM6fUomIiEafc/VabM+uwCdHK9HaZRrvLZNK\nsGi6EvclhCB5qt+Q9aILgoDKykrk5+djx44d2LJlCwBT5qiurkZTUxMUCgWSk5PFoS0xMTGQyWRD\n0h6i4UQiCIJg7c2NjY3w8/OzeMy6v78/Ghoa4OnpiZSUFLz44otmyyQBpl95abVas2Pl5eUwGo3W\nNtcqV05QkcvlNn3vkY61sx5rZz3WznqsnfVGau16DQIOVnThm3PtON7QKx73c5Vh6RQ3LJrsBl/X\noQnEdXV1OHLkCHJycnDkyBHU1NSI5zIyMuDt7Q0AyM/Ph0wmQ0RExIiqra2M1O+94cAetZNKpQgJ\nCTE75u7uLu6Cez02XQ0mICAA69atQ2JiIjw8PFBUVIQtW7YgMTERWVlZiI2Nven9er0eBoPBRq29\n1tUzy6n/WDvrsXbWY+2sx9pZbyTUrkqrx3fnu5BZ1gVtr6nPTgpg9ngnLJnkgtgAR8gkEgBG6HSD\n30n2+uuv48MPPzQ7JpPJxGGyvb29Yh2v7MwbCbW1J9bHeraqnTW/DbJpWE9LS0NaWpr4Ojk5GStW\nrEB0dDTWr1+PL7744qb3Ozg43PQnj6HAn1itx9pZj7WzHmtnPdbOeiOhdjqDgEMVXfi6pAPF9T3i\n8XGuMiyZ4oYlg9yL3tbWhry8POTk5CA3NxebNm1CeHg4AGDatGmQSqWIiIhAXFwcZs2ahdjYWLi6\nug7b+g1XI+F7b7iyV8+6pey+zvrEiRMxf/58HD58uM9rIyMjbR7WCwoKoNPpIJfL++z5J3OsnfVY\nO+uxdtZj7aw3nGt3obEDO3LK8XFeJZo6TENdpBJANV2Je+NDkBKuhGwQxqJ3dHRg//794ootR48e\nNRu6WlVVhXvuuQcAMGXKFPzud7+Dl5cXgOFdv+GOtbOePWp3vWHefbF7WAdME0tsHcKJiIhGq169\nEV8fr8WOnHIcLNGIxwM8nLE6Lhir44Ix3stlQO/R3d2Nzs5OcefPw4cPY/ny5WbXhIeHIzU1VVzr\n/BKFQjGg9yYaS+we1i9cuICsrCwsXrzY3k0hIiIa0UobO7DjSDk+zq2E5mIvukQCpIabetFTw/3g\nILOuc0yn0yE3NxdqtRpqtRoHDx7EI488gj/+8Y8AgHnz5mHatGlISkoSw3lQUNCgPRvRWGVVWN+z\nZw86OjrEbvwTJ07g448/BgDceuutcHV1xcMPP4xt27ahpKQEoaGhAIDFixcjOTkZMTEx4gTTl19+\nGRKJBBs3bhykRyIiIho7evVGfHuiDttzypB17nIvur+HE1bPCcbq+BAEWdmLrtPpsHXrVmRkZOCH\nH35Ae3u72fmioiLxcxcXF5w+fdq6hyCiG7IqrD/yyCMoKysTX3/00Uf46KOPAJh6yidOnAiDwQCD\nwYArV4aMjo7Gzp078corr6CrqwtKpRIqlQrPPfccpk2bNsBHISIiGjvKNZ3YcaQcH+VWoLH9ci/6\nwml+uC8+BKrpSot60QVBwIkTJ1BWVoZbb70VgGlhh9deew3V1dUATLuNp6amikNbLk0YJaKhY1VY\nLy0t7fOa9PR0pKenmx177bXXrHk7IiIiAtDZq0fGqQb880g59p9tFI/7uV/sRY8LRrCPa7++liAI\nKCkpEYe1ZGRkoL6+HuPGjUOuJxuWAAAgAElEQVRdXR2kUikkEgn+67/+CwCgUqkQHR3NOWZENmb3\nMetERER0Y61dOmScqsfe4lpknqlH98V1zyUSYMFUUy/6oggl5Bb0om/evBl/+ctfUFFRYXbcxcUF\nM2fORHNzM3x9fQEATz755OA9DBFZjGGdiIhomNG09+DbE3XYU1yLgyWN0BkuDymd4O2CH8WOx73x\nIX32otfV1SEjIwNqtRqvvPIKPDw8AJiWWayoqIBcLsfcuXPFYS0JCQlwcnIa0mcjIsswrBMREQ0D\nNa1d+Lq4FnuKa3GktAnGy/kcU5UKpEUFYFlkACLHe0Aiuf666E1NTdi3b584tOXEiRPiuZUrV2LF\nihUAgAcffBApKSlISkqCq2v/hs0QkX0wrBMREdlJaWMH9h43BfSCihazc9FBnmJAD1P2vS75zp07\nce+995ot7AAAt9xyC1QqlbgyG2DaQZQLOxCNDAzrRERENiIIAk7XabGnqBZfH6/FqdrLOxlKJMCc\nUG8sizQF9OsNcenq6sKhQ4fEnvM1a9bgl7/8JQBTKBcEAREREeI65wsXLsS4ceNs9nxENPgY1omI\niIaQIAgoqGzFnuIafF1ci1JNp3jOQSrB3Cm+WBYZgKWR/lC6O5vdq9frkZ2dLYbzQ4cOoaenRzw/\nYcIEMaxPmzYN1dXVCAwMtM2DEZFNMKwTERENMoNRQM6FJnx93NSDXtPaLZ5zdJAieaof0qICsDhC\nCS9Xx8v3GQyor68XA3dnZycWLlwIg8EgXhMUFASVSiX+uUQikTCoE41CDOtERESDQGcUUFjdhR3n\nCvHtiTpoOnrFc26OMqROVyItKgCp4Uq4OZn+92s0GlFYWCiu2LJv3z5ERETg0KFDAAAPDw8sX74c\nrq6u4tCWqVOn3nCCKRGNPgzrREREVurs1eOHMw3YcbAJR6q60KkXAGgAAF6uciyO8MfyqAAkhY2D\ns1wm3vfhhx/iiy++QEZGBhobG82+5tmzZ9HT0yMuobhr1y6bPQ8RDT8M60RERBZo69ZBffLaTYoA\nwNtZihW3TMDyqEDET/KBXCZFaWkpPt65A/fff7/YI/7555/j448/BgC4ublhwYIFYs/5zJkzIZPJ\nrvveRDT2MKwTERH14dImRXuP1yLr3LWbFM1WyhAXKEdkgCv8lb7IyPga728xDW25cOECACA+Pl5c\nLvFnP/sZYmNjoVKpEBcXB7lcbpfnIqLhj2GdiIjoOi5tUrT3eC1yLphvUhSmVGD5FZsUFRYW4uuv\nv8b6R/8ihvNLZDIZ4uPj0dJyeR3122+/HbfffrutHoWIRjCGdSIiootutklRVJAHlkcFYl6wMypP\n5iNj7xfo8FwNSVACAEAul+PChQuQSCSYOXOmuFrL/Pnz4e7ubo/HIaJRgGGdiIjGrEubFO0trsXe\n4ms3KZod4o3UKR7w0p5Hce5u/OMDNX6Xmwuj0TRO3cXFBQkJprA+a9Ys/PGPf8SDDz4IHx8fuzwP\nEY0+DOtERDSm3GyTIplUgnmXNima4Y+2+krMmDEDOp3O7GuEhYWJE0IvcXNzg0qlYlAnokHFsE5E\nRKOewSjgSGkT9hZfu0mRXCogwqER7s2nUXPiCFw1U/DAw+8AAMYpJsPDw0Nc5/xSQA8ODrbXoxDR\nGMOwTkREo1Kv3oiskkZ8XVx7zSZFsqYyBHaVoLe8EKfys3FOe3n4y5nTpyAIAiQSCaRSKU6cOAE/\nPz9uREREdsGwTkREo0ZXrwH7zpjWQP/+ZD20PXoIggCDtgG+/kFYMsMfaZEB+M971yGrsEC8z9vb\nGykpKWLv+ZWUSqWtH4OISMSwTkREI9rVmxR19Rqgb61Dd1kBUH0cPRWF6G1vw4mmJngo3AAAK1f+\nCBMmBInhPCYmhhsREdGwxLBOREQjzvU2KeouL0R7sRr6iiL0tNSZXe/s7IxzZ05j1qxZAIAXX3zR\nHs0mIrIYwzoREY0IV25SdKj4PDrLiuAcEgWZmzfClAq4NrdhV9F3AAAHBwckJCSIPeeJiYlwdna2\n8xMQEVmOYZ2IiIatS5sU7co5iyOHs9BdVoDu8iLoGkoBAPf/fgs2/L+VCFO649Qpf0R4GaFSqZCU\nlASFQmHfxhMRDQKGdSIiGjbae/Q4UtqEQyUa/HCmAYVFRdDs3oreuhJAMJpdGx0djeWxExCmNO0O\nOn36dPzP//yPPZpNRDRkGNaJiMhuunUGHC1rxr6T1dij/gHFR7Ig9RoPRZRpRRZHdx/01p4FAIRN\nnYbFi0zDWlJSUuDn52fPphMR2QTDOhER2YzOYERhZQv2n6rFv9VZyM8+gI7SAvRUnYSgN62D7jnl\nFqz++YOYO8UXKeF+2Jf6OebMmYOgoCA7t56IyPYY1omIaMgYjAJO1rThYEkjDpZokHOhCR09elS9\n9XMY2jVm13qPU2JhSgp+/KPb8NO7YsTjK1eutHWziYiGDYZ1IiIaNIIg4Gx9O7LONuDfPxzBwf37\n0FKSD0O7BoE/ew0A4OPmCMnUGdCcL0bSgmTcnrYEixYtQnh4OHcJJSK6CsM6ERFZTRAElDd14mCJ\nBnsPFSJT/T0az+Shu7wIxs4Ws2sfmeOJ2+fFYHqAO1p+OwdeXl6QSqV2ajkR0chgcVjXarXYuHEj\njh07hvz8fDQ2NuL555/Hhg0b+nV/fX09nnrqKXz11Vfo7OxEbGwsNm3ahEWLFlnaFCIisoOa1i4c\nPKfB3uxiFDdLUaPVAQA037yN9vzd4nVyJ2fMTpiL25ctweLFizBr1iw4OJj+t+Pj42OXthMRjTQW\nh3WNRoN3330XsbGxuOOOO/DXv/613/f29PRg0aJFaGlpwdatW6FUKvHmm28iLS0N3333HRYuXGhp\nc4iIaIg1tvfg8HkNvs07g2+/V6OiOAfdZYXQt9TA//6X4R4aiZnB3lD8aAWOyZuxIm0Jli5ejPj4\neDg5Odm7+UREI5rFYT00NBTNzc2QSCRobGy0KKz/7W9/Q3FxMQ4ePIi5c+cCAFJTUxEbG4unnnoK\n2dnZljaHiIgGWXuvEd8cr8Wh8xp8e/AoCr/5F7rLCqHTlJtdJ5FK8bMIB2z4/VK4OjoAmAtseNQ+\njSYiGqUsDusDmfzz2WefITw8XAzqgGlL6AceeABr165FVVUVl+YiIrKxzl49jpQ246ND1difnYtG\neELuPwUA0FNVD+3Rr8Rrp0yPwvKli7FsySIsWLAAnp6e9mo2EdGYYNMJpsXFxViwYME1x2NiTEt0\nHT9+/KZh/fjx4zAajTc8PxR0Op34saCgwKbvPdKxdtZj7azH2vVNZxBwWtOLvIpWHMjJx9miPHSW\nFqC35iwgGKGIXYbou59EjL8TIhPjsa/3J5gbPwezZ8+Gt7e3+HVKS0vt9xDDDL/vBob1sx5rZz17\n1E4qlSIkJMSie2wa1jUazXUnFV06ptForjl3Jb1eD4PBMCRt649Lf6lkOdbOeqyd9Vg7E4NRQEmz\nDkX1OhQ39OJkbTsqdz6PnqqTgEFvdq2v/3gsiw3Ck8t8xWNzf/+f4uesad9Yo4Fh/azH2lnPVrWT\nyWQW32PzpRtvNoymryE2Dg4ONl/m68q/PLlcbtP3HulYO+uxdtZj7QCjIKC0RYeCmk7szzuOovxc\n9HZ1wiv5p6YLpI5ARxNg0MPDZxzi4uKxYG48Zs6cifHjxwMYu7WzFr/vBob1sx5rZz171M6aHGvT\nsO7r63vd3vOmpiYAfS/lFRkZafOwXlBQAJ1OB7lcjtjYWJu+90jH2lmPtbPeWKydIAgoaWjHgbMN\n2P3DEWT9kInmc/noriiG0NMBAJDKnXH3L/8D88MDMG+KL6qXf4jAwEBMnTpV7CgZi7UbLKzdwLB+\n1mPtrGeP2hmNRmi1WovusWlYj46ORlFR0TXHLx2LioqyZXOIiEasiqZOZJ1rwKHzTThYokGDtgcN\nn21G55mDZte5KNyRmLQAt6ctwa9Xx8DV1RUAMNWfS+USEY0ENg3rq1atwqOPPors7GwkJCQAMI1D\n/+CDD5CQkCD++pWIiMzVtXXjUIkGew4VQJ2RiZqTueguK0Tgz1+HzM0bjg5ShEXG4FR5PuYkzMNt\naUuwZPEizJw506oxkkRENDxYFdb37NmDjo4OsRv/xIkT+PjjjwEAt956K1xdXfHwww9j27ZtKCkp\nQWhoKADgoYcewptvvom7774bW7ZsgVKpxFtvvYXTp0/ju+++G6RHIiIa+Zo6ek0bER09g2+++Rbl\nxUfQXVYAfWud2XUp7g149OHlmBniBX3PAjg6boWjo6OdWk1ERIPNqrD+yCOPoKysTHz90Ucf4aOP\nPgIAXLhwARMnToTBYIDBYIAgCOJ1Tk5O+P777/HUU0/h8ccfR2dnJ2655Rbs2bOHu5cS0Zim7dYh\n50ITvssvQU5pM0raTMfbi9XQ/PuP4nVSqQwRMTNx67IlWLZkEebNmwcXFxfTSbnCDi0nIqKhZFVY\n78/auunp6UhPT7/muL+/P7Zt22bN2xIRjQqCIKC8qRMFla3IOVWB7zL24dTRQ+gsK4Cu/gK8UtbA\nM+FOhPu7IzJ8Bb48/w1uXboUaUtNGxG5u7vb+xGIiMhGbL50IxHRWCIIAmrbulFY2YrCyhYUVrYi\n/2wVKvbtQHdZIXprzwGC+WZvieN0+Me6xfBzdwIA/HHNtRPziYhobGBYJyIaRE0dvWIoL6xsQX5p\nA6rOFEHo7YbLlDkAAEEvgTb3Swj6XgBAQPBELFKpcPvypUhJSYG/v789H4GIiIYRhnUiIitpu3Uo\nqmpFUWUrCitbUVDZggpNO3prz6G7rADd5UXoqTwBQd8DReAkPLj6DsRM8ELsBC/s8n0BE4LGIzU1\nFcHBwfZ+FCIiGqYY1omI+qFbZ8Dx6jYUVrag6GIwP9/YgSvm0EOz98/oOLkPQm+X2b1KpRKLUhKx\n+Y5IODiY/rMb/cx/27L5REQ0QjGsExFdRWcw4nStFoWVrSiqakFBRSvO1GmhNwoQBAF6TSW6ywvR\nU30KMfc9g9gQH8RM8MJXZ72wu6AL3t7eSElJgUqlgkqlQkREhLhLKBERkSUY1oloTDMaBZxvbEdB\nxcUJoFWtOFHdhh69adKnIAjQt9ahu6wQqC5CV1khulo14v1/TnsFs2bNAgAk+z2LTc8+hZiYGG5E\nREREg4JhnYjGDEEQUNnchYIrJoAWV7WhvUd/zXUeLnLETPBE86GPsefvr5qdd3Z2RlJSElQqFZRK\npXg8MjLSJs9BRERjB8M6EY1a9W3dKLgYygsqW1FU2YLmTt011zn0tmFc2zkYqo6j+uQRPL9xM35x\n/z2QSiXIDOvGt//YisTERHFYS0JCApydne3wRERENNYwrBPRqNDS2YvCylZ8fbwNZxp7cL5ZD01X\n5TXXyWUShHnLodCcREdpAUoKsnHm5HGUXHHN8dyDkP50NQAgKSkJLS0tcHNzs9GTEBERXcawTkQj\nTkePHsVVl5dLLKxsRXlT5zXXSSXAVKU7wsfJMdldQOrsGZge6I7KslKEhS01uzY6OlrsOU9OThaP\ny+VyyOXyIX8mIiKi62FYJ6JhrVtnwKlarWkoy8VJoOca2s2WTLxkoq8rQhQCgl30QMM56JuqkPXJ\nPrydnY3bb78d/3HHpwCAyZMnIzU1FeHh4VCpVEhJSYGfn5+Nn4yIiKhvDOtENGzoDUacrW8Xx5gX\nVrbgdK0WOsO1yTzQ0xkxEzwRM8HL9DHIC+/8+TV8kv4Jdh47ht7eXrPrS0tLxc8lEgnUavVQPw4R\nEdGAMawTkV0YjQIuaDrEDYYKK1txvLoV3TrjNdf6uDleDuZBnogcr0DN+dMoKirCg6kPitd9+eWX\nyMnJAQD4+flhyZIl4tCWSZMm2ezZiIiIBgvDOhENOaNRQFVLF4qrWsUe86KqVmi79ddc6+7kgKgg\nT8QEeyJ2gheigzwR5OWMkydPQq3+Gm+9nYHMzEw0NzdDKpVi5cqV8PLyAgA8/vjjSE5OxqxZsxAW\nFoZbbrnF1o9KREQ0qBjWiWjQGIwCKps7cbauHWfqtThX146z9e04V9+OLp3hmuudHKSIHO+BmAle\niA029ZxP8nWDVHp5t8833ngDmzZtQn19vdm9Hh4eSE5ORlNTkxjWV69ejenTp0On03HHUCIiGhUY\n1onIYnqDEeVNnWIQP1Onxdm6dpQ0tIs7f17NUSbFVH+FKZhfHNIy1V8BuUwKAKioqIB69yd4Ua3G\n2rVrER4eDgBwcnJCfX09XFxcMH/+fHFYy6xZs+DgwP+EERHR6Mb/0xHRDekMRpRpOnG2Touz9aZe\n8rN1Wpxv7EDvDUK5k4MUU/wUmOqvwFSlAlP93TFVqUCIjyscLgZzAKirq8MnH+2GWq1GRkYGzp07\nJ56Li4sTw/odd9yBiIgIxMfHw8nJaWgfmIiIaJhhWCci9OqNKNV04GxdO87Wa8WPFxo7rrsSCwA4\ny6UIUyowTemOMH8FpipNoTzYxxUy6bVDUIQr1lrct28fUlJSzM5LpVLExcUhNTUVSUlJ4nGlUgml\nUjk4D0pERDTCMKwTjSE9egMuNHbgTF07zl3RW17a2AG98fqh3NVRhqlKBcKU7pjqr8C0i8E8yMvF\nbGz51bRaLfbv3w+1Wg21Wo1ly5bhD3/4AwBg9uzZcHR0xIwZM5CamgqVSoUFCxbA09NzSJ6biIho\npGJYJxqFunUGlDSYjyc/V9+OUk0HbpDJoXByMPWUXwzjYReHsYz3vHkov8RoNCIjI0Mc1pKTkwOD\n4fKkUplMJoZ1hUKBhoYGeHh4DMrzEhERjVYM60QjWFevAefqLw5dqW+/GMq1KG/qvGEod3d2wLSL\n48hN4dzUYx7g4WzRCiq9vb0oKyvD1KlTAZg2GrrvvvvMVm2ZPHkyVCoVUlNTkZqaanY/gzoREVHf\nGNaJRoCOHv3FUN5+xWRPLSqbuyDcIJR7ushNveQXg/nUi8NYlO5OVi1raDAYkJ+fLw5r2b9/Pzw8\nPFBdXQ2JRAKJRIJ7770XGo1GDOgTJ04c2IMTERGNcQzrRMOItluHs/XtyCjpQGlzD6rbjajdo0ZV\nS9cN7/F1c0SY8tLqK+7ix3EKx0FZa3znzp3Yvn079u3bh9bWVrNzrq6uqKmpwfjx4wEAr7/++oDf\nj4iIiC5jWCeyg9YuHc5dXHXlzMWVV87Vt6OmtfuG94xTOGHqxTHlYWJvuQK+isFZzlAQBJw9exZq\ntRo//elP4ebmBgDIzc3Fl19+CQDw9PRESkqKOCk0MjISUqn0Zl+WiIiIBoBhnWgINXf0ikNWLk3y\nPFOnRb2254b3+Hs4IcAFCHKXItTbCarZEQjzU8DbzXHQ21dWViYOa1Gr1aiurgYATJo0CcuWLQMA\n3HPPPfDz84NKpcLMmTMhk8kGvR1ERER0fQzrRAPU3qNHRVMnyps6UdHUiTJNpzi+vLH9xqE80NP5\n8gTPi8NYwvzc4ekqR0FBAXQ6HeRyOWIn+gx6m7///nv88pe/xIULF8yOOzk5Yd68eWY7g8bFxSEu\nLm7Q20BERER9Y1gn6oPBKKCmtUsM46aPl19rOnpven+Ql8vl3TwvjikPUyrg7iwf8rZrNBpkZmZC\nrVZj8eLFWLVqFQDA398fFy5cgIODA+Lj48UJoXPnzoWLi8uQt4uIiIj6x+Kw3t7ejmeffRb/+te/\n0NTUhOnTp+O///u/8ZOf/OSm96Wnp2PNmjXXPVdTU4OAgABLm0I0aFq7dGIQL7+il7yiqROVzV03\n3DDoEi9XOUJ8XBHs44pgb1fThE+lAlOUCiicbPczcWtrq9lGRAUFBeK5lpYWMaxHRkZiz549SEpK\ngru7u83aR0RERJaxOEX8+Mc/xpEjR7BlyxZMmzYN27dvx7333guj0Yj77ruvz/vff/99TJ8+3eyY\nr6+vpc0gskiv3ojqli5UNJuH8fKmTpRrOtHWrb/p/XKZBBO8TWE8xMcFIT6ul8O5jys8bNBLfj2C\nIIgrvmi1Wvj5+UGn05ldExkZCZVKhdtuu008JpFIkJaWZtO2EhERkeUsCuu7d+/Gt99+KwZ0AEhN\nTUVZWRl+//vfY/Xq1X1OPouKisKcOXOsbzHRdQiCgKaOXjGIVzZ3oVxzOZjXtHbdcJOgS8YpnBDi\n43IxkLuKH0N8XOHv4QxZP3bxHGo9PT04fPiwuFOoo6MjvvvuOwCAu7s7oqOj0dbWBpVKBZVKhZSU\nFPj7+9u51URERGQti8L6Z599BoVCgbvvvtvs+Jo1a3DfffchOzsb8+bNG9QGEl3SrTOgsrnLbDLn\nlb3kHb2Gm97v5CC9pkf88msXuDoOzykceXl5+Oabb6BWq5GVlYWurstrrsvlcnR0dIjLLO7btw8K\nhcJeTSUiIqJBJhGEG+1/eK25c+fCYDAgJyfH7Pjx48cRFRWFd955B7/61a+ue++lMev+/v5oaGgQ\n12t+8cUXERUVdc31RqMRWq3W7Fh5eTmMRmN/mzsorhxSIJfbZ6jDSGVp7QRBQHO3EXXtetS261HX\nbjB97DB9rum6eRgHAF8XGfwVMgQoHOCvcECAmwz+Fz/3dpYOyiZBQ8loNKKkpMRs58/f//73yMzM\nFF/7+PggPj5eXKUlODh42D+XLfHfrPVYO+uxdgPD+lmPtbOePWonlUoREhJidszd3f2me5ZY1JWo\n0WgwefLka477+PiI528kICAA69atQ2JiIjw8PFBUVIQtW7YgMTERWVlZiI2N7fP99Xo9DIa+A9tQ\nuXosMPXfpdp16wXUdxhMAbzDYPrTbkB9hwH1nQb00TkOZwcJ/N1k4h/lFZ/7ucngKLtRaDVCr7ft\nD3r9IQgCSktLkZubi9zcXOTl5aG1tRWff/45goKCAAALFiwAYFpCcfbs2Zg8ebJZONfrbz7efizj\nv1nrsXbWY+0GhvWzHmtnPVvVzpq9Siz+vf/NevBudi4tLc1sQltycjJWrFiB6OhorF+/Hl988UWf\n7+3g4GDz3RL5E6tlDEYBTV2mEF7V2oO6dtPnDZ1G1Lbr0dpz88AslQDjXGXwd3Mw7yFXOCBAIYO7\n4/DvHe+PgoIC/POf/8SRI0fQ2Nhods7V1RVlZWViWL/zzjtx55132qOZIxL/zVqPtbMeazcwrJ/1\nWDvr2atn3VIWhXVfX9/r9p43NTUBuNzD3l8TJ07E/Pnzcfjw4X5db4+tzc02p+lH7/9oZzAKaND2\noLatGzVmq6t0XVzmsBM6w81HVnm6yMWx4hOuWFklxMcV471cIJeNru3rq6qqoFarMWfOHERERAAA\nzp8/jz179gAAnJ2dkZSUJE4KnT17Nk6cOMHvOyvx36z1WDvrsXYDw/pZj7Wznj1qd71h3n2xKKxH\nR0djx44d0Ov1ZjscFhUVAcB1x573RRAEmwdwur6OHj1q27pR19qN2rbuqz7vQV1rNxrae2DoY1kV\nB6kEE7xd4CU3QOkqRaCHIxIip5gmcnq7wtN1dP/kX19fj8zMTHHFljNnzgAAnn/+eWzYsAEAkJKS\ngvXr1yM1NRWJiYlwdna2Y4uJiIhouLIorK9atQrvvfcePvnkE6xevVo8vm3bNowfPx4JCQkWvfmF\nCxeQlZWFxYsXW3QfWcZoFNDY0YO61p5rQnhdWzdqWk2vtT39G/ssk0rgp3BCgKezWa/4pV7yQE8X\nyKQS859YowOH+Cntr6qqCsuXLxd/eL1EKpVi1qxZGD9+vHjM29sbL7zwgq2bSERERCOMRWF9+fLl\nWLJkCR555BG0tbUhLCwMO3bswN69e/HBBx+Ig+YffvhhbNu2DSUlJQgNDQUALF68GMnJyYiJiREn\nmL788suQSCTYuHHj4D/ZGNGtM6D2iuBd23oxfF8Ryuu1PX3uwHmJm6MM/p7OCPC4+MfT9Mf/itfj\nFE7DYs1xe2lvb8eBAweQkZEBT09PrF27FoBpEnV5eTkA02+hLg1rSU5OhpeXlz2bTERERCOUxRNM\nP/30U6xbtw7r169HU1MTpk+fjh07duAnP/mJeI3BYIDBYMCVq0JGR0dj586deOWVV9DV1QWlUgmV\nSoXnnnsO06ZNG5ynGUUubfJzde/3lUNSatu60drVv9nLEolp0x8xgHtcHcKd4O/hDHc77cQ5nHV3\nd+PQoUNQq9XIyMhAdna2uALLxIkTxbAuk8nw1VdfITw8HH5+fvZsMhEREY0SFod1hUKBrVu3YuvW\nrTe8Jj09Henp6WbHXnvtNYsbN1r16A2ob+tBTevV48Ivf17f1oNeQ/+WGnSWSxHo6QJ/D1MYv7Jn\n/NLnfu5Oo27i5lAxGo1m8yjmzZuH/Px8s2tCQ0PFnvMrr58/f75N20pERESj2/DcsnGEEgQBLZ26\n644LNw1V6UFdWzeaOnr7/TXHKRzF3u/rhfAAD2d4uDiMiuUM7cVgMKCgoECcEJqbm4vy8nI4OTkB\nMIX1mpoaMZyrVCpMmjTJzq0mIiKisYBhvZ90BgGVzZ0Xg3fPVSH88uc9/dx4x9FBelXwNg1DuTRE\nxd/DGUoPJzg5WL54PvXt/Pnz2L17N9RqNTIzM9Hc3Gx2Pjs7G8nJyQCAl19+GW+88QZ/ICIiIiKb\nY1jvQ3uvEY9+1XBxM5+qft3j7Sq/Jnhf+XmgpzO8XOUMfzYiCAJKSkqgVCrh4eEBAPj444/x9NNP\ni9e4u7tj4cKFYs95dHS0eM7V1dXmbSYiIiICGNb75CaXoENn6i2XyyRQul8dwp0Q4Oki9pIrPZzg\nLGdvuL1VVFSIE0LVajUqKirwwQcf4P777wdgWp1oyZIlYjifNWuW2d4BRERERMMB00kfJBIJXl7k\nC1+FIxbEzYR0DC9ZONyVl5fjpZdeglqtxrlz58zOOTo6oqKiQnw9a9YsfPPNN7ZuIhEREZFFGNb7\nIcTTAXK5jEF9GGlqasK+ffugUCiwZMkSAIBcLse7774LwLSMYlxcHFJTU6FSqTBv3jwOZyEiIqIR\nh2GdRgStVov9+/eLQ4ucwn0AABPUSURBVFvy8/MhCAKWLl0qhvXAwEBs3rwZMTExWLBggTg+nYiI\niGikYlinYe1SIM/IyIDBYDA7FxERgZiYGLNjzzzzjC2bR0RERDSkGNZpWOjt7UVOTg7UajVKSkqw\nbds2AKY5AzKZDAaDAZMnTxaHtaSmpiIwMNDOrSYiIiIaWgzrZBcGgwFHjx4Vh7Xs378fnZ2d4vk/\n/OEPGD9+PADgf//3f/GXv/wFEydOtFNriYiIiOyDYZ1swmg0LX8plUoBAI8//jjefvtts2vGjRsn\n9ppfORn0yjXPiYiIiMYShnUaEoIgoKysDIcOHUJeXh7y8/Px73//G/Hx8QCA+fPnY/v27UhJSRGH\ntkRGRophnoiIiIgY1mkQNTY2YteuXVCr1VCr1aiurjY7n5mZKYb1u+66C6tXr4ZMxg2kiIiIiG6E\nYZ2sVlNTA71ej+DgYADAyZMn8dBDD4nnHR0dERMTg4SEBNx7772Ii4szO0dEREREN8ewTv2m0WiQ\nmZkp9pyfOnUKjz32GP785z8DABISEpCSkoKkpCSoVCq4ublBJpNBLpcjNjbWzq0nIiIiGnkY1umm\ndDodnn76aWRkZODYsWNm5yQSCf5/e3ceE8X5hwH8ARbY0qVRVMAVlKDx4I4neAPBIjap0lJF8UCo\niUlrNfFIamJt0jZomih/QBsKCpErsYq2KTYeoFUUitVYsF7BIxalNBgiKJpd9v390ez8XBeEnVnY\nXfb5JMTwzjvMzOPrO1/Wd3daW1ul7z08PFBdXS19f+3aNeh0ukE7VyIiIqKhhsU6SZ4/f46amho8\nevQIa9euBQC4u7vj2LFjuHfvHgAgNDQUcXFxiIuLw/z58+Hj42PLUyYiIiIa0lisO7GXL1+irq5O\nWtZSW1sLnU6Hd955B6tWrYJK9d/w2L17Nzw9PbFw4UL4+fnZ+KyJiIiInAeLdSe1bds25OTkoKur\ny6Q9ICAA8fHx6OjowPDhwwEAa9asscUpEhERETk9FutDmMFgwJ9//onq6mpUVVWhsLAQI0aMAABo\nNBp0dXXB19dXehBRXFwcxo8fDxcXFxufOREREREBLNaHFCEEbt26JS1rOXv2LNra2qTt586dQ3Jy\nMgAgIyMDH374IUJCQlicExEREdkpFusOrru7W3qwUHFxsdmSFY1Gg/nz5yMuLg5Tp06V2gMCAhAQ\nEDCo50pERERElmGx7mCam5ulZS1VVVXYsmULPvvsMwDAvHnzoFarpc85j42NxfTp0+Hu7m7jsyYi\nIiIiOVis27kXL17g559/lorz27dvm2yvrq6WivWgoCC0t7fD09PTFqdKRERERFbGYt3OtLe349Gj\nRwgJCQHw35tEV61aJT1cyNXVFdOmTZM+63zOnDkm+7NQJyIiIho6WKzbWGdnJy5cuCAtbbly5Qoi\nIyNx5coVAICXlxfWrFkDb29vxMXFYd68eRg2bJiNz5qIiIiIBgOLdRvZv38/fvzxR9TV1UGv15ts\n6+rqwsuXL6VXyfPz821xikRERERkY662PoGhTqfT4eLFi9i7dy8MBoPUfvnyZdTU1ECv12Ps2LFI\nT0/HoUOH8Pfff+PGjRtczkJERERElhfrnZ2d2Lx5M7RaLdRqNaKiolBeXt6vfVtbW7Fu3TqMHDkS\nXl5eiImJwZkzZyw+aXvW3d2NP/74A99++y2SkpIwfPhwzJkzBzt27MD169elfpmZmcjPz0dTUxPu\n37+PAwcOIC0tDWPGjLHh2RMRERGRPbF4GUxycjLq6+uRlZWFiRMnorS0FKmpqTAYDFi5cmWv+718\n+RLx8fFob29HdnY2fH19kZOTg8TERJw+fRoLFixQdCH24NChQ9i0aRPa29tN2n18fBAbG2vyyvrC\nhQuxcOHCQT5DIiIiInIkFhXrlZWVOHXqlFSgA0BsbCwePHiAbdu2Yfny5dIDel5XUFCAxsZGXLx4\nETExMdK+kZGR2L59O+rq6hReyuAQQqCpqQlVVVWorq7Ghg0bEBsbCwDw8/NDe3s7vL29sWDBAukT\nW8LDw+HqyhVHRERERGQZi4r1iooKaDQapKSkmLSnp6dj5cqVqKurw+zZs3vdd9KkSVKhDgAqlQpp\naWn4/PPP0dzcbLdLQFpaWnD16lXs27cPVVVVePjwobQtICBAKtbnzZuHuro6TJ06FSoV37tLRERE\nRMpYVFE2NjZiypQpZoVoRESEtL23Yr2xsRHz5s0zazfue/369T6L9evXr5ssJRkMTU1N+OCDD0za\n3N3dERERgRkzZmDatGm4du2atM3T09NkbbozM342vE6nM8mI+sbs5GN28jE7+ZidMsxPPmYnny2y\nc3V1xdixYy3ax6Jiva2tDcHBwWbtPj4+0vY37WvsZ+m+Rnq9Ht3d3f09XasIDAyEn58fRo0ahenT\np2P69OmIjIyEWq2W+hj/sql3zEg+Zicfs5OP2cnH7JRhfvIxO/kGK7velou/icVrNVxcXGRtU7ov\n8N+ymcFe+63T6VBRUQF3d3e4u7sP6rEd3asDn9lZhtnJx+zkY3byMTtlmJ98zE4+W2Qnp461qFgf\nMWJEj6+AP3nyBAB6fOXcGvsahYaGDnqxbvxvEXd3d0RGRg7qsR3dtWvXoNPpmJ0MzE4+Zicfs5OP\n2SnD/ORjdvLZIjuDwYCOjg6L9rGo8g0PD8eNGzfMnrjZ0NAAAAgLC3vjvsZ+lu5LREREROSMLCrW\nly1bhs7OThw5csSkvaioCFqtFrNmzXrjvjdv3jT5iEa9Xo/i4mLMmjULWq3WwlMnIiIiIhraLFoG\ns3jxYiQkJGDjxo14+vQpJkyYgLKyMvz6668oLi6WFs1nZGSgqKgITU1NGDduHABg/fr1yMnJQUpK\nCrKysuDr64vc3FzcunULp0+ftv6VERERERE5OIvfYHr06FHs3LkTu3btwpMnTzB58mSUlZVhxYoV\nUp/u7m50d3dDCCG1eXp64syZM9i+fTs+/fRTPH/+HFFRUThx4sSQeHopEREREZG1WVysazQaZGdn\nIzs7u9c+hYWFKCwsNGv38/NDUVGRpYckIiIiInJKdvuYzVdflTca7AciAf99xI6bmxtcXV1tcnxH\nxuzkY3byMTv5mJ18zE4Z5icfs5PPFtn1dJyeat5XuYi+etiIXq/Hs2fPbH0aREREREQD5u2334ZK\n1fvr54P7oeVERERERNRvLNaJiIiIiOwUi3UiIiIiIjtlt2vWDQaD2SJ8FxcXuLi42OiMiIiIiIjk\nE0KYvaHU1dUVrq69v35ut8U6EREREZGz4zIYIiIiIiI7xWKdiIiIiMhOOW2x3tHRge3bt2PRokUY\nNWoUXFxcsHv3bot+RmtrK9atW4eRI0fCy8sLMTExOHPmTI99T58+jZiYGHh5eWHkyJFYt24dWltb\nrXAlttHZ2YnNmzdDq9VCrVYjKioK5eXl/dp34cKF0vsPevpqaWnps29iYuJAXdqAU5JdYWFhv3Iz\nKi8vR1RUFNRqNbRaLTZv3ozOzk5rX9KgUpLf0aNHkZqaigkTJuCtt95CUFAQVq1ahTt37pj1ddSx\npyQfZ57TAPnZOcO46ovc7Dinyc/O2e+lgPJazlHmPLt9gulAa2trQ15eHiIjI7F06VLk5+dbtP/L\nly8RHx+P9vZ2ZGdnw9fXFzk5OUhMTMTp06exYMECqe+5c+ewePFiLFmyBMePH0drayt27NiB+Ph4\nXL58GZ6enta+vAGXnJyM+vp6ZGVlYeLEiSgtLUVqaioMBgNWrlz5xn1zc3Px9OlTk7bnz58jMTER\n06ZNg7+/v8m24OBglJSUmLQNGzbMOhdiA0qyMzp48CAmT55s0jZixAiT70tKSpCWlobMzEzs27cP\nt2/fxo4dO/DXX3/h5MmTVruewaYkvz179sDf3x87d+5EcHAwHj58iG+++QZTp05FbW0tQkNDTfo7\n4tiTm4+zz2mA/OycYVz1Rem8xjnN8uyc/V4KKKvlHGrOE07KYDAIg8EghBDi33//FQDEF1980e/9\nc3JyBABx8eJFqU2n04mQkBAxc+ZMk74zZswQISEhQqfTSW01NTUCgMjNzVV2ITbwyy+/CACitLTU\npD0hIUFotVqh1+st/pmFhYUCgMjPzzdpX7BggQgNDVV0vvZEaXYHDx4UAER9ff0b++n1ejF69Gix\naNEik/aSkhIBQFRWVsq7ABtTmt8///xj1tbc3Czc3d1FRkaGSbsjjj0l+TjznCaEsuyG+rjqi5Ls\nOKdZ937qLPdSIyW1nCPNeU67DEbpx0BWVFRg0qRJiImJkdpUKhXS0tLw+++/o7m5GQDQ3NyM+vp6\nrF692uRRsrNnz8bEiRNRUVEh/yJspKKiAhqNBikpKSbt6enpePToEerq6iz+mQUFBdBoNFi+fLm1\nTtMuDUR2PamtrcXjx4+Rnp5u0p6SkgKNRuOQ4w5Qnp+vr69Zm1arRUBAAB4+fGjVc7UFJfk485wG\nKMtuqI+rvgzGvMY5rX+c5V5qpKSWc6Q5z2mLdaUaGxsRERFh1m5su379utTv1fbX+xq3O5LGxkZM\nmTLFZNAC/79GS6/pzp07OH/+PFasWAGNRmO2vampCT4+PlCpVBg/fjx27tyJrq4u+RdgQ9bK7r33\n3oObmxt8fHyQnJxstl9v487d3R2TJ092yHEHWH/sAcDdu3fx4MEDs6UKgOONPSX5OPOcBlh/bA2l\ncdUXa2THOU35uHOme6k1ONKc57Rr1pVqa2uDj4+PWbuxra2tzeTP3voatzuStrY2BAcHm7W/fu39\nVVBQAADIyMgw2zZ37lwsX74ckydPRldXF06cOIG9e/fiwoULqK6ufuNDBOyR0uyM62Kjo6Pxzjvv\noKGhAVlZWYiOjkZNTQ0iIyNNfk5v4+7+/fsKr8Q2rD329Ho9MjIyoNFosGXLFpNtjjj2lOTjzHMa\nYN2xNdTGVV+UZMc5zXrjzpnupdbgSHPekCjWz549i9jY2H71vXr1KqKioqxy3Df918vr23rra+sn\nssrNzpJrfxO9Xo+ioiKEhoYiOjrabPtXX31l8n1SUhKCgoKwdetWHD9+HMuWLev3sazNFtklJiaa\nvHt//vz5WLJkCcLDw7Fr1y4cP368Xz/P1uMOsP3YE0IgIyMD58+fx5EjRxAYGGiy3Z7H3psoyWco\nzGlKWGNsDdVx1Re52Q2lOU0ua4w7R76X2pKjzHlDolifNGkSfvjhh371HTt2rFWOOWLEiB5/m3ry\n5AmA//8GZnw3e299e/pNbTDJya6/194flZWVaGlpwY4dO/q9T1paGrZu3Yra2lqbTjC2zs4oKCgI\nc+fORW1trdT26rjz8/MzO5atxx1g2/yEEMjMzERxcTGKiorw/vvv92s/exl7vVGSz1CZ0+Syxtga\nquOqL9ae1xx1TpPDWtk58r3UVhxpzhsSxfro0aORmZk5qMcMDw9HQ0ODWbuxLSwszOTPhoYGJCUl\nmfU1brcVOdmFh4ejrKwMer3eZJ3d69feHwUFBfDw8MDq1astOgcANv9vO1tn9yohhEke4eHh0s8N\nCQmR2vV6PW7evInU1FRZx7EmW+VnLKgOHjyIgoICpKWlWXbisP3Y642SfIbKnCaX0rE1lMdVXwZi\nXnPEOU0Oa2XnyPdSW3GoOW/AP2/GAcj56Mbc3FwBQNTW1kptOp1OhIaGilmzZpn0nTlzpggLCzP5\nCKZLly4JAOK7775TfP6DrbKyUgAQ5eXlJu2JiYkWfdTU48ePhUqlEh999JFFx9+zZ48AII4dO2bR\nfvbAWtm96u7du0Kj0YilS5dKbcaPOUtMTDTpW1ZWJgCIEydOyLsAG1Oan8FgEBkZGcLFxUXk5eVZ\nfHx7H3tK8nHmOU0IZdkN9XHVF2vPa5zTLMvOGe+lPbG0lnOkOc+pi/XKykpx+PBhceDAAQFApKSk\niMOHD4vDhw+LZ8+eSf3Wr18v3NzcxP3796W2Fy9eiNDQUBEYGChKSkrEqVOnxLJly4RKpRJnz541\nOU51dbVQqVRi2bJl4tSpU6KkpEQEBgaKsLAw8eLFi0G7XmtKSEgQw4cPF3l5eaKqqkp8/PHHAoAo\nLi426ddTdkZZWVkCgDh58mSPx/jtt9/Eu+++K77//ntx8uRJ8dNPP4mNGzcKNzc3ERcXJ7q7uwfk\n2gaakuzi4+PFl19+KSoqKsSZM2fE/v37hVarFd7e3qKhocFk/0OHDgkAYsOGDaK6ulrk5eWJYcOG\niYSEhEG5zoGiJL9PPvlEABDr168Xly5dMvm6cuWK1M+Rx15/8uGc1jO52TnDuOqL3Ow4p8nPzshZ\n76VG/anlHH3Oc+pifdy4cQJAj1/37t2T+q1du9asTQghWlpaxJo1a4SPj49Qq9UiOjpanDp1qsdj\nnTx5UkRHRwu1Wi18fHzEmjVrenyQhqPo6OgQmzZtEv7+/sLDw0NERESIsrIys369ZSeEEBMnThRB\nQUHSAw1ed+fOHZGUlCTGjBkjPD09hVqtFuHh4eLrr7926IJASXabN28WISEhwtvbW6hUKqHVakVa\nWpq4detWj8cqLS0VERERwsPDQ/j7+4tNmzaJjo6Ogbq0QaEkvzf9mx83bpzUz5HHXn/y4ZzWM7nZ\nOcO46ovc7DinKfs3K4Tz3kuN+lPLOfqc5yKEEIrW0RARERER0YBwzncVEBERERE5ABbrRERERER2\nisU6EREREZGdYrFORERERGSnWKwTEREREdkpFutERERERHaKxToRERERkZ1isU5EREREZKdYrBMR\nERER2SkW60REREREdorFOhERERGRnfofoXpeSAifKdoAAAAASUVORK5CYII=\n",
      "text/plain": [
       "<matplotlib.figure.Figure at 0x15d247b5b38>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "import matplotlib.pyplot as plt\n",
    "\n",
    "t = np.linspace(-1, 1, 10)\n",
    "plt.plot(t, np.exp(t))\n",
    "t = np.linspace(-1, 1, 2)\n",
    "plt.plot(t,t+1, ls='--', c='k');"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "You can see that the slope is very close to the curve at $t=0.1$, but far from it\n",
    "at $t=1$. But let's continue with a step size of 1 for a moment. We can see that at $t=1$ the estimated value of $y$ is 2. Now we can compute the value at $t=2$ by taking the slope of the curve at $t=1$ and adding it to our initial estimate. The slope is computed with $y'=y$, so the slope is 2."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAvAAAAEvCAYAAAAjJvUdAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMS4wLCBo\ndHRwOi8vbWF0cGxvdGxpYi5vcmcvpW3flQAAIABJREFUeJzs3Xl4lNX9/vH3TGay7yEQAgkkQAIE\nwg5REQVEURJbtK51r7v269LWWq0ibrX9aRcttlqr2CpocW2CYlEBFdkEDGsIexYgCdnInlme3x+B\ngci+JM9Mcr+uK1cyzzLzmTkccs/JmfNYDMMwEBERERERn2A1uwARERERETlxCvAiIiIiIj5EAV5E\nRERExIcowIuIiIiI+BAFeBERERERH6IALyIiIiLiQ2xmF3Ay3G43bre71TaLxYLFYjGpIhERERGR\nU2cYBj9c1d1qtWK1Hn2c3ecCfF1dndlliIiIiIi0mZCQkGMGeE2hERERERHxIQrwIiIiIiI+RAFe\nRERERMSH+NQc+CN9WPV4c4Tawvr163E6ndhsNtLS0tr1seXEqI18g9rJ+6mNvJ/ayDeonbyfWW10\npM94Hm+BFp8P8Mf7lG5bcLvduFwuUx5bTozayDeonbyf2sj7qY18g9rJ+3lTGx0vwOtfkIiIiIiI\nD1GAFxERERHxIQrwIiIiIiI+RAFeRERERMSHKMCLiIiIiPgQBXgRERER6fRcbsPsEk6YAryIiIiI\ndGqlNY08+Fkp3+1qMruUE6IALyIiIiKd1t7aJn76j2XsqHIwM7cGh8v7R+IV4EVERESkU6qoa+a6\n15axubSW6CArj54bid3v2BdR8gY+dSVWEREREZEzoaq+Jbzn7akhNiyA6eMi6RpkdlUnRiPwIiIi\nItKpVDc4uP6fy9mwex9dQv2ZfdsYeoTbzS7rhCnAi4iIiEinUdPo4MbXl7O2uJroEH9m3ZZB365h\nZpd1UhTgRURERKRTqG1yctMbK/i+sIrIYDtv/WwMKd18K7yDAryIiIiIdAL1zU5ueWMFK3dWEh5o\n462fjWFgfLjZZZ0SBXgRERER6dAaml38bOZ3LN9RQViAjX//bAyDekSYXdYpU4AXERERkQ6r0eHi\n9n9/x5Jt5YQG2HjzZ6MZkhBpdlmnRQFeRERERDqkJqeLO/69kq837yXY34+ZN49ieGKU2WWdNgV4\nEREREelwmp1u7n5rFYvyywi0W3n9plGM7B1tdllnhAK8iIiIiHQoDpebn89exRd5pQTYrLx+4ygy\nkmPMLuuMUYAXERERkQ7D6XJz/zvf89n6EvxtVv5xw0jO7tvF7LLOKAV4EREREekQXG6DB/+Ty9y1\nu/H3s/LKdSMYlxJrdllnnAK8iIiIiPg8l9vgV3Ny+W/uLmxWCy//dDjj+3c1u6w2oQAvIiIiIj7N\n7TZ4+P01fLC6GD+rhb9eO4wLBnYzu6w2owAvIiIiIj7L7TZ49KN1zFlZhNUCf7l6KJMHdTe7rDal\nAC8iIiIiPskwDKb9dz2zlxdgtcCfrhpKZnq82WW1OQV4EREREfE5hmHwZM4G/r10JxYL/L+fDOFH\nQ3uYXVa7UIAXEREREZ9iGAa/+zSPNxbvAOD3l6Vz+Yie5hbVjhTgRURERMRnGIbB//tsE69+tQ2A\nZ6YO4spRCSZX1b4U4EVERETEZ/zp8828vHArAE/+KI2fjullckXtTwFeRERERHzCS19s5sUvNgPw\neOZAbjirt7kFmUQBXkRERES83t8WbuWF+fkAPHJJf24Zm2RyReZRgBcRERERr/ba19v4/bw8AH51\nUSq3j+tjckXmUoAXEREREa/1xuLtPD13IwAPXJDCPeP7mlyR+RTgRURERMQr/XvJDqZnbwDg5xP6\nct8F/cwtyEsowIuIiIiI15m1rIDHPl4PwJ3n9eHBSSkmV+Q9FOBFRERExKv857tCHvlwLQC3jk3i\n15NTsVgsJlflPRTgRURERMRrfLCqiF+/vwaAm87uzaNTBii8/4ACvIiIiIh4hY+/L+aXc3IxDLgu\nI5FpWQMV3o9AAV5ERERETDd3zW4e/E8ubgOuHpXAk5cOUng/CgV4ERERETHVZ+v3cN87q3G5DX4y\noifPTh2M1arwfjQK8CIiIiJimreX7eTut1fhdBtMHdaD31+ervB+HDazCxARERGRzsftNvjDZ5v4\n+6KtAPxkRE+eu2wwfgrvx6UALyIiIiLtqtHh4lfvrSE7dxfQcoXV/5vYV3PeT5ACvIiIiIi0m8q6\nZm7/93es2FGJzWrh95enc/mInmaX5VMU4EVERESkXRSU13PTG8vZtreOsEAbr1w3grP7djG7LJ/j\nNR9i/eabb7jkkkuIiooiKCiIfv368dRTT5ldloiIiIicAasLKpn68mK27a2jR2QQ7991tsL7KfKK\nEfhZs2Zx/fXXc+WVV/Kvf/2L0NBQtm7dyq5du8wuTURERERO07x1e7j/3dU0OtwM6hHO6zeOomt4\noNll+SzTA3xxcTG33347d9xxBy+//LJn+/jx402sSkRERETOhH9+s52n527AMGB8aix/vXY4IQGm\nR1CfZvqr99prr1FXV8evf/1rs0sRERERkTPE5TZ4KmcDM7/dAcBPxyQy/dI0bH5eM4PbZ1kMwzDM\nLGDixIl8//33zJo1i1//+tesW7eO6OhoLrvsMv7whz8QHh7uOdbtdlNTU9Pq/IKCAtxud7vW7HA4\nPD/b7fZ2fWw5MWoj36B28n5qI++nNvINna2dmpxuXlhSwbKiRgBuHBLB1AGhXr1MpFltZLVaSUxM\nbLUtLCwMq/Xob3RMD/D9+/dn586d2O12fvOb33DWWWexYsUKpk2bxvDhw/n66689jX2kAL9t2zZc\nLpcZpYuIiIjID1Q1unhucRVbKp3YrfDzURGcnaD57kfj5+dHcnJyq23HC/CmT6Fxu900NjYybdo0\nHn74YQDOP/98/P39uf/++/niiy+44IILjnq+zWY75hNsC53tXbQvUhv5BrWT91MbeT+1kW/oLO1U\ntM/BkwsrKalzEeZv5ZFxMQyMDTC7rBNi5gj8yTI9wMfExLB582YuuuiiVtsvvvhi7r//flatWnXM\nAJ+WltbuAT43NxeHw4HdbmfIkCHt+thyYtRGvkHt5P3URt5PbeQbOkM7LdtWziMfraS6wUVidDAz\nbx5Fcmyo2WWdMLPa6EgzTI7H9E8RpKenH3H7gZk97R3ORUREROTkfPx9Mdf/cznVDQ6GJUby4d1n\n+1R49zWmp+PLL78cgE8//bTV9k8++QSAjIyMdq9JRERERI7PMAxmLNjCfe98T7PLzeS0OGbflkFM\nqG9Mm/FVpk+hufDCC8nKyuLJJ5/E7XaTkZHBd999x/Tp08nMzGTs2LFmlygiIiIiP+B0uXns43XM\nXl4IwM/GJvHIJQPws3rvSjMdhekBHuDdd99l+vTpvPrqq0yfPp34+HgeeOABpk2bZnZpIiIiIvID\ntU1O7nl7FYvyy7BYYFrmQG46J8nssjoNrwjwQUFBPPfcczz33HNmlyIiIiIix7CnupFbZq5gw+59\nBNqtvHj1MC5MizO7rE7FKwK8iIiIiHi/vD37uPmNFeyubqRLqD+v3TiKoQmRZpfV6SjAi4iIiMhx\nfb25jLveWkVtk5Pk2BDevHk0CdHBZpfVKSnAi4iIiMgx/ee7Qh75YC1Ot8HopGhevX4EkcH+ZpfV\naSnAi4iIiMgRGYbBn+bn8+KXWwD40dB4/vCTdAJsfiZX1rkpwIuIiIjIYZqdbh5+fw0frC4G4J7x\nffjFpFSsWibSdArwIiIiItJKdYODO/+9kiXbyvGzWnj6x4O4ZnSi2WXJfgrwIiIiIuJRVFnPzW+s\nYHNpLSH+fsz46XDOT+1qdllyCAV4EREREQFgbVE1t7y5grKaJrqFB/D6TaNIi48wuyz5AQV4ERER\nEeGLjSXcO2s1DQ4X/ePCeP2mUcRHBpldlhyBAryIiIhIJ/fvpTuZ9vE63Aac268LL/90OGGBdrPL\nkqNQgBcRERHppFxug9/Py+PVr7YBcOXInjwzdTB2P6vJlcmxKMCLiIiIdEKl+xq5753vWbKtHIBf\nTErh3gl9sVi0TKS3U4AXERER6WS+yi/jgXe/p7yumWB/P3532WB+NLSH2WXJCVKAFxEREekknC43\nf/o8n5cXbsUwoH9cGH+9djh9u4aaXZqcBAV4ERERkU5gV1UD/zd7Nd/trATgp2MSeSxzIIF2P5Mr\nk5OlAC8iIiLSwX2ZV8KD/8mlqt5BaICN5y4fTGZ6vNllySlSgBcRERHpoJqdbv7fZ3n84+vtAAzu\nEcFfrx1Gr5gQkyuT06EALyIiItIBFVbUc+/s1eQWVgFw8zm9efji/gTYNGXG1ynAi4iIiHQw89bt\n5lfvraGm0Ul4oI3/d8UQLkqLM7ssOUMU4EVEREQ6iCani2fnbuTNJTsBGJYYyUvXDKNnVLDJlcmZ\npAAvIiIi0gHs2FvHvbNXsa54HwB3jEvmlxel6qqqHZACvIiIiIiP+2/uLh75YC21TU6igu388cqh\njO/f1eyypI0owIuIiIj4qEaHi+nZG5i9vACA0b2j+cs1Q+keEWRyZdKWFOBFREREfNCW0hrunbWa\nvD01WCxw7/i+3DexHzZNmenwFOBFREREfMx7K4t47KN1NDhcdAn1509XDeXcfrFmlyXtRAFeRERE\nxEfUNzt57KP1vL+qCICz+8Tw56uH0jUs0OTKpD0pwIuIiIj4gLw9+7jn7VVsLavDaoH7L0jhnvF9\n8bNazC5N2pkCvIiIiIgXMwyDd1YU8sR/19PkdNMtPIC/XD2MjOQYs0sTkyjAi4iIiHipmkYHj3y4\njuzcXQCclxLLH68cQkxogMmViZkU4EVERES80Lriau6dtYod5fX4WS386qJUbj83GaumzHR6CvAi\nIiIiXsQwDP69dCdP52yk2eWmR2QQL14zlBG9os0uTbyEAryIiIiIl6hucPDr99Ywb/0eAC4Y0I3n\nr0gnMtjf5MrEmyjAi4iIiHiB7wuruHfWKooqG7D7WfjNxQO4+ZzeWCyaMiOtKcCLiIiImMgwDP75\nzXae+zQPp9sgMTqYv147jPSekWaXJl5KAV5ERETEJJV1zfxyTi5f5JUCcMngOJ67PJ3wQLvJlYk3\nU4AXERERMcHiLXv55Zxcdlc34m+z8ljmQK4bk6gpM3JcCvAiIiIi7aiyrpmn527k/VVFACR3CeGl\na4eRFh9hcmXiKxTgRURERNqBYRgs3FHPm/9dREVdMxYL3JDRi19N7k9ogCKZnDj9axERERFpYyW1\nTl5eXsX3Jc0ApHQL5XeXpTOiV5TJlYkvUoAXERERaSNOl5s3Fu/g+c9KaHIZ2K1w3wUp3D6uD/42\nq9nliY9SgBcRERFpA+uKq3n4gzWsK94HwMAudu4dE80l5/YzuTLxdQrwIiIiImdQfbOTP3++mX9+\nsx2X2yAiyM4Ng0MZl2DH31/LQ8rpU4AXEREROUMW5Zfx24/WUljRAEBmenemZaWxa1seDofD5Oqk\no1CAFxERETlN5bVNPJWzgY++3wVAj8ggnvpxGhP6dwNgl5nFSYejAC8iIiJyigzD4P1VxTw9dwNV\n9Q6sFrjp7CR+cWEKIVoaUtqI/mWJiIiInIKd5XU88uFaFm8pB6B/XBi/vzydIQmRJlcmHZ0CvIiI\niMhJcLjcvPb1dv78eT5NTjcBNiv3X5DCrecmYffT0pDS9hTgRURERE5QbmEVD3+wlo27W5aGPKdv\nDM/8eDC9u4SYXJl0JgrwIiIiIsdR1+Tkhf/lM/Pb7bgNiAy289iUgVw2vAcWi8Xs8qSTUYAXERER\nOYYFeaX89qN1FFe1LA3546HxPJY5kJjQAJMrk87K6yZqvfbaa1gsFkJDQ80uRURERDqxspom7p21\niptnrqC4qoGeUUG8ecto/nz1MIV3MZVXjcAXFxfzy1/+kvj4eKqrq80uR0RERDohwzD4z3eFPDN3\nI/sanVgt8LOxSTwwKYVgf6+KTtJJedW/wjvvvJNx48YRHR3Ne++9Z3Y5IiIi0slsK6vlkQ/XsnRb\nBQCDeoTz3GXpDOoRYXJlIgd5TYB/6623WLRoERs2bOC3v/2t2eWIiIhIJ9LsdPPqV1t58cstNDvd\nBNn9eHBSCjef0xubloYUL2MxDMMwu4jS0lIGDhzIk08+yd13381NN93Ee++9R21tbavj3G43NTU1\nrbYVFBTgdrvbs1wcDofnZ7vd3q6PLSdGbeQb1E7eT23k/dRGp2/T3iZmLK9kZ7UTgGFxAdw1Kopu\noWdunFPt5L0cDgerVq1i4cKFTJ06laSkpHZtI6vVSmJiYqttYWFhWK1Hf+N4Sv8yV65cyYgRI07l\n1CO6++67SU1N5a677jrpc51OJy6X64zVcrIO7ZDindRGvkHt5P3URt5PbXRy6h1uZq2r5bOtDRhA\nuL+Fm4aGcW5CIBaL0Wavp9rJfIZheJb//PTTT3n88ccBiIqKIikpqV3byM/P76TPOaUAP2rUKMaM\nGcO9997LlVdeeVrvUt5//32ys7NZvXr1Ka2jarPZjvkOpS3oXbT3Uxv5BrWT91MbeT+10ckzDIMl\nRQ28trKa8oaWQcAJScHcPCyC8ICTD1MnQu1kLsMw2Lp1K1999RWLFi1iwoQJ3HjjjQCMGzeO2NhY\nMjIySE9PB9q3jU4lx55SgJ85cyYzZszg+uuv5xe/+AW33XYbd9xxBz179jyp+6mtreWee+7h5z//\nOfHx8VRVVQHQ3NwMQFVVFXa7nZCQo1/dLC0trd0DfG5uLg6HA7vdzpAhQ9r1seXEqI18g9rJ+6mN\nvJ/a6OQs317B7z7dyOqClszRKyaYZ6cO5py+Xdr0cdVO7a+pqYmFCxeSk5NDTk4OO3bs8OwLCwvj\nj3/8o+d2SUkJa9asMaWNjjRF/HhOKcDfcMMN3HDDDaxYsYKXXnqJ559/nt///vdkZWXx85//nPPP\nP/+E7mfv3r2UlJTwwgsv8MILLxy2Pyoqih/96Ed89NFHp1KmiIiICACbS2r4/bw8Pt9YCkCQ3Y/b\nzk3i7vF9CbS3zai7mMflctGrVy9KSko82wIDA5k4cSKZmZlMmTKl1fG+djXd0/p0xqhRo/jXv/7F\nH//4R1599VVeeeUVJk6cyIABA/j5z3/OjTfeSGBg4FHPj4uLY8GCBYdtf+6551i0aBGffvopXbq0\n7TtiERER6bh2Vzfw5/mbmbOyELcBflYLV41K4P6J/egafvSMIr7BMAxyc3PJzs5mw4YNzJ49G2iZ\nV56RkcGKFSvIzMwkMzOTiRMnEhwcbHLFZ8YZ+Xi1v78/wcHB+Pv7YxgG9fX13HXXXTz99NPMmTOH\njIyMI54XGBh4xNH6mTNn4ufnd8Ij+SIiIiKHqm5w8PdFW3n9m+00OVtWq5ucFsevJqfSJ1ZXe/dl\nDQ0NfPnll2RnZ5OTk0NxcbFn39NPP02fPn0AeOONN4iMjPS50fUTcVoBfs2aNcyYMYNZs2bR3NzM\nFVdcwaxZsxg1ahRr1qzh9ttv54477iA3N/dM1SsiIiJyVE1OF/9espO/LthCVX3LB0dH9Y7i4YsH\nMKJXlMnVyel68cUXefjhh2loaPBsCw4OZtKkSWRmZhITE+PZHhXVcdv7lAL8u+++y4wZM1i8eDGx\nsbE8+OCD3HXXXcTFxXmOSU9P59lnn+Wiiy466fufOXMmM2fOPJXSREREpBNyuw3+m7uL5/+3iaLK\nlnDXt2sov57cnwsGdO2Qo7AdmdvtZuXKleTk5PCTn/yEwYMHA5CQkEBDQwMJCQlkZWWRmZnJ+PHj\njzlluyM6pQB/zTXXMGzYMF5//XWuueYa/P39j3hc7969ue66606rQBEREZFj+Sq/jOc+zWPD7n0A\ndAsP4IELUvjJiJ66iqoPqaurY/78+eTk5DB37lz27NkDtMxzPxDgL7roInJzcxk8eHCnflN2SgH+\nq6++YuzYscc9Ljk5mTfeeONUHkJERETkmNYVV/Pcp3l8s2UvAGEBNu48vw+3nJNEkL9WlvEVJSUl\n3HTTTSxYsICmpibP9tDQUC666CLGjBnj2RYcHOxZq70zO6UAfyLhXURERKQtFFbU8/z/NvHx97sA\nsPtZuD6jN/dO6Et0yJFnBYh3cLlcLF++nLKyMi699FIAYmJiWLZsGU1NTSQlJZGVlUVWVhbjxo07\n6iyPzu6MrEIjIiIi0tYq6pp56cvNvLV0Jw6XAcCPh8bziwtTSYjuGMsDdkT79u3jf//7Hzk5OXzy\nySeUlZWRmJhIVlYWFosFm83Gm2++SZ8+fRgwYECnnhpzohTgRURExKs1NLt4ffF2/r5wKzVNTgDO\n7deFX0/uz6AeESZXJ0fz1ltv8eabb7Jo0SIcDodne0REBGeffTa1tbWEhYUBkJWVZVaZPkkBXkRE\nRLyS0+Vmzsoi/jQ/n9KalrnRafHhPHxxf87tF2tydXIop9PJkiVLyMjIwG63A7B8+XI+//xzAFJS\nUjyrxpxzzjmeY+TUKMCLiIiIVzEMg/kbSvjDZ5vYUloLQM+oIH55YSqXDonHatUUC29QWVnJZ599\nRnZ2Np9++imVlZUsWLDAcyHO66+/nqSkJKZMmUJKSoq5xXYwCvAiIiLiNVburOB3n+Tx3c5KAKKC\n7dw7oR/XZSQSYNPKMmbbs2cPb7/9NtnZ2XzzzTe4XC7Pvujo6FZXRR01ahSjRo0yo8wOTwFeRERE\nTLeltJY/zMvjfxtKAAi0W7nlnCTuPL8P4YGabmEWh8NBdXU1Xbp0AaC4uJhf/vKXnv1paWlkZmaS\nmZlJRkYGNpuiZXvQqywiIiKmKd3XyJ8+38x/vivE5TawWuCKEQk8MCmFuIjOdXVNb1FeXs6nn35K\ndnY28+bNY+rUqcycOROA4cOHc9VVV3HOOecwZcoUkpOTzS22k1KAFxERkXZX0+jglUXb+Oc322lw\ntEzDuGBAN349OZV+3cJMrq7z2bBhA9nZ2eTk5PDtt9/idrs9+7777jsMw8BisWCxWHjnnXdMrFRA\nAV5ERETaUUOzi1nLC5ixYAsVdc0ADEuM5DcXD2B0UrTJ1XUeLpcLP7+Dnym46qqrWLduned2enq6\nZ9WY0aNHa212L6MALyIiIm2uoq6Zfy3ZwZvf7qCyvmVN8OQuITw0OZWL0uIUENtBaWkpc+fOJScn\nh2+++Ybt27cTHNxyAayf/OQnJCQkeOazJyYmmlytHIsCvIiIiLSZwop6/vnNdt5dUeiZKpMQHcRd\n5/XlypE9sflZTa6w4zIMgzVr1pCTk0N2djbLly/HMAzP/kWLFnHxxRcDMG3aNLPKlFOgAC8iIiJn\n3IZd+3jlq63krNmNy90SGtPiw7nzvD5cPChOwb0dvPzyy9x7772ttg0fPtwzNWb48OEmVSanSwFe\nREREzgjDMFiyrZy/L9rGV/llnu3n9uvCHeP6cE7fGE2VaQO7du3ik08+ITs7m2uvvZarrroKgIkT\nJxIUFMQFF1xAVlYWl1xyCT169DC5WjkTFOBFRETktLjcBp+t38Mri7aSW1QNgNUCU9LjuWNcMoN6\nRJhcYcfidrtZvXq1Z2rMypUrPfv8/f09AT41NZXy8nKCgoLMKlXaiAK8iIiInJJGh4v3VxXxj6+2\nsaO8HoAAm5WrRiVw69hkEmOCTa6w46mvryc1NZWioqJW20ePHk1WVhaXXnqpZ5vFYlF476AU4EVE\nROSkVNc7eGvZTt5YvJ29tS1LQUYG27nhrN7ceFYvYkIDTK6wYygsLCQnJ4fCwkKeffZZAIKDg+nR\noweVlZVceOGFnqkx3bp1M7laaU8K8CIiInJCdlU18Po325m9vIC65pYVZXpEBvGzsUlcNSqBkADF\nitPhdrtZsWKF54JKubm5ANhsNh566CEiIyMBmD17NvHx8QQE6I1SZ6WeJiIiIse0uaSGvy/axsff\nF+Pcv6JM/7gw7jgvmcz0eOxaUea0vfjiizzzzDOUlpZ6tlmtVs466ywyMzNbLf+YlJRkRoniRRTg\nRURE5IhW7Kjg7wu38kXewVCZkRzNHef14fyUWK0oc4q2b99OTk4Ol112mWdVGLvdTmlpKeHh4Uye\nPJnMzEwuvvhiunTpYnK14o0U4EVERMTD7Tb4fGMJr3y1jZU7KwGwWGByWhy3j0tmWGKUyRX6HpfL\nxerVq1mwYAGLFy9m69atQMvUmLvuuguAyy+/nNTUVMaOHYu/v7+Z5YoPUIAXERERmpwuPl69i1e+\n2srWsjoA/P2sXD6iJ7edm0RybKjJFfqeoqIifvOb3/DJJ59QUVHh2e7n58fYsWOJi4vzbOvatSsT\nJkwwo0zxQQrwIiIinVhNo4NZywp4ffF2SvY1ARAWaOP6jF7cdE5vuoYFmlyh79i8eTMVFRWMGTMG\ngLCwMN555x2cTifh4eGcddZZjB8/nttvv52oKP0lQ06dAryIiEgnVLqvkdcX7+DtpTupaXICEBce\nyM/GJnH16ATCAu0mV+j9HA4Hixcv9lxQKT8/n9GjR7Ns2TIAIiIieOmll0hLSyM4OBjDMLDb7Qrv\nctoU4EVERDqRbWW1/OPrbby/sphmlxuAvl1DuX1cMj8e2gN/m1aUOZ4PPviAOXPmMG/ePKqqqjzb\n7XY7EREROBwO7PaWN0B33nknALm5uTgcDlPqlY5HAV5ERKSDa3a6+XxjCbOXF/DNlr0cWJFwZK8o\n7jivDxP7d8Vq1YoyR2IYBvn5+aSkpHhW3XnnnXeYM2cOAF26dOGSSy4hKyuLCy+8kPDwcDPLlU5C\nAV5ERKSD2lZWy7srCnlvZRHldc2e7RcM6Mqd5/VhZO9oE6vzXs3NzXz11VeeCypt27aNjRs30r9/\nfwBuvPFG+vbtS1ZWFqNHj8bPz8/kiqWzUYAXERHpQBodLj5bv4dZywpYtv3gyiddwwK4cmQCV41K\nICE62MQKvVNFRQXZ2dlkZ2fzv//9j5qaGs8+f39/1qxZ4wnwU6ZMYcqUKWaVKqIALyIi0hEUVDv4\nKHs9H64upqq+Za611QLnp3bl6lEJTOjfFZuumOphGAZNTU0EBrassrN06VJuuukmz/5u3boxZcoU\nsrKyuOCCCwgN1TKa4j0U4EXS+6ckAAAgAElEQVRERHxUQ7OLL7bVMW9zLfkVBz8g2SMyiCtHJnDF\nyJ7ERwaZWKF3aWxsZOHChZ6pMddeey2/+93vABg/fjwZGRlMmjSJzMxMRo4cidWqNzzinRTgRURE\nfMy64mreWVHAx6t3eZaAtFpg0sBuXD06kXH9YvHTh1IB2LNnD3PnziUnJ4f58+dTV1fn2Td//nxP\ngA8KCmLJkiVmlSlyUhTgRUREfEBtk5P/fr+Ld1YUsKao2rM9LtSPib2DmNQ3jPMzhptYofcxDIOh\nQ4dSUlLi2dajRw8yMzPJzMzUlU/FZynAi4iIeCnDMPi+sIp3lheSvWYX9c0uAOx+Fi5Ki+Oa0YkE\n1xbhcjqx2zvvSij19fV8+eWX5OTksGrVKpYuXYrVasVisXDJJZewbt06srKyyMzMZOjQoZ7lIEV8\nlQK8iIiIl6mud/DR98XMXl5A3p6Dq6Ekx4ZwzahELhveg5jQAAByc4txmVWoiYqKijxTYz7//HMa\nGxs9+1avXs2IESMA+Mc//qFlHqXDUYAXERHxAoZhsGJHJe8sL2Du2t00OVuukhpgszJlcHeuHp3I\nqN5RGj0Gnn/+eX71q1+12paYmEhmZiZZWVmkpaV5tiu8S0ekAC8iImKiirpmPlhVxOzlBWwtO/gB\ny/5xYVw9KoGpw3oSEWw3sULz1NbWMn/+fHJycrjxxhsZN24cACNHjsRisZCRkeEJ7YMGDdKbG+k0\nFOBFRETamdttsGRbObOXF/C/9SU0u1pG24P9/chKj+fq0QkMTYjslIF0586d5OTkkJ2dzYIFC2hu\nbrmCbEhIiCfAjx07lpKSEmJjY80sVcQ0CvAiIiLtpLSmkfdWFvHuikJ2ltd7tg/uEcHVoxO4dEg8\nYYGdc7R97969TJgwgbVr17banpycTFZWFldccYVnm81mU3iXTk0BXkREpA3ta3Qwf30Jc9fu5qv8\nMpxuA4DQABs/HhbP1aMSGdQjwuQq29e+ffv47LPPKC8v58477wQgJiaGffv2YbVaGTt2rGepx/79\n+3fKv0SIHIsCvIiIyBlW2+Tki40lZOe2hPYDU2QAhidGcvXoRDLTuxPs33l+DW/dutVzBdRFixbh\ndDqJiori1ltvxWazYbFYeO+990hOTiY6OtrsckW8Wuf5n0NERKQN1Tc7+WJjKXPX7GbBplLPKjIA\nfbuGkpnencz07vTtGmZile1vxowZ/PWvfyUvL6/V9tTUVDIzM6mvryc8PBxo+XCqiByfAryIiMgp\namh2sXBTKTlrdvNFXgmNjoOhPblLCJnp3ZmSHk9Kt9BOMQ2ksrKSefPmkZWVRWhoKAClpaXk5eVh\ns9kYN26cZ2pMv379TK5WxHcpwIuIiJyERoeLRfllLaF9Y4nn6qgAidHB+0fa4xnQPazDh3bDMNi0\naZNn1ZjFixfjcrn44IMPmDp1KgDXXXcdaWlpXHjhhURGRppcsUjHoAAvIiJyHE1OF1/n72Xu2t3M\n31BCbZPTs69nVBBT0ruTOTieQT3CO3xoBygoKOBPf/oTOTk5bNmypdW+tLQ0XK6Db2r69eun0XaR\nM0wBXkRE5AianW4Wb91LTu5u/rdhDzWNB0N794hApgzuTuaQeIb0jOjwoX3v3r1UVVXRt29fAJxO\nJ3/+858B8Pf35/zzz/dMjUlKSjKzVJFOQQFeRERkP4fLzZKt5cxds5t56/dQ3eDw7OsWHsAlg1um\nxwxLiMRq7bih3TAM1q9f71k1ZsmSJVx66aV89NFHQMva7L/5zW8YOXIkkyZNIiysc30wV8RsCvAi\nItKpOV1ulm2vIGfNbuat201l/cHQ3iU0gCmD45iSHs/IXlEdOrQDzJ8/n//+97/k5OSwY8eOVvv2\n7t2LYRievzY8++yzJlQoIqAALyIinZDLbbBiRwU5a3Yxb90e9tY2e/bFhPgzeVAcmenxjE6Kxq8D\nh/bKykqioqI8t5988km++eYbAAICApg4cSJZWVlMmTKFhIQEs8oUkR8wPcB/+eWXvPXWW3z77bcU\nFhYSGRnJyJEjefzxxxkxYoTZ5YmISAfhdhusLKhk7prdfLJ2N6U1TZ59kcF2Lh4Ux5TB8WQkR2Pz\ns5pYadsxDIPc3FzPqjGrVq1i9+7ddOnSBYAbbriBAQMGkJWVxYQJEwgJCTG5YhE5EtMD/N/+9jfK\ny8u57777GDhwIGVlZbzwwgtkZGTw2WefMWHCBLNLFBERH9XocLFsewUL8kqZt24Pe/Y1evaFB9qY\nPKhleszZfWKwd9DQ3tDQwJdffklOTg45OTkUFRW12r9kyRKysrIAuO2227jtttvMKFNEToLpAX7G\njBl07dq11bbJkyfTt29fnn32WQV4ERE5KYUV9SzcVMqCTWV8u3Vvq4srhQXYmJTWjaz0eM7p2wV/\nW8cM7YfOVZ81axa33nqrZ19QUBCTJk0iKyuLSy65hPj4eLPKFJFTZHqA/2F4BwgNDWXgwIEUFhaa\nUJGIiPiSZqebFTtaRtkXbCpla1ldq/1x4YGM7x/LhP7dGJfShQCbn0mVth2328369ev58MMPycnJ\n4YYbbuD//u//ALjkkktITExkypQpZGZmMn78eIKCgkyuWEROh8UwDMPsIn6ourqaXr16MWHCBD74\n4APPdrfbTU1NTatjCwoKcLvdP7yLNuVwHFyhwG63t+tjy4lRG/kGtZP389Y2Kqtzsmp3Iyt3N5K7\np4lG58FfZVYLDOjiz4j4QEbEB9Erwtbh1ml3OBy8//777Ny5k+3bt7N582bKy8s9+8eMGcMrr7zi\nuX3oiLyYw1v7khxkVhtZrVYSExNbbQsLC8NqPfpfCE0fgT+Se+65h7q6Oh599NHjHut0Oltd8a29\nHdrY4p3URr5B7eT9zGwjp9tgU7mD1XuaWLWnmYJqZ6v9kQFWhnX3Z1hcAEO6+hPif/AXn9Pp/OHd\neTXDMKiqqqKgoICdO3dSUFBAQUEBcXFxPPjgg55jXnzxRerr6z3nBQcHk5GRwdixYzn77LPVp7yY\n2sb7tWcb+fmd/F8FvS7AP/bYY7z99tu89NJLJ7QKjc1mO+Y7lLagd9HeT23kG9RO3s/MNqpocLWM\nsu9q5Ps9jdQ7Wo+y94vxZ2T3QEbEB5IUZcfqYyPMDQ0NVFZWtpqDfvvtt7Nx48bD/toMLRdPOrQN\nLr/8cvz8/OjZsye9e/dmwIABWjXGi+n/O+9n5gj8yfKqAD99+nSefvppnnnmGe69994TOictLa3d\nA3xubi4OhwO73c6QIUPa9bHlxKiNfIPayfu1Zxu53AbfF1ayIK+MBZtKWb9rX6v90SH+nJcSy/mp\nsYzrF0tUiH+b1nOmbN26lby8PPLz81t9FRUVkZ6eTm5urufYpqYmT3hPTEwkJSXF8zVw4MBWbfCv\nf/0LUD/yFWon72dWGx1pivjxeE2Anz59Ok888QRPPPEEjzzyiNnliIhIOyivbWJRfhkLNpXx9eYy\nqupb/9l6SM8Izk/tyvmpsaT3jPTKiyoZhsGePXs8wby2tpYHHnjAs//SSy9lw4YNRzy3srKy1fz0\nv//974SEhNCnTx+Cg4PbpX4R8T1eEeCfeuopnnjiCX77298ybdo0s8sREZE24nYbrCmu9izzuKao\nikOXUggPtDEuJZbxqV0ZlxJLbFiAecUew8svv8w333zDpk2bPKH9gNDQUO6//35PKB86dCg2m63V\naPqBr5iYmFb3m5GR0a7PQ0R8k+kB/oUXXuDxxx9n8uTJTJkyhaVLl7bar//MRER8W1V9M19t3svC\nvFIW5ZdRXtfcav/A7uGM798S2ocmRJp6FdTm5ma2bdtGfn6+J5zn5+ezZ88e8vLyPKF83rx5ZGdn\ne86zWq307t2blJQUUlNTaWpqIjAwEIC3337blOciIh2X6QH+wH+A8+bNY968eYft98JVLkVE5Bgq\n65pZtr2CZdvLWbatgo179rUaZQ8NsDG2bxfG94/lvJSuxEUEtmt9breb4uJitmzZwvjx4z3bb731\nVmbOnHnUlc3Kyso81y65/vrrOffccz0j6cnJyQQEeOdfC0Sk4zE9wC9cuNDsEkRE5DTsrW1i2baD\ngX1TyeEfxkrpFsr41K6cn9qVEb2i2u0KqBs3bmTFihWekfRNmzaxefNmGhoaWmrfu9czjSUsLAyX\ny0VoaOhhU11SU1OJjIz03O8VV1zRLvWLiByJ6QFeRER8S+m+RpZur2DptnKWbSs/7MqnAH27hjIm\nKZoxyTGMSYqmW3jbjLI3NDSwZcuWVqu7/OUvfyE8PBxomav+17/+9bDzbDYbffr0aRXgH3roIR56\n6CHi4uJ00SMR8WoK8CIickx7611sqmhm9pY1LNtewfa9hwf2/nFhnsA+OimaLqFnbjqJy+XCYrF4\nlgx+9913+ec//0l+fj4FBQWHTbW8++67GTVqFACjRo1iwoQJh42o9+7d+7B1nrt3737GahYRaUsK\n8CIi4mEYBkWVDS2j69sr+DpvNyV1B+aEVwJgsbR88HRMUgxjkqMZ3Tv6tNdkNwyDvXv3tvrg6IGv\nLVu2sHTpUoYOHQrArl27mD9/vufciIgIUlNTPVNdDsxTB7jhhhu44YYbTqs2ERFvowAvItKJGYbB\njvJ6lu0P7Mu2lbOrurHVMVYL9ImyM35QAmOSohnZO5qIoFO7SmFdXR2bN28mPz+fcePGERcXB8Bf\n/vKXVmun/9CmTZs8AX7y5MlERkZ6RtO7dOmiKS8i0qkowIuIdCKGYbC1rJal2yo8gb20pqnVMTar\nhfSeEYxJjqGrUU3fSAvhwQEMGTLgpB5ry5YtZGdntxpVLy4u9ux/7733uPzyywFITk7GYrHQq1ev\nI36ANCEhwXPegAEDGDDg5GoREelIFOBFRDowt9sgv7TGs0rM8u0V7K1tvQ67v5+VoQmRjEmOZkxS\nDMN7RRLs3/Lr4cClxX/IMAx279592HSX++67j4kTJwKwZs0aHnzwwcPO7dKlC6mpqa2WXbzooouo\nr6/3rJ0uIiJHpwAvItKBVNY1k1tURW5hNblFVawuqKSyvnUAD7BZGZ4Y5QnswxIjCbT7HfH+ampq\ncDqdREVFAbB06VLuueeew64+esDYsWM9AX7w4MFcccUVnvnpKSkp9OvXj+jo6MPO0xrqIiInTgFe\nRMRHNTS7WL+rmu8Lq8gtqia3sIqCivrDjguy+zGiV5RnlZghCREE2A4GdofDwcaN+YddfTQ/P5+S\nkhLuv/9+brrpJgACAwNZtWoVAH5+fiQlJbWa7nLeeed57rdfv3785z//adsXQUSkE1KAFxHxAU6X\nm82lteQWVpFbVMX3hdXkl9Tgch9+terkLiEMSYhkSM8IhiREMqhHBH4WKCoqIj9/Ff/8NJ+0tDRP\n2F6zZg0jR4486mOXlZV5fu7fvz8ff/wxqampJCUl4e9/eqvPiIjIyVOAFxHxMgeWcvy+sMoT2NcV\n76PB4Trs2K5hAQxJiGRoQiRDekYyuGcEEUF2ysvL+eMf/8jcQ64+2th4cHWZe+65xxPg+/XrR3h4\n+GEfHk1JSaGxsbHV9JbAwEAuvfTStn8RRETkqBTgRURMVl7bxJqi6v1z11umw1TUNR92XGiAjfSe\nEQyIDaCLqxJ73R5Ki3aQ/2U+b+fnU3LBBYx98kkALBYLzz77bKvz7XY7ffr0ITU11bMkI0B4eDhV\nVVVHXIrxaB9iFRER8yjAi4i0o/pmJ+t37SO3sGr/3PUqCisaDjvOZnHTO6CBlK5BTBwzjCEJEcQG\nGKSnD2Z2QcER7zsyMtLzc3R0NL/4xS9ISEjwjKb36tULm+3I/+1rHXUREd+hAC8i0kacLjf5JbWe\nkfXvC6vIL6nh0GnrhuGmqWgDUY69hDSWYVTtonJ3AYUF29na3ExQZiaX3529/1iDmpoaoCWsp6am\ntlrhZdCgQa0e//nnn2+35yoiIu1HAV5E5AyobnCwaU8NeXv2sXH3ge/7aHS4cTfV46jchbOiGEfl\nLiLCw5h89c9I79nyQdOLh19LyRGWZPzh0ooWi4UFCxbQo0cPYmJiNGouItJJKcCLiJwEp8vNjvI6\nT0jP211D3p4aiirrsFisnuMqvvgHzaXbcFUU46ytaHUfPQYO5JXr/+a5PXHiRBobG1tdeTQlJYWE\nhASsVmurc4cMGdK2T1BERLyeAryIyFGU1zaRt6eGjbv37f9ezcYtO6krK2wZTa8oxlm5C0dFMVb/\nIEbe/yr948Lo3z2Mv324me0FGzz31bVr16NOdfnoo4/a+6mJiIgPU4AXkU6vyeliS2ktebtr2FRS\nQ+7WYtZsyKO8rIzgvqM9x+3+1wM07958xPsIDAzk64fO94yYJz75OA6Hw3P10QNXMhURETldCvAi\n0mkYhsGefY3k7a5h4/7pL4u/WsCOvLU0lRfhrNiFo7IYd301ABZ7IOOe+YQB3cPpHxfOnJX9WFq6\njeTk5MPWS09NTW01J/2qq64y62mKiEgHpwAvIh1SfbOTjbuq+fb7PJbnrmf9xk0UbN9KfWUJsVMf\n9YTt0s//Q8OWZYed36VrHAP6p/DfO0YQHh4OwHXD/kVYWJiuPioiIqZSgBcRn2UYBmU1TazOL6Dc\nFci2slq27a1jwbuvULzycxwVu8B1+EWIeoc4GNKvN/27h7HRdinF+b0ZkjbA8+HRfv36ERYWdth5\nMTEx7fG0REREjkkBXkS8XqPDRV7hXhavWsuqtRvJy8ujYMdWyot30lRehLuxlp7/Nwu/oJaR8oq9\ne3GU7QTA6mcjJj6R3sl9GTSwP6OGpHHt1ROIiIhoufPzHzHraYmIiJwSBXgR8QqGYbC7so7Fqzey\nfM161q3PI3r4RRTWQlFlPXvnv0LNyuyjnp8e0cyYUUkkx4bgPvcB/BtvYfSwQSQmJh716qMiIiK+\nSL/VRKRdNTpc7CivY2tpHe++/w0rv11E6a5C9pUW0Vy5G9wuz7Fxjm4EdE8BIDQ2gcbgcLr06E1C\nUh/6p6YyPH0gZw8bRNqAVIKDgw95lF7t/KxERETajwK8iJxxhmFQsq+JbWW1bN1bx9bSlrnp28pq\nKa5qwDBajtu3IpfKL+e0Otdq8yciLpHuiUn89IL+TDhnNMmxIUQHXYTNNsOEZyMiIuJdFOBF5JQ4\nXG52VTVQUFFPQUU9hRUNFO7/eVtZLXXNrqOeGx5oIzk2FJdlGHtsl9M3OYmLJpzLOSMG06d3r8Ou\nPioiIiIHKcCLyBEZhsHe2mYKKuopqqynoLyewsqDYX13dQNu4+jn+1ktJEYHk9wlhOTYEJJjQ+kT\nG0pybAgxIf5YLBZyc0NxXD4Ku93OkCFD2u/JiYiI+DAFeJFOrL7ZSWHFoaPo+78qW0J6g+Poo+gA\ngXYrCVHBJEQHkxgdTM+ooJbQHhtCYnQI/jaNpIuIiJxpCvAiHZjT5WZ3daMnlB8YPT8wqr63tvmY\n51ssEB8R5AnmB4J6QnQQCdHBxIYGtLr6qIiIiLQ9BXgRH9bsdFOyr5Hd1Y3srm6gqLKhZbrL/qC+\nq6oB57HmuQARQXYSD4ygR+8P6lEtt+MjgzSKLiIi4mUU4EW8lMN1aDhvZHdVgyeoH9i2t7bJs6LL\n0fj7WekZHeQJ5Qn7Q3rP/VNfIoLs7fOERERE5IxQgBcxgdPlpqSmiT3VDeyqOiSUVzWye19LWC87\ngXAO4G+z0j0ikO4RgcRHHhrUW753DQvAatU0FxERkY5CAV7kDHO63JTVNnmC+Z7qRnZVNbJn38Gw\nXlbTdMwVXA7w97MSFxFIXEQg8RGBdI8M2h/WgzyhPXr/ii4iIiLSOSjAi5wgl9ugvK6J0n1NlNU2\nUXbge00TpTWN7Nk/raW0pgnXCaRzu5+FbuGBxEcEERcRSPfIQLqHt4T0A9tiQvw1ei4iIiKtKMBL\np1ff7PSE8tJ9TZTVtITwsppDttU2UV57YqPm0LIGelx4ywj5wVHzwIOj55GBdAnR1BYRERE5eQrw\n0iG5DYOqRhe1tQaVm0r3j5IfDOVlnsDeeMwrhv6QxQIxIQF0DQsgdv/XgZ/jwvdPdYkMoktoAH4K\n5yIiItIGFODFZzQ5XVTUNVNe20xFXTOV9Qd/PjCN5cCI+d5Wo+Wlx73vILsfXcMDiA0NOOR7ILGh\nrYN6dIg/Nj8tqygiIiLmUYAXUxiGQV2zi4raZsrrmlqF8Yq6ZsrrDv584Ku2yXlSj2EBwgOsxEeH\ntoTwVuH8kJAeFkCIv58+CCoiIiI+QQFezgi326C6wUH5D0bGK+qajhjGy+uaaXa6T/pxbFYLUSH+\nxIT4E33IlyeUhwXQNSyQ0oKthPi5CAzwZ8iQIW3wjEVERETMoQAvrRiGQU2Tk+p6B9UNDqrqHVQ1\nNFPlud18yPaW2y3TWRwntPLKDwXarcSEtExN+WEwP/BzTKg/UcH+xIQEEB5kO6GR8ty9fjgcJ/8G\nQURERMTbKcB3UE6XuyVoN7QE7+pDgvhhYdyzv2X7qQTxA8ICbESHtg7g0SEBh42YHwjmwf76Jygi\nIiJyMpSevJRhGDQ4XNQ0OqlpdFDd0PK95baTfY0O9rUK3wdHxqvrHdSc5HzxHwq0W4kIshMZ5E9E\nsJ3IIDuRwXYig/2JCLK37Atu2X/oKLm/TR/wFBEREWlLCvBtpHF/+N7nCd0t3/c1HLy975Aw/sNw\nXtvoxHkaI+EHhAXaPEE7MthOeNAhYfyQcN4SyFuOiQiyE2j3OwOvgoiIiIicaQrwp2BbRTNfbKul\nwQn2NSupaTokfO8P6M2uMzP/2mqB8CA7YYE2wgJavh+4HR54IIjvHxk/9OcgO+GBNi15KCIiItLB\nKMCfgt21TnI21++/VX/U4ywWCA1oCdoHAndYoG3/V+swHnbIMeGH3A7W8oYiIiIicggF+FOQGGHn\nx6nBhAXYSElKICzQTnjQwdB94Huovw2rrsYpIiIiImeQAvwpSIiwc93gMOx2O0OG9Da7HBERERHp\nRDRBWkRERETEhyjAi4iIiIj4EAV4EREREREfogAvIiIiIuJDFOBFRERERHyIAryIiIiIiA/xqWUk\nDcM4bJvbfWaueHoyrFYrfn5+WK1WUx5fjk9t5BvUTt5PbeT91Ea+Qe3k/cxqoyM91pEy76EsxvGO\n8CJOp5O6ujqzyxARERERaTMhISHYbEcfZ9cUGhERERERH6IALyIiIiLiQxTgRURERER8iE/NgXe7\n3YdN9LdYLFgsFpMqEhERERE5dYZhHPahVavVitV69HF2nwrwIiIiIiKdnabQiIiIiIj4EAX446ip\nqeGhhx7iwgsvJDY2FovFwhNPPHFS91FaWspNN91Ely5dCA4O5qyzzuKLL75om4I7sdraWu6//37i\n4+MJDAxk6NChvPPOOyd07syZMz3TsX74tWfPnjauvGM5nXZQX2k/p9pO6ivt53R//6g/tY/TaSf1\np7b35Zdfcsstt9C/f39CQkLo0aMHP/rRj1i5cuUJne+t/cinLuRkhvLycl599VWGDBnCj3/8Y157\n7bWTOr+pqYmJEydSVVXFX/7yF7p27cqMGTOYPHkyn3/+Oeedd14bVd75XHbZZaxYsYLnnnuOlJQU\nZs2axTXXXIPb7ebaa689oft444036N+/f6ttMTExbVFuh3Wq7aC+0r5Ot7+or7S90/n9o/7Ufk43\nJ4D6U1v629/+Rnl5Offddx8DBw6krKyMF154gYyMDD777DMmTJhw1HO9uh8Zckxut9twu92GYRhG\nWVmZARjTpk074fNnzJhhAMa3337r2eZwOIyBAwcao0ePPtPldlpz5841AGPWrFmttk+aNMmIj483\nnE7nMc9/4403DMBYsWJFW5bZ4Z1OO6ivtJ/TaSf1lfZzOr9/1J/az+m0k/pT2yspKTlsW01NjdGt\nWzdj4sSJxzzXm/uRptAcx+mucvPhhx+SmprKWWed5dlms9m47rrrWL58OcXFxWeizE7vww8/JDQ0\nlCuuuKLV9ptvvpldu3axbNkykyrrXE6nHdRX2o/6i284nd8/6k/tR6vhebeuXbseti00NJSBAwdS\nWFh4zHO9uR8pwLexdevWkZ6eftj2A9vWr1/f3iV1SOvWrWPAgAGHXXb4wOu8bt26E7qfzMxM/Pz8\niI6O5rLLLjvh86TF6bSD+kr7ORP9RX3Fu6k/+Rb1p/ZVXV3NqlWrSEtLO+Zx3tyPNAe+jZWXlxMd\nHX3Y9gPbysvL27ukDqm8vJzk5OTDtp/o6xwXF8ejjz5KRkYG4eHhrF27lueee46MjAwWL17MkCFD\n2qTujuZ02kF9pf2cTjupr/gG9SffoP5kjnvuuYe6ujoeffTRYx7nzf2oUwX4hQsXMn78+BM6dvXq\n1QwdOvSMPO6x/rSmP7sd7lTb6XRe58mTJzN58mTP7XHjxjFlyhQGDx7M448/zscff3xC9cjptYP6\nSvs51ddafcV3qD95P/Wn9vfYY4/x9ttv89JLLzFixIjjHu+t/ahTBfjU1FT+8Y9/nNCxiYmJZ+Qx\nY2JijvgOraKiAuCI7+w6u1Npp7Z4nXv37s3YsWNZunTpSZ/bWZ1OO6ivtJ8z/Vqrr3gf9Sffpf7U\ndqZPn87TTz/NM888w7333nvc4725H3WqAN+9e3duvfXWdn3MwYMHs3bt2sO2H9g2aNCgdq3HF5xK\nOw0ePJjZs2fjdDpbzes93dfZMIxjXspYWjuddlBfaT9t0V/UV7yL+pNvU38686ZPn84TTzzBE088\nwSOPPHJC53hzP9K/jjY2depU8vLyWq3q4HQ6eeuttxgzZgzx8fEmVtdxTJ06ldraWt5///1W2998\n803i4+MZM2bMSd/n9u3bWbx4MRkZGWeqzA7vdNpBfaX9nOn+or7ifdSffJf605n31FNP8cQTT/Db\n3/6WadOmnfB5Xt2PTF3E0kd88sknxpw5c4zXX3/dAIwrrrjCmDNnjjFnzhyjrq7Oc9wtt9xi+Pn5\nGTt27PBsa2xsNNLS0pq4vz0AAAM9SURBVIyEhATj7bffNubPn29MnTrVsNlsxsKFC814Oh3WpEmT\njKioKOPVV181vvzyS+O2224zAOOtt95qddyR2mnixInG9OnTjQ8//ND44osvjD//+c9GfHy8ERYW\nZqxdu7a9n4pPO5F2UF8x36m2k/pK+zqR3z/qT+Y71XZSf2p7zz//vAEYkydPNpYsWfL/27djV2rb\nOIDjvyeSRUkpLBYWSimiDMf/oBiIMkmSTVn9ATLYjjIoZVBMymKWMphMSoZDUZJiOK5nevWKp/T0\nPu7nes/nU/dydw+/u6ur8+3uOh+uf+S2jwT8F3R2dqaI+PS6vLx8e25mZubDvZRSqlQqaXp6OrW0\ntKTGxsY0PDycjo6OvvclasDj42NaXFxMbW1tqaGhIfX19aWdnZ0Pz322TktLS6mnpyc1NTWl+vr6\n1NHRkaamptLFxcU3vsH/w1fWwV4p3u+uk73yvb7y+2M/Fe9318l++vNKpdIv1+bf37Fz20c/Ukrp\nD37gBwAA/kPOwAMAQEYEPAAAZETAAwBARgQ8AABkRMADAEBGBDwAAGREwAMAQEYEPAAAZETAAwBA\nRgQ8AABkRMAD8M7z83P09/dHV1dXPDw8vN2vVCrR1tYWo6OjUa1WC5wQoLYJeADeaWxsjN3d3bi9\nvY3Z2dmIiHh9fY3JyclIKcXOzk7U1dUVPCVA7aovegAA/j7d3d1RLpdjYmIi1tfX4/7+Po6Pj+Pw\n8DDa29uLHg+gpv1IKaWihwDg7zQ/Px/lcjmq1WqsrKzE6upq0SMB1DwBD8AvnZ6exuDgYDQ0NMT1\n9XW0trYWPRJAzRPwAHzq6ekpBgYG4vX1NW5ubqJUKsX+/n7RYwHUPH9iBeBTc3NzcXV1FXt7e7G5\nuRkHBwextrZW9FgANU/AA/BBuVyO7e3t2NjYiN7e3hgbG4uFhYVYXl6Ok5OToscDqGmO0ADwzvn5\neQwNDcX4+HhsbW293X95eYmRkZG4u7uLs7OzaG5uLm5IgBom4AEAICOO0AAAQEYEPAAAZETAAwBA\nRgQ8AABkRMADAEBGBDwAAGREwAMAQEYEPAAAZETAAwBARgQ8AABkRMADAEBGBDwAAGTkJ+QYJSvF\nwsT8AAAAAElFTkSuQmCC\n",
      "text/plain": [
       "<matplotlib.figure.Figure at 0x15d2729bc18>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "import kf_book.book_plots as book_plots\n",
    "\n",
    "t = np.linspace(-1, 2, 20)\n",
    "plt.plot(t, np.exp(t))\n",
    "t = np.linspace(0, 1, 2)\n",
    "plt.plot([1, 2, 4], ls='--', c='k')\n",
    "book_plots.set_labels(x='x', y='y');"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Here we see the next estimate for y is 4. The errors are getting large quickly, and you might be unimpressed. But 1 is a very large step size. Let's put this algorithm in code, and verify that it works by using a small step size."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def euler(t, tmax, y, dx, step=1.):\n",
    "    ys = []\n",
    "    while t < tmax:\n",
    "        y = y + step*dx(t, y)\n",
    "        ys.append(y)\n",
    "        t +=step        \n",
    "    return ys"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "2.0\n",
      "4.0\n"
     ]
    }
   ],
   "source": [
    "def dx(t, y): return y\n",
    "\n",
    "print(euler(0, 1, 1, dx, step=1.)[-1])\n",
    "print(euler(0, 2, 1, dx, step=1.)[-1])"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "This looks correct. So now let's plot the result of a much smaller step size."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAuYAAAEyCAYAAAC23hX3AAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMS4wLCBo\ndHRwOi8vbWF0cGxvdGxpYi5vcmcvpW3flQAAIABJREFUeJzs3Xd4VFX6B/DvTGbSGylAekiAAAlJ\nIPQiCdI7AQsqKtYF8ecqKqgrxV5w17J2RVgLAkqRqiBNBAQEQgiGlkBI7yE9U87vj5BITBgzyczc\nKd/P8/CAc+/Mfefd7Dtvzpx7jkwIIUBERERERJKSSx0AERERERGxMSciIiIiMgtszImIiIiIzAAb\ncyIiIiIiM8DGnIiIiIjIDLAxJyIiIiIyA2zMiYiIiIjMABtzIiIiIiIzwMaciIiIiMgMsDEnsnB7\n9+6FTCbD0qVLpQ6FiIiI2oGNORlEamoqHn30UURFRcHDwwP29vbw9/fHxIkT8fnnn6OmpkbqEE0q\nPj4eMplM6jCIiCyGTCb72z8nT56UOswWcYCEDEUhdQBk+V544QUsW7YMWq0WgwYNwj333AM3Nzfk\n5eVh//79eOCBB/Dhhx/i2LFjUodKRERmbsmSJTc81rlzZxNGQmR6bMypXV5++WUsWbIEQUFBWLdu\nHQYOHNjsnB07duCNN96QIDoiIrI0HHUmW8apLNRmly5dwrJly6BUKrFt27YWm3IAGDduHLZv397k\nsTVr1mD48OHw8PCAk5MToqKi8Morr7Q45SU0NBShoaGoqKjA448/jqCgIDg5OSE2NhYbN24EAKhU\nKrzwwgvo1q0bHB0dER4ejvfff7/Za13/deOhQ4cwatQoeHh4wM3NDWPHjm1xVP/ee++FTCbDpUuX\ndL5eQ05kMhn27dsHoOlXs/Hx8U2em5mZifnz5yMsLAwODg7w9vbGlClTcPTo0RbzmJeXh/vvvx+d\nOnVqfP8rV65s8VwiImuWnp4OT09PeHl54fLly02OVVZWomfPnlAoFPjll18aHz937hwWLVqEfv36\nwdfXFw4ODggJCcGDDz6IjIyMG17rp59+wuTJk9GxY0c4ODggKCgIU6dOxa5duwDUf0YkJCQAAJYt\nW9ak7u/du9fwb56sGkfMqc2++OILqFQq3H777YiKitJ5roODQ+O/Fy5ciDfeeAO+vr6488474eLi\ngm3btuG5557Djh07sGvXLtjb2zd5vkqlwujRo1FcXIypU6eirq4Oq1evxowZM/DTTz/hnXfewfHj\nxzF+/Hg4ODjgu+++w/z58+Hj44PbbrutWTy//fYbXn31VYwaNQqPPPIILly4gPXr12P//v346aef\nMHz48DblxNPTE0uWLMHKlStx+fLlJl/JhoaGNv77+PHjGDNmDIqLizF27FgkJiaisLAQGzduxLBh\nw7BhwwZMmDCh8fyioiIMGTIEaWlpGDZsGIYNG4acnBzMnTsXo0ePblOsRESWqkuXLvjss89wyy23\nYNasWdi/fz8UivqWZt68eUhNTcWLL77YpJavX78eH330ERISEjBkyBDY29vj9OnT+Pzzz/HDDz/g\n999/R2BgYJPrLFmyBC+88AJcXV0xbdo0BAUFITs7G7/++iu++uorjBo1CtOmTQMArFq1CiNGjGgy\nCHN93SdqFUHURgkJCQKA+PTTT1v9nAMHDggAIiQkROTl5TU+rlKpxIQJEwQA8dJLLzV5TkhIiAAg\nJk2aJGpqahof379/vwAgPDw8RL9+/URJSUnjsfT0dKFUKkVsbGyT19qzZ48AIACI9957r8mxjRs3\nCgCia9euQqPRND5+zz33CAAiPT292ftpeL0lS5Y0eXzEiBHiRv/3UqlUIjw8XDg6OopffvmlybGs\nrCzh7+8vOnXqJKqrqxsff/DBBwUA8c9//rPJ+UePHhUKhaLFGIiILElDbV6yZEmLf1599dVmz5k7\nd64AIBYtWiSEEGLVqlUCgBg5cmSTOi6EEJmZmU0+Qxps27ZNyOVy8fDDDzd5/McffxQARFhYmMjM\nzGxyTKvViitXrjT+940+C4j0xcac2qxnz54CgNi+fXurn3P//fffsJlPTU0VcrlcdOnSpcnjDY35\nxYsXmz2nS5cuAoD4+eefmx1LSEgQdnZ2Qq1WNz7WUDz/2nw3aGio9+7d2/iYoRvzhl8AnnrqqRaP\nv/322wKA2LJlixBCiLq6OuHs7Czc3NxEaWlps/Mb4uMHAhFZsobG/EZ/PDw8mj2nurpaxMTECJlM\nJt577z3h4uIiOnbsKLKzs/W6dlRUVLPPnkmTJgkAYv369X/7fDbmZCicykJtJoQAAL2WBTxx4gQA\nNM7Hu15ERAQCAwORnp6O0tJSeHp6Nh7z9PREWFhYs+f4+/sjPT0dcXFxLR7TaDTIzc1FQEBAk2PD\nhw+HXN78Fov4+Hjs27cPJ06cwIgRI1r9vvRx6NAhAPXz0Vu6yen8+fMA6pegnDhxIlJTU1FVVdU4\nJ7+lmFetWmWUWImITK3hs6U1HB0dsWbNGvTr1w+PPvooZDIZvv/+e/j5+bX4ul9//TVWrlyJpKQk\nlJSUQKPRNB7/6xTKw4cPQyaTYdy4cW1/M0R6YmNObebv74/U1FRkZma2+jllZWUAbrzklZ+fHzIy\nMlBWVtakMW+pIQXQOKewpeMNx1QqVbNjnTp1avH1GuJqiNMYioqKAADr1q3TeV5FRUWTWP4uZiIi\nW9S9e3dER0fj4MGD6NWr1w3vu3niiSfw9ttvw8/PD2PHjkVAQACcnJwAoPG+oOuVlpaiQ4cOjecQ\nmQIbc2qzYcOGYffu3fj5559x//33t+o5DQ10bm4uwsPDmx3Pyclpcp6x5OXltfh4bm5us+s3jKyr\n1epm55eWlup97YbX3rRpE6ZMmdLq8/8uZiIiW/Taa6/h4MGD8PHxQUpKCl577TU8++yzTc7Jz8/H\nu+++i6ioKBw8eBBubm5Njq9evbrZ63p6eqKoqAjV1dVszslkuFwitdmcOXOgVCrx/fff48yZMzrP\nra2tBQD06dMHAFpcQurChQvIzMxEly5dmoyWG8OBAweg1WqbPd4QV0OcANChQwcAwJUrV5qdf6NN\nk+zs7ACgydekDQYNGgQATZbx0qVHjx5wdnbGyZMnWxzJ53JcRGSrDh48iMWLFyMiIgKnT59GREQE\nlixZgl9//bXJeWlpadBqtRgzZkyzpjwzMxNpaWnNXnvQoEEQQuCnn3762zh01XwifbAxpzYLDQ3F\n0qVLUVdXh4kTJ96wSd2xYwfGjx8PALjvvvsAAC+99BIKCgoaz9FoNHjyySeh1WpbPfreHufPn8cH\nH3zQ5LFNmzZh37596Nq1a5MlthrWZ//000+bnJ+cnIx33nmnxdf39vYG0HIzP3Xq1MZ11rdt29bi\n8w8dOoSqqioAgFKpxJ133ony8vJmc9KPHTuGr7/+Wsc7JSKyTiUlJZg1axbs7OywZs0adOrUCWvW\nrIGdnR1mzZqFkpKSxnMbli08cOBAk+a5oqICDz74YIvfiD766KMAgAULFjR+m3u9rKysxn/rqvlE\n+uBUFmqXZ599Fmq1GsuWLUP//v0xZMgQ9OvXD66ursjLy8P+/ftx/vx59OvXDwAwZMgQPP3003jj\njTcQFRWFmTNnwsXFBdu3b8fp06cxbNgwPPXUU0aPe9y4cViwYAG2b9+OmJiYxnXMHR0d8fnnnze5\nMXTq1KmIiIjA6tWrkZmZiYEDByIjIwObNm3C1KlTsXbt2mavf/PNN2PdunVITEzE+PHj4eTkhJCQ\nEMyePRtKpRLr16/H2LFjMXHiRAwZMgSxsbFwdnbGlStXcPToUaSlpSEnJwfOzs4AgFdeeQU///wz\n3n77bRw7dqxxHfM1a9ZgwoQJ+OGHH4yeMyIiU9C18+e0adMQGxsLoH6gJyMjA++//z5iYmIAADEx\nMXjrrbcwf/583HfffdiwYQOA+ntxbr/9dnz77beIjY3FmDFjUFZWhp07d8LR0RGxsbE4efJkk2uN\nGTMGzz//PF588UVEREQ0rmOem5uLX3/9FYMGDWrc5C0iIgIBAQH49ttvoVQqERwcDJlMhtmzZyMk\nJMTwSSLrJe2iMGQtzpw5I+bPny8iIyOFm5ubUCqVonPnzmLcuHHis88+a7Z27OrVq8XQoUOFq6ur\ncHBwEL169RIvvfRSk7W7G4SEhIiQkJAWr6trWcKWljm8fkmrgwcPiptvvlm4ubkJV1dXMXr0aHHk\nyJEWXyszM1PcdtttokOHDsLR0VH069dPfP/99zdcIkutVotnnnlGdOnSpXGd8REjRjQ5Jy8vTyxc\nuFBERkYKJycn4eLiIrp27SpmzJghvvzyS6FSqZqcn5OTI+bMmSN8fHyEo6OjiImJEV988QWX6SIi\nq4C/WS4RgPjiiy+EEEK8++67AoCYPn16i681ffp0AUC8++67jY9VVlaKZ599VoSHhwsHBwcRGBgo\n5s2bJwoLC3V+lmzdulWMHTtWdOjQQdjb24vAwEAxbdq0Zsv0HjlyRIwcOVK4u7sLmUwmAIg9e/YY\nJDdkO2RC6LEuEZGF27t3LxISErBkyRKdozJEREREpsY55kREREREZoCNORERERGRGWBjTkRERERk\nBjjHnIiIiIjIDJjFcolarbbZZi8ymQwymUyiiIiIjEMIgb+Oh8jl8iZLdFoz1nsishVtqfdm05hX\nVlZKHQYRkSRcXFxsqjFnvSciW/V39d42PgmIiIiIiMwcG3MiIiIiIjPAxpyIiIiIyAyYxRzzlm76\n0WfOZUpKCtRqNRQKBSIjIw0dnsVjfnRjfnRjfnTTNz8tzbG2pRsfWe+Ni/nRjfnRjfnRzRT13mwb\nc31WKdBqtdBoNDa1soE+mB/dmB/dmB/dDJEfW2/MWe8Nh/nRjfnRjfnRzRT1nlknIiIiIjIDbMyJ\niIiIiMwAG3MiIiIiIjPAxpyIiIiIyAywMSciIiIiMgNszImIiIiIzAAbcyKidqhVC6lDICIiI6tR\naaDRGr/eszEnImqj7NJq3LU+G28cLDVJwSYiIml8sj8ND/6Qi5/Tq416HTbmRERttON0Luo0AuV1\nWtjJbWeTICIiWyKEwMaTWSiq1sDOyJ0zG3MiojbafjoHADAowFHiSIiIyFhSsq8iraAS9nbAQH8H\no16LjTkRURvkXa3BscslAIBBAcYt1EREJJ2NJ7IAAP0DnOCkNG7rzMaciKgNfkzJhRBAhI89vJ3t\npA6HiIiMQKMV+CEpGwAwIsTZ6NdjY05E1AbbkuunsQwNcpI4EiIiMpbDaUXIL6+Fh5MSff2MP22R\njTkRkZ4KymtxJL0YADCYjTkRkdXadLJ+GsuE3n5Q2hn/Jn825kREevrpTC60AogJ9EBHF4XU4RAR\nkRHUqDTYnpwLAJgW62+Sa7IxJyLSU0OhHt/bT+JIiIjIWPak5qO8Vg1/D0f0D/UyyTXZmBMR6aG4\nsg6H0ooAAOOjOkscDRERGcumk/U3fU6JDYDcRHtVsDEnItLDzjO50GgFIv3dEeLtInU4RERkBGXV\nKuxOzQcATDXRNBaAjTkRkV62Nkxj4Wg5EZHV2nE6B3UaLSI6uaGnn7vJrsvGnIiolYoqavHrhUIA\nwMRo042gEBGRaW08UT+NZWof09Z6vRrzvXv3QiaTtfjn8OHDTc7dtWsXBg8eDGdnZ/j4+ODee+9F\nfn6+QYMnIjKlbck50GgFegd4oIuPdU9jYb0nIluVW1aDw+n19xJNiTFtY96mdb5eeeUVJCQkNHks\nKiqq8d/79u3D+PHjMXHiRGzatAn5+flYuHAhbr75Zhw7dgwODty+mogsz+ak+k2FTF2opcR6T0S2\nZnNSNoQA+od2QGAH4+/2eb02NebdunXDoEGDbnj8qaeeQvfu3fHdd99Boai/RJcuXTB06FCsWLEC\nc+fObVu0REQSyS6txpFL9ZsKTYqxnWUSWe+JyNZsvLap0NTYAJNf2+BzzLOysnD06FHMnj27sUgD\nwJAhQ9C9e3ds2LDB0JckIjK6rafqR8sHhHrBz4O7fQKs90RkfS7klyMl+yoUchkmSLBXRZsa80ce\neQQKhQLu7u4YO3YsDhw40Hjs9OnTAIDo6Ohmz4uOjm48TkRkSX5Iqr8RaLIJl80yB6z3RGRLGtYu\nH9HdF14u9ia/vl5TWTw8PPDYY48hPj4e3t7euHDhAt58803Ex8dj69atGDt2LIqK6ifLe3k13yHJ\ny8ur8fjfSUlJgVarbdW5KpWq8e+kpKRWvhvbwfzoxvzoxvwA2eUqJGeVQS4DQmRFSEoqbTymb37k\ncjmCg4ONFquhsN5bJuZHN+ZHN1vPjxAC647UL4kb66VulgNT1Hu9GvM+ffqgT58+jf89fPhwTJ8+\nHb1798bTTz+NsWPHNh6TyVreIelGj/+VWq2GRqPRJzwAfyaNWsb86Mb86Gar+dmbVgEAiO5oD2c7\nLVSqlpvI1uTHzs7OoLEZC+u95WN+dGN+dLPF/JwrqkNuhQaOdjL07ajQmQNj1fs23fx5PU9PT0ya\nNAkfffQRqqur4e3tDQAtjpQUFxe3OLLSYmAKBeTy1s20uT45SqWyVc+xJcyPbsyPbraeHyEEfs2s\nBQCMCHVplgN989PaumaOWO/NH/OjG/Ojm63n59fM+kGYQUFOcHVqPo3FFPW+3Y05UP/BBdSPjjQs\no5WcnIwJEyY0OS85ObnJMlu6REZGtvoNJSUlQaVSQalUIiYmRo/IbQPzoxvzo5ut5+ePnKvIvJoF\ne4Uc94/vD3fHpsVY3/xotVqUl5cbK1yjY703b8yPbsyPbracH5VGi8M//AwAuDchEjERHZudY4p6\n3+6hm5KSEmzZsgWxsbFwdHREQEAABgwYgK+++qrJV5OHDx/G2bNnkZiY2N5LEhGZTMNNnwkRvs2a\nclvDek9E1urAhUIUVdbB28Uew7r6SBaHXiPmd9xxB4KDg9GvXz/4+Pjg/PnzeOutt5CXl4eVK1c2\nnvf6669j9OjRuOWWWzBv3jzk5+dj0aJFiIqKwpw5cwz9HoiIjEKrFfjh2h36U2JMv56tlFjviciW\nNNT6SdF+UNhJN+VQr8Y8Ojoaa9aswUcffYSKigp4eXlh2LBh+PLLL9G/f//G8+Lj47Ft2zYsXrwY\nkydPhrOzMyZNmoQ333yTu8ARkcU4cqkYWaXVcHNU4Oaezb/WtGas90RkK6rq1PgxpX41lql9pB2E\n0asxX7RoERYtWtSqc0ePHo3Ro0e3KSgiInOw/ngmAGBibz84Ki1jNRVDYb0nIlux80wequo0CPZy\nRp8gT0ljsdzlAYiIjKi6ToNtyfUjKIl9AyWOhoiIjKVhGsvUWP9WL/NqLGzMiYha8NOZXFTUqhHk\n5YR+IR2kDoeIiIyguLIO+84VAACmxkp/LxEbcyKiFqw/ngUAmN4nEHK5tCMoRERkHFuTc6DWCkQF\nuKNrR1epw2FjTkT0V/lXa/DL+foRlESJbwQiIiLj2XSifhBmmhmMlgNszImImtl0MhtaAcSFdECo\nj4vU4RARkRFcKa7CscslkMmASdH+UocDgI05EVEz319bjSWxr3mMoBARkeE1bCA3OMwbnT0cJY6m\nHhtzIqLrnMm+itTcctjbyTGpt3mMoBARkWEJIbDppHlNYwHYmBMRNdGwdvmoXh3h4ayUOBoiIjKG\n1NxynMurgL2dHGOjOksdTiM25kRE16g0Wmy8tp7t9D5cu5yIyFptvDZaPrJHR3g4mc8gDBtzIqJr\ndqfmo7CiFj6uDoiP8JU6HCIiMgKtVmDztUGYaX3Ma8oiG3MiomvWHr0CAJjRNwBKO5ZHIiJrdPRS\nMbLLauDmqEB8REepw2mCnzxERAByy2qw52w+AOCWfkESR0NERMbSMGVxfFRnOCrtJI6mKTbmRESo\nXyJRK4D+oR3MYvc3IiIyvDq1FtuScwCY12osDdiYE5HN02oF1h6rn8ZyK0fLiYis1t6z+SirVqGj\nmwMGhnlLHU4zbMyJyOb9ll6My0VVcHVQYGK0n9ThEBGRkWy6tqnQlBh/2MllEkfTHBtzIrJ5a45m\nAAAmx/jD2V4hcTRERGQM5TUq7DqTBwCY1sf8prEAbMyJyMaVVamw/XQuAOC2/pzGQkRkrbafzkWt\nWotwXxdE+rtLHU6L2JgTkU3blJSFWrUWEZ3cEBPoIXU4RERkBEIIrDp4CQAwIy4QMpn5TWMB2JgT\nkY1bc23t8lv7B5ltoSYiovY5kl6MlOyrcFTKMat/sNTh3BAbcyKyWUlXSpGSfRX2dnJMN9P5hkRE\n1H4rfk0HACT2DUQHF3uJo7kxNuZEZLO+PHwZADChd2d4mXGhJiKitssoqsJP1276nDMkVNpg/gYb\ncyKySaVVddh8bdms2YNDJI6GiIiMZdWhSxACuKm7L7p1cpM6HJ3YmBORTfru90zUqrXo0dkNfYM7\nSB0OEREZQXmNqvFeovuGhkobTCuwMScimyOEwDe/1a9dftegEN70SURkpb77PRMVtWqE+7rgpm6+\nUofzt9iYE5HNOXixCGmFlXCxtzPbTSaIiKh9NFqBldeWSJwztAvkZrjT51+xMScim/PlofqbPqf3\nDYCrA3f6JCKyRrtT83G5qAoeTkok9rWMQRg25kRkU3LLarDzj/q78+8axJs+iYis1YoD9UskzhoQ\nDGd7yxiEYWNORDbl26MZ0GgF+od2QI/O5rklMxERtc+Z7Ks4lFYEO7kMd1vQyltszInIZqg1Wnx7\npP7ufI6WExFZry+ubSg0Pqoz/D2dJI6m9drdmH/22WeQyWRwdXVtduz48eMYNWoUXF1d4enpicTE\nRKSlpbX3kkREbbIjJRe5V2vg7WKPcVGdpQ7H4rDeE5ElKKyoxaaT9ftU3Desi8TR6KddjXlWVhae\nfPJJ+Pv7NzuWmpqK+Ph41NXVYe3atVixYgXOnTuH4cOHo6CgoD2XJSJqky9+vQQAuHNgMBwUdtIG\nY2FY74nIUnx9OAN1Gi1igzwtbp+KdjXm//jHP3DTTTdh9OjRzY4tXrwYDg4O2LJlCyZMmIDExERs\n3boVBQUFWL58eXsuS0Skt6Qrpfj9cgmUdjJOY2kD1nsisgS1ag2++q1+5a05FrCh0F+1uTH/6quv\nsG/fPnzwwQfNjqnVamzZsgUzZsyAu/ufN1eFhIQgISEBGzZsaOtliYjapGG+4aRof3R0d5Q4GsvC\nek9ElmLrqRwUlNeik7sDJvT2kzocvbVp7Zj8/Hz885//xGuvvYbAwMBmxy9evIjq6mpER0c3OxYd\nHY2dO3eipqYGjo43/nBMSUmBVqttVTwqlarx76SkpFa+C9vB/OjG/OhmDfkprtZgy6kcAMBQX8O+\nD33zI5fLERwcbLDrGxvrvWVhfnRjfnSz9PwIIfDfnfkAgDGhDjhzOtmgr2+Ket+mxnzevHmIiIjA\n3LlzWzxeVFQEAPDy8mp2zMvLC0IIlJSUwM/vxr/JqNVqaDQavWNrSBq1jPnRjfnRzVLzs/VsBdRa\noIe3EqHuMqO9j9a8rp2dZc1tZ723XMyPbsyPbpaYnzMFdUgrUcFeDowMcTDqezBWvde7Mf/++++x\nefNmnDhxAjKZ7q1NdR3/u+cqFArI5a2baXN9cpRKZaueY0uYH92YH90sPT91GoGdadUAgCk93Az+\nHvTNT2vrmjlgvbc8zI9uzI9ulp6f7RevAgASurjAy9XB4K9vinqvV2NeUVGBRx55BI8++ij8/f1R\nWloKAKirqwMAlJaWQqlUwtvbG8CfIynXKy4uhkwmg6enp85rRUZGtvoNJSUlQaVSQalUIiYmRp+3\nZBOYH92YH90sPT9rj11BWW0W/D0c8dCEgVDYGbYx1jc/Wq0W5eXlBo3BGFjvLRPzoxvzo5sl5+dK\ncRV+y8oEADw5JQ7dOrkZ/BqmqPd6fUIVFhYiLy8Pb731Fjp06ND4Z/Xq1aisrESHDh1w5513Ijw8\nHE5OTkhObj63Jzk5GV27dtU535CIyBCEEI1LJN49JNTgTbk1Y70nIkuy6uAlaAUwvJuPUZpyU9Fr\nxLxz587Ys2dPs8dfe+017Nu3D9u3b4ePjw8UCgUmT56M9evX44033oCbW32CMjIysGfPHjz++OOG\niZ6ISIdDaUX4I+cqnJR2uL1/kNThWBTWeyKyFBW1aqw5Wr+rs6VtKPRXejXmjo6OiI+Pb/b4ypUr\nYWdn1+TYsmXL0L9/f0yaNAmLFi1CTU0NFi9eDB8fHyxYsKC9cRMR/a2P99XvPDkzLhCezvYSR2NZ\nWO+JyFJ8d+wKymvVCPN1wYhuvlKH0y5G+163R48e2Lt3L5RKJWbOnIl7770XXbt2xf79++Hra9lJ\nIyLz90fOVew7VwC5DHhweJjU4Vg11nsikopWK/DFwUsAgDlDu0Au132zublr03KJf7Vy5UqsXLmy\n2eNxcXHYtWuXIS5BRKSXT/bXj5ZP6O2HYG9niaOxHqz3RGROdqfm43JRFdwdFZjRN0DqcNqNd0IR\nkdXJLKnCD0nZAICHbwqXOBoiIjKWFdd2dZ41MBjO9gYZb5YUG3MisjorDlyCRiswtKs3egd6SB0O\nEREZwR85V3HwYhHs5DLcPThU6nAMgo05EVmV0qo6fHs0AwBHy4mIrNkX10bLx0V1RoCnk8TRGAYb\ncyKyKl8dvoyqOg16+rljeDcfqcMhIiIjKKyoxcaT9VMW7xtq2UskXo+NORFZjRqVBiuv3Z3/jxFh\nf7sVPBERWaZvfstAnVqLmCBP9A3WvbuwJWFjTkRWY93vmSisqEOApxMm9PaTOhwiIjKCWrUGXx6+\nDAC4b2ioVQ3CsDEnIqtQp9bio70XAQAPDu8CpR3LGxGRNdp6KgcF5bXo5O5gdYMw/OQiIquw4UQm\nskqr4ePqgNsHBEsdDhERGYEQAp8fqL/p8+7BoVY3CGNd74aIbJJao8X7e+pHy/8xIgyOSjuJIyIi\nImM4eqkEKdlX4aCQ4w4rHIRhY05EFm/TyWxkFFfBy8Uedwy0vkJNRET13tt9HgCQ2DcAHVzsJY7G\n8NiYE5FF02gF3t9zAQDwwPAuVrHzGxERNXfgfCF+OV8IpZ0Mc0d0lToco2BjTkQWbWtyDtIKK+Hh\npLSand+IiKgprVbg9R2pAIBCOz/xAAAgAElEQVQ7B4Yg2NtZ4oiMg405EVksrVbgv9e+1rxvaBe4\nOnC0nIjIGm1NzkFyVhlcHRR4dKR1jpYDbMyJyIL9dCYX5/Iq4OagwL1DQ6UOh4iIjKBOrcXyn84C\nAB66KQzerg4SR2Q8bMyJyCJptQL/2Vk/Wn7PkFB4OCkljoiIiIxh9ZEMXC6qgo+rA+4f1kXqcIyK\njTkRWaTNp7JxNq8cbo4KPDg8TOpwiIjICCpq1Xj35/pBmMdGdYOLlU9ZZGNORBZHrdHi7V31hfqh\n4WHwcOZoORGRNfp0fxqKKuvQxccFt/cPkjoco2NjTkQWZ/3xLKQXVsLLxR5zrPxrTSIiW1VQXotP\nf0kDADw1NsLqdvlsifW/QyKyKrVqDd659rXm3BHhXImFiMhKvfvzeVTVaRAT5InxUZ2lDsck2JgT\nkUVZc/QKskqr0dHNAbMHh0gdDhERGUF6YSVWH8kAACwa1wMymUziiEyDjTkRWYzqOg3e212/y+ej\nI7vCUWkncURERGQMy386C7VWID7CF4PDvaUOx2TYmBORxfjfoUsoKK9FgKcTbusfLHU4RERkBElX\nSrH1VA5kMmDhuB5Sh2NSbMyJyCKUVanwwd6LAOqXzLJXsHwREVkbIQRe254KAJjeJwA9/dwljsi0\n+MlGRBbhg70XUFatQreOrkjsEyB1OEREZAT7zhXgUFoR7O3keGJ0d6nDMTk25kRk9jJLqvDFwUsA\ngGcm9IDCBpbMIiKyNVrtn6Pldw8OQWAHZ4kjMj1+uhGR2Vv+41nUqbUYHOaNhIiOUodDRERGsCkp\nC6m55XBzUOCRhK5ShyMJNuZEZNZOZ5Vh48lsAMCzE3razJJZRES2pFatwfIfzwEA/hEfjg4u9hJH\nJA025kRktoQQeGXbHwCAqbH+6B3oIXFERERkDF8dzkBWaTU6uTvgvqG2u6OzXo35yZMnMXHiRAQH\nB8PJyQleXl4YPHgwvvrqq2bnHj9+HKNGjYKrqys8PT2RmJiItLQ0gwVORNZv79kCHLxYfxPQk2Mi\npA7HprDeE5GpXK1R4b+763d0fnxUdzjZ2+4eFXo15qWlpQgKCsIrr7yCbdu24X//+x9CQ0Mxe/Zs\nvPTSS43npaamIj4+HnV1dVi7di1WrFiBc+fOYfjw4SgoKDD4myAi66PWaPHq9vrR8nuGhCDIy/Zu\nApIS6z0RmcrH+y6ipEqFcF8XzIwLlDocSSn0OTk+Ph7x8fFNHps0aRLS09PxySef4F//+hcAYPHi\nxXBwcMCWLVvg7l6//mRcXBy6deuG5cuX4/XXXzdM9ERktVYfycC5vAp4OCkxP6Gb1OHYHNZ7IjKF\nvKs1+PxAOgDg6XFcdcsg797HxwcKRX2Pr1arsWXLFsyYMaOxSANASEgIEhISsGHDBkNckoisWGlV\nHd7aWX8T0BOju8PDWSlxRNSA9Z6IDOntXedRo9Kib7AnxvTqJHU4kmtTY67VaqFWq1FQUIAPPvgA\nP/74IxYuXAgAuHjxIqqrqxEdHd3sedHR0bhw4QJqamraFzURWbV/7zyH0ioVIjq54c6BwVKHY9NY\n74nIWC7kV2DtsSsAgGe46hYAPaeyNJg3bx4+/vhjAIC9vT3effddPPzwwwCAoqIiAICXl1ez53l5\neUEIgZKSEvj5+em8RkpKCrRabaviUalUjX8nJSW1+n3YCuZHN+ZHN1Pn51JJHb46nA8AuCvSASmn\nk41+zfbQNz9yuRzBwZbzywbrvWVhfnRjfnQzdX5e/aUQGq3AgABH2JddQVLSFaNfsz1MUe/b1Jg/\n++yzeOCBB5Cfn4/Nmzdj/vz5qKysxJNPPtl4jq7felrzG5FarYZGo9E7toakUcuYH92YH92MnR8h\nBD75vQRaAQwKcEBPLzuL+t+kNbHa2VnWagOs95aL+dGN+dHN2Pk5W1SHw5k1kAOY1cvF4v73MFa9\nb1NjHhwc3PgbwIQJEwAAzzzzDO655x54e3sD+HMk5XrFxcWQyWTw9PT8+8AUCsjlrZtpc31ylErO\nRf0r5kc35kc3U+bn14wqpBSoYG8H3Ne3A5TKNpUok9I3P62ta+aC9d6yMD+6MT+6mSo/Qgh8fboE\nADAyzBlhPk5Gu5YhmaLeG+RTb8CAAfjoo4+QlpaGuLg4ODk5ITm5+dfPycnJ6Nq1KxwdHf/2NSMj\nI1v9hpKSkqBSqaBUKhETE6N3/NaO+dGN+dHNVPmpUWkwb/s+AMA/4rthzNDuRruWIembH61Wi/Ly\nchNEZhys9+aN+dGN+dHNVPn5+Y88nCnIgoNCjhduHQR/T8tozE1R7w0ydLNnzx7I5XKEhYVBoVBg\n8uTJWL9+fZNgMjIysGfPHiQmJhrikkRkZd7fcwFZpdXw93DE3BHhUodDN8B6T0TtUVWnxgtbzgAA\n7h0aajFNuanoNWL+0EMPwd3dHQMGDECnTp1QWFiIdevWYc2aNXjqqafg6+sLAFi2bBn69++PSZMm\nYdGiRaipqcHixYvh4+ODBQsWGOWNEJHlupBfgY/2XQQAPD+pl03v+mYuWO+JyBje2HEWl4uq4Ofh\niEcSukodjtnRqzEfPHgwvvjiC6xatQqlpaVwdXVFTEwMvvzyS9x1112N5/Xo0QN79+7FwoULMXPm\nTCgUCowcORLLly9vLOZERED9XMPnNiRDpREY2aMjxkV1ljokAus9ERneb2lFWHnwEgDgtRnRcHfk\nPP+/0qsxnzNnDubMmdOqc+Pi4rBr1642BUVEtmP98Sz8ll4MR6Ucy6ZEch1bM8F6T0SGVFWnxtPf\nnwIA3NYvCCO68xf3lljW8gBEZFVKKuvw8rY/AACP3dwdQV7OEkdERETGcP0Ulucm9ZQ6HLPFxpyI\nJPP6jlQUV9aheydXPDC8i9ThEBGREXAKS+uxMSciSRy7VIxvj9bv8vby9N5Q2rEcERFZG05h0Q8/\nCYnI5GpUGiy8rlD3D22+pTsREVk+TmHRDxtzIjK5d38+j4sFlfB1c8AzE3pIHQ4RERkBp7Doj405\nEZlUcmYZPt6fBgB4aVoUPJ3tJY6IiIgMjVNY2oaNORGZTJ1ai6e+S4JGKzAp2g9jI7lmORGRNXrz\nR05haQs25kRkMh/svYDU3HJ4udhj2ZRIqcMhIiIjOJJe3DiF5dXE3pzCogc25kRkEn/kXMV/d18A\nACybEglvVweJIyIiIkOrqlPjqe+SIARwa79AxEd0lDoki8LGnIiMTqXR4unvTkGtFRjTqxMmRftJ\nHRIRERnB9VNY/jWpl9ThWBw25kRkdO/9fB7JWWXwcFLipWlRkMlkUodEREQGxiks7cfGnIiM6vfL\nJfjvnvopLC9Pj0JHd0eJIyIiIkOrrtNwCosBsDEnIqOprFXjibUnoRXA9D4BmBTtL3VIRERkBG/8\nmMopLAbAxpyIjOalrWdwuagKAZ5OWDaVq7AQEVmj66ewvMIpLO3CxpyIjGLnmTysPnIFMhnw1q0x\nLNRERFbor1NYEjiFpV3YmBORwRWU12LRtR3fHhwehkFh3hJHRERExsApLIbFxpyIDEqrFXhi7UkU\nVdahR2c3LBjTXeqQiIjICDiFxfDYmBORQX247yJ+OV8IR6Uc783qAweFndQhERGRgVXXafA0p7AY\nHBtzIjKYo5eK8e+d5wAAL0yNQrdObhJHRERExvD6jlRcKqpCZ3dHPDeRU1gMhY05ERlESWUd/m/1\nCWi0AtP7BOCWuECpQyIiIiNYfzzzz42EZvSGhxOnsBgKG3MiajchBJ5cl4ScshqE+bjgRe7uSURk\nlU5klGDR+mQAwLz4cE5hMTA25kTUbp8fSMfPqfmwV8jx3h194OqgkDokIiIysNyyGjz85e+oU2sx\nqmcnPDkmQuqQrA4bcyJql9/SivDa9lQAwPOTeiHS30PiiIiIyNBqVBo89OUx5JfXonsnV7x9eyzk\ncn4zamhszImozXLLavDIN8eh1gpMjfXHXQODpQ6JiIgMTAiBp787hVOZZejgrMRnd/fnN6NGwsac\niNqkVq3B3K9/R2FF/XrlryVGc145EZEV+nDfRfyQlA2FXIYP7oxDsLez1CFZLTbmRNQmyzafwYmM\nUrg7KvDJ7H5wsud65URE1mbXmTy8+eNZAMCSKZEYHM6dnI2JjTkR6W3N0Qx881sGZDLgnVl9OHpC\nRGSFzuWV47FvT0AI4K5BwZg9KETqkKweG3Mi0suJjBI8vykFAPDEqO5cKouIyAqVVNbhgVXHUFmn\nwaAwLyyZHCl1SDZBr8Z89+7duO+++9CjRw+4uLggICAAU6dOxe+//97s3OPHj2PUqFFwdXWFp6cn\nEhMTkZaWZrDAicj0skqr8eD//lwq65GErlKHREbCek9ku9RagXlfH0dGcRWCvJzwwZ1xUNpxLNcU\n9Mryhx9+iEuXLuGxxx7Dtm3b8M477yA/Px+DBg3C7t27G89LTU1FfHw86urqsHbtWqxYsQLnzp3D\n8OHDUVBQYPA3QUTGV6XS4v6VR1FYUYsend24VJaVY70nsl2fHS/FobQiuNjb4bO7+8PLxV7qkGyG\nXmvdvP/+++jYsenX1uPGjUPXrl3xyiuvYOTIkQCAxYsXw8HBAVu2bIG7uzsAIC4uDt26dcPy5cvx\n+uuvGyh8IjIFjRD49+FipObWwMfVAZ/fy6WyrB3rPZFt+vFiFbafr4RMBrx9ex9EdHaTOiSboteI\n+V+LNAC4urqiV69euHLlCgBArVZjy5YtmDFjRmORBoCQkBAkJCRgw4YN7QyZiEztq1MVOJpVA3uF\nHJ/eHYcATyepQyIjY70nsj3JeTVYcbIcAPDkmAiM7tVJ4ohsT7snDJWVleH48eOIjKy/KeDixYuo\nrq5GdHR0s3Ojo6Nx4cIF1NTUtPeyRGQiP12sxObzVQCA5bfEoE9wB4kjIqmw3hNZryvFVXj9QDE0\nArgpxAnz4sOlDskmtfu76EceeQSVlZV47rnnAABFRUUAAC8vr2bnenl5QQiBkpIS+Pn56XzdlJQU\naLXaVsWgUqka/05KStInfJvA/OjG/NzYsexqfHi0BABway8XhKAASUmcN3w9fX9+5HI5goMtc4dU\n1nvzx/zoxvy0rEqlxaKd+Siv0yKsgwIP93XDqVOnpA7L7Jii3rerMX/++efx9ddf47333kNcXFyT\nY7p2AGzN7oBqtRoajUbvmBqSRi1jfnRjfv50vliFNw4UQyuAm4IdcUtPF+bnb7QmP3Z2lrkRE+u9\n5WF+dGN+6mmFwL8PleFymRqejnIsHOIJBzsZ8/M3jFXv29yYL1u2DC+99BJefvllzJ8/v/Fxb+/6\nHaEaRlKuV1xcDJlMBk9Pz78PTKGAXN66mTbXJ0epVLbqObaE+dGN+Wku66oKr/5ailoNENvJHvP6\nuUMmkzE/LdD356e1dc2csN5bDuZHN+anua9OleFodi2UcuDpwZ7wdqpvJpmf5kxR79vUmC9btgxL\nly7F0qVL8eyzzzY5Fh4eDicnJyQnJzd7XnJyMrp27QpHR8e/vUZkZGSr31BSUhJUKhWUSiViYmJa\n9yZsCPOjG/PTVH55DR754CCu1moRHeiBRYNcoICG+bkBfX9+tFotysvLTRCZYbDeWxbmRzfmp6nN\nSdlYl5IJAHh9ZgzC7YqYHx1MUe/1buVffPFFLF26FP/617+wZMmSZscVCgUmT56M9evXNwkmIyMD\ne/bsQWJior6XJCITKa9RYc4XR5FZUo0Qb2esuLc/nJSWN8JLhsF6T2S9dqfmYcHa+nnSD98UhsS+\ngRJHRICeI+ZvvfUWFi9ejHHjxmHixIk4fPhwk+ODBg0CUD/C0r9/f0yaNAmLFi1CTU0NFi9eDB8f\nHyxYsMBw0RORwVTXaXD/ymNIyb4KH1d7/O++AfBxdUCW1IGRJFjviazXzjN5mPf171BpBMZHdcbT\n43pIHRJdo1djvnnzZgDAjh07sGPHjmbHhRAAgB49emDv3r1YuHAhZs6cCYVCgZEjR2L58uXw9fU1\nQNhEZEi1ag0e+vIYjlwqhpuDAivnDECIt4vUYZGEWO+JrNOO07mY/81xqLUCE6P98PZtsbDjLs5m\nQ6/GfO/eva0+Ny4uDrt27dI3HiIyMZVGi0e+PoFfzhfC2d4OK+/rj6gAD6nDIomx3hNZn62ncvB/\n356ARiswJcYf/741Bgo7Tlc0J9xTm8iGabQCj685iV1/5MFeIcdnd/dDXEjzNamJiMiybU7Kxj/X\nnIRGKzC9TwCW3xLDkXIzxMacyEZptQKLvj+FLadyoLST4eO74jCkq4/UYRERkYFtOpmFx9echFYA\nM/oG4o2Z0WzKzRS/vyCyQRqtwMLvT2Hd75mQy4B3bu+DhB4dpQ6LiIgM7PvfMxub8tv6BeFNNuVm\njSPmRDZGrdHiqe9OYcOJLMhlwH9ui8WE3rq3TCciIsuz9tgVLPz+FIQAZg0IxsvToiBnU27W2JgT\n2RCVRosn1iZhc1I27OQyvHt7H0yMZlNORGRtVh/JwDPr6zf/mj0oBMumRLIptwBszIlsRJ1ai8e+\nPYHtp3OhtJPhvVl9MS6qs9RhERGRgX11+DL+tfE0AODeIaFYMrkXZDI25ZaAjTmRDahRaTD/mxP1\nq6/YyfHBnX0xqlcnqcMiIiIDW3XwEpb8kAIAuH9YF/xrYk825RaEjTmRlbtao8IDq47hSHox7BVy\nfDI7DvERvNGTiMjafH4gHS9uOQMAePimMCwa34NNuYVhY05kxfLLa3DPiqP4I+cq3BwU+PSefhgU\n5i11WEREZGCf7k/Dy9v+AADMiw/HU2Mj2JRbIDbmRFbqclElZn9+BBnFVfBxdcCq+/oj0p87ehIR\nWZsP917E6ztSAQD/N7IrHh/dnU25hWJjTmSFzmRfxd0rjqCwohbBXs748v4BCPF2kTosIiIyICEE\n/rv7At7aeQ4A8M9R3fDPUd0ljorag405kZXZk5qP+d8cR2WdBj393LFqTn90dHeUOiwiIjKgGpUG\nz25IxvrjWQCABaO749Gbu0kcFbUXG3MiK/K/Q5ew9IcUaAUwOMwbH82Og4eTUuqwiIjIgLJKq/GP\nL39HclYZ5DLgXxN74b5hXaQOiwyAjTmRFdBoBV7aegZf/HoJAHBLXCBent4b9gq5tIEREZFBHbpY\nhEe+OY7iyjp0cFbi/Tv6YkhXH6nDIgNhY05k4Spr1fi/1Sfwc2o+AODpcRGYOyKcN/4QEVkRIQS+\n+PUSXt72BzRagUh/d3w8Ow6BHZylDo0MiI05kQXLKKrCQ18eQ2puORwUcvz71lhMjPaTOiwiIjKg\nGpUGz6xPxoYT9fPJp/cJwKuJveGotJM4MjI0NuZEFmrfuQL83+oTKKtWwcfVAZ/eHYc+wR2kDouI\niAwos6QKD3/5O1Kyr8JOLsNzE3piztBQfitqpdiYE1kYIQQ+2peGN39MhVYAfYI98eGdcejswZVX\niIisycELhXjkm+MoqVLBy8Ue79/RF4PDuUmcNWNjTmRBKmvVeOq7JGxLzgUAzBoQhKVTIuGg4NeZ\nRETWQgiBzw+k45Vtf0ArgN4BHvhodhwCPJ2kDo2MjI05kYU4m1uOR745jgv5FVDaybBsShTuGBgs\ndVhERGRA1XUaLFp/CptOZgMAEvsG4JXpnE9uK9iYE5k5IQS+PXoFS39IQa1ai07uDvjgzjjEhXA+\nORGRNblSXD+f/ExO/Xzy5yf2xD1DOJ/clrAxJzJj5TUqPLvhNDYn1Y+cjOjui3/fGgNvVweJIyMi\nIkM6cL4Q81cfR2mVCt4u9nj/zr4YFMb55LaGjTmRmTqdVYb53xzHpaIq2MlleGpsBB4aHga5nCMn\nRETWQqsV+OxAGl7bXn9Df0ygBz68Kw7+nE9uk9iYE5kZtUaLj/en4e1d56DSCAR4OuHdWX04dYWI\nyMqkF1Zi0fen8Ft6MQBgZlwgXpoWxfnkNoyNOZEZuVRYiSfWnsTxjFIAwNjITnh9RjQ8ne0ljoyI\niAxFrdHiswPp+M/Oc6hVa+GktMNzE3vizoHBnE9u49iYE5kBIQS+/i0DL2/9A9UqDdwcFFg6JRKJ\nfQNYpImIrEhKdhkWfn8Kp7OuAgCGd/PBK9N7I8jLWeLIyBywMSeSWE5ZNZ5Zn4y9ZwsAAIPCvLD8\nlhgEdmCRJiKyFjUqDd79+Tw+3p8GjVbAw0mJ5yf1wgwOwNB12JgTSUSrFfj6t8t4fcdZVNSqYa+Q\n4+mxEbhvaBfe4ElEZEWOpBdj0fenkFZYCQCY2NsPS6dEwteNK2xRU3J9n1BeXo6nn34aY8aMga+v\nL2QyGZYuXdriucePH8eoUaPg6uoKT09PJCYmIi0trb0xE1m883nluOXjQ3h+UwoqatXoG+yJrY8O\nwwNcdYXMCOs9UfuU16jw/MbTuPXjQ0grrERHNwd8PDsO79/Zl005tUjvxryoqAiffPIJamtrMW3a\ntBuel5qaivj4eNTV1WHt2rVYsWIFzp07h+HDh6OgoKBdQRNZqjq1Fu/sOo+J7x7A75dL4GJvhxem\nRuK7fwxBt05uUodH1ATrPVHb7U7Nw5j/7MeXhy8DAGYNCMLOJ0ZgbGRniSMjc6b3VJaQkBCUlJRA\nJpOhsLAQn332WYvnLV68GA4ODtiyZQvc3d0BAHFxcejWrRuWL1+O119/vX2RE1mY/ecKsHRzCtIK\n6r/KvLlHR7w4LYpr1ZLZYr0n0l9RRS1e2HIGm07WbwwX4u2MVxN7Y0i4j8SRkSXQe8RcJpP97U0K\narUaW7ZswYwZMxqLNFBf5BMSErBhwwb9IyWyUPVbLB/D3SuOIK2gEj6u9nhvVh98dk8/NuVk1ljv\niVpPCIFNJ7Mw+j/7selkNuQy4KGbwrDjsZvYlFOrGeXmz4sXL6K6uhrR0dHNjkVHR2Pnzp2oqamB\no6OjMS5PZBZqVBp8vC8NH+y9gFq1FnZyGe4dEorHRnWDu6NS6vCIDIL1nghIK6jAS1v/wO7UfABA\nj85ueGNmNKIDPSWOjCyNURrzoqIiAICXl1ezY15eXhBCoKSkBH5+fjd8jZSUFGi12lZdT6VSNf6d\nlJTUhoitG/Ojm6HzI4TAwSvVWHWyDHmVGgBA744OeKifJ4I9VEg/e6bd1zAl/vzopm9+5HI5goOD\njR2WybDemxfmRzdD56egUo1vT1/F7vQqaAWgkAO3RbkjsacbRNFlJBVdbvc1TIk/P7qZot4bdblE\nXV+BtubrUY1Go/c1G5JGLWN+dGtvfs4U1OF/p8pxoUQNAPB2kuOeaDcMDnSATGb5+bf0+I2tNfmx\ns7POrbZZ780P86Nbe/JTVqPF+tRK/JhWBfW13yn7+dnjrt5uCHRXQGjUUOn/I21W+POjm7HqvVEa\nc29vbwB/jqRcr7i4GDKZDJ6eur/eUSgUkMtbNwX++uQolZwi8FfMj26GyM+VMhX+l1SGI1k1AABH\nhQzTe7phaoQrnJR638phVvjzo5u++WltXbMUrPfmhfnRrb35qajTYmNqOTafrUCNWgAAojo6YHaM\nO3r4WP7yh/z50c0U9d4ojXl4eDicnJyQnJzc7FhycjK6du36t/MNIyMjW/2GkpKSoFKpoFQqERMT\n06aYrRnzo1t78pNVWo3/7r6AtcfyodEK2MllmDUgCI/d3N1q1qjlz49u+uZHq9WivLzcBJGZBuu9\neWF+dGtrfqrq1Fh18DI+2ncRZdX1zVlMoAeeGtsDQ7t6W83Onfz50c0U9d4ojblCocDkyZOxfv16\nvPHGG3Bzq1+fOSMjA3v27MHjjz9ujMsSmUxOWTU+2HMR3x7NgEpTP2oyplcnPD2uB7p2dJU4OiLT\nYb0na1an1uLboxl4b/cFFJTXAgC6d3LFgjERGNOrk9U05GQ+2tSYb9++HZWVlY2/BZw5cwbfffcd\nAGDChAlwdnbGsmXL0L9/f0yaNAmLFi1CTU0NFi9eDB8fHyxYsMBw74DIhPKu1uCDPRew+sgV1Gnq\nJxYODvPGE2O6o39o85vfiCwd6z3ZIo1WYMOJLLy96xwyS6oBAEFeTnh8VHdMjQ2AHXdoJiNpU2M+\nd+5cXL78553G69atw7p16wAA6enpCA0NRY8ePbB3714sXLgQM2fOhEKhwMiRI7F8+XL4+voaJnoi\nE8kqrcan+9PwzZEM1F2702dAFy88Pqo7Bod7SxwdkfGw3pMtEUJgx+lcvLXzHC7kVwAAOro54NGb\nu+G2fkGwV1jXPSJkftrUmF+6dKlV58XFxWHXrl1tuQSRWUjNvYpP9qXhh6RsqLX1U1b6hXTAE6Pr\nG3J+jUnWjvWebIFKo8VPKXn4aN9FJGeVAQA8nZWYOyIcdw8OhZO9da6mRObHqMslElkiIQSOpBfj\no30XsedsQePjQ8K9MTc+HMO6+rAhJyKyAoUVtVj9Wwa+/i0DuVfrV9VysbfD/cPD8MDwLtwMjkyO\njTnRNSqNwA9J2fji13ScyCgFAMhkwPioznj4pnDEBHEHNyIia3CuqA4r15zE1lM5jfcL+bja444B\nwbhnSCi8Xa1jVS2yPGzMyeaVVGuw7VwFdqZXo6Q6CwBgr5BjZlwgHhoehlAfF4kjJCKi9qpVa7An\nvRJbzv65CRwAxAZ54p4hIZjQ2w8OCk5ZIWmxMSebJITAiSulWHXwEraeymncuc3XzQF3DgzGHQOD\n0dFN99rLRERk/nLKqvH14QysPpKBoso6AIBCDkyJDcA9g0P5bSiZFTbmZFPKqlTYeDILa45ewZmc\nq42PR3grMSnCDQ9PGMi77omILFzDvUL/O3QZO1Jyobl28763kx3GhDliXHd3jBgYK3GURM2xMSer\np9UKHE4rwppjV7D9dG7jcof2CjmmxPhjiE8dgt1kUCqVbMqJiCxYZa0aPyRlY9XBS0jN/XPHxQFd\nvHDvkFB0VudBq1FDqeSUFTJPbMzJal0prsKmk1lYeywTGcVVjY/36OyG2/sHYVqfAHg62zdusUtE\nRJanRqXB3rP52JyUg5ejBeAAABKYSURBVJ9T81Cjqh98cVTKMb1PAO4eHIqefu4AgKSkfGg1UkZL\npBsbc7IqxZV12HoqG5tOZuPY5ZLGx90cFJgc64/b+wehd4AHlzskIrJgKo0WBy4UYvPJbPx0Jg8V\ntX/ezBnq7Yw7Bgbj1n5B8HS2lzBKIv2xMSeLV1mrxq4/8rDxRBZ+OV/YuBGQTAYMDvNGYt9ATOjd\nGc72/HEnIrJUGq3Ab+lF2JyUg+2nc1Ba9ec3nf4ejpgU44/J0f6ICnDn4AtZLHYqZJHKqlXYk5qP\nHadzse9cAapVf3432TvAA1Nj/TE5xh+d3LmyChGRpRJC4HhGKTYnZWNrcg4Kymsbj/m42mNibz9M\njvFH3+AOkMvZjJPlY2NOFqOwohY7z+Rhx+lcHLxYCJVGNB4L9XbGlNgATI31R7ivq4RREhFRewgh\nkJJ9FZtPZWNLUg6ySqsbj3k4KTE+qjMmx/hjYBcvKOx4wz5ZFzbmZLaEEDifX4E9qfn4+Y98HL1c\nDPFnL45uHV0xLqozxkZ2RqQ/v7okIrJUV2tUOHihEPvOFWL/uYImzbiLvR3GRHbG5Bg/DOvqy9Wz\nyKqxMSezUlmrxsGLRdhzNh/7zjYtzgAQE+iBsdeacY6MExFZJq1WIDmrDPvPFWD/+QIczyhtXGsc\nABwUctzcsyMmR/sjoUdHOHJ5Q7IRbMxJUlqtwNm8cvx6oRD7zhXgt7Ri1Gm0jccdFHIMDvdGfHdf\njI7sjABPJwmjJSKitsq/WoP95+tHxH85X4CSqqbL1Ib5uOCm7r4Y0d0XA8O8eMM+2ST+1JNJCSGQ\nXliJgxeLcOhiEQ6lFaH42hbJDYK8nJAQ0REJER0xKMwbTvYcKSEisjS1ag1+v1SCfecLsP9cIf64\nbrdlAHB1UGBIuDdGRPjipm6+CPJylihSIvPBxpyMSgiBy0VVOHqpGIfS6pvx/2/v3oKbKvc2gD9J\nmjSnpkmaljatLYcKLbTFvbuFyve50QsYkc9RmGEQHIfBcXRzULkAlYNSRnS44UKdwfEwjmilHmC4\nYKbg6MBwJ+MGrQXBPZ9ASw+QnnJskibN2hdpSkPaRQtN1kr6/GYySVeS9t8XePLnXe9aq8sViHuN\nTq3CollWPPqgDY9XFGC2zcD14kREacYbDOO3NifOt/bjfFs//n29DwOD8VfzqS7OxT/n2rB0bgH+\nVmqGmgdvEsVhY05TajAcwcVOF85f78e/W/twvrUfPd74GXGNSom/lZrxP+U2LJmTh5oSMw/mISJK\nI4IgoK1vINqEt/bjQpsTf950Y9QycQCAzZiNfz5ow9J5+fjfchvyjNnSFEyUJtiY0z0TBAG33EH8\n3u7EhTYnzrf2obndhcFwJO51GpUS1SW5WDzLiiVzbKgts3B5ChFRGgmEhtDS4Yo24a39uNCWOOkC\nAMVmHWrLLKgts+AfMy2oLDTx/OJEk8DGnCasxxtES7sLv7e78Hu7E793uOIu9hBjNWjw99JoKP+j\nzIKq4lweUU9ElCaGIgKu9XjxR5cHzTeiS1Mudbrirh0BRCddFhSbUFsabcT/XmbhRd2I7hMbc0og\nCALa+/24ctODK11uXOx0oaXdhc471oYDgEqpwIMFRiwsMUdnSWZauEaciChNuPwhXO5y43KXG1e6\nPLh8040/b3oQvGPPJxBdllJbZh6ZEV9g56QL0VRjYz7NuQMh/OemB5eHm/ArNz3486YH3mA44bUK\nBTAn34ia4lxUl+SipsSM+UUmLkshIpK5SETA9V4fLnd5cOWme7gZ9yRcKyJGp1ZhXmEOqotzRxrx\nEouOky5EScbGfBoQBAHOwBBu9Udw8Vwr/nL48Fe3F//v8I4byhqVEnMKjKgszEFlkQnVJbmoKs6F\nMZt/ZYiI5Co0JKDDHcYtfxjnXH/hardvZMLFHxoa8z3FZh0qi0yoLMoZvjehzKrn2nAiCbDLyiD+\nwSHc6B/AtZ5o4/2Xw4erPV78p8sFXyi2NrA74X1FuVpUFOagosiEiuFGfJbNwNNYERHJUCQioNPl\nx7UeH671+HC12zfyuL1/YNSZUXrj3pedpYxmfeHtJryiyIRcnTrlvwMRjY2NeRoRBAHd3iBu9A2g\ntXcAbX0DaIvd9w3AMcaBmDEKADOMKlQWWzEn34g5BUbMthlQUWhCrp6hTEQkJ8HwELqcAXQ4/ejo\n9+Narw/Xhhvw672+MdeAx2izFCjOycL80nzMytPjwRm3J1xUnAUnkjU25jIyGI7gljuATqcfXa5o\nIHe5/OhyBtDe70db38C4uyJjcrRZmJlnwJx8w0gDHu7rgE0rwKDVYOHChSn6bYiIaDwufwgd/X50\nOv3R5nu4AY89HuuMV6OpVQqU5Rkwy2bAbFv0fpbNAL+jFQbVEDQa5j1ROmJjniK+YBgOTxDdniAc\nngBuugLocgXQ5fKjwxlAl9OPbm8QgiD+fZQKoChXh1KrHmV5ejwwfF9qjd7Mek3Ce5qbHQiFQkn6\nzYiIKGYoIqDXF4TDfTvvHe4gbnkC6HQGRppxzxgH2N9Jp1ah2KJDsVmHmXl6zLTFGnEj7GYtssZY\nbtjsaUcoNP5sOhHJGxvz+xAaiqB/YBA9nkF0e4NwuAPD99FAjoVytycI36D4THeMJksJe64WRbk6\nFJm1KDbrUJSrg92sRVmeAcVmHa+SSUSUYv7BIfR4gyMTLN2eAByeaN47Yo89QfR6gwlXvxyP1aBB\nsTnaeNvNupEmvMQS/dqiV/MsKETTDBvzYYIgwB0Io983iF7fIPp9g+gbGL4fvvUPjHrONwh34O4z\nHqMZNCrk52SjIEeLfFP2cNMdbcKLzdFGPM+gYRATESVRbFKl3xdCry+Ifl8oLu/7B0bl/vBnQWAS\ns9BKBZBnzEZBTvQWy/3RzbfdrIVew49gIoqX1FTwer3Ys2cPvvvuO/T19aGiogJvvvkmnn322aT8\nvHBEQK83CHcgDJc/BLc/FL0PDN/7wyNfu+OeD8PtDyE80WmOURQKwKrXRIPXpEW+MRsFpvgwzh8O\nZwNPNUhEGSjVWS8IAoLDx+TEsn50zo/O/rjcD4TgHAjBM8lJlRhNljIu4wtytLez3nT7a6tBM+Yy\nEyKiu0lqp7h69Wr88ssvOHDgAObOnYsjR45g3bp1iEQiWL9+/ZT+rK9bPDj+5wCAjvv6PgaNChaD\nBnkGDSwGDax6Dayxx6NuFn30NSadmke5E9G0lsqsB4B/NfWg1x8B0HnP30OhACx6DSx6NfIM2bAY\n1CPZPpLzd3wGGDQq7tEkoqRKWmPe1NSEH3/8cSSgAeDxxx9Ha2srduzYgbVr10KlmrorRmZn3Q7L\nnOwsmHTq6E2bhdzhx7k6NUxaNUy6rJHHufrhe50aZr2alxcmIpqEVGc9AGSronmvUiriMj6W5SZd\n1nDW3/4cGP0ZwEkVIpKrpDXmx48fh9FoxJo1a+K2b9y4EevXr8e5c+ewZMmSKft5T5br8X/zclFX\nu5C7EImIUiTVWQ8A7zxmhUGrxuLahziDTUQZJWkd7MWLF1FZWYmsrPjev6amZuT5qaRXK5GTrWRT\nTkSUQqnOegDI1SqhUyvZlBNRxknajHlvby9mz56dsN1qtY48L+bSpUuIRCZ2FHzsHN2hUAjNzc2T\nrDTzcXzEcXzEcXzETXZ8lEolSktLk11Wytxv1gPM+6nE8RHH8RHH8RGXirxP6sGfYrMZd5vpCIfD\nGBqa2Lm/R+OFdMRxfMRxfMRxfMRNZHymer21HNxP1gPM+2Th+Ijj+Ijj+IhLVt4nrTHPy8sbc6ak\nr68PwO3ZlPFkZWVBqZzYspTRg6NWqydR5fTA8RHH8RHH8RE32fGZaK6li/vNeoB5P5U4PuI4PuI4\nPuJSkfdJa8yrq6vR2NiIcDgct/awpaUFAFBVVSX6/gULFkz4F2pubkYoFIJarcbChQvvvegMxfER\nx/ERx/ERN9nxiUQi8Hg8KagsNe436wHm/VTi+Ijj+Ijj+IhLRd4nbepm1apV8Hq9OHbsWNz2w4cP\nw263Y/Hixcn60URElCLMeiKiqZO0GfMVK1Zg2bJl2LRpE9xuN8rLy9HY2IhTp06hoaEhbt2NICRe\ncXOiBwIB0V0FKpUKSqVyUu+bLjg+4jg+4jg+4iY7PmO9ZqwMTBeTyXqAeZ9sHB9xHB9xHB9xqch7\nhZDETwSv14vdu3fHXaZ5586dCZdpDofD8Pl8ySqDiEjWDAZDwukG08lEsx5g3hPR9Ha3vE9qYz5R\nDGoims7SvTGfDOY9EU1nd8v7zDo9ABERERFRmmJjTkREREQkA7JYyhKJRBIWyCsUCl5umYgyjiAI\nCQf/KJXKjDu/+XiY90Q0XdxL3suiMSciIiIimu6mxxQNEREREZHMpXVj7vV6sW3bNtjtdmi1Wjz0\n0EP45ptvpC5LNjweD15//XUsX74c+fn5UCgUqK+vl7osWTh9+jReeOEFVFRUwGAwoLi4GE8//TTO\nnz8vdWmy8Ntvv2HlypUoLS2FTqeD1WrFI488goaGBqlLk63PPvsMCoUCRqNR6lIyEvNeHPN+fMx7\nccz7yUl21qd1Y7569WocPnwYe/fuxcmTJ/Hwww9j3bp1OHLkiNSlyUJvby8++eQTBINBPPPMM1KX\nIysfffQRrl+/jtdeew1NTU14//334XA4UFdXh9OnT0tdnuScTiceeOABvPfee2hqasKXX36JmTNn\n4vnnn8f+/fulLk92Ojo6sH37dtjtdqlLyVjMe3HM+/Ex78Ux7ycuFVmftmvMm5qasHLlShw5cgTr\n1q0b2b58+XJcunQJbW1tCVecm25if7QKhQI9PT3Iz8/H3r17OYsCwOFwoKCgIG6b1+tFeXk5qqqq\n8NNPP0lUmbzV1dWhs7MTbW1tUpciK0899RQUCgWsViuOHj0Kr9crdUkZhXl/d8z78THv7w3zPlEq\nsj5tZ8yPHz8Oo9GINWvWxG3fuHEjOjs7ce7cOYkqkw+e6WB8d4Y0ABiNRsyfPx83btyQoKL0YLPZ\nps2FcCaqoaEBZ8+exaFDh6QuJWMx7++OeT8+5v29Yd7HS1XWp21jfvHiRVRWVib8pampqRl5nmgy\nXC4XLly4gAULFkhdimxEIhGEw2F0d3fj0KFD+OGHH/DGG29IXZZsOBwObNu2DQcOHEBJSYnU5WQs\n5j1NNeZ9Iub9+FKZ9Wn7X6He3l7Mnj07YbvVah15nmgytmzZAp/Ph927d0tdimxs3rwZH3/8MQBA\no9Hggw8+wMsvvyxxVfKxefNmzJs3D5s2bZK6lIzGvKepxrxPxLwfXyqzPm0bcwCiu+24S48m4623\n3sLXX3+NDz/8ELW1tVKXIxu7du3Ciy++CIfDgRMnTmDr1q3w+XzYvn271KVJ7tixYzhx4gR+/fVX\n5k0KMO9pqjDvx8a8H1uqsz5tG/O8vLwxZ0n6+voA3J5JIbqbffv2Yf/+/Xj33XexdetWqcuRldLS\nUpSWlgIAnnzySQDAzp07sWHDBuTn50tZmqS8Xi+2bNmCV155BXa7HU6nEwAwODgIIHqWA7VaDYPB\nIGWZGYN5T1OFeT8+5n0iKbI+bdeYV1dX4/LlywiHw3HbW1paAABVVVVSlEVpZt++faivr0d9fT12\n7doldTmyt2jRIoTDYVy9elXqUiTV09ODW7du4eDBg7BYLCO3xsZG+Hw+WCwWPPfcc1KXmTGY9zQV\nmPeTw7yXJuvTdsZ81apV+PTTT3Hs2DGsXbt2ZPvhw4dht9uxePFiCaujdPDOO++gvr4ee/bswd69\ne6UuJy2cOXMGSqVyzPW+00lhYSHOnDmTsP3AgQM4e/YsTp48CZvNJkFlmYl5T/eLeT95zHtpsj5t\nG/MVK1Zg2bJl2LRpE9xuN8rLy9HY2IhTp06hoaFh2p/TNubkyZPw+XzweDwAgD/++ANHjx4FEN1V\npdfrpSxPMgcPHsTbb7+NJ554AitXrsTPP/8c93xdXZ1ElcnDSy+9BJPJhEWLFmHGjBno6enB999/\nj2+//RY7duyYtrs1Y7RaLR577LGE7V988QVUKtWYz9G9Y95PDPN+bMx7ccz78UmS9UIa83g8wquv\nvioUFhYKGo1GqKmpERobG6UuS1bKysoEAGPerl27JnV5klm6dOm445Lm/yymxOeffy48+uijgs1m\nE7KysgSz2SwsXbpU+Oqrr6QuTdY2bNggGAwGqcvISMz7u2Pej415L455P3nJzPq0vfInEREREVEm\nSduDP4mIiIiIMgkbcyIiIiIiGWBjTkREREQkA2zMiYiIiIhkgI05EREREZEMsDEnIiIiIpIBNuZE\nRERERDLAxpyIiIiISAbYmBMRERERyQAbcyIiIiIiGWBjTkREREQkA2zMiYiIiIhk4L/pwl4Tra4z\nGwAAAABJRU5ErkJggg==\n",
      "text/plain": [
       "<matplotlib.figure.Figure at 0x15d2742d5f8>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ys = euler(0, 4, 1, dx, step=0.00001)\n",
    "plt.subplot(1,2,1)\n",
    "plt.title('Computed')\n",
    "plt.plot(np.linspace(0, 4, len(ys)),ys)\n",
    "plt.subplot(1,2,2)\n",
    "t = np.linspace(0, 4, 20)\n",
    "plt.title('Exact')\n",
    "plt.plot(t, np.exp(t));"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "exact answer= 54.5981500331\n",
      "euler answer= 54.59705808834125\n",
      "difference = 0.00109194480299\n",
      "iterations = 400000\n"
     ]
    }
   ],
   "source": [
    "print('exact answer=', np.exp(4))\n",
    "print('euler answer=', ys[-1])\n",
    "print('difference =', np.exp(4) - ys[-1])\n",
    "print('iterations =', len(ys))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Here we see that the error is reasonably small, but it took a very large number of iterations to get three digits of precision. In practice Euler's method is too slow for most problems, and we use more sophisticated methods.\n",
    "\n",
    "Before we go on, let's formally derive Euler's method, as it is the basis for the more advanced Runge Kutta methods used in the next section. In fact, Euler's method is the simplest form of Runge Kutta.\n",
    "\n",
    "\n",
    "Here are the first 3 terms of the Euler expansion of $y$. An infinite expansion would give an exact answer, so $O(h^4)$ denotes the error due to the finite expansion.\n",
    "\n",
    "$$y(t_0 + h) = y(t_0) + h y'(t_0) + \\frac{1}{2!}h^2 y''(t_0) + \\frac{1}{3!}h^3 y'''(t_0) +  O(h^4)$$\n",
    "\n",
    "Here we can see that Euler's method is using the first two terms of the Taylor expansion. Each subsequent term is smaller than the previous terms, so we are assured that the estimate will not be too far off from the correct value. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Runge Kutta Methods"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "\n",
    "Runge Kutta is the workhorse of numerical integration. There are a vast number of methods in the literature. In practice, using the Runge Kutta algorithm that I present here will solve most any problem you will face. It offers a very good balance of speed, precision, and stability, and it is the 'go to' numerical integration method unless you have a very good reason to choose something different.\n",
    "\n",
    "Let's dive in. We start with some differential equation\n",
    "\n",
    "$$\\ddot{y} = \\frac{d}{dt}\\dot{y}$$.\n",
    "\n",
    "We can substitute the derivative of y with a function f, like so\n",
    "\n",
    "$$\\ddot{y} = \\frac{d}{dt}f(y,t)$$."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Deriving these equations is outside the scope of this book, but the Runge Kutta RK4 method is defined with these equations.\n",
    "\n",
    "$$y(t+\\Delta t) = y(t) + \\frac{1}{6}(k_1 + 2k_2 + 2k_3 + k_4) + O(\\Delta t^4)$$\n",
    "\n",
    "$$\\begin{aligned}\n",
    "k_1 &= f(y,t)\\Delta t \\\\\n",
    "k_2 &= f(y+\\frac{1}{2}k_1, t+\\frac{1}{2}\\Delta t)\\Delta t \\\\\n",
    "k_3 &= f(y+\\frac{1}{2}k_2, t+\\frac{1}{2}\\Delta t)\\Delta t \\\\\n",
    "k_4 &= f(y+k_3, t+\\Delta t)\\Delta t\n",
    "\\end{aligned}\n",
    "$$\n",
    "\n",
    "Here is the corresponding code:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def runge_kutta4(y, x, dx, f):\n",
    "    \"\"\"computes 4th order Runge-Kutta for dy/dx.\n",
    "    y is the initial value for y\n",
    "    x is the initial value for x\n",
    "    dx is the difference in x (e.g. the time step)\n",
    "    f is a callable function (y, x) that you supply \n",
    "    to compute dy/dx for the specified values.\n",
    "    \"\"\"\n",
    "    \n",
    "    k1 = dx * f(y, x)\n",
    "    k2 = dx * f(y + 0.5*k1, x + 0.5*dx)\n",
    "    k3 = dx * f(y + 0.5*k2, x + 0.5*dx)\n",
    "    k4 = dx * f(y + k3, x + dx)\n",
    "    \n",
    "    return y + (k1 + 2*k2 + 2*k3 + k4) / 6."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's use this for a simple example. Let\n",
    "\n",
    "$$\\dot{y} = t\\sqrt{y(t)}$$\n",
    "\n",
    "with the initial values\n",
    "\n",
    "$$\\begin{aligned}t_0 &= 0\\\\y_0 &= y(t_0) = 1\\end{aligned}$$"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "max error 0.00005\n"
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAvAAAAEaCAYAAAB3kWMDAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMS4wLCBo\ndHRwOi8vbWF0cGxvdGxpYi5vcmcvpW3flQAAIABJREFUeJzt3Xd4VGXC/vHvmZIeUoEQWqiGXkMC\nNuxYWBRkbbsqdkSF3VVBQYqCi7v4u5bX114WXRaUVXFXFlFRrC8g3dB71QBJSM8kM3PO749gJIJA\nIMnJZO7Pdc2V5JxnDvfkMXDn+Mw5hmVZFiIiIiIiEhAcdgcQEREREZHTpwIvIiIiIhJAVOBFRERE\nRAKICryIiIiISABRgRcRERERCSAuuwNUl2mamKZZZZthGBiGYVMiEREREZEzZ1kWv7wwpMPhwOE4\n8bn2gCzwxcXFdscQEREREak1kZGRv1rgtYRGRERERCSAqMCLiIiIiAQQFXgRERERkQAScGvgT/Rm\n1ZOtETobGzZswOfz4XK56NKlS40fX+ovzX1w0rwHL819cNK8B6/6Nvcneo/nyS7Q0iAK/MnepXs2\nTNPE7/fX2vGl/tLcByfNe/DS3AcnzXvwCoS5P1mBr5+JRURERETkhFTgRUREREQCiAq8iIiIiEgA\nUYEXEREREQkgKvAiIiIiIgFEBV5EREREJICowIuIiIhI0LNMk21rvrI7xmlRgRcRERGRoLd8zhTa\nffAblv59rN1RTkkFXkRERESC2qblH9N32//gMCwckQl2xzklFXgRERERCVo5B/eT8NF9uAyTldGX\n0O/6h+2OdEoq8CIiIiISlPx+Hz+88TuakMseRws63fMGhqP+1+P6n1BEREREpBbkfv0q3crWUGKF\nYg1/k8joWLsjnRYVeBEREREJOoe3LOXi3LcB2NB7Mimd+tqc6PSpwIuIiIhIUCnM/ZH0rc/gMCy+\nix9M2pD77Y5ULSrwIiIiIhI0vOVlxH09iXijkG1GCt3vftnuSNWmAi8iIiIiQWPVaw/SxdxMoRXO\nD/2fIiw80u5I1aYCLyIiIiJBYeWCV8g49A4A37T9E7FNW9uc6MyowIuIiIhIg7drw3I6r5gAwGex\nw2nc5SKbE505FXgRERERadDyj2Tjfvc2IowyMkN7E3fBSLsjnRUVeBERERFpsEy/n12v/o4W1o9k\n0ZgWd83B6XTZHeusqMCLiIiISIO1/B/j6VmylDLLTeGQN4hr3MzuSGdNBV5EREREGqTvv3iP9F0v\nAbCu+wQ69LrA5kQ1QwVeRERERBqcH3ZvodUXD1XerKnfsDF2R6oxKvAiIiIi0qCUFhdS+o8biaWI\nba4OAXmzppNRgRcRERGRBsMyTTa+9Hva+XeSSyOib50bkDdrOhkVeBERERFpMJbPnkSfwiV4LSdZ\ng14lqVUHuyPVOBV4EREREWkQvl/yLv12PAfA6i7j6JwxyOZEtUMFXkREREQC3r7tmaR8+WDFm1bj\nrqHf9Q/bHanWqMCLiIiISEArKjiCOecmGlHCZlcnetz7Koaj4dbchvvKRERERKTBM/1+tr10M63N\nfRwinsQ73iE0LMLuWLVKBV5EREREAtbyWWPpVfJ/lFlu8n7zdxKTW9sdqdapwIuIiIhIQFq18O/0\n3/cqAOt6TqJj74H2BqojKvAiIiIiEnC2rf2azssfBWBZ0xvpd92DNieqOyrwIiIiIhJQsn/YQ8wH\ntxJulLMuLI20u5+3O1KdOqMC/80333DVVVcRFxdHeHg4HTp04KmnnqoyZvHixfTv35+IiAgSExO5\n/fbbOXTo0HHH8nq9TJkyhZSUFEJDQ0lNTeW55547s1cjIiIiIg2ap6SI3Deupwm57HG0pM197+B0\nueyOVaeqXeDnzJnDhRdeSExMDG+99RYLFy5k7NixWJZVOebLL7/kyiuvpGnTpvz73/9m5syZLF68\nmEsuuYSysrIqx7v//vv585//zKhRo/j444+57rrrGD16NE8//fTZvzoRERERaTAs02TDi7+no28r\neUTh+t07NIpNsDtWnavWrysHDhzgnnvu4d577+WFF16o3H7RRRdVGffII4/QsWNH3n33XVxHfyNq\n06YN5557Lm+88QYjR44EYMOGDbz++utMmzaNRx55BICBAweSk5PD1KlTue+++4iPjz+rFygiIiIi\nDcOyNx+jf+HneC0nBy5/hS5tu9gdyRbVOgP/2muvUVxczNixY391zIEDB1ixYgW///3vK8s7wIAB\nA+jYsSPz58+v3PbBBx9gWRYjRoyocowRI0ZQWlrKokWLqhNPRERERBqo1Ytm0X/PSwCs6TaBLude\nbXMi+1TrDPxXX31FfHw8mzdvZsiQIaxfv574+HiGDh3KX/7yFxo1asT69esB6N69+3HP7969O99+\n+23l1+vXr6dx48YkJSUdN+6n/adjw4YNmKZZnZdyWrxeb+XHdevW1fjxpf7S3AcnzXvw0twHJ817\n4MjZs4GMVY+CAUuiBxPf4ZKzmrP6NvcOh4NWrVqd9vhqL6EpKSlh+PDhPPbYY/ztb39jxYoVTJo0\nifXr1/P111+Tk5MDcMKlL/Hx8ZX7AXJyck44LjIykpCQkCpjT8bn8+H3+6vzUqrtp4mW4KO5D06a\n9+CluQ9Omvf6qyj3R7qtfpwIo4zVrp5EnPtAjc5XfZh7p9NZrfHVKvCmaeLxeJg0aRLjxo0DKtas\nh4SEMGbMGD777LPKsYZhnPAYv9z+a+NOte9YLpcLh6Pmr4h57IS63e4aP77UX5r74KR5D16a++Ck\nea//PKVFtFg6nsYcYafREt8l0wgLDz/r49a3ua9uj61WgU9ISGDbtm1cccUVVbZfeeWVjBkzhtWr\nV9OjRw+AE549z83NrXLGPSEhgbVr1x43rri4mPLy8tN+A2uXLl1qpcCvW7cOr9eL2+2ufF0SHDT3\nwUnzHrw098FJ816/+bzlbHj2Ktpbe8gmlvDb36Nf63Nq5Nj1be5N06SwsPC0x1er9Z5oXTtQeQlJ\nh8NB165dAcjMzDxuXGZmZuV+gG7dunH48GGysrKOGwdUGSsiIiIiwcEyTVa9fC89PCsotULI/c1b\nNKuh8t4QVKvADxs2DICPPvqoyvaFCxcCkJGRQfPmzenXrx+zZ8+usi592bJlbNmyhaFDh1ZuGzJk\nCIZh8Oabb1Y53qxZswgPD2fQoEHVezUiIiIiEvCWvz2N9Oz3MS2DTQP+Hx17X2h3pHqlWktoLr/8\ncgYPHsyTTz6JaZpkZGSwcuVKpkyZwjXXXMN5550HwDPPPMNll13G8OHDuf/++zl06BDjxo2ja9eu\nVS4Z2aVLF+68804mTZqE0+kkLS2NTz75hFdeeYWpU6fqGvAiIiIiQWbNJ7Ppt+VZMOC7DqPJuOL3\ndkeqd6p939l33nmHKVOm8MorrzBlyhSSk5P5wx/+wKRJkyrHDBw4kIULFzJx4kQGDx5MREQE11xz\nDX/9618JDQ2tcrwXXniB5s2b89xzz5GVlUVKSgozZ87kwQcfPPtXJyIiIiIBY9varznn2z/iMCyW\nJwwh/eZJp35SEKp2gQ8PD2f69OlMnz79pOMuu+wyLrvsslMez+12M3nyZCZPnlzdKCIiIiLSQPyw\nazNxH/yOCKOM78P60PveVzFq4SIlDYG+KyIiIiJiq7zsLHz/GEoieex0pJBy379wh4Se+olBSgVe\nRERERGzjKSki6+XraGUeIItEou78gEaxCXbHqtdU4EVERETEFn6fj03P30CqdyMFROK54R2aNG9j\nd6x6TwVeREREROqcZZqsfPleehV/Q7nlYt/lr5HSqa/dsQKCCryIiIiI1Lnlc6aQfvhdADL7PUOX\nAVfZnChwqMCLiIiISJ1a+d9Xydj+NwCWdfgjfa6+y+ZEgUUFXkRERETqTOZX/6b7d2MBWNbkt6Tf\n9ITNiQKPCryIiIiI1Ilta76i7Wf3EGL4WR11If3ufUnXej8D+o6JiIiISK3bt20dCf++hUjDw/rQ\nnnR54G0cTqfdsQKSCryIiIiI1KrDP+zG9c9hxFPAdmc7UkZ9QGhYhN2xApYKvIiIiIjUmvwj2RS9\nNoRmHGa/0Yy4e/5DVKM4u2MFNBV4EREREakVnpIifnjhN7Qxd5NNLI5bPyChaQu7YwU8FXgRERER\nqXE+bzmb/nc4nbwbKCCCguvnkdwm1e5YDYIKvIiIiIjUKNPvZ83/3kKvkv+jzHKz/4o3aNs13e5Y\nDYYKvIiIiIjUGMs0WfHi3aTlf4LPcrDpvP+hc/8r7Y7VoKjAi4iIiEiNWfb6H0nPfg/TMljb58/0\nvOxmuyM1OCrwIiIiIlIjlv1jIv0P/B2AFV3G0/c399mcqGFSgRcRERGRs7b8X8+SsWMmAEvbPkT6\nbx+xOVHDpQIvIiIiImdl5YJXSFv/FABLk2+l/61P2ZyoYVOBFxEREZEztnbxXHqsGIfDsFieOJSM\nu2baHanBU4EXERERkTPy/Rfv0fnrB3AbflY2uoy0ka9hOFQva5u+wyIiIiJSbeu//ZCOS+4lxPCx\nOvICej44B4fTaXesoKACLyIiIiLVsmn5x7T95E7CDC9rI/rT9aF/4XKH2B0raKjAi4iIiMhp27r6\nC1ouvI0Io4zvw/rS6aH3CQkNsztWUFGBFxEREZHTsn3dtyT952aijFI2hPSgw4MfEBoWYXesoKMC\nLyIiIiKntGvDchLm30Ajitnk7kzKg/8hPDLa7lhBSQVeRERERE5q96aVxPzreuIoZKurIy0e+C+R\n0bF2xwpaKvAiIiIi8qt2b1pJo3euI54Ctjvb0fT+hUTHxNsdK6ipwIuIiIjICf2yvDce9TEx8Y3t\njhX0VOBFRERE5Di7Nq5Qea+nVOBFREREpIpdG1cQM2+oyns9pQIvIiIiIpVU3us/FXgRERERAWDn\n+uUq7wFABV5ERERE2Lb2a+LfrSjv25ztVd7rMRV4ERERkSC3ecVikuYPJ5YitrhSafKAynt95rI7\ngIiIiIjYZ8P/LaTNx7cTYZSx0d2VVg8uIKpRnN2x5CR0Bl5EREQkSGV+NZ+2H99GhFFGZmgvUkYv\nVHkPADoDLyIiIhKE1n72Np2+eoBQw8u68H6c89AHhIVH2h1LToPOwIuIiIgEmdWLZtH5q/sJNbys\niTyPTmM+VHkPICrwIiIiIkHku/n/Q4+lYwgx/KyKvoiuo98nJDTM7lhSDVpCIyIiIhIkls15ioyt\nM8CA7+Kuoc+oN3G6VAcDjWZMREREpIGzTJNlf3+E/vteA2BZ05tIv/cFDIcWYwQiFXgRERGRBsz0\n+/nupXvpf/hfACxNGUnGrU+rvAcwFXgRERGRBsrnLWfN//6ejPxFACzv9Bj9bxhncyo5WyrwIiIi\nIg2Qp7SYTc8NJ63kW3yWgzW9p5E+5H67Y0kNUIEXERERaWDyj2Rz4MVr6VWeSbnlYsO5M0m7/Hd2\nx5IaogIvIiIi0oAc/mE3Ra8NobO5m0IrnL2Xv06vc6+2O5bUIBV4ERERkQZi37Z1OOdcTxvrENnE\nkn/9O3TplmF3LKlhKvAiIiIiDcDW1V/S+D+/I44C9hvNcNz6Ae3apNodS2qBCryIiIhIgMv88n3a\nfX4fEUYZ25ztib/n3yQ0bWF3LKklZ30B0Ndeew3DMIiKijpu3+rVq7n00kuJiooiNjaWoUOHsnPn\nzhMe57nnniM1NZXQ0FDatGnDlClT8Hq9ZxtPREREpEFb8e8XOOfzu4gwysgM7UWz0YtV3hu4syrw\nBw4c4OGHHyY5Ofm4fZs3b2bgwIGUl5czb9483njjDbZu3cr555/P4cOHq4ydNm0ao0ePZujQoXz8\n8cfcf//9PP3004waNeps4omIiIg0WJZpsvTvY0lb8xghhp9V0Rdzzh8XEdUozu5oUsvOagnNfffd\nxwUXXEB8fDzvvvtulX0TJ04kNDSUBQsW0KhRIwD69OlDhw4dmDFjBs888wwAOTk5TJ06lbvvvpun\nn34agIEDB+L1epkwYQJjxoyhc+fOZxNTREREpEHxlpex5sU76H9kAQBLm91K+l1/w+F02pxM6sIZ\nn4GfPXs2X375JS+88MJx+3w+HwsWLGDYsGGV5R2gdevWXHTRRcyfP79y26JFi/B4PIwYMaLKMUaM\nGIFlWXzwwQdnGlFERESkwSkqOMKm/3c1/Y4swG8ZLO/0OP3vfU7lPYic0Rn4Q4cOMWbMGKZPn06L\nFsevsdqxYwelpaV07979uH3du3fn008/xePxEBYWxvr16wHo1q1blXHNmjUjMTGxcv/JbNiwAdM0\nz+SlnNRPa/C9Xi/r1q2r8eNL/aW5D06a9+CluQ9OgTjvhbkHafrVI3S3dlNqhfBVh8dJSr04YPLX\nF/Vt7h0OB61atTrt8WdU4O+//37OOeccRo4cecL9OTk5AMTHxx+3Lz4+HsuyOHLkCM2aNSMnJ4fQ\n0FAiIyNPOPanY52Mz+fD7/dX81VUj95QG7w098FJ8x68NPfBKRDmPe+H7XRZPZ5mZJNrNWJF96dI\naN01ILLXZ/Xh++es5v89qXaBf++99/jwww9Zs2YNhmGcdOzJ9h+773TH/RqXy4XDcdYX1DnOsRPq\ndrtr/PhSf2nug5PmPXhp7oNTIM171qZvGLDpKaKNUvbQjD3n/ZWkJqd/xlaqqm9zX90eW60CX1RU\nxKhRo3jwwQdJTk4mLy8PgPLycgDy8vJwu90kJCQAnPDseW5uLoZhEBsbC0BCQgIej4eSkhIiIiKO\nG9unT59T5urSpUutFPh169bh9Xpxu9306NGjxo8v9ZfmPjhp3oOX5j44Bcq8L5/3Fy7Z9GdchslG\nd1eS732PCxKT7I4V0Orb3JumSWFh4WmPr1brzc7O5uDBgzz77LPExcVVPubOnUtxcTFxcXHccsst\ntGvXjvDwcDIzM487RmZmJu3btycsLAz4ee37L8dmZWWRnZ1N165dqxNRREREpEHw+3wse+Fu0jdO\nw2WYrIgZRLs/fUqsynvQq9YZ+KSkJJYsWXLc9unTp/Pll1/y0UcfkZiYiMvlYvDgwbz//vv85S9/\nITo6GoC9e/eyZMkS/vCHP1Q+d9CgQYSFhTFr1izS09Mrt8+aNQvDMLj22mvP9LWJiIiIBKSigiPs\nePEGMkqXA7AsZRTpt07FqIUVBxJ4qlXgw8LCGDhw4HHbZ82ahdPprLJvypQppKWlcc011zBu3Dg8\nHg8TJ04kMTGRP/3pT5Xj4uPjmTBhAk888QTx8fFcfvnlrFixgsmTJ3PXXXfpGvAiIiISVLL2bafk\n78PoYe7GY7nZkP5XMq4aceonStA4qxs5nUxqaipffPEFY8eO5frrr8flcnHxxRczY8YMGjduXGXs\n+PHjiY6O5vnnn2fGjBkkJSUxbtw4xo8fX1vxREREROqdzSsWk/jfO2lLHtnEkjvkTfr0Hmh3LKln\naqTAz5o1i1mzZh23vU+fPixevPi0jvHQQw/x0EMP1UQcERERkYDz3fzn6Ll2MiGGj52OFCJuf5eO\nrTrYHUvqoVo7Ay8iIiIip+bzlrPytQfJOPg2GLA68nzOuW82kdGxdkeTekoFXkRERMQm+bmH2fPK\nDWR4VgGwtOXdpN/+DI5q3thHgosKvIiIiIgN9m5dizH3JrpbP1BihbI54xn6X6k3q8qpqcCLiIiI\n1LG1i+fS7us/EG2UkkVjioe9Re/uA+yOJQFCBV5ERESkjph+P8tnPUr/fa+BAZvcXWhy1zzaNW1h\ndzQJICrwIiIiInUg/0g2u1+5mf5Hb860PHEYve5+gZDQMJuTSaBRgRcRERGpZbs2rsD9r9/Tw/oR\nj+Ums9cU0q8dZXcsCVAq8CIiIiK1aNXC1+m0/DEijDKyaEzR0Fmk9TjP7lgSwFTgRURERGqBt7yM\nVa+PJuPgXDBgfWhPmt/1NkmNm9kdTQKcCryIiIhIDTt0YBc5s24mw7sRgGVJt9D3zr/hcofYnEwa\nAhV4ERERkRq0/ut/0+yzB+lEPoVWONsHPEPGFbfZHUsaEBV4ERERkRpg+v0s/8d4+u16CadhscPZ\nhtCbZtOrfVe7o0kDowIvIiIicpbysrPY89rv6O9ZAQZ8F3sV3e95lbCIKLujSQOkAi8iIiJyFjZ/\n9ymxC++jB9kVl4js8QT9ho62O5Y0YCrwIiIiImfA9PtZPvsJ0na+iMsw2W80o2zYLNK6ZdgdTRo4\nFXgRERGRasrO2sePf7+V/mWrwYCVjS4l9a7XiGoUZ3c0CQIq8CIiIiLVkPnVv2n2+UN0I49SK4TM\nnk+QNuQBDIfD7mgSJFTgRURERE6Dz1vOilmPkr5/Fg7DYpejNY7hf6dfpz52R5MgowIvIiIicgoH\ndm6iaM7t9PdtrrjKTPxgut35IuGR0XZHkyCkAi8iIiLyKyzTZOWHL9Fp9ZM0N0opIIJtaU/R7+q7\n7I4mQUwFXkREROQE8o9ks/2Nu0kr/BwM2OjuStzv3qBP63PsjiZBTgVeRERE5Bc2Lf+Y2I9G0YfD\n+CwHK1Luod/vp+F0qTqJ/fRfoYiIiMhR5WUeVr01jn77Z+E0LA4YTSm65iX6973Y7mgilVTgRURE\nRIDdm1bie/ce+vt3gAErYgbR6c6XaK5ru0s9owIvIiIiQc3v97Fs9mR6bftfQg0vR4hmV8ZU0gbd\nbnc0kRNSgRcREZGgVZh9gMQV0+nt3wgGrA3PoMVtr9I7qZXd0UR+lQq8iIiIBB3LNPlxxfuct+9l\nooxSiq0wNnQfR9p1o3VHVan3VOBFREQkqGTt286hf97LIM9KMGC9M5W4W2bRr20nu6OJnBYVeBER\nEQkKlmmyYv5MOn//DElGKR7LzReNf0eTAb+nucq7BBAVeBEREWnwsvZu49Cce+nnWQUGbHZ1Iqvv\nWBITW+J0qg5JYNEiLxEREWmwLNNk+b+eJer18+nuWYXHcrOswx/pMO4b4pq1tTueyBnRr5wiIiLS\nIO3bnknBvPtJL/++4qy7uzORv32JjA497I4mclZU4EVERKRB8ZaXsXLuk/Te+TItDS8lVijfd3yA\ntBsex+lS9ZHAp/+KRUREpMHYtuYrHAseor9/FxiQGdqbhBtfJKNNqt3RRGqMCryIiIgEvJKifL7/\nx1jSst7GaVjkEcW2no/T9zcjdV13aXBU4EVERCSgrV08l6RvniCDw2DAyuhLaPO7/yGtaQu7o4nU\nChV4ERERCUhZ+7bz49yH6FXybcXXNCbr/Kn0veRGm5OJ1C4VeBEREQkoPm85K+f9me5bnyfJKMNr\nOVmZfBM9bnmapKgYu+OJ1DoVeBEREQkYm1csxr3oYTKOvkl1k7szYdf+jf5d0u2OJlJnVOBFRESk\n3ss5uJ8dcx+hX95CAPKIYmu3R+h77YM4nE6b04nULRV4ERERqbd83nJWvvtXOm/5X/pRAsB3sVfR\n/uYZ9GvS3OZ0IvZQgRcREZF6aePSjwj/dBwZ5m4Atjvb4bvyr/Tre4m9wURspgIvIiIi9crB/TvY\nN+9R+hYsBiqWy2zp8gf6XjdGd1IVQQVeRERE6onS4kLWvvMkPffMoq9RjmkZrEj8Defc9BfSE5Ps\njidSb6jAi4iIiK0s02TVf1+l5apn6E/O0avLdMF19TOk9zzf7ngi9Y4KvIiIiNhm6+ovMReOpa9v\nE1BxM6YD/R6j96ARGA6HzelE6icVeBEREalzP+7ZwoH3Hq9c515ihbIuZQS9bniCpIgom9OJ1G8q\n8CIiIlJn8o9ks+mdifT6cR7NDC8AK2KuIOWGv9A/OcXecCIBQgVeREREal15mYfV780gdeuLZFAE\nBmwI6UHIVdNI0zp3kWpRgRcREZFaY/r9rPn4LZqumE6GlQXAbkdL8s+bQPeBv9U6d5EzUK2fms8/\n/5w77riD1NRUIiMjad68OUOGDGHVqlXHjV29ejWXXnopUVFRxMbGMnToUHbu3HnC4z733HOkpqYS\nGhpKmzZtmDJlCl6v98xekYiIiNjOMk0yv3yfnU+n0ee7MbSwssgmlu+6TqLFY6vpcfGNKu8iZ6ha\nPzkvvvgiu3fvZvTo0SxcuJCZM2dy6NAhMjIy+PzzzyvHbd68mYEDB1JeXs68efN444032Lp1K+ef\nfz6HDx+ucsxp06YxevRohg4dyscff8z999/P008/zahRo2rmFYqIiEid2rLyczZOH0i3JSNo799B\nkRXO0lb3EP6ndfS7/o+43CF2RxQJaNVaQvP888/TpEmTKtsGDRpE+/btefrpp7n44osBmDhxIqGh\noSxYsIBGjRoB0KdPHzp06MCMGTN45plnAMjJyWHq1KncfffdPP300wAMHDgQr9fLhAkTGDNmDJ07\ndz7rFykiIiK1b8+mVeQumEiv4m8AKLdcrE66no7DJtK/SXOb04k0HNU6A//L8g4QFRVF586d2bdv\nHwA+n48FCxYwbNiwyvIO0Lp1ay666CLmz59fuW3RokV4PB5GjBhR5ZgjRozAsiw++OCDar0YERER\nqXv7tmey8v8No+Xbl9Cr+Bv8lsF3sVeRe+cyMka+TLzKu0iNOus3sebn57N69erKs+87duygtLSU\n7t27Hze2e/fufPrpp3g8HsLCwli/fj0A3bp1qzKuWbNmJCYmVu4/lQ0bNmCa5lm+kuP9tA7f6/Wy\nbt26Gj++1F+a++CkeQ9emvszU3B4H8aq18ko+YKWhgkGfBeSTkmve4lLbs/BIyUcPFJ/v5+a9+BV\n3+be4XDQqlWr0x5/1gV+1KhRFBcXM378eKBiWQxAfHz8cWPj4+OxLIsjR47QrFkzcnJyCA0NJTIy\n8oRjfzrWqfh8Pvx+/1m8ilPTm2qDl+Y+OGneg5fm/tQKc3/EsfYtBhR/htvwgwEr3X3I7Xw78S07\nE0XgfR8DLa/UnPow906ns1rjz6rAP/HEE/zzn//kueeeo0+fPlX2GYbxq887dt/pjjsZl8uFoxbe\nyX7shLrd7ho/vtRfmvvgpHkPXpr701OQvR9z9VucW7SYEMMHBqx29SS3yx00btuTpnYHrCbNe/Cq\nb3Nf3R57xgV+ypQpTJ06lWnTpvHAAw9Ubk9ISAA44dnz3NxcDMMgNja2cqzH46GkpISIiIjjxv7y\nl4Jf06VLl1op8OvWrcPr9eItw9CgAAAcCklEQVR2u+nRo0eNH1/qL819cNK8By/N/ckd2LmBAx9O\nIyN3UeUZ9w0hPXBcMp7e6VfYHe+Mad6DV32be9M0KSwsPO3xZ1Tgp0yZwuTJk5k8eTKPP/54lX3t\n2rUjPDyczMzM456XmZlJ+/btCQsLA35e+56ZmUl6enrluKysLLKzs+nateuZxBMREZEasG/bOrIW\nTKNX3qc0P7rGPTO0F86BY+nS/0q744kErWqftn7qqaeYPHkyEyZMYNKkScftd7lcDB48mPfff7/K\nbxJ79+5lyZIlDB06tHLboEGDCAsLY9asWVWOMWvWLAzD4Nprr61uPBERETlLOzKXserZ60iefSFp\n+R/jMkzWhaWx+er36PbYF3RWeRexVbXOwD/77LNMnDiRQYMGcfXVV7Ns2bIq+zMyMoCKM/RpaWlc\nc801jBs3Do/Hw8SJE0lMTORPf/pT5fj4+HgmTJjAE088QXx8PJdffjkrVqxg8uTJ3HXXXboGvIiI\nSB2xTJNN332C94sZ9PCsqNhowJqIAUReOo4evS+0N6CIVKpWgf/www+Biuu3L1q06Lj9lmUBkJqa\nyhdffMHYsWO5/vrrcblcXHzxxcyYMYPGjRtXec748eOJjo7m+eefZ8aMGSQlJTFu3LjKq9qIiIhI\n7bFMk3VL5hG2bCadvRsB8FsGaxpdTNzlj9KrW4bNCUXkl6pV4L/44ovTHtunTx8WL158WmMfeugh\nHnrooepEERERkbNQ5ilh3Uev0zjzVXqae4CKO6euSbyaFlePpW/bLjYnFJFfc9bXgRcREZHAkZ97\nmI0f/o32u/5JP44AUGSFk5k8jA6DHyU9ubXNCUXkVFTgRUREgsAPuzazd+EMuh/6D/2NMgAOEc/O\ntr+j0+DR9I9LtDmhiJwuFXgREZEGyjJNNi3/GM83z9Oj6BuSDQsM2OlIIafHvfQYdAcZoWF2xxSR\nalKBFxERaWDKPCV8v+gN4jLfoLN/R8VGAzJDe8O5D9H1vCG0rYUbIIpI3VCBFxERaSCyf9jDto/+\nh477/kUa+QB4LDffJwyi8aWj6dY5zeaEIlITVOBFREQC2E/LZEq/fYnuhV/T3/ADFevbd7S5mU5X\nP0i/xCSbU4pITVKBFxERCUBFBUfYsOhVmmyeTeejl4HEgM3uzhT3vJPul/2e/iGh9oYUkVqhAi8i\nIhJAdq5fzuEvXqLL4Y9IN0oBKLFCyUy4gsSBI0ntPsDmhCJS21TgRURE6rmSonzWf/omMRtmc45v\nC20BDNhnJHOgwy10uvI+0nUZSJGgoQIvIiJST+3IXEb2ly/T+fBH9Dt6tt1rOcmMPg93vzvpet5g\nWupqMiJBRwVeRESkHsnPPczmT98gfus8Ovi30w7AgP1GEvvb/Jb2l99D76SWdscUERupwIuIiNjM\n9PvZ8O0Cyla8SbeCr0g3vACUW07WR59HSPqddB5wDS2cTpuTikh9oAIvIiJik33bMznwxd9J2f8f\nunG4YuPRO6Ue6vBbzrn0Dno3bmZvSBGpd1TgRURE6lBedhZbPnuT2G3vc45vMz8thikgkk2JV5Bw\n/p206zZAd0oVkV+lAi8iIlLLPKXFbPzqfYzv36ZL0VLSj95syWc52BDRF2/X39L14ptJD4+0OamI\nBAIVeBERkVrg85azael/KV09j05HltD76FVkMGCHsy2H215H+0tup0dSK1tzikjgUYEXERGpIZZp\nsmX1EvKWz6X94U/pRl7FDgMOksCupEE0Pf822nVJr7i6jIjIGVCBFxEROQuWabJt7dfkfvcOrbM+\nIfWnN6MCeUSxJeESovveRGq/y2mqq8iISA1QgRcREakmyzTZvu4bso+W9o7Wocp9JVYoG2POx91z\nOJ3OvZb00DAbk4pIQ6QCLyIichr8Ph9bV31G/ur3aX3wMzpwmA5H95VYoWxqNABH1+vodP4w+kZE\n2ZpVRBo2FXgREZFfUV7mYcuyhZR8/wHtcr6k009r2jla2qP7Yxwt7X0io21MKiLBRAVeRETkGPlH\nstn27fsYWz6iQ+EyulFSua+ACLbEnIeryxBSzx2i0i4itlCBFxGRoJd/eD/FW5fQLGcZEb6N9D16\nnXaAbGLZkXAhEd2v5ZyMq0jTmnYRsZkKvIiIBB1veRlbV35G4fcLSDr0FReY+37eacBuR0t+TLqI\nuF5D6NBrIOku/XMpIvWH/kYSEZGgkJ21j13L/o1z+ye0L1pBl2OWxvgsBxudqWQlDqDz5SNIad+V\nFPuiioiclAq8iIg0SOVlHrau/JTC9Z/Q5NA3tPPvJPGY/UdoxPaYDBwdr8Ab1xFXSARN3W5atO9q\nW2YRkdOhAi8iIg2CZZrs3fY9WWsXEbrnCzoUr6Gr4akyZruzHYebXUhcz2vo0PNC0o4ujVm3bh1e\nr9eO2CIi1aYCLyIiASv7hz3sXrkQa8cXtM7/jtbk0vqnnQbkEMOuRv2g/aW0Sb+G9k1b0N7OwCIi\nNUAFXkREAsaRwz+ya9XHeLd/RdPcFaSYe6ssiym3XGwN60ph8rk07nk1bbtmkOB02pZXRKQ2qMCL\niEi9lZedxa7Viynb9gVNclbQ1txN3DH7Tctgh6sd2U0GENXpUjr0vYSuuguqiDRwKvAiIlJvHDqw\ni71rPsW/61uaHllNirmXXr8Ys9vRioPxabjbX0DbvoPokJhEB1vSiojYQwVeRERsYfr97NmymkMb\nvsKxfznJBWtpbh2kyS/G7XG0ICuuL652A0npcxkpTVvoEo8iEtRU4EVEpE4UFRxh9/dfU7jtWyIP\nriLFs4E2lNDmmDF+y2Cnqx05CX0IaXc+Kb0upnWT5j+/MVVERFTgRUSk5vl9PvZuXcPhTd/C/hU0\nzs+ktX8vXQ2ryrgSK5SdYZ0oatyHiHYDaNP7YjrExGtJjIjISajAi4jIWbFMkx/3buPHjf+Hd+8K\nonPX07psK22M0ipn1zEgi8YciO6GNzmNxM4XkNK5H13dIXZFFxEJSCrwIiJy2izTJGvfNn7c/B1l\n+1YTmZ1JS88Wkikg+diBRsXZ9V2hqRQk9iAsJZ2W3S8gKakVSXaFFxFpIFTgRUTkhPw+Hwd2rufw\ntpWU719HVG4mLcu20Ywimv1ibLnlZI+rDbmxXXE0701Cxwxap/ahi0v/zIiI1DT9zSoiIhTm53Jg\nyyryd6+BrExiC7bQ0rubVkYZrX4x1ms52etqTU50KlazHsR1yKBVpzQ6hEfakl1EJNiowIuIBBFv\neRn7t39Pzs41eH9YT/iRLTQt3UEzDpP6y8EGlFoh7HOncCSmM0azHsS1T6NVah/ahUXQzo4XICIi\nKvAiIg1ReZmHH3auJ2dXJuU/biD0yFbiS3bS3P8DbQx/1TeXHnWIeH4Ma0dJfGdCmnencYe+NG/b\nlY5aBiMiUq/ob2URkQBWkJfDj9vXUbB/I76DWwjL306CZw/N/FmkGP7jb3hkQJEVzn53CvmNOkCT\nzkS16kHzjr1pkph03E2URESk/lGBFxGp5zylxRzcvZncfZsoy9qC48gOoor20MS7n0TyaHSiJxlQ\nbIVxwN2KvKj2mInnEN68C03b9aRpi3akOhx1/TJERKSGqMCLiNQDhfm5HNq7lfwDmyk/tANH3i4i\ni/aSUH6AJlYOrQ3rV+9Geoh4DoW2oji6LVZCByKbd6Jxm240bd6WjirqIiINjgq8iEgdKPOUcGj/\nDvJ+2E7poV34c3cRUriP6NIDNPb9SByFRP/ak48ue/nR3YL8iNZ4Y9vibtKBmBadSGrThSYx8Vr6\nIiISRFTgRURqQEFeDjkHtlNwcBee7L2YeftwFx4gqvQH4n0HaUIuLYGWJznGEaI57GpGQUQrvDEp\nuBLbEZ3ckSatOxGX2IwOOpsuIiKowIuInJRlmhTk5ZCbtZvCg3vw5O7Dn3cAZ9EPhJUepFH5IRL8\nh2lklJ54LfoxSqxQDjmbkB+ShCeqJVZcCqGN29GoWXuatOpIXEw8cXXyqkREJJCpwItIUPqpmOcd\n3EthzgE8uT+Qu28LrtJswr25bFyQRyNfNglmLjFGOTEnO5hR8eEI0eQ4m1AY2pTyiGZYMS0ISWxD\nVNO2JLZoT1xiM1J0Fl1ERM6SCryINBh+n4/83IMU5mRRlJuFJz8Lb/5BrKJDOEsOE1KWQ0R5DtG+\nI8RbecQY3pMXc6gs5/lEkutoTEFoEzzhSZjRyThjmxMe34JGSW1p3LwNcVExOoMuIiK1TgVeROol\nyzQpKsyjMPcQxXmH8BRkU1ZwGF9RNhTnYJTm4C7LJbQ8j0hfHo3MPGKsQuINi/jT+QOOFvMCIjni\niKfIFU++I4ZSdxy+8MYktu5EeEILYpq0JiGpJTERUacu+yIiInVABV5Eao1lmpSWFFKUn0tJQQ6l\nBTmUFR3BV1zxsErzMDxHcJbl4y7PJ9RXQIS/kCizgEZWEdGG/9evzHIiR0t5HlEUOGIodsZSGpKA\nNzwRM7IJjqgmhMQ0JTy+GY0SWxDfpDmNIqIq166vW7eOEK8Xt9tNjx49avi7ISIiUjPqRYEvKipi\nwoQJzJs3j9zcXFJTUxk3bhw33nij3dFEgpJlmpQUF1BamE9pcR6e4gLKiwvwlhbgK8nH7ynE8hRg\nlRXiKK94uLyFhPiKCPUXE24WEWGVEGWVEGH4iTiTEEfLeKkVQoERTbEjmhJ3LGXuWHxh8ZjhCTgi\nE3BGJxIanUhkfDKN4pOISUwiNiSU2Jr8hoiIiNQj9aLADx06lBUrVjB9+nQ6duzInDlzuOmmmzBN\nk5tvvtnueCL1jmWaeL3leEqLKfcUU1ZSjLesmPLSYryeYnyeIvxlxfjLSjDLi7HKi7HKSzDKizF8\npTi8JTj9Jbh8pbj8pYSYpYSapYRZpYRbHiLwEGlYRJ5t0KMl3Gc5KDSiKDYiKXVG4XFG4XVH4w2J\nxQyLxQiLxREZjysyjpDoBCJimhAZm0hMfFPCI6IIP9scIiIiDYjtBX7hwoV8+umnlaUd4KKLLmLP\nnj088sgj3HDDDTidTptTilSUZp/Pi89bTnl5Gb5yDz5vGb7ycvy+MnzlZfi9ZfjLPfi8HkxvOX6v\nB9NXhuktw/JVfeArB38Zhq8Mw1+Gw1+G4S/HaVZ87jLLcJnluKwyQswy3JaXEMoItcoJpZwQwySk\nNl6o8fOnpmVQQhglRjgeRzhljgjKnJF4XVH4XFGYIVGYIdEYodEY4TE4I2JwR8QSGhlLWHQc4dFx\nRMUkEBHZiDiHQ2/wFBERqQG2F/j58+cTFRXF8OHDq2wfMWIEN998M8uXL2fAgAE2patfLNPEsqyK\nzy0LyzKPfvxp29H9R7dZlolp/jzmp31Ubjcrx2FamNbRbT/tMy0sy//zR8vCMk2wjo41TSzTX/Hn\n+P2Vn2Oax+z3YZkWWH5M0w+WH8v/0/F9Pz+n8vl+MCs+r/x4dBvH7K94+MDyYxwzxrAqthumD8Oq\n+Pqnzx1WxXaH5cNh+Y8+fDgtH07LjwP/0c99NMOHy/LjxE/J+z5c+Agx/LgBN9h7Rtio+qVpGXgI\nocwIpYxQyhxhlBuheB1h+Jxh+J1h+J3h+N0RWK4IcEdghUTiCInACI3CFRaFKywad0Q0IeHRhERE\nEx4VQ0RUDOER0UQ5HETZ80pFRETkBAzrp/Znk/79++P3+/nuu++qbN+wYQNdu3bl5Zdf5p577qnc\nbpomhYWFVcbu3bsX0zRrPJvX66383O12V9mX//FU+hR/edxzjCqfW7/YZ1UZ8/N+67htxtFtDsPW\n6ZFTKLeceHHhO/rwGi68uPEZLnxHP/oNFz4jBJ/hxm+48TsqHqYRgukIwXSGYDncmI4QLGcIltMN\nzlBwhmK4QjBcoRiuUBzuio9OdxhOdxiu0DDc7jCcLjeGri1eI072My8Nm+Y+OGneg1d9m3uHw0Gr\nVq2qbIuOjsbxK/++234GPicnh7Zt2x63PT4+vnL/qfh8Pvx+f41nO9axEw3gMMuJNMpq9c+sK6ZV\n8WuDiQMLsCo/GpgYWDiOfvzpASZOTMOoMsbCwI+j8nMTA8swMKlYAmXiqPgzDEeV55jG0ecYx+6v\n+GjhOLrfWfG14Ty67+evf/7cgWW4wOGs3M7RMThcWA4HGC4Mw4nlcGE4nFgOB4bDDQ4nhsON4XSC\no6IQO5whGE4nhtONw+HC4XRhuFw4nSE4XW4cDme1i7Pz6KOmWIDP74da/u8/GP3yZ16Ch+Y+OGne\ng1d9mPvqLhe3vcADGIZxRvt+4nK5fvU3lLNxst/Oygc8xFdld1V+fWxO65jz8MfHN6rs+Pl5VT8a\nx+2veI6BAY5jjo+j8msDA8OoKM0VZ+8rSq1hVOyr+KRijHH0WPXlzK1x9FE/0tS/38ylbmjeg5fm\nPjhp3oNXfZv76vZY2wt8QkLCCc+y5+bmAj+fiT+ZLl261EqBX7duHV5dEzooae6Dk+Y9eGnug5Pm\nPXjVt7k/0RLxk7H9hGe3bt3YtGkTPp+vyvbMzEwAunbtakcsEREREZF6yfYCf91111FUVMR7771X\nZfubb75JcnIy6enpNiUTEREREal/bF9Cc+WVV3LZZZcxcuRICgoKaN++PXPnzmXRokXMnj1b14AX\nERERETmG7QUe4P3332f8+PFMnDiR3NxcUlNTmTt3LjfeeKPd0URERERE6pV6UeCjoqKYOXMmM2fO\ntDuKiIiIiEi9Vi8KfHWc6L5TtXETJ6i4pI/T6cThcNTanyH1k+Y+OGneg5fmPjhp3oNXfZv7E2U4\n2b1Wbb8Ta3X5fD6Ki4vtjiEiIiIiUmsiIyNxuU58rt32q9CIiIiIiMjpU4EXEREREQkgKvAiIiIi\nIgEk4NbAm6Z53EJ/wzAwDMOmRCIiIiIiZ86yrOPetOpwOHA4TnyuPeAKvIiIiIhIMNMSGhERERGR\nAKICLyIiIiISQFTgT6CoqIgxY8aQnJxMWFgYPXv25O2337Y7ltSyzz//nDvuuIPU1FQiIyNp3rw5\nQ4YMYdWqVXZHkzr22muvYRgGUVFRdkeROvDNN99w1VVXERcXR3h4OB06dOCpp56yO5bUojVr1nDt\ntdeSnJxMREQEqampPPnkk5SUlNgdTWpIYWEhjz76KJdffjmNGzfGMAwmT558wrGrV6/m0ksvJSoq\nitjYWIYOHcrOnTvrNnA1qcCfwNChQ3nzzTeZNGkSH330EWlpadx0003MmTPH7mhSi1588UV2797N\n6NGjWbhwITNnzuTQoUNkZGTw+eef2x1P6siBAwd4+OGHSU5OtjuK1IE5c+Zw4YUXEhMTw1tvvcXC\nhQsZO3bsSe+AKIFt48aNDBgwgN27d/O3v/2NBQsWcOONN/Lkk09y00032R1PakhOTg6vvPIKZWVl\nXHvttb86bvPmzQwcOJDy8nLmzZvHG2+8wdatWzn//PM5fPhwHSauJkuq+O9//2sB1pw5c6psv+yy\ny6zk5GTL5/PZlExq28GDB4/bVlhYaDVt2tS65JJLbEgkdrjmmmuswYMHW7fddpsVGRlpdxypRfv3\n77ciIyOtkSNH2h1F6tD48eMtwNq+fXuV7ffcc48FWLm5uTYlk5pkmqZlmqZlWZZ1+PBhC7AmTZp0\n3Ljhw4dbiYmJVn5+fuW23bt3W26323r00UfrKm616Qz8L8yfP5+oqCiGDx9eZfuIESP44YcfWL58\nuU3JpLY1adLkuG1RUVF07tyZffv22ZBI6trs2bP58ssveeGFF+yOInXgtddeo7i4mLFjx9odReqQ\n2+0GICYmpsr22NhYHA4HISEhdsSSGnY6lxj3+XwsWLCAYcOG0ahRo8rtrVu35qKLLmL+/Pm1HfOM\nqcD/wvr16+nUqRMul6vK9u7du1ful+CRn5/P6tWr6dKli91RpJYdOnSIMWPGMH36dFq0aGF3HKkD\nX331FfHx8WzevJmePXvicrlo0qQJ9913HwUFBXbHk1py2223ERsby8iRI9m5cyeFhYUsWLCAl19+\nmVGjRhEZGWl3RKkjO3bsoLS0tLLjHat79+5s374dj8djQ7JTU4H/hZycHOLj44/b/tO2nJycuo4k\nNho1ahTFxcWMHz/e7ihSy+6//37OOeccRo4caXcUqSMHDhygpKSE4cOHc8MNN7B48WIeeeQR3nrr\nLa666iqtg2+gUlJSWLp0KevXr6ddu3Y0atSIwYMHc9tttzFz5ky740kd+qnT/VrvsyyLI0eO1HWs\n0+I69ZDgc7L/5aI7vgaPJ554gn/+858899xz9OnTx+44Uovee+89PvzwQ9asWaOf8SBimiYej4dJ\nkyYxbtw4AAYOHEhISAhjxozhs88+49JLL7U5pdS03bt3M3jwYJo2bcq7775L48aNWb58OVOnTqWo\nqIjXX3/d7ohSxwKx96nA/0JCQsIJz7Ln5uYCJ/4tTRqeKVOmMHXqVKZNm8YDDzxgdxypRUVFRYwa\nNYoHH3yQ5ORk8vLyACgvLwcgLy8Pt9ut/63eACUkJLBt2zauuOKKKtuvvPJKxowZU3lpOWlYxo0b\nR0FBAWvXrq38ub7gggtITEzkjjvu4NZbb+XCCy+0OaXUhYSEBODEqytyc3MxDIPY2Ni6jnVatITm\nF7p168amTZvw+XxVtmdmZgLQtWtXO2JJHZoyZQqTJ09m8uTJPP7443bHkVqWnZ3NwYMHefbZZ4mL\ni6t8zJ07l+LiYuLi4rjlllvsjim14ETrXoHKpTMOh/6JbIjWrl1L586dj/ulPC0tDdB73YJJu3bt\nCA8Pr+x4x8rMzKR9+/aEhYXZkOzU9LfTL1x33XUUFRXx3nvvVdn+5ptvkpycTHp6uk3JpC489dRT\nTJ48mQkTJjBp0iS740gdSEpKYsmSJcc9rrjiCsLCwliyZAlTp061O6bUgmHDhgHw0UcfVdm+cOFC\nADIyMuo8k9S+5ORkNmzYQFFRUZXtS5cuBdCb2IOIy+Vi8ODBvP/++xQWFlZu37t3L0uWLGHo0KE2\npjs5w9K7dI5z+eWXs3LlSp555hnat2/P3LlzefXVV5k9e7bOxDVgzz77LA8//DCDBg06YXnXP+bB\n5fbbb+fdd9897h95aVh+85vf8MknnzBhwgQyMjJYuXIlU6ZM4dJLL+XDDz+0O57Ugv/85z9ce+21\npKen84c//IHExESWLVvGn//8Z1q1asWaNWt0KckG4qOPPqK4uJjCwkLuuOMOhg8fzm9/+1sArrrq\nKiIiIti8eTNpaWn07t2bcePG4fF4mDhxIrm5uaxdu5bGjRvb/CpOTAX+BIqKihg/fjzz5s0jNzeX\n1NRUHnvsMW688Ua7o0ktGjhwIF9++eWv7tePSnBRgQ8OpaWlTJkyhTlz5vDjjz+SnJzMLbfcwqRJ\nkwgNDbU7ntSSJUuWMH36dL7//nvy8/Np2bIlgwcP5rHHHqtcFy2BLyUlhT179pxw365du0hJSQFg\n1apVjB07lqVLl+Jyubj44ouZMWMG7dq1q8O01aMCLyIiIiISQLQGXkREREQkgKjAi4iIiIgEEBV4\nEREREZEAogIvIiIiIhJAVOBFRERERAKICryIiIiISABRgRcRERERCSAq8CIiIiIiAUQFXkREREQk\ngKjAi4iIiIgEEBV4EREREZEA8v8B1d9GpbvEdfoAAAAASUVORK5CYII=\n",
      "text/plain": [
       "<matplotlib.figure.Figure at 0x15d272a1828>"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "import math\n",
    "import numpy as np\n",
    "t = 0.\n",
    "y = 1.\n",
    "dt = .1\n",
    "\n",
    "ys, ts = [], []\n",
    "\n",
    "def func(y,t):\n",
    "    return t*math.sqrt(y)\n",
    "\n",
    "while t <= 10:\n",
    "    y = runge_kutta4(y, t, dt, func)\n",
    "    t += dt\n",
    "    ys.append(y)\n",
    "    ts.append(t)\n",
    "\n",
    "exact = [(t**2 + 4)**2 / 16. for t in ts]\n",
    "plt.plot(ts, ys)\n",
    "plt.plot(ts, exact)\n",
    "\n",
    "error = np.array(exact) - np.array(ys)\n",
    "print(\"max error {:.5f}\".format(max(error)))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Bayesian Filtering\n",
    "\n",
    "Starting in the Discrete Bayes chapter I used a Bayesian formulation for filtering. Suppose we are tracking an object. We define its *state* at a specific time as its position, velocity, and so on. For example, we might write the state at time $t$ as $\\mathbf x_t = \\begin{bmatrix}x_t &\\dot x_t \\end{bmatrix}^\\mathsf T$. \n",
    "\n",
    "When we take a measurement of the object we are measuring the state or part of it. Sensors are noisy, so the measurement is corrupted with noise. Clearly though, the measurement is determined by the state. That is, a change in state may change the measurement, but a change in measurement will not change the state.\n",
    "\n",
    "In filtering our goal is to compute an optimal estimate for a set of states $\\mathbf x_{0:t}$ from time 0 to time $t$. If we knew $\\mathbf x_{0:t}$ then it would be trivial to compute a set of measurements $\\mathbf z_{0:t}$ corresponding to those states. However, we receive a set of measurements $\\mathbf z_{0:t}$, and want to compute the corresponding states $\\mathbf x_{0:t}$. This is called *statistical inversion* because we are trying to compute the input from the output. \n",
    "\n",
    "Inversion is a difficult problem because there is typically no unique solution. For a given set of states $\\mathbf x_{0:t}$ there is only one possible set of measurements (plus noise), but for a given set of measurements there are many different sets of states that could have led to those measurements. \n",
    "\n",
    "Recall Bayes Theorem:\n",
    "\n",
    "$$P(x \\mid z) = \\frac{P(z \\mid x)P(x)}{P(z)}$$\n",
    "\n",
    "where $P(z \\mid x)$ is the *likelihood* of the measurement $z$, $P(x)$ is the *prior* based on our process model, and $P(z)$ is a normalization constant. $P(x \\mid z)$ is the *posterior*, or the distribution after incorporating the measurement $z$, also called the *evidence*.\n",
    "\n",
    "This is a *statistical inversion* as it goes from $P(z \\mid x)$ to $P(x \\mid z)$. The solution to our filtering problem can be expressed as:\n",
    "\n",
    "$$P(\\mathbf x_{0:t} \\mid \\mathbf z_{0:t}) = \\frac{P(\\mathbf z_{0:t} \\mid \\mathbf x_{0:t})P(\\mathbf x_{0:t})}{P(\\mathbf z_{0:t})}$$\n",
    "\n",
    "That is all well and good until the next measurement $\\mathbf z_{t+1}$ comes in, at which point we need to recompute the entire expression for the range $0:t+1$. \n",
    "\n",
    "In practice this is intractable because we are trying to compute the posterior distribution $P(\\mathbf x_{0:t} \\mid \\mathbf z_{0:t})$ for the state over the full range of time steps. But do we really care about the probability distribution at the third step (say) when we just received the tenth measurement? Not usually. So we relax our requirements and only compute the distributions for the current time step. \n",
    "\n",
    "The first simplification is we describe our process (e.g., the motion model for a moving object) as a *Markov chain*. That is, we say that the current state is solely dependent on the previous state and a transition probability $P(\\mathbf x_k \\mid \\mathbf x_{k-1})$, which is just the probability of going from the last state to the current one. We write:\n",
    "\n",
    "$$\\mathbf x_k \\sim P(\\mathbf x_k \\mid \\mathbf x_{k-1})$$\n",
    "\n",
    "In practice this is extremely reasonable, as many things have the *Markov property*. If you are driving in a parking lot, does your position in the next second depend on whether you pulled off the interstate or were creeping along on a dirt road one minute ago? No. Your position in the next second depends solely on your current position, speed, and control inputs, not on what happened a minute ago. Thus, cars have the Markov property, and we can make this simplification with no loss of precision or generality.\n",
    "\n",
    "The next simplification we make is do define the *measurement model* as depending on the current state $\\mathbf x_k$ with the conditional probability of the measurement given the current state: $P(\\mathbf z_t \\mid \\mathbf x_x)$. We write:\n",
    "\n",
    "$$\\mathbf z_k \\sim P(\\mathbf z_t \\mid \\mathbf x_x)$$\n",
    "\n",
    "We have a recurrance now, so we need an initial condition to terminate it. Therefore we say that the initial distribution is the probablity of the state $\\mathbf x_0$:\n",
    "\n",
    "$$\\mathbf x_0 \\sim P(\\mathbf x_0)$$\n",
    "\n",
    "\n",
    "These terms are plugged into Bayes equation. If we have the state $\\mathbf x_0$ and the first measurement we can estimate $P(\\mathbf x_1 | \\mathbf z_1)$. The motion model creates the prior $P(\\mathbf x_2 \\mid \\mathbf x_1)$. We feed this back into Bayes theorem to compute $P(\\mathbf x_2 | \\mathbf z_2)$. We continue this predictor-corrector algorithm, recursively computing the state and distribution at time $t$ based solely on the state and distribution at time $t-1$ and the measurement at time $t$.\n",
    "\n",
    "The details of the mathematics for this computation varies based on the problem. The **Discrete Bayes** and **Univariate Kalman Filter** chapters gave two different formulations which you should have been able to reason through. The univariate Kalman filter assumes that for a scalar state both the noise and process are linear model are affected by zero-mean, uncorrelated Gaussian noise. \n",
    "\n",
    "The Multivariate Kalman filter make the same assumption but for states and measurements that are vectors, not scalars. Dr. Kalman was able to prove that if these assumptions hold true then the Kalman filter is *optimal* in a least squares sense. Colloquially this means there is no way to derive more information from the noisy measurements. In the remainder of the book I will present filters that relax the constraints on linearity and Gaussian noise.\n",
    "\n",
    "Before I go on, a few more words about statistical inversion. As Calvetti and Somersalo write in *Introduction to Bayesian Scientific Computing*, \"we adopt the Bayesian point of view: *randomness simply means lack of information*.\"[3] Our state parameterizes physical phenomena that we could in principle measure or compute: velocity, air drag, and so on. We lack enough information to compute or measure their value, so we opt to consider them as random variables. Strictly speaking they are not random, thus this is a subjective position. \n",
    "\n",
    "They devote a full chapter to this topic. I can spare a paragraph. Bayesian filters are possible because we ascribe statistical properties to unknown parameters. In the case of the Kalman filter we have closed-form solutions to find an optimal estimate. Other filters, such as the discrete Bayes filter or the particle filter which we cover in a later chapter, model the probability in a more ad-hoc, non-optimal manner. The power of our technique comes from treating lack of information as a random variable, describing that random variable as a probability distribution, and then using Bayes Theorem to solve the statistical inference problem."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Converting Kalman Filter to a g-h Filter\n",
    "\n",
    "I've stated that the Kalman filter is a form of the g-h filter. It just takes some algebra to prove it. It's more straightforward to do with the one dimensional case, so I will do that. Recall \n",
    "\n",
    "$$\n",
    "\\mu_{x}=\\frac{\\sigma_1^2 \\mu_2 + \\sigma_2^2 \\mu_1} {\\sigma_1^2 + \\sigma_2^2}\n",
    "$$\n",
    "\n",
    "which I will make more friendly for our eyes as:\n",
    "\n",
    "$$\n",
    "\\mu_{x}=\\frac{ya + xb} {a+b}\n",
    "$$\n",
    "\n",
    "We can easily put this into the g-h form with the following algebra\n",
    "\n",
    "$$\n",
    "\\begin{aligned}\n",
    "\\mu_{x}&=(x-x) + \\frac{ya + xb} {a+b} \\\\\n",
    "\\mu_{x}&=x-\\frac{a+b}{a+b}x  + \\frac{ya + xb} {a+b} \\\\ \n",
    "\\mu_{x}&=x +\\frac{-x(a+b) + xb+ya}{a+b} \\\\\n",
    "\\mu_{x}&=x+ \\frac{-xa+ya}{a+b}  \\\\\n",
    "\\mu_{x}&=x+ \\frac{a}{a+b}(y-x)\\\\\n",
    "\\end{aligned}\n",
    "$$\n",
    "\n",
    "We are almost done, but recall that the variance of estimate is given by \n",
    "\n",
    "$$\\begin{aligned}\n",
    "\\sigma_{x}^2 &= \\frac{1}{\\frac{1}{\\sigma_1^2} +  \\frac{1}{\\sigma_2^2}} \\\\\n",
    "&= \\frac{1}{\\frac{1}{a} +  \\frac{1}{b}}\n",
    "\\end{aligned}$$\n",
    "\n",
    "We can incorporate that term into our equation above by observing that\n",
    "\n",
    "$$ \n",
    "\\begin{aligned}\n",
    "\\frac{a}{a+b} &= \\frac{a/a}{(a+b)/a} = \\frac{1}{(a+b)/a}  \\\\\n",
    " &= \\frac{1}{1 + \\frac{b}{a}} = \\frac{1}{\\frac{b}{b} + \\frac{b}{a}}  \\\\\n",
    " &= \\frac{1}{b}\\frac{1}{\\frac{1}{b} + \\frac{1}{a}} \\\\\n",
    " &= \\frac{\\sigma^2_{x'}}{b}\n",
    " \\end{aligned}\n",
    "$$\n",
    "\n",
    "We can tie all of this together with\n",
    "\n",
    "$$\n",
    "\\begin{aligned}\n",
    "\\mu_{x}&=x+ \\frac{a}{a+b}(y-x) \\\\\n",
    "&= x + \\frac{\\sigma^2_{x'}}{b}(y-x) \\\\\n",
    "&= x + g_n(y-x)\n",
    "\\end{aligned}\n",
    "$$\n",
    "\n",
    "where\n",
    "\n",
    "$$g_n = \\frac{\\sigma^2_{x}}{\\sigma^2_{y}}$$\n",
    "\n",
    "The end result is multiplying the residual of the two measurements by a constant and adding to our previous value, which is the $g$ equation for the g-h filter. $g$ is the variance of the new estimate divided by the variance of the measurement. Of course in this case $g$ is not a constant as it varies with each time step as the variance changes. We can also derive the formula for $h$ in the same way. It is not a particularly illuminating derivation and I will skip it. The end result is\n",
    "\n",
    "$$h_n = \\frac{COV (x,\\dot x)}{\\sigma^2_{y}}$$\n",
    "\n",
    "The takeaway point is that $g$ and $h$ are specified fully by the variance and covariances of the measurement and predictions at time $n$. In other words, we are picking a point between the measurement and prediction by a scale factor determined by the quality of each of those two inputs."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## References"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    " * [1] C.B. Molwer and C.F. Van Loan \"Nineteen Dubious Ways to Compute the Exponential of a Matrix, Twenty-Five Years Later,\", *SIAM Review 45, 3-49*. 2003.\n",
    "\n",
    "\n",
    " * [2] C.F. van Loan, \"Computing Integrals Involving the Matrix Exponential,\" IEEE *Transactions Automatic Control*, June 1978.\n",
    " \n",
    " \n",
    " * [3] Calvetti, D and Somersalo E, \"Introduction to Bayesian Scientific Computing: Ten Lectures on Subjective Computing,\", *Springer*, 2007.\n",
    " \n",
    " * [4] Brown, R. G. and Hwang, P. Y.C., \"Introduction to Random Signals and Applied Kalman Filtering\", *Wiley and Sons*, Fourth Edition, p.143-147, 2012. \n",
    " "
   ]
  }
 ],
 "metadata": {
  "anaconda-cloud": {},
  "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.6.4"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 1
}