Finger-Exercise-Diamond-Model-delong.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# <font color=\"880000\"> Finger Exercise: Diamond Model </font> \n",
    "    \n",
    "Last edited: 2019-08-17"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## <font color=\"880000\"> Brad DeLong: The Finger-Exercise Cobb-Douglas Production Case</font>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### <font color=\"000088\"> 1. The Zero-Uncertainty No-Debt Case </font>\n",
    "\n",
    "Simplify the already-simple near-canonical model. Express all variables in per-worker values. Require that there be neither population growth nor technological progress. Require that there be time-separable log utility.\n",
    "\n",
    "Assume that the economy is populated by people who live for two periods, working when young, receiving profits from their savings when old, and consuming in both periods. Their utility function is:\n",
    "\n",
    ">(1.1) $ V = C_y + \\beta{\\ln(C_o)} + P  $\n",
    "\n",
    "where $ C_y $ is consumption when young, $ C_o $ is consumption when old, and $ P $ is the quantity of public goods purchased by the government with the profits from its debt operations. Maximizing utility produces this consumption first-order condition for an agent young (\"y\") in period t and old (\"o\") in period t+1:\n",
    "\n",
    ">(1.2) $ 1 = {R^f}_{t+1} \\left[ \\frac{\\beta}{C_{o,t+1}} \\right] $\n",
    "\n",
    ">(1.3) $ C_{o,t+1} = \\beta R^f_{t+1} $"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now let's add in a Cobb-Douglas production function, where a single worker's productivity is:\n",
    "\n",
    ">(1.4) $ Y_t = A K_{t-1}^\\alpha $\n",
    "\n",
    "The wage rate is:\n",
    "\n",
    ">(1.5) $ w_t = (1 - \\alpha) A K_{t-1}^\\alpha $\n",
    "\n",
    "The profit rate is:\n",
    "\n",
    ">(1.6) $ R^f_{t+1} = \\alpha A K_{t}^{(\\alpha -1)} $\n",
    "\n",
    "Using:\n",
    "\n",
    ">(1.7) $ C_{y,t} = w_t - K_{t} $\n",
    "\n",
    ">(1.8) $ C_{o,t+1} = R^f_t K_{t} = \\alpha A K_{t}^\\alpha $\n",
    "\n",
    "Substitute into the first order condition (1.3):\n",
    "\n",
    ">(1.9)  $ A \\alpha K_{t}^\\alpha = \\beta A \\alpha K_{}^{(\\alpha -1)} $\n",
    "\n",
    "Then: \n",
    "\n",
    ">(1.10) $ K_{} = \\beta^{(1/\\alpha)} K_{}^{(1 - 1/\\alpha)} $\n",
    "\n",
    "With the steady-state equilibrium:\n",
    "\n",
    ">(1.11) $ K^* = \\beta $\n",
    "\n",
    "In this steady-state equilibrium:\n",
    "\n",
    ">(1.12) $ R^{f*} = \\alpha A \\beta^{(\\alpha - 1)} $\n",
    "\n",
    ">(1.13) $ C^*_y = (1-\\alpha) A \\beta^\\alpha - \\beta $\n",
    "\n",
    ">(1.14) $ C^*_o = \\alpha A \\beta^\\alpha $\n",
    "\n",
    "And if $ \\alpha = \\frac{1}{2} $ and $ \\beta = \\frac{1}{4} $, then: $ K^* =  \\frac{1}{4}, R^{f*} = A, C^*_o = \\frac{A}{4} $, and $ C^*_y = \\frac{A - 1}{4} $ is the steady-state equilibrium. \n",
    "\n",
    "&nbsp;"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### <font color=\"000088\"> 2. Adding Debt </font>\n",
    "\n",
    "The government (a) issues a debt amount $ \\delta $ in period t, (b) rolls it over by issuing the same amount $ \\delta $ in period t+1, and (c) uses the surplus to provided public goods: $ P_{t+1} = \\left( 1 - R^f_{t+1} \\right) \\delta $ to provide public goods. \n",
    "\n",
    "(1.7) and (1.8) are then changed:\n",
    "\n",
    ">(2.1) $ C_{y,t} = w_t - K_{t} - \\delta $\n",
    "\n",
    ">(2.2) $ C_{o,t+1} = R^f_{t+1} K_{t} + R^f_{t+1} \\delta = \\alpha A K_{t}^\\alpha + \\alpha A K_{t}^{(\\alpha-1)} \\delta $\n",
    "\n",
    "Substitute into the first order condition to get:\n",
    "\n",
    ">(2.3)  $ \\alpha A K_{t}^\\alpha + \\alpha A K_{t}^{(\\alpha-1)} \\delta  = \\beta A \\alpha K_{t}^{(\\alpha -1)} $\n",
    "\n",
    ">(2.4)  $ 1 +  \\frac{\\delta}{K_{t}}  = \\frac{\\beta}{K_{t}} $\n",
    "\n",
    "And so we have full crowding out:\n",
    "\n",
    ">(2.5) $ K^{*\\delta} = \\beta - \\delta $\n",
    "\n",
    "With:\n",
    "\n",
    ">(2.6) $ R^{f*\\delta} = R^{*\\delta} = \\alpha A K^{(\\alpha-1)} = \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha - 1)} $\n",
    "\n",
    ">(2.7) $ C^{*\\delta}_y = (1-\\alpha) A K^{\\alpha} - \\beta  = (1-\\alpha) A \\left( \\beta - \\delta \\right)^\\alpha - \\beta $\n",
    "\n",
    ">(2.8) $ C^{*\\delta}_o = \\alpha A \\left( \\beta - \\delta \\right)^\\alpha + \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha - 1)}\\delta $\n",
    "\n",
    ">(2.9) $ P^{*\\delta} = \\left( 1 - \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha - 1)} \\right)\\delta $ \n",
    "\n",
    "And if $ A = 1, \\alpha = \\frac{1}{2} $, $ \\beta = \\frac{1}{4} $, and $ \\delta = \\frac{1}{20} $, then: $ K^* = 0.23, R^{f*} = 1.0426, C^*_o = 0.2606 $, and $ C^*_y = -0.0102 $ is the steady-state equilibrium.\n",
    "\n",
    "&nbsp;"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### <font color=\"000088\"> 3. Adding Uncertainty (No Debt) </font>\n",
    "\n",
    "Let's add two-point uncertainty:\n",
    "\n",
    ">(3.1) $ Y_t = A(1 + \\epsilon_t)K_{t-1}^\\alpha $\n",
    "\n",
    "where $ \\epsilon_t $ has a two-point distribution:\n",
    "\n",
    ">(3.2) $ \\epsilon_t = +\\sigma $ or $ \\epsilon_t = -\\sigma $\n",
    "\n",
    "It is not just production but also the profit rate that becomes risky, so we need to drop the \"f\" superscript and taker expectations in the first-order condition (1.2), which then becomes:\n",
    "\n",
    ">(3.3) $ 1 = E_t \\left[ \\frac{\\beta R_{t+1}}{C_{o,t+1}} \\right] $\n",
    "\n",
    "Expanding and substituting in the profit rate R:\n",
    "\n",
    ">(3.4) $ 1 = \\left( \\frac{1}{2} \\right)  \\left[ \\frac{\\beta \\alpha (1+\\sigma) A \\beta^{(\\alpha - 1)}}{C_{o,t+1,(\\epsilon=+\\sigma)}} \\right]  + \\left( \\frac{1}{2} \\right) \\left[ \\frac{\\beta \\alpha (1-\\sigma) A \\beta^{(\\alpha - 1)}}{C_{o,t+1,{(\\epsilon=-\\sigma)}}} \\right] $\n",
    "\n",
    "Substituting in consumption when old:\n",
    "\n",
    ">(3.5)  $ 1 = \\left( \\frac{1}{2} \\right)  \\left[ \\frac{\\beta \\alpha (1+\\sigma) A \\beta^{(\\alpha - 1)}}{\\alpha (1+\\sigma) A \\beta^{(\\alpha-1)}K_{t}} \\right] $  $ + \\left( \\frac{1}{2} \\right)  \\left[ \\frac{\\beta \\alpha (1-\\sigma) A \\beta^{(\\alpha - 1)}}{\\alpha (1-\\sigma) A \\beta^{(\\alpha-1)}K_{t}} \\right] $"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    ">(3.6) $ 1 = \\left( \\frac{1}{2} \\right) \\left[ \\frac{\\beta}{K_{t}} \\right]  + \\left( \\frac{1}{2} \\right) \\left[ \\frac{\\beta}{K_{t}} \\right] = \\frac{\\beta}{K_{t}} $\n",
    "\n",
    ">(3.7) $ K_{t} = K^* = \\beta $\n",
    "\n",
    "Because we have log utility, income and substitution effects cancel each other out as they affect the risky interest rate, and so the savings rate is unaffected.\n",
    "\n",
    "In this steady-state equilibrium with uncertainty, the expected profit rate is still:\n",
    "\n",
    ">(3.8) $ E_t \\left[ R^* \\right] = \\left( \\frac{1}{2} \\right) \\alpha (1+\\sigma) A \\beta^{(\\alpha - 1)}  +  \\left( \\frac{1}{2} \\right) \\alpha (1-\\sigma) A \\beta^{(\\alpha - 1)} = \\alpha A \\beta^{(\\alpha - 1)} $\n",
    "\n",
    "And expected consumption when young and old are still:\n",
    "\n",
    ">(3.9) $ E_t \\left[ C^*_y \\right] = \\left( \\frac{1}{2} \\right) \\left[ (1-\\alpha) (1+\\sigma) A \\beta^\\alpha - \\beta \\right] + \\left( \\frac{1}{2} \\right) \\left[ (1-\\alpha) (1-\\sigma) A \\beta^\\alpha - \\beta \\right] = (1-\\alpha) A \\beta^\\alpha - \\beta $\n",
    "\n",
    ">(3.10) $ E_t \\left[ C^*_o \\right] = \\left( \\frac{1}{2} \\right) \\left[ \\alpha (1+\\sigma) A \\beta^\\alpha \\right] +  \\left( \\frac{1}{2} \\right) \\left[ \\alpha (1-\\sigma) A \\beta^\\alpha \\right]  = \\alpha A \\beta^\\alpha $\n",
    "\n",
    "with profit rates, consumption when young, and consumption when old fluctuating depending on whether the productivity shock was positive or negative."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "But there is now a risk-free rate of interest different from the expected profit rate—the rate at which risk-free debt would sell if there were any. The first-order condition for its return is:\n",
    " \n",
    ">(3.11) $ 1 = {R^f}_{t+1} E_t \\left[ \\frac{\\beta}{C_{o,t+1}} \\right] = R^f_{t+1} \\left[ \\left( \\frac{1}{2} \\right) \\left[ \\frac{\\beta}{\\alpha (1+\\sigma) A \\beta^\\alpha} \\right] + \\left( \\frac{1}{2} \\right)  \\left[ \\frac{\\beta}{\\alpha (1-\\sigma) A \\beta^\\alpha} \\right] \\right] = R^f_{t+1}\\left[ \\frac{\\beta}{\\alpha (1-\\sigma^2) A \\beta^\\alpha} \\right] $\n",
    " \n",
    ">(3.12) $ {R^f}_{t+1} = (1-\\sigma^2) \\alpha A \\beta^{(\\alpha-1)} = (1-\\sigma^2) E_t \\left[ R_{t+1} \\right] $\n",
    " \n",
    "Thus there is a spread of proportional magnitude $ (1-\\sigma^2) $ between the risk-free rate of return and the profit rate.\n",
    "\n",
    "And if $ \\alpha = \\frac{1}{2} $, $ \\beta = \\frac{1}{4} $, and $ \\sigma = \\frac{1}{2} $, then: $ K^* =  \\frac{1}{4}, E_t R^* = A, R^{f*} = \\frac{3A}{4}, E_t C^*_o = \\frac{A}{4} $, and $ E_t C^*_y = \\frac{A - 1}{4} $ is the steady-state equilibrium.\n",
    "\n",
    "&nbsp;"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### <font color=\"000088\"> 4. Adding Debt (with Uncertainty) </font>\n",
    "\n",
    "With uncertainty and with debt, the first-order condition for investment in the capital stock becomes:\n",
    "\n",
    ">(4.1) $ 1 = E_t \\left[ \\frac{\\beta R_{t+1}}{C_{o,t+1}} \\right] = E_t  \n",
    "\\left[ \\frac\n",
    "{\\beta R_{t+1}}\n",
    "{R_{t+1}K_{t} + R^f_{t+1}\\delta} \\right] \n",
    " $\n",
    " \n",
    "Substituting in for the profit rate in the two cases—a good shock and a bad shock:\n",
    "\n",
    ">(4.2) $ 1 = \\left( \\frac{1}{2} \\right)  \n",
    "\\left[ \\frac\n",
    "{\\beta \\alpha (1+\\sigma) A \\beta^{(\\alpha - 1)}}\n",
    "{\\alpha (1+\\sigma) A \\beta^{(\\alpha-1)}K_{t} + R^f_{t+1}\\delta} \\right] + \\left( \\frac{1}{2} \\right)  \n",
    "\\left[ \\frac\n",
    "{\\beta \\alpha (1-\\sigma) A \\beta^{(\\alpha - 1)}}\n",
    "{\\alpha (1-\\sigma) A \\beta^{(\\alpha-1)}K_{t} + R^f_{t+1}\\delta} \\right] $\n",
    "\n",
    "Log utility gives us the result that savings are independent of returns, so it is still the case that we have full crowding out and so $ K_t = \\beta - \\delta $. Therefore:\n",
    "\n",
    ">(4.3) $ E_tR^{*\\delta} = \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha - 1)} $\n",
    "\n",
    ">(4.4) $ E_{t-1}\\left[ C^{*\\delta}_y \\right] = (1-\\alpha) A \\left( \\beta - \\delta \\right)^\\alpha - \\beta $\n",
    "\n",
    "Now what about the risk-free rate, consumption when old, and the profits of the government's debt operations?\n",
    "\n",
    "Our first-order condition is:\n",
    "\n",
    ">(4.5) $ 1 = {R^f}_{t+1} E_t \\left[ \\frac{\\beta}{C_{o,t+1}} \\right] = R^f_{t+1} $\n",
    "$ \\left[ \n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1+\\sigma) \\alpha  A (\\beta-\\delta)^\\alpha + R^f_{t+1}\\delta} \\right]\n",
    "    +\n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1-\\sigma) \\alpha  A (\\beta-\\delta)^\\alpha + R^f_{t+1}\\delta} \\right]\n",
    "\\right] $"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    ">(4.6) $ 1 = \n",
    "\\left[ \n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1+\\sigma) \\left( \\frac{E_tR_{t+1}K_t}{R^f_{t+1}} \\right) + \\delta} \\right]\n",
    "    +\n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1-\\sigma) \\left( \\frac{E_tR_{t+1}K_t}{R^f_{t+1}} \\right) + \\delta} \\right]\n",
    "\\right] $\n",
    "\n",
    "Let's call:\n",
    "\n",
    ">(4.7) $ \\phi = \\frac{E_tR_{t+1}K_t}{R^f_{t+1}} $"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    ">(4.8) $ 1 = \n",
    "\\left[ \n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1+\\sigma) \\phi + \\delta} \\right]\n",
    "    +\n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1-\\sigma) \\phi + \\delta} \\right]\n",
    "\\right] $"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    ">(4.9) $ 1 = \\frac\n",
    "{\\beta(\\phi + \\delta)}\n",
    "{(\\phi + \\delta)^2 - \\sigma^2\\phi^2}$\n",
    "\n",
    ">(4.10) $ (\\phi + \\delta)^2 - \\sigma^2\\phi^2 - \\beta(\\phi + \\delta) = 0 $\n",
    "\n",
    ">(4.11) $ (1 - \\sigma^2)\\phi^2 + (2\\delta - \\beta)\\phi - \\delta(\\beta - \\delta) = 0 $\n",
    "\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "> (4.12)$ \\phi =\n",
    "\\frac\n",
    "{\\beta - 2\\delta\n",
    "±\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}\n",
    "}\n",
    "{2(1 - \\sigma^2)}\n",
    "$\n",
    "\n",
    ">(4.13) $ R^f_{t+1}  = \\frac{E_tR_{t+1}K_t}{\\phi} $\n",
    "\n",
    ">(4.14) $ R^f_{t+1}  = \\frac\n",
    "{(E_tR_{t+1}K_t)(2(1 - \\sigma^2))}\n",
    "{\\beta - 2\\delta\n",
    "+\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}}\n",
    "$\n",
    "\n",
    ">(4.15)  $ R^{f*\\delta}_{t+1}  = \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta\n",
    "+\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}}\n",
    "$"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Check: What happens when $ \\sigma^2 = 0 $?\n",
    "\n",
    ">(4.16) $ \\sigma^2 = 0 $ -> $ R^f_{t+1}  = \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha}\n",
    "{\\beta - 2\\delta\n",
    "+\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4\\delta(\\beta-\\delta)}} = \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha}\n",
    "{2\\beta - 2 \\delta} =\n",
    " \\alpha A (\\beta - \\delta)^{(\\alpha-1)} = E_tR_{t+1} $\n",
    "\n",
    "as it should.\n",
    "\n",
    "Check: What happens when $ \\delta = 0 $?\n",
    "\n",
    ">(4.17) $ \\delta = 0 $ ->  $ R^f_{t+1}  = \\frac\n",
    "{2 \\alpha A \\beta^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta\n",
    "+\n",
    "\\sqrt{\\beta^2 }} =\n",
    " \\alpha A \\beta^{(\\alpha-1)}(1 - \\sigma^2) = (1 - \\sigma^2)E_tR_{t+1}\n",
    "$\n",
    "\n",
    "as it should."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "(4.18) $ E_tC^{*\\delta}_{o,t+1} = \\alpha A (\\beta-\\delta)^\\alpha + \\delta R^{f*\\delta} =\n",
    "\\alpha A (\\beta-\\delta)^\\alpha + \n",
    "\\delta $\n",
    "$ \\left[ \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}} \\right]\n",
    "$\n",
    "\n",
    "(4.19) $ P^{*\\delta} = \\delta \\left[ 1 - \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}} \\right] $\n",
    "\n",
    "In order to keep the government's public goods from messing up the model, recall that we have walled their utility effect off from the savings-investment decision:\n",
    "\n",
    ">(1.1) $ V = C_y + \\beta{\\ln(C_o)} + P  $\n",
    "\n",
    "So that utility will be easy to calculate...\n",
    "\n",
    "We want to pick a situation in which $ R^{f*\\delta}_{t+1} $ is just a hair less than one and $ E_tR^{*\\delta}_{t+1} $ is substantially in excess of one, and show that debt is nevertheless good...\n",
    "\n",
    "(And show that utility as a function of debt is maximized when we push debt to the point where $ R^{f*\\delta}_{t+1} = 1 $\n",
    "\n",
    "&nbsp;"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### <font color=\"000088\"> 5. $ \\tau $, Derivatives, and such </font>\n",
    "\n",
    "With respect to the tax rate on capital to pin the profit rate to its baseline value...\n",
    "\n",
    ">(5.?) $ \\alpha A \\beta^{(\\alpha - 1)} = (1 - \\tau)  \\alpha A (\\beta - \\delta)^{(\\alpha - 1)} $\n",
    "\n",
    ">(5.?) $ \\tau = 1 - \\frac{ \\alpha A \\beta^{(\\alpha - 1)}}{\\alpha A (\\beta - \\delta)^{(\\alpha - 1)}} = 1 - \\frac{(\\beta - \\delta)^{(1-\\alpha)}}{(\\beta)^{(1-\\alpha)}} $ \n",
    "\n",
    "The first-order condition for the risk-free rate then becomes:\n",
    "\n",
    ">(5.?) $ 1 = {R^f}_{t+1} E_t \\left[ \\frac{\\beta}{C_{o,t+1}} \\right] = R^f_{t+1} $\n",
    "$ \\left[ \n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1+\\sigma) \\alpha  A \\beta^{(\\alpha-1)} (\\beta-\\delta) + R^f_{t+1}\\delta} \\right]\n",
    "    +\n",
    "    \\left( \\frac{1}{2} \\right) \n",
    "    \\left[ \\frac{\\beta}{(1-\\sigma) \\alpha  A \\beta^{(\\alpha-1)} (\\beta-\\delta) + R^f_{t+1}\\delta} \\right]\n",
    "\\right] $\n",
    "\n",
    "and the profits of the government become:\n",
    "\n",
    ">(5.?) $ \\delta(1-R^f) + (\\beta - \\delta)( \\alpha  A (\\beta - \\delta)^{(\\alpha-1)}- \\alpha  A \\beta^{(\\alpha-1)})  $\n",
    "\n",
    "We have:\n",
    "\n",
    ">(4.3) $ E_tR^{*\\delta} = \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha - 1)} $\n",
    "\n",
    ">(4.4) $ E_{t-1}\\left[ C^{*\\delta}_y \\right] = (1-\\alpha) A \\left( \\beta - \\delta \\right)^\\alpha - \\beta $\n",
    "\n",
    ">(4.15)  $ R^{f*\\delta}_{t+1}  = \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta\n",
    "+\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}}\n",
    "$\n",
    "\n",
    ">(4.18) $ E_tC^{*\\delta}_{o,t+1} = \\alpha A (\\beta-\\delta)^\\alpha + \\delta R^{f*\\delta} =\n",
    "\\alpha A (\\beta-\\delta)^\\alpha + \n",
    "\\delta $\n",
    "$ \\left[ \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}} \\right]\n",
    "$\n",
    "\n",
    ">(4.19) $ P^{*\\delta} = \\delta \\left[ 1 - \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}} \\right] $"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now take derivatives with respect to $ \\delta $:\n",
    "\n",
    ">(5.1) $ \\frac{\\partial E_t R^{*\\delta}}{\\partial \\delta} = (1- \\alpha) \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha - 2)} $\n",
    "\n",
    ">(5.2) $ \\frac{\\partial E_{t-1}\\left[ C^{*\\delta}_y \\right]}{\\partial \\delta} = (1-\\alpha) \\alpha A \\left( \\beta - \\delta \\right)^{(\\alpha-1)} $\n",
    "\n",
    ">(5.3) $ \\frac{\\partial R^{f*\\delta}_{t+1}}{\\partial \\delta} = \\frac\n",
    "{-2 \\alpha^2 A (\\beta - \\delta)^{(\\alpha-1)}(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}} + \n",
    "\\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2) \\left( -2 + \\frac{-4(\\beta - 2\\delta) + 4(1-\\sigma^2)\\beta - 8(1-\\sigma^2)\\beta \\delta}{2 \\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}}  \\right)}\n",
    "{\\left( \\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)} \\right)^2}\n",
    "$\n",
    "\n",
    ">(5.4) $ \\frac{\\partial K^{*\\delta}}{\\partial \\delta} = -1 $\n",
    "\n",
    " $ R^{f*\\delta}_{t+1}  = \\frac\n",
    "{2 \\alpha A (\\beta - \\delta)^\\alpha(1 - \\sigma^2)}\n",
    "{\\beta - 2\\delta +\n",
    "\\sqrt{(\\beta - 2\\delta)^2 + 4(1 - \\sigma^2)\\delta(\\beta-\\delta)}}\n",
    "$\n",
    "\n",
    "\n",
    "$ \\partial $\n",
    "\n",
    "\n",
    "&nbsp;"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## <font color=\"880000\"> Thinking About Diamond Model Finger Exercises...</font>\n",
    "\n",
    "<img src=\"https://tinyurl.com/20190119a-delong\" width=\"300\" style=\"float:right\" />\n",
    "\n",
    "### <font color=\"000088\">Catch Our Breath—Further Notes:</font>\n",
    "\n",
    "<br clear=\"all\" />\n",
    "\n",
    "----\n",
    "\n",
    "* Weblog Support <https://github/braddelong/LS2019/blob/master/Finger-Exercise-Diamond-Model-delong.ipynb>\n",
    "* nbViewer <https://nbviewer.jupyter.org/github/braddelong/LS2019/blob/master/Finger-Exercise-Diamond-Model-delong.ipynb>\n",
    "* Numbers <https://www.icloud.com/numbers/0d5kugNyl-sLTwzqko1jeHxKw>\n",
    "\n",
    "&nbsp;\n",
    "\n",
    "----"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "Python 3",
   "language": "python",
   "name": "python3"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 3
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython3",
   "version": "3.6.7"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 4
}