{ "cells": [ { "cell_type": "markdown", "metadata": {}, "source": [ "(dyn_stack)=\n", "```{raw} html\n", "
\n", " \n", " \"QuantEcon\"\n", " \n", "
\n", "```\n", "\n", "# Stackelberg Plans\n", "\n", "```{contents} Contents\n", ":depth: 2\n", "```\n", "\n", "In addition to what's in Anaconda, this lecture will need the following libraries:" ] }, { "cell_type": "code", "execution_count": 1, "metadata": { "tags": [ "hide-output" ] }, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ "Requirement already up-to-date: quantecon in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (0.4.8)\r\n", "Requirement already satisfied, skipping upgrade: sympy in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from quantecon) (1.6.1)\r\n", "Requirement already satisfied, skipping upgrade: scipy>=1.0.0 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from quantecon) (1.5.0)\r\n", "Requirement already satisfied, skipping upgrade: numpy in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from quantecon) (1.18.5)\r\n", "Requirement already satisfied, skipping upgrade: requests in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from quantecon) (2.24.0)\r\n", "Requirement already satisfied, skipping upgrade: numba>=0.38 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from quantecon) (0.50.1)\r\n" ] }, { "name": "stdout", "output_type": "stream", "text": [ "Requirement already satisfied, skipping upgrade: mpmath>=0.19 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from sympy->quantecon) (1.1.0)\r\n", "Requirement already satisfied, skipping upgrade: idna<3,>=2.5 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from requests->quantecon) (2.10)\r\n", "Requirement already satisfied, skipping upgrade: chardet<4,>=3.0.2 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from requests->quantecon) (3.0.4)\r\n", "Requirement already satisfied, skipping upgrade: urllib3!=1.25.0,!=1.25.1,<1.26,>=1.21.1 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from requests->quantecon) (1.25.9)\r\n", "Requirement already satisfied, skipping upgrade: certifi>=2017.4.17 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from requests->quantecon) (2020.6.20)\r\n", "Requirement already satisfied, skipping upgrade: llvmlite<0.34,>=0.33.0.dev0 in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from numba>=0.38->quantecon) (0.33.0+1.g022ab0f)\r\n", "Requirement already satisfied, skipping upgrade: setuptools in /Users/matthewmckay/anaconda3/envs/quantecon/lib/python3.8/site-packages (from numba>=0.38->quantecon) (49.2.0.post20200714)\r\n" ] } ], "source": [ "!pip install --upgrade quantecon" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Overview\n", "\n", "This notebook formulates and computes a plan that a **Stackelberg\n", "leader** uses to manipulate forward-looking decisions of a **Stackelberg\n", "follower** that depend on continuation sequences of decisions made once\n", "and for all by the Stackelberg leader at time $0$.\n", "\n", "To facilitate computation and interpretation, we formulate things in a\n", "context that allows us to apply dynamic programming for linear-quadratic models.\n", "\n", "From the beginning, we carry along a linear-quadratic model of duopoly in\n", "which firms face adjustment costs that make them want to forecast\n", "actions of other firms that influence future prices.\n", "\n", "Let's start with some standard imports:" ] }, { "cell_type": "code", "execution_count": 2, "metadata": {}, "outputs": [], "source": [ "import numpy as np\n", "import numpy.linalg as la\n", "import quantecon as qe\n", "from quantecon import LQ\n", "import matplotlib.pyplot as plt\n", "%matplotlib inline" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Duopoly\n", "\n", "Time is discrete and is indexed by $t = 0, 1, \\ldots$.\n", "\n", "Two firms produce a single good whose demand is governed by the linear\n", "inverse demand curve\n", "\n", "$$\n", "p_t = a_0 - a_1 (q_{1t}+ q_{2t} )\n", "$$\n", "\n", "where $q_{it}$ is output of firm $i$ at time $t$ and\n", "$a_0$ and $a_1$ are both positive.\n", "\n", "$q_{10}, q_{20}$ are given numbers that serve as initial\n", "conditions at time $0$.\n", "\n", "By incurring a cost of change\n", "\n", "$$\n", "\\gamma v_{it}^2\n", "$$\n", "\n", "where $\\gamma > 0$, firm $i$ can change its output according\n", "to\n", "\n", "$$\n", "q_{it+1} = q_{it} + v_{it}\n", "$$\n", "\n", "Firm $i$'s profits at time $t$ equal\n", "\n", "$$\n", "\\pi_{it} = p_t q_{it} - \\gamma v_{it}^2\n", "$$\n", "\n", "Firm $i$ wants to maximize the present value of its profits\n", "\n", "$$\n", "\\sum_{t=0}^\\infty \\beta^t \\pi_{it}\n", "$$\n", "\n", "where $\\beta \\in (0,1)$ is a time discount factor.\n", "\n", "### Stackelberg Leader and Follower\n", "\n", "Each firm $i=1,2$ chooses a sequence\n", "$\\vec q_i \\equiv \\{q_{it+1}\\}_{t=0}^\\infty$ once and for all at\n", "time $0$.\n", "\n", "We let firm 2 be a **Stackelberg leader** and firm 1 be a **Stackelberg\n", "follower**.\n", "\n", "The leader firm 2 goes first and chooses\n", "$\\{q_{2t+1}\\}_{t=0}^\\infty$ once and for all at time $0$.\n", "\n", "Knowing that firm 2 has chosen $\\{q_{2t+1}\\}_{t=0}^\\infty$, the\n", "follower firm 1 goes second and chooses\n", "$\\{q_{1t+1}\\}_{t=0}^\\infty$ once and for all at time $0$.\n", "\n", "In choosing $\\vec q_2$, firm 2 takes into account that firm 1 will\n", "base its choice of $\\vec q_1$ on firm 2's choice of\n", "$\\vec q_2$.\n", "\n", "### Abstract Statement of the Leader's and Follower's Problems\n", "\n", "We can express firm 1's problem as\n", "\n", "$$\n", "\\max_{\\vec q_1} \\Pi_1(\\vec q_1; \\vec q_2)\n", "$$\n", "\n", "where the appearance behind the semi-colon indicates that\n", "$\\vec q_2$ is given.\n", "\n", "Firm 1's problem induces the best response mapping\n", "\n", "$$\n", "\\vec q_1 = B(\\vec q_2)\n", "$$\n", "\n", "(Here $B$ maps a sequence into a sequence)\n", "\n", "The Stackelberg leader's problem is\n", "\n", "$$\n", "\\max_{\\vec q_2} \\Pi_2 (B(\\vec q_2), \\vec q_2)\n", "$$\n", "\n", "whose maximizer is a sequence $\\vec q_2$ that depends on the\n", "initial conditions $q_{10}, q_{20}$ and the parameters of the\n", "model $a_0, a_1, \\gamma$.\n", "\n", "This formulation captures key features of the model\n", "\n", "- Both firms make once-and-for-all choices at time $0$.\n", "- This is true even though both firms are choosing sequences of\n", " quantities that are indexed by **time**.\n", "- The Stackelberg leader chooses first **within time** $0$,\n", " knowing that the Stackelberg follower will choose second **within\n", " time** $0$.\n", "\n", "While our abstract formulation reveals the timing protocol and\n", "equilibrium concept well, it obscures details that must be addressed\n", "when we want to compute and interpret a Stackelberg plan and the\n", "follower's best response to it.\n", "\n", "To gain insights about these things, we study them in more detail.\n", "\n", "### Firms' Problems\n", "\n", "Firm 1 acts as if firm 2's sequence $\\{q_{2t+1}\\}_{t=0}^\\infty$ is\n", "given and beyond its control.\n", "\n", "Firm 2 knows that firm 1 chooses second and takes this into account in\n", "choosing $\\{q_{2t+1}\\}_{t=0}^\\infty$.\n", "\n", "In the spirit of *working backward*, we study firm 1's problem first,\n", "taking $\\{q_{2t+1}\\}_{t=0}^\\infty$ as given.\n", "\n", "We can formulate firm 1's optimum problem in terms of the Lagrangian\n", "\n", "$$\n", "L=\\sum_{t=0}^{\\infty}\\beta^{t}\\{a_{0}q_{1t}-a_{1}q_{1t}^{2}-a_{1}q_{1t}q_{2t}-\\gamma v_{1t}^{2}+\\lambda_{t}[q_{1t}+v_{1t}-q_{1t+1}]\\}\n", "$$\n", "\n", "Firm 1 seeks a maximum with respect to\n", "$\\{q_{1t+1}, v_{1t} \\}_{t=0}^\\infty$ and a minimum with respect to\n", "$\\{ \\lambda_t\\}_{t=0}^\\infty$.\n", "\n", "We approach this problem using methods described in Ljungqvist and\n", "Sargent RMT5 chapter 2, appendix A and Macroeconomic Theory, 2nd\n", "edition, chapter IX.\n", "\n", "First-order conditions for this problem are\n", "\n", "$$\n", "\\begin{aligned} \\frac{\\partial L}{\\partial q_{1t}} & = a_0 - 2 a_1 q_{1t} - a_1 q_{2t} + \\lambda_t - \\beta^{-1}\n", " \\lambda_{t-1} = 0 , \\quad t \\geq 1 \\cr\n", " \\frac{\\partial L}{\\partial v_{1t}} & = -2 \\gamma v_{1t} + \\lambda_t = 0 , \\quad t \\geq 0 \\cr \\end{aligned}\n", "$$\n", "\n", "These first-order conditions and the constraint $q_{1t+1} = q_{1t} + v_{1t}$ can be rearranged to take the form\n", "\n", "$$\n", "\\begin{aligned} v_{1t} & = \\beta v_{1t+1} + \\frac{\\beta a_0}{2 \\gamma} - \\frac{\\beta a_1}{\\gamma} q_{1t+1} -\n", " \\frac{\\beta a_1}{2 \\gamma} q_{2t+1} \\cr\n", " q_{t+1} & = q_{1t} + v_{1t} \\end{aligned}\n", "$$\n", "\n", "We can substitute the second equation into the first equation to obtain\n", "\n", "$$\n", "(q_{1t+1} - q_{1t} ) = \\beta (q_{1t+2} - q_{1t+1}) + c_0 - c_1 q_{1t+1} - c_2 q_{2t+1}\n", "$$\n", "\n", "where\n", "$c_0 = \\frac{\\beta a_0}{2 \\gamma}, c_1 = \\frac{\\beta a_1}{\\gamma}, c_2 = \\frac{\\beta a_1}{2 \\gamma}$.\n", "\n", "This equation can in turn be rearranged to become the second-order\n", "difference equation\n", "\n", "```{math}\n", ":label: sstack1\n", "\n", "q_{1t} + (1+\\beta + c_1) q_{1t+1} - \\beta q_{1t+2} = c_0 - c_2 q_{2t+1}\n", "```\n", "\n", "Equation {eq}`sstack1` is a second-order difference equation in the sequence\n", "$\\vec q_1$ whose solution we want.\n", "\n", "It satisfies **two boundary conditions:**\n", "\n", "- an initial condition that $q_{1,0}$, which is given\n", "- a terminal condition requiring that\n", " $\\lim_{T \\rightarrow + \\infty} \\beta^T q_{1t}^2 < + \\infty$\n", "\n", "Using the lag operators described in chapter IX of *Macroeconomic\n", "Theory, Second edition (1987)*, difference equation\n", "{eq}`sstack1` can be written as\n", "\n", "$$\n", "\\beta(1 - \\frac{1+\\beta + c_1}{\\beta} L + \\beta^{-1} L^2 ) q_{1t+2} = - c_0 + c_2 q_{2t+1}\n", "$$\n", "\n", "The polynomial in the lag operator on the left side can be **factored**\n", "as\n", "\n", "```{math}\n", ":label: sstack2\n", "\n", "(1 - \\frac{1+\\beta + c_1}{\\beta} L + \\beta^{-1} L^2 ) = ( 1 - \\delta_1 L ) (1 - \\delta_2 L)\n", "```\n", "\n", "where $0 < \\delta_1 < 1 < \\frac{1}{\\sqrt{\\beta}} < \\delta_2$.\n", "\n", "Because $\\delta_2 > \\frac{1}{\\sqrt{\\beta}}$ the operator\n", "$(1 - \\delta_2 L)$ contributes an **unstable** component if solved\n", "**backwards** but a **stable** component if solved **forwards**.\n", "\n", "Mechanically, write\n", "\n", "$$\n", "(1- \\delta_2 L) = -\\delta_{2} L (1 - \\delta_2^{-1} L^{-1} )\n", "$$\n", "\n", "and compute the following inverse operator\n", "\n", "$$\n", "\\left[-\\delta_{2} L (1 - \\delta_2^{-1} L^{-1} )\\right]^{-1} = - \\delta_2 (1 - {\\delta_2}^{-1} )^{-1} L^{-1}\n", "$$\n", "\n", "Operating on both sides of equation {eq}`sstack2` with\n", "$\\beta^{-1}$ times this inverse operator gives the follower's\n", "decision rule for setting $q_{1t+1}$ in the\n", "**feedback-feedforward** form.\n", "\n", "```{math}\n", ":label: sstack3\n", "\n", "q_{1t+1} = \\delta_1 q_{1t} - c_0 \\delta_2^{-1} \\beta^{-1} \\frac{1}{1 -\\delta_2^{-1}} + c_2 \\delta_2^{-1} \\beta^{-1} \\sum_{j=0}^\\infty \\delta_2^j q_{2t+j+1} , \\quad t \\geq 0\n", "```\n", "\n", "The problem of the Stackelberg leader firm 2 is to choose the sequence\n", "$\\{q_{2t+1}\\}_{t=0}^\\infty$ to maximize its discounted profits\n", "\n", "$$\n", "\\sum_{t=0}^\\infty \\beta^t \\{ (a_0 - a_1 (q_{1t} + q_{2t}) ) q_{2t} - \\gamma (q_{2t+1} - q_{2t})^2 \\}\n", "$$\n", "\n", "subject to the sequence of constraints {eq}`sstack3` for $t \\geq 0$.\n", "\n", "We can put a sequence $\\{\\theta_t\\}_{t=0}^\\infty$ of Lagrange\n", "multipliers on the sequence of equations {eq}`sstack3`\n", "and formulate the following Lagrangian for the Stackelberg leader firm\n", "2's problem\n", "\n", "```{math}\n", ":label: sstack4\n", "\n", "\\begin{aligned} \\tilde L & = \\sum_{t=0}^\\infty \\beta^t\\{ (a_0 - a_1 (q_{1t} + q_{2t}) ) q_{2t} - \\gamma (q_{2t+1} - q_{2t})^2 \\} \\cr\n", " & + \\sum_{t=0}^\\infty \\beta^t \\theta_t \\{ \\delta_1 q_{1t} - c_0 \\delta_2^{-1} \\beta^{-1} \\frac{1}{1 -\\delta_2^{-1}} + c_2 \\delta_2^{-1} \\beta^{-1}\n", " \\sum_{j=0}^\\infty \\delta_2^{-j} q_{2t+j+1} - q_{1t+1} \\} \\end{aligned}\n", "```\n", "\n", "subject to initial conditions for $q_{1t}, q_{2t}$ at $t=0$.\n", "\n", "**Comments:** We have formulated the Stackelberg problem in a space of\n", "sequences.\n", "\n", "The max-min problem associated with Lagrangian\n", "{eq}`sstack4` is unpleasant because the time $t$\n", "component of firm $1$'s payoff function depends on the entire\n", "future of its choices of $\\{q_{1t+j}\\}_{j=0}^\\infty$.\n", "\n", "This renders a direct attack on the problem cumbersome.\n", "\n", "Therefore, below, we will formulate the Stackelberg leader's problem\n", "recursively.\n", "\n", "We'll put our little duopoly model into a broader class of models with\n", "the same conceptual structure.\n", "\n", "## The Stackelberg Problem\n", "\n", "We formulate a class of linear-quadratic Stackelberg leader-follower\n", "problems of which our duopoly model is an instance.\n", "\n", "We use the optimal linear regulator (a.k.a. the linear-quadratic dynamic\n", "programming problem described in [LQ Dynamic Programming\n", "problems](https://python-intro.quantecon.org/lqcontrol.html)) to\n", "represent a Stackelberg leader's problem recursively.\n", "\n", "Let $z_t$ be an $n_z \\times 1$ vector of **natural\n", "state variables**.\n", "\n", "Let $x_t$ be an $n_x \\times 1$ vector of endogenous\n", "forward-looking variables that are physically free to jump at $t$.\n", "\n", "In our duopoly example $x_t = v_{1t}$, the time $t$ decision\n", "of the Stackelberg **follower**.\n", "\n", "Let $u_t$ be a vector of decisions chosen by the Stackelberg leader\n", "at $t$.\n", "\n", "The $z_t$ vector is inherited physically from the past.\n", "\n", "But $x_t$ is a decision made by the Stackelberg follower at time\n", "$t$ that is the follower's best response to the choice of an\n", "entire sequence of decisions made by the Stackelberg leader at time\n", "$t=0$.\n", "\n", "Let\n", "\n", "$$\n", "y_t = \\begin{bmatrix} z_t \\\\ x_t \\end{bmatrix}\n", "$$\n", "\n", "Represent the Stackelberg leader's one-period loss function as\n", "\n", "$$\n", "r(y, u) = y' R y + u' Q u\n", "$$\n", "\n", "Subject to an initial condition for $z_0$, but not for $x_0$, the\n", "Stackelberg leader wants to maximize\n", "\n", "```{math}\n", ":label: maxeq\n", "\n", "-\\sum_{t=0}^\\infty \\beta^t r(y_t, u_t)\n", "```\n", "\n", "The Stackelberg leader faces the model\n", "\n", "```{math}\n", ":label: new2\n", "\n", "\\begin{bmatrix} I & 0 \\\\ G_{21} & G_{22} \\end{bmatrix}\n", "\\begin{bmatrix} z_{t+1} \\\\ x_{t+1} \\end{bmatrix}\n", "= \\begin{bmatrix} \\hat A_{11} & \\hat A_{12} \\\\ \\hat A_{21} & \\hat A_{22} \\end{bmatrix} \\begin{bmatrix} z_t \\\\ x_t \\end{bmatrix} + \\hat B u_t\n", "```\n", "\n", "We assume that the matrix\n", "$\\begin{bmatrix} I & 0 \\\\ G_{21} & G_{22} \\end{bmatrix}$ on the\n", "left side of equation {eq}`new2` is invertible, so that we\n", "can multiply both sides by its inverse to obtain\n", "\n", "```{math}\n", ":label: new3\n", "\n", "\\begin{bmatrix} z_{t+1} \\\\ x_{t+1} \\end{bmatrix}\n", "= \\begin{bmatrix} A_{11} & A_{12} \\\\ A_{21} & A_{22} \\end{bmatrix}\n", "\\begin{bmatrix} z_t \\\\ x_t \\end{bmatrix} + B u_t\n", "```\n", "\n", "or\n", "\n", "```{math}\n", ":label: constrainteq\n", "\n", "y_{t+1} = A y_t + B u_t\n", "```\n", "\n", "### Interpretation of the Second Block of Equations\n", "\n", "The Stackelberg follower's best response mapping is summarized by the\n", "second block of equations of {eq}`new3`.\n", "\n", "In particular, these equations are the first-order conditions of the\n", "Stackelberg follower's optimization problem (i.e., its Euler equations).\n", "\n", "These Euler equations summarize the forward-looking aspect of the\n", "follower's behavior and express how its time $t$ decision depends on\n", "the leader's actions at times $s \\geq t$.\n", "\n", "When combined with a stability condition to be imposed below, the Euler\n", "equations summarize the follower’s best response to the sequence of\n", "actions by the leader.\n", "\n", "The Stackelberg leader maximizes {eq}`maxeq` by\n", "choosing sequences $\\{u_t, x_t, z_{t+1}\\}_{t=0}^{\\infty}$\n", "subject to {eq}`constrainteq` and an initial condition for $z_0$.\n", "\n", "Note that we have an initial condition for $z_0$ but not for $x_0$.\n", "\n", "$x_0$ is among the variables to be chosen at time $0$ by the\n", "Stackelberg leader.\n", "\n", "The Stackelberg leader uses its understanding of the responses\n", "restricted by {eq}`constrainteq` to manipulate the follower's\n", "decisions.\n", "\n", "### More Mechanical Details\n", "\n", "For any vector $a_t$, define $\\vec a_t = [a_t,\n", "a_{t+1} \\ldots ]$.\n", "\n", "Define a feasible set of $(\\vec y_1, \\vec u_0)$ sequences\n", "\n", "$$\n", "\\Omega(y_0) = \\left\\{ (\\vec y_1, \\vec u_0) : y_{t+1} = A y_t + B u_t, \\forall t \\geq 0 \\right\\}\n", "$$\n", "\n", "Please remember that the follower's Euler equation is embedded in the\n", "system of dynamic equations $y_{t+1} = A y_t + B u_t$.\n", "\n", "Note that in the definition of $\\Omega(y_0)$, $y_0$\n", "is taken as given.\n", "\n", "Although it is taken as given in $\\Omega(y_0)$,\n", "eventually, the $x_0$ component of $y_0$ will be chosen by the\n", "Stackelberg leader.\n", "\n", "### Two Subproblems\n", "\n", "Once again we use backward induction.\n", "\n", "We express the Stackelberg problem in terms of **two subproblems**.\n", "\n", "Subproblem 1 is solved by a **continuation Stackelberg leader** at each\n", "date $t \\geq 0$.\n", "\n", "Subproblem 2 is solved by the **Stackelberg leader** at $t=0$.\n", "\n", "The two subproblems are designed\n", "\n", "- to respect the protocol in which the follower chooses\n", " $\\vec q_1$ after seeing $\\vec q_2$ chosen by the leader\n", "- to make the leader choose $\\vec q_2$ while respecting that\n", " $\\vec q_1$ will be the follower's best response to\n", " $\\vec q_2$\n", "- to represent the leader's problem recursively by artfully choosing\n", " the state variables confronting and the control variables available\n", " to the leader\n", "\n", "#### Subproblem 1\n", "\n", "$$\n", "v(y_0) = \\max_{(\\vec y_1, \\vec u_0) \\in \\Omega(y_0)} - \\sum_{t=0}^\\infty \\beta^t r(y_t, u_t)\n", "$$\n", "\n", "#### Subproblem 2\n", "\n", "$$\n", "w(z_0) = \\max_{x_0} v(y_0)\n", "$$\n", "\n", "Subproblem 1 takes the vector of forward-looking variables $x_0$ as\n", "given.\n", "\n", "Subproblem 2 optimizes over $x_0$.\n", "\n", "The value function $w(z_0)$ tells the value of the Stackelberg plan\n", "as a function of the vector of natural state variables at time $0$,\n", "$z_0$.\n", "\n", "### Two Bellman Equations\n", "\n", "We now describe Bellman equations for $v(y)$ and $w(z_0)$.\n", "\n", "#### Subproblem 1\n", "\n", "The value function $v(y)$ in subproblem 1 satisfies the Bellman\n", "equation\n", "\n", "```{math}\n", ":label: bellman-stack\n", "\n", "v(y) = \\max_{u, y^*} \\left\\{ - r(y,u) + \\beta v(y^*) \\right\\}\n", "```\n", "\n", "where the maximization is subject to\n", "\n", "$$\n", "y^* = A y + B u\n", "$$\n", "\n", "and $y^*$ denotes next period’s value.\n", "\n", "Substituting $v(y) = - y'P y$ into Bellman equation {eq}`bellman-stack` gives\n", "\n", "$$\n", "-y' P y = {\\rm max}_{ u, y^*} \\left\\{ - y' R y - u'Q u - \\beta y^{* \\prime} P y^* \\right\\}\n", "$$\n", "\n", "which as in lecture [linear regulator](https://python-intro.quantecon.org/lqcontrol.html) gives\n", "rise to the algebraic matrix Riccati equation\n", "\n", "$$\n", "P = R + \\beta A' P A - \\beta^2 A' P B ( Q + \\beta B' P B)^{-1} B' P A\n", "$$\n", "\n", "and the optimal decision rule coefficient vector\n", "\n", "$$\n", "F = \\beta( Q + \\beta B' P B)^{-1} B' P A\n", "$$\n", "\n", "where the optimal decision rule is\n", "\n", "$$\n", "u_t = - F y_t\n", "$$\n", "\n", "#### Subproblem 2\n", "\n", "We find an optimal $x_0$ by equating to zero the gradient of $v(y_0)$\n", "with respect to $x_0$:\n", "\n", "$$\n", "-2 P_{21} z_0 - 2 P_{22} x_0 =0,\n", "$$\n", "\n", "which implies that\n", "\n", "$$\n", "x_0 = - P_{22}^{-1} P_{21} z_0\n", "$$\n", "\n", "## Stackelberg Plan\n", "\n", "Now let's map our duopoly model into the above setup.\n", "\n", "We will formulate a state space system\n", "\n", "$$\n", "y_t = \\begin{bmatrix} z_t \\cr x_t \\end{bmatrix}\n", "$$\n", "\n", "where in this instance $x_t = v_{1t}$, the time $t$ decision\n", "of the follower firm 1.\n", "\n", "### Calculations to Prepare Duopoly Model\n", "\n", "Now we'll proceed to cast our duopoly model within the framework of the\n", "more general linear-quadratic structure described above.\n", "\n", "That will allow us to compute a Stackelberg plan simply by enlisting a\n", "Riccati equation to solve a linear-quadratic dynamic program.\n", "\n", "As emphasized above, firm 1 acts as if firm 2's decisions\n", "$\\{q_{2t+1}, v_{2t}\\}_{t=0}^\\infty$ are given and beyond its\n", "control.\n", "\n", "### Firm 1's Problem\n", "\n", "We again formulate firm 1's optimum problem in terms of the Lagrangian\n", "\n", "$$\n", "L=\\sum_{t=0}^{\\infty}\\beta^{t}\\{a_{0}q_{1t}-a_{1}q_{1t}^{2}-a_{1}q_{1t}q_{2t}-\\gamma v_{1t}^{2}+\\lambda_{t}[q_{1t}+v_{1t}-q_{1t+1}]\\}\n", "$$\n", "\n", "Firm 1 seeks a maximum with respect to\n", "$\\{q_{1t+1}, v_{1t} \\}_{t=0}^\\infty$ and a minimum with respect to\n", "$\\{ \\lambda_t\\}_{t=0}^\\infty$.\n", "\n", "First-order conditions for this problem are\n", "\n", "$$\n", "\\begin{aligned} \\frac{\\partial L}{\\partial q_{1t}} & = a_0 - 2 a_1 q_{1t} - a_1 q_{2t} + \\lambda_t - \\beta^{-1}\n", " \\lambda_{t-1} = 0 , \\quad t \\geq 1 \\cr\n", " \\frac{\\partial L}{\\partial v_{1t}} & = -2 \\gamma v_{1t} + \\lambda_t = 0 , \\quad t \\geq 0 \\cr \\end{aligned}\n", "$$\n", "\n", "These first-order order conditions and the constraint $q_{1t+1} =\n", "q_{1t} + v_{1t}$ can be rearranged to take the form\n", "\n", "$$\n", "\\begin{aligned} v_{1t} & = \\beta v_{1t+1} + \\frac{\\beta a_0}{2 \\gamma} - \\frac{\\beta a_1}{\\gamma} q_{1t+1} -\n", " \\frac{\\beta a_1}{2 \\gamma} q_{2t+1} \\cr\n", " q_{t+1} & = q_{1t} + v_{1t} \\end{aligned}\n", "$$\n", "\n", "We use these two equations as components of the following linear system\n", "that confronts a Stackelberg continuation leader at time $t$\n", "\n", "$$\n", "\\begin{bmatrix} 1 & 0 & 0 & 0 \\cr\n", " 0 & 1 & 0 & 0 \\cr\n", " 0 & 0 & 1 & 0 \\cr\n", " \\frac{\\beta a_0}{2 \\gamma} & - \\frac{\\beta a_1}{2 \\gamma} & -\\frac{\\beta a_1}{\\gamma} & \\beta \\end{bmatrix}\n", " \\begin{bmatrix} 1 \\cr q_{2t+1} \\cr q_{1t+1} \\cr v_{1t+1} \\end{bmatrix}\n", " = \\begin{bmatrix} 1 & 0 & 0 & 0 \\cr\n", " 0 & 1 & 0 & 0 \\cr\n", " 0 & 0 & 1 & 1 \\cr\n", " 0 & 0 & 0 & 1 \\end{bmatrix} \\begin{bmatrix} 1 \\cr q_{2t} \\cr q_{1t} \\cr v_{1t} \\end{bmatrix}\n", " + \\begin{bmatrix} 0 \\cr 1 \\cr 0 \\cr 0 \\end{bmatrix} v_{2t}\n", "$$\n", "\n", "Time $t$ revenues of firm 2 are\n", "$\\pi_{2t} = a_0 q_{2t} - a_1 q_{2t}^2 - a_1 q_{1t} q_{2t}$ which\n", "evidently equal\n", "\n", "$$\n", "z_t' R_1 z_t \\equiv \\begin{bmatrix} 1 \\cr q_{2t} \\cr q_{1t} \\end{bmatrix}'\n", " \\begin{bmatrix} 0 & \\frac{a_0}{2}& 0 \\cr\n", " \\frac{a_0}{2} & -a_1 & -\\frac{a_1}{2}\\cr\n", " 0 & -\\frac{a_1}{2} & 0 \\end{bmatrix}\n", "\\begin{bmatrix} 1 \\cr q_{2t} \\cr q_{1t} \\end{bmatrix}\n", "$$\n", "\n", "If we set $Q = \\gamma$, then firm 2's period $t$ profits can\n", "then be written\n", "\n", "$$\n", "y_t' R y_t - Q v_{2t}^2\n", "$$\n", "\n", "where\n", "\n", "$$\n", "y_t = \\begin{bmatrix} z_t \\cr x_t \\end{bmatrix}\n", "$$\n", "\n", "with $x_t = v_{1t}$ and\n", "\n", "$$\n", "R =\n", "\\begin{bmatrix} R_1 & 0 \\cr 0 & 0 \\end{bmatrix}\n", "$$\n", "\n", "We'll report results of implementing this code soon.\n", "\n", "But first, we want to represent the Stackelberg leader's optimal choices\n", "recursively.\n", "\n", "It is important to do this for several reasons:\n", "\n", "- properly to interpret a representation of the Stackelberg leader's\n", " choice as a sequence of history-dependent functions\n", "- to formulate a recursive version of the follower's choice problem\n", "\n", "First, let's get a recursive representation of the Stackelberg leader's\n", "choice of $\\vec q_2$ for our duopoly model.\n", "\n", "## Recursive Representation of Stackelberg Plan\n", "\n", "In order to attain an appropriate representation of the Stackelberg\n", "leader's history-dependent plan, we will employ what amounts to a\n", "version of the **Big K, little k** device often used in\n", "macroeconomics by distinguishing $z_t$, which depends partly on\n", "decisions $x_t$ of the followers, from another vector\n", "$\\check z_t$, which does not.\n", "\n", "We will use $\\check z_t$ and its history $\\check z^t\n", "= [\\check z_t, \\check z_{t-1}, \\ldots, \\check z_0]$ to describe the\n", "sequence of the Stackelberg leader's decisions that the Stackelberg\n", "follower takes as given.\n", "\n", "Thus, we let\n", "$\\check y_t' = \\begin{bmatrix}\\check z_t' & \\check x_t'\\end{bmatrix}$\n", "with initial condition $\\check z_0 = z_0$ given.\n", "\n", "That we distinguish $\\check z_t$ from $z_t$ is part and\n", "parcel of the **Big K, little k** device in this\n", "instance.\n", "\n", "We have demonstrated that a Stackelberg plan for\n", "$\\{u_t\\}_{t=0}^\\infty$ has a recursive representation\n", "\n", "$$\n", "\\begin{aligned} \\check x_0 & = - P_{22}^{-1} P_{21} z_0 \\cr\n", " u_t & = - F \\check y_t, \\quad t \\geq 0 \\cr\n", " \\check y_{t+1} & = (A - BF) \\check y_t, \\quad t \\geq 0 \\end{aligned}\n", "$$\n", "\n", "From this representation, we can deduce the sequence of functions\n", "$\\sigma = \\{\\sigma_t(\\check z^t)\\}_{t=0}^\\infty$ that comprise a\n", "Stackelberg plan.\n", "\n", "For convenience, let $\\check A \\equiv A - BF$ and partition\n", "$\\check A$ conformably to the partition\n", "$y_t = \\begin{bmatrix}\\check z_t \\cr \\check x_t \\end{bmatrix}$ as\n", "\n", "$$\n", "\\begin{bmatrix}\\check A_{11} & \\check A_{12} \\cr \\check A_{21} & \\check A_{22} \\end{bmatrix}\n", "$$\n", "\n", "Let $H^0_0 \\equiv - P_{22}^{-1} P_{21}$ so that\n", "$\\check x_0 = H^0_0 \\check z_0$.\n", "\n", "Then iterations on $\\check y_{t+1} = \\check A \\check y_t$ starting from initial\n", "condition $\\check y_0 = \\begin{bmatrix}\\check z_0 \\cr H^0_0 \\check z_0\\end{bmatrix}$\n", "imply that for $t \\geq 1$\n", "\n", "$$\n", "x_t = \\sum_{j=1}^t H_j^t \\check z_{t-j}\n", "$$\n", "\n", "where\n", "\n", "$$\n", "\\begin{aligned} H^t_1 & = \\check A_{21} \\cr\n", " H^t_2 & = \\check A_{22} \\check A_{21} \\cr\n", " \\ \\ \\vdots \\ \\ & \\ \\ \\quad \\vdots \\cr\n", " H^t_{t-1} & = \\check A_{22}^{t-2} \\check A_{21} \\cr\n", " H^t_t & = \\check A_{22}^{t-1}(\\check A_{21} + \\check A_{22} H^0_0 ) \\end{aligned}\n", "$$\n", "\n", "An optimal decision rule for the Stackelberg's choice of $u_t$ is\n", "\n", "$$\n", "u_t = - F \\check y_t \\equiv - \\begin{bmatrix} F_z & F_x \\cr \\end{bmatrix}\n", "\\begin{bmatrix}\\check z_t \\cr x_t \\cr \\end{bmatrix}\n", "$$\n", "\n", "or\n", "\n", "```{math}\n", ":label: finalrule\n", "\n", "u_t = - F_z \\check z_t - F_x \\sum_{j=1}^t H^t_j z_{t-j} = \\sigma_t(\\check z^t)\n", "```\n", "\n", "Representation {eq}`finalrule` confirms that whenever\n", "$F_x \\neq 0$, the typical situation, the time $t$ component\n", "$\\sigma_t$ of a Stackelberg plan is **history-dependent**, meaning\n", "that the Stackelberg leader's choice $u_t$ depends not just on\n", "$\\check z_t$ but on components of $\\check z^{t-1}$.\n", "\n", "### Comments and Interpretations\n", "\n", "After all, at the end of the day, it will turn out that because we set\n", "$\\check z_0 = z_0$, it will be true that $z_t = \\check z_t$\n", "for all $t \\geq 0$.\n", "\n", "Then why did we distinguish $\\check z_t$ from $z_t$?\n", "\n", "The answer is that if we want to present to the Stackelberg **follower**\n", "a history-dependent representation of the Stackelberg **leader's**\n", "sequence $\\vec q_2$, we must use representation\n", "{eq}`finalrule` cast in terms of the history\n", "$\\check z^t$ and **not** a corresponding representation cast in\n", "terms of $z^t$.\n", "\n", "### Dynamic Programming and Time Consistency of **follower's** Problem\n", "\n", "Given the sequence $\\vec q_2$ chosen by the Stackelberg leader in\n", "our duopoly model, it turns out that the Stackelberg **follower's**\n", "problem is recursive in the *natural* state variables that confront a\n", "follower at any time $t \\geq 0$.\n", "\n", "This means that the follower's plan is time consistent.\n", "\n", "To verify these claims, we'll formulate a recursive version of a\n", "follower's problem that builds on our recursive representation of the\n", "Stackelberg leader's plan and our use of the **Big K, little k** idea.\n", "\n", "### Recursive Formulation of a Follower’s Problem\n", "\n", "We now use what amounts to another “Big $K$, little $k$” trick (see\n", "[rational expectations equilibrium](https://python-intro.quantecon.org/rational_expectations.html))\n", "to formulate a recursive version of a follower’s problem cast in terms\n", "of an ordinary Bellman equation.\n", "\n", "Firm 1, the follower, faces $\\{q_{2t}\\}_{t=0}^\\infty$ as\n", "a given quantity sequence chosen by the leader and believes that its\n", "output price at $t$ satisfies\n", "\n", "$$\n", "p_t = a_0 - a_1 ( q_{1t} + q_{2t}) , \\quad t \\geq 0\n", "$$\n", "\n", "Our challenge is to represent $\\{q_{2t}\\}_{t=0}^\\infty$ as\n", "a given sequence.\n", "\n", "To do so, recall that under the Stackelberg plan, firm 2 sets output\n", "according to the $q_{2t}$ component of\n", "\n", "$$\n", "y_{t+1} = \\begin{bmatrix} 1 \\cr q_{2t} \\cr q_{1t} \\cr x_t \\end{bmatrix}\n", "$$\n", "\n", "which is governed by\n", "\n", "$$\n", "y_{t+1} = (A - BF) y_t\n", "$$\n", "\n", "To obtain a recursive representation of a $\\{q_{2t}\\}$ sequence\n", "that is exogenous to firm 1, we define a state $\\tilde y_t$\n", "\n", "$$\n", "\\tilde y_t = \\begin{bmatrix} 1 \\cr q_{2t} \\cr \\tilde q_{1t} \\cr \\tilde x_t \\end{bmatrix}\n", "$$\n", "\n", "that evolves according to\n", "\n", "$$\n", "\\tilde y_{t+1} = (A - BF) \\tilde y_t\n", "$$\n", "\n", "subject to the initial condition $\\tilde q_{10} = q_{10}$ and\n", "$\\tilde x_0 = x_0$ where $x_0 = - P_{22}^{-1} P_{21}$ as\n", "stated above.\n", "\n", "Firm 1's state vector is\n", "\n", "$$\n", "X_t = \\begin{bmatrix} \\tilde y_t \\cr q_{1t} \\end{bmatrix}\n", "$$\n", "\n", "It follows that the follower firm 1 faces law of motion\n", "\n", "```{math}\n", ":label: law-motion\n", "\n", "\\begin{bmatrix} \\tilde y_{t+1} \\\\\n", "q_{1t+1} \\end{bmatrix} = \\begin{bmatrix} A - BF & 0 \\\\\n", "0 & 1 \\end{bmatrix} \\begin{bmatrix} \\tilde y_{t} \\\\\n", "q_{1t} \\end{bmatrix} + \\begin{bmatrix} 0 \\cr 1 \\end{bmatrix} x_t\n", "```\n", "\n", "This specification assures that from the point of the view of a firm 1,\n", "$q_{2t}$ is an exogenous process.\n", "\n", "Here\n", "\n", "- $\\tilde q_{1t}, \\tilde x_t$ play the role of **Big K**\n", "- $q_{1t}, x_t$ play the role of **little k**\n", "\n", "The time $t$ component of firm 1's objective is\n", "\n", "$$\n", "\\tilde X_t' \\tilde R x_t - x_t^2 \\tilde Q = \\begin{bmatrix} 1 \\cr q_{2t} \\cr \\tilde q_{1t} \\cr \\tilde x_t \\cr q_{1t} \\end{bmatrix}'\n", " \\begin{bmatrix} 0 & 0 & 0 & 0 & \\frac{a_0}{2} \\cr\n", " 0 & 0 & 0 & 0 & - \\frac{a_1}{2} \\cr\n", " 0 & 0 & 0 & 0 & 0 \\cr\n", " 0 & 0 & 0 & 0 & 0 \\cr\n", " \\frac{a_0}{2} & -\\frac{a_1}{2} & 0 & 0 & - a_1 \\end{bmatrix}\n", " \\begin{bmatrix} 1 \\cr q_{2t} \\cr \\tilde q_{1t} \\cr \\tilde x_t \\cr q_{1t} \\end{bmatrix} - \\gamma\n", " x_t^2\n", "$$\n", "\n", "Firm 1's optimal decision rule is\n", "\n", "$$\n", "x_t = - \\tilde F X_t\n", "$$\n", "\n", "and it's state evolves according to\n", "\n", "$$\n", "\\tilde X_{t+1} = (\\tilde A - \\tilde B \\tilde F) X_t\n", "$$\n", "\n", "under its optimal decision rule.\n", "\n", "Later we shall compute $\\tilde F$ and verify that when we set\n", "\n", "$$\n", "X_0 = \\begin{bmatrix} 1 \\cr q_{20} \\cr q_{10} \\cr x_0 \\cr q_{10} \\end{bmatrix}\n", "$$\n", "\n", "we recover\n", "\n", "$$\n", "x_0 = - \\tilde F \\tilde X_0\n", "$$\n", "\n", "which will verify that we have properly set up a recursive\n", "representation of the follower's problem facing the Stackelberg leader's\n", "$\\vec q_2$.\n", "\n", "### Time Consistency of Follower's Plan\n", "\n", "Since the follower can solve its problem using dynamic programming its\n", "problem is recursive in what for it are the **natural state variables**,\n", "namely\n", "\n", "$$\n", "\\begin{bmatrix} 1 \\cr q_{2t} \\cr \\tilde q_{10} \\cr \\tilde x_0 \\end{bmatrix}\n", "$$\n", "\n", "It follows that the follower's plan is time consistent.\n", "\n", "## Computing the Stackelberg Plan\n", "\n", "Here is our code to compute a Stackelberg plan via a linear-quadratic\n", "dynamic program as outlined above" ] }, { "cell_type": "code", "execution_count": 3, "metadata": {}, "outputs": [], "source": [ "# Parameters\n", "a0 = 10\n", "a1 = 2\n", "β = 0.96\n", "γ = 120\n", "n = 300\n", "tol0 = 1e-8\n", "tol1 = 1e-16\n", "tol2 = 1e-2\n", "\n", "βs = np.ones(n)\n", "βs[1:] = β\n", "βs = βs.cumprod()" ] }, { "cell_type": "code", "execution_count": 4, "metadata": {}, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ "Computed policy for Stackelberg leader\n", "\n", "F = [[-1.58004454 0.29461313 0.67480938 6.53970594]]\n" ] } ], "source": [ "# In LQ form\n", "Alhs = np.eye(4)\n", "\n", "# Euler equation coefficients\n", "Alhs[3, :] = β * a0 / (2 * γ), -β * a1 / (2 * γ), -β * a1 / γ, β\n", "\n", "Arhs = np.eye(4)\n", "Arhs[2, 3] = 1\n", "\n", "Alhsinv = la.inv(Alhs)\n", "\n", "A = Alhsinv @ Arhs\n", "\n", "B = Alhsinv @ np.array([[0, 1, 0, 0]]).T\n", "\n", "R = np.array([[0, -a0 / 2, 0, 0],\n", " [-a0 / 2, a1, a1 / 2, 0],\n", " [0, a1 / 2, 0, 0],\n", " [0, 0, 0, 0]])\n", "\n", "Q = np.array([[γ]])\n", "\n", "# Solve using QE's LQ class\n", "# LQ solves minimization problems which is why the sign of R and Q was changed\n", "lq = LQ(Q, R, A, B, beta=β)\n", "P, F, d = lq.stationary_values(method='doubling')\n", "\n", "P22 = P[3:, 3:]\n", "P21 = P[3:, :3]\n", "P22inv = la.inv(P22)\n", "H_0_0 = -P22inv @ P21\n", "\n", "# Simulate forward\n", "\n", "π_leader = np.zeros(n)\n", "\n", "z0 = np.array([[1, 1, 1]]).T\n", "x0 = H_0_0 @ z0\n", "y0 = np.vstack((z0, x0))\n", "\n", "yt, ut = lq.compute_sequence(y0, ts_length=n)[:2]\n", "\n", "π_matrix = (R + F. T @ Q @ F)\n", "\n", "for t in range(n):\n", " π_leader[t] = -(yt[:, t].T @ π_matrix @ yt[:, t])\n", "\n", "# Display policies\n", "print(\"Computed policy for Stackelberg leader\\n\")\n", "print(f\"F = {F}\")" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Implied Time Series for Price and Quantities\n", "\n", "The following code plots the price and quantities" ] }, { "cell_type": "code", "execution_count": 5, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAhEAAAF4CAYAAADqjasdAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADh0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uMy4yLjIsIGh0dHA6Ly9tYXRwbG90bGliLm9yZy+WH4yJAAAgAElEQVR4nO3deXxU9b3/8dcnCUEChH0XAREFhLDIIops7tZacd+1Xi/aq9Xaamv9XUW9rdWqXejiUte6FZeqrVJFFCogKkEBBRQKsgmSELYkLNm+vz++J8kQspPJycy8n4/HOGfOnDnzmZMj857v93vOMeccIiIiInWVFHYBIiIiEpsUIkRERKReFCJERESkXhQiREREpF4UIkRERKReFCJERESkXhQiRBqBma01s5MacH15ZnZ4Q62vKTKzu8zsuYN5nZn1NjNnZikNX2HdmdnTZvaLkGuo13YVqYxChDQKM7vKzD43s91m9q2ZPWxmbevw+ob+Em7Q9TU251wr59yaMN7bzI42s5lmtt3MdpjZIjM7I3hugpltDKMuEWl8ChESdWb2E+B+4FagDXAs0At418xSw6wt1jSRX9T/BN4FugCdgRuBXaFW1AiayLYXaVIUIiSqzCwduBv4oXPubedcoXNuLXABPkhcFiy3XzNv5C9aM3sWOAz4Z9CM/9OIZuopZrbJzDYHYYX6rK+SutuZ2Ztmlh384n7TzA6NeH6Omf2fmc03s9zgl3nHiOcvN7N1ZpZjZv+vhm30tJk9YmbvBuv6t5n1injemdn1ZrYKWBUx74hguoWZPRS8304zm2dmLYLnjjWzD4MWgyVmNiFivVeZ2ZrgPb82s0urqzN4TUegD/AX51xBcJvvnJtnZi2BfwHdg+2aZ2bdzWyUmS0IathsZn+MDI9By8a7ZrbNzLaY2e2VvG8zM3vRzF41s9Rgva8Gf5+vzezGGkq/uor9JMnMbjOz1cHf6iUzax88V7qP/ZeZrQfeN7PkYFtvDd73Bqumu8TMhpnZp8E2ng4cUmH7z6uwfOTftY2Z/TX4jOvM7H/NLCnitfPN7A/B3/xLMzsxYj3dzewfwTb9j5n9dxX1vWVmP6wwb6mZnV3D9hQBFCIk+o7D/8P598iZzrk8/BfOyTWtwDl3ObAe+G7QjP/riKcnAv2AU4DbrBZdFDWsr1QS8BQ+6BwG7AH+WGGZS4Dv43+NpwK3AJjZQOBh4HKgO9ABOJTqXQr8H9ARWAw8X+H5s4HRwMBKXvsgcAx+W7cHfgqUmFkP4C3gF8H8W4BXzaxT8IU/DTjdOdc6eO3iGmoEyAH+AzxnZmebWZfSJ5xz+cDpwKZgu7Zyzm0CioGbg882BjgR+B8AM2sNzALexm+rI4D3It8wCESvA/vw4bMI3xqyBOgRrO9HZnZqNXVXtZ/ciN+244P33w78qcJrxwMDgFOB/w4+41BgePDaSgVB6XXgWfz2fxk4t5oaK/oDvuXu8KCGK/D7W6nRwBr8dp0K/L00AAEvAhuDz3QecG9kyIjwDEGQD2oegt+mM+pQpyQwhQiJto7AVudcUSXPbQ6ePxh3O+fynXOf47/0Lz7I9QHgnMtxzr3qnNvtnMsFfon/hzzSU865lc65PcBL+C8W8P9ov+mc+8A5tw+4Ayip4S3filj+/wFjzKxnxPO/cs5tC96rTPDL9GrgJufcN865Yufch8F6LgNmOOdmOOdKnHPvApnAGcHLS4BBZtbCObfZObesFtvF4b+Q1wIPAZvN7AMz61fNaxY55z5yzhUFrVCPUr4tzwS+dc495Jzb65zLdc59HPHydHzAWA183zlXDIwEOjnn7glaQtYAfwEuqqb0qvaTa4H/55zbGGyzu4DzKrQs3BW8dg8+xPw+WH47cF8173ks0Az4XdAC9wqwsJrly5hZMnAh8PNgm6zFb+/LIxbLilj3dOAr4DvBfjMW+FmwTRcDj1d4bak3gH4Rf7/LgenOuYLa1CmiECHRthXoWEVzb7fg+YOxIWJ6Hf6X10EzszQzezRoRt4FfAC0Df5xL/VtxPRuoFUw3T2yruAXek4Nbxm5fB6wjf0/y4YDXuF1xLf0rK7kuV7A+UE3wg4z24H/cukW1HQhcB0+CLxlZv1rqLG0vo3OuRucc32D98gH/lrV8mZ2pPnuoG+DbXkv5eGxZxW1lzoWyADuc+VXC+yF7zKJ/Fy348doVKWq/aQX8FrEelbgW066VPHa7hUeV/V3KV32m4i6S9+7NjriW7cil1+HbyUoVdm6uwe3bUH4req1AATB6SXgsiCQXoxvORGpFYUIibYF+GbocyJnBs3pp1PedJ0PpEUs0rXCeqq63Gzkr/XDgE0Hub5SPwGOAkY759KBcaWl1/A68C0sZXWZWRq+S6M6kcu3wjd/b4p4vqp6twJ7gb6VPLcBeNY51zbi1tI5dx+Ac+4d59zJ+DD3Jf7XfJ045zbgm/8HVVPnw8H6+wXb8nbKt+OGKmovNRP4FfBeRNfJBuDrCp+rtXPujKpXU+V+sgHfpRO5rkOcc99EfsyI6c3s3zUVud6KNgM9zCxynzksYnq/fdTMIvfRrUAhPuREvjayrsrWvSm4tQ+6iqp6baRn8N1pJwK7nXMLqvlMIvtRiJCocs7txA+s/IOZnRYMkOuN7x/eSPmvnsXAGWbWPvjH9EcVVrUF3zdc0R1Bq8HR+P7i6Qe5vlKt8eMgdgT9zFNr/rRlXgHONLOxQb/4PdT8/9oZEcv/H/Bx8AVdLedcCfAk8JtgMF2ymY0xs+bAc8B3zezUYP4h5geYHmpmXczsrCDM7QPy8L/AIwcU9q74fuYHnN5tZkeYH5TYEd+d8lGwyBagg5m1iXhZa/zRG3lBa8cPIp57E+hqZj8ys+Zm1trMRlf4jL8GXsAHiY7AJ8AuM/uZ+UGlyWY2yMxGVrOpqtpPHgF+acFA1mC8yPeqWc9LwE1m1sP8Ico/q2bZBfjxGzeaWYqZnQOMinh+CXC0mQ01s0PwXSmln7k4eK9fBtukF/Bj/N+0VOdg3c3M7Hz8uI0ZwX7zIfCr4G+eAfwXB46zKX2vBfiurYdQK4TUkUKERF3wJXA7fgDgLuBj/C/AE4PmVPD/eC3B97XPpPwf+VK/Av43aHa+JWL+v/ED/d4DHnTOzTzI9ZX6HdAC/4vwI3y/fG0/7zLgevwX32b8YL2azp3wAj6obMMPkqzxSIkItwCf4/vbt+EPp00Kvky+h9/22fhtfiv+//skfGvLpuA14wkGO+J/Xa+j8l+uBUBv/GDIXcAX+BByFYBz7kv8oL41wbbtHtR3CZCLb+0o+1sETe4nA9/Fdw+two+52I9z7v/wgxRn4Qcbfhc/BuVr/N/o8WB+VaraT34P/AOYaWa5+L/16MpXAUH9M4GlwGf4AYhFBAGsQs0F+Ba4q/D7wIVEDDB2zq3EB8xZweeeV2EVP8S3VqwJnnsBHxhLfYwfLLoVP2bnPOdcabfZxfi/0ybgNWBqMCamKn8FBrN/SBGpke3fpSYSG4JfyV8DzaoYtBkzzOxpYKNz7n/DrgXAzP4XyHbOPRp2LU2dmZ0OPOKc61Xjwg37vlcB1zjnxjbQ+q4ApjTU+iRx6OQpIrIf51yop2VuyoLDTSfiWyO64FuPXgu1qIMUjNn5H+DPYdcisUfdGSIitWf4MT7b8d0ZK4A7Q63oIATn1sjGj2V5IeRyJAapO0NERETqRS0RIiIiUi8KESIiIlIvURlY2bFjR9e7d+9orFpEREQa2aJFi7Y65zpVnB+VENG7d28yMzOjsWoRERFpZGZW6Snb1Z0hIiIi9aIQISIiIvWiECEiIiL1ohAhIiIi9aIQISIiIvWiECEiIiL1ohAhIiIi9aIQISIicadVq1YNsp6nn36aG264oUHWVVu/+93v2L17d71fv3jxYmbMmNGAFVVNIUJERKSBFBUVHfQ64i5EmFlbM3vFzL40sxVmNibahYmIiDSEBx54gJEjR5KRkcHUqVPL5p999tkcc8wxHH300Tz22GNl85966imOPPJIxo8fz/z588vmZ2dnc+655zJy5EhGjhxZ9txdd93FlClTOOWUU7jiiiv2e2/nHLfeeiuDBg1i8ODBTJ8+HYA5c+Zw5plnli13ww038PTTTzNt2jQ2bdrExIkTmThxIuBbVX7yk58wfPhwTjzxRLKzswGYMGFC2dmht27dSu/evSkoKODOO+9k+vTpDB06tOz9oqW2p73+PfC2c+48M0sF0qJYU6Vydufwbd63dG3VlQ5pHRr77UVEpB7MorNe52q33MyZM1m1ahWffPIJzjnOOussPvjgA8aNG8eTTz5J+/bt2bNnDyNHjuTcc8+loKCAqVOnsmjRItq0acPEiRMZNmwYADfddBM333wzY8eOZf369Zx66qmsWLECgEWLFjFv3jxatGix3/v//e9/Z/HixSxZsoStW7cycuRIxo0bV2W9N954I7/5zW+YPXs2HTt2BCA/P5/hw4fz0EMPcc8993D33Xfzxz/+sdLXp6amcs8995CZmVnlMg2pxhBhZunAOOAqAOdcAVAQ3bIO9OOZP+avS/7Kk2c9yfeHfb+x315ERGLQzJkzmTlzZlkQyMvLY9WqVYwbN45p06bx2muvAbBhwwZWrVrFt99+y4QJE+jUyV9r6sILL2TlypUAzJo1i+XLl5ete9euXeTm5gJw1llnHRAgAObNm8fFF19McnIyXbp0Yfz48SxcuJD09PRaf4akpCQuvPBCAC677DLOOeecemyJ6KhNS8ThQDbwlJkNARYBNznn8iMXMrMpwBSAww47rKHrpP0h7QHYtmdbg69bRESio7YtBtF7f8fPf/5zrr322v3mz5kzh1mzZrFgwQLS0tKYMGECe/fuBcCqaD4pKSlhwYIFlYaFli1bVvn+lUlJSaGkpKTscel710ZpfZHrqMvrG1JtxkSkAMOBh51zw4B84LaKCznnHnPOjXDOjShNcA2ptAtDIUJERGrr1FNP5cknnyQvLw+Ab775hqysLHbu3Em7du1IS0vjyy+/5KOPPgJg9OjRzJkzh5ycHAoLC3n55ZfL1nXKKafs10WwePHiGt9/3LhxTJ8+neLiYrKzs/nggw8YNWoUvXr1Yvny5ezbt4+dO3fy3nvvlb2mdevWZS0c4MPLK6+8AsALL7zA2LFjAX/F7EWLFgGUPV/Z66OpNiFiI7DROfdx8PgVfKhoVO1b+JaInD05jf3WIiISo0455RQuueQSxowZw+DBgznvvPPIzc3ltNNOo6ioiIyMDO644w6OPfZYALp168Zdd93FmDFjOOmkkxg+vPzrbtq0aWRmZpKRkcHAgQN55JFHanz/yZMnk5GRwZAhQ5g0aRK//vWv6dq1Kz179uSCCy4gIyODSy+9tKy7BWDKlCmcfvrpZQMrW7ZsybJlyzjmmGN4//33ufPOOwG45ZZbePjhhznuuOPYunVr2esnTpzI8uXLG2VgpVXV1LLfQmZzgWucc1+Z2V1AS+fcrVUtP2LECFc6YrSh/O2Lv3Hxqxdz/sDzeen8lxp03SIiIk1Vq1atylpSwmJmi5xzIyrOr+3RGT8Eng+OzFgDNPrIxg4t1J0hIiLSlNQqRDjnFgMHJJDGpO4MERFJRGG3QlQnZs5YWRoi1BIhIiLSNMRMiNDRGSIiIk1LzISI1qmtSbZk8gryKChu9HNdiYiISAUxEyLMTF0aIiIiTUjMhAjQuAgREamdadOmMWDAAC699NIql4m8zPddd93Fgw8+2FjlHZSmdJXPmAoRGhchIiK18ec//5kZM2bw/PPPh13KfuLtUuExFSLKDvPcrcM8RUSkctdddx1r1qzhrLPO4re//S3btm3j7LPPJiMjg2OPPZalS5dW+/rFixdz7LHHkpGRweTJk9m+fTtZWVkcc8wxACxZsgQzY/369QD07duX3bt3J+SlwmMyRKglQkQkRphF51aNRx55hO7duzN79mxuvvlmpk6dyrBhw1i6dCn33nvvAV/kFV1xxRXcf//9LF26lMGDB3P33XfTuXNn9u7dy65du5g7dy4jRoxg7ty5rFu3js6dO5OWllZ2qfCFCxfy6quvcs0115Stc9GiRbzxxhu88MIL+71X5KXCZ82axa233srmzZurrO3GG28s+2yzZ88Gyi8V/umnnzJ+/HjuvvvuKl9feqnwCy+8kMWLF5ddHbS+anvGyiZBZ60UEZG6mjdvHq+++ioAkyZNIicnh507d1a67M6dO9mxYwfjx48H4Morr+T8888H4LjjjmP+/Pl88MEH3H777bz99ts45zjhhBOAxLxUeEyFCLVEiIjEmLCvBU7ll+Ou6nLf1TnhhBPKWh++973vcf/992NmZd0OiXip8JjsztCpr0VEpLbGjRtXNsByzpw5dOzYscpf+m3atKFdu3bMnTsXgGeffbasVWLcuHE899xz9OvXj6SkJNq3b8+MGTM4/vjjgcS8VHhMtUSoO0NEROrqrrvu4vvf/z4ZGRmkpaXxzDPPVLv8M888w3XXXcfu3bs5/PDDeeqppwD/pQz+ix9g7NixbNy4kXbt2gH+sNLrr7+ejIwMioqKGDduXI2XC588eTILFixgyJAhmFnZpcKBskuF9+vXr9JLhXfr1o3Zs2fvd6nwNm3alA2WvOWWW7jgggt49tlnmTRpUtnrJ06cyH333cfQoUP5+c9/flDjImp1KfC6isalwAHeXf0upzx3Cif2OZFZV8xq8PWLiIjEmsa4VHhVlwKPye4MtUSIiIiEL6ZCROnJpjQmQkRExAvzUuExFSJ0sikREZGmI6ZCROvU1qQmp5JfmM+ewj1hlyMiIpLQYipEmBmd0joBsHX31pCrERERSWwxFSIAOqZ1BCB7d3bIlYiIiCS2mAsRnVr6lojsfIUIERE5OHfeeSezZumUAfUVUyebAtSdISIiDaK4uJh77rkn7DJiWsy1RKg7Q0REarJ27Vr69+/PlVdeSUZGBueddx67d++md+/e3HPPPYwdO5aXX36Zq666quyU0AsXLuS4445jyJAhjBo1itzcXIqLi7n11lsZOXIkGRkZPProoyF/sqYlZlsi1J0hItL02d11v9BVbbipNZ9t+auvvuKJJ57g+OOP5+qrr+bPf/4zAIcccgjz5s0D4O233wagoKCACy+8kOnTpzNy5Eh27dpFixYteOKJJ2jTpg0LFy5k3759HH/88Zxyyin06dMnKp8r1sRsS4S6M0REpDo9e/YsuzjWZZddVhYcKrtWxFdffUW3bt0YOXIkAOnp6aSkpDBz5kz++te/MnToUEaPHk1OTg6rVq1qvA/RxMVeS0TpwEp1Z4iINHm1aTGIloqX+y59XNlluZ1zlV4e3DnHH/7wB0499dToFBnjYq4loqw7QyFCRESqsX79ehYsWADAiy++WHaJ7Mr079+fTZs2sXDhQgByc3MpKiri1FNP5eGHH6awsBCAlStXkp+fH/3iY0TMhYiygZUaEyEiItUYMGAAzzzzDBkZGWzbto0f/OAHVS6bmprK9OnT+eEPf8iQIUM4+eST2bt3L9dccw0DBw5k+PDhDBo0iGuvvZaioqJG/BRNW0xdChwgKz+LLg92oUOLDmz9qcZFiIjIgdauXcuZZ57JF198EXYpcSEuLgUO/iJchrFtzzaKS4rDLkdERCRhxVyISElKoV2LdjicLgkuIiKV6t27t1ohGkHMhQjQWStFRESagtgMEbp+hoiISOhiMkTo1NciIiLhi8kQoe4MERGR8MV0iMjKzwq5EhERkcQVkyGia6uuAGzJ2xJyJSIiIokrJkNEl1ZdAPg2/9uQKxEREUlcsRkiWvoQoZYIERGR8MRkiCjrzshXiBAREQlLTIaIsu6MPHVniIiIhCUmQ0Sb5m1ITU4lryCP3YW7wy5HREQkIcVkiDAzHaEhIiISspgMEVA+uFJdGiIiIuGI3RARjIvQ4EoREZFwxGyI6NpS3RkiIiJhitkQoZYIERGRcMVuiNCYCBERkVDFbIjQCadERETClVKbhcxsLZALFANFzrkR0SyqNsq6MzQmQkREJBS1ChGBic65rVGrpI7UnSEiIhIudWeIiIhIvdQ2RDhgppktMrMplS1gZlPMLNPMMrOzsxuuwiqkN0+nRUoL8gryyN2XG/X3ExERkf3VNkQc75wbDpwOXG9m4you4Jx7zDk3wjk3olOnTg1aZGXMjO6tuwOwKXdT1N9PRERE9lerEOGc2xTcZwGvAaOiWVRtKUSIiIiEp8YQYWYtzax16TRwCvBFtAurjR7pPQCFCBERkTDU5uiMLsBrZla6/AvOubejWlUtdW/lWyK+yf0m5EpEREQST40hwjm3BhjSCLXUmbozREREwhOzh3hCeXeGWiJEREQaX0yHCLVEiIiIhEchQkREROolbkKEcy7kakRERBJLTIeItGZptD2kLQXFBeTsyQm7HBERkYQS0yEC1KUhIiISlpgPET1aB0do7NIRGiIiIo0p5kOEWiJERETCETchQueKEBERaVwxHyJ6pvcEYMPODSFXIiIiklhiPkQc1uYwANbvWh9yJSIiIokl5kNEzzZqiRAREQlDzIeIspaInet1wikREZFGFPMhok3zNrRObU1+YT7b924PuxwREZGEEfMhwszKujTW79S4CBERkcYS8yECyrs0NC5CRESk8cRHiEgvHxchIiIijSM+QkQbhQgREZHGFhchomxMhM4VISIi0mjiIkRoTISIiEjji6sQoe4MERGRxhMXIaLscuC531BUUhRyNSIiIokhLkJE85TmdG/dnRJXwsZdG8MuR0REJCHERYgA6NO2DwBrtq8JuRIREZHEEDch4vB2hwPw9favQ65EREQkMcRNiFBLhIiISOOKmxBR1hKxQy0RIiIijSFuQkSfdmqJEBERaUxxEyLUEiEiItK44iZEdG/dndTkVLLys8gryAu7HBERkbgXNyEiyZLo3bY3AGt3rA21FhERkUQQNyECyo/Q0GGeIiIi0RdXIaJ0XIQGV4qIiESfQoSIiIjUS1yFiCPaHwHAqm2rQq5EREQk/sVViDiyw5EArMxZGXIlIiIi8S+uQkTfdn0xjLU71lJQXBB2OSIiInEtrkJE85Tm9Grbi2JXrCM0REREoiyuQgSoS0NERKSxxF2I6Ne+H6DBlSIiItEWdyFCLREiIiKNQyFCRERE6iXuQoS6M0RERBpH3IWIXm170SypGRt3bSS/ID/sckREROJW3IWIlKQU+nXwrRFf5XwVcjUiIiLxK+5CBMDATgMBWJ69PORKRERE4ld8hoiOPkQsy1oWciUiIiLxKy5DxNGdjwZg+Va1RIiIiERLrUOEmSWb2Wdm9mY0C2oI6s4QERGJvrq0RNwErIhWIQ2pX/t+JFsyq7etZk/hnrDLERERiUu1ChFmdijwHeDx6JbTMJqnNKdfh344nI7QEBERiZLatkT8DvgpUFLVAmY2xcwyzSwzOzu7QYo7GOrSEBERia4aQ4SZnQlkOecWVbecc+4x59wI59yITp06NViB9XV0Jz+4UkdoiIiIREdtWiKOB84ys7XA34BJZvZcVKtqAKUh4vOsz0OuREREJD7VGCKccz93zh3qnOsNXAS875y7LOqVHaQhXYcAsGTLkpArERERiU9xeZ4I8EdotEhpwfqd69m2Z1vY5YiIiMSdOoUI59wc59yZ0SqmISUnJZPRJQOApVuWhlyNiIhI/InblgiAIV18l8bibxeHXImIiEj8iesQMbTrUEAhQkREJBriOkRocKWIiEj0xHWIGNx5MIaxLGsZBcUFYZcjIiISV+I6RLRu3poj2h9BYUmhTjolIiLSwOI6RACM6D4CgIWbFoZciYiISHyJ+xAxqscoABZ+oxAhIiLSkOI+RIzsPhKATzZ9EnIlIiIi8SXuQ8SwbsNItmSWZS1jd+HusMsRERGJG3EfItKapTGo8yCKXTGfbf4s7HJERETiRtyHCIjo0vhGXRoiIiINJSFCROngSo2LEBERaTgJESLG9BwDwPz180OuREREJH4kRIgY2GkgbQ9py4ZdG1i/c33Y5YiIiMSFhAgRSZbEcT2PA9QaISIi0lASIkQAjO05FoB56+eFXImIiEh8SJwQcVgQIjYoRIiIiDSEhAkRI3uMJDU5lc+3fM6OvTvCLkdERCTmJUyIOCTlEEZ0H4HDqUtDRESkASRMiACY1HsSAO+teS/kSkRERGJfQoWIEw8/EYD3vlaIEBEROVgJFSLGHDqGFikt+Dzrc7Lys8IuR0REJKYlVIhontK87CiN979+P+RqREREYltChQiAE/v4Lo1Za2aFXImIiEhsS7gQcXLfkwF4Z/U7OOdCrkZERCR2JVyIGNZ1GN1adWPjro0s3bI07HJERERiVsKFCDPjjH5nAPDWqrdCrkZERCR2JVyIABQiREREGkBChoiTDz+ZZknN+GjjR+Tszgm7HBERkZiUkCGidfPWjO89nhJXwpsr3wy7HBERkZiUkCEC4Jz+5wDw6opXQ65EREQkNiVsiJg8YDKG8c7qd9i1b1fY5YiIiMSchA0RXVt15YReJ1BQXKAuDRERkXpI2BABcO6AcwF4ZfkrIVciIiISexI6RJw38DwM461Vb7F9z/awyxEREYkpCR0iurfuzomHn0hBcQEvLXsp7HJERERiSkKHCIArMq4A4Nmlz4ZciYiISGxJ+BAxecBk0pqlMX/DfFZvWx12OSIiIjEj4UNEq9RWnDfwPAAe//TxkKsRERGJHQkfIgCuPeZaAJ747AkKigtCrkZERCQ2KEQAYw4dw+DOg8nenc1rK14LuxwREZGYoBCBvzz4dSOuA+DPmX8OuRoREZHYoBARuCzjMtKbp/PBug/I3JQZdjkiIiJNnkJEIL15OlOGTwHgoQUPhVyNiIhI06cQEeHG0TeSkpTCy8teZu2OtWGXIyIi0qQpRETo2aYnFw26iGJXzP3z7g+7HBERkSZNIaKC28fejmE88dkTrNuxLuxyREREmiyFiAoGdBrAxYMvprCkkHvn3ht2OSIiIk2WQkQl7hx3J0mWxBOfPcGXW78MuxwREZEmqcYQYWaHmNknZrbEzJaZ2d2NUViYjup4FNcMu1syQuUAABljSURBVIZiV8yt794adjkiIiJNUm1aIvYBk5xzQ4ChwGlmdmx0ywrfPRPvoVVqK95c+Saz1swKuxwREZEmp8YQ4by84GGz4OaiWlUT0KVVF24fezsA18+4nn1F+0KuSEREpGmp1ZgIM0s2s8VAFvCuc+7jSpaZYmaZZpaZnZ3d0HWG4sdjfkz/jv1ZmbOS++frkE8REZFItQoRzrli59xQ4FBglJkNqmSZx5xzI5xzIzp16tTQdYaieUpzHv7OwwD8cu4v+XzL5yFXJCIi0nTU6egM59wOYA5wWlSqaYIm9J7AtcdcS0FxAZe/drkuFS4iIhKozdEZncysbTDdAjgJSKjjHh885UEOb3c4S7Ys4fb3bg+7HBERkSahNi0R3YDZZrYUWIgfE/FmdMtqWlqltuK5yc+RkpTCQwse4o0v3wi7JBERkdDV5uiMpc65Yc65DOfcIOfcPY1RWFMzpucY7jvxPgCueP0KjY8QEZGEpzNW1sGPx/yY8weez659uzjjhTPYuGtj2CWJiIiERiGiDsyMZ85+huN7Hs/GXRv5zgvfYde+XWGXJSIiEgqFiDpq0awFb1z0Bkd1OIqlW5ZyzvRz2F24O+yyREREGp1CRD10SOvAvy79F11aduG9r9/jtOdOY+fenWGXJSIi0qgUIuqpT7s+zL5yNj1a92Du+rlM+usksvPj40ydIiIitaEQcRAGdBrAvKvncUT7I/h086eMfWosK7JXhF2WiIhIo1CIOEi92/Zm7vfnktElg5U5Kxn1+CheXvZy2GWJiIhEnUJEA+jaqivzr57PRYMuIq8gjwteuYCb376ZPYV7wi5NREQkahQiGkir1Fa8cM4LTDttGilJKfzu498x9NGhzF03N+zSREREokIhogGZGT8c/UPmfX8eAzsNZGXOSsY9PY7r3rxOgy5FRCTuKEREwehDR/PplE+5c9ydNEtqxqOLHqXvtL784oNfkF+QH3Z5IiIiDUIhIkqapzTn7ol389m1n3H6EaeTW5DLHbPvoO+0vvxq7q/Yvmd72CWKiIgcFIWIKDu689HMuHQG71/xPiO7j2RL/hZuf/92ev62Jzf96yaWZy8Pu0QREZF6Medcg690xIgRLjMzs8HXG+ucc8xaM4sHPnyAd9e8WzZ/dI/RXD3saib3n0ynlp1CrFBERORAZrbIOTfigPkKEeFY8u0SHs58mBe/eLHsIl5JlsTYw8Yyuf9kzu5/Nr3b9g63SBERERQimqzdhbt5dfmrPP/587z/9fsUlhSWPXd0p6OZ0HsC43uNZ3zv8XRu2TnESkVEJFEpRMSAnXt3MmPVDF7/6nVmrJpBXkHefs8P6DiAUT1GcUy3Yzim+zEM7TqUtGZpIVUrIiKJQiEixuwr2sfCTQuZs3YO/173b+avn8+eov3PgJlkSRzZ4Uj6d+xP/w79/X3H/hzV8SjaHtI2pMpFRCTeKETEuILiAj7d/CmZmzJZtHkRizYtYnn2copdcaXLd0rrRK+2vTiszWH0auPvD2tzGD3Te9KlVRe6tOxC85TmjfwpREQkFilExKE9hXv4cuuXfLn1S77K+apsemXOygNaLSrTpnkbOrfsTJdWXfx9yy50TOtI20PaVnprd0g70punk5yU3AifTkREmgqFiARS4krYlLuJDTs3sH7netbvXM+6netYv3M9G3dtZEv+FrLysygqKarX+lultiKtWRotm7WkZWrLyqebBdPBvObJzUlNTqV5SnAfPK5sXsXHKUkppCSlkJyUTLIlk5KUgpk18FYTEZGqVBUiUsIoRqIryZI4NP1QDk0/lDE9x1S6jHOO7Xu3k5WfxZY8Hyq25G9h255tbN+znR37drBj74G3nXt3kleQd8Cgz8ZmWFmwSElKIdmS95uuGDqSLZlkS8EsmRRLwUgK1pKEBfc4K5tHxXmufJ5zBi7y+eDeVXhtsGZIwiKeK72ZMxzg/+NDkXP+VZHzy3N+xHTpc5Gvd8FkMO2XiwxbFYNX5c9Z5Hx34HxX2XKR71mL9ZZ+zkh1+TlTl98+dfqdVMWyDf9TK7ZU/FtJ05Sa3JzZU6c26nsqRCQoM6N9i/a0b9Ge/h371/p1Ja6EvII8dhfuJr8gn/zC/Cqn8wv8492Fu9lTUEDe3n3k7y0gf98+9hYUsLdoH/uKCthXtI+C4gIKSvZRWFJAYck+Cl0BRW4fRezDUUwJxTiKcFbsbzgKSwr3OyRWEkhdvtP0/SeJoqAVoBAhTZBzsHMn5OQkkZOTTk5OOlu3Qk5O+W37dti1y99yc8und+2Cwgb9rndgJZBUDElFYMF9UvH+0xWea9a8mJTUIpJSikhKLiE52ZGU7LCkEpKSnZ+X5Mqmzfx9UrIjKclhySX+PiliXtl0CZbkwILaghrNXDC/fJ5fxmEWfL9Z0H5gftrPw782+AI0c35exHNlryF4Lpgu6+mJeA9X8be0RT6ufNpZWbvGAa+3iNe7Kl5fNm0V5/vXVPrdXsUXfp2WrUNoiNay8eSAfUearNSWzRr9PRUiEpxzsHUrrFsHmzbB5s0H3m/eDFlZUFz5gSC1kpICbdpA69b+1qoVtGhx4C0trfL5pbfmzaFZM6NZs2RSU5Np1iyV1FRo1oyy+8jp0vtkjQUVEWlwChEJoKAAVq2C1avh668PvOXVcnhD69bQocP+t44dy6fbtfNBIT3dL5ueXj7dvHni/pITEYlXChFxpKAAli+HZctgxQo/vXw5/Oc/1bcipKdD797Qowd07w7duu1/3707dO7sf9WLiIiUUoiIUYWFPiBkZsKiRf5+6VLYt+/AZc2gb1/o1w/69Dnw1q6dWglERKTuFCJixO7d8NFH8MEH/vbRR7CnkvNJHXEEDBkCAwbAwIH+duSRfjyBiIhIQ1KIaKJKSmDxYvjXv+Dtt31oKKpwbqi+fWHECDjmGH8/bBi01SUzRESkkShENCF798I778Brr/ngsGVL+XNJSTB8OIwb528nnOAHNYqIiIRFISJk+/b54PDyy/DGG/78CqUOPRROP93fJk3yRz6IiIg0FQoRIVm6FP7yF3juOdixo3z+8OFw3nnw3e/C0UdrwKOIiDRdChGNKD8f/vY3Hx4+/rh8/pAhcOGFcP75fmCkiIhILFCIaAQ5OfDHP8If/uCnwXdNXHYZ/Pd/+xAhIiISaxQiomjDBvjNb+Cxx/whmgCjRsH//I9vdUhLC7c+ERGRg6EQEQVZWfCLX8Ajj5RfeOr00+G22/xRFRrnICIi8UAhogHt3g0PPggPPOCvR2EGF10EP/sZDB0adnUiIiINSyGiATgH//gH3HSTvxomwHe+A7/6FQweHG5tIiIi0aIQcZA2bPBjHN580z8eMgR+/3sYPz7cukRERKItKewCYpVz8MwzMGiQDxDp6T48ZGYqQIiISGJQS0Q9bN3qD818/XX/+Kyz/CDKbt3CrUtERKQxKUTU0ccf+8MzN2zwrQ/TpsEVV+iICxERSTzqzqgl5+BPf/KHaG7YAGPGwOefw5VXKkCIiEhiUoiohcJC331xww1++sYbYc4cOOywsCsTEREJj7ozapCb67sv3nkHWrSAJ5/0534QERFJdAoR1di82Z/v4bPPoFMn+Oc/YfTosKsSERFpGhQiqrBpE0yYAKtW+Strvv029O0bdlUiIiJNR41jIsysp5nNNrMVZrbMzG5qjMLCFBkghg6FDz9UgBAREamoNi0RRcBPnHOfmllrYJGZveucWx7l2kJRMUDMmgUdOoRdlYiISNNTY0uEc26zc+7TYDoXWAH0iHZhYdi5E049VQFCRESkNup0iKeZ9QaGAR9X8twUM8s0s8zs7OyGqa4RFRTAeefBF19A//4KECIiIjWpdYgws1bAq8CPnHO7Kj7vnHvMOTfCOTeiU6dODVlj1DkHU6b44NClC8yYoQAhIiJSk1qFCDNrhg8Qzzvn/h7dkhrfvff6i2mlpfmLafXpE3ZFIiIiTV9tjs4w4AlghXPuN9EvqXG99x7ccYc/dfXf/gYjRoRdkYiISGyoTUvE8cDlwCQzWxzczohyXY1i0ya45BLfnXHnnfDd74ZdkYiISOyo8RBP59w8IO4uMVVU5E9fnZUFJ53kWyNERESk9hL2AlxTp8LcudCtGzz/PCQnh12RiIhIbEnIELFwIdx3HyQl+XEQnTuHXZGIiEjsSbgQUVAAV18NJSVw880wblzYFYmIiMSmhAsR997rTyh1xBFwzz1hVyMiIhK7EipELF0Kv/yln378cX9eCBEREamfhAkRJSX+rJRFRfCDH8D48WFXJCIiEtsSJkRMnw4ffwxdu/pBlSIiInJwEiJE7NkDt93mp3/xC0hPD7ceERGReJAQIeL3v4f16yEjA666KuxqRERE4kPch4isLH9EBsBDD+mkUiIiIg0l7kPE1KmQmwtnnulPby0iIiINI65DxPr1/lDOpCT49a/DrkZERCS+xHWIePDB8gttDRgQdjUiIiLxJW5DRFYW/OUvfrr0yAwRERFpOHEbIn77W9i7F846CwYPDrsaERGR+BOXIWLHDvjTn/z07beHW4uIiEi8issQ8ac/+SMyTjwRRo8OuxoREZH4FHchYu9ef3IpUCuEiIhINMVdiHj5ZcjOhqFDYeLEsKsRERGJX3EXIv74R39/ww1gFm4tIiIi8SyuQsTChfDJJ9CuHVx8cdjViIiIxLe4ChGPPurvr74a0tLCrUVERCTexU2IyMuD6dP99DXXhFuLiIhIIoibEPHSSz5IHH889O8fdjUiIiLxL25CxBNP+Purrw63DhERkUSREnYBDWH1avjwQ2jZEi64oA4vdM5fZGPNGti8Gfbtg8JCKC6G1q0hPR3atoWePaFLF385UBEREQHiJES88IK/nzwZWrWqZkHnIDMTXn8d/v1v+Owz2L27dm+SmurDRK9e0LcvDBwIRx/tb9266XhSERFJODEfIpyD55/305dcUsVCe/fCk0/CtGnw1Vf7P9e+PRx+OPToAS1a+LAAfoDFzp2wbRusXw85Ob7JY/VqeP/9/dfRtq0PFYMG+at9ZWT4+3btGvSzioiINCUxHyIWL/a5oFMnOOmkShZ45RW45RZYt84/7tYNzj0XTjsNjj0WOnSo3Rvl5/swsW4drFoFy5aV37Zv9/0pH364/2sOPXT/UDF4sB/1WRpUREREYljMh4gXX/T3F1wAzZpFPLFzJ1x7bflxn4MGwR13+D6P/RaspZYtYcAAfzvttPL5zsGWLT5MfPEFfP45LF3qH2/c6G//+lf58ikpPkhkZJSHi4wM3xKiLhEREYkh5pxr8JWOGDHCZWZmNvh6K3IO+vXzPQz//jeMGxc8sWYNnHkmrFjhv/wfeACmTIHk5KjXVKa42NdRGipK71ev9oVX1Lbt/q0WRx7pb927K1yIiEiozGyRc27EAfNjOUQsWeIvtNW5M2zaFGSEr76C8eN968DRR8Mbb/iBkE1Ffr5vpYgMFkuX+rEXlUlLgyOO8IGiXz9/69vXD/Ds3r1+rSoiIiJ1UFWIiOnujL//3d+ffXYQIL7+GiZN8gFi4kR/FEZ6eqg1HqBlSxg1yt9KOecPMS0NFV984cddrFoFW7eWB42KkpJ8kOjVCw47rPzWq5cfj9G1K3Ts2LgtMCIikjBiOkS8+qq/P/dc/NEUZ53lmyTGjYN//tN/YccCMx8GuneHU0/d/7nt2+E//4GVK8uDxddf+0GemzaVj7uYP7/ydScl+VGnXbv6c11E3nfu7I9OKb21a+dvKTG9W4iISCOJ2W+L1at9r0CbNjBhvIPLr/a/4I86Cv7xj9gJEDVp1w5GjvS3igoK4Jtvyo8aibzfuNG3yOTk+PstW2r/nq1bl4eK0vu2bf1JOFq18s+XTlc3r3lztYKIiMSxmA0Rb73l7087DVKnPwsvv+y/yN54wyeLRJCaCn36+FtVCgogOxu+/dYHicj7rCw/FmP79vL77dshN9ffSg+LPRjNmsEhhxx4a9Gi8vmpqf41pbeUlP0fVzWv4vyUFB9gkpLK7ytOV/dcbaZLb2blN6j5sYhInIj5EHH+mI1w443+wbRpviVCyqWm+sNHe/So3fIlJbBr1/7BYts2f8hsXl75LTe3+sd5ef4kX4WF/pabG93PGWvqEjwaapnSx3WpMRrLat2Nv25JDC1bVj5+LopiMkTk5cGcOf7/o+/MucV/wZ15Jlx5Zdilxb6kJN910bZt9S0cteGcbwnZu7f2t9Lrl5Teior2f1zbeUVFPhAVF/v76qZru1xVr3Gu/LDd0umKjyvbNlE4MkpEEli1132IjpgMEbNm+e+mKUfP55DXp/tm8D/9Sem8qTHz4yKaN0+cLqbq1BQ0KnvcUMtEvn9dam3oZbXuxl+3JI4QvgNjMkT4E0A67txxs59x663+0EaRpqw+XQoiIk1YTF7betYsOIMZ9PhmoT9c8ac/DbskERGRhBNzLRFr1sCaNY4Xk38JxfhWiBD6gURERBJdzLVEzJoFE5jDqOIF/hwG114bdkkiIiIJKSZDxI/4nX9w001qhRAREQlJTIWIkhL46t31nMmbuGbN4Lrrwi5JREQkYcVUiPj8czh3x+MkU+IvmNG5c9gliYiIJKyYChFzZxdxDY8DYGqFEBERCVVMhYidr86iO5vZ0fUof6VOERERCU2NIcLMnjSzLDP7ojEKqopzcETmiwAUnX+JTtgjIiISstq0RDwNnBblOmq0aukeTt/7GgAdbrg45GpERESkxhDhnPsA2NYItVRr3cMzSCeX1e2OwY7sF3Y5IiIiCa/BxkSY2RQzyzSzzOzs7IZabZk2//JdGZvHqxVCRESkKWiwEOGce8w5N8I5N6JTp04NtdoyKbf/jPkjb6L7zRc2+LpFRESk7mLm2hnDrx0J144MuwwREREJxNQhniIiItJ01OYQzxeBBcBRZrbRzP4r+mWJiIhIU1djd4ZzTiMZRURE5ADqzhAREZF6UYgQERGRelGIEBERkXpRiBAREZF6UYgQERGRelGIEBERkXpRiBAREZF6UYgQERGRelGIEBERkXox51zDr9QsG1jX4CuGjsDWKKw3nmmb1Y22V91oe9WdtlndaHvVTbS2Vy/n3AGX6I5KiIgWM8t0zo0Iu45Yom1WN9pedaPtVXfaZnWj7VU3jb291J0hIiIi9aIQISIiIvUSayHisbALiEHaZnWj7VU32l51p21WN9peddOo2yumxkSIiIhI0xFrLREiIiLSRMRMiDCz08zsKzP7j5ndFnY9TZGZrTWzz81ssZllBvPam9m7ZrYquG8Xdp1hMrMnzSzLzL6ImFflNjKznwf73Fdmdmo4VYeniu11l5l9E+xni83sjIjnEn179TSz2Wa2wsyWmdlNwXztY5WoZntpH6uCmR1iZp+Y2ZJgm90dzA9nH3PONfkbkAysBg4HUoElwMCw62pqN2At0LHCvF8DtwXTtwH3h11nyNtoHDAc+KKmbQQMDPa15kCfYB9MDvszNIHtdRdwSyXLantBN2B4MN0aWBlsF+1jddte2seq3mYGtAqmmwEfA8eGtY/FSkvEKOA/zrk1zrkC4G/A90KuKVZ8D3gmmH4GODvEWkLnnPsA2FZhdlXb6HvA35xz+5xzXwP/we+LCaOK7VUVbS/nNjvnPg2mc4EVQA+0j1Wqmu1VlYTeXgDOywseNgtujpD2sVgJET2ADRGPN1L9jpaoHDDTzBaZ2ZRgXhfn3Gbw/8MCnUOrrumqahtpv6vaDWa2NOjuKG021faKYGa9gWH4X4rax2pQYXuB9rEqmVmymS0GsoB3nXOh7WOxEiKsknk6rORAxzvnhgOnA9eb2biwC4px2u8q9zDQFxgKbAYeCuZrewXMrBXwKvAj59yu6hatZF7CbbNKtpf2sWo454qdc0OBQ4FRZjaomsWjus1iJURsBHpGPD4U2BRSLU2Wc25TcJ8FvIZvstpiZt0Agvus8CpssqraRtrvKuGc2xL8I1YC/IXyplFtL8DMmuG/EJ93zv09mK19rAqVbS/tY7XjnNsBzAFOI6R9LFZCxEKgn5n1MbNU4CLgHyHX1KSYWUsza106DZwCfIHfTlcGi10JvBFOhU1aVdvoH8BFZtbczPoA/YBPQqivSSn9hyowGb+fgbYXZmbAE8AK59xvIp7SPlaJqraX9rGqmVknM2sbTLcATgK+JKR9LKWhVhRNzrkiM7sBeAd/pMaTzrllIZfV1HQBXvP/T5ICvOCce9vMFgIvmdl/AeuB80OsMXRm9iIwAehoZhuBqcB9VLKNnHPLzOwlYDlQBFzvnCsOpfCQVLG9JpjZUHyT6FrgWtD2ChwPXA58HvRZA9yO9rGqVLW9LtY+VqVuwDNmloxvCHjJOfemmS0ghH1MZ6wUERGReomV7gwRERFpYhQiREREpF4UIkRERKReFCJERESkXhQiREREpF4UIkSkzsysrZn9T9h1iEi4FCJEpD7aAgoRIglOIUJE6uM+oK+ZLTazB8IuRkTCoZNNiUidBVdcfNM5V92Ff0QkzqklQkREROpFIUJERETqRSFCROojF2gddhEiEi6FCBGpM+dcDjDfzL7QwEqRxKWBlSIiIlIvaokQERGRelGIEBERkXpRiBAREZF6UYgQERGRelGIEBERkXpRiBAREZF6UYgQERGRelGIEBERkXr5/3ZX+niUZkNeAAAAAElFTkSuQmCC\n", "text/plain": [ "
" ] }, "metadata": { "filenames": { "image/png": "/Users/matthewmckay/repos-collab/phd-macro-theory-book/_build/jupyter_execute/dyn_stack_8_0.png" }, "needs_background": "light" }, "output_type": "display_data" } ], "source": [ "q_leader = yt[1, :-1]\n", "q_follower = yt[2, :-1]\n", "q = q_leader + q_follower # Total output, Stackelberg\n", "p = a0 - a1 * q # Price, Stackelberg\n", "\n", "fig, ax = plt.subplots(figsize=(9, 5.8))\n", "ax.plot(range(n), q_leader, 'b-', lw=2, label='leader output')\n", "ax.plot(range(n), q_follower, 'r-', lw=2, label='follower output')\n", "ax.plot(range(n), p, 'g-', lw=2, label='price')\n", "ax.set_title('Output and prices, Stackelberg duopoly')\n", "ax.legend(frameon=False)\n", "ax.set_xlabel('t')\n", "plt.show()" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Value of Stackelberg Leader\n", "\n", "We'll compute the present value earned by the Stackelberg leader.\n", "\n", "We'll compute it two ways (they give identical answers -- just a check\n", "on coding and thinking)" ] }, { "cell_type": "code", "execution_count": 6, "metadata": {}, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ "Computed values for the Stackelberg leader at t=0:\n", "\n", "v_leader_forward(forward sim) = 150.0316\n", "v_leader_direct (direct) = 150.0324\n" ] } ], "source": [ "v_leader_forward = np.sum(βs * π_leader)\n", "v_leader_direct = -yt[:, 0].T @ P @ yt[:, 0]\n", "\n", "# Display values\n", "print(\"Computed values for the Stackelberg leader at t=0:\\n\")\n", "print(f\"v_leader_forward(forward sim) = {v_leader_forward:.4f}\")\n", "print(f\"v_leader_direct (direct) = {v_leader_direct:.4f}\")" ] }, { "cell_type": "code", "execution_count": 7, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "True" ] }, "execution_count": 7, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Manually checks whether P is approximately a fixed point\n", "P_next = (R + F.T @ Q @ F + β * (A - B @ F).T @ P @ (A - B @ F))\n", "(P - P_next < tol0).all()" ] }, { "cell_type": "code", "execution_count": 8, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "True" ] }, "execution_count": 8, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Manually checks whether two different ways of computing the\n", "# value function give approximately the same answer\n", "v_expanded = -((y0.T @ R @ y0 + ut[:, 0].T @ Q @ ut[:, 0] +\n", " β * (y0.T @ (A - B @ F).T @ P @ (A - B @ F) @ y0)))\n", "(v_leader_direct - v_expanded < tol0)[0, 0]" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Exhibiting Time Inconsistency of Stackelberg Plan\n", "\n", "In the code below we compare two values\n", "\n", "- the continuation value $- y_t P y_t$ earned by a continuation\n", " Stackelberg leader who inherits state $y_t$ at $t$\n", "- the value of a **reborn Stackelberg leader** who inherits state\n", " $z_t$ at $t$ and sets $x_t = - P_{22}^{-1} P_{21}$\n", "\n", "The difference between these two values is a tell-tale sign of the time\n", "inconsistency of the Stackelberg plan" ] }, { "cell_type": "code", "execution_count": 9, "metadata": {}, "outputs": [], "source": [ "# Compute value function over time with a reset at time t\n", "vt_leader = np.zeros(n)\n", "vt_reset_leader = np.empty_like(vt_leader)\n", "\n", "yt_reset = yt.copy()\n", "yt_reset[-1, :] = (H_0_0 @ yt[:3, :])\n", "\n", "for t in range(n):\n", " vt_leader[t] = -yt[:, t].T @ P @ yt[:, t]\n", " vt_reset_leader[t] = -yt_reset[:, t].T @ P @ yt_reset[:, t]" ] }, { "cell_type": "code", "execution_count": 10, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAsgAAAHwCAYAAAC7apkrAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADh0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uMy4yLjIsIGh0dHA6Ly9tYXRwbG90bGliLm9yZy+WH4yJAAAgAElEQVR4nOzde5xcVZ3v/c+PDhcNICrRJ1wTPFxyD0kHA4hJBOSmgihCPMNF5hwCCeP4OI6CF0DP8TkcZRQzRgwqIAiEqw4yzIAoYRBB6CC3JAYCBIlECUEhAYF08nv+qN1Npajurk66U9Xdn/frVa/dta+r9urd/e3Va68dmYkkSZKkki3qXQBJkiSpkRiQJUmSpDIGZEmSJKmMAVmSJEkqY0CWJEmSyhiQJUmSpDIGZEmSJKmMAVnSgBURl0XE/653OXpbRCyLiEM207EWRsTUGtbrtEybs8ySVMmALKkhGZBK+tp5yMxRmTm/3uWQpE1hQJakboqIQfUuQ5tGKUujlEOSeoIBWVKfEhE7RcQNEbEyIp6KiE9XLD8rIp6IiNURsSgiPlq2bN+IeKBYdg2wTa37LlpyvxARDwMvVwuEEbFrRNxYbL8qIr5bzB8REfMj4q9FF4SPVGy3LCI+FxEPR8SLEXFNRGwTEVcAuwE/j4g1EfH5jsrS1TE6OJdnRcT1FfO+ExGzuzqXnZSjvcW7q+2BScX8v0TEpRGxDVV0VedV1v96RFxY9n6XiHg5IvydJ6km/rCQ1GcUAefnwEPAzsDBwGci4rCy1Z4ADgLeBnwV+ElEDI2IrYCfAVcA7wCuAz7WzX1PB44CdsjM1oqyNQE3A08Dw4p9zIuILYv93ga8C/gH4MqI2Lvi430COBwYDowFTsnME4E/AB/OzG0z8xvVygJEjceodDVwZERsX/YZPgFc1dm5rNhHh+ekhu3/O3AY8B5gL+DLlQWssV4qjS/WbzMOWJiZ6zvZRpLaGZAl9SWTgCGZ+bXMfD0znwR+AJzQtkJmXpeZz2bm+sy8Bngc2A+YDGwJXJiZazPzeuD+7uwbmJ2Zz2Tm36qUbT9gJ+CfM/PlzHw1M39dHHdb4Pxiv7+iFKSnV2w/uyj3C5QC4fguzkV5WWo9xgYy82ngAeCYYtYHgFcy895ieUfnsqNyVO6/q+2/W2z7AvD1DspbS71UGg88XPZ+XNv7iJgWEcM62VaSsM+YpL5kd2CniPhr2bwm4K62NxFxEvBZSq24UAqOOwJvAf6YmVm27dPd2TfwTCdl2xV4ukor6k7AMxWtl09Tag0t96eyr18ptutMeVlqPUY1V1EKppcDn+SN1uPOzmVH5dhADduXb/s01T9zLfVSfswhwLuBhWWzxwG/Lr4+FTinozJLEhiQJfUtzwBPZeae1RZGxO6UWhcPBu7JzHUR8SClLggrgJ0jIspC8m6UugF0ue9CdrLsGWC3iBhUEZKfBXaNiC3KAuxuwGOd7KuWY5bP35RjXAf8S0TsAnwU2B+6PJddlq/G7Xct+3q34nNUqqVeyo0CHs/MV4tyDAKmAd8r+mV/mNK5uiQzL69xn5IGGLtYSGpkWxY3q21T3MD1APBScWPYWyKiKSJGR8SkYv3BlALbSoCI+BQwulh2D9AKfLq4mexYNvx3/31d7Lsr91EK4edHxOCizAcCvwVeBj4fEVtGaYzgDwPzatzvn4E9ulhno4+RmSuB+cCllILo4mJRZ+eyFrVsP6u4ge4dwBeBa6rsp7v1EsBbizreAvgGMIRSF4ubgd9l5lTDsaTOGJAlNbJbgL+Vvb5CKfiNB54Cngd+SOkmMDJzEfAvlMLwn4ExwN3FsteBY4FTgL8AxwM3th0oM9d1tu+ulG3/3yjdWLccOL447keAI4p9fg84KTN/X+M5+D/Al4vRKT7XwbE39RhXAYdQ1r2is3NZixq3v4rSjYVPFq83PbRlI+rlLkph+PfALyjqIjP/QqlultT6GSQNXLFhdzxJkvqniDgGGJaZF3a5sqQBzRZkSdJA8RjwP8rHSJakamxBliRJksrYgixJkiSVMSBLkiRJZQzIkiRJUpmGfFDIjjvumMOGDat3MSRJktSPLViw4PnMHFI5vyED8rBhw2hpaal3MSRJktSPRcTT1ebbxUKSJEkqY0CWJEmSyhiQC3eOmUVrDOLOMbPqXRRJkiTVUUM+KKS5uTk3dx/k1hjEINbRShODsnWzHluSpIFs7dq1LF++nFdffbXeRVE/tc0227DLLruw5ZZbbjA/IhZkZnPl+g15k1493D16Bgc+Ope7R89gSr0LI0nSALJ8+XK22247hg0bRkTUuzjqZzKTVatWsXz5coYPH17TNnaxKEx5ZA6DspUpj8ypd1EkSRpQXn31Vd75zncajtUrIoJ3vvOd3foPRU0BOSIOj4glEbE0Is6qsnyfiLgnIl6LiM91Z1tJkiTDsXpTd7+/ugzIEdEEzAGOAEYC0yNiZMVqLwCfBi7YiG0lSZKkhlFLC/J+wNLMfDIzXwfmAUeXr5CZz2Xm/cDa7m4rSZJUb1//+tcZNWoUY8eOZfz48fz2t78F4MILL+SVV17ZqH1edtllnHnmmTWvP3Xq1PYHpW277bYbdczu6qnjdPezNrpaAvLOwDNl75cX82qxKdvWxaxZMGhQaSpJkvq/e+65h5tvvpkHHniAhx9+mNtvv51dd90V2LSAXC+trY0/Glejl7GWgFyt00atY8PVvG1EnBYRLRHRsnLlyhp33/NGfW8Wr64bxKjvmZAlSRoIVqxYwY477sjWW28NwI477shOO+3E7NmzefbZZ5k2bRrTpk0D4IwzzqC5uZlRo0Zx7rnntu/j/vvv54ADDmDcuHHst99+rF69eoNj/Pu//zv7778/zz//PLfddhv7778/EyZM4LjjjmPNmjVVy/VP//RPTJgwgYMPPpi2bPTEE09w+OGHM3HiRA466CB+//vfA3DKKafw2c9+lmnTpvGFL3yBJ554gsmTJzNp0iTOOeecmlqKv/nNbzJp0iTGjh27wWc75phjmDhxIqNGjeLiiy9un3/ppZey1157MWXKFO6+++72+StXruRjH/sYkyZNYtKkSe3LzjvvPE477TQ++MEPctJJJ3VZnrrKzE5fwP7ArWXvzwbO7mDd84DPbcy25a+JEydmvbRGUyaUppIkqdctWrSo29vMnJnZ1FSabqrVq1fnuHHjcs8998wzzjgj58+f375s9913z5UrV7a/X7VqVWZmtra25pQpU/Khhx7K1157LYcPH5733XdfZma++OKLuXbt2rz00ktz1qxZeeONN+b73ve+fOGFF3LlypV50EEH5Zo1azIz8/zzz8+vfvWrmZk5ZcqUvP/++zMzE8if/OQnmZn51a9+NWfNmpWZmR/4wAfysccey8zMe++9N6dNm5aZmSeffHIeddRR2drampmZRx11VF511VWZmXnRRRfl4MGDq372tvm33npr/s//+T9z/fr1uW7dujzqqKPyzjvv3OAzv/LKKzlq1Kh8/vnn89lnn81dd901n3vuuXzttdfygAMOaC/j9OnT86677srMzKeffjr32WefzMw899xzc8KECfnKK690r4J6SLXvM6Alq2TRWsZBvh/YMyKGA38ETgA+WWP+3pRt66LpjBkwdy5NM2bUuyiSJKkDc+fCunWl6ZxNHKF12223ZcGCBdx1113ccccdHH/88Zx//vmccsopb1r32muv5eKLL6a1tZUVK1awaNEiIoKhQ4cyadIkALbffvv29e+44w5aWlq47bbb2H777bn55ptZtGgRBx54IACvv/46+++//5uOs8UWW3D88ccD8Hd/93cce+yxrFmzht/85jccd9xx7eu99tpr7V8fd9xxNDU1AaVuIz/72c8A+OQnP8nnPrfBIGNvctttt3Hbbbex7777ArBmzRoef/xx3v/+9zN79mx++tOfAvDMM8/w+OOP86c//YmpU6cyZMgQAI4//ngee+wxAG6//XYWLVrUvu+XXnqpvUX9Ix/5CG95y1s6LUsj6DIgZ2ZrRJwJ3Ao0AZdk5sKIOL1Y/v2I+H+AFmB7YH1EfAYYmZkvVdu2tz5Mj5gzZ9OvNEmS1KtmlNqz6Kn2rKamJqZOncrUqVMZM2YMP/7xj98UkJ966ikuuOAC7r//ft7+9rdzyimn8Oqrr5KZHQ4jtscee/Dkk0/y2GOP0dzcTGZy6KGHcvXVV3erfBHB+vXr2WGHHXjwwQerrjN48OBu7bNcZnL22Wczo+KEzp8/n9tvv5177rmHt771rUydOrV9POGOPvP69eu55557qgbhTSnj5lTTOMiZeUtm7pWZ78nMrxfzvp+Z3y++/lNm7pKZ22fmDsXXL3W0rSRJ0qaYMwdaW3umTWvJkiU8/vjj7e8ffPBBdt99dwC222679tbPl156icGDB/O2t72NP//5z/zHf/wHAPvssw/PPvss999/PwCrV69uvwlt991358Ybb+Skk05i4cKFTJ48mbvvvpulS5cC8Morr7S3vJZbv349119/PQBXXXUV73vf+9h+++0ZPnw41113HVAKtQ899FDVzzR58mRuuOEGAObNm9flOTjssMO45JJL2vtD//GPf+S5557jxRdf5O1vfztvfetb+f3vf8+9994LwHvf+17mz5/PqlWrWLt2bXuZAD74wQ/y3e9+d4Pz2df4JL0OOJqFJEkDw5o1azj55JMZOXIkY8eOZdGiRZx33nkAnHbaaRxxxBFMmzaNcePGse+++zJq1ChOPfXU9m4SW221Fddccw3/8A//wLhx4zj00EM3eGrb3nvvzZVXXslxxx3HSy+9xGWXXcb06dMZO3YskydPbr/RrtzgwYNZuHAhEydO5Fe/+hXnnHMOAFdeeSU/+tGPGDduHKNGjeLf/u3fqn6mCy+8kG9961vst99+rFixgre97W2dnoMPfvCDfPKTn2T//fdnzJgxfPzjH2f16tUcfvjhtLa2MnbsWL7yla8wefJkAIYOHcp5553H/vvvzyGHHMKECRPa9zV79mxaWloYO3YsI0eO5Pvf/37tldEgotQ/ubE0Nzdn2ziA9TJoUKlvU1NT6S9USZLUOxYvXsyIESPqXYx+5ZVXXuEtb3kLEcG8efO4+uqrOwzTA0W177OIWJCZzZXr1nKT3oDU032bJEmSNpcFCxZw5plnkpnssMMOXHLJJfUuUp9iQO7AHGYxh7nADEpPy5YkSeobDjrooA77J6tr9kHuSPn4MZIkSRowDMgdmTEDmpq4c8QMb9aTJEkaQAzIHSnGjzl48RwbkiVJkgYQA3IXioZkb9aTJEkaIAzIXejJgcglSVL/tWzZMq666qr29y0tLXz605/u8eP87Gc/2+BRzueccw633377Ju93/vz5fOhDH9rk/QCccsop7Q866UkPPvggt9xyS7eXdZcBuSvFE0PuHDPLvsiSJKlDlQG5ubmZ2bNn9/hxKgPy1772NQ455JAeP87m1FrjQycMyI2iGM3iwEfn2hdZkqR+6vLLL2fs2LGMGzeOE088EYCnn36agw8+mLFjx3LwwQfzhz/8ASi1jn7605/mgAMOYI899mhvKT3rrLO46667GD9+PN/+9rc3aJE977zzOPXUU5k6dSp77LFHe3BetmwZo0ePbi/HBRdc0P4Uvx/84AdMmjSJcePG8bGPfYxXXnmF3/zmN9x000388z//M+PHj+eJJ57YoLX2l7/8Jfvuuy9jxozh1FNP5bXXXgNg2LBhnHvuuUyYMIExY8ZUfXpfuZdffplTTz2VSZMmse+++7Y/ZGTZsmUcdNBBTJgwgQkTJvCb3/wGKD32+swzz2TkyJEcddRRPPfcc+37WrBgAVOmTGHixIkcdthhrFixAoCpU6fyxS9+kSlTpvCd73xng+Pfd999HHDAAey7774ccMABLFmyhNdff51zzjmHa665hvHjx3PNNde0r9/Zso2SmQ33mjhxYjaMmTMzm5py/uiZ2dRUeitJknrOokWLur9R8fu5J34xP/roo7nXXnvlypUrMzNz1apVmZn5oQ99KC+77LLMzPzRj36URx99dGZmnnzyyfnxj388161blwsXLsz3vOc9mZl5xx135FFHHdW+3/L35557bu6///756quv5sqVK/Md73hHvv766/nUU0/lqFGj2rf55je/meeee25mZj7//PPt87/0pS/l7Nmz249/3XXXtS9re/+3v/0td9lll1yyZElmZp544on57W9/OzMzd9999/bt58yZk3//93//pvNQXt6zzz47r7jiiszM/Mtf/pJ77rlnrlmzJl9++eX829/+lpmZjz32WLZlthtuuCEPOeSQbG1tzT/+8Y/5tre9La+77rp8/fXXc//998/nnnsuMzPnzZuXn/rUpzIzc8qUKXnGGWdUrZMXX3wx165dm5mZv/jFL/LYY4/NzMxLL700Z82aVXWbzpZlVv8+A1qyShb1QSFdmTMH5sxhCuATpyVJahDlzyvYxBuFfvWrX/Hxj3+cHXfcEYB3vOMdANxzzz3ceOONAJx44ol8/vOfb9/mmGOOYYsttmDkyJH8+c9/ruk4Rx11FFtvvTVbb70173rXu7rc7tFHH+XLX/4yf/3rX1mzZg2HHXZYp+svWbKE4cOHs9deewFw8sknM2fOHD7zmc8AcOyxxwIwceLE9s/Vkdtuu42bbrqJCy64AIBXX32VP/zhD+y0006ceeaZPPjggzQ1NfHYY48B8F//9V9Mnz6dpqYmdtppJz7wgQ+0l+nRRx/l0EMPBWDdunUMHTq0/TjHH3981eO/+OKLnHzyyTz++ONEBGvXru20vD3NgNxNs2a98Qhqb9yTJKlOZsx44xfyJspMIqLL9crX2XrrrTfYvhbl2zQ1NdHa2sqgQYNYv359+/xXX321/etTTjmFn/3sZ4wbN47LLruM+fPnd7r/rsrRdvy2Y3e1rxtuuIG99957g/nnnXce7373u3nooYdYv34922yzTfuyaucwMxk1ahT33HNP1eMMHjy46vyvfOUrTJs2jZ/+9KcsW7aMqVOndlrenmYf5G7yAXuSJDWAHhxm6uCDD+baa69l1apVALzwwgsAHHDAAcybNw+AK6+8kve9732d7me77bZj9erV3Tr2u9/9bp577jlWrVrFa6+9xs0339y+bPXq1QwdOpS1a9dy5ZVXdnmcffbZh2XLlrF06VIArrjiCqZMmdKt8rQ57LDD+Nd//df20P273/0OKLXsDh06lC222IIrrriCdevWAfD+97+fefPmsW7dOlasWMEdd9wBwN57783KlSvbA/LatWtZuHBhl8d/8cUX2XnnnQG47LLLuvzsXS3rLgNyrYrRLH45YpbjIkuS1I+MGjWKL33pS0yZMoVx48bx2c9+FoDZs2dz6aWXMnbsWK644oo33UhWaezYsQwaNIhx48bx7W9/u6Zjb7nllpxzzjm8973v5UMf+hD77LNP+7L/9b/+F+9973s59NBDN5h/wgkn8M1vfpN9992XJ554on3+Nttsw6WXXspxxx3HmDFj2GKLLTj99NO7cyrafeUrX2Ht2rWMHTuW0aNH85WvfAWAmTNn8uMf/5jJkyfz2GOPtbcAf/SjH2XPPfdkzJgxnHHGGe3BfKuttuL666/nC1/4AuPGjWP8+PHtN/Z15vOf/zxnn302Bx54YHsIB5g2bRqLFi2qeiNeZ8u6K2r9t8Dm1NzcnC0tLfUuxoYGDSo1HTc1lf5ilSRJPWLx4sWMGDGi3sVQP1ft+ywiFmRmc+W6tiDXquKRekWDsuMiS5Ik9TMG5FpV9HWyL7IkSVL/ZEDeSBUNypIkaRM0YpdP9R/d/f4yIHdX0bdiDrPauyLb1UKSpI23zTbbsGrVKkOyekVmsmrVqg2GpOuKN+l1V8XNet67J0nSplm7di3Lly/fYAxgqSdts8027LLLLmy55ZYbzO/oJj0fFNJdFQOT9+A45ZIkDUhbbrklw4cPr3cxpHY1dbGIiMMjYklELI2Is6osj4iYXSx/OCImlC1bFhGPRMSDEdGgzcLdUHGzXttbsKuFJElSf9BlQI6IJmAOcAQwEpgeESMrVjsC2LN4nQZcVLF8WmaOr9aE3V84qoUkSVL/UEsL8n7A0sx8MjNfB+YBR1esczRweZbcC+wQEUN7uKyNpWIgZEe1kCRJ6h9qCcg7A8+UvV9ezKt1nQRui4gFEXHaxha04VQ0GdvVQpIkqX+oJSBHlXmVQ190ts6BmTmBUjeMWRHx/qoHiTgtIloiomXlypU1FKvOOmgytquFJElS31ZLQF4O7Fr2fhfg2VrXycy26XPATyl12XiTzLw4M5szs3nIkCG1lb6eKm7Wa9OWm0eMsCVZkiSpL6olIN8P7BkRwyNiK+AE4KaKdW4CTipGs5gMvJiZKyJicERsBxARg4EPAo/2YPnrr6IvcltuXrzYlmRJkqS+qMuAnJmtwJnArcBi4NrMXBgRp0fE6cVqtwBPAkuBHwAzi/nvBn4dEQ8B9wH/npn/2cOfob466FPhTXuSJEl9U03jIGfmLZm5V2a+JzO/Xsz7fmZ+v/g6M3NWsXxMZrYU85/MzHHFa1Tbtv1KB0nYm/YkSZL6Jh813ct8FLUkSVJj6uhR0zW1IKsGFX2R23jTniRJUt9iC3JP6aKpuG0xvNEjo2IADEmSJG1GtiD3ti7uymtbHOHoFpIkSY3MgNxTOhgXuXLxGWfY5UKSJKmRGZB7Wgd9kdtUjpP8ve8ZlCVJkhqJAbmn1fisabtcSJIkNSYDck+r8QkhdrmQJElqTAbkntbNJ4TY5UKSJKmxGJB7S41dLdpUdrkwKEuSJNWHAbm31NjVok1ll4vyvsld3PcnSZKkHmRA7i3d7GpRuVlbUJ4x443GaFuVJUmSep9P0uttXTxhrxazZpVC8vr10FZdPo1PkiRp0/gkvXrpZleLajrqfmGLsiRJUs8zIPe2jexq0dmuOgrKY8YYmCVJkjaVXSw2lx7oalGpWteLNnbBkCRJ6pxdLOqtratFDz4RpLJFefRoW5YlSZI2lS3Im1svtCRX6qplecSI0oNJbGGWJEkDmS3IjaIHbtrrSlcty48+aguzJElSRwzIm1sP3rRX66EeeWTjArPBWZIkDUR2saiXzdDVoittXTHaulxU65LRprxrhl00JElSf2AXi0bTCzftdVdXLcwdtTR31eJsy7MkSerLbEGutwZoSe5KZUtzLS3Obaq1PHc0tUVakiRtTpvUghwRh0fEkohYGhFnVVkeETG7WP5wREyoddsBrwFakrtS2dLcVYtzVy3PHU27apG2pVqSJG0OXQbkiGgC5gBHACOB6RExsmK1I4A9i9dpwEXd2HZga0ufixf3uedHdxScaw3QmxqoK4P1rFml18aEbEO4JElqU0sL8n7A0sx8MjNfB+YBR1esczRweZbcC+wQEUNr3FbwRktyW0qcO7feJdpkXQXoTQ3UlcF67tzSa2NCdm+1bjfatDf/iPCPDElSv5GZnb6AjwM/LHt/IvDdinVuBt5X9v6XQHMt21Z7TZw4MQesmTMzm5oyR48uTWfOrHeJGl7bKZs5882nr6emEZmlHtd9+9XUVHrV8/g9XTe9Ne3N76f+NvVceY48V56jnvhM9QC0ZLX8W23mBivAcVVC7r9WrPPvVQLyxFq2LVt2GtACtOy2226b6bQ0sKamNxKF6q6//CCq5w/VvvZHRlPTG5ehL8+V58hz1Uiv/niO6hV3NiUg7w/cWvb+bODsinXmAtPL3i8BhtaybbXXgG5BblOtWdTWZPVhfe2PjP7YQuO58hz1hannamCeo0ZrQe5ymLeIGAQ8BhwM/BG4H/hkZi4sW+co4EzgSOC9wOzM3K+WbasZUMO81aJtKDh44zHVjocmSZK0STZ6mLfMbKUUfm8FFgPXZubCiDg9Ik4vVrsFeBJYCvwAmNnZtj3weQaWyhv4+tBIF5IkSX2NDwrpS9qe2FH+hA5blCVJkjaKj5ruD9rGTWsbD60fDQknSZLUKAzIfVFlUG7gp/BJkiT1NQbkvqwPP4VPkiSpURmQ+4OObuLzEWaSJEndZkDuDzrqm1z5nGSDsiRJUpcMyP1JZVAePdrh4SRJkrrJgNwftQXlRx6p3rJsUJYkSeqQAXkg6KgLhn2VJUmS3sSAPJDU2lfZwCxJkgYwA/JA1FVfZQOzJEkawAzIA1lHfZUNzJIkaQAzIOsNBmZJkiQDsjqxqYHZ4CxJkvogA7Jq193A3FVwNkBLkqQGZEDWxusqMHcVnA3QkiSpARmQ1XMqA3NXwbmnAnR5kJ41y1AtSZI2iQFZva+j4NxTAbptOndu6dWdUF1L6JYkSQOKAVn1t6kBum06Y0bp1Z1Q3dW0p4K2AV2SpL4jMxvuNXHixJQ2ycyZmU1NmaNHb9o0IhPq++qJz9E2nTmz585Nf596rjxXniPPVaNO++M5mjmzLnEBaMkqWTRKyxpLc3NztrS01LsYUqkFd+5cGDECFi/e/NP160sxuac0NZWm69b13D77K89V7TxXXfMc1c5z1bX+eI6amkr/Nd7MImJBZjZXzreLhdSZrrp/9Pa01u4ltU7Lu6H01D7769Rz5bnyHHmuGnXaH8/RjBn1/o2/AVuQJUmSNCDZgixJkiTVwIAsSZIklWnILhYRsRJ4ug6H3hF4vg7HVcesk8ZkvTQe66TxWCeNyXppPPWsk90zc0jlzIYMyPUSES3V+qGofqyTxmS9NB7rpPFYJ43Jemk8jVgndrGQJEmSyhiQJUmSpDIG5A1dXO8C6E2sk8ZkvTQe66TxWCeNyXppPA1XJ/ZBliRJksrYgixJkiSVMSBLkiRJZQzIQEQcHhFLImJpRJxV7/IMZBGxLCIeiYgHI6KlmPeOiPhFRDxeTN9e73L2ZxFxSUQ8FxGPls3rsA4i4uzi2lkSEYfVp9T9Xwf1cl5E/LG4Xh6MiCPLllkvvSwido2IOyJicUQsjIh/LOZ7vdRJJ3XitVInEbFNRNwXEQ8VdfLVYn5DXycDvg9yRDQBjwGHAsuB+4HpmbmorgUboCJiGdCcmc+XzfsG8EJmnl/8AfP2zPxCvcrY30XE+4E1wOWZOflxYCcAACAASURBVLqYV7UOImIkcDWwH7ATcDuwV2auq1Px+60O6uU8YE1mXlCxrvWyGUTEUGBoZj4QEdsBC4BjgFPweqmLTurkE3it1EVEBDA4M9dExJbAr4F/BI6lga8TW5BLFbA0M5/MzNeBecDRdS6TNnQ08OPi6x9T+mGnXpKZ/wW8UDG7ozo4GpiXma9l5lPAUkrXlHpYB/XSEetlM8jMFZn5QPH1amAxsDNeL3XTSZ10xDrpZVmypni7ZfFKGvw6MSCXLpxnyt4vp/OLSb0rgdsiYkFEnFbMe3dmroDSDz/gXXUr3cDVUR14/dTfmRHxcNEFo+1flNbLZhYRw4B9gd/i9dIQKuoEvFbqJiKaIuJB4DngF5nZ8NeJARmiyryB3e+kvg7MzAnAEcCs4t/KalxeP/V1EfAeYDywAviXYr71shlFxLbADcBnMvOlzlatMs966QVV6sRrpY4yc11mjgd2AfaLiNGdrN4QdWJALv1lsmvZ+12AZ+tUlgEvM58tps8BP6X0b5U/F/3K2vqXPVe/Eg5YHdWB108dZeafi18864Ef8Ma/Ia2XzaToU3kDcGVm3ljM9nqpo2p14rXSGDLzr8B84HAa/DoxIJduytszIoZHxFbACcBNdS7TgBQRg4ubKoiIwcAHgUcp1cfJxWonA/9WnxIOaB3VwU3ACRGxdUQMB/YE7qtD+Qaktl8uhY9Sul7AetksipuPfgQszsxvlS3yeqmTjurEa6V+ImJIROxQfP0W4BDg9zT4dTJocx+w0WRma0ScCdwKNAGXZObCOhdroHo38NPSzzcGAVdl5n9GxP3AtRHx98AfgOPqWMZ+LyKuBqYCO0bEcuBc4Hyq1EFmLoyIa4FFQCswy7u/e0cH9TI1IsZT+vfjMmAGWC+b0YHAicAjRf9KgC/i9VJPHdXJdK+VuhkK/LgYNWwL4NrMvDki7qGBr5MBP8ybJEmSVM4uFpIkSVIZA7IkSZJUxoAsSZIklTEgS5IkSWUMyJIkSVIZA7Ik9WERsUNEzKx3OSSpPzEgS1LftgNgQJakHmRAlqS+7XzgPRHxYER8s96FkaT+wAeFSFIfFhHDgJszc3SdiyJJ/YYtyJIkSVIZA7IkSZJUxoAsSX3bamC7ehdCkvoTA7Ik9WGZuQq4OyIe9SY9SeoZ3qQnSZIklbEFWZIkSSpjQJYkSZLKGJAlSZKkMgZkSZIkqYwBWZIkSSpjQJYkSZLKGJAlSZKkMgZkSZIkqYwBWZIkSSpjQJYkSZLKGJAlSZKkMgZkSZIkqYwBWZIkSSpjQJbUp0XEsog4pPJrdW5znquIWBgRU2tYr9MyWb+SNhcDsqSGUISfv0XEmrLXTvUuVyPqa0ExM0dl5vx6l0OSamVAltRIPpyZ25a9nq13gWoVEYPqXYY2jVKWRimHJHWXAVlSQ4uIERExPyL+Wvyr/iObul1EfCoifl72fmlEXFv2/pmIGF98vVNE3BARKyPiqYj4dNl6yyLiCxHxMPBytUAYEbtGxI3F9qsi4ru1fK5i35+LiIcj4sWIuCYitomIK4DdgJ8Xreyf76gsG3PuIuKsiLi+Yt53ImJ22fInImJ1RCyKiI9WKXdlOcq7wXS6PTCpmP+XiLg0IrbpoJwd1ksH638jIn5a9v6bEfHLiNiyq3MiaeAxIEtqWEV4+TlwG/Au4B+AKyNi703c7k7goIjYIiKGAlsCBxbb7gFsCzwcEVsU+3kI2Bk4GPhMRBxWdrjpwFHADpnZWlGOJuBm4GlgWLGPed34XJ8ADgeGA2OBUzLzROAPvNHa/o1qZQFiY84dcDVwZERsX/YZPgFcVSx/AjgIeBvwVeAnxTks1+E5qWH7/w4cBrwH2Av4cmUBa6yXSv8XmBYR4yPidErn9djMXNvJNpIGKAOypEbys6K1868R8TNgMqWwen5mvp6Zv6IUOKd3sZ9Ot8vMJ4HVwHhgCnAr8MeI2Kd4f1dmrgcmAUMy82vFfp4EfgCcUHas2Zn5TGb+rUo59gN2Av45M1/OzFcz89fd+FyzM/PZzHyBUiAc38XnLi/LRp27zHwaeAA4ppj1AeCVzLy3WH5dUab1mXkN8HjxOTsqR+X+u9r+u8W2LwBf76C8tdRL5XFXARcClwNnA0dm5osAETEtIoZ1dl4kDSwGZEmN5JjM3KF4HUMpXD5ThNU2T1NqNexMLdvdCUwF3l98PZ9SOJ5SvAfYHdipLLT/Ffgi8O6y/TzTSTl2BZ6u0opa6+f6U9nXr1AKvJ0pL8vGnjsotRa3BdNP8kbrMRFxUkQ8WHY+RgM7dlKODdSwffm2Txefo1It9VLN74AxwNmZWX6cUym1uEsSYECW1NieBXYt/qXeZjfgjz2wXVtAPqj4+k7eHJCfAZ4qC+07ZOZ2mXlk2X6yk3I8A+xWpW/yxn6uro5ZPn9TjnEdMDUidgE+ShGQI2J3Si21ZwLvzMwdgEd5c7isWr4at9+1orzVbtSspV4qjz0GuAj4MaVA3Db/I8CHgUsj4qSOtpc0sBiQJTWy3wIvA5+PiC2jNJbuh4F5PbDdncA04C2ZuRy4i1K/1HdSamkEuA94qbjp7C0R0RQRoyNiUo3lvw9YAZwfEYOLm+wO3ITP1ebPwB5drLPRx8jMlZRa1C+lFEQXF4sGUwq/K6F0syOlFuBa1bL9rIjYJSLeQalV+Joq++lWvUTEzpS6qJwOzATGxBvjMt8M/C4zp2bm5d34LJL6MQOypIaVma8DHwGOAJ4HvgeclJm/39TtMvMxYA2lYExmvgQ8CdydmeuKeesohcrxwFPFvn5I6QazWsrftv1/o3Rj3XLg+I39XGX+D/DlonvB5zb2HHThKuAQyrpXZOYi4F+AeyiF9DHA3TXur9btr6J0Y+GTxet/V9lPzfVS3Gx4C/CtzLwpM18BvkmpfzOU6mZJrZ9B0sAQmZ39d1CSpP4rIo4BhmXmhfUui6TGYQuyJGkgewz4HxFhQJbUzhZkSZIkqUxNLcgRcXhELInS06bOqrI8ImJ2sfzhiJhQtuz/jdITnB6NiKs7eiqSJEmS1Ai6DMjFU5TmULrRYyQwPSJGVqx2BLBn8TqN0lA6bXcOfxpozszRQBOdDOQuSZIk1VstLcj7AUsz88niruh5wNEV6xwNXJ4l9wI7lD06dBDwlmIc0LdSfUxLSZIkqSFUDl5fzc5s+GSj5cB7a1hn58xsiYgLKA1v9Dfgtsy8rasD7rjjjjls2LAaiiZJkiRtnAULFjyfmUMq59cSkKs9frPyzr6q60TE2ym1Lg8H/gpcFxF/l5k/edNBIk6j1D2D3XbbjZaWlhqKJkmSJG2ciHi62vxaulgsZ8NHf+7Cm7tJdLTOIZSewrQyM9cCNwIHVDtIZl6cmc2Z2TxkyJuCvCRJkrRZ1BKQ7wf2jIjhEbEVpZvsbqpY5ybgpGI0i8nAi5m5glLXiskR8daICOBgYDGSJElSg+oyIGdmK3AmcCulcHttZi6MiNMj4vRitVsoPRJ0KfADSs+6JzN/C1wPPAA8Uhzv4p7+ED3hzjGzaI1B3DlmVr2LIkmSpDpqyAeFNDc35+bug9wagxjEOlppYlC2btZjS5IkafOLiAWZ2Vw530dNF+4ePYNWmrh79Ix6F0WSJEl1VMsoFgPClEfmAHOYUu+CSJIkqa5sQZYkSZLKGJAlSZKkMgZkSZIkqYwBWZIkSSpjQJYkSZLKGJAlSZKkMgZkSZIkqYwBWZIkSSpjQK40axYMGlSaSpIkacAxIFdYd9FcWLeuNJUkSdKAY0CuMDdn0EoTc3NGvYsiSZKkOjAgV1g4cw7bNLWycOacehdFkiRJdRCZWe8yvElzc3O2tLTUuxiSJEnqxyJiQWY2V86vqQU5Ig6PiCURsTQizqqyPCJidrH84YiYULZsh4i4PiJ+HxGLI2L/TfsokiRJUu/pMiBHRBMwBzgCGAlMj4iRFasdAexZvE4DLipb9h3gPzNzH2AcsLgHyi1JkiT1ilpakPcDlmbmk5n5OjAPOLpinaOBy7PkXmCHiBgaEdsD7wd+BJCZr2fmX3uw/JIkSVKPqiUg7ww8U/Z+eTGvlnX2AFYCl0bE7yLihxExuNpBIuK0iGiJiJaVK1fW/AEkSZKknlRLQI4q8yrv7OtonUHABOCizNwXeBl4Ux9mgMy8ODObM7N5yJAhNRRLkiRJ6nm1BOTlwK5l73cBnq1xneXA8sz8bTH/ekqBWZIkSWpItQTk+4E9I2J4RGwFnADcVLHOTcBJxWgWk4EXM3NFZv4JeCYi9i7WOxhY1FOF71U+clqSJGlAqmkc5Ig4ErgQaAIuycyvR8TpAJn5/YgI4LvA4cArwKcys6XYdjzwQ2Ar4Mli2V86O14jjIO8botBNOU61kUTTetb61oWSZIk9byOxkEeVMvGmXkLcEvFvO+XfZ1A1abWzHwQeNOBG93cnMFpzOXinMHMehdGkiRJm42Pmu6Aj5yWJEkamHzUtCRJkgakTXrUtCRJkjRQGJAlSZKkMgZkSZIkqYwBWZIkSSpjQJYkSZLKGJC74hP1JEmSBhQDchfWXTQX1q0rTSVJktTvGZC7MDdn0EoTc3NGvYsiSZKkzcCA3AWfqCdJkjSw+CQ9SZIkDUg+SU+SJEmqgQFZkiRJKlNTQI6IwyNiSUQsjYizqiyPiJhdLH84IiZULG+KiN9FxM09VXBJkiSpN3QZkCOiCZgDHAGMBKZHxMiK1Y4A9ixepwEXVSz/R2DxJpe2nhwPWZIkaUCopQV5P2BpZj6Zma8D84CjK9Y5Grg8S+4FdoiIoQARsQtwFPDDHiz35je3NB4ycx0PWZIkqT+rJSDvDDxT9n55Ma/WdS4EPg+s7+wgEXFaRLRERMvKlStrKNbmdeeI0njId45wPGRJkqT+rJaAHFXmVY4NV3WdiPgQ8FxmLujqIJl5cWY2Z2bzkCFDaijW5nXw4jlsSSsHL3Y8ZEmSpP6sloC8HNi17P0uwLM1rnMg8JGIWEapa8YHIuInG13aOpoxA5qaSlNJkiT1X7UE5PuBPSNieERsBZwA3FSxzk3AScVoFpOBFzNzRWaenZm7ZOawYrtfZebf9eQH2FzmzIHW1tJUkiRJ/degrlbIzNaIOBO4FWgCLsnMhRFxerH8+8AtwJHAUuAV4FO9V2RJkiSp9/ioaUmSJA1IPmq6pzgesiRJUr9mQO6mdReVxkNed5HjIUuSJPVHBuRumpul8ZDnpsNZSJIk9UcG5G5aOHMO2zS1snCmw1lIkiT1R96kJ0mSpAHJm/QkSZKkGhiQN5ajWUiSJPVLBuSNNbc0mgVzHc1CkiSpPzEgb6Q7R5RGs7hzhKNZSJIk9SddPmpa1R28eA7rmEPTYmitd2EkSZLUY2xB3kgzZkBTU2kqSZKk/sOAvJHmzIHWVpiDN+tJkiT1JwbkTeXNepIkSf2KAXlT2ddCkiSpX6kpIEfE4RGxJCKWRsRZVZZHRMwulj8cEROK+btGxB0RsTgiFkbEP/b0B6i3WcxhEK3MwkdPS5Ik9QddBuSIaALmAEcAI4HpETGyYrUjgD2L12nARcX8VuCfMnMEMBmYVWXbPs0eFpIkSf1LLS3I+wFLM/PJzHwdmAccXbHO0cDlWXIvsENEDM3MFZn5AEBmrgYWAzv3YPnrrq2HxS9HeLOeJElSf1BLQN4ZeKbs/XLeHHK7XCcihgH7Ar/tbiEbWdtoFlMW25QsSZLUH9QSkKPKvOzOOhGxLXAD8JnMfKnqQSJOi4iWiGhZuXJlDcVqMN6sJ0mS1C/UEpCXA7uWvd8FeLbWdSJiS0rh+MrMvLGjg2TmxZnZnJnNQ4YMqaXsDcWb9SRJkvqHWgLy/cCeETE8IrYCTgBuqljnJuCkYjSLycCLmbkiIgL4EbA4M7/VoyVvMG036436nn2RJUmS+rIuA3JmtgJnArdSusnu2sxcGBGnR8TpxWq3AE8CS4EfADOL+QcCJwIfiIgHi9eRPf0hGkF7D4uwL7IkSVJfFpmV3Ynrr7m5OVtaWupdjI0za1YpHM+YUbqDT5IkSQ0pIhZkZnPlfJ+k18Pa+iLf+V/Y1UKSJKkPsgW5hw0aVOphsZZBDGJdqd9Fa2u9iyVJkqQKtiBvJm19ke8e7bBvkiRJfZEBuYe1PzjkkTlvtBzb1UKSJKnPMCD3klnFaG/rLnJUC0mSpL7EgNxL2sZFnpt2tZAkSepLDMi9pK0v8sKZdrWQJEnqSwzIvWRORS62q4UkSVLfYEDuZW/qajFihC3JkiRJDcyA3MvaulpcNLr0AJF1CxfbkixJktTADMi9rK2rxeLFtiSrDtqGUxkz5o3vt8p5TqtPPVeeK8+R56pRp/3xHDVaHsrMhntNnDgx+5uZMzObmkrTzCy9gdJrgwVqaG0VOXp035hGvPF91va9Vv6956vjl+fKc+U58lw16qs/nqOmprr8WgdaMt+cRd80oxFe/TEgt2nLV/NHz3xzgDEo95zeCrKVgbMvvMrLP3Nm3wv59Zp6rjxXniPPVaNO++M5qlP+MSA3iKamNzJLZr7xDd4WvNoXqNsXf/kPjN4Mso3wg6TBf+BIktQXGJAbRGXma88vHYXB/hRwuht4uxtym5re+Aukt4Jsf6oPSZIGuI4CcpSWdS4iDge+AzQBP8zM8yuWR7H8SOAV4JTMfKCWbatpbm7OlpaWbvSk7nsGDSrdtAdvPGhvzpyKBeUL584tW6lBzJpVKteIEaW7ELuarl9fiq7d0XZDYy37b3taYSOeK0mS1HAiYkFmNr9pQbXUXP6iFGyfAPYAtgIeAkZWrHMk8B9AAJOB39a6bbVXf25BbtNhz4pqTcxdtYr2dKtmrS29G9ONwdZaSZLUINjYLhbA/sCtZe/PBs6uWGcuML3s/RJgaC3bVnsNhIDcpsMuF9VW6iyQ9mQ3gu4EXwPvZtFT92L0x/s6erP7tufKc+U58lw14rQ/nqN6RYRNCcgfp9Q1ou39icB3K9a5GXhf2ftfAs21bFu27DSgBWjZbbfdNtNpaRxNTRtmzk6DcuV3VW/ckNbI3829qFF/4PRUFTc1bfi95stz5bnyHDXay3M1MM9RU1N9fu9vSkA+rkrI/deKdf69SkCeWMu21V4DqQW5TbVG4pozaE+nuj4SfKu1vm/qqWjkUdxsddj8rRmeK8+V58hz1YjT/niO+mILsl0sNqNqfZPf9JCRfqKnw2xTU+nVCEG0v/zgkCSpP9uUgDwIeBIYXnaj3aiKdY6quEnvvlq3rfYayAG5TXkoLg99jRyaensUt67CbE/8Rd1o51SSJPWejQ7IpW05EnisGJHiS8W804HTi68DmFMsfwRo7mzbrl4G5A11do9eT4a9enRPMMxKkqR66Sgg1zQO8uY2EMZB3hiVww7XMqxwd4YR3phhijfleA5VLEmS6qmjcZC3qEdhtHHmzIHWVnjkkdL0jDNKgXT06OrTiNIzRx59tLZpZuf762o6c+aG5etqajiWJEmNyBbkfqy7D7qzRVeSJA0kHbUgG5AlSZI0INnFQpIkSapBQ7YgR8RK4Ok6HHpH4Pk6HFcds04ak/XSeKyTxmOdNCbrpfHUs052z8whlTMbMiDXS0S0VGtmV/1YJ43Jemk81knjsU4ak/XSeBqxTuxiIUmSJJUxIEuSJEllDMgburjeBdCbWCeNyXppPNZJ47FOGpP10ngark7sgyxJkiSVsQVZkiRJKmNAliRJksoYkIGIODwilkTE0og4q97lGcgiYllEPBIRD0ZESzHvHRHxi4h4vJi+vd7l7M8i4pKIeC4iHi2b12EdRMTZxbWzJCIOq0+p+78O6uW8iPhjcb08GBFHli2zXnpZROwaEXdExOKIWBgR/1jM93qpk07qxGulTiJim4i4LyIeKurkq8X8hr5OBnwf5IhoAh4DDgWWA/cD0zNzUV0LNkBFxDKgOTOfL5v3DeCFzDy/+APm7Zn5hXqVsb+LiPcDa4DLM3N0Ma9qHUTESOBqYD9gJ+B2YK/MXFen4vdbHdTLecCazLygYl3rZTOIiKHA0Mx8ICK2AxYAxwCn4PVSF53UySfwWqmLiAhgcGauiYgtgV8D/wgcSwNfJ7YglypgaWY+mZmvA/OAo+tcJm3oaODHxdc/pvTDTr0kM/8LeKFidkd1cDQwLzNfy8yngKWUrin1sA7qpSPWy2aQmSsy84Hi69XAYmBnvF7qppM66Yh10suyZE3xdsvilTT4dWJALl04z5S9X07nF5N6VwK3RcSCiDitmPfuzFwBpR9+wLvqVrqBq6M68PqpvzMj4uGiC0bbvyitl80sIoYB+wK/xeulIVTUCXit1E1ENEXEg8BzwC8ys+GvEwMyRJV5A7vfSX0dmJkTgCOAWcW/ldW4vH7q6yLgPcB4YAXwL8V862UziohtgRuAz2TmS52tWmWe9dILqtSJ10odZea6zBwP7ALsFxGjO1m9IerEgFz6y2TXsve7AM/WqSwDXmY+W0yfA35K6d8qfy76lbX1L3uufiUcsDqqA6+fOsrMPxe/eNYDP+CNf0NaL5tJ0afyBuDKzLyxmO31UkfV6sRrpTFk5l+B+cDhNPh1YkAu3ZS3Z0QMj4itgBOAm+pcpgEpIgYXN1UQEYOBDwKPUqqPk4vVTgb+rT4lHNA6qoObgBMiYuuIGA7sCdxXh/INSG2/XAofpXS9gPWyWRQ3H/0IWJyZ3ypb5PVSJx3ViddK/UTEkIjYofj6LcAhwO9p8Otk0OY+YKPJzNaIOBO4FWgCLsnMhXUu1kD1buCnpZ9vDAKuysz/jIj7gWsj4u+BPwDH1bGM/V5EXA1MBXaMiOXAucD5VKmDzFwYEdcCi4BWYJZ3f/eODuplakSMp/Tvx2XADLBeNqMDgROBR4r+lQBfxOulnjqqk+leK3UzFPhxMWrYFsC1mXlzRNxDA18nA36YN0mSJKmcXSwkSZKkMgZkSZIkqYwBWZIkSSpjQJYkSZLKGJAlSZKkMgZkSerDImKHiJhZ73JIUn9iQJakvm0HwIAsST3IgCxJfdv5wHsi4sGI+Ga9CyNJ/YEPCpGkPiwihgE3Z+boOhdFkvoNW5AlSZKkMgZkSZIkqYwBWZL6ttXAdvUuhCT1JwZkSerDMnMVcHdEPOpNepLUM7xJT5IkSSpjC7IkSZJUxoAsSZIklTEgS5IkSWUMyJIkSVIZA7IkSZJUxoAsSZIklTEgS5IkSWUMyJIkSVIZA7IkSZJUxoAsSZIklTEgS5IkSWUMyJIkSVIZA7IkSZJUxoAsSZIklTEgSxpQIuKyiPjfDVCOZRFxSC/sd++I+F1ErI6IT/f0/rs49sKImLo5j1kc9/9ExGc2ctv7ImJUT5dJUt9mQJbUMHorNA4wnwfmZ+Z2mTm7tw5Sra4yc1Rmzu+tY3ZQjiHAScDcjdzFBcDXeq5EkvoDA7Ik1SAiBtW7DDXaHVhY70JsRqcAt2Tm3zZy+5uAaRExtOeKJKmvMyBLangRsVNE3BARKyPiqcquAxFxVkQ8UXQrWBQRHy1btm9EPFAsuwbYptZ9F62kX4iIh4GXK0NycdzrK+Z9JyJmd1Wuim0yIv5b2fsNuoF09fnL1vsVMA34bkSsiYi9atj3soj4XEQ8HBEvRsQ1EbFN2fJdI+LG4tirIuK7EXEFsBvw8+I4ny/b1yHF1yMiYn5E/LXoevGRirJ2etyy9d5WfIYdy+aNjIg/R8T2wBHAnWXLto2IdeWBNyJGR8SKiNiucv+Z+SqwAPhgtXMqaWAyIEtqaBGxBfBz4CFgZ+Bg4DMRcVjZak8ABwFvA74K/CQihkbEVsDPgCuAdwDXAR/r5r6nA0cBO2Rma0XxrgaOLIIaEdEEfAK4qrNy9cLnByAzPwDcBZyZmdtm5mM1HuYTwOHAcGAspVbZts9zM/A0MKw4/rzMPBH4A/Dh4jjfqCjzlkWZbwPeBfwDcGVE7F3LcSs+04vAcmBk2eyvA/83M18CxgBLytZfA/wemFC2/vnA/5eZqzv4/IuBcR0skzQAGZAlNbpJwJDM/Fpmvp6ZTwI/AE5oWyEzr8vMZzNzfWZeAzwO7AdMBrYELszMtZl5PXB/d/YNzM7MZ6r9Cz8znwYeAI4pZn0AeCUz7+2iXD36+XvA7KKcL1AKtuOL+fsBOwH/nJkvZ+armfnrGvY3GdgWOL8o868oBe3pNR630qPACICI2I9S+J1TLNsBqAy+9xfrEBHvpxSu5xbvp0XEsIr1Vxf7kST4/9u7/xjLyvqO4++vdxCQkoDualcBV1EbcNZuYeSfTd1tUy0lUURTizZVqwkTd0i1Lak/IoJpaikt6h8dyECLSlshNGpqEGvV6NJuiDCrKzvLaksFygJld4tEqQ1klm//OOfK2btzZ+bOnplzZu77lZycvc+9c85z9smZ+cwzz3MeYLWMqZM0vF4KvDginqiUdSh6SgGIiHcCf0TRywlFOFsHnAg8nJlZ+doHBzk28NAC9fs8RfC7CXgHz/Yez1evQSymjsfqvyv//hlFKAY4HXhwjp7zhbwYeCgzn6mUPUjRA72Y8/aa4dke5D8HrszMp8rXPwZ6h07cDXQnEF4NXJ6ZT5ev3wN8rOfzJwNPIEkle5Altd1DwP2ZeUplOzkzLwCIiJdS9KheCrwgM0+hCFQBPAq8JCKicrwzFnvsUjVcz+UfgW0RcRpwEWVAXqBevX4GPK/y+hcHrON85jv2Qh4CzugzQXG+/5dHgNPL4SFdZwAPD3Duqhng7HJ88waKX0a67gFe1fP5u4FzIuKtFL8k3QxQjoN+I/CZ8peXrrMohrBIEmBAltQ+x0XECd2NYgjDT8rJcidGRKecdPXa8vMnUYS1gwAR8fvAaPnencAs8AcRMRIRb+HIIQ53LXDsBWXmQeDbwGcoguy+RdSr127gHeX5zwe21ljH+Y69kLsofsm4KiJOKttkS/neY8DL+3zdd4D/CWpDzgAAEllJREFUBf4kIo6L4tnIbwRuGeDcVd0e5E8AH8nMw5X3bufoa/o+xS8C1wAfqvRk3wZ8LzO3ZeZNABFxPHAu8PUl1k3SGmRAltQ2twP/V9kupwhXm4H7gUPA31BMfCMz76UIQndShLZNwM7yvaeBt1BM/vox8DvAF7snKoNW32MP4PMUf9L/+fCK+eo1h/eX9XgC+F2KiYV11bHvsRdSOfcrKCbl7af4P4RiqMNHy6dUXNbzdU8Db6J4wsQh4FrgnZn5g8Weu8e9FIH3cGb21v8miomSJ1bO/xSwB3ggM79a+ewrqEzoK72J4rnRjyyxbpLWoDhyaJ4kSatLRHwCOJCZny5fPxe4D3hbd8JkWf5mYGP3c2XZd4D3ZubMCldbUosZkCVJa0pE/Bnw8sx8e0/52cCtwDcyc0lLU0saDgZkSdKaEBHnAN+imLh3UWYearhKklYpA7IkSZJU4SQ9SZIkqaKVC4WsW7cuN27c2HQ1JEmStIbt2rXrUGau7y1vZUDeuHEj09PTTVdDkiRJa1hEPDhXuUMsJEmSpAoDsiRJklRhQJbUfhMTMDICmza1az8x0d66ea1eq9fsta6ma52YaPonzRFa+Zi3sbGxdAyytMwmJmBqCs46C/btO/b9+Hhx3DqP2d0/8wy08HsVnU6xP3y42XqsBK91bRuma/Za26nTgdnZFT9tROzKzLGj3sjM1m3nnntuSupj+/bMTidzdPTY9hGZReysZ+t0iq3OY/Ye/1ivue799u31tUfb917r2t4P0zV7re3cb9/eyI9UYDrnyKL2IEtNWWoPbp29qZ3O6uhBHh+Hycl6rlmSpFK/HmQDslSn3tA7X2g8lqBbR7A1dEqShpwBWarDQr2+vaF3ofFfSwm6BltJkmrRLyCPNFEZqfX6BeFuAJ6ZKT7Xu4cjQ+98PcgGXUmSWsmArOE2aBCG+Xt9+4Veg7AkSauGAVnDpTcQDxqE7fWVJGnNc6EQrU39Hox+3XXFeOCZmWKfWQTh0dEj99u3F89j3LPnyL3hWJKkNc8eZK0NS+0ZtkdYkiT1sAdZq1NvD/FSe4YNx5IkqYcBWatLNxgvFIgdItEq/Ua8rPb9xMTavTavtR118Zq91mG51omJpn9S9Zhreb35NuBG4AAwUym7EngY2F1uF1Teew1wJ7AX2AOcsNA5XGpaP9e7RGZ1eeQWLFHZZiu9uuh8K5rWvap1W7ZOp9iarofX6rV6zV7rar/WTqeZn5X0WWr6qIKFNuB1wDlzBOTL5vjsCHAP8Mvl6xcAnYXOYUAeYvMF4updtIYDcV3BdqVD6ULfiFcyrLfhl4K1tvda1/Z+mK7Za23nvqkf67UF5OJYbFxkQL4A+PtBj29AHkLdO7hfIG76DjoGg35zqjPYtuUb8SpsNknSEOgXkJe01HREbARuy8zR8vWVwLuBnwDTwB9n5o8j4gPAucALgfXALZl5dZ9jXgJcAnDGGWec++CDDw5cL61C3adPVJdoXkVPmVho5enx8eL9fitN97OUFah9ZLMkSYPpt9R0XQH5RcAhIIE/BTZk5nsi4jJgAngt8DPgm8BHM/Ob8x1/bGwsp6enB66XWq6bJqvLL/cG45aluoUCcLX6c+le0nzHMNhKktSMfgF5pI6DZ+ZjlRPdANxWvtwP7MjMQ+V7t1OMX543IGuN6e0lnpoqyrvdqi0IxoOuOD3oytMGXkmSVo9aHvMWERsqLy8CuvHha8BrIuJ5ETECbAXureOcWgV6H8mW+WwYHh8/8nFsK5QgF7vA3kKPU17oaXI+VU6SpNVr4B7kiLgZ2Aasi4j9wBXAtojYTDHE4gFgHKAch/xJ4O7yvdsz8yv1VF2t1W9ccW8v8TKmx0F7hLtVdLiDJEla0hjk5eYY5FVqscF4GU+9mLHBBmFJkgT9xyC7kp6Wrt9yz91xCcs4fKKulaYdCiFJknrVMklPQ6a3p7h3nMIydMf26yHuN0TCHmFJkrRU9iBr8fpNuuvtnq0hmQ7aQ9zbM2w4liRJS2UPsha2gmOLF+qctodYkiQtNwOy+luBYDzf5DoDsSRJaoIBWUdbwWC8gsOYJUmSFsUxyHpWvzHGxzi2uHc8cTccL/MwZkmSpCUxIGvZg3HvBLupqaMX0nNynSRJagsD8jBboWDc20vcHT5hIJYkSW3kGORhVPMY44Um2jmeWJIkrSYG5GGyTMHYiXaSJGktcYjFMKh5KMUKrhciSZK04uxBXsuWucf4GA8nSZLUSvYgr0U19Rj3W+65prl8kiRJrWRArstcD/ttqg41BePex7MZjCVJ0jAwIB+rfmny2muXPzDX3MXr2GJJkiQD8tKVaTKvLdLkM5nM0uHh55dpMqL+wNwvEB9jF+9CHc8u4iFJkoaJAXmJDl9XrJWcFMH4WrZzHLOc9vgeRpjl5lPfN3hg7g3Avft+gXiJXbzLtE6IJEnSqjZwQI6IGyPiQETMVMqujIiHI2J3uV3Q8zVnRMSTEXFZHZVuVJkq782zfh6MT+jMMjU6eUQOfsfjk0cE5h2vft+RYbY3ME9NFVu1rHffLxAvsovXSXeSJEkLW0oP8meB8+co/1Rmbi6323vfA766hHO1Trfn+Cz2cUJnln3bJ4/IqO/rk4O3zUwywiwTr+vzwfHxYquW9e6XOObBSXeSJEmLN3BAzsw7gMcX+/mIeDPwI2DvoOdqo6kcZ5YO1zM+Z6icnGTOwNwNyt2RFRNMHh12e7+4d1/T49mcdCdJktRfnWOQL42Ie8ohGKcCRMRJwAeBjy/0xRFxSURMR8T0wYMHa6xWvfZun+SEzix7ty8uVXYzb7+gXOdDLhbbU+ykO0mSpP7qCsjXAWcCm4FHgWvK8o9TDL14cqEDZOb1mTmWmWPr16+vqVo1KtPnJBNLCpf9gnJ1CPJCj1Je7Bw+e4olSZKWLrK7ZvAgXxSxEbgtM0fney8i/hU4vXzrFOAZ4GOZ+dfzHX9sbCynp6cHrtdyOvycETp5mMPRofPM7DEfr7ts81lnwb59xfDj7hy9qk7n2c9Ul3jux6WfJUmSFicidmXmWG95LT3IEbGh8vIiYAYgM381Mzdm5kbg08AnFgrHbdUdezyV47Ucr3e48eTk0XP0enuZe3uG+83hMxxLkiQt3VIe83YzcCfwSxGxPyLeC1wdEXsi4h7g14A/rLmejRt07PFS9Jvg1+8hFkucwydJkqR5LGmIxXJr4xALSZIkrS3LOsRCkiRJWisMyJIkSVKFAXkBOzZNMBsj7NhUw4OKJUmS1HoG5AVsmZlihMNsmZlquiqSJElaAQbkBewcLR7vtnO0nse7SZIkqd1Gmq5A223dMwlMsrXpikiSJGlF2IMsSZIkVRiQJUmSpAoDsiRJklRhQJYkSZIqDMiSJElShQFZkiRJqjAg9+EKepIkScPJgNyHK+hJkiQNJwNyH66gJ0mSNJxcSa8PV9CTJEkaTvYgS5IkSRUDB+SIuDEiDkTETKXsyoh4OCJ2l9sFZfnrI2JXROwp979eZ+UlSZKkui2lB/mzwPlzlH8qMzeX2+1l2SHgjZm5CXgX8HdLq6YkSZK0MgYeg5yZd0TExkV+9nuVl3uBEyLi+Mx8atDzSpIkSSuhzjHIl0bEPeUQjFPneP+twPcMx5IkSWqzugLydcCZwGbgUeCa6psR8WrgL4C+z0yLiEsiYjoipg8ePFhTtSRJkqTB1BKQM/OxzDycmc8ANwDndd+LiNOALwHvzMz/nOcY12fmWGaOrV+/vo5qSZIkSQOrJSBHxIbKy4uAmbL8FOArwIczc2cd55IkSZKW08CT9CLiZmAbsC4i9gNXANsiYjOQwAM8O5TiUuAVwOURcXlZ9obMPHCM9ZYkSZKWRWRm03U4ytjYWE5PTzddDUmSJK1hEbErM8d6y11Jr8eOTRPMxgg7Nk00XRVJkiQ1wIDcY8vMFCMcZsvMVNNVkSRJUgMMyD12jo4zS4edo32fSCdJkqQ1bOBJemvd1j2TwCRbm66IJEmSGmEPsiRJklRhQJYkSZIqDMiSJElShQFZkiRJqjAgS5IkSRUGZEmSJKnCgCxJkiRVGJAlSZKkCgOyJEmSVGFAliRJkioMyJIkSVKFAVmSJEmqMCBLkiRJFQZkSZIkqWLggBwRN0bEgYiYqZRdGREPR8Tucrug8t6HI+K+iPhhRPxmXRWXJEmSlsNSepA/C5w/R/mnMnNzud0OEBFnAxcDry6/5tqI6Cy1spIkSdJyGzggZ+YdwOOL/PiFwC2Z+VRm3g/cB5w36DlXwo5NE8zGCDs2TTRdFUmSJDWozjHIl0bEPeUQjFPLspcAD1U+s78sO0pEXBIR0xExffDgwRqrtThbZqYY4TBbZqZW/NySJElqj7oC8nXAmcBm4FHgmrI85vhsznWAzLw+M8cyc2z9+vU1VWvxdo6OM0uHnaPjK35uSZIktcdIHQfJzMe6/46IG4Dbypf7gdMrHz0NeKSOc9Zt655JYJKtTVdEkiRJjaqlBzkiNlReXgR0n3DxZeDiiDg+Il4GvBK4q45zSpIkScth4B7kiLgZ2Aasi4j9wBXAtojYTDF84gFgHCAz90bErcC9wCwwkZmH66m6JEmSVL/InHNIcKMi4iDwYAOnXgccauC8mp/t0j62STvZLu1ku7ST7dI+TbTJSzPzqMlvrQzITYmI6cwca7oeOpLt0j62STvZLu1ku7ST7dI+bWoTl5qWJEmSKgzIkiRJUoUB+UjXN10Bzcl2aR/bpJ1sl3ayXdrJdmmf1rSJY5AlSZKkCnuQJUmSpAoDsiRJklRhQAYi4vyI+GFE3BcRH2q6PsMsIh6IiD0RsTsipsuy50fE1yPiP8r9qU3Xc62LiBsj4kBEzFTK+rZDRHy4vH9+GBG/2Uyt174+7XJlRDxc3jO7I+KCynu2yzKLiNMj4lsRsS8i9kbE+8ty75cGzdMu3i8NiYgTIuKuiPh+2SYfL8tbea8M/RjkiOgA/w68HtgP3A28PTPvbbRiQyoiHgDGMvNQpexq4PHMvKr8BebUzPxgU3UcBhHxOuBJ4KbMHC3L5myHiDgbuBk4D3gx8A3gVa6aWb8+7XIl8GRm/lXPZ22XFRARG4ANmfndiDgZ2AW8GXg33i+Nmadd3ob3SyMiIoCTMvPJiDgO+Dfg/cBbaOG9Yg9y8R9/X2b+KDOfBm4BLmy4TjrShcDnyn9/juKbnJZRZt4BPN5T3K8dLgRuycynMvN+4D6K+0o169Mu/dguKyAzH83M75b//imwD3gJ3i+Nmqdd+rFdllkWnixfHlduSUvvFQNyccM8VHm9n/lvIi2vBP4lInZFxCVl2Ysy81EovukBL2ysdsOtXzt4DzXv0oi4pxyC0f3zpO2ywiJiI/ArwHfwfmmNnnYB75fGREQnInYDB4CvZ2Zr7xUDMsQcZcM97qRZWzLzHOC3gInyT8pqN++hZl0HnAlsBh4FrinLbZcVFBG/AHwB+EBm/mS+j85RZrsskznaxfulQZl5ODM3A6cB50XE6Dwfb7RNDMjFbySnV16fBjzSUF2GXmY+Uu4PAF+i+HPKY+V4su64sgPN1XCo9WsH76EGZeZj5Q+dZ4AbePZPkLbLCinHU34B+IfM/GJZ7P3SsLnaxfulHTLzCeDbwPm09F4xIBeT8l4ZES+LiOcCFwNfbrhOQykiTionUxARJwFvAGYo2uNd5cfeBfxTMzUcev3a4cvAxRFxfES8DHglcFcD9RtK3R8spYso7hmwXVZEOfHob4F9mfnJylveLw3q1y7eL82JiPURcUr57xOB3wB+QEvvlZGVOlFbZeZsRFwKfA3oADdm5t6GqzWsXgR8qfi+xgjw+cz854i4G7g1It4L/Bfw2w3WcShExM3ANmBdROwHrgCuYo52yMy9EXErcC8wC0w483t59GmXbRGxmeJPjw8A42C7rKAtwO8Be8qxlQAfwfulaf3a5e3eL43ZAHyufHrYc4BbM/O2iLiTFt4rQ/+YN0mSJKnKIRaSJElShQFZkiRJqjAgS5IkSRUGZEmSJKnCgCxJkiRVGJAlaRWLiFMiYnvT9ZCktcSALEmr2ymAAVmSamRAlqTV7SrgzIjYHRF/2XRlJGktcKEQSVrFImIjcFtmjjZcFUlaM+xBliRJkioMyJIkSVKFAVmSVrefAic3XQlJWksMyJK0imXm/wA7I2LGSXqSVA8n6UmSJEkV9iBLkiRJFQZkSZIkqcKALEmSJFUYkCVJkqQKA7IkSZJUYUCWJEmSKgzIkiRJUsX/A0WX+fsRghhvAAAAAElFTkSuQmCC\n", "text/plain": [ "
" ] }, "metadata": { "filenames": { "image/png": "/Users/matthewmckay/repos-collab/phd-macro-theory-book/_build/jupyter_execute/dyn_stack_15_0.png" }, "needs_background": "light" }, "output_type": "display_data" } ], "source": [ "fig, axes = plt.subplots(3, 1, figsize=(10, 7))\n", "\n", "axes[0].plot(range(n+1), (- F @ yt).flatten(), 'bo',\n", " label='Stackelberg leader', ms=2)\n", "axes[0].plot(range(n+1), (- F @ yt_reset).flatten(), 'ro',\n", " label='continuation leader at t', ms=2)\n", "axes[0].set(title=r'Leader control variable $u_{t}$', xlabel='t')\n", "axes[0].legend()\n", "\n", "axes[1].plot(range(n+1), yt[3, :], 'bo', ms=2)\n", "axes[1].plot(range(n+1), yt_reset[3, :], 'ro', ms=2)\n", "axes[1].set(title=r'Follower control variable $x_{t}$', xlabel='t')\n", "\n", "axes[2].plot(range(n), vt_leader, 'bo', ms=2)\n", "axes[2].plot(range(n), vt_reset_leader, 'ro', ms=2)\n", "axes[2].set(title=r'Leader value function $v(y_{t})$', xlabel='t')\n", "\n", "plt.tight_layout()\n", "plt.show()" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Recursive Formulation of the Follower's Problem\n", "\n", "We now formulate and compute the recursive version of the follower's\n", "problem.\n", "\n", "We check that the recursive **Big** $K$ **, little** $k$ formulation of the follower's problem produces the same output path\n", "$\\vec q_1$ that we computed when we solved the Stackelberg problem" ] }, { "cell_type": "code", "execution_count": 11, "metadata": {}, "outputs": [], "source": [ "A_tilde = np.eye(5)\n", "A_tilde[:4, :4] = A - B @ F\n", "\n", "R_tilde = np.array([[0, 0, 0, 0, -a0 / 2],\n", " [0, 0, 0, 0, a1 / 2],\n", " [0, 0, 0, 0, 0],\n", " [0, 0, 0, 0, 0],\n", " [-a0 / 2, a1 / 2, 0, 0, a1]])\n", "\n", "Q_tilde = Q\n", "B_tilde = np.array([[0, 0, 0, 0, 1]]).T\n", "\n", "lq_tilde = LQ(Q_tilde, R_tilde, A_tilde, B_tilde, beta=β)\n", "P_tilde, F_tilde, d_tilde = lq_tilde.stationary_values(method='doubling')\n", "\n", "y0_tilde = np.vstack((y0, y0[2]))\n", "yt_tilde = lq_tilde.compute_sequence(y0_tilde, ts_length=n)[0]" ] }, { "cell_type": "code", "execution_count": 12, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAD4CAYAAAD8Zh1EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADh0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uMy4yLjIsIGh0dHA6Ly9tYXRwbG90bGliLm9yZy+WH4yJAAAfh0lEQVR4nO3deZwU5b3v8c+vZ+uelRkYFmUZILK4wDiOuwKJyYlm0Xg0x3BMoonGuMQl9+iJicmRc07M6yZirolrcDcxek9coiY3uwE0bgyyiCIiIjIOyDDA7D1bP/ePbhB09ume6qr5vl+vfk13V3U9v4eCLzXVVc9jzjlERMT/Ql4XICIiyaFAFxEJCAW6iEhAKNBFRAJCgS4iEhCZXjU8ZswYV1ZW5lXzIiK+tHLlyp3OudLulnkW6GVlZVRVVXnVvIiIL5nZlp6W6ZSLiEhAKNBFRAJCgS4iEhCenUMXEdlfR0cH1dXVRKNRr0tJC+FwmIkTJ5KVldXvzyjQRSQtVFdXU1BQQFlZGWbmdTmecs5RV1dHdXU1U6dO7ffndMpFRNJCNBpl9OjRIz7MAcyM0aNHD/i3FQW6iKQNhfkHBvNnMeJOuezZUs99V66isQE+/43xHLlwltcliYgkxYgK9PW/28T80wupdQsAuP7vcNWNy1j84klkZGd4W5yIyBCNmFMujTWNfP7MTELmWPmr9ex+p57LjljGzavmc1n5P3AxTfQhIv1z//33U1NTs+/1hRdeyOuvvw7E74LfuXPnRz6zaNEiFi9enNK6Rkyg//y8lWzqnML/3LyNinNnM2pKEbeunc93jl3KL9bP445/Xe51iSLiEx8O9LvvvptDDz3Uw4riRsQpl8aaRhb/rZzPjX2ZeZcfc8CyHz03jzUTVnD1/z2aU857m5mnTfOoShHZ56qrYPXq5G6zvBxuvrnXVW644QYefPBBJk2aRGlpKUcddRRXX331Aes8+uijVFVVce655xKJRHjhhRc47bTTWLx4MZWVlX1uD2DTpk1cdtll1NbWkpuby1133cWsWUP/Pm9EHKE/fv0a9rhRXLso/JFlocwQ9/5lMmFr41tf3q1TLyIj1MqVK3nkkUdYtWoVjz/+OCtWrOh2vbPPPpvKykoeeughVq9eTSQSGfD2LrroIm655RZWrlzJ4sWLufTSS5PShxFxhP7wE2HKMrdywjeP6Hb5hPJxLDpzGVc+Pp+nf/ASp99w7DBXKCIH6ONIOhWeffZZzjzzTHJzcwE4/fTTU7K9pqYmnn/+eb74xS/uW7etrW1Ibe0V+CP02vU7+WtdOQuP3oSFer6u85JfnsDs7E38243jaGtIzh+uiPhLsq+D7257sViMUaNGsXr16n2P9evXJ6W9wAf6M3e+SReZnHHBmF7Xy8rN4qc/2M1bHWXc/tUXhqk6EUkX8+bN44knnqC1tZXGxkaefvrpHtctKCigsbFxUNsrLCxk6tSp/OY3vwHit/mvWbMmKX0IfqD/uZNC6jnq3L6/cDj1+5WcUvwK//upw2jZ2TIM1YlIuqioqOCcc86hvLycs846i5NPPrnHdc8//3wuvvhiysvLaW1tHfD2HnroIe655x7mzp3LYYcdxpNPPpmUPphz3nwJWFlZ6YZjxqIZ2ZuZVbKDp7b377z4s7euYd7lc/npGUv59m8XpLY4Edln/fr1zJ492+sy9lm0aBH5+fkfucplOHX3Z2JmK51zld2tH+gj9OoV29jYMZVPHN//AW5O/tZcPlH8Cj95ejatu7r/n1dEJB0FOtBXPBqfeu/4z40e0Oeu/88MtsfGseTCl1NRloj4wKJFi9i8eTPl5eUHPO677z6vS+tRn5ctmtm9wOeAHc65w3tZ72jgReAc59yjyStx8F55PkoGncw5c/qAPjfv8rmc/P01/PSp6Vza0kFWbv8HmBeR4Ljtttu8LmFA+nOEfj9wam8rmFkG8GPgT0moKWle2ZDHoeG3iZR0f+F/b665oo13uybym2t0lC4i/tBnoDvnlgO7+ljtcuAxYEcyikqWV+omU3Hw4Er67PWVzMrexI33jdbdoyLiC0M+h25mBwNnAncOvZzk2bb6fbbHxlExt2tQnw9lhrh6YQ2rW2fxzE2rklydiEjyJeNL0ZuB7zjn+kxOM7vIzKrMrKq2tjYJTfds3R+rAZhzctGgt3HuzUczLrSDG38cS1ZZIiIpk4xArwQeMbN3gLOB283sC92t6Jxb4pyrdM5VlpaWJqHpnm1Y2QTAzAUTBr2N8KgwV5zyOn+qq2Tto28mqzQRkZQYcqA756Y658qcc2XAo8ClzrnfDrmyIdqwAQpoYPycsUPazsV3zCWPJhZ/J62+HhCRFLjhhhuYOXMmn/zkJ1m4cGHKJ6RItv5ctvgwsAAYY2bVwPVAFoBzLq3Om+/vjffymZlbjYWGNuh8yfRiLpi7jNvXnMANL9Uw6diDklShiPTEi+HQ9x/utrOzk4qKin3jl/tFn4HunFvY3405584fUjVJtKF+PPMmvZOUbX371uncdrLxs8veZHGVAl0kiJI9fK4XAjkeevOOZrZ2HczMaRuTsr2ykybyxcnPs2RlBT94t56iyYP/olVE+ubBcOhA8ofPHW6BvPX/raXxK1xmzslO2jav+VExjRTyi4t1CaNIEA1k+Nx0FchA37xqDwDTjhyVtG1WnDubU4pf4eY/zdIEGCIBNJDhc9NVIAN9y4b46IpTjh7aFS4fds2/xdgWG8+vr9JwACJBdN1117Fhwwb+/Oc/M3nyZK/LGbBABvo770CEFsbMHNgoi335p+8exZzwBhb/egKxTt1sJCLpJZCBvmV7DmXZ23qdQ3QwLGRcc/5OXm/7GH/44cqkbltE0suiRYs8ndxiMIIZ6HuKmFLY13hig3POTccwKeM9fnKzhtQVSTavZlBLR4P5swhmoEfHMqU0NbMNZeVmcdVnN7K8vpyX73stJW2IjEThcJi6ujqFOvEwr6urIxwOD+hzgbsOvWl7E3VuNGWTU3eO+xt3HMV/PVXPjT9o4DdfS1kzIiPKxIkTqa6uJtUD9/lFOBxm4sSJA/pM4AJ9y0vbgY8x5ZDkXYP+YQUHFXDJcUv5yYsn89bftvCxU6akrC2RkSIrK4upU6d6XYavBe6Uy3uv1wMwcWZeStu54o7ZZNLJTVdsSWk7IiL9FbhAr9kUP3d+0KHJu6moOxPKx3H+rJe49/VjqV6xLaVtiYj0R+ACfdvWTgAmzEnteOsA371rGjFC/ORCjZUuIt4LXKDXbDOKqCd3TG7K2yo7aSLnzXiRJWuPpeaV7SlvT0SkN4EL9G27sjkoe+ewtffdOybTSSY3Xrhh2NoUEelO8AK9IY8JefXD1t70T0zhy9Nf5M5Vx7B9rWY1EhHvBC7Qa1qLOWhUy7C2ed0dE2knmxu//vqwtisisr9ABbqLObZ1ljJhTOewtnvIp8r48rQXuG3lcWx9qWZY2xYR2StQgb578x7aCDPBg1ni/uvBMhzGoq9sGv7GRUQIWKBvW1cHwEFTUneXaE+mnDiRyype4P6NJ/Dak28Ne/siIoEK9O1vNgAwflrqL1nszvd+fQT5NPG9i+s8aV9ERrZABXrt1vhMRaVT8z1pf8zM0XznU6t4avux/OOOtZ7UICIjV7ACvaYDgNJDUnvbf2+u/NXRTAht5+p/N81qJCLDKlCBvrPWYcQomV7sWQ15Y/P40dfe4sWmI/jlJc97VoeIjDyBCvTauhAltpuM7AxP6/jqnSdwfP6r/Ps9M6l/d/huchKRkS1Ygb4ni9KsPV6XQSgzxK13ZlLrRnP9Gau9LkdERohgBXpThNJwk9dlAFBx7my+eehz3Lr6RF59TKMxikjqBSvQo/mU5qdmLtHB+OFvD6fIGrj06636glREUi5Ygd5eRGlRu9dl7DP6kBJu+vrrPNcwl9u+9KzX5YhIwAUm0GOdMepcCaWj0+tI+LwlJ3Ja6QqufaySTc9oujoRSZ3ABPruzXuIkcGYUvO6lANYyFjy+4lk0skF/7xbp15EJGUCE+i1G+NXt5ROyPS4ko+aePQE/s/5a1lWX87tC3XqRURSIziB/nYjAKWTwh5X0r2v3XMSp5Wu4JpHj9FVLyKSEoEJ9F018XFcSiZ6MzBXXyxk3PdMGaNCDfzLv2bQtD09Lq8UkeAITKDv3hEfx6V4Yp7HlfRs3OGl/PrGGt5sL+OSE1bjYs7rkkQkQIIT6DvjsxSVTC3yuJLeffx/HcmiTzzLrzafxL1ff87rckQkQAIT6LvqwIhReHCB16X06Xt/OJlPlazksgeO5vlfvOp1OSISEH0Gupnda2Y7zGxdD8vPMLO1ZrbazKrM7KTkl9m33fXGKKsnlJn+/0dlZGfw8ItTmZy1jTMumcDbS9/1uiQRCYD+pN/9wKm9LP8bMNc5Vw58Hbg7CXUN2O6GTEoyGrxoelBGH1LC739vxAjx2U93sHuz94OKiYi/9RnozrnlwK5eljc55/Z+u5cHePJN367mbIqzm71oetAO+VQZT/xsK5vaJ3FWxWaie6JelyQiPpaU8xNmdqaZvQH8nvhRek/rXZQ4LVNVW1ubjKb32d0aoTicPgNz9de8y+dy3yUrWLpnLv8841XaGtq8LklEfCopge6ce8I5Nwv4AvDfvay3xDlX6ZyrLC0tTUbT++xuz6Mkz59heO7tJ/KLrzzHH2qP5pyZq+lo6fC6JBHxoaR+g5g4PTPdzMYkc7v9sbszn+KCzuFuNmm+8eA8bv3iMp7cfiwLZ1TpSF1EBmzIgW5mHzMzSzyvALKBuqFudyBczLHLFVNc5O+Bry77n/ncfOYyHnvveD5T9hoN1f75kldEvNefyxYfBl4AZppZtZldYGYXm9nFiVXOAtaZ2WrgNuCc/b4kHRZN25voIpOSkuFsNTWufHw+D37zOZbvPoL5M2rYtvp9r0sSEZ/oc2hC59zCPpb/GPhx0ioahN1bGoACisd4Ozl0snzlzpMYO6mKs74/i+Mr9/D4A+upOHe212WJSJpL/7tw+mHXu/GBrorHZnlcSfJ8+rpKlv1yKzGME748lXvO17C7ItK7QAT67vdaACgen+NxJcl11Jdns/LVHE4ueY0LHziZC2Y8q1EaRaRHgQj0+tr4PKKjJkQ8riT5SmeP4Y/byvneCUu5b+OJzJ1Ux/Jb1nhdloikoUAEekNd/LrtwnHBC3SIj/1ywz8WsPTn8YG8FlxxBFcduYzGmkaPKxORdBKIQK/f1QVA0cH5HleSWvMun8uaraO55PBn+dnq+cyY1MKDFz2neUpFBAhIoDfUx6+S9MPQuUOVPz6f216dz4t3r2NypJbz7jqJE4tf45mbVmnCDJERLhCBXl8PYVrJzs/2upRhc+wFh/PCnkO5/8Ln2NoyhlOuPpIFJWtYerNmQhIZqQIR6A1NIQpt5F39EcoMcd5dJ/FWXTE/P2sZGxvH8/Fvl3N0wXp+efFztDe1e12iiAyjYAR6SwaFmf4aOjeZwqPCXP7ofDbVFnH7l5bT3JnDV39xEpOL9nDN0Ut59bE3vS5RRIZBIAK9viWboqwWr8vwXKQkwiUPz+O15qn88YdVHDt2MzdXncics2dQHtnATZ9fyublW70uU0RSJBCB3tCWTWG2RifcK5QZ4tPXVfLktmOpeb2eW85eRnZGJ1f/bgHT5k/isPBbXHvcUv5xx1oN1SsSIDbM42jtU1lZ6aqqqpKyrTmRN5levIsnao5LyvaC6q2/beF3t77D08sKWL77CDrJIo8mTijZwLwjG5n/hWIq/uVj5I3N87pUEemBma10zlV2uywIgV6WWc38Ke/wwCZP5qf2pfp36/nrLa+z9E/tLNs4gVejMwAI0cWsnM1UHLSdijmdHLlgFId9eiJjZo7GQuZx1SLSW6D3OdqiH9TH8inM6/K6DF8pmlzEWTcez1k3xl/XbdzFP+7fyMrnWnnljVz+vmU6v9o8AZ6MLy+23czIfY+Z4/YwY1onU2dkMWl2PpPKR3NwxTiycoMzMJqIX/k+0F3M0eAKKCrUtddDMfqQEk6/4VhO3++999fVsuq3W3hjZTNvbjQ21OTzzJZpPPj2QfDXD9YzYowPbWdyZCfjC5opLWqjtCTG2HFG6YRMSieFKS3Lo2RyPoUH5VMwIZ/MsO//6omkHd//q2re0UyMfAoLva4keMYdXsqph5dy6ofeb97RzLsvb2frq3t4940Wtr7TxdZtGby7M49Nu0t4cUcRO2MldPXy1yuXZgpDTRRmtFCY1UpBdhuF4Xbyw51EcroIZzvCOY5IBMJhCEcgkhsiHDHCeRlE8jPIiYTICmeQmR3a99j3Oif+MyuSGX+ekxF/Hk68DmcSygwRygxhIdv3U6eVxM98H+gNNU1APkXFgbhgxxfyxuYx+3PTmf25nteJdcbYs2U3tW/upnZzE7VbWthT20HDnhgN9Y6GhvgNYQ0tmTS0ZtHQls07e0bR2BkmGssm6nKIuhxaieCG+WKsEF0YjhAxQsS6ee4I2f7vO8zcB8v3PT+Q2Qe/RRrdP4+/7v4zH/2c9+vJ4HzttO1c+fj8pG/X94FeXxO/oaiwxPddCZRQZoiS6cWUTC9m5hC242KOjpZ2Wne1Em1oJ1rfRmt9O9HGDqKNHXS2x/Y9OqJddHa4+PP2GJ3tLv66w9Gx93kn8dcd4BzEYvFHd88/8p6DWMw+eN/tXcfi6/DB8q7YgbG3/7UHrof346+t52Vptp4MXqpmV/N9Cja83wpA0Rh9KRdEFjKy87PJzs+myOtiRNKc789TNNTGbygqGD1yBuYSEemO7wO9cVdicouxYY8rERHxlu8DvWlPJwD5YxToIjKy+T/QG+I3FOWPzfW4EhERbwUg0OPfwSvQRWSk83+gN8XvVIyUBHOCaBGR/vJ9oDc2GXk0E8r0fVdERIbE9ynY1GIUhEbubEUiInv5P9BbM8nPaPW6DBERz/k/0KOZ5GdGvS5DRMRz/g/09izyszS7vYhIAAI9h/wcBbqIiO8DvbEzTEFYEx2LiPg+0Js6I+SHNf2ciIj/Az2WS35uzOsyREQ85+tAdzFHE3nk52k+URERXwd6W0MbXWSSn+91JSIi3vN1oDe9H79DNL9A02KJiPQZ6GZ2r5ntMLN1PSw/18zWJh7Pm9nc5JfZvcb3WwAoGJWa+flERPykP0fo9wOn9rJ8MzDfOTcH+G9gSRLq6pem2vgt//lFCnQRkT4niXbOLTezsl6WP7/fyxeBiUMvq3+a6uLzieYXa4JoEZFkn0O/APhDTwvN7CIzqzKzqtra2iE31rQrfodofokmiBYRSVqgm9nHiQf6d3paxzm3xDlX6ZyrLC0tHXKbzfXx+UTzihXoIiJ9nnLpDzObA9wNnOacq0vGNvujpSER6CU5w9WkiEjaGvIRuplNBh4HvuKce3PoJfVfc2P8lv/ckvBwNisikpb6PEI3s4eBBcAYM6sGrgeyAJxzdwL/AYwGbjczgE7nXGWqCt5fS1P8DlEFuohI/65yWdjH8guBC5NW0QC0NCcCfbQmiBYR8fWdoi0tEKKLnEKdQxcR8XWgN7dALi1YSLf+i4j4OtBbWkPkmuYTFREBvwd6W4i8jFavyxARSQs+D/QMcjPavC5DRCQt+DrQm9syyc3UBNEiIuDzQG/pyCI3UxNEi4iA7wM9m7xsBbqICPg90Luyyc3u9LoMEZG04OtAb+4Mk5vT5XUZIiJpwdeB3hLLIS8S87oMEZG04O9AdxFywwp0ERHwcaC7mKOFXHJzva5ERCQ9+DbQo3uiOELk5XldiYhIevBtoLfUxW/5z83TwFwiIuDnQN8VH5QrN9+3XRARSSrfpuG+QC/I8LgSEZH04NtAb94VH5Qrr1CBLiICPg70lvr4Lf+5RVkeVyIikh4U6CIiAeHfQG+Ij+GSOyrb40pERNKDbwO9tSk+hkukUEfoIiIQgEAPF+oIXUQEfBzo0db4GC6RUTkeVyIikh58G+itzQ6ASHHY40pERNKDfwM9fuc/kZKIt4WIiKQJXwd6Bp1khjO9LkVEJC34NtCjbRCh1esyRETShm8DvTUaImJRr8sQEUkb/g30NiMcave6DBGRtOHjQM8gokAXEdnHt4Ee7cggkqFAFxHZy7eB3tqRQTijw+syRETSho8DPYtIlgJdRGQv/wZ6ZxaRrE6vyxARSRu+DfRoVxaRrC6vyxARSRt9BrqZ3WtmO8xsXQ/LZ5nZC2bWZmZXJ7/E7rV2ZRNWoIuI7NOfI/T7gVN7Wb4LuAJYnIyC+qs1lk0kJzacTYqIpLU+A905t5x4aPe0fIdzbgUwrN9QRl2OAl1EZD/Deg7dzC4ysyozq6qtrR3StlpdmHCOS1JlIiL+N6yB7pxb4pyrdM5VlpaWDn47MUcruUQ0cq6IyD6+vMqlraENQIEuIrIfXwZ6tD4R6LnmcSUiIumjz9khzOxhYAEwxsyqgeuBLADn3J1mNh6oAgqBmJldBRzqnGtIVdGtu6NAEeGIAl1EZK8+A905t7CP5duBiUmrqB9a9ySO0PN8+QuGiEhK+DIRW+vjoyxG8n1ZvohISvgyEaON8Uvew7kZHlciIpI+fBnorQ3xQI8UaIJoEZG9/B3ohVkeVyIikj78GeiN8WFzw/k6QhcR2cuXgR5tiY+yGC7QEbqIyF6+DPS21vigXOHCbI8rERFJHz4N9PigXAp0EZEP+DLQoy3xI/ScfJ1yERHZy5eB3hZNHKEX5XhciYhI+vBloEej8Z85hQp0EZG9fBnobfGhXMjK1SkXEZG9fBno0SiEacVCGm1RRGQvXwZ6W7uRQ7vXZYiIpBXfBno41OZ1GSIiacWXgR5tD5FjOkIXEdmfLwO9rSNEONThdRkiImnFl4Ee7QiRk6FAFxHZny8Dva0zg7ACXUTkAL4M9GhHJjkZnV6XISKSVnwZ6G1dGYQzFegiIvvzaaBnkpPZ5XUZIiJpxZeBHu3KIpylQBcR2Z8vA70tlkVOZszrMkRE0oovAz0ayyYnW4EuIrI/XwZ6WyyLcLbzugwRkbTiy0CPuhxyFOgiIgfwZaC3kUM4R4EuIrI/3wV6rDNGOznkaLIiEZED+C7Q25vioyyGwx4XIiKSZnwX6G0N8XHQcxToIiIH8F2gRxsSR+gR35UuIpJSvkvFtsZ4oOeENZ+oiMj+fBfo+47Qc31XuohISvkuFdua4uOg5yjQRUQO4LtUjDbFh80N52V6XImISHrxXaC3NccDPSc3w+NKRETSS5+Bbmb3mtkOM1vXw3Izs5+b2VtmttbMKpJf5gcU6CIi3evPEfr9wKm9LD8NOCTxuAi4Y+hl9SzaHB8HPVyQlcpmRER8p89Ad84tB3b1ssoZwIMu7kVglJlNSFaBH9bWEg/0HJ1DFxE5QDLOoR8MbN3vdXXivY8ws4vMrMrMqmprawfV2PjpeZx98AuUTCkY1OdFRIIqGYe53d3h0+1QiM65JcASgMrKykENl3jCN4/ghG8O5pMiIsGWjCP0amDSfq8nAjVJ2K6IiAxAMgL9KeCriatdjgPqnXPbkrBdEREZgD5PuZjZw8ACYIyZVQPXA1kAzrk7gf8HfAZ4C2gBvpaqYkVEpGd9BrpzbmEfyx1wWdIqEhGRQfHdnaIiItI9BbqISEAo0EVEAkKBLiISEBb/TtODhs1qgS2D/PgYYGcSy/GS+pKegtKXoPQD1Je9pjjnSrtb4FmgD4WZVTnnKr2uIxnUl/QUlL4EpR+gvvSHTrmIiASEAl1EJCD8GuhLvC4gidSX9BSUvgSlH6C+9MmX59BFROSj/HqELiIiH6JAFxEJCN8FupmdamYbEpNSX+t1PQNlZu+Y2atmttrMqhLvlZjZX8xsY+Jnsdd1flh3k4X3VreZfTexjzaY2ae9qbp7PfRlkZm9l9gvq83sM/stS+e+TDKzv5vZejN7zcyuTLzvq33TSz98t1/MLGxmL5vZmkRf/jPxfur3iXPONw8gA9gETAOygTXAoV7XNcA+vAOM+dB7PwGuTTy/Fvix13V2U/c8oAJY11fdwKGJfZMDTE3sswyv+9BHXxYBV3ezbrr3ZQJQkXheALyZqNlX+6aXfvhuvxCfxS0/8TwLeAk4bjj2id+O0I8B3nLOve2cawceIT5Jtd+dATyQeP4A8AUPa+mW636y8J7qPgN4xDnX5pzbTHys/GOGpdB+6KEvPUn3vmxzzr2SeN4IrCc+p6+v9k0v/ehJWvYD4kOKO+eaEi+zEg/HMOwTvwV6vyekTmMO+LOZrTSzixLvjXOJWZ4SP8d6Vt3A9FS3X/fTt8xsbeKUzN5fh33TFzMrA44kfkTo233zoX6AD/eLmWWY2WpgB/AX59yw7BO/BXq/J6ROYyc65yqA04DLzGye1wWlgB/30x3AdKAc2AbclHjfF30xs3zgMeAq51xDb6t2817a9Kebfvhyvzjnupxz5cTnWD7GzA7vZfWk9cVvge77CamdczWJnzuAJ4j/avW+mU0ASPzc4V2FA9JT3b7bT8659xP/CGPAXXzwK2/a98XMsoiH4EPOuccTb/tu33TXDz/vFwDn3B5gKXAqw7BP/BboK4BDzGyqmWUDXyI+SbUvmFmemRXsfQ78E7COeB/OS6x2HvCkNxUOWE91PwV8ycxyzGwqcAjwsgf19dvef2gJZxLfL5DmfTEzA+4B1jvnfrrfIl/tm5764cf9YmalZjYq8TwCfBJ4g+HYJ15/IzyIb5A/Q/wb8E3AdV7XM8DapxH/NnsN8Nre+oHRwN+AjYmfJV7X2k3tDxP/lbeD+BHFBb3VDVyX2EcbgNO8rr8fffkl8CqwNvEPbIJP+nIS8V/P1wKrE4/P+G3f9NIP3+0XYA6wKlHzOuA/Eu+nfJ/o1n8RkYDw2ykXERHpgQJdRCQgFOgiIgGhQBcRCQgFuohIQCjQRUQCQoEuIhIQ/x9KYkwc4IBiBwAAAABJRU5ErkJggg==\n", "text/plain": [ "
" ] }, "metadata": { "filenames": { "image/png": "/Users/matthewmckay/repos-collab/phd-macro-theory-book/_build/jupyter_execute/dyn_stack_18_0.png" }, "needs_background": "light" }, "output_type": "display_data" } ], "source": [ "# Checks that the recursive formulation of the follower's problem gives\n", "# the same solution as the original Stackelberg problem\n", "fig, ax = plt.subplots()\n", "ax.plot(yt_tilde[4], 'r', label=\"q_tilde\")\n", "ax.plot(yt_tilde[2], 'b', label=\"q\")\n", "ax.legend()\n", "plt.show()" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Note: Variables with `_tilde` are obtained from solving the follower's\n", "problem -- those without are from the Stackelberg problem" ] }, { "cell_type": "code", "execution_count": 13, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "1.7763568394002505e-15" ] }, "execution_count": 13, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Maximum absolute difference in quantities over time between\n", "# the first and second solution methods\n", "np.max(np.abs(yt_tilde[4] - yt_tilde[2]))" ] }, { "cell_type": "code", "execution_count": 14, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "True" ] }, "execution_count": 14, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# x0 == x0_tilde\n", "yt[:, 0][-1] - (yt_tilde[:, 1] - yt_tilde[:, 0])[-1] < tol0" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Explanation of Alignment\n", "\n", "If we inspect the coefficients in the decision rule $- \\tilde F$,\n", "we can spot the reason that the follower chooses to set $x_t =\n", "\\tilde x_t$ when it sets $x_t = - \\tilde F X_t$ in\n", "the recursive formulation of the follower problem.\n", "\n", "Can you spot what features of $\\tilde F$ imply this?\n", "\n", "Hint: remember the components of $X_t$" ] }, { "cell_type": "code", "execution_count": 15, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "array([[ 0. , 0. , -0.1032, -1. , 0.1032]])" ] }, "execution_count": 15, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Policy function in the follower's problem\n", "F_tilde.round(4)" ] }, { "cell_type": "code", "execution_count": 16, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "array([[ 963.54083615, -194.60534465, -511.62197962, -5258.22585724],\n", " [ -194.60534465, 37.3535753 , 81.97712513, 784.76471234],\n", " [ -511.62197962, 81.97712513, 247.34333344, 2517.05126111],\n", " [-5258.22585724, 784.76471234, 2517.05126111, 25556.16504097]])" ] }, "execution_count": 16, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Value function in the Stackelberg problem\n", "P" ] }, { "cell_type": "code", "execution_count": 17, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "array([[-1.81991134e+01, 2.58003020e+00, 1.56048755e+01,\n", " 1.51229815e+02, -5.00000000e+00],\n", " [ 2.58003020e+00, -9.69465925e-01, -5.26007958e+00,\n", " -5.09764310e+01, 1.00000000e+00],\n", " [ 1.56048755e+01, -5.26007958e+00, -3.22759027e+01,\n", " -3.12791908e+02, -1.23823802e+01],\n", " [ 1.51229815e+02, -5.09764310e+01, -3.12791908e+02,\n", " -3.03132584e+03, -1.20000000e+02],\n", " [-5.00000000e+00, 1.00000000e+00, -1.23823802e+01,\n", " -1.20000000e+02, 1.43823802e+01]])" ] }, "execution_count": 17, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Value function in the follower's problem\n", "P_tilde" ] }, { "cell_type": "code", "execution_count": 18, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "True" ] }, "execution_count": 18, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Manually check that P is an approximate fixed point\n", "(P - ((R + F.T @ Q @ F) + β * (A - B @ F).T @ P @ (A - B @ F)) < tol0).all()" ] }, { "cell_type": "code", "execution_count": 19, "metadata": {}, "outputs": [], "source": [ "# Compute `P_guess` using `F_tilde_star`\n", "F_tilde_star = -np.array([[0, 0, 0, 1, 0]])\n", "P_guess = np.zeros((5, 5))\n", "\n", "for i in range(1000):\n", " P_guess = ((R_tilde + F_tilde_star.T @ Q @ F_tilde_star) +\n", " β * (A_tilde - B_tilde @ F_tilde_star).T @ P_guess\n", " @ (A_tilde - B_tilde @ F_tilde_star))" ] }, { "cell_type": "code", "execution_count": 20, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "112.65590740578095" ] }, "execution_count": 20, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Value function in the follower's problem\n", "-(y0_tilde.T @ P_tilde @ y0_tilde)[0, 0]" ] }, { "cell_type": "code", "execution_count": 21, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "112.65590740578085" ] }, "execution_count": 21, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Value function with `P_guess`\n", "-(y0_tilde.T @ P_guess @ y0_tilde)[0, 0]" ] }, { "cell_type": "code", "execution_count": 22, "metadata": {}, "outputs": [], "source": [ "# Compute policy using policy iteration algorithm\n", "F_iter = (β * la.inv(Q + β * B_tilde.T @ P_guess @ B_tilde)\n", " @ B_tilde.T @ P_guess @ A_tilde)\n", "\n", "for i in range(100):\n", " # Compute P_iter\n", " P_iter = np.zeros((5, 5))\n", " for j in range(1000):\n", " P_iter = ((R_tilde + F_iter.T @ Q @ F_iter) + β\n", " * (A_tilde - B_tilde @ F_iter).T @ P_iter\n", " @ (A_tilde - B_tilde @ F_iter))\n", "\n", " # Update F_iter\n", " F_iter = (β * la.inv(Q + β * B_tilde.T @ P_iter @ B_tilde)\n", " @ B_tilde.T @ P_iter @ A_tilde)\n", "\n", "dist_vec = (P_iter - ((R_tilde + F_iter.T @ Q @ F_iter)\n", " + β * (A_tilde - B_tilde @ F_iter).T @ P_iter\n", " @ (A_tilde - B_tilde @ F_iter)))\n", "\n", "if np.max(np.abs(dist_vec)) < 1e-8:\n", " dist_vec2 = (F_iter - (β * la.inv(Q + β * B_tilde.T @ P_iter @ B_tilde)\n", " @ B_tilde.T @ P_iter @ A_tilde))\n", "\n", " if np.max(np.abs(dist_vec2)) < 1e-8:\n", " F_iter\n", " else:\n", " print(\"The policy didn't converge: try increasing the number of \\\n", " outer loop iterations\")\n", "else:\n", " print(\"`P_iter` didn't converge: try increasing the number of inner \\\n", " loop iterations\")" ] }, { "cell_type": "code", "execution_count": 23, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAD4CAYAAAD8Zh1EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADh0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uMy4yLjIsIGh0dHA6Ly9tYXRwbG90bGliLm9yZy+WH4yJAAAfjUlEQVR4nO3deXgc1Z3u8e+vpZa6tVqS5QW8yDh4YbGFEDvYTkgmkAXCQIZ4SAIJhLCEJXdgQkIyeGZCnptgcklYY3YSAnfCEiC52YltCJtlvLAYY4wxFrKxLNvaW1uf+0e3jQ3a1VJ1ld7P8/Sj7q7qOr/jsl+XqqvOMeccIiLifyGvCxARkdRQoIuIBIQCXUQkIBToIiIBoUAXEQmITK8aHjt2rCsrK/OqeRERX1q5cuUO51xpd8s8C/SysjKqqqq8al5ExJfMbHNPy3TKRUQkIBToIiIBoUAXEQkIz86hi4jsq6Ojg+rqamKxmNelpIVIJMKkSZMIh8P9/owCXUTSQnV1Nfn5+ZSVlWFmXpfjKeccdXV1VFdXM23atH5/TqdcRCQtxGIxSkpKRn2YA5gZJSUlA/5tRYEuImlDYf6BwfxZjLpTLrs313PvFatobIDPf2MCRyyc5XVJIiIpMaoCfd3vNjL/tAJq3QIArvs7XHnDMha/cCIZWRneFiciMkSj5pRLY00jnz8jk5A5Vv5qHbveqefSw5dx06r5XFr+D1xcE32ISP/cd9991NTU7H19wQUX8PrrrwOJu+B37Njxkc8sWrSIxYsXD2tdoybQf37uSjZ2TuV/btpKxTmzGTO1kFvWzuc7xyzlF+vmcfu/Lve6RBHxiQ8H+l133cUhhxziYUUJo+KUS2NNI4v/Vs7nxr3EvMuO3m/Zj56dx5qJK7jq/x7Fyee+zcxTD/KoShHZ68orYfXq1G6zvBxuuqnXVa6//noeeOABJk+eTGlpKUceeSRXXXXVfus88sgjVFVVcc455xCNRnn++ec59dRTWbx4MZWVlX1uD2Djxo1ceuml1NbWkpOTw5133smsWUP/Pm9UHKE/dt0adrsxXLMo8pFlocwQ9/xlChFr41tf3qVTLyKj1MqVK3n44YdZtWoVjz32GCtWrOh2vbPOOovKykoefPBBVq9eTTQaHfD2LrzwQm6++WZWrlzJ4sWLueSSS1LSh1FxhP7Q4xHKMrdw/DcP73b5xPLxLDpjGVc8Np+nfvAip11/zAhXKCL76eNIejg888wznHHGGeTk5ABw2mmnDcv2mpqaeO655/jiF7+4d922trYhtbVH4I/Qa9ft4K915Sw8aiMW6vm6zot/eTyzszbybzeMp60hNX+4IuIvqb4OvrvtxeNxxowZw+rVq/c+1q1bl5L2Ah/oT9/xJl1kcvr5Y3tdL5wT5qc/2MVbHWXc9tXnR6g6EUkX8+bN4/HHH6e1tZXGxkaeeuqpHtfNz8+nsbFxUNsrKChg2rRp/OY3vwESt/mvWbMmJX0IfqD/uZMC6jnynL6/cDjl+5WcXPQy//vJQ2nZ0TIC1YlIuqioqODss8+mvLycM888k5NOOqnHdc877zwuuugiysvLaW1tHfD2HnzwQe6++27mzp3LoYceyhNPPJGSPphz3nwJWFlZ6UZixqIZWZuYVbydJ7f177z4M7esYd5lc/np6Uv59m8XDG9xIrLXunXrmD17ttdl7LVo0SLy8vI+cpXLSOruz8TMVjrnKrtbP9BH6NUrtrKhYxqfOK7/A9yc9K25fKLoZX7y1Gxad3b/P6+ISDoKdKCveCQx9d5xnysZ0Oeu+88MtsXHs+SCl4ajLBHxgUWLFrFp0ybKy8v3e9x7771el9ajPi9bNLN7gM8B251zh/Wy3lHAC8DZzrlHUlfi4L38XIwMOplzxvQBfW7eZXM56ftr+OmT07mkpYNwTv8HmBeR4Lj11lu9LmFA+nOEfh9wSm8rmFkG8GPgTymoKWVeXp/LIZG3iRZ3f+F/b66+vI13uybxm6t1lC4i/tBnoDvnlgM7+1jtMuBRYHsqikqVl+umUHHg4Er67HWVzMrayA33lujuURHxhSGfQzezA4EzgDuGXk7qbF39Ptvi46mY2zWoz4cyQ1y1sIbVrbN4+sZVKa5ORCT1UvGl6E3Ad5xzfSanmV1oZlVmVlVbW5uCpnv26h+rAZhzUuGgt3HOTUcxPrSdG34cT1VZIiLDJhWBXgk8bGbvAGcBt5nZF7pb0Tm3xDlX6ZyrLC0tTUHTPVu/sgmAmQsmDnobkTERLj/5df5UV8naR95MVWkiIsNiyIHunJvmnCtzzpUBjwCXOOd+O+TKhmj9esingQlzxg1pOxfdPpdcmlj8nbT6ekBEhsH111/PzJkz+eQnP8nChQuHfUKKVOvPZYsPAQuAsWZWDVwHhAGcc2l13nxfb7yXx8ycaiw0tEHni6cXcf7cZdy25niuf7GGyccckKIKRaQnXgyHvu9wt52dnVRUVOwdv9wv+gx059zC/m7MOXfekKpJofX1E5g3+Z2UbOvbt0zn1pOMn136JourFOgiQZTq4XO9EMjx0Ju3N7Ol60BmHrQhJdsrO3ESX5zyHEtWVvCDd+spnDL4L1pFpG8eDIcOpH743JEWyFv/31qauMJl5pyslG3z6h8V0UgBv7hIlzCKBNFAhs9NV4EM9E2rdgNw0BFjUrbNinNmc3LRy9z0p1maAEMkgAYyfG66CmSgb16fGF1x6lFDu8Llw67+tzhb4xP49ZUaDkAkiK699lrWr1/Pn//8Z6ZMmeJ1OQMWyEB/5x2I0sLYmQMbZbEv//TdI5kTWc/iX08k3qmbjUQkvQQy0Ddvy6Ysa2uvc4gOhoWMq8/bwettH+MPP1yZ0m2LSHpZtGiRp5NbDEYwA313IVML+hpPbHDOvvFoJme8x09u0pC6Iqnm1Qxq6WgwfxbBDPTYOKaWDs9sQ+GcMFd+dgPL68t56d7XhqUNkdEoEolQV1enUCcR5nV1dUQikQF9LnDXoTdta6LOlVA2ZfjOcX/j9iP5ryfrueEHDfzma8PWjMioMmnSJKqrqxnugfv8IhKJMGnSpAF9JnCBvvnFbcDHmHpw6q5B/7D8A/K5+Nil/OSFk3jrb5v52MlTh60tkdEiHA4zbdo0r8vwtcCdcnnv9XoAJs3MHdZ2Lr99Npl0cuPlm4e1HRGR/gpcoNdsTJw7P+CQ1N1U1J2J5eM5b9aL3PP6MVSv2DqsbYmI9EfgAn3rlk4AJs4Z3vHWAb5750HECfGTCzRWuoh4L3CBXrPVKKSenLE5w95W2YmTOHfGCyxZeww1L28b9vZERHoTuEDfujOLA7J2jFh73719Cp1kcsMF60esTRGR7gQv0BtymZhbP2LtTf/EVL48/QXuWHU029ZqViMR8U7gAr2mtYgDxrSMaJvX3j6JdrK44euvj2i7IiL7ClSgu7hja2cpE8d2jmi7B3+qjC8f9Dy3rjyWLS/WjGjbIiJ7BCrQd23aTRsRJnowS9x/PVCGw1j0lY0j37iICAEL9K2v1gFwwNThu0u0J1NPmMSlFc9z34bjee2Jt0a8fRGRQAX6tjcbAJhw0PBfstid7/36cPJo4nsX1XnSvoiMboEK9NotiZmKSqfledL+2JklfOdTq3hy2zH84/a1ntQgIqNXsAK9pgOA0oOH97b/3lzxq6OYGNrGVf9umtVIREZUoAJ9R63DiFM8vcizGnLH5fKjr73FC02H88uLn/OsDhEZfQIV6LV1IYptFxlZGZ7W8dU7jue4vFf497tnUv/uyN3kJCKjW7ACfXeY0vBur8sglBniljsyqXUlXHf6aq/LEZFRIliB3hSlNNLkdRkAVJwzm28e8iy3rD6BVx7VaIwiMvyCFeixPErzhmcu0cH44W8Po9AauOTrrfqCVESGXbACvb2Q0sJ2r8vYq+TgYm78+us82zCXW7/0jNfliEjABSbQ451x6lwxpSXpdSR87pITOLV0Bdc8WsnGpzVdnYgMn8AE+q5Nu4mTwdhS87qU/VjIWPL7SWTSyfn/vEunXkRk2AQm0Gs3JK5uKZ2Y6XElHzXpqIn8n/PWsqy+nNsW6tSLiAyP4AT6240AlE6OeFxJ975294mcWrqCqx85Wle9iMiwCEyg76xJjONSPMmbgbn6YiHj3qfLGBNq4F/+NYOmbelxeaWIBEdgAn3X9sQ4LkWTcj2upGfjDyvl1zfU8GZ7GRcfvxoXd16XJCIBEpxA35GYpah4WqHHlfTu4//rCBZ94hl+telE7vn6s16XIyIBEphA31kHRpyCA/O9LqVP3/vDSXyqeCWX3n8Uz/3iFa/LEZGA6DPQzeweM9tuZq/2sPx0M1trZqvNrMrMTkx9mX3bVW+MsXpCmen/f1RGVgYPvTCNKeGtnH7xRN5e+q7XJYlIAPQn/e4DTull+d+Auc65cuDrwF0pqGvAdjVkUpzR4EXTg1JycDG//70RJ8RnP93Brk3eDyomIv7WZ6A755YDO3tZ3uSc2/PtXi7gyTd9O5uzKMpq9qLpQTv4U2U8/rMtbGyfzJkVm4jtjnldkoj4WErOT5jZGWb2BvB7EkfpPa13YfK0TFVtbW0qmt5rV2uUokj6DMzVX/Mum8u9F69g6e65/POMV2hraPO6JBHxqZQEunPucefcLOALwH/3st4S51ylc66ytLQ0FU3vtas9l+Jcf4bhObedwC++8ix/qD2Ks2eupqOlw+uSRMSHUvoNYvL0zHQzG5vK7fbHrs48ivI7R7rZlPnGA/O45YvLeGLbMSycUaUjdREZsCEHupl9zMws+bwCyALqhrrdgXBxx05XRFGhvwe+uvR/5nPTGct49L3j+EzZazRU++dLXhHxXn8uW3wIeB6YaWbVZna+mV1kZhclVzkTeNXMVgO3Amfv8yXpiGja1kQXmRQXj2Srw+OKx+bzwDefZfmuw5k/o4atq9/3uiQR8Yk+hyZ0zi3sY/mPgR+nrKJB2LW5AcinaKy3k0OnylfuOJFxk6s48/uzOK5yN4/dv46Kc2Z7XZaIpLn0vwunH3a+mxjoqmhc2ONKUufT11ay7JdbiGMc/+Vp3H2eht0Vkd4FItB3vdcCQNGEbI8rSa0jvzybla9kc1Lxa1xw/0mcP+MZjdIoIj0KRKDX1ybmER0zMepxJalXOnssf9xazveOX8q9G05g7uQ6lt+8xuuyRCQNBSLQG+oS120XjA9eoENi7Jfr/7GApT9PDOS14PLDufKIZTTWNHpcmYikk0AEev3OLgAKD8zzuJLhNe+yuazZUsLFhz3Dz1bPZ8bkFh648FnNUyoiQEACvaE+cZWkH4bOHaq8CXnc+sp8XrjrVaZEazn3zhM5oeg1nr5xlSbMEBnlAhHo9fUQoZWsvCyvSxkxx5x/GM/vPoT7LniWLS1jOfmqI1hQvIalN2kmJJHRKhCB3tAUosBG39UfocwQ5955Im/VFfHzM5exoXECH/92OUflr+OXFz1Le1O71yWKyAgKRqC3ZFCQ6a+hc1MpMibCZY/MZ2NtIbd9aTnNndl89RcnMqVwN1cftZRXHn3T6xJFZAQEItDrW7IoDLd4XYbnosVRLn5oHq81T+OPP6zimHGbuKnqBOacNYPy6Hpu/PxSNi3f4nWZIjJMAhHoDW1ZFGRpdMI9QpkhPn1tJU9sPYaa1+u5+axlZGV0ctXvFnDQ/MkcGnmLa45dyj9uX6uhekUCxEZ4HK29KisrXVVVVUq2NSf6JtOLdvJ4zbEp2V5QvfW3zfzulnd4alk+y3cdTidhcmni+OL1zDuikflfKKLiXz5G7rhcr0sVkR6Y2UrnXGW3y4IQ6GWZ1cyf+g73b/Rkfmpfqn+3nr/e/DpL/9TOsg0TeSU2A4AQXczK3kTFAduomNPJEQvGcOinJzF2ZgkWMo+rFpHeAr3P0Rb9oD6eR0Ful9dl+ErhlELOvOE4zrwh8bpuw07+cd8GVj7bystv5PD3zdP51aaJ8ERieZHtYkbOe8wcv5sZB3UybUaYybPzmFxewoEV4wnnBGdgNBG/8n2gu7ijweVTWKBrr4ei5OBiTrv+GE7b5733X61l1W8388bKZt7cYKyvyePpzQfxwNsHwF8/WM+IMyG0jSnRHUzIb6a0sI3S4jjjxhulEzMpnRyhtCyX4il5FByQR/7EPDIjvv+rJ5J2fP+vqnl7M3HyKCjwupLgGX9YKaccVsopH3q/eXsz7760jS2v7ObdN1rY8k4XW7Zm8O6OXDbuKuaF7YXsiBfT1ctfrxyaKQg1UZDRQkG4lfysNgoi7eRFOolmdxHJckSyHdEoRCIQiUI0J0QkakRyM4jmZZAdDRGOZJCZFdr72Ps6O/EzHM1MPM/OSDyPJF9HMgllhghlhrCQ7f2p00riZ74P9IaaJiCPwqJAXLDjC7njcpn9uenM/lzP68Q74+zevIvaN3dRu6mJ2s0t7K7toGF3nIZ6R0ND4oawhpZMGlrDNLRl8c7uMTR2RojFs4i5bGIum1aiuBG+GCtEF4YjRJwQ8W6eO0K27/sOM/fB8r3P92f2wW+RRvfPE6+7/8xHP+f9ejIIJSV87eqxXHFF6jft+0Cvr0ncUFRQ7PuuBEooM0Tx9CKKpxcxcwjbcXFHR0s7rTtbiTW0E6tvo7W+nVhjB7HGDjrb43sfHbEuOjtc4nl7nM52l3jd4ejY87yTxOsOcA7i8cSju+cfec9BPG4fvO/2rGOJdfhgeVd8/9jb99oD18P7idfW87I0W08GaXwORUXDs2nfp2DD+60AFI7Vl3JBZCEjKy+LrLwsCr0uRiTN+f48RUNt4oai/JLRMzCXiEh3fB/ojTuTk1uMi3hciYiIt3wf6E27OwHIG6tAF5HRzf+B3pC4oShvXI7HlYiIeCsAgZ74Dl6BLiKjnf8DvSlxp2K0OJgTRIuI9JfvA72xycilmVCm77siIjIkvk/BphYjPzR6ZysSEdnD/4HemkleRqvXZYiIeM7/gR7LJC8z5nUZIiKe83+gt4fJC2t2exGRAAR6NnnZCnQREd8HemNnhPyIJjoWEfF9oDd1RsmLaPo5ERH/B3o8h7ycuNdliIh4zteB7uKOJnLJy9V8oiIivg70toY2usgkL8/rSkREvOfrQG96P3GHaF6+psUSEekz0M3sHjPbbmav9rD8HDNbm3w8Z2ZzU19m9xrfbwEgf0zGSDUpIpK2+nOEfh9wSi/LNwHznXNzgP8GlqSgrn5pqk3c8p9XqEAXEelzkmjn3HIzK+tl+XP7vHwBmDT0svqnqS4xn2hekSaIFhFJ9Tn084E/9LTQzC40syozq6qtrR1yY007E3eI5hVrgmgRkZQFupl9nESgf6endZxzS5xzlc65ytLS0iG32VyfmE80t0iBLiLS5ymX/jCzOcBdwKnOubpUbLM/WhqSgV6cPVJNioikrSEfoZvZFOAx4CvOuTeHXlL/NTcmbvnPKY6MZLMiImmpzyN0M3sIWACMNbNq4DogDOCcuwP4D6AEuM3MADqdc5XDVfC+WpoSd4gq0EVE+neVy8I+ll8AXJCyigagpTkZ6CWaIFpExNd3ira0QIgusgt0Dl1ExNeB3twCObRgId36LyLi60BvaQ2RY5pPVEQE/B7obSFyM1q9LkNEJC34PNAzyMlo87oMEZG04OtAb27LJCdTE0SLiIDPA72lI0xOpiaIFhEB3wd6FrlZCnQREfB7oHdlkZPV6XUZIiJpwdeB3twZISe7y+syRETSgq8DvSWeTW407nUZIiJpwd+B7qLkRBToIiLg40B3cUcLOeTkeF2JiEh68G2gx3bHcITIzfW6EhGR9ODbQG+pS9zyn5OrgblERMDPgb4zMShXTp5vuyAiklK+TcO9gZ6f4XElIiLpwbeB3rwzMShXboECXUQEfBzoLfWJW/5zCsMeVyIikh4U6CIiAeHfQG9IjOGSMybL40pERNKDbwO9tSkxhku0QEfoIiIQgECPFOgIXUQEfBzosdbEGC7RMdkeVyIikh58G+itzQ6AaFHE40pERNKDfwM9cec/0eKot4WIiKQJXwd6Bp1kRjK9LkVEJC34NtBjbRCl1esyRETShm8DvTUWImoxr8sQEUkb/g30NiMSave6DBGRtOHjQM8gqkAXEdnLt4Ee68ggmqFAFxHZw7eB3tqRQSSjw+syRETSho8DPUw0rEAXEdnDv4HeGSYa7vS6DBGRtOHbQI91hYmGu7wuQ0QkbfQZ6GZ2j5ltN7NXe1g+y8yeN7M2M7sq9SV2r7Uri4gCXURkr/4cod8HnNLL8p3A5cDiVBTUX63xLKLZ8ZFsUkQkrfUZ6M655SRCu6fl251zK4AR/YYy5rIV6CIi+xjRc+hmdqGZVZlZVW1t7ZC21eoiRLJdiioTEfG/EQ1059wS51ylc66ytLR08NuJO1rJIaqRc0VE9vLlVS5tDW0ACnQRkX34MtBj9clAzzGPKxERSR99zg5hZg8BC4CxZlYNXAeEAZxzd5jZBKAKKADiZnYlcIhzrmG4im7dFQMKiUQV6CIie/QZ6M65hX0s3wZMSllF/dC6O3mEnuvLXzBERIaFLxOxtT4xymI0z5fli4gMC18mYqwxccl7JCfD40pERNKHLwO9tSER6NF8TRAtIrKHvwO9IOxxJSIi6cOfgd6YGDY3kqcjdBGRPXwZ6LGWxCiLkXwdoYuI7OHLQG9rTQzKFSnI8rgSEZH04dNATwzKpUAXEfmALwM91pI4Qs/O0ykXEZE9fBnobbHkEXphtseViIikD18GeiyW+JldoEAXEdnDl4HelhjKhXCOTrmIiOzhy0CPxSBCKxbSaIsiInv4MtDb2o1s2r0uQ0Qkrfg20COhNq/LEBFJK74M9Fh7iGzTEbqIyL58GehtHSEioQ6vyxARSSu+DPRYR4jsDAW6iMi+fBnobZ0ZRBToIiL78WWgxzoyyc7o9LoMEZG04stAb+vKIJKpQBcR2ZdPAz2T7Mwur8sQEUkrvgz0WFeYSFiBLiKyL18Gels8THZm3OsyRETSii8DPRbPIjtLgS4isi9fBnpbPEwky3ldhohIWvFloMdcNtkKdBGR/fgy0NvIJpKtQBcR2ZfvAj3eGaedbLI1WZGIyH58F+jtTYlRFiMRjwsREUkzvgv0tobEOOjZCnQRkf34LtBjDckj9KjvShcRGVa+S8W2xkSgZ0c0n6iIyL58F+h7j9BzfFe6iMiw8l0qtjUlxkHPVqCLiOzHd6kYa0oMmxvJzfS4EhGR9OK7QG9rTgR6dk6Gx5WIiKSXPgPdzO4xs+1m9moPy83Mfm5mb5nZWjOrSH2ZH1Cgi4h0rz9H6PcBp/Sy/FTg4OTjQuD2oZfVs1hzYhz0SH54OJsREfGdPgPdObcc2NnLKqcDD7iEF4AxZjYxVQV+WFtLItCzdQ5dRGQ/qTiHfiCwZZ/X1cn3PsLMLjSzKjOrqq2tHVRjE6bnctaBz1M8NX9QnxcRCapUHOZ2d4dPt0MhOueWAEsAKisrBzVc4vHfPJzjvzmYT4qIBFsqjtCrgcn7vJ4E1KRguyIiMgCpCPQnga8mr3Y5Fqh3zm1NwXZFRGQA+jzlYmYPAQuAsWZWDVwHhAGcc3cA/w/4DPAW0AJ8bbiKFRGRnvUZ6M65hX0sd8ClKatIREQGxXd3ioqISPcU6CIiAaFAFxEJCAW6iEhAWOI7TQ8aNqsFNg/y42OBHSksx0vqS3oKSl+C0g9QX/aY6pwr7W6BZ4E+FGZW5Zyr9LqOVFBf0lNQ+hKUfoD60h865SIiEhAKdBGRgPBroC/xuoAUUl/SU1D6EpR+gPrSJ1+eQxcRkY/y6xG6iIh8iAJdRCQgfBfoZnaKma1PTkp9jdf1DJSZvWNmr5jZajOrSr5XbGZ/MbMNyZ9FXtf5Yd1NFt5b3Wb23eQ+Wm9mn/am6u710JdFZvZecr+sNrPP7LMsnfsy2cz+bmbrzOw1M7si+b6v9k0v/fDdfjGziJm9ZGZrkn35z+T7w79PnHO+eQAZwEbgICALWAMc4nVdA+zDO8DYD733E+Ca5PNrgB97XWc3dc8DKoBX+6obOCS5b7KBacl9luF1H/royyLgqm7WTfe+TAQqks/zgTeTNftq3/TSD9/tFxKzuOUln4eBF4FjR2Kf+O0I/WjgLefc2865duBhEpNU+93pwP3J5/cDX/Cwlm657icL76nu04GHnXNtzrlNJMbKP3pECu2HHvrSk3Tvy1bn3MvJ543AOhJz+vpq3/TSj56kZT8gMaS4c64p+TKcfDhGYJ/4LdD7PSF1GnPAn81spZldmHxvvEvO8pT8Oc6z6gamp7r9up++ZWZrk6dk9vw67Ju+mFkZcASJI0Lf7psP9QN8uF/MLMPMVgPbgb8450Zkn/gt0Ps9IXUaO8E5VwGcClxqZvO8LmgY+HE/3Q5MB8qBrcCNyfd90RczywMeBa50zjX0tmo376VNf7rphy/3i3OuyzlXTmKO5aPN7LBeVk9ZX/wW6L6fkNo5V5P8uR14nMSvVu+b2USA5M/t3lU4ID3V7bv95Jx7P/mPMA7cyQe/8qZ9X8wsTCIEH3TOPZZ823f7prt++Hm/ADjndgNLgVMYgX3it0BfARxsZtPMLAv4EolJqn3BzHLNLH/Pc+CfgFdJ9OHc5GrnAk94U+GA9VT3k8CXzCzbzKYBBwMveVBfv+35h5Z0Bon9AmneFzMz4G5gnXPup/ss8tW+6akfftwvZlZqZmOSz6PAJ4E3GIl94vU3woP4BvkzJL4B3whc63U9A6z9IBLfZq8BXttTP1AC/A3YkPxZ7HWt3dT+EIlfeTtIHFGc31vdwLXJfbQeONXr+vvRl18CrwBrk//AJvqkLyeS+PV8LbA6+fiM3/ZNL/3w3X4B5gCrkjW/CvxH8v1h3ye69V9EJCD8dspFRER6oEAXEQkIBbqISEAo0EVEAkKBLiISEAp0EZGAUKCLiATE/wcswEs3YdLLUgAAAABJRU5ErkJggg==\n", "text/plain": [ "
" ] }, "metadata": { "filenames": { "image/png": "/Users/matthewmckay/repos-collab/phd-macro-theory-book/_build/jupyter_execute/dyn_stack_31_0.png" }, "needs_background": "light" }, "output_type": "display_data" } ], "source": [ "# Simulate the system using `F_tilde_star` and check that it gives the\n", "# same result as the original solution\n", "\n", "yt_tilde_star = np.zeros((n, 5))\n", "yt_tilde_star[0, :] = y0_tilde.flatten()\n", "\n", "for t in range(n-1):\n", " yt_tilde_star[t+1, :] = (A_tilde - B_tilde @ F_tilde_star) \\\n", " @ yt_tilde_star[t, :]\n", "\n", "fig, ax = plt.subplots()\n", "ax.plot(yt_tilde_star[:, 4], 'r', label=\"q_tilde\")\n", "ax.plot(yt_tilde[2], 'b', label=\"q\")\n", "ax.legend()\n", "plt.show()" ] }, { "cell_type": "code", "execution_count": 24, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "0.0" ] }, "execution_count": 24, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Maximum absolute difference\n", "np.max(np.abs(yt_tilde_star[:, 4] - yt_tilde[2, :-1]))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Markov Perfect Equilibrium\n", "\n", "The **state** vector is\n", "\n", "$$\n", "z_t = \\begin{bmatrix} 1 \\cr q_{2t} \\cr q_{1t} \\end{bmatrix}\n", "$$\n", "\n", "and the state transition dynamics are\n", "\n", "$$\n", "z_{t+1} = A z_t + B_1 v_{1t} + B_2 v_{2t}\n", "$$\n", "\n", "where $A$ is a $3 \\times 3$ identity matrix and\n", "\n", "$$\n", "B_1 = \\begin{bmatrix} 0 \\cr 0 \\cr 1 \\end{bmatrix} ,\n", "\\quad B_2 = \\begin{bmatrix} 0 \\cr 1 \\cr 0 \\end{bmatrix}\n", "$$\n", "\n", "The Markov perfect decision rules are\n", "\n", "$$\n", "v_{1t} = - F_1 z_t , \\quad v_{2t} = - F_2 z_t\n", "$$\n", "\n", "and in the Markov perfect equilibrium, the state evolves according to\n", "\n", "$$\n", "z_{t+1} = (A - B_1 F_1 - B_2 F_2) z_t\n", "$$" ] }, { "cell_type": "code", "execution_count": 25, "metadata": {}, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ "Computed policies for firm 1 and firm 2:\n", "\n", "F1 = [[-0.22701363 0.03129874 0.09447113]]\n", "F2 = [[-0.22701363 0.09447113 0.03129874]]\n" ] } ], "source": [ "# In LQ form\n", "A = np.eye(3)\n", "B1 = np.array([[0], [0], [1]])\n", "B2 = np.array([[0], [1], [0]])\n", "\n", "R1 = np.array([[0, 0, -a0 / 2],\n", " [0, 0, a1 / 2],\n", " [-a0 / 2, a1 / 2, a1]])\n", "\n", "R2 = np.array([[0, -a0 / 2, 0],\n", " [-a0 / 2, a1, a1 / 2],\n", " [0, a1 / 2, 0]])\n", "\n", "Q1 = Q2 = γ\n", "S1 = S2 = W1 = W2 = M1 = M2 = 0.0\n", "\n", "# Solve using QE's nnash function\n", "F1, F2, P1, P2 = qe.nnash(A, B1, B2, R1, R2, Q1,\n", " Q2, S1, S2, W1, W2, M1,\n", " M2, beta=β, tol=tol1)\n", "\n", "# Simulate forward\n", "AF = A - B1 @ F1 - B2 @ F2\n", "z = np.empty((3, n))\n", "z[:, 0] = 1, 1, 1\n", "for t in range(n-1):\n", " z[:, t+1] = AF @ z[:, t]\n", "\n", "# Display policies\n", "print(\"Computed policies for firm 1 and firm 2:\\n\")\n", "print(f\"F1 = {F1}\")\n", "print(f\"F2 = {F2}\")" ] }, { "cell_type": "code", "execution_count": 26, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAhsAAAF4CAYAAAD9rzvUAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADh0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uMy4yLjIsIGh0dHA6Ly9tYXRwbG90bGliLm9yZy+WH4yJAAAgAElEQVR4nO3deZgdZZ33//e3OytkA9OErIRN9gRCEpGwKwgMiqM8LIOiOPOgAo4zg/g4jsMIOs+gIvggP0GUGUFFcRCBQVwAQUFRk2AChCUECCF0IAtkJ0t3378/qjocml6Tc7o657xf13WuqlN1V53vKQ45n77rPlWRUkKSJKlS6oouQJIkVTfDhiRJqijDhiRJqijDhiRJqijDhiRJqijDhiRJqijDhlQjImJhRLy7jPtbGxF7lGt/2yIivhgRPyi4ho9GxENF1iD1VYYN1Yz8y+CxiFgfES9HxLURMaIH25f7y7qs++ttKaUhKaXniq6jGkREiohXIqJfybJ+EbE0IlLJsgciYkMe9JZHxG0RMTpf972I2JSva33MLeL9SG0ZNlQTIuIi4CvAxcBw4DBgN+CeiBhQZG3bm9IvRJXVSuCkkucnA6+10+7ClNIQ4O3ACOCqknVfzUNg62Ny5cqVus+woaoXEcOAS4FPpZR+mVLanFJaCJxOFjg+lLf7XkR8uWS7YyJicT7/fWAC8D/5X4yfjYiJ+V+k50VEY0QsyUMNW7O/dureKSLuiohlEfFaPj+uZP0DEfGliPh9RKyJiF9HxMiS9R+OiBciYkVE/EsXx+h7EXFdRNyT7+u3EbFbyfoUERdExDPAMyXL9srnB0fE1/PXWxURD0XE4HzdYRHxh4hYGRFzI+KYkv1+NCKey1/z+Yg4u7M6S7bbPa9xTUTcA5S+7y3HuWTZll6kiBgYEd/I/5s15vMDS7eNiM/nPQcLS2uKiOERcVP+3+SFiPhCRLzl39GI+P8i4uttlv1PRPxDJ2/r+8A5Jc/PAW7qqHFK6VXgp8CBnexT6hMMG6oFhwODgNtKF6aU1gK/AI7vagcppQ8Di4D35n8xfrVk9bHA3sAJwOe6c2qki/21qgP+iywQTQBeB65p0+ZvgHOBXYABwGcAImJ/4Frgw8AY4G3AODp3NvAlsi/uOcAP26x/P/AOYP92tr0COJTsWO8MfBZoiYixwM+BL+fLPwP8NCIaImJH4GrgpJTS0HzbOV3U2OpmYHZe65eAj3RzO4B/IevZOhiYDEwHvlCyftd8v2Pz/V4fEfvk675J1jO2B3A0WSA4t53XuBE4qzWI5CHwXcCPOqnrduCoiBgR2em9I4E7Omqc7/ODwF86e7NSX2DYUC0YCSxPKTW1s24JJX8Vb6VLU0rrUkqPkYWDs7ZxfwCklFaklH6aUlqfUloD/DvZF1yp/0opzU8pvQ78hOwLFOA04K6U0u9SShuBfwVaunjJn5e0/xfgnRExvmT9f6SUXs1fa4v8C/VjwKdTSi+llJpTSn/I9/Mh4O6U0t0ppZaU0j3ALLJTBOQ1HRgRg1NKS1JK87o6LhExAZgG/GtKaWNK6XfA/3S1XYmzgctSSktTSsvIer0+3KZN675/SxaWTo+IeuAM4J9TSmvy3rGvt7MtKaU/A6vIAgbAmcADKaVXOqlrQ/4+zsjb35kva+vqiFgJzCX7/P5TybrP5D1IrY8bO3k9qdcYNlQLlgMjOxhrMDpfvy1eLJl/gawnYZtFxA4R8e28u3418DtgRP6l1+rlkvn1wJB8fkxpXSmldcCKLl6ytP1a4FXe/F5efMsWmZFkPUfPtrNuN+B/lX4BAkcAo/OazgA+ASyJiJ9HxL5d1Ehe02v59q1e6MZ2pduXtm/736y9fY8he58D2tl2bAevcyP5Kbp8+v1u1HYTWW9JZ6dQ/j6lNCKlNDaldHYemFpdka9rffSkx0eqGMOGasHDwEbgA6UL8278k4D78kXrgB1KmuzaZj8d3SK59K//CUDjNu6v1UXAPsA7UkrDgKNaS+9iO8j+4t1SV0TsQHYqpTOl7YeQnfZoLFnfUb3Lyf4C37OddS8C32/zBbhjSulygJTSr1JKx5OFvqeA73RRI2Tvbaf8v1+rCSXzbzrueThrKFnfSBaCSrctfZ/t7bsxf5+b29n2pQ7q/AFwakRMBvYjO03SlQfJjsUowJ/RqmoYNlT1UkqryLrKvxkRJ0ZE/4iYCPw3sJg3/uKcA5wcETtHxK5A28F8r5Cdq2/rX/NeiAPIzt/fso37azWUbJzGyojYGfi3rt/tFrcCp0TEEZH92uYyuv7//eSS9l8C/pRS6qg3Y4uUUgvwn8CVETEmIuoj4p35oMsfAO+NiPfkywflgzDHRcSoiHhf/sW+EVgLNAPEG4NvJ7bzei+QnYq5NCIGRMQRwHtLmswHBkXEX0VEf7LxGANL1v8I+EI+bmQkcEleZ6nWfR8JnAL8d0qpmexU1b9HxNDIBtD+Uzvbtta5GJhJ9vn6advTTx1sk/L38r58XqoKhg3VhHwA5ufJBjKuBv5E9lf3u/KxBZB9KcwFFgK/5o3Q0Oo/yL6kVkbEZ0qW/xZYQNZDckVK6dfbuL9W3wAGk/1F/Ufglz14v/OAC8gGUi4h+wnl4k43ytr+G9npk0PJxjZ012eAx8i+XF8l+5lxXR5WTiU79svIjvnFZP/21JH13jTm2xwNnJ/vbzzZKYqOeg3+hmyw6qt5zVtOOeTh8nzgu/n263jze/8yWVh5NK/5kXxZq5fJjlcj2SDZT6SUnsrXfSrf33NkPQ83kwWtjtwIHET3TqG01j+vO2NXOvDZePN1Nrb1FKFUFmF4lrZO/lf380D/Dgafbjci4nvA4pTSF7pq2xsi4gvAspTSt3v5dY8BfpBS6uqXO93d31FkPR8T8x4gqSZ5cR5JfU5K6ctdt+rb8lM4nwa+a9BQrfM0iiSVWUTsR3ZF0NFkp8OkmuZpFEmSVFH2bEiSpIoybEiSpIoqbIDoyJEj08SJE4t6eUmSVEazZ89enlJqaG9dYWFj4sSJzJo1q6iXlyRJZRQRHd42wNMokiSpogwbkiSpogwbkiSpogwbkiSpogwbkiSpogwbkiSpogwbkiSpogwbkiRtpZUrV/Ktb32ry3YLFy7k5ptv7la7Aw88sByl8Y1vfIP169dv9fZz5szh7rvvLksthg1JkrZSucNGOW13YSMiRkTErRHxVEQ8GRHvbLM+IuLqiFgQEY9GxJSyVCdJUh/2uc99jmeffZaDDz6Yiy++mJQSF198MQceeCAHHXQQt9xyy5Z2Dz74IAcffDBXXXUVCxcu5Mgjj2TKlClMmTKFP/zhD52+Tkf7feCBBzjllFO2tLvwwgv53ve+x9VXX01jYyPHHnssxx57LABDhgzhoosuYsqUKbzrXe9i2bJlABxzzDFbrui9fPlyJk6cyKZNm7jkkku45ZZbOPjgg7e83tbq7uXK/x/wy5TSaRExANihzfqTgL3zxzuAa/Npr0op8fzK51m7aS2TRk3q7ZeXJBUoojL7TanjdZdffjmPP/44c+bMAeCnP/0pc+bMYe7cuSxfvpxp06Zx1FFHcfnll3PFFVdw1113AbB+/XruueceBg0axDPPPMNZZ53V6S08brvttnb325G///u/58orr+T+++9n5MiRAKxbt44pU6bw9a9/ncsuu4xLL72Ua665pt3tBwwYwGWXXcasWbM6bNMTXYaNiBgGHAV8FCCltAnY1KbZqcBNKaUE/DHvCRmdUlqyzRX20F5X70Ui0fSvTdTX1ff2y0uSathDDz3EWWedRX19PaNGjeLoo49m5syZDBs27E3tNm/ezIUXXsicOXOor69n/vz5ZdlvZ+rq6jjjjDMA+NCHPsQHPvCBnr/BrdSdno09gGXAf0XEZGA28OmU0rqSNmOBF0ueL86XvSlsRMR5wHkAEyZM2Iay2xcRDB04lNUbV7Nm0xpGDBpR9teQJPVNnfVA9F4N3SviqquuYtSoUcydO5eWlhYGDRq0Vfvt168fLS0tW55v2LCh27VG3hVUuo+ebN8T3Rmz0Q+YAlybUjoEWAd8rk2b9jqv3nJkUkrXp5SmppSmNjS0exfabTZ0wFAA1mxcU5H9S5LUaujQoaxZ88b3zVFHHcUtt9xCc3Mzy5Yt43e/+x3Tp09/S7tVq1YxevRo6urq+P73v09zc3Onr9PRfnfbbTeeeOIJNm7cyKpVq7jvvvs6rK2lpYVbb70VgJtvvpkjjjgCyO7CPnv2bIAt69vbflt0J2wsBhanlP6UP7+VLHy0bTO+5Pk4oHHby+u5YQOzLqXVG1cX8fKSpBrytre9jRkzZnDggQdy8cUX89d//ddMmjSJyZMnc9xxx/HVr36VXXfdlUmTJtGvXz8mT57MVVddxfnnn8+NN97IYYcdxvz589lxxx07fZ2O9jt+/HhOP/10Jk2axNlnn80hhxyyZZvzzjuPk046acsA0R133JF58+Zx6KGH8pvf/IZLLrkEgM985jNce+21HH744SxfvnzL9sceeyxPPPFEWQaIRne6fCLiQeDvUkpPR8QXgR1TSheXrP8r4ELgZLKBoVenlKZ3ts+pU6emzgbDbK13fPcd/PmlP/Pw3z7MYeMOK/v+JUnaHg0ZMoS1a9dWbP8RMTulNLW9dd39NcqngB/mv0R5Djg3Ij4BkFK6DribLGgsANYD525z1VvJng1JkvqWboWNlNIcoG1aua5kfQIuKGNdW80xG5IkvVUlezW6UnVXELVnQ5KkvqXqwsaWno1N9mxIktQXVF/YGOhpFEmS+pKqCxueRpEkqW+purDhaRRJUl90ySWXcO+99xZdRiG6+9PX7YY9G5Kkvqa5uZnLLrus6DIKU309GwPt2ZAk9Z6FCxey77778pGPfIRJkyZx2mmnsX79eiZOnMhll13GEUccwX//93/z0Y9+dMvlwGfOnMnhhx/O5MmTmT59OmvWrKG5uZmLL76YadOmMWnSJL797W8X/M7Kx54NSVJViEsrc4/59G9dX2n76aef5oYbbmDGjBl87GMf41vf+hYAgwYN4qGHHgLgl7/8JQCbNm3ijDPO4JZbbmHatGmsXr2awYMHc8MNNzB8+HBmzpzJxo0bmTFjBieccAK77757Rd5Xb6q+ng0v6iVJ6mXjx49nxowZQHb79taA0XpL91JPP/00o0ePZtq0aQAMGzaMfv368etf/5qbbrqJgw8+mHe84x2sWLGCZ555pvfeRAXZsyFJqgrd6YGolNbbtbd93t4N1lJKb2nfuvyb3/wm73nPeypTZIGqr2fDMRuSpF62aNEiHn74YQB+9KMfbbl9e3v23XdfGhsbmTlzJgBr1qyhqamJ97znPVx77bVs3rwZgPnz57Nu3brKF98Lqi5s2LMhSept++23HzfeeCOTJk3i1Vdf5ZOf/GSHbQcMGMAtt9zCpz71KSZPnszxxx/Phg0b+Lu/+zv2339/pkyZwoEHHsjHP/5xmpqaevFdVE63bjFfCZW6xXxKifrL6kkkmv61ifq6+rK/hiRJrRYuXMgpp5zC448/XnQphersFvNV17MREQwZMATwVIokSX1B1YUNeONUir9IkSRV2sSJE2u+V6MrVRk2HCQqSVLfUZVhw0GikiT1HVUZNrywlyRJfUdVhg17NiRJ6juqMmw4ZkOSpL6jKsPGsAH2bEiS1FdUZdjY0rPhmA1JkgpXlWHDMRuSJPUdVR02Vm1cVXAlkiSpKsPGiEEjAMOGJEl9QVWGjeEDhwOwaoNhQ5KkovXrTqOIWAisAZqBprZ3dYuIY4A7gOfzRbellC4rX5k9M3xQFjZWblhZVAmSJCnXrbCROzaltLyT9Q+mlE7Z1oLKwdMokiT1HVV9GsWeDUmSitfdsJGAX0fE7Ig4r4M274yIuRHxi4g4oEz1bZUtPRuO2ZAkqXDdPY0yI6XUGBG7APdExFMppd+VrH8E2C2ltDYiTgZuB/Zuu5M8qJwHMGHChG0svWNDBgyhLupYt3kdTS1N9KvrydkiSZJUTt3q2UgpNebTpcDPgOlt1q9OKa3N5+8G+kfEyHb2c31KaWpKaWpDQ8M2F9+RiHjjWhv2bkiSVKguw0ZE7BgRQ1vngROAx9u02TUiIp+fnu93RfnL7T4HiUqS1Dd05/zCKOBneZboB9ycUvplRHwCIKV0HXAa8MmIaAJeB85MKaUK1dwtDhKVJKlv6DJspJSeAya3s/y6kvlrgGvKW9q2cZCoJEl9Q1X+9BW8sJckSX1F9YaN1kuWO2ZDkqRCVW3Y8DSKJEl9Q9WGDQeISpLUN1Rt2PCnr5Ik9Q1VGzYcICpJUt9QvWHDAaKSJPUJVRs2HCAqSVLfULVhw9MokiT1DVUbNhwgKklS31C1YcOfvkqS1DdUb9jIT6Os2rCKgu8JJ0lSTavasDGo3yAG1g9kc8tmNjRtKLocSZJqVtWGDXhj3MZrG14ruBJJkmpXVYeNnQfvDMBrrxs2JEkqSlWHjZ0G7wTAq6+/WnAlkiTVrqoOG1t6NjyNIklSYao6bOw0yJ4NSZKKVtVho7Vnw7AhSVJxaiJsOEBUkqTiVHXY8DSKJEnFq+qwseU0ygbDhiRJRanqsNH601dPo0iSVJyqDhsOEJUkqXiGDUmSVFFVHTZaB4h6US9JkopT3WGjZMxGS2opuBpJkmpTt8JGRCyMiMciYk5EzGpnfUTE1RGxICIejYgp5S+15/rV9WPYwGEkEqs3ri66HEmSalJPejaOTSkdnFKa2s66k4C988d5wLXlKK4cvNaGJEnFKtdplFOBm1Lmj8CIiBhdpn1vEweJSpJUrO6GjQT8OiJmR8R57awfC7xY8nxxvuxNIuK8iJgVEbOWLVvW82q3gtfakCSpWN0NGzNSSlPITpdcEBFHtVkf7WyT3rIgpetTSlNTSlMbGhp6WOrWsWdDkqRidStspJQa8+lS4GfA9DZNFgPjS56PAxrLUeC22nmQYUOSpCJ1GTYiYseIGNo6D5wAPN6m2Z3AOfmvUg4DVqWUlpS92q2w5TSK19qQJKkQ/brRZhTws4hobX9zSumXEfEJgJTSdcDdwMnAAmA9cG5lyu05T6NIklSsLsNGSuk5YHI7y68rmU/ABeUtrTxaw8aK11cUXIkkSbWpqq8gCjByh5EArFhv2JAkqQg1EzaWr19ecCWSJNUmw4YkSaqomgkby9b3zkXEJEnSm1V92Nhp0E7URR0rN6xkc/PmosuRJKnmVH3YqK+r9+evkiQVqOrDBjhuQ5KkIhk2JElSRRk2JElSRdVG2BjsL1IkSSpKbYQNezYkSSpMTYSNhh0bAMOGJElFqImwYc+GJEnFMWxIkqSKqqmw4QBRSZJ6X02FDXs2JEnqfYYNSZJUUTURNoYOGMqA+gGs37ye9ZvXF12OJEk1pSbCRkTYuyFJUkFqImwANOyQXWtj6bqlBVciSVJtqZmwMWrIKABeWftKwZVIklRbaiZs7DpkVwBeWWfYkCSpN9VM2Bi1oz0bkiQVofbChj0bkiT1qtoJG0MMG5IkFaF2woanUSRJKkTthA17NiRJKkS3w0ZE1EfEXyLirnbWHRMRqyJiTv64pLxlbjt7NiRJKka/HrT9NPAkMKyD9Q+mlE7Z9pIqY+QOI6mLOla8voLNzZvpX9+/6JIkSaoJ3erZiIhxwF8B361sOZVTX1fvreYlSSpAd0+jfAP4LNDSSZt3RsTciPhFRBzQXoOIOC8iZkXErGXLev8L31MpkiT1vi7DRkScAixNKc3upNkjwG4ppcnAN4Hb22uUUro+pTQ1pTS1oaFhqwreFl5FVJKk3tedno0ZwPsiYiHwY+C4iPhBaYOU0uqU0tp8/m6gf0SMLHex28r7o0iS1Pu6DBsppX9OKY1LKU0EzgR+k1L6UGmbiNg1IiKfn57vd0UF6t0mXkVUkqTe15Nfo7xJRHwCIKV0HXAa8MmIaAJeB85MKaXylFg+jtmQJKn39ShspJQeAB7I568rWX4NcE05C6uE1tMoL697ueBKJEmqHTVzBVGAMUPHALBkzZKCK5EkqXbUZNhoXNNYcCWSJNWOmgwbL615qeBKJEmqHTUVNoYPHM4O/Xdg7aa1rNm4puhyJEmqCTUVNiLC3g1JknpZTYUNcNyGJEm9rebCxtihYwF4abU9G5Ik9YaaCxv2bEiS1LsMG5IkqaJqLmxsOY3iAFFJknpFzYUNezYkSepdNRs27NmQJKl31GzYWLJmCS2ppeBqJEmqfjUXNgb3H8xOg3Zic8tmVqxfUXQ5kiRVvZoLGwBjh2WDRBevXlxwJZIkVb+aDBvjh40H4MXVLxZciSRJ1a8mw8aE4RMAWLRqUcGVSJJU/QwbkiSpomoybOw2fDfAsCFJUm+oybBhz4YkSb2npsPGC6teKLgSSZKqX02GjTFDx1AXdSxZs4RNzZuKLkeSpKpWk2Gjf31/xgwdQyLx0movWy5JUiXVZNgAx21IktRbajZs+IsUSZJ6R82GDXs2JEnqHYYNw4YkSRXV7bAREfUR8ZeIuKuddRERV0fEgoh4NCKmlLfM8msNGwtXLSy2EEmSqlxPejY+DTzZwbqTgL3zx3nAtdtYV8XtsdMeADz32nMFVyJJUnXrVtiIiHHAXwHf7aDJqcBNKfNHYEREjC5TjRWx+4jdAVi4ciHNLc0FVyNJUvXqbs/GN4DPAi0drB8LlN6vfXG+7E0i4ryImBURs5YtW9ajQsttcP/BjBk6hqaWJm81L0lSBXUZNiLiFGBpSml2Z83aWZbesiCl61NKU1NKUxsaGnpQZmV4KkWSpMrrTs/GDOB9EbEQ+DFwXET8oE2bxcD4kufjgMayVFhBe+60JwDPvvpswZVIklS9ugwbKaV/TimNSylNBM4EfpNS+lCbZncC5+S/SjkMWJVSWlL+csvLng1Jkiqv39ZuGBGfAEgpXQfcDZwMLADWA+eWpboK29Kz8Zo9G5IkVUqPwkZK6QHggXz+upLlCbignIX1hj13zsKGPRuSJFVOzV5BFN44jWLPhiRJlVPTYaNhhwaGDBjCyg0ree3114ouR5KkqlTTYSMi7N2QJKnCajpsAOy9894AzF8xv+BKJEmqTjUfNvYduS8ATy1/quBKJEmqTjUfNvZ52z4APL3i6YIrkSSpOhk2RmZhw54NSZIqw7CR92zMXzGfltTRfeYkSdLWqvmwMXzQcHYdsisbmjawaNWiosuRJKnq1HzYAAeJSpJUSYYNSgaJLneQqCRJ5WbY4I2wYc+GJEnlZ9ig5DTKCsOGJEnlZtgADtjlAAAeX/o42Q1sJUlSuRg2gPHDxjN84HCWr1/OK+teKbocSZKqimGD7IZsB+5yIACPvfJYwdVIklRdDBu5g3Y5CIDHlho2JEkqJ8NG7qBRhg1JkirBsJHb0rPhaRRJksrKsJFr7dmYt2wezS3NBVcjSVL1MGzkRgwawfhh49nQtIFnX3u26HIkSaoa/YouoC+ZNGoSL65+kTkvz+Htb3t70eW0a9MmWLUKVq5882PtWnj9ddiw4Y1H2+cbN0JTEzQ39+zR0gKtlx8pnXZ32da2V23yv71UWeeeC//+7737moaNElNGT+Hnz/yc2Y2zOf2A03v99VtaoLER5s/PHs8+mz1vbIQlS7LH6tW9XpYkqYoU8T1i2CgxdcxUAGYvmV3x12ppgXnz4I9/hJkzYfZseOopWL++8+3q62HEiOwxfPgb80OHwuDBMGhQ9iidb30+YAD065ftoyePujqIyB7w5ml3l21te9Um/9tLlbPjjr3/moaNEq1hY1bjLFJKRJn/xVu1Cu64A371K7j3Xli69K1tdtkF3v727LHXXjBuHIwenT3GjMmChf8QS5K2J4aNEmOGjmH0kNEsWbuEZ197lr123mub99nUBHfdBT/4QTbduPGNdWPHwpFHwrRp2eOgg7IwIUlSNTFstHHomEO5a/5dzGqctU1hY/16+N734Otfh+eey5ZFwDHHwPvfD8cfD/vtZy+FJKn6dfnT14gYFBF/joi5ETEvIi5tp80xEbEqIubkj0sqU27lTR2dj9to3LpxGy0tcP31MHEiXHBBFjT23BO++lVYtAjuvx8+/WnYf3+DhiSpNnSnZ2MjcFxKaW1E9AceiohfpJT+2KbdgymlU8pfYu9qHbcxs3Fmj7edPRvOPx/+/Ofs+aGHwv/5P/CBD2QDLSVJqkVdho2UUgLW5k/754+q/SX89LHTgSxsbG7eTP/6/l1u09QEl14K//f/Zj0bY8bAlVfC6afbeyFJUreuIBoR9RExB1gK3JNS+lM7zd6Zn2r5RUQc0MF+zouIWRExa9myZdtQduU07NjA3jvvzfrN65n7ytwu2y9fDu9+N3z5y9nFiP7xH7OfsJ5xhkFDkiToZthIKTWnlA4GxgHTI+LANk0eAXZLKU0Gvgnc3sF+rk8pTU0pTW1oaNiWuitqxoQZAPx+0e87bffMM3DYYfDb38Kuu8J992U9GkOH9kaVkiRtH3p0b5SU0krgAeDENstXp5TW5vN3A/0jYmS5iuxtM8bnYePFjsPGvHnZz1affRamTIFZs+DYY3urQkmSth/d+TVKQ0SMyOcHA+8GnmrTZtfIr4AVEdPz/a4of7m9ozRspHZu1PDMM1mweOUVOO64rGdj7NjerlKSpO1Dd36NMhq4MSLqyULET1JKd0XEJwBSStcBpwGfjIgm4HXgzNTet/R2Yp+R+7Dz4J1pXNPIC6teYOKIiVvWvfwyvOc9sGxZdq2MO+7ILgUuSZLa151fozwKHNLO8utK5q8BrilvacWpizoOH384d82/iwdfeHBL2Ni0CT74QXj++eyKn7fdZtCQJKkrPRqzUUuOnZgNwLjv+fu2LPvHf4Q//CG7X8ldd8GQIUVVJ0nS9sPLlXfgXbu/C8jCRkqJO+4IvvUtGDgw69HYZZeCC5QkaTthz0YHDhp1EA07NLB49WL+MH8+//t/Z8u/+tXsFIokSeoew0YH6qKO43Y/DoC/v+o+li+Hd70LLryw4MIkSdrOGDY68e493g3AIyvvZYcd4IYboM4jJklSj/jV2YmjxmVhg93v45+/sInddiu2HkmStkeGjU7ce+tEWClghF8AABI1SURBVLo/DFrN1A8+WHQ5kiRtlwwbHVi3Dr70JeDp9wHwy+f+p9iCJEnaThk2OnDNNdnVQvetfy8Adz59Z7uXLpckSZ0zbLTj9dezu7cCXPlP72DkDiN5fuXzPLHsiWILkyRpO2TYaMdNN8HSpdndXE88oZ5T3n4KALc9eVvBlUmStP0xbLTR3AxXXJHNf/azEAGn7386ALfMu6XAyiRJ2j4ZNtr4xS9gwQKYODG76Rpk19vYefDOzFs2j8deeazQ+iRJ2t4YNtr49rez6fnnQ7/8zjH96/tz2n6nAfDjx39cUGWSJG2fDBslFi2Cu++GAQPgox9987qzDjoLgB89/iNaUkvvFydJ0nbKsFHiu9+Flpbs9ElDw5vXHTnhSCYMn8DzK5/n/ufvL6ZASZK2Q4aNXEtL9isUYMsdXkvV19XzsYM/BsB3HvlOL1YmSdL2zbCRe/hheOEFGDcOjj66/TYfO+Rj1EUdP3vqZyxbt6x3C5QkaTtl2MjdfHM2Peusju/sOn74eE7c60Q2NW/iP//yn71XnCRJ2zHDBrB5M/zkJ9n82Wd33vaCaRcA8M0/f5NNzZsqXJkkSds/wwZw//2wfDnstx9MmtR52xP3OpH9G/bnpTUvccvjXuRLkqSuGDaA22/Pph/8YHbF0M7URR0XvfMiAK54+ApvziZJUhdqPmykBHfemc2femr3tjn7oLMZM3QMj77yKD976meVK06SpCpQ82Fj9mx46SUYOxYOPbR72wzsN5B/OfJfALjk/ktobmmuYIWSJG3faj5s3HFHNn3f+7o+hVLqbw/5W3Ybvhvzls3j5sdurkxxkiRVgZoPGz//eTZ93/t6tt3AfgP54jFfBOBz932OtZvWlrcwSZKqRE2HjaVL4S9/gYEDO76QV2fOmXwO08ZMo3FNI1/+3ZfLX6AkSVWgy7AREYMi4s8RMTci5kXEpe20iYi4OiIWRMSjETGlMuWW1333ZdMjj4TBg3u+fV3Ucc3J1wBw5cNXMvfluWWsTpKk6tCdno2NwHEppcnAwcCJEXFYmzYnAXvnj/OAa8taZYXcc082Pf74rd/H9LHTOX/q+Wxu2cw5t5/jhb4kSWqjy7CRMq0DEvrnj7YXlzgVuClv+0dgRESMLm+p5ZXSG2HjhBO2bV9fOf4r7LHTHjz6yqN84Tdf2PbiJEmqIt0asxER9RExB1gK3JNS+lObJmOBF0ueL86Xtd3PeRExKyJmLVtW7I3M5s+HxYuzW8l3ddXQrgwZMIQb338j9VHP1/7wNW5/6vbyFClJUhXoVthIKTWnlA4GxgHTI+LANk3a+9HoWy6tmVK6PqU0NaU0taGhoefVltEDD2TT447r+MZrPXHEhCO4/N2XA/CR2z/CY688tu07lSSpCvToazaltBJ4ADixzarFwPiS5+OAxm2qrMIeeiibHnlk+fZ50Tsv4vQDTmf1xtWc9MOTeHHVi11vJElSlevOr1EaImJEPj8YeDfwVJtmdwLn5L9KOQxYlVJaUvZqy+jBB7NpOcNGRHDj+2/kiAlH8NKalzjupuNYvHpx+V5AkqTtUHd6NkYD90fEo8BMsjEbd0XEJyLiE3mbu4HngAXAd4DzK1Jtmbz4IrzwAgwfDgccUN59D+o3iDvOvINDdj2EBa8u4OjvHc2CVxeU90UkSdqO9OuqQUrpUeCQdpZfVzKfgAvKW1rltJ5COfxwqK8v//53Hrwz955zLyd8/wRmL5nNYd89jNvOuI2jdjuq/C8mSVIfV5NXEK3EeI22dh68M/d/5H5O3vtkVry+guNuPI7/ePA/vGmbJKnm1GTY+P3vs+mMGZV9naEDh3LHmXfw2cM/S3Nq5vO/+TzTvzudWY2zKvvCkiT1ITUXNtavh8cfz06fTJ1a+dfrV9ePrxz/Fe7+m7sZP2w8jyx5hOnfmc4FP7+AJWv69BhaSZLKoubCxpw50NycDQzdYYfee92T9j6JJy54gs+88zPURR3fmvUtJv6/iXz8fz7Os68+23uFSJLUy2oubMycmU17o1ejrSEDhvC1E77GXz7+Fz643wfZ3LyZ6x+5nr2/uTfH3Xgc//WX/2L1xtW9X5gkSRVUs2Fj2rTiajho1EHcevqtPHHBE5x78LkMqB/A/Qvv52N3foxdvrYLx3//eK74wxXMfXmuA0olSdu9yH612vumTp2aZs3q/YGS++4LTz8Ns2bBoYf2+su3a+WGldz6xK384NEf8NsXfvumdUMHDOXQMYcybcw09m/Yn33etg/7jNyHnQfvXFC1kiS9VUTMTim1e96gpsLGqlUwYgQMGABr1mTTvmbZumXc+9y9/OrZX3H/wvtZtGpRu+1G7jCSPXfakzFDxzB6yOhsOnQ0bxv8NnYavBMjBo3Y8hg6YCgR7d2+RpKk8ugsbHR5Ua9qMnt2Np08uW8GDYCGHRs466CzOOugswB4ee3LzHxpJrOXzObpFU/z9PKnmb9iPsvXL2f5+uXd2mdd1LFD/x0Y3G8wg/oNYnD/bDqo36A3Letf15/6unrqo55+df2oj/otz+vrOl4W+X34WgNNEG+ab13XXrvO1nWnnaTqFu3e51PbYtKoSRw98ehefc2aChtz5mTTKVOKraMndh2yK+/d5728d5/3blmWUuKlNS+xaNUiGtc0bnksWbuE115/jZUbVvLahmy6csNK1m5au+UhSaptF0670LBRSY8+mk0nTy62jm0VEYwbNo5xw8Z1q31TSxPrN69nQ9MGXt/8ejZtev0tzzc3b6Y5NdPc0rxl2tTS9JZlpdOmliYgC0CJtGUeIJE6nG9vm662b9tOUnUr6jR/tSvi1hk1GTYmTSq2jt7Wr64fwwYOY9jAYUWXIkmqQTXz09emJpg3L5s/6KBia5EkqZbUTNiYPx82bYLdd4dh/oEvSVKvqZmwUaunUCRJKpphQ5IkVVTNhI25c7OpYUOSpN5VM2HjsceyqYNDJUnqXTURNtauhRdfzK4auueeRVcjSVJtqYmwMX9+Nt17b+hXU1cWkSSpeDURNp58Mpvuu2+xdUiSVItqImw89VQ2NWxIktT7aiJstPZs7LdfsXVIklSLaiJs2LMhSVJxqj5sNDXBM89k8/vsU2wtkiTVoqoPG88/n90TZfx4GDKk6GokSao9XYaNiBgfEfdHxJMRMS8iPt1Om2MiYlVEzMkfl1Sm3J7zFIokScXqzlUnmoCLUkqPRMRQYHZE3JNSeqJNuwdTSqeUv8Rt03qNjbe/vdg6JEmqVV32bKSUlqSUHsnn1wBPAmMrXVi5PPtsNt1rr2LrkCSpVvVozEZETAQOAf7Uzup3RsTciPhFRBxQhtrKYsGCbOplyiVJKka3L94dEUOAnwL/kFJa3Wb1I8BuKaW1EXEycDuwdzv7OA84D2DChAlbXXRP2LMhSVKxutWzERH9yYLGD1NKt7Vdn1JanVJam8/fDfSPiJHttLs+pTQ1pTS1oaFhG0vv2ubN8MILEAG7717xl5MkSe3ozq9RArgBeDKldGUHbXbN2xER0/P9rihnoVtj0SJoboaxY2HQoKKrkSSpNnXnNMoM4MPAYxExJ1/2eWACQErpOuA04JMR0QS8DpyZUkoVqLdHWk+hOF5DkqTidBk2UkoPAdFFm2uAa8pVVLk4XkOSpOJV9RVE/SWKJEnFq+qw4WkUSZKKZ9iQJEkVVbVhI6XsJmwAe+xRbC2SJNWyqg0bK1bAunUwbBjstFPR1UiSVLuqNmy88EI23W23YuuQJKnWVW3YWLQomxo2JEkqVtWGDXs2JEnqG6o+bPTS/d4kSVIHqj5s2LMhSVKxDBuSJKmiDBuSJKmiqjJsrFuXXWdjwAAYNaroaiRJqm1VGTZaf/Y6YQLUVeU7lCRp+1GVX8WeQpEkqe+o6rDhz14lSSpeVYaNxYuzqWFDkqTiVWXYeOmlbDp2bLF1SJKkKg8bY8YUW4ckSarysGHPhiRJxTNsSJKkiqq6sLF+PaxcmV3Qa+TIoquRJElVFzZKx2tEFFuLJEmq4rDhKRRJkvoGw4YkSaqoqgsbjY3Z1LAhSVLfUHVhw54NSZL6li7DRkSMj4j7I+LJiJgXEZ9up01ExNURsSAiHo2IKZUpt2uGDUmS+pZ+3WjTBFyUUnokIoYCsyPinpTSEyVtTgL2zh/vAK7Np73OsCFJUt/SZc9GSmlJSumRfH4N8CTQ9qv8VOCmlPkjMCIiRpe92m7wUuWSJPUtPRqzERETgUOAP7VZNRZ4seT5Yt4aSIiI8yJiVkTMWrZsWc8q7YaWljcGiBo2JEnqG7pzGgWAiBgC/BT4h5TS6rar29kkvWVBStcD1wNMnTr1Leu3VXMzfOMbsGIFDB5c7r1LkqSt0a2wERH9yYLGD1NKt7XTZDEwvuT5OKBx28vrmf794YILevtVJUlSZ7rza5QAbgCeTCld2UGzO4Fz8l+lHAasSiktKWOdkiRpO9Wdno0ZwIeBxyJiTr7s88AEgJTSdcDdwMnAAmA9cG75S5UkSdujLsNGSukh2h+TUdomAZ7AkCRJb1F1VxCVJEl9i2FDkiRVlGFDkiRVlGFDkiRVlGFDkiRVlGFDkiRVlGFDkiRVlGFDkiRVlGFDkiRVVGQX/yzghSOWAS9UaPcjgeUV2nc18nj1nMesZzxePePx6jmPWc9U4njtllJqaG9FYWGjkiJiVkppatF1bC88Xj3nMesZj1fPeLx6zmPWM719vDyNIkmSKsqwIUmSKqpaw8b1RRewnfF49ZzHrGc8Xj3j8eo5j1nP9OrxqsoxG5Ikqe+o1p4NSZLUR1RV2IiIEyPi6YhYEBGfK7qevioiFkbEYxExJyJm5ct2joh7IuKZfLpT0XUWJSL+MyKWRsTjJcs6PD4R8c/5Z+7piHhPMVUXq4Nj9sWIeCn/nM2JiJNL1tX0MYuI8RFxf0Q8GRHzIuLT+XI/Z+3o5Hj5GWtHRAyKiD9HxNz8eF2aLy/u85VSqooHUA88C+wBDADmAvsXXVdffAALgZFtln0V+Fw+/zngK0XXWeDxOQqYAjze1fEB9s8/awOB3fPPYH3R76GPHLMvAp9pp23NHzNgNDAlnx8KzM+Pi5+znh0vP2PtH68AhuTz/YE/AYcV+fmqpp6N6cCClNJzKaVNwI+BUwuuaXtyKnBjPn8j8P4CaylUSul3wKttFnd0fE4FfpxS2phSeh5YQPZZrCkdHLOO1PwxSyktSSk9ks+vAZ4ExuLnrF2dHK+O1PrxSimltfnT/vkjUeDnq5rCxljgxZLni+n8w1jLEvDriJgdEefly0allJZA9j82sEth1fVNHR0fP3eduzAiHs1Ps7R22XrMSkTEROAQsr8+/Zx1oc3xAj9j7YqI+oiYAywF7kkpFfr5qqawEe0s86c27ZuRUpoCnARcEBFHFV3QdszPXceuBfYEDgaWAF/Pl3vMchExBPgp8A8ppdWdNW1nWc0ds3aOl5+xDqSUmlNKBwPjgOkRcWAnzSt+vKopbCwGxpc8Hwc0FlRLn5ZSasynS4GfkXWXvRIRowHy6dLiKuyTOjo+fu46kFJ6Jf8HrwX4Dm90y3rMgIjoT/bF+cOU0m35Yj9nHWjvePkZ61pKaSXwAHAiBX6+qilszAT2jojdI2IAcCZwZ8E19TkRsWNEDG2dB04AHic7Vh/Jm30EuKOYCvusjo7PncCZETEwInYH9gb+XEB9fU7rP2q5vyb7nIHHjIgI4AbgyZTSlSWr/Jy1o6Pj5WesfRHREBEj8vnBwLuBpyjw89WvnDsrUkqpKSIuBH5F9suU/0wpzSu4rL5oFPCz7P9d+gE3p5R+GREzgZ9ExN8Ci4D/VWCNhYqIHwHHACMjYjHwb8DltHN8UkrzIuInwBNAE3BBSqm5kMIL1MExOyYiDibrjl0IfBw8ZrkZwIeBx/Lz6gCfx89ZRzo6Xmf5GWvXaODGiKgn61T4SUrproh4mII+X15BVJIkVVQ1nUaRJEl9kGFDkiRVlGFDkiRVlGFDkiRVlGFDkiRVlGFDUsVExIiIOL/oOiQVy7AhqZJGAIYNqcYZNiRV0uXAnhExJyK+VnQxkorhRb0kVUx+h867Ukqd3QRKUpWzZ0OSJFWUYUOSJFWUYUNSJa0BhhZdhKRiGTYkVUxKaQXw+4h43AGiUu1ygKgkSaooezYkSVJFGTYkSVJFGTYkSVJFGTYkSVJFGTYkSVJFGTYkSVJFGTYkSVJFGTYkSVJF/f98jY1prMl3bgAAAABJRU5ErkJggg==\n", "text/plain": [ "
" ] }, "metadata": { "filenames": { "image/png": "/Users/matthewmckay/repos-collab/phd-macro-theory-book/_build/jupyter_execute/dyn_stack_35_0.png" }, "needs_background": "light" }, "output_type": "display_data" } ], "source": [ "q1 = z[1, :]\n", "q2 = z[2, :]\n", "q = q1 + q2 # Total output, MPE\n", "p = a0 - a1 * q # Price, MPE\n", "\n", "fig, ax = plt.subplots(figsize=(9, 5.8))\n", "ax.plot(range(n), q, 'b-', lw=2, label='total output')\n", "ax.plot(range(n), p, 'g-', lw=2, label='price')\n", "ax.set_title('Output and prices, duopoly MPE')\n", "ax.legend(frameon=False)\n", "ax.set_xlabel('t')\n", "plt.show()" ] }, { "cell_type": "code", "execution_count": 27, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "6.8833827526759706e-15" ] }, "execution_count": 27, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Computes the maximum difference between the two quantities of the two firms\n", "np.max(np.abs(q1 - q2))" ] }, { "cell_type": "code", "execution_count": 28, "metadata": {}, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ "Computed values for firm 1 and firm 2:\n", "\n", "v1(forward sim) = 133.3303; v1 (direct) = 133.3296\n", "v2 (forward sim) = 133.3303; v2 (direct) = 133.3296\n" ] } ], "source": [ "# Compute values\n", "u1 = (- F1 @ z).flatten()\n", "u2 = (- F2 @ z).flatten()\n", "\n", "π_1 = p * q1 - γ * (u1) ** 2\n", "π_2 = p * q2 - γ * (u2) ** 2\n", "\n", "v1_forward = np.sum(βs * π_1)\n", "v2_forward = np.sum(βs * π_2)\n", "\n", "v1_direct = (- z[:, 0].T @ P1 @ z[:, 0])\n", "v2_direct = (- z[:, 0].T @ P2 @ z[:, 0])\n", "\n", "# Display values\n", "print(\"Computed values for firm 1 and firm 2:\\n\")\n", "print(f\"v1(forward sim) = {v1_forward:.4f}; v1 (direct) = {v1_direct:.4f}\")\n", "print(f\"v2 (forward sim) = {v2_forward:.4f}; v2 (direct) = {v2_direct:.4f}\")" ] }, { "cell_type": "code", "execution_count": 29, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "True" ] }, "execution_count": 29, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Sanity check\n", "Λ1 = A - B2 @ F2\n", "lq1 = qe.LQ(Q1, R1, Λ1, B1, beta=β)\n", "P1_ih, F1_ih, d = lq1.stationary_values()\n", "\n", "v2_direct_alt = - z[:, 0].T @ lq1.P @ z[:, 0] + lq1.d\n", "\n", "(np.abs(v2_direct - v2_direct_alt) < tol2).all()" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## MPE vs. Stackelberg" ] }, { "cell_type": "code", "execution_count": 30, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAhEAAAEWCAYAAADYc8U3AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADh0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uMy4yLjIsIGh0dHA6Ly9tYXRwbG90bGliLm9yZy+WH4yJAAAgAElEQVR4nO3deXxV1bn/8c+TBEgCIUwJcwCZFBAUUlCKqICCBYfKtaKoOOBsrZfaqtf26rXaSh2Lvd6fURGwiNqiLU4ooEIFxYYqmDAjCGEMc5hChvX7Y+/IISYkOUnYOcn3/Xrt1zl77enZZwfOc9Zeey1zziEiIiJSUVFBByAiIiKRSUmEiIiIhEVJhIiIiIRFSYSIiIiERUmEiIiIhEVJhIiIiIRFSYREDDP71MzGV2Y7M7vezD6r+uiql5mdZ2ZZQcdRHcxsrJl9FHQcIlJxSiICZGYbzOyombUoVv61mTkz6+jPT/HXO2Bmu81sjpmd6i972Mzy/GVF096TfB6X+jHvN7OdZjYvJPaHzewvJzOemsjMYs1sr5kNKWHZM2b2tyDi8o/vzOzgyfj7MbOO/vFiisqcc9OdcxdW1zFFpPooiQjeeuCqohkzOx2IK2G9PzrnGgHtgB3AlJBlbzjnGoVMTaoz4FBm1gWYBvwSSAQ6Ac8DhScrhqCEfhGWxTl3BHgDuK7YPqLxrv/Uqo2uwvoE8fcjIpFNSUTwXuX4L5ZxeF/KJXLOHQJeA3pV9EBmNtvM7ipWttTMLjfPM2a2w8z2mdkyMyvPMc4A1jvn5jlPjnNupnNuo5mNAP4LuNL/hbvUP+YNZrbCzHLM7Fszu7VYTKE1G+v8/RQ/l9Z+jPf682eZ2SL/1/5SMzvvxB+FPeef50ozGxqyINHMXjazrWa22cwe9b/oi26FLPQ/p93Aw2bW3Mze8WP9l79+abdLpgKjzSw+pGw43r/DD8r6XIqdgPMTuKL5KWb2aMj8KP8z3Ot/Lr1P8HlU+BhFt1fM7Jf+38xWM7shZN04M3vKzL7zP+fPzCwOWOCvstf/mzjbit1iMrOB/me5z38dGLLsUzP7nX8dcszsIytWkyciJ4+SiOB9ATQ2s9P8L6srgVKr/82sETAW+CqMY73G8bUePYAOwHvAhcBgoBvQxI9jVzn2+W/gVP+L9Xw/PgCcc7OB33OspqSPv2gHMApoDNwAPGNmff2Y+uMlUb/y4xgMbAg9oHm3SuYDf3bOPWlmbf1zeBRoBtwLzDSzpFJiHgB8C7QAHgLeMrNm/rKpQD7QBTjT/1zGl7BtMvAY8L/AQaAVXgI4rrQPyjm3CNgKXB5SfC3wmnMu/0SfS0X420wGbgWaAy8As8ysQUX3VYZWeLVPbYGbgP81s6b+sieBfsBAvGvya7zaqcH+8ib+38TnxWJvhnctJ/mxPw28Z2bNQ1a7Gu/zSQbq411vEQmAkoiaoag24gJgJbC5hHXuNe9e9VqgEXB9yLKf+b84i6ZPSjnO28AZZtbBnx8LvOWcywXygATgVMCccyucc1vLCtw59y1wHt4XyZvATv8Xa6MTbPOec26dX3MxH/gIOMdffBMw2Tk3xzlX6Jzb7JxbGbJ5D+BT4CHnXJpfdg3wvnPufX+bOUA68JNSQtgBPOucy3POvQGsAkaaWUvgIuAe59xB59wO4BlgTMi2W5xzz/lf+keB0X4sh5xzyyn7tsQ0/JonM2sMXFq0TRmfS0XcDLzgnFvsnCtwzk0FcoGzTrDNv0P+fiaV8zh5wCP+5/g+cADobmZRwI3AL/zrV+CcW+T/nZVlJLDGOfeqcy7fOTcD79/ExSHrvOKcW+2cO4z3N3dGOeMVkSqmJKJmeBXv19X1lH4r40nnXBPnXCvn3CXOuXUhy970lxVN55e0A+dcDt6vvKIvxTHAdH/Zx8Cf8X5ZbzezNP9LrkzOuS+ccz9zziXhfekNBh4sbX0zu8jMvjCvkehevC/7oirp9sC60rbFS3w2A6ENETsAV4QmUsAgoHUp+9jsjh957jugjb+fesDWkP28gPeLt8imkPdJQEyxstD3JZkGnO/XnvwHsNY59xWU+blURAfgl8U+j/b+OZamb8jfz93lPM4uP5kqcggvwW0BxHLi61iaNnjXI9R3eElqkW0lHFNEAqAkogZwzn2H18DyJ8Bb1Xy4GcBVZnY2XgPO72stnHOTnHP9gJ54tzV+VdGdO+f+hXcORe0pjhsm1q9Sn4lX3d3Sb8T3PmD+KpuAzic4xMPATuC1orYK/javFkukGjrnHi9lH23NzELmU4At/n5ygRYh+2nsnOsZeooh77Pxbn20Cylrf4LYcc5tBP6Jlwxdi580luNzKe4QENq2olXI+03AY8U+j3j/V31FnOgYJ7ITOELJ17GsYYO34CVBoVIouXZORAKmJKLmuAkY4pw7WM3HeR/vP+lH8NoqFAKY2Y/MbICZ1cO7x38EKChrZ2Y2yMxuNrNkf/5U4BK8th4A24GOfhU3ePewG+B/AZvZRXjtDoq8DNxgZkPNLMrM2vr7LJIHXAE0BF719/sX4GIzG25m0eY9TnmemYV+uYdKBu42s3pmdgVwGt7tkK14txCeMrPG/vE7m9m5Je3EOVeAlzA9bGbxfpzXlbRuMVOBu4Af49cEleNzKe5r4Gr/fEcAoTG+CNzmX08zs4ZmNtLMEsoRW3mPUSr/b2oy8LSZtfG3P9tPlLLx2kacUsrm7wPdzOxqM4sxsyvxbmG9W8HYReQkUBJRQ/j3wtPD3Lzo6YfQKbmkFf370m8Bw/AaWhZpjPflswev+ngX3q9izOy/zOyDUo69Fy9p+MbMDgCz8dpe/NFf/lf/dZeZ/du/pXI33r3sPXi3cWaFxPclfqNCYB9eA8rjfpk6547iNU5Mxvuy2ozXtuC/8L6kNuHVopT2970Y6Ir3i/kx4D+cc0WNSK/D+0Jf7sf3N0q/LQJeMpCIV8X+Kl5NT1n3/v8GNAXmFbU7KetzKcEv8NoJ7MWr1fh70QL/7+hmvNtTe/Da0VxfRkwVOkY53At8A/wL2A1MBKL8p4seAxb6t1qOa6fhX4dReI8M78JrkDnKObczjPhFpJrZ8beGRaQyzGwi0Mo5V+pTGiIitYVqIkQqwcxONbPe/m2D/ni3pd4OOi4RkZOh3D3uiUiJEvBuYbTBe3T0KeAfgUYkInKSlFkTYWaTzeuRLqNY+c/NbJWZZZrZH0PKHzCztf6y4dURtEhN4Zz7l3Oui//0Q0fn3B+c7hGKSB1RnpqIKXgNtL7vv8DMzsdryNbbOZcb0jK/B17fAz3xfpnNNbNufit2ERERqUXKTCKccwvMH5ExxO3A40U90Pk9+4GXWLzul683s7VAf+BzTqBFixauY8fihxARkRNZsmTJTr+TN5FAhNsmohtwjpk9htefwL1+J0NtOdY/AEAWx/c09z0zuwW4BSAlJYX09HCfbhQRqZvMrHjvniInVbhPZ8TgPed+Ft7z+G/6PQCW1LteifeHnXNpzrlU51xqUpISaRERkUgTbhKRhTdwk/M7ByrE6y8/i+O7/W2H142tiIiI1DLhJhF/B4YAmFk3vB7+duL1sDfGzBqYWSe8XgG/rIpARUREpGYps02Emc3AG+q5hZllAQ/hdTU82X/s8ygwzn+sLdPM3sTrMjgfuFNPZoiIiNRONaLb69TUVKeGlSIiFWNmS5xzqUHHIXWXur0WERGRsCiJEBERkbBo7AzxOAcFBZCXV/6poAAKC4+9ljSFs8w5byqKK/S1pLLyvlbXtpEs0s8h0uMH6NULfvazoKMQCYuSiEhz9Cjs23ds2r//+PmisoMH4fBhOHTIey2aQueL3ufmekmBSCSykrqniSBXXqkkQiKWkoiaID8ftmyBTZsgKwt27Dg2ZWcfP79vX9n7i4uDRo2819ApPh6aNv1heWws1KtX8hQTc+Jl0dEQFeVNoe9Dp9LKS1pm5r3CsS+H0C+J4mUVfa2ubUVE6iAlESdDYaGXIKxZ403ffgsbN3plmzZ5CURh4fHbREVBixaQnOxNfft6r0lJXiKQmAiNG3uvoVPjxt4XvIiISDVTElFVnPOSgdWrjyULRdO6dd4tgyINGkD79pCSAkOHHnvfvj20awetWnmJQnR0cOcjIiJShtqZRBw9Ch9/DBkZ3nx8PLRuDaecAp06eb/Ww5WT4yUKq1Ydey16f/DgsfUaNIDOnaFrV/jJT7zXoqlNm2NV9iIiIhGq9iURf/873HYbbN9e+jrNmnnJRKdOxxKLxMRj9+WPHDnWSHHbtmO3HTZt8tooFDGDjh2hWzc45xzo3t1737WrV6OgmgQREanFalcSMW0ajBvntR94+WUYONBr/HfwIGzeDOvXe+0R1q/3pmXLYNYsr+aiNI0be7cZ2reHfv28pKF7d2/q0sVrlCgiIlIH1Z4kIiMDbrrJa2Pw/vtQv/6xZQkJXjuDfv1+uF1hodeW4eDBY30XxMYea6TYoMHJOwcREZEIUjuSCOdgwgQvWXjjjeMTiLJERXm3HkRERKRCakcSsWgRzJkDzz4LzZsHHY2IiEidUDseEZg82etcafz4oCMRERGpMyI/iThwwLuFceWV0LBh0NGIiIjUGZGfRMyd6zWKHDs26EhERETqlDKTCDObbGY7zCwjpOxhM9tsZl/7009Clj1gZmvNbJWZDa+uwL83d67XmdSPf1zthxIREZFjylMTMQUYUUL5M865M/zpfQAz6wGMAXr62zxvZtXb49LcuXDuuRV7IkNEREQqrcwkwjm3ANhdzv1dCrzunMt1zq0H1gL9KxHfiW3a5HU5PWxYtR1CRERESlaZNhF3mdky/3ZHU7+sLbApZJ0sv+wHzOwWM0s3s/Ts0K6kK2LvXhgyBC64ILztRUREJGzhJhH/B3QGzgC2Ak/55VbCuq6kHTjn0pxzqc651KSkpPCiOP10mDfPexUREZGTKqwkwjm33TlX4JwrBF7k2C2LLKB9yKrtgC2VC1FERERqorCSCDNrHTL7U6DoyY1ZwBgza2BmnYCuwJeVC1FERERqojK7vTazGcB5QAszywIeAs4zszPwblVsAG4FcM5lmtmbwHIgH7jTOVdQPaGLiIhIkMy5EpssnFSpqakuPT096DBERCKKmS1xzqUGHYfUXZHfY6WIiIgEQkmEiIiIhEVJhIiIiIRFSYSIiIiERUmEiIiIhEVJhIiIiIRFSYSIiIiERUmEiIiIhEVJhIiIiIRFSYSIiIiERUmEiIiIhEVJhIiIiIRFSYSIiIiERUmEiIiIhEVJhIiIiIRFSYSIiIiEpcwkwswmm9kOM8soYdm9ZubMrEVI2QNmttbMVpnZ8KoOWERERGqG8tRETAFGFC80s/bABcDGkLIewBigp7/N82YWXSWRioiISI1SZhLhnFsA7C5h0TPArwEXUnYp8LpzLtc5tx5YC/SvikBFRESkZgmrTYSZXQJsds4tLbaoLbApZD7LLytpH7eYWbqZpWdnZ4cThoiIiASowkmEmcUDDwL/XdLiEspcCWU459Kcc6nOudSkpKSKhiEiIiIBiwljm85AJ2CpmQG0A/5tZv3xah7ah6zbDthS2SBFRESk5qlwTYRz7hvnXLJzrqNzriNe4tDXObcNmAWMMbMGZtYJ6Ap8WaURi4iISI1Qnkc8ZwCfA93NLMvMbiptXedcJvAmsByYDdzpnCuoqmBFRESk5ijzdoZz7qoylncsNv8Y8FjlwhIREZGaTj1WioiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYakUSsW8ffPAB7NwZdCQiIiJ1R8QnEUuWQLt28JOfeK9paUFHJCIiUjdEdBJx+DBcey0kJsK778L558OttyqREBERORkiOolIT4cNG+Dll2HkSHjnHRgxAu66CxYvDjo6ERGR2i2ik4hzzvGSiOHDvfmYGJg+3butMXo07NgRaHgiIiK1WkQnEQDJycfPN2sGb70Fu3bB9deDc4GEJSIiUutFfBJRkjPOgCef9J7YeO65oKMRERGpnWplEgFwxx0wahT86lewbFnQ0YiIiNQ+tTaJMIPJk73bG1dd5T3JISIiIlWnzCTCzCab2Q4zywgp+52ZLTOzr83sIzNrE7LsATNba2arzGx4dQVeHklJMHUqLF8O994bZCQiIiK1T3lqIqYAI4qVPeGc6+2cOwN4F/hvADPrAYwBevrbPG9m0VUXbsVdeCFMmADPP+81uBQREZGqUWYS4ZxbAOwuVrY/ZLYhUPQMxKXA6865XOfcemAt0L+KYg3b738PP/oRXHcdLF0adDQiIiK1Q9htIszsMTPbBIzFr4kA2gKbQlbL8stK2v4WM0s3s/Ts7OxwwyiXBg3gH/+AJk3g4oth27ZqPZyIiEidEHYS4Zx70DnXHpgO3OUXW0mrlrJ9mnMu1TmXmpSUFG4Y5da6tdej5a5dcMEFUM15i4iISK1XFU9nvAaM9t9nAe1DlrUDtlTBMarEmWfCrFmwdi0MGaJEQkREpDLCSiLMrGvI7CXASv/9LGCMmTUws05AV+DLyoVYtYYO9QbrWrsWBgyAjIyytxEREZEfKs8jnjOAz4HuZpZlZjcBj5tZhpktAy4EfgHgnMsE3gSWA7OBO51zBdUWfZiGDoVPP4UjR+Dss+GNN9Q9toiISEWZqwHfnqmpqS49Pf2kH3fzZm+grsWL4fLL4c9/9tpOiIhEAjNb4pxLDToOqbtqbY+V5dG2LXz2GUycCO+9B507w333wc6dQUcmIiJS89XpJAK84cN//WvIzPRqI554whtK/Npr4eOPIT8/6AhFRERqpjqfRBTp3Bn+8hevoeX48V6/EkOHQqtWMHas1+Pl0qVQUONaeIiIiASjTreJOJGDB+HDD72usj/5BLb4D6rGxkK3bnDaaV7i0aaNN7VuDcnJkJgIjRtDvXrBxi8itZ/aREjQlESUg3OwYQMsXAhffw0rVnjTxo2l10zExnrJRKNGXo+Z9esfm0Ln69WDqChv1NHiryWVlbROdasNxzgZ5yASjr594frrw9tWSYQELSboACKBGXTq5E3XXHOsvKDAa4S5ZYs3ZWdDTg7s339sysmBo0ePn3Jz4cCBY/POQWFhya8nWlZYWP3nfjJyzOo+Rg3Ik0VKdfBg+EmESNCURFRCdDS0bOlNZ54ZdDQiIiInlxpWioiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYlESIiIhIWMpMIsxsspntMLOMkLInzGylmS0zs7fNrEnIsgfMbK2ZrTKz4dUVuIiIiASrPDURU4ARxcrmAL2cc72B1cADAGbWAxgD9PS3ed7MoqssWhEREakxykwinHMLgN3Fyj5yzuX7s18A7fz3lwKvO+dynXPrgbVA/yqMV0RERGqIqmgTcSPwgf++LbApZFmWX/YDZnaLmaWbWXp2dnYVhCEiIiInU6WSCDN7EMgHphcVlbBaiQMxO+fSnHOpzrnUpKSkyoQhIiIiAQh7KHAzGweMAoY654oShSygfchq7YAt4YcnIiIiNVVYNRFmNgK4D7jEOXcoZNEsYIyZNTCzTkBX4MvKhykiIiI1TZk1EWY2AzgPaGFmWcBDeE9jNADmmBnAF86525xzmWb2JrAc7zbHnc65guoKXkRERIJjx+5EBCc1NdWlp6cHHYaISEQxsyXOudSg45C6Sz1WioiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYlESIiIhIWJREiIiISFiURIiIiEhYIjqJcM7xyfpPyC/MDzoUERGROieik4h56+cxZNoQ3sh4I+hQRERE6pyITiKGdBpCr+RePPbPxyh0hUGHIyIiUqdEdBIRZVH85pzfsGLnCt5d/W7Q4YiIiNQpEZ1EAIzuMZrkhslMWzot6FBERETqlDKTCDObbGY7zCwjpOwKM8s0s0IzSy22/gNmttbMVpnZ8OoIOlRMVAxX9bqKd1a/w94je6v7cCIiIuIrT03EFGBEsbIM4HJgQWihmfUAxgA9/W2eN7Poyod5YmNPH8vRgqP8feXfq/tQIiIi4isziXDOLQB2Fytb4ZxbVcLqlwKvO+dynXPrgbVA/yqJ9ARS26TSJqGN2kWIiIicRFXdJqItsClkPssv+wEzu8XM0s0sPTs7u1IHNTNGdR3FR+s+4mjB0UrtS0RERMqnqpMIK6HMlbSicy7NOZfqnEtNSkqq9IFHdRtFztEc/vndPyu9LxERESlbVScRWUD7kPl2wJYqPkaJhp4ylNiYWN3SEBEROUmqOomYBYwxswZm1gnoCnxZxccoUXy9eIZ0GsI7q9/BuRIrP0RERKQKlecRzxnA50B3M8sys5vM7KdmlgWcDbxnZh8COOcygTeB5cBs4E7nXEH1hX+8kV1Hsm7POlbvWn2yDikiIlJnxZS1gnPuqlIWvV3K+o8Bj1UmqHCN7DqSO7mT99a8R/cW3YMIQUREpM6I+B4rQ3Vo0oHTWpzGh+s+DDoUERGRWq9WJREAwzsPZ/6G+RzKOxR0KCIiIrVarUsiRnQZQW5BLgu+W1D2yiIiIhK2WpdEDO4wmNiYWD5cq1saIiIi1anWJRFx9eIY3GEws9fNDjoUERGRWq3WJREAIzqPYOXOlXy397ugQxEREam1amUSMbyLNwK5ntIQERGpPrUyiTitxWm0b9xeSYSIiEg1qpVJhJkxvPNw5n47l7yCvKDDERERqZVqZRIB3qOe+3P3s3jz4qBDERERqZVqbRIx9JShRFs0s9fqKQ0REZHqUGuTiCaxTTir3VlqFyEiIlJNam0SAV4X2Eu2LCH7YHbQoYiIiNQ6tTuJ6DIch+OjdR8FHYqIiEitU6uTiH6t+5HcMJn31rwXdCgiIiK1Tq1OIqKjohnVdRTvr3lfj3qKiIhUsTKTCDObbGY7zCwjpKyZmc0xszX+a9OQZQ+Y2VozW2Vmw6sr8PK6pPsl7Mvdp1E9RUREqlh5aiKmACOKld0PzHPOdQXm+fOYWQ9gDNDT3+Z5M4uusmjDMOyUYcTGxDJr1awgwxAREal1ykwinHMLgN3Fii8FpvrvpwKXhZS/7pzLdc6tB9YC/aso1rA0rN+QYacMY9bqWTjnggxFRESkVgm3TURL59xWAP812S9vC2wKWS/LLwvUJd0uYcPeDWTsyCh7ZRERESmXqm5YaSWUlfjz38xuMbN0M0vPzq7efhxGdRsFwN9X/r1ajyMiIlKXhJtEbDez1gD+6w6/PAtoH7JeO2BLSTtwzqU551Kdc6lJSUlhhlE+rRNaMyhlEG8uf7NajyMiIlKXhJtEzALG+e/HAf8IKR9jZg3MrBPQFfiyciFWjZ/1+BkZOzJYnr086FBERERqhfI84jkD+BzobmZZZnYT8DhwgZmtAS7w53HOZQJvAsuB2cCdzrmC6gq+Iv6jx39gGH/N/GvQoYiIiNQKVhOeWEhNTXXp6enVfpzzppzHjoM7yLwjE7OSmm+IiEQOM1vinEsNOg6pu2p1j5XF/aznz1ixcwWZ2ZlBhyIiIhLx6lQSMfq00URZFDO+mRF0KCIiIhGvTiURLRu15MLOFzJt2TQKCmtEUw0REZGIVaeSCIAbzriBrP1ZzFs/L+hQREREIlqdSyIu6X4JTWOb8srXrwQdioiISESrc0lEbEwsV59+NW+veJs9h/cEHY6IiEjEqnNJBHi3NHILcpmRoQaWIiIi4aqTSUTf1n05s9WZPP+v5zWyp4iISJjqZBJhZvy8/8/JzM7k0w2fBh2OiIhIRKqTSQTAVadfRYv4Fkz6clLQoYiIiESkOptExMbEckvfW5i1ahYb9m4IOhwREZGIU2eTCIDbf3Q7hvHc4ueCDkVERCTixAQdQJDaNW7HVadfxQtLXuCBcx6gRXyLoEMSETmplixZkhwTE/MS0Is6/sNSSlQIZOTn54/v16/fjuIL63QSAfDAoAeYvmw6z37xLI8OeTTocERETqqYmJiXWrVqdVpSUtKeqKgoPa4mxyksLLTs7Owe27Ztewm4pPjyOp919kjqwegeo3nuy+fYe2Rv0OGIiJxsvZKSkvYrgZCSREVFuaSkpH14NVU/XH6S46mRHjznQfbn7mfSYj2pISJ1TpQSCDkR/++jxHxBSQRwRqsz+OmpP+WJRU+w/cD2oMMRERGJCJVKIszsF2aWYWaZZnaPX9bMzOaY2Rr/tWnVhFq9/jD0DxzOO8z/zP+foEMREalTzKzfZZdd1qloPi8vj6ZNm/Y5//zzuwBMmjSpedOmTfuceuqpPTp37tzzqaeealG8vGhasmRJbFDnUReFnUSYWS/gZqA/0AcYZWZdgfuBec65rsA8f77G696iO7f2u5W0JWms3Lky6HBEROqMuLi4wlWrVsUdOHDAAN5+++3GLVu2zAtd5+KLL96zcuXK5QsWLFj16KOPtt20aVNMaHnR1K9fvyNBnENdVZmnM04DvnDOHQIws/nAT4FLgfP8daYCnwL3VeI4J81D5z3Eq8teZcKHE3jv6vcws6BDEhE5aW68kfYZGcRX5T579eLQ5MlsKmu9oUOH7vvrX//a5IYbbtgzY8aMZqNHj969aNGiRsXXa9u2bX5KSkru2rVr61dlnBKeytzOyAAGm1lzM4sHfgK0B1o657YC+K/JJW1sZreYWbqZpWdnZ1cijKqT3DCZ/znvf/hg7Qf8bfnfgg5HRKTOuPbaa3e/8cYbTQ8dOmQrVqyIP/vssw+WtN7y5cvrb9q0qUGPHj1yAd55552mobczimoz5OQIuybCObfCzCYCc4ADwFIgvwLbpwFpAKmpqTWmZfDPB/ycv3zzF+6efTcXdr6QxNjEoEMSETkpylNjUF0GDBhwOCsrq8GLL77YbNiwYfuKL/eThUb169cvfPbZZ79r2bJlAXi3M6ZNm7bx5EcsUMmGlc65l51zfZ1zg4HdwBpgu5m1BvBff9DDVU0WExVD2qg0dhzcwa/n/DrocERE6owRI0bsfeihh9pfd911u4svK2r7sGzZspXXXXedOvWpISr7dDFqoSIAABdvSURBVEay/5oCXA7MAGYB4/xVxgH/qMwxgtCvTT8mnDWBtH+n8c6qd4IOR0SkTrj99tt3/vKXv9zSv3//w0HHIuVT2X4iZprZcuAd4E7n3B7gceACM1sDXODPR5xHhzxKn5Z9uGnWTeo7QkTkJOjcuXPeb3/72wrVXhdvEzFnzpyG1RWf/JA5F3xzhNTUVJeenh50GD+wPHs5/dL6cU7KOXww9gOio6KDDklE5HtmtsQ5l1qZfSxdunRDnz59dlZVTFI7LV26tEWfPn06Fi9Xj5Un0COpB89d9Bxzvp3Dgx8/GHQ4IiIiNUqdH8WzLOP7jid9SzoTF07kzFZncmWvK4MOSUREpEZQTUQ5TLpoEgPbD2Tc38fxz+/+GXQ4IiIiNYKSiHKoH12ff4z5Bx2bdOSS1y8hY0dG0CGJiIgETklEObWIb8GH13xIfL14hk0bxorsFUGHJCIiEiglERXQoUkH5l47FzPjvKnnkbkjM+iQREREAqMkooJOSzqNT8d9SrRFM3jKYD7b+FnQIYmIRLT77ruvVZcuXXp269atx6mnntrj448/bgjwyCOPJOfk5IT1PTVp0qTm1113XUp51+/fv3/3BQsWxAPEx8efGc4xK6qqjlPRc61KSiLC0L1Fdz678TNaxLdg2LRhvJHxRtAhiYhEpLlz5zb88MMPm3zzzTfLV69evfyTTz5ZfcoppxwFeOGFF1oeOHAgor6n8vLyyl4pYFUZox7xDNMpTU9h0Y2LuOyNyxgzcwxfZH3BxAsmUj9ao9OKSIS68cb2ZGRU6VDg9Op1iMmTSx3Ya/PmzfWaNWuWHxcX5wBat26dD/Doo48m79ixo965557brWnTpvmLFy9ePXbs2JSlS5c2PHLkSNTFF1+855lnntkCMH/+/Ph77rkn5dChQ1H169d3CxYsWBV6jNdffz3x8ccfb/3BBx+s/fzzz+MfeeSRNkePHrUOHTrkvv766xsSExMLi8d18803t1u4cGFCYmJiwcyZM79t06ZNfmZmZoPbbrstZffu3TGxsbGFL7300ndnnnnmkdGjR3ds2rRp/jfffBPfu3fvQ/fcc0/21Vdf3amgoMCGDRu2Ly0treWhQ4e+OtHH9Nvf/rbl22+/3ezo0aM2cuTIvUXnNmzYsM5bt26tn5ubG3Xbbbdtv/fee3cC/OlPf2r+zDPPtE5KSsrr3Lnzkfr16zuALVu2xNxwww0dNm/eXB/g6aef3njhhRcenDBhQputW7fW27hxY/1mzZrlv/POO+srchlLE1EZXk3TPL45866bx8/7/5xnFz/LuVPOZeM+DSYnIlJel1122f4tW7bU79ixY69rrrkm5b333msE8Jvf/GZHcnJy3vz581cvXrx4NcDTTz+9OSMjY8XKlSszFy5cmLB48eK4I0eO2NixYzs/++yzG1etWrV8/vz5qxo1avR9UjBt2rQmTzzxRKs5c+asAfj973/fesGCBauXL1++om/fvod+97vftSwe0+HDh6P69u17aPny5St+/OMf59x///1tAMaPH9/h+eef35iZmbniiSeeyLr99tu/v4Wwbt262IULF65+8cUXs+666672d9xxx46MjIwVbdq0KfNn/1tvvdV47dq1scuWLVuxYsWK5V9//XX8Bx980Ahg+vTpGzIzM1d8/fXXy1944YWW27Zti/7uu+/qPf74420WLVq08p///Ofq1atXxxXt69Zbb20/YcKE7RkZGSvefvvtdbfddlvHomXLli2L//DDD9dWVQIBqomotPrR9Zl00STOSTmHm2bdRJ//14cnL3iSG8+8ETMNay8iEeQENQbVJTExsTAjI2P57NmzE+bNm5cwbty4zv/93/+ddffdd+8qvu7UqVObTZkypUV+fr5lZ2fXW7p0aayZkZycnHfuueceAmjWrNn3CcSiRYsSli5dGv/JJ5+sbtasWeGMGTMS161bF9u/f/9TAfLy8qxfv34Hih8nKiqK8ePH7wa48cYbd11++eVd9u3bF/XVV181uuKKKzoXrXf06NHv/5O//PLL98TEeF+pX331VaOPPvpoLcD48eN3Pfzww+1O9BnMnj278YIFCxr36NGjB8ChQ4eiVq5cGXvRRRcdmDhxYsv33nuvCcC2bdvqZWZmxm7ZsqXeWWedldOmTZt8/9i7V69eHQuwcOHCxmvWrPk+qThw4ED0nj17osAbJbVRo0ZVOtaFkogqckXPKziz9ZncNOsmxr8zntcyXuOFUS/QpVmXoEMTEanRYmJiGDVqVM6oUaNyevfuffjVV19tXjyJWLlyZf0///nPLZcsWbIiKSmpYPTo0R2PHDkS5ZzDzEr8YkxJScnduHFjg4yMjNjBgwcfcs4xaNCg/RX9JW5mFBQUkJCQkL9y5crlJa0TWvtRUc457rnnnq2/+tWvjhvD5N13302YP39+Qnp6+sqEhITC/v37dz98+HBUUUyl7Ss9PX1FSclCw4YNw46xNLqdUYW6NOvCJ+M+4YVRL5C+JZ2ez/fk3o/uZffh3UGHJiJSIy1durTBN99806Bo/quvvopr167dUYCGDRsW7Nu3Lwpgz5490XFxcYXNmjUr2LRpU8ynn36aCNCnT58j27dvrz9//vx4f72oooaD7dq1Ozpz5sy1N9xwQ6f09PTY884772B6enqjjIyMBgA5OTlRy5Yta1AsJAoLC3nllVeaAkyZMqV5//79c5o1a1bYrl27o5MnT25atM7nn38eV3xbgDPOOOPAlClTmgJMnjy5WVmfwUUXXbT/1VdfbVF0ruvXr6+3efPmmL1790YnJiYWJCQkFH711VexS5cubQgwePDgg1988UXCtm3bonNzc+3tt99uWrSvQYMG7Z84cWJy0fyiRYtKjLGqqCaiikVZFLf0u4VR3Ubxm49/w9OfP81L/36J+wfdzx0/uoPGDRoHHaKISI2xf//+6Lvvvjtl//790dHR0a5jx465U6dO/Q5g3LhxOy+66KKuycnJeYsXL17dq1evQ127du2ZkpKSW3QbIjY21k2fPn3d3XffnXLkyJGo2NjYwgULFqwu2n+fPn1yp02b9u2VV17ZedasWWtfeOGFDWPGjDml6FbEQw89tLl37965oTHFxcUVZmZmxvXs2bNVQkJCwVtvvfUtwIwZM769+eabO0ycOLF1fn6+/fSnP9199tlnHy5+Ts8999ymsWPHdpo0aVKrCy+8cG+jRo0KTvQZXH755fszMzNjf/SjH50KEB8fXzh9+vT1o0eP3peWlpbUrVu3Hp07dz7Sp0+fgwAdOnTIu++++7acddZZpyUlJeX17t37UEFBgQGkpaVtGj9+fEq3bt16FBQU2IABA3IGDhxYbY31NBR4Nftm+zfcP+9+3l/zPo0bNOb21Nv5xYBf0DqhddChiUiE01DgNVNOTk5Uw4YNC6OiokhLS2v6xhtvNJs3b966oOOqDA0FHpDTW57Oe1e/x5fjv2R45+E8segJOjzbgSv+egUfrfuIQlflt6hERCRACxcujD/ttNN6dOvWrUdaWlryn/70p6ygY6oulbqdYWb/CYwHHPANcAMQD7wBdAQ2AD9zzu2pVJS1wI/a/og3r3iTtbvX8r9f/i+vLnuVvy3/GymJKVzR4wpGnzaaAe0GEGXK60REItmIESMOrFq1qsQGmLVN2N9YZtYWuBtIdc71AqKBMcD9wDznXFdgnj8vvi7NuvDMiGfYPGEzr49+nZ5JPZm0eBIDJw8k5ZkUfv7+z3l39bvk5OYEHaqIiMgJVbZhZQwQZ2Z5eDUQW4AHgPP85VOBT4H7KnmcWqdBTAOu7HUlV/a6kr1H9vLu6nf52/K/8dJXL/Hnf/2ZmKgYBrQdwNBOQxnYfiD92/anaVzTsncsIiJykoSdRDjnNpvZk8BG4DDwkXPuIzNr6Zzb6q+z1cySS9rezG4BbgFISQlk3JAao0lsE67pfQ3X9L6Gw3mHWbRpEfPWz2Put3P53YLf4fAav3Zt1pUB7QbQO7k3PZN70iu5F+0bt1enViIiEoiwkwgzawpcCnQC9gJ/NbNryru9cy4NSAPv6Yxw46ht4urFMfSUoQw9ZSi/H/p79ufuJ31LOouzFvPlli/5eP3H/GXZX75fP6F+Aj2SetClWRc6NulIpyadvNemnWjfuD31ousFeDYiIlKbVeZ2xjBgvXMuG8DM3gIGAtvNrLVfC9Ea2FEFcdZZjRs0ZkinIQzpNOT7sj2H95CZnUnGjgwyd2SSmZ3JZxs/Y0bGjOOe9oiyKJIbJtOyYUtaNmrpvTZsSatGrWjZqCUt4luQ2CCRJrFNvp9iY2JVsyEiJ9V9993XaubMmc2joqJcVFQUzz///HdDhgw5+MgjjyT/53/+586EhIQKP8Y2adKk5unp6Q2nTZtWrj4S+vfv3/3JJ5/cNHjw4EPx8fFnljVgVlV49NFHkydPnpzUq1evQ7NmzSqxF83Q85gwYUKbRo0aFTzyyCPbqzu28qpMErEROMvM4vFuZwwF0oGDwDjgcf/1H5UNUo7XNK4pg1IGMShl0HHleQV5bM7ZzPo969mwdwPr965na85Wth/czrYD21i5cyXbD2wntyC3lD1Dvah63ycUCQ0SiK8Xf/wUE/+DstiYWOpH16dedD3vNarece9PtCw6KpooiyLKooi2Y++jLKrUZUpyRGqP0KHA4+Li3NatW2Nyc3MNvKHAb7755t3hJBFBycvLo1698tUAv/zyy0kffPDBmlNPPfVoNYdVIRU5h8q0iVhsZn8D/g3kA1/h3Z5oBLxpZjfhJRpXhHsMqZh60fXo2KQjHZt0LHUd5xz7c/ez7cA2dh/ezb7cfew9sve4ad+RfezN3cv+3P0czjvMviP72JqzlUN5h46b8gqrbkz6ijCs1ESjKMEw/NcS5k+0rGi+uvcTtKJ4Ao1BnwUAF3W5iKeGPxVoDEVu/MeN7TN2VO1Q4L2Sex2afKmGAi9es3H11VenZGVlNbjkkku6jB07dudtt922a+zYsR03btzYIC4urjAtLe27AQMG/KA3zCKLFi2Ku/322zscPnw4qkOHDrmvvfbahqNHj9qFF17YNTMzc8Xnn38eN3DgwB6rV6/+pmvXrkfbt2/fa/ny5ctzcnKiqnKo8Eo9neGcewh4qFhxLl6thNRAZkZibCKJsYmV3ld+YT6H8w5/n1DkFeSRV5jH0YKj5BX4r3550fuiZUXvC10hha6QgsKCY+/dsfcnWla8vKDQ61m2qCFqUW+sofMnWlY0f6Jl5V7nBMcKWk3opVafxTHtE9sHHUKgLrvssv1/+MMf2nTs2LHXoEGD9l911VW7R44ceeA3v/nNjv/7v/9rOX/+/NVFicXTTz+9uWXLlgX5+fkMHDiw++LFi+P69OlzZOzYsZ2nT5++7txzzz20e/fuqOJDgf/pT39qOWfOnDX5+flWNBR448aNCx988MFWv/vd71o++eSTW0NjKhoK/MUXX8y69957W99///1tpk2btnH8+PEd0tLSvjv99NNzP/7444a33357yhdffLEajg0FHhMTw/nnn9/ljjvu2HHrrbfu/uMf/5hU0nm/9tprG+fPn59YdH7jxo1r36dPn0Nz585dN2vWrIRx48Z1Km2wL4Drr7++0zPPPLNx5MiRB+6555429913X5vJkydvys3Njdq9e3fUJ5980qhnz56H5s6d28g5d6B58+b5CQkJhVdffXWHCRMmbB8+fPiBNWvW1B8+fHjXb7/9NhO8ocIXL168siIjfWrsDAlbTFQMCQ0SSGiQEHQoIlIFTlRjUF00FLjnyy+/TJg5c+ZagEsuuSTnlltuidm1a1d0Sevu2rUrOicnJ3rkyJEHAG6++eZdV1xxxSkAqampB+bOndvos88+S/j1r3+9dfbs2YnOOc4666wDUPVDhSuJEBGRQNX1ocCh5Fqx0s7rRAYNGnRgwYIFCVlZWfXHjh2796mnnmoFuIsvvnhf0XGqcqhw9bEsIiKB0VDgnrPOOivnlVdeaQ7w7rvvJjRt2jQ/tFYlVPPmzQsaN25cMHv27EYAL7/8cvOzzz77AMAFF1yQM3PmzGadOnXKjY6OpkmTJvmffPJJ4rBhww5A1Q8VrpoIEREJjIYC90ycOHHL1Vdf3bFbt2494uLiCqdMmXLC2pJXXnll/e23397h7rvvjkpJScmdMWPGBoDu3bsfBTjnnHNyAM4+++wDW7durZ+UlFQAVT9UuIYCFxGJUBoKvGaqS0OBqyZCRESkCi1cuDD+F7/4RYpzjsaNGxdMmTJlQ9AxVRclESIiIlVIQ4GLiEhdUVhYWFgzev6SGsn/+yixkaeSCBGRui0jOzs7UYmElKSwsNCys7MTgYySlteIhpVmlg18V4ldtABqQ8Og2nIeoHOpqXQuNVO459LBOVdij4jltWTJkuSYmJiXgF7oh6X8UCGQkZ+fP75fv34/GFCzRiQRlWVm6ZVtoVwT1JbzAJ1LTaVzqZlq07lI3aKsU0RERMKiJEJERETCUluSiLSgA6giteU8QOdSU+lcaqbadC5Sh9SKNhEiIiJy8tWWmggRERE5yZREiIiISFgiOokwsxFmtsrM1prZ/UHHU1FmtsHMvjGzr80s3S9rZmZzzGyN/9o06DhLYmaTzWyHmWWElJUau5k94F+nVWY2PJioS1bKuTxsZpv9a/O1mf0kZFmNPBcza29mn5jZCjPLNLNf+OURd11OcC6ReF1izexLM1vqn8v/+OURd11EfsA5F5ETEA2sA04B6gNLgR5Bx1XBc9gAtChW9kfgfv/9/cDEoOMsJfbBQF8go6zYgR7+9WkAdPKvW3TQ51DGuTwM3FvCujX2XIDWQF//fQKw2o834q7LCc4lEq+LAY389/WAxcBZkXhdNGkqPkVyTUR/YK1z7lvn3FHgdeDSgGOqCpcCU/33U4HLAoylVM65BcDuYsWlxX4p8LpzLtc5tx5Yi3f9aoRSzqU0NfZcnHNbnXP/9t/nACuAtkTgdTnBuZSmJp+Lc84d8Gfr+ZMjAq+LSHGRnES0BTaFzGdx4v9kaiIHfGRmS8zsFr+spXNuK3j/kQLJgUVXcaXFHqnX6i4zW+bf7iiqao6IczGzjsCZeL96I/q6FDsXiMDrYmbRZvY1sAOY45yL+OsiApGdRJQ0WEykPa/6Y+dcX+Ai4E4zGxx0QNUkEq/V/wGdgTOArcBTfnmNPxczawTMBO5xzu0/0aollNX0c4nI6+KcK3DOnQG0A/qbWa8TrF6jz0UkVCQnEVlA+5D5dsCWgGIJi3Nui/+6A3gbr8pyu5m1BvBffzDgSQ1WWuwRd62cc9v9//gLgRc5Vp1co8/FzOrhfelOd8695RdH5HUp6Vwi9boUcc7tBT4FRhCh10UkVCQnEf8CuppZJzOrD4wBZgUcU7mZWUMzSyh6D1yIN9TqLGCcv9o44B/BRBiW0mKfBYwxswZm1gnoCnwZQHzlVvSfu++nHBsGt8aei5kZ8DKwwjn3dMiiiLsupZ1LhF6XJDNr4r+PA4YBK4nA6yJSXEzQAYTLOZdvZncBH+I9qTHZOZcZcFgV0RJ42/u/khjgNefcbDP7F/Cmmd0EbASuCDDGUpnZDOA8oIWZZQEPAY9TQuzOuUwzexNYDuQDdzrnCgIJvASlnMt5ZnYGXjXyBuBWqPHn8mPgWuAb//47wH8RmdeltHO5KgKvS2tgqplF4/1we9M5966ZfU7kXReR46jbaxEREQlLJN/OEBERkQApiRAREZGwKIkQERGRsCiJEBERkbAoiRAREZGwKIkQKYWZNTGzO4KOQ0SkplISIVK6JoCSCBGRUiiJECnd40BnM/vazJ4IOhgRkZpGnU2JlMIfPfJd59yJBksSEamzVBMhIiIiYVESISIiImFREiFSuhwgIeggRERqKiURIqVwzu0CFppZhhpWioj8kBpWioiISFhUEyEiIiJhURIhIiIiYVESISIiImFREiEiIiJhURIhIiIiYVESISIiImFREiEiIiJh+f+X/oPh8oM/7AAAAABJRU5ErkJggg==\n", "text/plain": [ "
" ] }, "metadata": { "filenames": { "image/png": "/Users/matthewmckay/repos-collab/phd-macro-theory-book/_build/jupyter_execute/dyn_stack_40_0.png" }, "needs_background": "light" }, "output_type": "display_data" } ], "source": [ "vt_MPE = np.zeros(n)\n", "vt_follower = np.zeros(n)\n", "\n", "for t in range(n):\n", " vt_MPE[t] = -z[:, t].T @ P1 @ z[:, t]\n", " vt_follower[t] = -yt_tilde[:, t].T @ P_tilde @ yt_tilde[:, t]\n", "\n", "fig, ax = plt.subplots()\n", "ax.plot(vt_MPE, 'b', label='MPE')\n", "ax.plot(vt_leader, 'r', label='Stackelberg leader')\n", "ax.plot(vt_follower, 'g', label='Stackelberg follower')\n", "ax.set_title(r'MPE vs. Stackelberg Value Function')\n", "ax.set_xlabel('t')\n", "ax.legend(loc=(1.05, 0))\n", "plt.show()" ] }, { "cell_type": "code", "execution_count": 31, "metadata": {}, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ "Computed values:\n", "\n", "vt_leader(y0) = 150.0324\n", "vt_follower(y0) = 112.6559\n", "vt_MPE(y0) = 133.3296\n" ] } ], "source": [ "# Display values\n", "print(\"Computed values:\\n\")\n", "print(f\"vt_leader(y0) = {vt_leader[0]:.4f}\")\n", "print(f\"vt_follower(y0) = {vt_follower[0]:.4f}\")\n", "print(f\"vt_MPE(y0) = {vt_MPE[0]:.4f}\")" ] }, { "cell_type": "code", "execution_count": 32, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "-3.9709425620912953" ] }, "execution_count": 32, "metadata": {}, "output_type": "execute_result" } ], "source": [ "# Compute the difference in total value between the Stackelberg and the MPE\n", "vt_leader[0] + vt_follower[0] - 2 * vt_MPE[0]" ] } ], "metadata": { "jupytext": { "text_representation": { "extension": ".md", "format_name": "myst" } }, "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.8.3" }, "source_map": [ 10, 29, 34, 52, 59, 923, 939, 990, 996, 1010, 1019, 1029, 1035, 1041, 1055, 1068, 1088, 1098, 1118, 1126, 1131, 1137, 1140, 1153, 1158, 1163, 1168, 1173, 1184, 1189, 1194, 1229, 1247, 1250, 1285, 1320, 1335, 1340, 1360, 1369, 1373, 1391, 1399 ] }, "nbformat": 4, "nbformat_minor": 4 }