E_PM_eqs.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Analytical solutions of leaf energy balance\n",
    "Based on the following paper:\n",
    "Schymanski, S.J. and Or, D. (2016): [Leaf-scale experiments reveal important omission in the Penman-Monteith equation.](http://www.hydrol-earth-syst-sci-discuss.net/hess-2016-363/) Hydrology and Earth System Sciences Discussions, p.1–33. doi: 10.5194/hess-2016-363.\n",
    "\n",
    "Author: Stan Schymanski (stan.schymanski@env.ethz.ch)\n",
    "\n",
    "This worksheet relies on definitions provided in Worksheets [Worksheet_setup](Worksheet_setup.ipynb) and [leaf_enbalance_eqs](Leaf_enbalance_eqs.ipynb)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%capture storage\n",
    "# The above redirects all output of the below commands to the variable 'storage' instead of displaying it.\n",
    "# It can be viewed by typing: 'storage()'\n",
    "# Setting up worksheet and importing equations for explicit leaf energy balance\n",
    "load('temp/Worksheet_setup.sage')\n",
    "load_session('temp/leaf_enbalance_eqs.sobj')\n",
    "fun_loadvars(vardict=dict_vars)   # re-loading variable definitions"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Definition of additional variables\n",
    "In addition to variables defined in Worksheet Leaf_enbalance_eqs, we need a few more, as defined below.\n",
    "All variables are also listed in a [Table](#Table-of-symbols) at the end of this document."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "S"
      ]
     },
     "execution_count": 2,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "var2('beta_B', 'Bowen ratio (sensible/latent heat flux)', 1/1, latexname = '\\\\beta_B')\n",
    "var2('Delta_eTa', 'Slope of saturation vapour pressure at air temperature', pascal/kelvin, latexname = '\\\\Delta_{eTa}') \n",
    "var2('epsilon', 'Water to air molecular weight ratio (0.622)', value = 0.622)\n",
    "var2('E_w', 'Latent heat flux from a wet surface',joule/second/meter^2)\n",
    "var2('f_u', 'Wind function in Penman approach, f(u) adapted to energetic units', joule/(meter^2*pascal*second))\n",
    "var2('gamma_v', 'Psychrometric constant', pascal/kelvin)\n",
    "var2('n_MU', 'n=2 for hypostomatous, n=1 for amphistomatous leaves')\n",
    "var2('r_a', 'One-sided boundary layer resistance to heat transfer ($r_H$ in \\citet[][P. 231]{monteith_principles_2013})', second/meter)\n",
    "var2('r_v', 'Leaf BL resistance to water vapour, \\citep[][Eq. 13.16]{monteith_principles_2013}', second/meter, latexname = 'r_{v}')\n",
    "var2('r_s', 'Stomatal resistance to water vapour \\citep[][P. 231]{monteith_principles_2013}', second/meter)\n",
    "var2('S', 'Factor representing stomatal resistance in \\citet{penman_physical_1952}')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Penman (1948)\n",
    "In order to obtain analytical expressions for the different leaf energy balance components, one would need to solve the leaf energy balance equation for leaf temperature first. However, due to the non-linearities of the blackbody radiation and the saturation vapour pressure equations, an analytical solution has not been found yet. \\citet{penman_natural_1948} proposed a work-around, which we reproduced below, adapted to our notation and to a wet leaf, while Penman's formulations referred to a wet soil surface. He formulated evaporation from a wet surface as a diffusive process driven by the vapour pressure difference near the wet surface and in the free air:\n",
    "##### {eq_Ew_fu}\n",
    "$$E_{w} = f_u (P_{wl} - P_{wa})$$\n",
    "\n",
    "where $E_w$ (J~s$^{-1}$~m$^{-2}$) is the latent heat flux from a wet surface and $f_u$ is commonly referred to as the wind function. Penman then defined the Bowen ratio as (Eq. 10 in \\citet{penman_natural_1948}):\n",
    "##### {eq_beta_B}\n",
    "$$\\beta_B = H_l/E_w = \\gamma_v \\frac{T_l - T_a}{P_{wl} - P_{wa}}$$\n",
    "\n",
    "where $H_l$ is the sensible heat flux and $\\gamma_v$ is the psychrometric constant, referring to the ratio between the transfer coefficients for sensible heat and that for water vapour."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -{\\left({P_{wa}} - {P_{wl}}\\right)} f_{u}</script></html>"
      ],
      "text/plain": [
       "E_w == -(P_wa - P_wl)*f_u"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 3,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Ew_fu = E_w == f_u*(P_wl - P_wa)\n",
    "units_check(eq_Ew_fu).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\beta_B} = \\frac{{\\left(T_{a} - T_{l}\\right)} \\gamma_{v}}{{P_{wa}} - {P_{wl}}}</script></html>"
      ],
      "text/plain": [
       "beta_B == (T_a - T_l)*gamma_v/(P_wa - P_wl)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "1 == 1"
      ]
     },
     "execution_count": 4,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_beta_B = beta_B == gamma_v*(T_l - T_a)/(P_wl - P_wa)\n",
    "units_check(eq_beta_B).full_simplify()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "In order to eliminate $T_l$, Penman introduced a term for the ratio of the vapour pressure difference between the surface and the saturation vapour pressure at air temperature ($P_{was}$) to the temperature difference between the surface and the air:\n",
    "##### {eq_Penman_ass}\n",
    "$$ \\Delta_{eTa} = \\frac{P_{wl} - P_{was}}{T_l - T_a}$$\n",
    "\n",
    "and he proposed to approximate this term by the slope of the saturation vapour pressure curve evaluated at air temperature, which can be obtained by substitution of $T_a$ for $T_l$ and differentiation of Eq. eq_Pwl with respect to $T_a$:\n",
    "##### {eq_Deltaeta_Ta}\n",
    "$$\\Delta_{eTa} = \\frac{611 \\lambda_E M_w \\exp \\left( \\frac{\\lambda_E M_w}{R_{mol}} \\left( \\frac{1}{273} - \\frac{1}{T_a} \\right) \\right)}{R_{mol} T_a^2}$$\n",
    "\n",
    "For further discussion of the meaning of this assumption, please refer to \\citet{mallick_surface_2014}."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\Delta_{eTa}} = \\frac{{P_{was}} - {P_{wl}}}{T_{a} - T_{l}}</script></html>"
      ],
      "text/plain": [
       "Delta_eTa == (P_was - P_wl)/(T_a - T_l)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 5,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Penman_ass = Delta_eTa == (P_wl - P_was)/(T_l - T_a)\n",
    "units_check(eq_Penman_ass).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{was}} = 611 \\, e^{\\left(-\\frac{M_{w} \\lambda_{E} {\\left(\\frac{273}{T_{a}} - 1\\right)}}{273 \\, R_{\\mathit{mol}}}\\right)}</script></html>"
      ],
      "text/plain": [
       "P_was == 611*e^(-1/273*M_w*lambda_E*(273/T_a - 1)/R_mol)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Pwas_Ta = P_was == eq_Pwl.rhs()(T_l = T_a)\n",
    "eq_Pwas_Ta.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\Delta_{eTa}} = \\frac{611 \\, M_{w} \\lambda_{E} e^{\\left(-\\frac{M_{w} \\lambda_{E} {\\left(\\frac{273}{T_{a}} - 1\\right)}}{273 \\, R_{\\mathit{mol}}}\\right)}}{R_{\\mathit{mol}} T_{a}^{2}}</script></html>"
      ],
      "text/plain": [
       "Delta_eTa == 611*M_w*lambda_E*e^(-1/273*M_w*lambda_E*(273/T_a - 1)/R_mol)/(R_mol*T_a^2)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Deltaeta_T = Delta_eTa == diff(eq_Pwl.rhs()(T_l = T_a), T_a)\n",
    "show(eq_Deltaeta_T)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "Susbstitution of Eq. {eq_Penman_ass} in Eq. {eq_beta_B} yields (Eq. 15 in \\citet{bowen_ratio_1926}):\n",
    "##### {eq_betaB_Pwas}\n",
    "$$\\beta_B = \\frac{\\gamma_v}{\\Delta_{eTa}}\\frac{(P_{wl} - P_{was})}{(P_{wl} - P_{wa})}$$\n",
    "\n",
    "Substituting $E_w$ for $E_l$ and inserting $H_l = \\beta_B E_w$ (Eq. {eq_beta_B}) into the energy balance equation (Eq. {eq_Rs_enbal}) and solving for $E_w$ gives:\n",
    "##### {eq_Ew_betaB}\n",
    "$$E_w = \\frac{R_s - R_{ll}}{\\beta_B + 1}$$\n",
    "\n",
    "Substitution of Eq. {eq_betaB_Pwas} into Eq. {eq_Ew_betaB}, equating with Eq. {eq_Ew_fu} and solving for $P_{wl}$ gives:\n",
    "##### {eq_Pwl_fu}\n",
    "$$P_{wl} = \\frac{f_u (\\Delta_{eTa} P_{wa} + \\gamma_v P_{was}) + \\Delta_{eTa} (R_s - R_{ll})}\n",
    "{f_u (\\Delta_{eTa} + \\gamma_v)}$$\n",
    "\n",
    "Now, insertion of Eq. {eq_Pwl_fu} into Eq. {eq_Ew_fu} gives the so-called \"Penman equation\" :\n",
    "##### {eq_Ew_P}\n",
    "$$E_w = \\frac{\\Delta_{eTa}(R_s - R_{ll}) + f_u \\gamma_v (P_{was} - P_{wa})}\n",
    "{\\Delta_{eTa} + \\gamma_v}$$\n",
    "\n",
    "\n",
    "Eq. {eq_Ew_P} is equivalent to Eq 16 in \\citet{penman_natural_1948}, but Eq. 17 in \\citet{penman_natural_1948}, which should be equivalent to Eq. {eq_Pwl_fu}, has $P_{wl}$ ($e_s$ in Penman's notation) on both sides, so it seems to contain an error. In his derivations, Penman expressed $R_s - R_{ll}$ as \"net radiant energy available at surface\" and pointed out that the above two equations can be used to estimate $E_l$ and $T_l$ from air conditions only. This neglects the fact that $R_{ll}$ is also a function of the leaf temperature. To estimate surface temperature, Eq. {eq_Pwl_fu} can be inserted into Eq. {eq_Penman_ass} and solved for $T_l$, yielding:\n",
    "##### {eq_Tl_P}\n",
    "$$T_l = \\frac{R_s - R_{ll} + f_u (\\gamma_v T_a + \\Delta_{eTa} T_a + P_{wa} - P_{was})}{f_u(\\gamma_v + \\Delta_{eTa})}$$\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\beta_B} = \\frac{{\\left({P_{was}} - {P_{wl}}\\right)} \\gamma_{v}}{{\\Delta_{eTa}} {\\left({P_{wa}} - {P_{wl}}\\right)}}</script></html>"
      ],
      "text/plain": [
       "beta_B == (P_was - P_wl)*gamma_v/(Delta_eTa*(P_wa - P_wl))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "1 == 1"
      ]
     },
     "execution_count": 8,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_beta_B, eq_Penman_ass], beta_B, T_l)\n",
    "eq_betaB_Pwas =  soln[0][0].factor()\n",
    "units_check(eq_betaB_Pwas).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{{R_{ll}} - R_{s}}{{\\beta_B} + 1}</script></html>"
      ],
      "text/plain": [
       "E_w == -(R_ll - R_s)/(beta_B + 1)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 9,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Ew_betaB = solve(eq_Rs_enbal(E_l = E_w, H_l = beta_B*E_w), E_w)[0]\n",
    "units_check(eq_Ew_betaB).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[\n",
      "[P_wl == (Delta_eTa*P_wa*f_u + P_was*f_u*gamma_v - Delta_eTa*R_ll + Delta_eTa*R_s)/(Delta_eTa*f_u + f_u*gamma_v), E_w == -((P_wa - P_was)*f_u*gamma_v + Delta_eTa*R_ll - Delta_eTa*R_s)/(Delta_eTa + gamma_v), beta_B == -((P_wa - P_was)*f_u - R_ll + R_s)*gamma_v/((P_wa - P_was)*f_u*gamma_v + Delta_eTa*R_ll - Delta_eTa*R_s)]\n",
      "]\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{wl}} = \\frac{{\\Delta_{eTa}} {P_{wa}} f_{u} + {P_{was}} f_{u} \\gamma_{v} - {\\Delta_{eTa}} {R_{ll}} + {\\Delta_{eTa}} R_{s}}{{\\left({\\Delta_{eTa}} + \\gamma_{v}\\right)} f_{u}}</script></html>"
      ],
      "text/plain": [
       "P_wl == (Delta_eTa*P_wa*f_u + P_was*f_u*gamma_v - Delta_eTa*R_ll + Delta_eTa*R_s)/((Delta_eTa + gamma_v)*f_u)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} f_{u} \\gamma_{v} + {\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}}{{\\Delta_{eTa}} + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_w == -((P_wa - P_was)*f_u*gamma_v + Delta_eTa*R_ll - Delta_eTa*R_s)/(Delta_eTa + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 10,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_betaB_Pwas, eq_Ew_betaB, eq_Ew_fu], P_wl, E_w, beta_B)\n",
    "print soln\n",
    "eq_Pwl_fu = soln[0][0].factor()\n",
    "eq_Ew_P = soln[0][1]\n",
    "units_check(eq_Pwl_fu)\n",
    "units_check(eq_Ew_P)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{T_{a} f_{u} \\gamma_{v} + {\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - {P_{was}}\\right)} f_{u} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} f_{u} + f_{u} \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "T_l == (T_a*f_u*gamma_v + (Delta_eTa*T_a + P_wa - P_was)*f_u - R_ll + R_s)/(Delta_eTa*f_u + f_u*gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kelvin == kelvin"
      ]
     },
     "execution_count": 11,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve(eq_Penman_ass.subs(eq_Pwl_fu), T_l)\n",
    "eq_Tl_P = soln[0]\n",
    "units_check(eq_Tl_P)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{T_{a} f_{u} \\gamma_{v} + {\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - 611 \\, e^{\\left(-\\frac{M_{w} \\lambda_{E} {\\left(\\frac{273}{T_{a}} - 1\\right)}}{273 \\, R_{\\mathit{mol}}}\\right)}\\right)} f_{u} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} f_{u} + f_{u} \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "T_l == (T_a*f_u*gamma_v + (Delta_eTa*T_a + P_wa - 611*e^(-1/273*M_w*lambda_E*(273/T_a - 1)/R_mol))*f_u - R_ll + R_s)/(Delta_eTa*f_u + f_u*gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Tl_P.subs(eq_Pwl(P_wl = P_was, T_l = T_a)).show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\left({\\Delta_{eTa}} f_{u} + f_{u} \\gamma_{v}\\right)} T_{a} + {P_{wa}} f_{u} - {P_{was}} f_{u} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} f_{u} + f_{u} \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "T_l == ((Delta_eTa*f_u + f_u*gamma_v)*T_a + P_wa*f_u - P_was*f_u - R_ll + R_s)/(Delta_eTa*f_u + f_u*gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kelvin == kelvin\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{wl}} = \\frac{{P_{was}} f_{u} \\gamma_{v} + {\\left({P_{wa}} f_{u} - {R_{ll}} + R_{s}\\right)} {\\Delta_{eTa}}}{{\\Delta_{eTa}} f_{u} + f_{u} \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "P_wl == (P_was*f_u*gamma_v + (P_wa*f_u - R_ll + R_s)*Delta_eTa)/(Delta_eTa*f_u + f_u*gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(meter*second^2) == kilogram/(meter*second^2)"
      ]
     },
     "execution_count": 13,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_Penman_ass, eq_Pwl_fu], T_l, P_wl)\n",
    "#for eq in flatten(soln):\n",
    "#    eq.show()\n",
    "eq_Tl_P = soln[0][0]\n",
    "print units_check(eq_Tl_P)\n",
    "eq_Pwl_P_wet = soln[0][1]\n",
    "units_check(eq_Pwl_P_wet)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{273 \\, M_{w} \\lambda_{E}}{M_{w} \\lambda_{E} + 273 \\, {R_{mol}} \\log\\left(\\frac{611 \\, {\\left({\\Delta_{eTa}} f_{u} + f_{u} \\gamma_{v}\\right)}}{{\\Delta_{eTa}} {P_{wa}} f_{u} + {P_{was}} f_{u} \\gamma_{v} - {\\Delta_{eTa}} {R_{ll}} + {\\Delta_{eTa}} R_{s}}\\right)}</script></html>"
      ],
      "text/plain": [
       "T_l == 273*M_w*lambda_E/(M_w*lambda_E + 273*R_mol*log(611*(Delta_eTa*f_u + f_u*gamma_v)/(Delta_eTa*P_wa*f_u + P_was*f_u*gamma_v - Delta_eTa*R_ll + Delta_eTa*R_s)))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Alternative approach to get T_l, followoing Eq. 17 in Penman (1948), which is eq_Pwl_P_wet\n",
    "soln = solve(eq_Pwl.rhs() == eq_Pwl_P_wet.rhs(), T_l)\n",
    "eq_Tl_P1 = soln[0].simplify_full()\n",
    "show(eq_Tl_P1)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "## Introduction of stomatal resistance by \\citet{penman_physical_1952}\n",
    "To account for stomatal resistance to vapour diffusion, \\citet{penman_physical_1952} introduced an additional multiplicator ($S$) in Eq. {eq_Ew_fu} \\citep[Appendix 13]{penman_physical_1952}:\n",
    "##### {eq_El_fu_S}\n",
    "$$E_l = f_u S (P_{wl} - P_{wa})$$\n",
    "\n",
    "where $S=1$ for a wet surface (leading to Eq. {eq_Ew_fu}) and $S<1$ in the presence of significant stomatal resistance. \n",
    "\n",
    "In accordance with Eqs. {eq_Ew_fu} and {eq_beta_B}, $H_l$ can be expressed as \\citep[Appendix 13]{penman_physical_1952}:\n",
    "##### {eq_Hl_Tl_P52}\n",
    "$$H_l = \\gamma_v f_u (T_l - T_a)$$\n",
    "\n",
    "Substitution of Penman's simplifying assumption ($T_l - T_a = (P_{wl} - P_{was})/\\Delta_{eT}$, Eq. {eq_Penman_ass}) is the first step to eliminating $T_l$:\n",
    "##### {eq_Hl_Pwl_P52}\n",
    "$$H_l = \\frac{\\gamma_v f_u (P_{wl} - P_{was})}{\\Delta_{eTa}}$$\n",
    "\n",
    "A series of algebraic manipulations involving Eqs. {eq_El_fu_S}, {eq_Hl_Pwl_P52} and {eq_Rs_enbal}  and the resulting Eq. {eq_El_P52} is given in \\citet[Appendix 13]{penman_physical_1952}. When solving Eqs. {eq_El_fu_S}, {eq_Hl_Pwl_P52} and {eq_Rs_enbal} for $E_l$, $H_l$ and $P_{wl}$, we obtained:\n",
    "\n",
    "##### {eq_El_P52}\n",
    "$$E_l = \\frac{S \\Delta_{eTa}(R_s - R_{ll}) + S \\gamma_v f_u (P_{was} - P_{wa})}{S \\Delta_{eT} + \\gamma_v}  $$\n",
    "\n",
    "##### {eq_Hl_P52}\n",
    "$$H_{l} = \\frac{\\gamma_{v} \\left(R_s - {R_{ll}}\\right) + S \\gamma_{v} f_{u} \\left({P_{wa}} - {P_{was}}\\right)}\n",
    "{S \\Delta_{eTa} + \\gamma_{v}}$$\n",
    "\n",
    "##### {eq_Pwl_P52}\n",
    "$$P_{wl} = \\frac{\\left(\\Delta_{eTa}/f_u\\right) \\left(R_s - {R_{ll}}\\right)+  \\left({S \\Delta_{eTa}} {P_{wa}} + \\gamma_{v} {P_{was}}\\right)}\n",
    "{{S \\Delta_{eTa}} + \\gamma_{v}}$$\n",
    "\\end{equation}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -{\\left({P_{wa}} - {P_{wl}}\\right)} S f_{u}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*S*f_u"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 15,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El_fu_S = E_l == f_u*S*(P_wl - P_wa)\n",
    "units_check(eq_El_fu_S)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} f_{u} \\gamma_{v}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*f_u*gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 16,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Hl_Tl_P52 = solve((H_l/E_w == eq_beta_B.rhs()).subs(eq_Ew_fu), H_l)[0]\n",
    "units_check(eq_Hl_Tl_P52)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left({P_{was}} - {P_{wl}}\\right)} f_{u} \\gamma_{v}}{{\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "H_l == -(P_was - P_wl)*f_u*gamma_v/Delta_eTa"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\Delta_{eTa}} T_{a} - {P_{was}} + {P_{wl}}}{{\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "T_l == (Delta_eTa*T_a - P_was + P_wl)/Delta_eTa"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left({P_{was}} - {P_{wl}}\\right)} f_{u} \\gamma_{v}}{{\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "H_l == -(P_was - P_wl)*f_u*gamma_v/Delta_eTa"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 17,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_Hl_Tl_P52, eq_Penman_ass], H_l, T_l)\n",
    "for eq in flatten(soln):\n",
    "    eq.show()\n",
    "eq_Hl_Pwl_P52 = soln[0][0]\n",
    "units_check(eq_Hl_Pwl_P52)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} S + {\\left({P_{wa}} S - {P_{was}} S\\right)} f_{u} \\gamma_{v}}{{\\Delta_{eTa}} S + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*S + (P_wa*S - P_was*S)*f_u*gamma_v)/(Delta_eTa*S + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = \\frac{{\\left({\\left({P_{wa}} S - {P_{was}} S\\right)} f_{u} - {R_{ll}} + R_{s}\\right)} \\gamma_{v}}{{\\Delta_{eTa}} S + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "H_l == ((P_wa*S - P_was*S)*f_u - R_ll + R_s)*gamma_v/(Delta_eTa*S + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{wl}} = \\frac{{\\Delta_{eTa}} {P_{wa}} S f_{u} + {P_{was}} f_{u} \\gamma_{v} - {\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)}}{{\\Delta_{eTa}} S f_{u} + f_{u} \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "P_wl == (Delta_eTa*P_wa*S*f_u + P_was*f_u*gamma_v - Delta_eTa*(R_ll - R_s))/(Delta_eTa*S*f_u + f_u*gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/(meter*second^2) == kilogram/(meter*second^2)\n"
     ]
    }
   ],
   "source": [
    "soln = solve([eq_Hl_Pwl_P52,eq_El_fu_S, eq_Rs_enbal], E_l, H_l, P_wl)\n",
    "[eq_El_P52, eq_Hl_P52, eq_Pwl_P52] = flatten(soln)\n",
    "for eq in flatten(soln):\n",
    "    print units_check(eq)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "### Analytical solutions for leaf temperature, $f_u$, $\\gamma_v$ and $S$\n",
    "\n",
    "Equation {eq_Pwl_P52} can be inserted into Eq. {eq_Penman_ass} and solved for leaf temperature to yield:\n",
    "##### {eq_Tl_p52}\n",
    "$$T_{l} = T_{a} + \\frac{R_{s} - R_{ll} - S f_{u}(P_{was}-P_{wa})}\n",
    "{f_{u} \\left(S \\Delta_{eT} + \\gamma_{v}\\right) }$$\n",
    "\n",
    "\n",
    "\\citet{penman_physical_1952} proposed to obtain values of $f_u$ and $S$ for a plant canopy empirically and described ways how to do this. However, for a single leaf, $f_u$ and $S$ could also be obtained analytically from our detailed mass and heat transfer model. \n",
    "\n",
    "Comparison of Eq. {eq_El_fu_S} with Eq. {eq_Elmol_conv} (after substituting Eq. {eq_El}) reveals that $S$ is equivalent to:\n",
    "##### {eq_S_gtwmol_fu}\n",
    "$$S = \\frac{M_{w} g_{tw,mol} \\lambda_{E}}{P_{a} f_{u}}$$\n",
    "\n",
    "where $f_u$ was defined by \\citet{penman_natural_1948} as the transfer coeffient for wet surface evaporation, i.e. a function of the boundary layer conductance only. \n",
    "\n",
    "To find a solution for $f_u$, we first formulate $E_w$ as transpiration from a leaf where $g_{tw} = g_{bw}$, using Eqs. {eq_El}, {eq_Elmol_conv} and {eq_gtwmol_gtw_iso}:\n",
    "##### {eq_Ew_conv}\n",
    "$$E_w = \\frac{\\lambda_E M_w g_{bw}}{R_{mol} T_a} (P_{wl} - P_{wa})$$\n",
    "\n",
    "Comparison of Eq. {eq_Ew_conv} with {eq_Ew_fu} gives $f_u$ as a function of $g_{bw}$:\n",
    "##### {eq_fu_gbw}\n",
    "$$f_u = g_{bw}\\frac{\\lambda_E M_w}{R_{mol} T_a}$$\n",
    "\n",
    "Comparison between Eq. {eq_Hl_Tl_P52} and Eq. {eq_Hl} reveals that\n",
    "##### {eq_gammav_hc_fu}\n",
    "$$\\gamma_v = \\frac{a_{sh} h_c}{f_u},$$\n",
    "\n",
    "and insertion of Eqs. {eq_fu_gbw} and {eq_gbw_hc} give $\\gamma_v$ as a function of $a_{sh}$ and $a_s$:\n",
    "##### {eq_gammav_as}\n",
    "$$\\gamma_{v} =a_{sh}/a_s \\frac{{N_{Le}}^{\\frac{2}{3}} {R_{mol}} T_{a} \\rho_{a} c_{pa}}{\\lambda_{E} M_{w}}$$\n",
    "\n",
    "Now, we can insert Eqs. {eq_fu_gbw}, {eq_gtwmol_gtw_iso} and {eq_gtw} into Eq. {eq_S_gtwmol_fu} to obtain $S$ as a function of $g_{sw}$ and $g_{bw}$:\n",
    "##### {eq_S_gsw_gbw}\n",
    "$$S = \\frac{g_{sw}}{g_{bw} + g_{sw}}$$\n",
    "\n",
    "The above equation illustrates that $S$ is not just a function of stomatal conductance, but also the leaf boundary layer conductance, explaining why \\citet{penman_physical_1952} found that $S$ depends on wind speed."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{P_{wa}} S f_{u} - {P_{was}} S f_{u} + {\\left({\\Delta_{eTa}} S f_{u} + f_{u} \\gamma_{v}\\right)} T_{a} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} S f_{u} + f_{u} \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "T_l == (P_wa*S*f_u - P_was*S*f_u + (Delta_eTa*S*f_u + f_u*gamma_v)*T_a - R_ll + R_s)/(Delta_eTa*S*f_u + f_u*gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kelvin == kelvin"
      ]
     },
     "execution_count": 19,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_Penman_ass, eq_Pwl_P52], T_l, P_wl)\n",
    "eq_Tl_P52 = soln[0][0]\n",
    "latex(eq_Tl_P52)\n",
    "units_check(eq_Tl_P52)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}S = \\frac{M_{w} {g_{tw,mol}} \\lambda_{E}}{P_{a} f_{u}}</script></html>"
      ],
      "text/plain": [
       "S == M_w*g_twmol*lambda_E/(P_a*f_u)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "1 == 1"
      ]
     },
     "execution_count": 20,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_S_gtwmol_fu = solve([eq_El_fu_S.subs(eq_El), eq_Elmol_conv], S, E_lmol)[0][0]\n",
    "units_check(eq_S_gtwmol_fu)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} f_{u} \\gamma_{v}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*f_u*gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Hl_Tl_P52.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} a_{\\mathit{sh}} h_{c}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*a_sh*h_c"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Hl.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{{a_{sh}} h_{c}}{f_{u}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == a_sh*h_c/f_u"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 23,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammav_hc_fu = solve(eq_Hl_Tl_P52.rhs() == eq_Hl.rhs(), gamma_v)[0]\n",
    "units_check(eq_gammav_hc_fu)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -{\\left({P_{wa}} - {P_{wl}}\\right)} S f_{u}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*S*f_u"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_fu_S.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{M_{w} {\\left(P_{\\mathit{wa}} - P_{\\mathit{wl}}\\right)} {g_{bw}} \\lambda_{E}}{R_{\\mathit{mol}} T_{a}}</script></html>"
      ],
      "text/plain": [
       "E_w == -M_w*(P_wa - P_wl)*g_bw*lambda_E/(R_mol*T_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 25,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Ew_conv = eq_El.subs(eq_Elmol_conv).subs(eq_gtwmol_gtw_iso)(g_tw = g_bw, E_l = E_w)\n",
    "units_check(eq_Ew_conv)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}f_{u} = \\frac{M_{w} {g_{bw}} \\lambda_{E}}{{R_{mol}} T_{a}}</script></html>"
      ],
      "text/plain": [
       "f_u == M_w*g_bw*lambda_E/(R_mol*T_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "meter/second == meter/second"
      ]
     },
     "execution_count": 26,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_fu_gbw = solve(eq_Ew_conv.rhs() == eq_Ew_fu.rhs(), f_u)[0]\n",
    "units_check(eq_fu_gbw)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{{a_{sh}} h_{c}}{f_{u}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == a_sh*h_c/f_u"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 27,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammav_hc_fu = solve(eq_Hl_Tl_P52.rhs() == eq_Hl.rhs(), gamma_v)[0]\n",
    "units_check(eq_gammav_hc_fu)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{\\mathit{Le}^{\\frac{2}{3}} {R_{mol}} T_{a} {a_{sh}} c_{\\mathit{pa}} \\rho_{a}}{M_{w} a_{s} \\lambda_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == Le^(2/3)*R_mol*T_a*a_sh*c_pa*rho_a/(M_w*a_s*lambda_E)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 28,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammav_as = eq_gammav_hc_fu.subs(eq_fu_gbw).subs(eq_gbw_hc)\n",
    "units_check(eq_gammav_as)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}S = \\frac{{g_{sw}}}{{g_{bw}} + {g_{sw}}}</script></html>"
      ],
      "text/plain": [
       "S == g_sw/(g_bw + g_sw)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "1 == 1"
      ]
     },
     "execution_count": 29,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_S_gbw_gsw = eq_S_gtwmol_fu.subs(eq_fu_gbw).subs(eq_gtwmol_gtw_iso).subs(eq_gtw).simplify_full()\n",
    "units_check(eq_S_gbw_gsw)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 30,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} \\gamma_{v} \\lambda_{E} + {\\left({\\Delta_{eTa}} {R_{ll}} {R_{mol}} - {\\Delta_{eTa}} {R_{mol}} R_{s}\\right)} T_{a} {r_{bw}}}{{R_{mol}} T_{a} \\gamma_{v} {r_{sw}} + {\\left({\\Delta_{eTa}} {R_{mol}} T_{a} + {R_{mol}} T_{a} \\gamma_{v}\\right)} {r_{bw}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa - M_w*P_was)*gamma_v*lambda_E + (Delta_eTa*R_ll*R_mol - Delta_eTa*R_mol*R_s)*T_a*r_bw)/(R_mol*T_a*gamma_v*r_sw + (Delta_eTa*R_mol*T_a + R_mol*T_a*gamma_v)*r_bw)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_P52.subs(eq_S_gbw_gsw, eq_fu_gbw).subs(g_bw = 1/r_bw, g_sw = 1/r_sw).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {N_{Le}}^{\\frac{2}{3}} {a_{sh}} {c_{pa}} {g_{bw}} {g_{sw}} \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} M_{w} {R_{ll}} - {\\Delta_{eTa}} M_{w} R_{s}\\right)} a_{s} {g_{sw}} \\lambda_{E}}{{\\Delta_{eTa}} M_{w} a_{s} {g_{sw}} \\lambda_{E} + {\\left({R_{mol}} T_{a} {a_{sh}} {c_{pa}} {g_{bw}} + {R_{mol}} T_{a} {a_{sh}} {c_{pa}} {g_{sw}}\\right)} {N_{Le}}^{\\frac{2}{3}} \\rho_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa - M_w*P_was)*Le^(2/3)*a_sh*c_pa*g_bw*g_sw*lambda_E*rho_a + (Delta_eTa*M_w*R_ll - Delta_eTa*M_w*R_s)*a_s*g_sw*lambda_E)/(Delta_eTa*M_w*a_s*g_sw*lambda_E + (R_mol*T_a*a_sh*c_pa*g_bw + R_mol*T_a*a_sh*c_pa*g_sw)*Le^(2/3)*rho_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_P52.subs(eq_S_gbw_gsw, eq_fu_gbw).subs(eq_gammav_as).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 32,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} \\gamma_{v} \\lambda_{E} + {\\left({\\Delta_{eTa}} {R_{ll}} {R_{mol}} - {\\Delta_{eTa}} {R_{mol}} R_{s}\\right)} T_{a} {r_{bw}}}{{R_{mol}} T_{a} \\gamma_{v} {r_{sw}} + {\\left({\\Delta_{eTa}} {R_{mol}} T_{a} + {R_{mol}} T_{a} \\gamma_{v}\\right)} {r_{bw}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa - M_w*P_was)*gamma_v*lambda_E + (Delta_eTa*R_ll*R_mol - Delta_eTa*R_mol*R_s)*T_a*r_bw)/(R_mol*T_a*gamma_v*r_sw + (Delta_eTa*R_mol*T_a + R_mol*T_a*gamma_v)*r_bw)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_P52.subs(eq_S_gbw_gsw, eq_fu_gbw).subs(g_sw = 1/r_sw, g_bw = 1/r_bw).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 33,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {N_{Le}}^{\\frac{2}{3}} {a_{sh}} {c_{pa}} \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} M_{w} {R_{ll}} - {\\Delta_{eTa}} M_{w} R_{s}\\right)} a_{s} \\lambda_{E} {r_{bw}}}{{\\Delta_{eTa}} M_{w} a_{s} \\lambda_{E} {r_{bw}} + {\\left({R_{mol}} T_{a} {a_{sh}} {c_{pa}} {r_{bw}} + {R_{mol}} T_{a} {a_{sh}} {c_{pa}} {r_{sw}}\\right)} {N_{Le}}^{\\frac{2}{3}} \\rho_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa - M_w*P_was)*Le^(2/3)*a_sh*c_pa*lambda_E*rho_a + (Delta_eTa*M_w*R_ll - Delta_eTa*M_w*R_s)*a_s*lambda_E*r_bw)/(Delta_eTa*M_w*a_s*lambda_E*r_bw + (R_mol*T_a*a_sh*c_pa*r_bw + R_mol*T_a*a_sh*c_pa*r_sw)*Le^(2/3)*rho_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_P52.subs(eq_S_gbw_gsw, eq_fu_gbw).subs(g_sw = 1/r_sw, g_bw = 1/r_bw).subs(eq_gammav_as).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 34,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {N_{Le}}^{\\frac{2}{3}} {a_{sh}} {c_{pa}} {g_{bw}} {g_{sw}} \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} M_{w} {R_{ll}} - {\\Delta_{eTa}} M_{w} R_{s}\\right)} a_{s} {g_{sw}} \\lambda_{E}}{{\\Delta_{eTa}} M_{w} a_{s} {g_{sw}} \\lambda_{E} + {\\left({R_{mol}} T_{a} {a_{sh}} {c_{pa}} {g_{bw}} + {R_{mol}} T_{a} {a_{sh}} {c_{pa}} {g_{sw}}\\right)} {N_{Le}}^{\\frac{2}{3}} \\rho_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa - M_w*P_was)*Le^(2/3)*a_sh*c_pa*g_bw*g_sw*lambda_E*rho_a + (Delta_eTa*M_w*R_ll - Delta_eTa*M_w*R_s)*a_s*g_sw*lambda_E)/(Delta_eTa*M_w*a_s*g_sw*lambda_E + (R_mol*T_a*a_sh*c_pa*g_bw + R_mol*T_a*a_sh*c_pa*g_sw)*Le^(2/3)*rho_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_P52.subs(eq_S_gbw_gsw, eq_fu_gbw, eq_gammav_as).simplify_full().show()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "## Penman-Monteith equation\n",
    "\\citet{monteith_evaporation_1965} re-derived Eq. {eq_Ew_P} using a  different set of arguments than Penman in his original derivation and arrived to an equivalent equation (Eq. 8 in \\citet{monteith_evaporation_1965}):\n",
    "##### {eq_Ew_PM1}\n",
    "$$E_w = \\frac{\\Delta_{eTa}(R_s - R_{ll}) + \\rho_a c_{pa} (P_{was} - P_{wa})/r_a}\n",
    "{\\Delta_{eTa} + \\gamma_v} ,$$\n",
    "\n",
    "where $r_a$ is the leaf boundary layer resistance to sensible heat flux.\n",
    "Eq. {eq_Ew_PM1} is consistent with Eq. {eq_Ew_P} if Penman's wind function ($f_u$) is replaced by:\n",
    "##### {eq_fu_ra_M}\n",
    "$$f_u = \\frac{\\rho_a c_{pa}}{\\gamma_v r_a}.$$\n",
    "\n",
    "\n",
    "Monteith pointed out that the ratio between the conductance to sensible heat and the conductance to water vapour transfer, expressed in the psychrometric constant ($\\gamma_v$) would be affected by stomatal resistance ($r_{sw}$) and hence proposed to replace the psychrometric constant by $\\gamma_v^*$:\n",
    "##### {eq_gammavs_M65}\n",
    "$$\\gamma_v^* = \\gamma_v(1 + \\frac{r_s}{r_a}),$$\n",
    "\n",
    "leading to the so-called Penman-Monteith equation for transpiration:\n",
    "##### {eq_El_PM2}\n",
    "$$E_l = \\frac{\\Delta_{eTa}(R_s - R_{ll}) + \\rho_a c_{pa} (P_{was} - P_{wa})/r_a}\n",
    "{\\Delta_{eTa} + \\gamma_v \\left(1 + \\frac{r_{s}}{r_a}\\right)} $$\n",
    "\n",
    "\n",
    "More recently, \\citet{monteith_principles_2013} pointed out that the difference between leaves with stomata on only one side and those with stomata on both sides can also be considered by further modifying $\\gamma_v^*$ to:\n",
    "##### {eq_gammavs_MU}\n",
    "$$\\gamma_v^* = n_{MU} \\gamma_v (1 + r_s/r_a)$$\n",
    "\n",
    "where $n_{MU} = 1$ for leaves with stomata on both sides and $n_{MU} = 2$ for leaves with stomata on one side, i.e. $n_{MU} = a_{sh}/a_s$ in our notation.\n",
    "Insertion of Eq. {eq_gammavs_MU} into Eq. {eq_Ew_PM1} yields what we will call the Monteith-Unsworth (MU) equation, which only differs from the Penman-Monteith equation by the additional factor $n_{MU}$:\n",
    "##### {eq_El_MU2}\n",
    "$$E_l = \\frac{\\Delta_{eTa}(R_s - R_{ll}) + \\rho_a c_{pa} (P_{was} - P_{wa})/r_a}\n",
    "{\\Delta_{eTa} + \\gamma_v n_{MU} \\left(1 + \\frac{r_{s}}{r_a}\\right)} $$\n",
    "\n",
    "\\citet{monteith_principles_2013} also provide a definition of $\\gamma_v$ as:\n",
    "##### {eq_gammav_MU}\n",
    "$$\\gamma_v = \\frac{c_{pa} P_a}{\\lambda_E \\epsilon}$$\n",
    "\n",
    "where $\\epsilon$ is the ratio of molecular weights of water vapour and air (given by \\citet{monteith_principles_2013} as 0.622). \n",
    "Note that Equation {eq_gammavs_MU} was derived based on the assumption that $r_a$ refers to one-sided resistance to sensible heat transfer \\citep[P. 231]{monteith_principles_2013}, but $r_a$ in Eq. {eq_Ew_PM1} refers to total leaf boundary layer resistance for sensible heat flux, which, for a planar leaf, is half the one-sided value. This inconsistency will be further discussed in Section {sec_PM-incons}.\n",
    "\n",
    "The molar mass of air is $M_a = \\rho_a V_a/n_a$, while according to the ideal gas law, $V_a/n_a = R_{mol} T_a/P_a$, which yields for $\\epsilon = M_w/M_a$:\n",
    "##### {eq_epsilon}\n",
    "$$\\epsilon = \\frac{M_w P_a}{R_{mol} T_a \\rho_a}$$\n",
    "\n",
    "Inserting Eqs. {eq_rhoa_Pwa_Ta}, {eq_PN2} and {eq_PO2} in the above, $T_a$ cancels out, and at standard atmospheric pressure of 101325 Pa, we obtain values for $\\epsilon$ between 0.624 and 0.631 for vapour pressure ranging from 0 to 3000 Pa, compared to the value of 0.622 mentioned by \\citet{monteith_principles_2013}."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 35,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}f_{u} = \\frac{{c_{pa}} \\rho_{a}}{\\gamma_{v} r_{a}}</script></html>"
      ],
      "text/plain": [
       "f_u == c_pa*rho_a/(gamma_v*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "meter/second == meter/second"
      ]
     },
     "execution_count": 35,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_fu_ra_M = f_u == rho_a*c_pa/(gamma_v*r_a)\n",
    "units_check(eq_fu_ra_M)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 36,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{{\\Delta_{eTa}} + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_w == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(Delta_eTa + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 36,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Ew_PM1 = eq_Ew_P.subs(eq_fu_ra_M)\n",
    "units_check(eq_Ew_PM1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 37,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\gamma_{v} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)}</script></html>"
      ],
      "text/plain": [
       "gamma_v == gamma_v*(r_s/r_a + 1)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 37,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammavs_M65 = gamma_v == gamma_v*(1 + r_s/r_a)\n",
    "units_check(eq_gammavs_M65)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 38,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{\\gamma_{v} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)} + {\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(gamma_v*(r_s/r_a + 1) + Delta_eTa)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 38,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El_PM2 = eq_Ew_PM1.subs(eq_gammavs_M65)(E_w = E_l)\n",
    "units_check(eq_El_PM2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 39,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\gamma_{v} n_{\\mathit{MU}} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)}</script></html>"
      ],
      "text/plain": [
       "gamma_v == gamma_v*n_MU*(r_s/r_a + 1)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 39,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammavs_MU = gamma_v == n_MU*gamma_v*(1 + r_s/r_a)\n",
    "units_check(eq_gammavs_MU)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 40,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{\\gamma_{v} n_{\\mathit{MU}} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)} + {\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(gamma_v*n_MU*(r_s/r_a + 1) + Delta_eTa)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 40,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El_MU2 = eq_Ew_PM1.subs(eq_gammavs_MU)(E_w = E_l)\n",
    "units_check(eq_El_MU2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{P_{a} {c_{pa}}}{\\epsilon \\lambda_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == P_a*c_pa/(epsilon*lambda_E)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*meter*second^2) == kilogram/(kelvin*meter*second^2)"
      ]
     },
     "execution_count": 41,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammav_MU = gamma_v == c_pa*P_a/(lambda_E*epsilon)\n",
    "units_check(eq_gammav_MU)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\epsilon = \\frac{M_{w} P_{a}}{{R_{mol}} T_{a} \\rho_{a}}</script></html>"
      ],
      "text/plain": [
       "epsilon == M_w*P_a/(R_mol*T_a*rho_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "1 == 1"
      ]
     },
     "execution_count": 42,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Molar mass of air is M_a = rho_a*V_a/n_a, while V_a/n_a = R_mol*T_a/P_a, according to the ideal gas law\n",
    "eq_epsilon = epsilon == M_w/(rho_a*R_mol*T_a/P_a)\n",
    "units_check(eq_epsilon)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 43,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\epsilon = \\frac{100 \\, M_{w} P_{a}}{79 \\, M_{N_{2}} {\\left(P_{a} - P_{\\mathit{wa}}\\right)} + 21 \\, M_{O_{2}} {\\left(P_{a} - P_{\\mathit{wa}}\\right)} + 100 \\, M_{w} P_{\\mathit{wa}}}</script></html>"
      ],
      "text/plain": [
       "epsilon == 100*M_w*P_a/(79*M_N2*(P_a - P_wa) + 21*M_O2*(P_a - P_wa) + 100*M_w*P_wa)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAksAAAGFCAYAAADtt7dbAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAIABJREFUeJzs3X1cFXX6//EXeIPgvUuauGZoZpiKIFJ5LKWMTTfbWo3Q\nRMTUdTNNtNIlLIsMvC+3pFYs7ecKa351v7pm0taGN6ll6PE28mY10iC3AkWT2/n9MQtfSUGQo+fu\n/Xw8zqPOnPnMXDMK5/Kaz1zjYRiGgYiIiIhclqe9AxARERFxZEqWRERERKqhZElERESkGkqWRERE\nRKqhZElERESkGkqWRERERKqhZElERESkGkqWRERERKpR394BuLOysjJOnTpF06ZN8fDwsHc4IiIi\nLsMwDM6ePYufnx+ennWrDSlZsqNTp07Rvn17e4chIiLisrKzs/n1r39dp20oWbKjpk2bAuYfZLNm\nzapcLzIykrS0tKvah7uNtee+NdY59u1uY+25b3cba899u9vYmow/c+YM7du3r/iurQslS3ZUfumt\nWbNm1SZL9evXr/bz6rjbWHvuW2OdY9/uNtae+3a3sfbct7uNrc14W0xz0QRvFzds2DC3GltXznjM\n9jpfdd2vztf1GWvvfdtjv856ru21X2cce715GIZh2DsId3XmzBmaN2/OwIEDqV+/PsOGDbvsX56H\nHnqIdevW2SFC56TzVXM6V7Wj81U7Ol+1o/NVO1Wdr9TUVFJTUykpKWHjxo3k5+fXqYIFugznENLS\n0ur8BykiIuIOcnJgxgwoLr785+WFh/KChC3oMpwTcKZSpSPQ+ao5nava0fmqHZ2v2tH5urLVq6Fb\nN1i3DiyW63e+HDpZOnXqFFFRUfj6+uLj40NgYCCZmZlVrr9t2zb69u1bsX5AQACvvfZapXW2bNnC\nQw89RLt27fD09LRZyTMnJ4fHH3+c2267jXr16jFlyhSbbBf0A1RbOl81p3NVOzpftaPzVTs6X1X7\n8UcYPhwefRT69YP9+yE+/vqdL4e9DJeXl4fFYuG+++5j06ZN+Pr6cvjwYVq2bFnlmMaNGzNx4kR6\n9OhB48aN2bp1K+PGjaNJkyaMGTMGgHPnztGzZ09Gjx7NkCFDbBZvYWEhrVu3Jj4+noULF9psuyIi\nIu7sgw9gzBj4+Wf4619h2DC43n2cHXaC9/Tp09m+fTsZGRl12s6QIUNo0qQJy5cvv+QzT09P/v73\nv/PQQw9VWl5UVERcXBxpaWnk5eXRvXt3kpKS6NevX432GRYWRlBQEAsWLKh2vfLrqbaYfCYiIuJK\nzpyBqVMhJQUeeMD8b7t2tRlvu+9Yh70Mt379ekJCQoiIiKBNmzYEBweTkpJSq23s3r2b7du3079/\n/1qNmzBhAjt37mTVqlXs27ePRx99lIEDB3L06NFabUdERERq71//gh49IC0N/vIXs7pUm0TJ1hw2\nWTp27BjJycl06dKF9PR0xo8fz6RJk1ixYsUVx7Zv355GjRoRGhrKhAkTiImJqfF+s7OzWbZsGe+/\n/z59+vTB39+fKVOmYLFYePfdd+tySCIiIlKN8+fh6afh3nvh5pth714YO/b6X3b7JYeds1RWVkZo\naCgJCQkABAYGcuDAAZKTkxkxYkS1Y7du3UpBQQE7duxg2rRp3HLLLTz22GM12u++ffsoLS3l1ltv\n5eIrlEVFRdxwww3A/z2mxMPDgxEjRrB48eKrOUQRERH5r+3bIToasrPhtddg4kSo4/NvbcZhk6W2\nbdsSEBBQaVlAQABr1qy54tgOHToAcPvtt5OTk8PMmTNrnCwVFBRQv359MjMzL3lKcZMmTQCwWq0V\ny2wx1ygyMpL69Sv/UVTVoFJERMSVFBbCzJkwZw707g3r10OXLrXbRnkjyouVlJTYLEaHTZYsFgtZ\nWVmVlmVlZVUkQjVVWlpKYWFhjdcPCgqitLSU3NxcLBbLZdfp2LFjrWK4EjWlFBERd7R7N4wcCVlZ\n8Mor8OyzUP8qMpPLFRhs2ZTSYZOl2NhYLBYLiYmJREREsHPnTlJSUliyZEnFOnFxcZw8ebLiTrfF\nixdz0003cdtttwGQkZHB/PnzmTx5csWYc+fOceTIkYpLbMeOHcNqtdKqVSvat29P586dGT58OCNH\njmTevHkEBQXx/fff88knnxAYGMjAgQOrjNlqtWIYBgUFBZw+fRqr1UrDhg0vqZCJiIi4s+JiSEqC\nl1+G22+HXbvMCd0Oy3BgGzZsMLp37254e3sbXbt2NZYuXVrp81GjRhlhYWEV7//85z8b3bp1M5o0\naWK0aNHC6NWrl/H2229XGvPpp58aHh4ehqenZ6VXTExMxTolJSXGzJkzjY4dOxpeXl6Gn5+fMWTI\nEGP//v3Vxnu57fr7+1e5fn5+vgEY+fn5tTktIiIiTuvAAcMICTGMevUMIz7eMAoLr81+bPkd67B9\nltyB+iyJiIi7KC01J24//zz4+8Py5RAaeu325xZ9lkRERMQ1HD0K/fubc5ImTIDMzGubKNmakiUR\nERG5JgwDkpPN+UgnT8Knn8L8+eDtbe/IakfJkoiIiNhcdjb85jfw5JPmHW9798I999g7qqvjsHfD\niYiIiPMxDHjvPZg0CZo2hQ8/NJMmZ6ZkyQGUN6VUI0oREXFmOTnwhz/AunVmNen116FFi+sbQ3mD\nSls2pdTdcHaku+FERMRVvP8+/PGPUK8evP02PPywfePR3XAiIiLiEH74AYYNg4gI8463/fvtnyjZ\nmi7DiYiIyFXZsAHGjDGf77ZyJURGgoeHvaOyPVWWREREpFbOnIEnnoAHH4SgILOaNGyYayZKoMqS\niIiI1MInn0BMDPz4I6SkwOjRrpsklVNlSURERK7o3DmYOBHuuw86doR9+8zqkqsnSqDKkoiIiFzB\nZ59BdLTZhfv11+Gpp8DTjcotSpYcgPosiYiII7pwAV58EebNM5/ltmED3HqrvaOqnvosuRj1WRIR\nEUeVmWk2ljx8GF5+GZ55xuyh5CzUZ0lERESuieJieOkluOMOaNAAdu2CadOcK1GyNV2GExEREQAO\nHDCrSVYrxMVBfDw0bGjvqOxPlSURERE3V1oKc+dCcDD8/DNs325eelOiZFKyJCIi4saOHIF+/cxL\nbZMmmXOVeve2d1SORcmSiIiIGyorgzffhMBA+O47yMgwq0uNGtk7MsejZElERMTNfPMNhIeb/ZKi\no805Snffbe+oHJcmeIuIiLgJw4Bly2DyZGjWDDZtMpMmqZ6SJQegppQiInKt5eTAuHGwfr1ZTXrt\nNWjRwt5R2Z6aUroYNaUUEZHrYdUq+OMfoX59+Mtf4He/s3dE156aUoqIiMgV/fADREbCY4/Bvfea\nfZTcIVGyNV2GExERcUHr18PYsVBUBKmpZsLk4WHvqJyTKksiIiIuJD8fYmLgoYcgJMSsJkVGKlGq\nC1WWREREXMQ//wmjR0NeHixdaiZNSpLqTpUlERERJ3fuHEyYAPffD507w759ZtKkRMk2VFkSERFx\nYtu2ma0ATp2CP/8ZnnwSPFUKsSmdThERESd04QI895zZebt1a7ML91NPKVG6FlRZcgBqSikiIrXx\n5ZcwcqT5ENykJJg6FerVs3dUjkFNKV2MmlKKiEhtFBfDrFnwyivQowe89x5062bvqByTLb9jVVkS\nERFxAvv3m9WkvXshPh6efx4aNLB3VO7B6a9snjp1iqioKHx9ffHx8SEwMJDMzMwq19+2bRt9+/at\nWD8gIIDXXnutznEUFhYSExNDjx49aNCgAb///e/rvE0REZHSUpgzB3r1gsJC2LkTZs5UonQ9OXVl\nKS8vD4vFwn333cemTZvw9fXl8OHDtGzZssoxjRs3ZuLEifTo0YPGjRuzdetWxo0bR5MmTRgzZsxV\nx1JaWoqPjw9PP/00//M//3PV2xERESl3+LB5p9uOHfDMM/Dyy9Cokb2jcj9OPWdp+vTpbN++nYyM\njDptZ8iQITRp0oTly5cDYBgGSUlJLFmyhJycHLp06UJ8fDxDhgyp0fZiYmLIz89nzZo11a6nOUsi\nInI5ZWWweLF5t5ufHyxfDhaLvaNyLnqQ7n+tX7+ekJAQIiIiaNOmDcHBwaSkpNRqG7t372b79u30\n79+/Ytmrr77KihUr+Mtf/sLBgweJjY0lKiqKLVu22PgIREREKjtxwmwuOXGi2VjSalWiZG9OfRnu\n2LFjJCcnM3XqVJ5//nl27tzJpEmTaNSoESNGjKh2bPv27Tl9+jSlpaXMnDmTmJgYAIqKikhMTOTj\njz/mjjvuAODmm29my5YtvP3229x9993X/LhERMT9GAa8+y5MngwtWsBHH8GAAfaOSsDJk6WysjJC\nQ0NJSEgAIDAwkAMHDpCcnHzFZGnr1q0UFBSwY8cOpk2bxi233MJjjz3GkSNHOH/+PPfffz8XX6Es\nLi4mODgYgG7dunHixAkA7rnnHjZs2HCNjlBERNzBd9/B2LGwYYP5PLeFC6F5c3tHJeWcOllq27Yt\nAQEBlZYFBARcca4QQIcOHQC4/fbbycnJYebMmTz22GMUFBQA8MEHH+Dn51dpjJeXFwAbN26kuLgY\nAG9v7zofR3lTyoupQaWIiOszDPjb38xHlDRsCOvWweDB9o7K+ZQ3oryYLZtSOnWyZLFYyMrKqrQs\nKyurIhGqqdLSUgoLCwHo2rUrXl5enDhxgr59+152/fbt219dwFVIS0vTBG8RETfzn/+YSdL778Nj\nj8Gbb8KvfmXvqJzT5QoM5RO8bcGpk6XY2FgsFguJiYlERESwc+dOUlJSWLJkScU6cXFxnDx5suJO\nt8WLF3PTTTdx2223AZCRkcH8+fOZPHkyAE2aNOGZZ54hNjaW0tJS+vbtS35+Ptu2baN58+ZERUVV\nGc+hQ4coLCzkxx9/pKCgAKvVCpiXB0VERMqtW2dedispgbQ0M1kSx+XUyVJISAhr165l+vTpJCQk\n4O/vz+uvv05kZGTFOt999x3Z2dkV78vKyvjTn/7E8ePHqV+/Pp06dWLu3LmMGzeuYp2EhATatGlD\nUlISx44do0WLFgQHBxMXF1dtPIMGDeKbb76peB8UFISHhwelpaU2PGoREXFWeXnmBO7ly+HBB2HJ\nErjxRntHJVfi1H2WnJ36LImIuI+PPjJbAZw5A6+/bjab9PCwd1SuS32WREREnERBgTk3KTwcunSB\nfftg1CglSs7EqS/DiYiIOLItW8zEKCfHnMA9fjx4qkzhdPRHJiIiYmMXLpjPcuvXD9q2NbtwP/mk\nEiVnpcqSAyjvs6TeSiIizu+LL8z5SEePwpw5EBsL9erZOyr3Ud5zyZZ9ljTB2440wVtExHUUFcEr\nr8Crr0JgILz3Htx+u72jcl+2/I5VZUlERKSO9u2DkSNh/36YMQPi4qBBA3tHJbaiq6ciIiJXqaQE\nkpKgVy8oLoadO+HFF5UouRolSyIiIlfh66/h7rvNKlJsLHz5Jfz3eeviYpQsiYiI1EJZmdlUMjDQ\nfL7b1q0wezb891nr4oKULImIiNTQsWNw773mI0vGjoU9e6BPH3tHJdeakiUREZErMAx46y3o0QOO\nH4dPPoFFi6BxY3tHJteDkiUREZFqZGfDAw/AH/8Iw4ebd76Fhdk7Krme1DrAAagppYiI4zEMWL4c\nnn4amjaFjRvNpEkcm5pSuhg1pRQRcUzffQfjxsE//mH2T3r9dWjRwt5RSW2oKaWIiMg1YBjwt7/B\nhAlQvz78/e/wu9/ZOyqxN81ZEhERAU6fhogIGDYMBgyAAweUKIlJlSUREXF7a9fC+PFQWmpWliIi\n7B2ROBJVlkRExG399BNERcHvfw933mk+202JkvySKksiIuKWNm6EMWPg3DnzrreoKPDwsHdU4ohU\nWRIREbdy5oyZJA0aBN27m9WkkSOVKEnVVFkSERG38fHHMHo0/Pgj/OUvZtKkJEmuRMmSA1BTShGR\na+vcOZg2Dd58E/r3h4wMuPlme0cl14KaUroYNaUUEbn2tm2D6Gg4dQqSkuCpp8BTk1Bcni2/Y/XX\nRUREXNLPP8Mzz8Ddd0Pr1rBnD0yapERJak+X4URExOV8/rlZTTp2DGbPhilToF49e0clzkr5tYiI\nuIyiIoiPhz59oHFjyMyEZ59VoiR1o8qSiIi4hD17zGrSwYPw4oswfTo0aGDvqMQVqLIkIiJOrbgY\nEhKgd2/z/RdfwIwZSpTEdlRZEhERp3XwoFlNysw0K0kvvABeXvaOSlyNKksiIuJ0Skth7lwIDoaC\nAti+HWbNUqIk14YqSw5ATSlFRGru8GEYNcpMkKZMMS/BeXvbOypxFGpK6WLUlFJEpObKyswO3NOm\ngZ8fLFsGffvaOypxVG7TlPLUqVNERUXh6+uLj48PgYGBZGZmVrn+2rVrCQ8Pp3Xr1jRv3pw+ffqQ\nnp5eaZ2CggImT57MzTffjI+PD3379mXXrl11jjUnJ4fHH3+c2267jXr16jFlypQ6b1NEREzHj8OA\nAWZTydGjwWpVoiTXj8MmS3l5eVgsFry8vNi0aROHDh1i/vz5tGzZssoxmzdvJjw8nI0bN5KZmUlY\nWBiDBw/GarVWrPPEE0/w8ccf89e//pX9+/dz//33M2DAAL777rs6xVtYWEjr1q2Jj4+nZ8+eddqW\niIiYDMN84G337nD0KPzzn/DGG2YPJZHrxWEvw02fPp3t27eTkZFRp+1069aNyMhI4uPjuXDhAk2b\nNmX9+vU88MADFeuEhIQwaNAgXn75ZQCKioqIi4sjLS2NvLw8unfvTlJSEv369avRPsPCwggKCmLB\nggXVrqfLcCIiVfv2WxgzBjZtgieegAULQL8qpabc4jLc+vXrCQkJISIigjZt2hAcHExKSkqttmEY\nBmfPnqVVq1YAlJSUUFpaitcvbpfw9vZm69atFe8nTJjAzp07WbVqFfv27ePRRx9l4MCBHD16tO4H\nJiIi1TIMeO896NYN9u6FDRsgJUWJktiPwyZLx44dIzk5mS5dupCens748eOZNGkSK1asqPE25s6d\ny7lz54iIiACgSZMm3HXXXSQkJPDdd99RVlbGihUr2L59e8VluG+++YZly5bx/vvv06dPH/z9/Zky\nZQoWi4V33333mhyriIiYcnPhkUfM3kkPPgj798OgQfaOStydw7YOKCsrIzQ0lISEBAACAwM5cOAA\nycnJjBgx4orjV65cSUJCAuvWrcPX17di+YoVKxg9ejTt2rWjfv36BAcHM3z48IqJ4/v376e0tJRb\nb72Vi69QFhUVccMNNwDQtGlTADw8PBgxYgSLFy+22XGLiLirVavgySfB0xPWrDGTJhFH4LDJUtu2\nbQkICKi0LCAggDVr1lxxbFpaGuPGjWP16tWEhYVV+szf359//etf/Pzzz5w5c4Y2bdoQGRmJv78/\nYN4tV79+fTIzM/H0rFx4a9KkCUClCeO2mGtU3mfpYuq5JCLu4j//gQkTzGRpyBBITob//ttUpEbK\neytdzJZ9lhw2WbJYLGRlZVValpWVRYcOHaodl5qaypgxY0hLS6s0ifuXvL298fb25qeffmLTpk3M\nmzcPgKCgIEpLS8nNzcVisVx2bMeOHWt5NNVLS0vTBG8RcUvr1sG4cVBUBCtXQmQkeHjYOypxNpcr\nMJRP8LYFh02WYmNjsVgsJCYmEhERwc6dO0lJSWHJkiUV68TFxXHy5EmWL18OmIlSdHQ0ixYtIjQ0\nlNzcXMBMjMqTkfT0dAzDoEuXLhw+fJjnnnuOgIAARo0aBUDnzp0ZPnw4I0eOZN68eQQFBfH999/z\nySefEBgYyMCBA6uM2Wq1YhgGBQUFnD59GqvVSsOGDS+pkImIuLu8PHj6aXMi94MPmu0B2ra1d1Qi\nVTAc2IYNG4zu3bsb3t7eRteuXY2lS5dW+nzUqFFGWFhYxfv+/fsbnp6el7xiYmIq1lm1apXRqVMn\no1GjRoafn58xadIk48yZM5W2W1JSYsycOdPo2LGj4eXlZfj5+RlDhgwx9u/fX228Hh4el+zb39+/\nyvXz8/MNwMjPz6/NaRERcWoffmgY7doZRrNmhvHuu4ZRVmbviMQV2fI71mH7LLkD9VkSEXdy9iw8\n84xZRbr/fli6FNq3t3dU4qps+R3rsJfhRETEdXz6KcTEwOnT5gTuP/xBc5PEeThsnyUREXF+58+b\nz3MLC4ObbjKbTI4fr0RJnIsqSyIick189hmMGgXZ2bBwoZk0eeqf6OKE9NdWRERs6sIFeO45uPtu\n+NWvYM8emDxZiZI4L1WWHEB5U0o1ohQRZ/fllzByJBw5ArNmmRO66+ubRq6j8gaVtmxKqbvh7Eh3\nw4mIqygqgldegVdfhR49/u9BuCL2orvhRETEYezdaz74dv9+mDED4uKgQQN7RyViO7qCLCIiV6Wk\nxKwkhYRAcTHs3AkvvqhESVyPkiUREam1Q4fAYjErSVOnmnOVgoPtHZXItaFkSUREaqy0FObPh6Ag\n8/lu27ZBYiJ4edk7MpFrR8mSiIjUyNGj0L8/PPss/PGPsHs33HmnvaMSufaULImISLXKymDxYvMu\nt5MnzUeXLFwIPj72jkzk+lCyJCIiVTpxAsLDYcIE8463vXvhnnvsHZXI9aXWAQ5ATSlFxNEYBrzz\nDsTGQvPmkJ4O999v76hErkxNKV2MmlKKiCM6dQrGjoUPPoCYGPOSW/Pm9o5KpHbUlFJERGzOMGDl\nSpg40by7bf16ePBBe0clYn+asyQiInz/PQwZAiNGwAMPmN24lSiJmFRZEhFxc6tXm60Ayv9/yBD7\nxiPiaFRZEhFxUz/+CMOHw6OPwt13w4EDSpRELkeVJRERN/SPf5iTuC9cgBUrzKTJw8PeUYk4JlWW\nRETcSH6+eYfb4MHms9wOHIDHH1eiJFIdVZYcgPosicj18NFH8MQT5jPdUlJg9GglSeJ61GfJxajP\nkohcDwUF5vPc3noL7rsPli6FDh3sHZXItaU+SyIiUiMZGeZlt9xcePNNGD8ePDUBQ6RW9CMjIuKC\nfv7ZfFRJWBi0awdWKzz5pBIlkauhypKIiIvZsQNGjYLjx2HePHj6aahXz95RiTgv/RtDRMRFXLgA\n06aBxWI+y233bpgyRYmSSF2psiQi4gJ27YLoaDhyBGbNgmeegfr6DS9iE6osiYg4saIimDED7rwT\nGjWCL7+E6dOVKInYkn6cRESc1J49ZjXp4EF44QX405+gQQN7RyXiepQsOQA1pRSR2iguhqQkePll\nCAiAzz+HoCB7RyXiGNSU0sWoKaWI1Nb+/eadbnv2mJfbXngBGja0d1QijseW37GasyQi4gRKSsxq\nUq9ecP48bN8Or7yiREnkenDoZOnUqVNERUXh6+uLj48PgYGBZGZmVrn+2rVrCQ8Pp3Xr1jRv3pw+\nffqQnp5eaZ2ysjJmzJhBx44d8fHx4ZZbbuGVV16pc6w5OTk8/vjj3HbbbdSrV48pU6bUeZsiIgBf\nfQV9+8Lzz8PkyZCZCb172zsqEffhsMlSXl4eFosFLy8vNm3axKFDh5g/fz4tW7ascszmzZsJDw9n\n48aNZGZmEhYWxuDBg7FarRXrJCUl8fbbb7N48WK++uor5syZw5w5c3jjjTfqFG9hYSGtW7cmPj6e\nnj171mlbIiIApaUwfz707Ak//ghbt8Ls2eZdbyJy/TjsnKXp06ezfft2MjIy6rSdbt26ERkZSXx8\nPACDBw/mxhtvZMmSJRXrDB06FB8fH9577z0AioqKiIuLIy0tjby8PLp3705SUhL9+vWr0T7DwsII\nCgpiwYIF1a6nOUsiUpXDh81nun32mdmBe9Ys8PGxd1QizsMt5iytX7+ekJAQIiIiaNOmDcHBwaSk\npNRqG4ZhcPbsWVq1alWxrE+fPnz88cccPnwYAKvVyrZt2xg0aFDFOhMmTGDnzp2sWrWKffv28eij\njzJw4ECOHj1qm4MTEalCWRn8+c8QGAjffQeffgoLFypRErEnh20dcOzYMZKTk5k6dSrPP/88O3fu\nZNKkSTRq1IgRI0bUaBtz587l3LlzREREVCybPn06Z86cqZhbVFZWxqxZs4iMjAQgOzubZcuWkZ2d\nzY033gjAlClT2LhxI++++65N5jeJiFzOv/8No0ebCdKECeYlt8aN7R2ViDhsslRWVkZoaCgJCQkA\nBAYGcuDAAZKTk2uULK1cuZKEhATWrVuHr69vxfK//e1vrFy5krS0NLp27cqePXt4+umn8fPzIyoq\nin379lFaWsqtt97KxVcoi4qKuOGGGwBo2rQpAB4eHowYMYLFixfb8tBFxM0YBrz9tvmIEl9f+Phj\nuPdee0clIuUcNllq27YtAQEBlZYFBASwZs2aK45NS0tj3LhxrF69mrCwsEqfPffcc8TFxfHoo48C\ncPvtt3P8+HESExOJioqioKCA+vXrk5mZiadn5auUTZo0Aag0YdwWc43Km1JeTA0qRdzDN9/AE0/A\nP/8J48bB3LmgKYwitVPeiPJitmxK6bDJksViISsrq9KyrKwsOnToUO241NRUxowZQ1paGg888MAl\nn58/fx4PD49Kyzw9PSkrKwMgKCiI0tJScnNzsVgsl91Hx44da3MoV5SWlqYJ3iJuxjDg3XchNhaa\nNoUPP4Tf/MbeUYk4p8sVGMoneNuCwyZLsbGxWCwWEhMTiYiIYOfOnaSkpFS6iy0uLo6TJ0+yfPly\nwEyUoqOjWbRoEaGhoeTm5gLg7e1dkYwMHjyYWbNm0b59e26//XYyMzNZuHAhY8aMAaBz584MHz6c\nkSNHMm/ePIKCgvj+++/55JNPCAwMZODAgVXGbLVaMQyDgoICTp8+jdVqpWHDhpdUyETEvZ08aVaR\nPvjA7Ma9cCG0aGHvqESkSoYD27Bhg9G9e3fD29vb6Nq1q7F06dJKn48aNcoICwureN+/f3/D09Pz\nkldMTEzFOgUFBUZsbKxx8803Gz4+PsYtt9xivPDCC0ZxcXHFOiUlJcbMmTONjh07Gl5eXoafn58x\nZMgQY//+/dXG6+Hhccm+/f39q1w/Pz/fAIz8/PzanhoRcUJlZYbx3nuG0aKFYdx4o2GsX2/viERc\nly2/Yx2Y2/bLAAAgAElEQVS2z5I7UJ8lEfeRkwPjx8P//i88/jgsWgQXdTURERuz5Xesw16GExFx\nBYYBf/ub2QqgXj1YswYeecTeUYlIbThsU0oREWd3+jRERMCwYXDffXDggBIlEWekypKIyDWwZo15\n2a2szKwsXdQbV0ScjCpLIiI29OOPMHw4DBkCFotZTVKiJOLcVFlyAOVNKdWIUsS5/eMfMHYsXLgA\nK1aYSdMv2rqJyDVW3qDSlk0pdTecHeluOBHXkJcHkyfD8uUwaBAsWQJ+fvaOSsS96W44EREH8eGH\nMGYMnD0L77xjNplUNUnEtdRpztJnn31mqzhERJzKmTNmF+6BA6FrV9i/H2JilCiJuKI6JUvPPvts\npfcZGRmV3r/44ov8+OOPddmFiIjD+fhj6N4dVq6Et96CTZugfXt7RyUi10qdkqXS0tJK71966aVK\n74cPH86iRYvqsgsREYdRUGA2lxwwADp2hH374A9/UDVJxNXVKVlq1aoVBw8erHj/y7niXbp0qXiY\nrYiIM9u8GQIDYdky+POfzeqSv7+9oxKR66FOydKQIUMYPXo0Z8+eBcDjMv+8KiwsrMsuRETs6vx5\n8063/v2hbVuwWuGpp8BTXepE3Eadftyjo6P5+eef6dq1K3PmzKGoqKjS54mJidx66611CtAdREZG\n8tBDD5GammrvUETkIp99Bj17wttvw7x5kJEBt9xi76hEpDqpqak89NBDREZG2mybde6z9O9//5vw\n8HCOHTuGh4cHnTp1ws/Pj+PHj+Pj48Pnn39O48aNbRWvS1GfJRHHdOECvPACzJ8PvXubl95uu83e\nUYlIbdjyO7bOhWR/f392797NjBkz6Ny5M9988w1Hjhxh8ODBbNu2TYmSiDiVL76A4GB4/XV49VXY\nulWJkoi7UwdvO1JlScRxFBbCyy/D7Nnmpbfly+H22+0dlYhcLXXwFhGxod27IToavvoKZs6EadOg\nQQN7RyUijkL3c4iI2youhpdegtBQ8+62L76A+HglSiJSmSpLIuKW9u0zq0l790JcnJkkNWxo76hE\nxBGpsiQibqWkxJy43asXFBXBzp3mXCUlSiJSFVWWRMRtHDpkVpO+/BKee86cn+TlZe+oRMTRKVly\nAJGRkdSvX59hw4YxbNgwe4cj4nJKS2HBApgxA26+GbZtgzvvtHdUInItpKamkpqaSklJic22qdYB\ndqTWASLX3tdfw6hRsGMHxMbCK6+At7e9oxKRa82hmlKKiDiisjKzsWTPnvD99+aDcOfPV6IkIrWn\nZElEXM6xYxAWZj4Ad8wY8+G3ffvaOyoRcVZKlkTEZZSVweLF0KMHfPMN/OtfsGgR6KlLIlIXSpZE\nxCWcOAHh4TBhAkRFmf2T+ve3d1Qi4gp0N5yIODXDgKVLYcoUaNEC0tPh/vvtHZWIuBJVlkTEaX37\nLQwaBGPHwqOPml25lSiJiK2psiQiTscw4P/9P5g0CXx84B//gN/+1t5RiYirUrLkANSUUqTmcnJg\n3DhYvx5GjDAncLdsae+oRMRRqCmli1FTSpGaMwxIS4OnnoL69eHtt+Hhh+0dlYg4KjWlFBG38v33\n5pyk4cPNOUkHDihREpHrx6GTpVOnThEVFYWvry8+Pj4EBgaSmZlZ5fpr164lPDyc1q1b07x5c/r0\n6UN6enqldfz9/fH09LzkNXHixDrFevDgQYYOHVqx/UWLFtVpeyJiWr0abr8dPv0UVq0yq0u+vvaO\nSkTcicMmS3l5eVgsFry8vNi0aROHDh1i/vz5tKxmcsLmzZsJDw9n48aNZGZmEhYWxuDBg7FarRXr\n7Nq1i5ycnIrXRx99hIeHBxEREXWK9/z583Tq1InZs2fTtm3bOm1LROCHH2DYMLOidPfdZjXp0Uft\nHZWIuCOHnbM0ffp0tm/fTkZGRp22061bNyIjI4mPj7/s55MnT+aDDz7g66+/rliWn5/P1KlTWbdu\nHYWFhfTu3ZsFCxbQo0ePGu3T39+f2NhYJk2aVO16mrMkcnnr1pmTuIuK4I03zKTJw8PeUYmIM3GL\nOUvr168nJCSEiIgI2rRpQ3BwMCkpKbXahmEYnD17llatWl328+LiYv7617/yxBNPVFo+dOhQfvjh\nBzZt2kRmZibBwcEMGDCAvLy8qz4eEbmyn36CkSPhd7+D3r3NatLw4UqURMS+HDZZOnbsGMnJyXTp\n0oX09HTGjx/PpEmTWLFiRY23MXfuXM6dO1flJba1a9eSn59PdHR0xbJt27axa9cuVq1aRVBQEJ06\ndWLOnDk0b96c1atX1/m4ROTyNm6Ebt3MqtKyZeZ/dUVbRByBwyZLZWVl9OrVi4SEBAIDAxk3bhxj\nx44lOTm5RuNXrlxJQkIC77//Pr5VzAZ95513GDhwIDfeeGPFMqvVWlGNatq0acXr+PHjHD16lOzs\n7IplzZo1IykpySbHK+Ku8vNhzBizE3f37rB/P0RHq5okIo7DYZtStm3bloCAgErLAgICWLNmzRXH\npqWlMW7cOFavXk1YWNhl1/nmm2/45z//yd///vdKywsKCvDz8yMjI4NfTudq0aIFLVq0qDRhvKpL\nfLVR3pTyYmpQKe7gn/+E0aPNy29/+YuZNClJEpHaKm9EeTFbNqV02GTJYrGQlZVVaVlWVhYdOnSo\ndlxqaipjxowhLS2NBx54oMr13nnnHdq0acOgQYMqLQ8ODiYnJ4d69epx0003XXZsx44da3gUNZOW\nlqYJ3uJWCgrg2Wfhrbfg3nvhnXfgCj/aIiJVulyBoXyCty047GW42NhYduzYQWJiIkePHmXlypWk\npKTw1FNPVawTFxdXab5Ramoq0dHRzJ8/n9DQUHJzc8nNzeXMmTOVtm0YBsuWLWPUqFF4elY+BQMG\nDOCuu+7i4Ycf5qOPPuLEiRN89tlnxMfHV9vjqbi4GKvVyp49eygqKuLkyZNYrVaOHj1qozMi4ho+\n/dS83Pbee/Dmm/DRR0qURMTBGQ5sw4YNRvfu3Q1vb2+ja9euxtKlSyt9PmrUKCMsLKziff/+/Q1P\nT89LXjExMZXGpaenG56ensbhw4cvu9+CggLj6aefNn79618bXl5eRocOHYyoqCjj22+/rTLW48eP\nGx4eHpfs++L4fik/P98AjPz8/JqcDhGnVlBgGBMnGgYYxt13G8aRI/aOSERcmS2/Yx22z5I7UJ8l\ncRdbtkBMDJw6BUlJ5vPdPB22ri0irsAt+iyJiPM7fx5iY6FfP7jxRrBaYdIkJUoi4lwcdoK3iDi3\nbdvMalJ2NsybB08/DfXq2TsqEZHa07/vRMSmfv4ZnnnGfJ7br34Fe/bAlClKlETEeamy5ADK+yyp\nt5I4ux07YNQoOH4cZs9WkiQi1195zyVb9lnSBG870gRvcRUXLsCLL5qX23r1guXL4Rc9ZUVEritb\nfseqsiQidfLFF+bjSY4ehVmzzEtw9fWbRURciOYsichVKSyEuDi4807w8YEvv4Tp05UoiYjr0a81\nEam1L780q0lffw0vvwzPPQcNGtg7KhGRa0OVJRGpsaIimDED7rjDTI527YLnn1eiJCKuTZUlEamR\n3bvNO90OHoQXXoA//UlJkoi4B1WWRKRaxcXw0ksQGmq+/+ILM1lSoiQi7kKVJRGpktVqVpP27TMn\nc8fHQ8OG9o5KROT6UrLkANSUUhxNcbHZVPLll6FLF9i50+yfJCLi6NSU0sWoKaU4ov37zWrS7t1m\nK4AXXgAvL3tHJSJSO7b8jtWcJREBoKQEEhPNCtLPP5uPLpk1S4mSiIiSJRHh4EHo08eckxQba/ZR\n6t3b3lGJiDgGJUsibqy0FObMgeBgOHMGPvsMkpKgUSN7RyYi4jiULIm4qa++gr59zXlJEyeac5Tu\nuMPeUYmIOB4lSyJuprQU5s+Hnj3hhx9g61aYOxe8ve0dmYiIY1KyJOJGvv4a7rkHnn0WnnwS9uwx\n5yqJiEjVlCyJuIGyMnjtNQgMhNxcyMiABQvAx8fekYmIOD41pXQAakop19KRIzB6NGzZApMmwauv\nQuPG9o5KROTaUFNKF6OmlHItlZXBm2+aE7jbtIF33oH+/e0dlYjI9aGmlCJSrWPH4N57zUpSTAzs\n3atESUTkailZEnEhZWWQnAw9esDx4/Dxx/DGG9Ckib0jExFxXkqWRFzE8eNw//3mXW4jRsC+fWZ1\nSURE6kbJkoiTMwx4+23o3h0OH4b0dHjrLWja1N6RiYi4BiVLIk7sm2/gN7+B8eMhMhL27zerSyIi\nYjtqHSDihAzDvLstNhaaNYONG+GBB+wdlYiIa1Ky5ADUZ0lq49tvYexY+PBD8063BQugRQt7RyUi\n4hjUZ8nFqM+S1IZhwPLlMHmy2VRyyRIYNMjeUYmIOCb1WRJxM6dOweDBZiXpd78z5yYpURIRuT4c\nOlk6deoUUVFR+Pr64uPjQ2BgIJmZmVWuv3btWsLDw2ndujXNmzenT58+pKen13m7NZGTk8Pjjz/O\nbbfdRr169ZgyZUqdticCZjXp//0/uP12+PJLWLfOrC61bGnvyERE3IfDJkt5eXlYLBa8vLzYtGkT\nhw4dYv78+bSs5lti8+bNhIeHs3HjRjIzMwkLC2Pw4MFYrdY6bbcmCgsLad26NfHx8fTs2bNO2xIB\nyMmBhx+GkSPht7+FAwfM6pKIiFxfDjtnafr06Wzfvp2MjIw6badbt25ERkYSHx9f4+0WFRURFxdH\nWloaeXl5dO/enaSkJPr161ejfYaFhREUFMSCBQuqXU9zluRyDANSU2HiRKhf3+yZ9Mgj9o5KRMS5\nuMWcpfXr1xMSEkJERARt2rQhODiYlJSUWm3DMAzOnj1Lq1atarXdCRMmsHPnTlatWsW+fft49NFH\nGThwIEePHrXJsYlUJTcXhgyBxx+H8HCzmqRESUTEvhw2WTp27BjJycl06dKF9PR0xo8fz6RJk1ix\nYkWNtzF37lzOnTtHREREjbebnZ3NsmXLeP/99+nTpw/+/v5MmTIFi8XCu+++a/PjFCn3t7+Zc5O2\nbIH33zerS76+9o5KREQcts9SWVkZoaGhJCQkABAYGMiBAwdITk5mxIgRVxy/cuVKEhISWLduHb4X\nfeNcabv79u2jtLSUW2+9lYuvUBYVFXHDDTcA0PS/z5Hw8PBgxIgRLF682GbHLe7n9GnzeW6rV8PQ\nofDmm9C6tb2jEhGRcg6bLLVt25aAgIBKywICAlizZs0Vx6alpTFu3DhWr15NWFhYrbZbUFBA/fr1\nyczMxNOzcuGtyX8f3X7xhHFbzDUqb0p5MTWodA+rV5uJUlmZWVm6qAgqIiI1VN6I8mK2bErpsMmS\nxWIhKyur0rKsrCw6dOhQ7bjU1FTGjBlDWloaD1zm+Q9X2m5QUBClpaXk5uZisVguu4+OHTvW5lCu\nKC0tTRO83cx//gNPPWUmSI88AsnJ0KaNvaMSEXFOlyswlE/wtgWHTZZiY2OxWCwkJiYSERHBzp07\nSUlJYcmSJRXrxMXFcfLkSZYvXw6YiVJ0dDSLFi0iNDSU3NxcALy9vSuSkSttt3PnzgwfPpyRI0cy\nb948goKC+P777/nkk08IDAxk4MCBVcZstVoxDIOCggJOnz6N1WqlYcOGl1SyxL2tXWs++La4GP76\nVxg2DDw87B2ViIhUyXBgGzZsMLp37254e3sbXbt2NZYuXVrp81GjRhlhYWEV7/v37294enpe8oqJ\nianVdktKSoyZM2caHTt2NLy8vAw/Pz9jyJAhxv79+6uN18PD45J9+/v7V7l+fn6+ARj5+fk1PSXi\nxH74wTAef9wwwDAGDzaMU6fsHZGIiOuy5Xesw/ZZcgfqs+Q+1q2DP/wBLlyARYtgxAhVk0REriW3\n6LMk4gp++snswP2730GvXmbfpKgoJUoiIs7EYecsiTi7DRtg3DgoKIB334XoaCVJIiLOSJUlERvL\ny4PRo+HBB6FHD7OaNGqUEiUREWelypKIDX34IYwZA2fOQEqKmTQpSRIRcW5KlhxAeVNKNaJ0XmfO\nwNSpZoJ0//3mf2+6yd5RiYi4n/IGlbZsSqm74exId8O5ho8+gieeMCdzz58PY8eqmiQiYm+6G07E\nAZw9azaXDA+Hzp1h3z5zQrcSJRER16LLcCJX4ZNPzPlI//mP+eDb8ePBU//0EBFxSfr1LlILBQUw\nYQLcdx/cfDPs3Ws+CFeJkoiI61JlSaSGMjIgJgZyc+HPf1aSJCLiLvSrXuQKzp2DSZOgf39o1w6s\nVnjqKSVKIiLuQpUlkWps2WJWk06dgoULzaRJSZKIiHvRr32Ryzh/HmJjoV8/aNMG9uyByZOVKImI\nuCNVlhyAmlI6ls8+Mx9P8s03MHeumSTVq2fvqEREpCbUlNLFqCmlY/n5Z3jhBbOxZGgoLFsGt91m\n76hERORq2PI7VpUlEWDnTrOadOwYJCWZjy5RNUlEREBzlsTNXbgA06ZBnz7QpAns3g3PPadESURE\n/o8qS+K2Lq4mvfIKPPss1NdPhIiI/IIqS+J2fllNysyEP/1JiZKIiFyevh7ErXz+uVlNOnIEEhLM\nS25KkkREpDqqLIlbuHABpk+Hu+4CHx+zmhQXp0RJRESuTF8VDkB9lq6tL74wq0mHD6uaJCLi6tRn\nycWoz9K1VVgIM2fCnDkQFGT2TerWzd5RiYjI9aA+SyJXcHE16eWXzWpSgwb2jkpERJyR5iyJSyks\nNOci3XUXNGoEX34Jzz+vRElERK6eKkviMnbtMqtJX39tXn6bNk1JkoiI1J0qS+L0CgvN6tGdd0LD\nhmbSFB+vRElERGxDlSVxal9+aVaTsrLgxRfN9gBKkkRExJZUWRKnVFhoVo/uuMNsA7BrF8yYoURJ\nRERsT5UlcTrl1aSvvoIXXjAfVaIkSURErhUlSw5ATSlrpqjIbCqZmAjdu5vVpMBAe0clIiKORE0p\nXYyaUtZcZqZZTTp0yLz8FhenapKIiFTNlt+xmrMkDq2oyJyLFBoKnp5ms8kXX1SiJCIi149DJ0un\nTp0iKioKX19ffHx8CAwMJDMzs8r1165dS3h4OK1bt6Z58+b06dOH9PT0Suu89NJLeHp6Vnp17dq1\nzrEePHiQoUOH4u/vj6enJ4sWLarzNt1dZiaEhEBSkllN+vxz6NnT3lGJiIi7cdhkKS8vD4vFgpeX\nF5s2beLQoUPMnz+fli1bVjlm8+bNhIeHs3HjRjIzMwkLC2Pw4MFYrdZK63Xr1o3c3FxycnLIyclh\n69atdY73/PnzdOrUidmzZ9O2bds6b8+dFRWZ1aM77vi/atLMmWYPJRERkevNYSd4JyUlcdNNN5GS\nklKxrEOHDtWOWbhwYaX3s2bN4n//939Zv349gRfNBK5fvz433HBDldvJz89n6tSprFu3jsLCQnr3\n7s2CBQvo0aNHlWNCQkIICQkBYNq0adXGKVXbvducm3TwoNloMi5OSZKIiNiXw1aW1q9fT0hICBER\nEbRp04bg4OBKiVNNGIbB2bNnadWqVaXlhw8fpl27dnTq1IkRI0aQnZ1d6fOhQ4fyww8/sGnTJjIz\nMwkODmbAgAHk5eXV+bjk8sqrSaGh5vvPP1c1SUREHIPDJkvHjh0jOTmZLl26kJ6ezvjx45k0aRIr\nVqyo8Tbmzp3LuXPniIiIqFh25513smzZMjZt2sRbb73Fv//9b+6++27OnTsHwNatW9m1axerVq0i\nKCiITp06MWfOHJo3b87q1attfpwCe/aYSdKrr5qVpC++gKAge0clIiJictjLcGVlZYSGhpKQkABA\nYGAgBw4cIDk5mREjRlxx/MqVK0lISGDdunX4+vpWLP/Nb35T8f/dunUjNDSUDh06sGrVKmJiYti7\nd+9lq1EXLlzg6NGjZGdnV0wI9/DwIC4ujunTp9vikN1OUZGZIM2aBQEBZjVJSZKIiDgah02W2rZt\nS0BAQKVlAQEBrFmz5opj09LSGDduHKtXryYsLKzadZs3b86tt97KkSNHACgoKMDPz4+MjAx+2YKq\nRYsWtGjRotKE8V8mVVejvCnlxVy9QaXVCtHRsH+/WU2Kj9clNxERuTrljSgvZsumlA6bLFksFrKy\nsioty8rKuuIk79TUVMaMGUNaWhoPPPDAFfdTUFDA0aNHGTlyJADBwcHk5ORQr149brrppsuO6dix\nYw2PombS0tLcpillcbFZTXrllf+rJgUH2zsqERFxZpcrMJQ3pbQFh52zFBsby44dO0hMTOTo0aOs\nXLmSlJQUnnrqqYp14uLiiI6OrnifmppKdHQ08+fPJzQ0lNzcXHJzczlz5kzFOs8++yybN2/mxIkT\nfPbZZzzyyCMVjxoBGDBgAHfddRcPP/wwH330UcV68fHx1fZ4Ki4uxmq1smfPHoqKijh58iRWq5Wj\nR49eg7PjnKxWc25SQgJMn24+rkSJkoiIODzDgW3YsMHo3r274e3tbXTt2tVYunRppc9HjRplhIWF\nVbzv37+/4enpeckrJiamYp3IyEijXbt2RqNGjYz27dsbw4YNM44dO1ZpuwUFBcbTTz9t/PrXvza8\nvLyMDh06GFFRUca3335bZazHjx83PDw8Ltn3xfH9Un5+vgEY+fn5tT01TqWoyDBeeskw6tc3jG7d\nDGPXLntHJCIirs6W37F6NpwducOz4fbuNfsm7d1rVpNmzAAvL3tHJSIirk7PhhOHV1xsXm4LCTHv\netuxw5ynpERJREScjcNO8BbntXcvxMSYc5SmTYMXXlCSJCIizkuVJbGZi6tJhYVmNWnWLCVKIiLi\n3FRZcgDlfZacubfSvn3m3KQ9e8xq0osvKkkSEZHrr7znki37LGmCtx25wgTv4mKYMwdeegk6d4Zl\ny6B3b3tHJSIi7s6W37GqLMlV27/f7MK9Zw8895xZTWrUyN5RiYiI2JbmLEmtlZSYc5GCg+Hnn2H7\ndkhMVKIkIiKuSZUlqZX9+825Sbt3w7PPwsyZSpJERMS1qbIkNVJSYj7TrVcvOH8ePvsMkpKUKImI\niOtTZUmu6MABs5qUmalqkoiIuB9VlqRKJSXmXKTgYCgoUDVJRETck5IluayDB6FPH4iPh8mTzTlK\nd9xh76hERESuP12GcwCO1JSypATmzTPbAHTsCNu2wZ132jUkERGRGlNTShfjaE0pDx40n+m2axdM\nnWo2mvT2tndUIiIitWfL71hdhhNKSmD2bAgKgvx82LrV7MqtRElERETJkts7dAgsFvjTn2DSJHNu\n0l132TsqERERx6FkyU2VlprVo6AgyMsz5ybNnatqkoiIyC8pWXJDX31lVpOmT4ennjKf7aZqkoiI\nyOUpWXIjpaVm9ahnT/jpJ3Nu0rx5qiaJiIhUR8mSm/jqK+jbF6ZNgwkTzGpSnz72jkpERMTxKVly\ncRdXk374AbZsgfnzVU0SERGpKTWldADXqillVpbZN2nHDrML9yuvgI+PzTYvIiLicNSU0sVcq6aU\npaXw2mvmo0p+/Wt4913zEpyIiIi7UFNKqVJWFtx9Nzz7LIwfD1arEiUREZG6ULLkIkpLzblIPXvC\n6dOweTMsXKjLbiIiInWlZMkFfP013HOPWU36wx9UTRIREbElJUtOrLQUFiyAwEDIzYWMDHOukqpJ\nIiIitqNkyUl9/TX06wfPPGNWk/buNecqiYiIiG0pWXIypaXmXKTAQPjuO/j0U1WTREREriUlS07k\n8GGzmjRlCowbZ1aT7rnH3lGJiIi4NjWldABXakpZVgaLFkFcHLRta85NUpIkIiJyKTWldDE1aZh1\n5IjZhXvrVpg4ERIToXHj6xyoiIiIk3GbppSnTp0iKioKX19ffHx8CAwMJDMzs8r1165dS3h4OK1b\nt6Z58+b06dOH9PT0KtdPTEzE09OTKVOm1DnWgwcPMnToUPz9/fH09GTRokV13uZPP0GvXnDqlDk3\nadEiJUoiIiLXm8MmS3l5eVgsFry8vNi0aROHDh1i/vz5tGzZssoxmzdvJjw8nI0bN5KZmUlYWBiD\nBw/GarVesu4XX3zBkiVLCAwMtEm858+fp1OnTsyePZu2bdvaZJstW0JqKsTHp9Kvn0026RZSU1Pt\nHYLT0LmqHZ2v2tH5qh2dr9q5nufLYZOlpKQkbrrpJlJSUujVqxcdOnRgwIAB+Pv7Vzlm4cKFPPPM\nM/Tq1YtOnToxa9YsOnfuzPr16yutV1BQwIgRI0hJSaFFixaXbCc/P58xY8ZUVKgGDBjA3r17q403\nJCSE2bNnExERQcOGDa/uoC9j0CBYu1Y/QLWhXzg1p3NVOzpftaPzVTs6X7WjZAlYv349ISEhRERE\n0KZNG4KDg0lJSanVNgzD4OzZs7Rq1arS8gkTJjB48GDuvffey44bOnQoP/zwA5s2bSIzM5Pg4GAG\nDBhAXl7eVR+PiIiIOCeHTZaOHTtGcnIyXbp0IT09nfHjxzNp0iRWrFhR423MnTuXc+fOERERUbEs\nLS2NPXv2kJiYeNkx27ZtY9euXaxatYqgoCA6derEnDlzaN68OatXr67zcV1vdcm8nXFsXTnjMdvr\nfNV1vzpf12esvfdtj/0667m2136dcez15rDJUllZGb169SIhIYHAwEDGjRvH2LFjSU5OrtH4lStX\nkpCQwPvvv4+vry8A3377LZMnT2bFihU0aNDgsuOsVmtFNapp06YVr+PHj3P06FGys7MrljVr1oyk\npCSbHfO14Iw/BEqWrt/YunDWL3BnPF/Oeq7rwln/fuh8XZ+x15vD9llq27YtAQEBlZYFBASwZs2a\nK45NS0tj3LhxrF69mrCwsIrlX375JadPn6ZXr16Ud0woLS1l8+bNvPHGGxQWFlJQUICfnx8ZGRn8\nsqtCixYtaNGiRaUJ47+8xFcb5dsfMmTIJcnb0KFDGTp0KAAlJSWcOXPmqvbhbmPtuW+NdY59u9tY\ne+7b3cbac9/uNvaX41evXn3J1Z/i4mKAS77Lr4rhoIYPH27cc889lZZNnjzZsFgs1Y5buXKl4ePj\nYxY9Gy8AABRnSURBVKxbt+6SzwoKCowDBw5UevXu3dsYOXKkcfDgQcMwDOOjjz4yGjRoYJw4ceKq\nY7/55puN119//YrrZWdnG4Beeumll1566XWNXtnZ2Vf9fV7OYStLsbGxWCwWEhMTiYiIYOfOnaSk\npLBkyZKKdeLi4jh58iTLly8HzJJedHQ0ixYtIjQ0lNzcXAC8vb1p1qwZjRs3pmvXrpX207hxY371\nq19VVLEGDBjAXXfdxcMPP8zs2bO59dZbOXnyJB988AG///3vCQ4Ovmy8xcXFHDx4EMMwKCoq4uTJ\nk1itVpo0aUKnTp0uO8bPz6/isp6Hh0edz5mIiIiYjP/e5OXn51fnbTl0B+8PPviA6dOnc+TIEfz9\n/Zk6dSqjR4+u+DwmJoYTJ07wySefABAWFsbmzZsv2U50dDTvvPPOZfdx77330rNnTxYsWFCx7Ny5\nczz//PP8z//8D6dPn+bGG2/knnvuITExkXbt2l12OydOnMDf3/+SpKdfv34V8YmIiIjzcehkSURE\nRMTeHPZuOBERERFHoGRJREREpBpKlhzYm2++ib+/P97e3tx555188cUX9g7punvppZfw9PSs9Lp4\nkn5hYSETJkzA19eXpk2bMnToUL7//vtK28jOzua3v/0tjRs35sYbb+S5556jrKzseh/KNbFlyxYe\neugh2rVrh6enJ+vWrbtknRdeeAE/Pz98fHy4//77OXLkSKXPf/rpJx5//HGaN29Oy5YtGTNmDOfO\nnau0zt69e7nnnnvw9vamQ4cOzJ0795oe17VypfMVExNzyd+3QYMGVVrHXc5XYmIioaGhNGvWjDZt\n2vDII4/w9ddfV1rHVj9/n376/9u785iorrcP4N/LOohlE2HQAoKIiFIXqqyiFhRcWqtWa4sabI0C\nEqQuhGCb2jT91SVqXbC2NtatiSsWF6RYdEQUFAXEDUWFoK2DgsAUQcDhef8w3LcjMILAMJXnk5AM\n95x75pwn58rjXc6Vwd3dHRKJBM7OzuJDO/8lLYnX6NGjVeaWrq4uwsPDVep0lXht3boVgwcPhqmp\nqfji+6SkJLFc6+ZWm5+nYx1i7969ZGhoSDt37qSbN2/S/PnzydzcnB4/ftzZXdOoFStWkJubGz16\n9IiKi4upuLiYSktLxfLQ0FCyt7cnmUxGWVlZ5OXlRb6+vmK5UqmkQYMG0bhx4yg3N5eSkpKoZ8+e\ntHz58s4YTrs7ceIEffXVV3T48GHS0dGhhIQElfKVK1eSubk5HTlyhK5evUqTJ08mR0dHqqmpEesE\nBQXR0KFDKTMzk86dO0f9+vWj4OBgsVyhUJBUKhWX2Ni3bx9169aNtm3bprFxtpdXxSskJIQmTJig\nMt/Ky8tV6nSVeI0fP5527dpFN27coNzcXJo4cSLZ29tTVVWVWKc9jr+CggIyNjamZcuWUV5eHm3e\nvJn09PQoOTlZo+Ntq5bEa/To0bRgwQKV+fXPP/+I5V0pXseOHaMTJ05Qfn4+5efn0/Lly8nAwEBc\nxkfb5hYnS1rKw8ODIiMjxd/r6+upd+/etGrVqk7sleatWLGChg4d2mRZRUUFGRgYUHx8vLgtLy+P\nBEGgCxcuEBFRYmIi6enpqSSZW7duJTMzM6qrq+vYzmuYIAiN/vjb2NjQunXrxN8rKipIIpHQvn37\niIjoxo0bJAgCZWVliXWSkpJIV1eXHj58SEREW7ZsoR49eqjEKyYmhgYMGNCRw+lwTcUrJCSEpkyZ\n0uw+N2/e7LLxevz4MQmCQGfPniWi9jv+oqOjyc3NTeW7Zs6cSePHj+/oIXWol+NF9CJZ+uKLL5rd\npyvHi4jIwsKCtm/frpVziy/DaaG6ujpcvnwZ/v7+4jZBEBAQEID09PRO7FnnyM/PR+/evdG3b1/M\nmjUL9+/fB/BiRfbnz5+rxKl///6ws7MT45SRkQE3NzfxlTcAEBgYiIqKCly/fl2zA9GwgoICyOVy\nlfiYmJjAw8NDJT7m5uYYOnSoWCcgIACCIODChQtiHT8/P+jp/f+ybIGBgbh16xYqKio0NBrNkclk\nsLa2houLC8LDw/HkyROxLD09vcvGq7y8HIIgiG8taK/jLyMjAwEBASrfFRgY+J//t+7leDX47bff\n0LNnT7i5uSE2NhbV1dViWVeNV319Pfbu3Yuqqip4eXlp5dziZEkLlZSUQKlUwtraWmW7tbU15HJ5\nJ/Wqc3h6emLHjh34448/sHXrVhQUFMDPzw9Pnz6FXC6HgYEBTExMVPb5d5zkcnmTcWwoe5PJ5XII\ngqB2HsnlclhZWamU6+rqwsLCokvGcPz48di1axdOnTqF1atX48yZM5gwYYL4uoSuGi8iQlRUFHx9\nfcV7Btvr+GuujkKhQE1NTYeMp6M1FS8ACA4Oxp49eyCTyRAbG4vdu3dj9uzZYnlXi9e1a9fw1ltv\nwdDQEOHh4Th8+DBcXFy0cm5p7QrerDEi6nIrfQcGBoqfBw0ahBEjRsDe3h779++HRCJpcp+Wxqmr\nxbJBS+LzqjoNycObFsMZM2aInwcOHAg3Nzf07dsXMplM5T2TL3vT4xUeHo4bN24gLS3tlXXb4/h7\nU+J17tw5le3z5s0TPw8cOBBSqRT+/v4oKCiAg4OD2jbfxHi5uLjgypUrKC8vx6FDhzBnzpwmF5Zu\n0Jlzi88saSFLS0vo6uqKr2tp8OjRo0ZZcldjamoKZ2dn3LlzB1KpFLW1tY1exPjvOEml0kZxbPj9\nTY+lVCoFEamdR1KptNETJkqlEmVlZZBKpWKdptoA3vwYOjg4wNLSUnyCsCvGKyIiAomJiZDJZCqv\njWjr8feqeJmYmMDAwKDdx9PR/h0vGxsbtXU9PDwAQGV+daV46enpwdHREcOGDcN3332HwYMHY8OG\nDVo5tzhZ0kL6+vpwd3dHSkqKuI2IkJKSAm9v707sWeerrKzE3bt30atXL7i7u0NPT08lTrdv30ZR\nUZEYJy8vL1y9ehUlJSVineTkZJiamjZ6T+CbxsHBAVKpVCU+CoUCFy5cUIlPeXk5srOzxTopKSkg\nIowYMUKsk5qaCqVSKdZJTk5G//79YWpqqqHRdI4HDx6gtLRU/KPX1eIVERGBhIQEnD59GnZ2dipl\nbT3+Gt7H6eXlpdJGQx0vL6+OGlaHURevpmRnZ0MQBJX51ZXi9bL6+nrU1NRo59xq9S3hTCP27dtH\nEolEZekACwsLevToUWd3TaOWLl1KZ86cocLCQjp37hwFBASQlZUVlZSUEBFRWFgY9enTh06fPk2X\nLl0ib2/vRo+XvvPOOxQUFERXrlyhpKQksrKyoi+//LKzhtSuKisrKScnh7Kzs0kQBFq/fj3l5ORQ\nUVERERGtWrWKLCws6MiRI5Sbm0uTJ08mJycnlaUDxo8fT+7u7nTx4kVKS0sjZ2dnmjVrllheUVFB\nNjY2NGfOHLp+/Trt3buXjI2N6ZdfftH4eNtKXbwqKytp2bJllJGRQYWFhfTnn3+Su7s7ubi4UG1t\nrdhGV4lXWFgYmZmZUWpqKsnlcvGnurpapU5bj7+Gx7ujo6MpLy+P4uLiSF9fn06ePKnR8bbVq+J1\n9+5d+vbbb+ny5ctUWFhICQkJ1LdvXxozZozYRleKV2xsLJ09e5YKCwvp6tWrFBMTQ7q6upSSkkJE\n2je3OFnSYnFxcWRvb08SiYQ8PT0pMzOzs7ukcTNnzqTevXuTRCIhW1tb+uSTT+jevXti+bNnzygi\nIoJ69OhB3bt3p48++oiKi4tV2igqKqKJEyeSsbExWVlZUXR0NCmVSk0PpUPIZDISBIF0dHRUfubO\nnSvW+frrr8nGxoaMjIxo3LhxlJ+fr9JGWVkZBQcHk4mJCZmZmdG8efPo6dOnKnVyc3PJz8+PjIyM\nyNbWltasWaOR8bU3dfGqrq6mwMBAsra2JkNDQ3JwcKDQ0NBG/0HpKvFqKk46Ojq0c+dOsU57HX8y\nmYyGDRtGEomEnJycaNeuXRoZY3t6Vbzu379Po0aNIktLSzIyMiJnZ2eKiYlRWWeJqOvE6/PPPycH\nBweSSCRkbW1NY8eOFRMlIu2bW/wiXcYYY4wxNfieJcYYY4wxNThZYowxxhhTg5MlxhhjjDE1OFli\njDHGGFODkyXGGGOMMTU4WWKMMcYYU4OTJcYYY4wxNThZYowxxhhTg5MlxhhjjDE1OFlijDHGGFOD\nkyXGGGOMMTU4WWKMsdeUnZ0NPT09LFq0SGV7nz59oKOjo/IjkUhgb2+PmTNnIi0trV2+X6FQwNLS\nEt7e3u3SHmOsafwiXcaY1jl8+DC++eYbFBYWQqFQQCKRwNXVFTo6OiAilJeXo7a2FuPGjUNsbCwc\nHBw6pZ8jR47ElStXcO/ePVhaWorbHRwcUFRUBB8fHzg5OQEAysvLcenSJTx48ACCIGDt2rWIiopq\ncx/Wrl2L6Oho7NixA7Nnz25ze4yxJhBjjGmpVatWkY6ODq1du7ZRWX5+Prm6upKFhQXl5eVpvG8H\nDhwgQRAoJiamUVmfPn1IR0eHdu7cqbK9traWQkJCSBAE0tfXp/z8/Db349mzZ2RlZUW9e/em2tra\nNrfHGGuML8MxxrRWamoqACAoKKhRmZOTE+bPn4+ysjKsWbNG013D+vXrIQgCPvvssxbvo6+vj82b\nN8PY2BhKpRLx8fFt7oehoSE+/fRTPHz4EPv27Wtze4yxxjhZYoxppfr6eqSlpcHGxgaurq5N1qmq\nqgIAlJWVabJryMnJQXp6Ory8vNCvX79W7WtsbIz+/fsDAAoLC1XKMjMzER0dDQ8PD9jY2MDQ0BBS\nqRQffPABUlJSmm0zJCQERIS4uLhWj4Ux9mqcLDHGtNLly5ehUCgQEBDQbJ3k5GQIgoD33ntPgz0D\nfv/9dwiCAH9//9faX6FQAHhxVujfYmNjsX79etTU1ODdd9/FlClTYGtri+PHj2Ps2LHYtGlTk+0N\nHjwYPXv2xMWLFyGXy1+rT4yx5nGyxBjTSqdPn4YgCBg7dmyT5ampqThz5gxGjhyJsLAwjfbt1KlT\nAAAvL69W75ubm4t79+4BAIYMGaJStnTpUjx48AA5OTk4evQo9u7di8zMTJw/fx4mJiZYtmwZHj58\n2GS7DX1p6BtjrP1wssQY00oNf/RfPntTW1uLPXv2YPr06QgLC0NycjJ0dDT7T1l2djYAYMCAAS3e\nR6FQIDExEdOmTUN9fT169eqFGTNmqNQJDAyEtbV1o309PDywcOFC1NXVISEhocn2Bw4cCCJCVlZW\nK0bCGGsJvc7uAGOMvUypVOL8+fMwNjbG4sWLQUQQBAHPnz+HUqmEu7s70tPT4ejoqPG+VVdX4+nT\npxAEAT169FBbNyQkBCEhISrbBEFAv379cOjQIRgZGTXa58mTJzh+/DiuXbuGsrIy1NXVAQDy8/MB\nALdu3Wryuxr6Ulxc3NohMcZegZMlxpjWyczMRGVlJYKDg7F79+7O7o6K8vJy8XP37t3V1vX19RXX\nWTIwMICVlRU8PT0RFBTU5Nmwbdu2YfHixWIy1pSG+51eZmJiAkDzN7sz1hVwssQY0zoN9yv5+vp2\ndlcaMTMzEz9XVlaqTZjmzZuHOXPmtKjdrKwshIaGQk9PD2vWrMGkSZNgZ2cnnn3atm0bFixYAGpm\nHeGKigoAgLm5eUuHwhhrIU6WGGNap+F+pZEjR3ZyTxozMjKCsbExqqqqUFpa+sqzSy114MABAEBk\nZCSWLFnSqPz27dtq9y8tLQWAJu95Yoy1Dd/gzRjTKnV1dUhPT4eFhUWz6yv926ZNmxAVFYWff/5Z\n3Pbxxx/j9OnTAID3338fGzZsEMtSU1OxaNEixMXFYcuWLfDx8Wl1H4cNGwYAuHHjRqv3bc6TJ08A\nAHZ2do3KampqEB8f3+ylOQC4du0aBEGAu7t7u/WJMfYCJ0uMMa1y4cIFVFVVteis0tGjR+Hj4wM3\nNzckJycDeJFsHTt2DLa2tgCAUaNGiTdHnz17FuHh4fjf//6HhQsX4u+//36tPo4ZMwZEhPT09Nfa\nvykDBgwAEWHnzp2orKwUt9fU1CAsLKzRApYvy8jIAACNrznFWFfAyRJjTKskJiYCADw9PV9Z18LC\nAsOGDcPBgwcxdepUAC9uDjc3NxdvrJ4xY4Z4hio0NBSRkZEwNjYG8OI+n9GjR7e6jx9++CEA4OTJ\nk63etzlz586Fvb09srOz4eDggKlTp2L69Omwt7dHfHw8Fi1a1Oz9Sjk5OSgpKYGHhwdfhmOsA3Cy\nxBjrdM+fP4enpyecnJywevVqCIKAlStXYujQoTh48GCz+/n4+KCkpAQZGRmYNm0aACAtLU0lAbpz\n5w78/f2RmZmJvLw8TJo0SSyTyWSvlSwNGTIE3t7euHjxYrOP8qu7ZNYUU1NTXLp0CeHh4TA3N0dS\nUhIyMjIQFBSErKwsDB48GIIgNNnur7/+CkEQsHDhwlaPhTH2agI1918Vxhj7D0hISMCPP/6IpKQk\nAMDMmTPh7e2NyMhIAMAPP/yAqKgo7N+/H1FRUeKlt5KSErz99tt48uQJrly50urVuA8dOoTp06dj\nyZIlnfIi3wY1NTWwtbWFgYEBCgoKoK+v32l9YexNxWeWGGP/aQYGBuITaUSEa9euiY/P//XXX+Jl\nKVdXV5W1jdatWwdXV1d069YN58+fb/X3Tps2DT4+Pvjpp5/w+PHjdhjJ69m4cSNKS0uxcuVKTpQY\n6yB8Zokx9p9WX1+PiIgIODk5oa6uDu7u7ti+fTv8/PxARCrvjfv222+hr68PiUSC4cOH4/vvv4eH\nhwfmzJkDe3v7Vn93Tk4Ohg8fjrCwMGzcuLE9h9UiCoUCjo6OcHZ2fq2EjzHWMpwsMcYYY4ypwZfh\nGGOMMcbU4GSJMcYYY0wNTpYYY4wxxtTgZIkxxhhjTA1OlhhjjDHG1OBkiTHGGGNMDU6WGGOMMcbU\n4GSJMcYYY0wNTpYYY4wxxtTgZIkxxhhjTA1OlhhjjDHG1OBkiTHGGGNMjf8DvD8MNyi2pwgAAAAA\nSUVORK5CYII=\n",
      "text/plain": [
       "Graphics object consisting of 1 graphics primitive"
      ]
     },
     "execution_count": 43,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_epsilon.subs(eq_rhoa).show()\n",
    "P = plot(eq_epsilon.rhs().subs(eq_rhoa).subs(cdict)(P_a = 101325), (P_wa, 0, 3000))\n",
    "P.axes_labels(['$P_{wa}$ (Pa)', '$\\epsilon$'])\n",
    "P"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "### Relationships between resistances and conductances\n",
    "As opposed to the formulations in Section {sec:enbal}, where sensible and latent heat transfer coefficients ($h_c$ and $g_{tw}$ respectively) translate leaf-air differences in temperature or vapour concentration to fluxes, resistances in the PM equation are defined in the context of \\citep[Eqs. 13.16 and 13.20]{monteith_principles_2013}:\n",
    "##### {eq_El_MU}\n",
    "\\begin{equation}\n",
    "E_l = \\frac{a_s \\lambda_E\\rho_a\\epsilon}{P_a (r_v + r_s)} (P_{wl} - P_{wa})\n",
    "\\end{equation}\n",
    "and \n",
    "##### {eq_Hl_MU}\n",
    "\\begin{equation}\n",
    "H_l = \\frac{a_{sh} \\rho_a c_{pa}}{r_a}(T_l - T_a),\n",
    "\\end{equation}\n",
    "where $r_v$ and $r_s$ are the one-sided leaf boundary layer and stomatal resistances to water vapour respectively, and $r_a$ is the one-sided leaf boundary layer resistance to sensible heat transfer. Note that the introduction of $a_s$, $a_{sh}$ and $r_s$ in Eqs. {eq_El_MU} and {eq_Hl_MU} is based on the description on P. 231 in \\citet{monteith_principles_2013}, where the authors also assumed that $r_v \\approx r_a$.\n",
    "\n",
    "Comparison of Eq. {eq_El_MU} with Eq. {eq_Elmol} (after substitution of Eqs. {eq_Cwl} and {eq_Cwa} and insertion into Eq. {eq_El}), assuming isothermal conditions ($T_l = T_a$) and substituting Eq. {eq_epsilon} reveals that \n",
    "##### {eq_rv_gbw}\n",
    "\\begin{equation}\n",
    "r_v = a_s/g_{bw},\n",
    "\\end{equation}\n",
    "while comparison of Eq. {eq_Hl_MU} with Eq. {eq_Hl} reveals that\n",
    "##### {eq_ra_hc}\n",
    "\\begin{equation}\n",
    "r_a = \\frac{\\rho_a c_{pa}}{h_c}.\n",
    "\\end{equation}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 44,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} a_{\\mathit{sh}} h_{c}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*a_sh*h_c"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "C_wl == P_wl/(R_mol*T_l)"
      ]
     },
     "execution_count": 44,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# According to Eq. 13.20 in Monteith_principles_2013, rho_a*c_pa/r_H = h_c, while he states below Eq. 13.32 that r_H = r_v approximately. This would imply that g_bw = 1/r_w = h_c/(rho_a*c_pa). Is this true?\n",
    "eq_Hl.show()\n",
    "vdict[h_c] = h_c\n",
    "(eq_gbw_hc/(rho_a*c_pa)).subs(eq_rhoa_Pwa_Ta, eq_Le).subs(eq_alphaa, eq_Dva,eq_PN2, eq_PO2).subs(vdict)\n",
    "# However, note that r_v is used in Eq. 13.16 on the vapour pressure gradient, not on the concentration gradient as g_bw! He also uses E_l == lambda_E*rho_a*epsilon/P_a*(P_wl - P_wa)/r_v, when formulating the equation for a wet surface evaporating on one side only.\n",
    "eq_Cwl"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 45,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{wl}}\\right)} a_{s} \\epsilon \\lambda_{E} \\rho_{a}}{P_{a} {\\left(r_{s} + {r_{v}}\\right)}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*a_s*epsilon*lambda_E*rho_a/(P_a*(r_s + r_v))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left(T_{a} - T_{l}\\right)} {a_{sh}} {c_{pa}} \\rho_{a}}{r_{a}}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*a_sh*c_pa*rho_a/r_a"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 45,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El_MU = E_l == a_s*lambda_E*rho_a*epsilon/(P_a*(r_v + r_s)) * (P_wl - P_wa)\n",
    "print units_check(eq_El_MU)\n",
    "eq_Hl_MU = H_l == a_sh*rho_a*c_pa/r_a*(T_l - T_a)\n",
    "units_check(eq_Hl_MU)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 46,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -M_{w} g_{\\mathit{tw}} \\lambda_{E} {\\left(\\frac{P_{\\mathit{wa}}}{R_{\\mathit{mol}} T_{a}} - \\frac{P_{\\mathit{wl}}}{R_{\\mathit{mol}} T_{l}}\\right)}</script></html>"
      ],
      "text/plain": [
       "E_l == -M_w*g_tw*lambda_E*(P_wa/(R_mol*T_a) - P_wl/(R_mol*T_l))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El.subs(eq_Elmol).subs(eq_Cwl, eq_Cwa).show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 47,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{r_{v}} = \\frac{a_{s}}{{g_{bw}}}</script></html>"
      ],
      "text/plain": [
       "r_v == a_s/g_bw"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "second/meter == second/meter"
      ]
     },
     "execution_count": 47,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_El_MU(r_s = 0), eq_El.subs(eq_Elmol).subs(eq_Cwl, eq_Cwa)], r_v, E_l)\n",
    "eq_rv_gbw = soln[0][0](T_l = T_a, g_tw = g_bw).subs(eq_epsilon).simplify_full()\n",
    "units_check(eq_rv_gbw)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">Note that according to eq_El_MU, $r_v$ is one-sided resistance, while according to eq_Elmol, $g_{bw}$ is total conductance. Therefore, for hypostomatous leaves, they are both one-sided, whereas for amphistomatous leaves, the one -sided resistance is twice $1/g_{bw}$.</span></p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 48,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -M_{w} g_{\\mathit{tw}} \\lambda_{E} {\\left(\\frac{P_{\\mathit{wa}}}{R_{\\mathit{mol}} T_{a}} - \\frac{P_{\\mathit{wl}}}{R_{\\mathit{mol}} T_{l}}\\right)}</script></html>"
      ],
      "text/plain": [
       "E_l == -M_w*g_tw*lambda_E*(P_wa/(R_mol*T_a) - P_wl/(R_mol*T_l))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{M_{w} {\\left({P_{wa}} - {P_{wl}}\\right)} a_{s} \\lambda_{E}}{{R_{mol}} T_{a} {\\left(r_{s} + {r_{v}}\\right)}}</script></html>"
      ],
      "text/plain": [
       "E_l == -M_w*(P_wa - P_wl)*a_s*lambda_E/(R_mol*T_a*(r_s + r_v))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El.subs(eq_Elmol).subs(eq_Cwl, eq_Cwa).show()\n",
    "eq_El_MU.subs(eq_epsilon).show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 49,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}r_{s} = \\frac{a_{s}}{{g_{sw}}}</script></html>"
      ],
      "text/plain": [
       "r_s == a_s/g_sw"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "second/meter == second/meter"
      ]
     },
     "execution_count": 49,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_El_MU(r_v = 0), eq_El.subs(eq_Elmol).subs(eq_Cwl, eq_Cwa)], r_s, E_l)\n",
    "eq_rs_gsw = soln[0][0](T_l = T_a, g_tw = g_sw).subs(eq_epsilon).simplify_full()\n",
    "units_check(eq_rs_gsw)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 50,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}r_{a} = \\frac{{c_{pa}} \\rho_{a}}{h_{c}}</script></html>"
      ],
      "text/plain": [
       "r_a == c_pa*rho_a/h_c"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "second/meter == second/meter"
      ]
     },
     "execution_count": 50,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve([eq_Hl_MU, eq_Hl], r_a, H_l)\n",
    "eq_ra_hc = soln[0][0]\n",
    "units_check(eq_ra_hc)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "## Generalisation of Penman's analytical approach\n",
    "The key point of Penman's analytical solution is to formulate $E_l$ as a function of ($P_{wl} - P_{wa}$) and $H_l$ as a function of ($T_l - T_a$). We will do this by introducing general transfer coefficients for latent heat ($c_E$, W~m$^{-2}$~Pa$^{1}$) and sensible heat ($c_H$, W~m$^{-2}$~K$^{1}$):\n",
    "##### {eq_El_cE}\n",
    "\\begin{equation}\n",
    "E_l = c_E (P_{wl} - P_{wa})\n",
    "\\end{equation}\n",
    "##### {eq_Hl_cH}\n",
    "\\begin{equation}\n",
    "H_l = c_H (T_l - T_a)\n",
    "\\end{equation}\n",
    "We now define the psychrometric constant as\n",
    "##### {eq_gammav_cE}\n",
    "\\begin{equation}\n",
    "\\gamma_v = c_H/c_E\n",
    "\\end{equation}\n",
    "and introduce it into Eq. {eq_Hl_cH} to obtain:\n",
    "##### {eq_Hl_gammav}\n",
    "\\begin{equation}\n",
    "H_l = \\gamma_v c_E (T_l - T_a)\n",
    "\\end{equation}\n",
    "Introduction of the Penman assumption (Eq. {eq_Penman_ass}) allows elimination of leaf temperature:\n",
    "##### {eq_Hl_Pwl}\n",
    "\\begin{equation}\n",
    "H_l = \\frac{c_E \\gamma_v (P_{wl} - P_{was})}{\\Delta_{eTa}}\n",
    "\\end{equation}\n",
    "Eqs. {eq_El_cE}, {eq_Hl_Pwl} and the leaf energy balance equation (Eq. {eq_Rs_enbal}), form a system of three equations that can be solved for $E_l$, $H_l$ and $P_{wl}$ to yield:\n",
    "##### {eq_El_Delta}\n",
    "\\begin{equation}\n",
    "E_{l} = \\frac{\\Delta_{eTa} c_E\n",
    "{\\left({R_{s}} - R_{ll}\\right) + c_E c_{H} \\left({P_{was}} - {P_{wa}}\\right) }\n",
    "}\n",
    "{\\Delta_{eTa} c_E + c_H}\n",
    "\\end{equation} \n",
    "and\n",
    "##### {eq_Hl_Delta}\n",
    "\\begin{equation}\n",
    "H_{l} = \\frac{\n",
    "c_H \\left(R_s - R_{ll} \\right) + c_E c_H \\left(P_{wa} - P_{was}\\right)\n",
    "} \n",
    "{\\Delta_{eTa} c_E + c_H}\n",
    "\\end{equation} \n",
    "In the above, we already substituted Eq. {eq_gammav_cE} to avoid confusion about the meaning of $\\gamma_v$, which is often referred to as the psychrometric constant, but in this case, it would strongly depend on stomatal resistance and hence should not be referred to as a constant. \n",
    "\n",
    "Eqs. {eq_Hl_Delta} and {eq_Hl_cH} can now be used to get an analytical solution for leaf temperature ($T_l$):\n",
    "##### {eq_Tl_Delta}\n",
    "\\begin{equation}\n",
    "T_{l} = T_a + \\frac{\n",
    "(R_s - R_{ll}) +  c_{E} ({P_{wa}} - P_{was}) \n",
    "}\n",
    "{\\Delta_{eTa} c_E + c_H}\n",
    "\\end{equation}\n",
    "Instead of using Eqs. {eq_Hl_Delta} and {eq_El_Delta} directly, one might obtain alternative analytic solutions for $H_l$ and $E_l$ by inserting Eq. {eq_Tl_Delta} into Eq. {eq_Hl_cH} or into Eq. {eq_Pwl} and the latter into the aerdynamic formulation given in Eq. {eq_El_cE}. \n",
    "\n",
    "In the original formulations by Penman and Monteith, the term $R_s - R_{ll}$ is referred to as net available energy and for a ground surface it is represented by net radiation minus ground heat flux ($R_N - G$). For a leaf, there is no ground heat flux, and $R_N = R_s - R_{ll}$. In most applications of the analytical solutions, $R_{ll}$ is not explicitly calculated, but it is assumed that $R_N$ is known, neglecting the dependence of $R_{ll}$ on the leaf temperature. Use of Eq. {eq_Tl_Delta} to estimate steady-state leaf temperature and subsequent calculation of $H_l$ and $E_l$ as outlined above, has the advantage that missing information on $R_{ll}$ would not directly affect calculation of $H_l$ and $E_l$, but only through its effect on leaf temperature. In fact, using $T_l$ obtained from Eq. {eq_Tl_Delta} by assuming that $R_{ll} = 0$ would then enable approximate estimation of the true $R_{ll}$ by inserting $T_l$ into Eq. {eq_Rll}."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 51,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "c_H"
      ]
     },
     "execution_count": 51,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "var2('c_E', 'Latent heat transfer coefficient', joule/second/meter^2/pascal)\n",
    "var2('c_H', 'Sensible heat transfer coefficient', joule/second/meter^2/kelvin)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 52,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -{\\left({P_{wa}} - {P_{wl}}\\right)} c_{E}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*c_E"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} c_{H}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*c_H"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 52,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El_cE = E_l == c_E*(P_wl - P_wa)\n",
    "print units_check(eq_El_cE)\n",
    "eq_Hl_cH = H_l == c_H*(T_l - T_a)\n",
    "units_check(eq_Hl_cH)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 53,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} c_{E} \\gamma_{v}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*c_E*gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 53,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Introducing gamma_v = c_H/c_E into H_l\n",
    "eq_gammav_cE = gamma_v == c_H/c_E \n",
    "eq_Hl_gammav = H_l == c_E*gamma_v*(T_l - T_a)\n",
    "units_check(eq_Hl_gammav)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 54,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\Delta_{eTa}} = \\frac{{P_{was}} - {P_{wl}}}{T_{a} - T_{l}}</script></html>"
      ],
      "text/plain": [
       "Delta_eTa == (P_was - P_wl)/(T_a - T_l)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left({P_{was}} - {P_{wl}}\\right)} c_{E} \\gamma_{v}}{{\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "H_l == -(P_was - P_wl)*c_E*gamma_v/Delta_eTa"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    }
   ],
   "source": [
    "# Introducing the Penman-assumption to eliminate T_l\n",
    "eq_Penman_ass.show()\n",
    "soln = solve([eq_Hl_gammav, eq_Penman_ass], H_l, T_l)\n",
    "#for eq in flatten(soln):\n",
    "#    eq.show()\n",
    "eq_Hl_Pwl = soln[0][0]\n",
    "print units_check(eq_Hl_Pwl)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 55,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} c_{E} c_{H} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} c_{E}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_E*c_H + (Delta_eTa*R_ll - Delta_eTa*R_s)*c_E)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n",
      "E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} c_{E} c_{H} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} c_{E}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = \\frac{{\\left({\\left({P_{wa}} - {P_{was}}\\right)} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "H_l == ((P_wa - P_was)*c_E - R_ll + R_s)*c_H/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n",
      "H_{l} = \\frac{{\\left({\\left({P_{wa}} - {P_{was}}\\right)} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{wl}} = \\frac{{\\Delta_{eTa}} {P_{wa}} c_{E} - {\\Delta_{eTa}} {R_{ll}} + {\\Delta_{eTa}} R_{s} + {P_{was}} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "P_wl == (Delta_eTa*P_wa*c_E - Delta_eTa*R_ll + Delta_eTa*R_s + P_was*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/(meter*second^2) == kilogram/(meter*second^2)\n",
      "{P_{wl}} = \\frac{{\\Delta_{eTa}} {P_{wa}} c_{E} - {\\Delta_{eTa}} {R_{ll}} + {\\Delta_{eTa}} R_{s} + {P_{was}} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    }
   ],
   "source": [
    "# Using energy balance to eliminate P_wl\n",
    "soln = solve([eq_Hl_Pwl,eq_El_cE, eq_Rs_enbal], E_l, H_l, P_wl)\n",
    "[eq_El_Delta, eq_Hl_Delta, eq_Pwl_Delta] = [eq1.subs(eq_gammav_cE).simplify_full() for eq1 in flatten(soln)]\n",
    "for eq1 in [eq_El_Delta, eq_Hl_Delta, eq_Pwl_Delta]:\n",
    "    print units_check(eq1)\n",
    "    print latex(eq1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\Delta_{eTa}} T_{a} c_{E} + {P_{wa}} c_{E} - {P_{was}} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == (Delta_eTa*T_a*c_E + P_wa*c_E - P_was*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kelvin == kelvin\n"
     ]
    },
    {
     "data": {
      "text/plain": [
       "T_{l} = \\frac{{\\Delta_{eTa}} T_{a} c_{E} + {P_{wa}} c_{E} - {P_{was}} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}"
      ]
     },
     "execution_count": 56,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Solving for T_l\n",
    "eq_Tl_Delta = solve(eq_Hl_Delta.rhs() == eq_Hl_cH.rhs(), T_l)[0].expand().factor()\n",
    "print units_check(eq_Tl_Delta)\n",
    "latex(eq_Tl_Delta)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 57,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - {P_{was}}\\right)} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == ((Delta_eTa*T_a + P_wa - P_was)*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Tl_Delta.expand().simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 58,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = T_{a} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} c_{E} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == T_a + ((P_wa - P_was)*c_E - R_ll + R_s)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0"
      ]
     },
     "execution_count": 58,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Test if formulation in paper is the same\n",
    "eq_Tl_Delta1 = T_l == T_a + ((R_s - R_ll) + c_E*(P_wa - P_was))/(Delta_eTa*c_E + c_H)\n",
    "eq_Tl_Delta1.show()\n",
    "(eq_Tl_Delta.rhs() - eq_Tl_Delta1.rhs()).full_simplify()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}P_{\\mathit{wl}} = 611 \\, e^{\\left(-\\frac{M_{w} \\lambda_{E} {\\left(\\frac{273}{T_{l}} - 1\\right)}}{273 \\, R_{\\mathit{mol}}}\\right)}</script></html>"
      ],
      "text/plain": [
       "P_wl == 611*e^(-1/273*M_w*lambda_E*(273/T_l - 1)/R_mol)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{273 \\, M_{w} \\lambda_{E}}{M_{w} \\lambda_{E} + 273 \\, {R_{mol}} \\log\\left(\\frac{611 \\, {\\left({\\Delta_{eTa}} c_{E} + c_{H}\\right)}}{{\\Delta_{eTa}} {P_{wa}} c_{E} - {\\Delta_{eTa}} {R_{ll}} + {\\Delta_{eTa}} R_{s} + {P_{was}} c_{H}}\\right)}</script></html>"
      ],
      "text/plain": [
       "T_l == 273*M_w*lambda_E/(M_w*lambda_E + 273*R_mol*log(611*(Delta_eTa*c_E + c_H)/(Delta_eTa*P_wa*c_E - Delta_eTa*R_ll + Delta_eTa*R_s + P_was*c_H)))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Alternative approach to get T_l\n",
    "eq_Pwl.show()\n",
    "soln = solve(eq_Pwl_Delta.rhs() == eq_Pwl.rhs(), T_l)\n",
    "eq_Tl_Delta2 = soln[0].simplify_full()\n",
    "eq_Tl_Delta2.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 60,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "E_l == -M_w*(P_wa - P_wl)*g_twmol*lambda_E/P_a"
      ]
     },
     "execution_count": 60,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El.subs(eq_Elmol_conv)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 61,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "H_l == -(T_a - T_l)*a_sh*h_c"
      ]
     },
     "execution_count": 61,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Hl"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 62,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}c_{E} = \\frac{M_{w} {g_{tw,mol}} \\lambda_{E}}{P_{a}}</script></html>"
      ],
      "text/plain": [
       "c_E == M_w*g_twmol*lambda_E/P_a"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "meter/second == meter/second\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}c_{H} = {a_{sh}} h_{c}</script></html>"
      ],
      "text/plain": [
       "c_H == a_sh*h_c"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/(kelvin*second^3) == kilogram/(kelvin*second^3)"
      ]
     },
     "execution_count": 62,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eqEl = eq_El.subs(eq_Elmol_conv)\n",
    "eqHl = eq_Hl\n",
    "eq_ce_conv = solve([eqEl, eq_El_cE], c_E, E_l)[0][0]\n",
    "print units_check(eq_ce_conv)\n",
    "eq_ch_hc = solve([eqHl, eq_Hl_cH], c_H, H_l)[0][0]\n",
    "units_check(eq_ch_hc)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 63,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = \\frac{{\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {a_{sh}} {g_{tw,mol}} h_{c} \\lambda_{E} - {\\left(P_{a} {R_{ll}} - P_{a} R_{s}\\right)} {a_{sh}} h_{c}}{{\\Delta_{eTa}} M_{w} {g_{tw,mol}} \\lambda_{E} + P_{a} {a_{sh}} h_{c}}</script></html>"
      ],
      "text/plain": [
       "H_l == ((M_w*P_wa - M_w*P_was)*a_sh*g_twmol*h_c*lambda_E - (P_a*R_ll - P_a*R_s)*a_sh*h_c)/(Delta_eTa*M_w*g_twmol*lambda_E + P_a*a_sh*h_c)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {a_{sh}} {g_{tw,mol}} h_{c} + {\\left({\\Delta_{eTa}} M_{w} {R_{ll}} - {\\Delta_{eTa}} M_{w} R_{s}\\right)} {g_{tw,mol}}\\right)} \\lambda_{E}}{{\\Delta_{eTa}} M_{w} {g_{tw,mol}} \\lambda_{E} + P_{a} {a_{sh}} h_{c}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa - M_w*P_was)*a_sh*g_twmol*h_c + (Delta_eTa*M_w*R_ll - Delta_eTa*M_w*R_s)*g_twmol)*lambda_E/(Delta_eTa*M_w*g_twmol*lambda_E + P_a*a_sh*h_c)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{P_{a} T_{a} {a_{sh}} h_{c} + {\\left({\\Delta_{eTa}} M_{w} T_{a} + M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {g_{tw,mol}} \\lambda_{E} - P_{a} {R_{ll}} + P_{a} R_{s}}{{\\Delta_{eTa}} M_{w} {g_{tw,mol}} \\lambda_{E} + P_{a} {a_{sh}} h_{c}}</script></html>"
      ],
      "text/plain": [
       "T_l == (P_a*T_a*a_sh*h_c + (Delta_eTa*M_w*T_a + M_w*P_wa - M_w*P_was)*g_twmol*lambda_E - P_a*R_ll + P_a*R_s)/(Delta_eTa*M_w*g_twmol*lambda_E + P_a*a_sh*h_c)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).simplify_full().show()\n",
    "eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).simplify_full().show()\n",
    "eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).simplify_full().show()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Comparison with explicit leaf energy balance model\n",
    "To test the above equations, we will load fun_SS from leaf_enbalance_eqs, using the 'jupyter line magic', i.e. executing the line starting with %load in the below field.\n",
    "After execution, the code of the imported fun_SS will be displayed and the original command will be commented out. To update, need to uncomment the top row and re-executed the cell."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 64,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "# %load -s fun_SS 'temp/leaf_enbalance_eqs.sage'\n",
    "def fun_SS(vdict1):\n",
    "    '''\n",
    "    Steady-state T_l, R_ll, H_l and E_l under forced conditions.\n",
    "    Parameters are given in a dictionary (vdict) with the following entries:\n",
    "    a_s, a_sh, L_l, P_a, P_wa, R_s, Re_c, T_a, g_sw, v_w\n",
    "    ''' \n",
    "    vdict = vdict1.copy()\n",
    "\n",
    "    # Nusselt number\n",
    "    vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "    vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "    vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "    \n",
    "    # h_c\n",
    "    vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "    vdict[h_c] = eq_hc.rhs().subs(vdict)\n",
    " \n",
    "    # gbw\n",
    "    vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "    vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "    vdict[rho_a] =  eq_rhoa.rhs().subs(vdict)\n",
    "    vdict[Le] =  eq_Le.rhs().subs(vdict)\n",
    "    vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)   \n",
    "    \n",
    "    # Hl, Rll\n",
    "    vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "    vdict[H_l] = eq_Hl.rhs().subs(vdict)   \n",
    "\n",
    "    # El\n",
    "    vdict[g_tw] =  eq_gtw.rhs().subs(vdict)\n",
    "    vdict[C_wa] = eq_Cwl.rhs()(P_wl = P_wa, T_l = T_a).subs(vdict)\n",
    "    vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "    vdict[C_wl] = eq_Cwl.rhs().subs(vdict)\n",
    "    vdict[E_lmol] = eq_Elmol.rhs().subs(vdict)\n",
    "    vdict[E_l] = eq_El.rhs().subs(eq_Elmol).subs(vdict)    \n",
    "\n",
    "    # Tl\n",
    "    try:\n",
    "        vdict[T_l] = find_root((eq_Rs_enbal - R_s).rhs().subs(vdict), 273, 373)\n",
    "    except: \n",
    "        print 'too many unknowns for finding T_l: ' + str((eq_Rs_enbal - R_s).rhs().subs(vdict).args())\n",
    "    \n",
    "    # Re-inserting T_l\n",
    "    Tlss = vdict[T_l]\n",
    "    for name1 in [C_wl, P_wl, R_ll, H_l, E_l, E_lmol]:\n",
    "        vdict[name1] = vdict[name1].subs(T_l = Tlss)\n",
    "    \n",
    "    # Test for steady state\n",
    "    if n((E_l + H_l + R_ll - R_s).subs(vdict))>1.:\n",
    "        return 'error in energy balance: El + Hl + Rll - R_s = ' + str(n((E_l + H_l + R_ll - R_s).subs(vdict))) \n",
    "    return vdict\n",
    "\n",
    "\n",
    "# In[27]:\n",
    "\n",
    "# Test\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 65,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "$ g $ $ {P_{wa}} $ $ {g_{sw}} $ $ L_{l} $ $ \\lambda_{E} $ $ M_{w} $ $ R_{s} $ $ c_{\\mathit{pa}} $ $ M_{O_{2}} $ $ a_{s} $ $ \\mathit{Pr} $ $ P_{a} $ $ T_{a} $ $ a_{\\mathit{sh}} $ $ T_{w} $ $ R_{\\mathit{mol}} $ $ \\mathit{sigm} $ $ \\epsilon $ $ {N_{Re_c}} $ $ \\epsilon_{l} $ $ v_{w} $ $ M_{N_{2}} $ \n",
      "$ g $ $ {P_{wa}} $ $ {g_{sw}} $ $ L_{l} $ $ \\lambda_{E} $ $ M_{w} $ $ R_{s} $ $ c_{\\mathit{pa}} $ $ M_{O_{2}} $ $ a_{s} $ $ \\mathit{Pr} $ $ P_{a} $ $ T_{a} $ $ a_{\\mathit{sh}} $ $ T_{w} $ $ R_{\\mathit{mol}} $ $ \\mathit{sigm} $ $ \\epsilon $ $ {N_{Re_c}} $ $ \\epsilon_{l} $ $ v_{w} $ $ M_{N_{2}} $ \n",
      "T_l = 305.650648423\n",
      "E_l = 185.424519010311\n",
      "H_l = 325.157459266011\n",
      "R_ll = 89.4180217236781\n",
      "Direct estimates: \n",
      "E_l == 201.520517691209\n",
      "H_l == 398.479482308791\n",
      "T_l == 307.263098002106\n",
      "P_wl == 4888.37878666472\n",
      "Using estimated T_l: \n",
      "5332.58270455183\n",
      "E_l == 254.937149826832\n",
      "H_l == 398.479482308791\n",
      "0 == 110.468903558398\n",
      "Using estimated T_l only to calculate R_ll: \n",
      "E_l == 164.417599968095\n",
      "H_l == 325.113496473507\n",
      "307.263098002106 == 305.649681621994\n",
      "Using 1 iteration to get T_l: \n",
      "T_l(R_ll=0): 307.263098002106\n",
      "R_ll(T_l) = 110.468903558398\n",
      "T_l = 305.649681621994\n",
      "E_l == 199.088662380171\n",
      "H_l == 325.113496473508\n"
     ]
    }
   ],
   "source": [
    "# Test\n",
    "vdict = cdict.copy()\n",
    "#vdict= {}\n",
    "vdict[a_s] = 1.0    # one sided stomata\n",
    "vdict[g_sw] = 0.01    \n",
    "vdict[T_a] = 273 + 25.5\n",
    "vdict[T_w] = vdict[T_a] # Wall temperature equal to air temperature\n",
    "vdict[P_a] = 101325\n",
    "rha = 1\n",
    "vdict[P_wa] = rha*eq_Pwl.rhs()(T_l = T_a).subs(vdict)\n",
    "vdict[L_l] = 0.03\n",
    "vdict[Re_c] = 3000\n",
    "vdict[R_s] = 600\n",
    "vdict[v_w] = 1\n",
    "str1 = ''\n",
    "for key1 in sorted(vdict.keys()):\n",
    "    str1 = str1+'$'+ latex(key1)+'$ '\n",
    "print str1\n",
    "#vdict = dict(vdict.items()+cdict.items())\n",
    "str1 = ''\n",
    "for key1 in sorted(vdict.keys()):\n",
    "    str1 = str1+'$'+ latex(key1)+'$ '\n",
    "print str1\n",
    "resdict = fun_SS(vdict)\n",
    "for name1 in [T_l, E_l, H_l, R_ll]:\n",
    "    print str(name1)+' = ' + str(resdict[name1])\n",
    "vdict[P_was] = eq_Pwl.rhs()(T_l = T_a).subs(vdict) \n",
    "vdict[Delta_eTa] = eq_Deltaeta_T.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "vdict[h_c] = eq_hc.rhs().subs(vdict) \n",
    "\n",
    "vdict[P_N2] = eq_PN2.rhs().subs(vdict)\n",
    "vdict[P_O2] = eq_PO2.rhs().subs(vdict)\n",
    "vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "vdict[Le] = eq_Le.rhs().subs(vdict)\n",
    "vdict[rho_a] = eq_rhoa_Pwa_Ta.rhs().subs(vdict) \n",
    "vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)\n",
    "vdict[g_tw] = eq_gtw.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw_iso.rhs().subs(vdict)\n",
    "\n",
    "vdict[R_ll] = 0\n",
    "print 'Direct estimates: '\n",
    "print eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Pwl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "print 'Using estimated T_l: '\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "print vdict[P_wl]\n",
    "print eq_El.subs(eq_Elmol_conv).subs(vdict)\n",
    "#vdict[C_wa] = eq_Cwa.rhs().subs(vdict)\n",
    "#vdict[C_wl] = eq_Cwl.rhs().subs(vdict)\n",
    "#print eq_El.subs(eq_Elmol).subs(vdict)\n",
    "print eq_Hl.subs(vdict)\n",
    "print eq_Rll.subs(vdict)\n",
    "\n",
    "print 'Using estimated T_l only to calculate R_ll: '\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "print eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "print 'Using 1 iteration to get T_l: '\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print 'T_l(R_ll=0): ' + str(vdict[T_l])\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "print 'R_ll(T_l) = ' + str(vdict[R_ll])\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "print 'T_l = ' + str(vdict[T_l])\n",
    "print eq_El.subs(eq_Elmol_conv).subs(vdict)\n",
    "print eq_Hl.subs(vdict)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 66,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "185.424519010311 == 199.120796183645\n",
      "185.424519010311 == 185.424519010311\n"
     ]
    }
   ],
   "source": [
    "# Isothermal conversion between gtw and gtwmol leads to quite a bit of error!\n",
    "print eq_El.subs(eq_Elmol_conv).subs(eq_gtwmol_gtw_iso).subs(resdict)\n",
    "print eq_El.subs(eq_Elmol_conv).subs(eq_gtwmol_gtw).subs(resdict)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">The MU-equation can easily be corrected to be consistent with the general solution in eq_El_Delta!<br /></span></p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 67,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "-(P_a*P_wl*T_a - P_a*P_wa*T_l)*g_tw/((P_wa - P_wl)*R_mol*T_a*T_l)"
      ]
     },
     "execution_count": 67,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gtwmol_gtw.rhs()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 68,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "4868.15587829874"
      ]
     },
     "execution_count": 68,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "vdict[P_wl]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 69,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "T_l = 305.650648423\n",
      "E_l = 185.424519010311\n",
      "H_l = 325.157459266011\n",
      "R_ll = 89.4180217236781\n",
      "Direct estimates: \n",
      "E_l == 201.520517691209\n",
      "H_l == 398.479482308791\n",
      "T_l == 307.263098002106\n",
      "Using estimated T_l: \n",
      "E_l == 236.648612148471\n",
      "H_l == 398.479482308791\n",
      "0 == 110.468903558398\n",
      "Using estimated T_l only to calculate R_ll: \n",
      "E_l == 156.390826464557\n",
      "H_l == 333.140269977045\n",
      "307.263098002106 == 305.826201131718\n",
      "Using 1 iteration to get T_l: \n",
      "T_l(R_ll=0): 307.479451379050\n",
      "R_ll(T_l) = 113.318783813753\n",
      "T_l = 305.783550529736\n",
      "E_l == 189.502633426896\n",
      "H_l == 331.200842871043\n"
     ]
    }
   ],
   "source": [
    "# Test\n",
    "vdict = cdict.copy()\n",
    "#vdict= {}\n",
    "vdict[a_s] = 1.0    # one sided stomata\n",
    "vdict[g_sw] = 0.01    \n",
    "vdict[T_a] = 273 + 25.5\n",
    "vdict[T_w] = vdict[T_a] # Wall temperature equal to air temperature\n",
    "vdict[P_a] = 101325\n",
    "rha = 1\n",
    "vdict[P_wa] = rha*eq_Pwl.rhs()(T_l = T_a).subs(vdict)\n",
    "vdict[L_l] = 0.03\n",
    "vdict[Re_c] = 3000\n",
    "vdict[R_s] = 600\n",
    "vdict[v_w] = 1\n",
    "\n",
    "#vdict = dict(vdict.items()+cdict.items())\n",
    "\n",
    "resdict = fun_SS(vdict)\n",
    "for name1 in [T_l, E_l, H_l, R_ll]:\n",
    "    print str(name1)+' = ' + str(resdict[name1])\n",
    "vdict[P_was] = eq_Pwl.rhs()(T_l = T_a).subs(vdict) \n",
    "vdict[Delta_eTa] = eq_Deltaeta_T.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "vdict[h_c] = eq_hc.rhs().subs(vdict) \n",
    "\n",
    "vdict[P_N2] = eq_PN2.rhs().subs(vdict)\n",
    "vdict[P_O2] = eq_PO2.rhs().subs(vdict)\n",
    "vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "vdict[Le] = eq_Le.rhs().subs(vdict)\n",
    "vdict[rho_a] = eq_rhoa_Pwa_Ta.rhs().subs(vdict) \n",
    "vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)\n",
    "vdict[g_tw] = eq_gtw.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw_iso.rhs().subs(vdict)\n",
    "\n",
    "\n",
    "vdict[R_ll] = 0\n",
    "print 'Direct estimates: '\n",
    "print eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "print 'Using estimated T_l: '\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw.rhs().subs(vdict)\n",
    "print eq_El.subs(eq_Elmol_conv).subs(vdict)\n",
    "print eq_Hl.subs(vdict)\n",
    "print eq_Rll.subs(vdict)\n",
    "\n",
    "print 'Using estimated T_l only to calculate R_ll: '\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "print eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "print 'Using 1 iteration to get T_l: '\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print 'T_l(R_ll=0): ' + str(vdict[T_l])\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "print 'R_ll(T_l) = ' + str(vdict[R_ll])\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "print 'T_l = ' + str(vdict[T_l])\n",
    "vdict[g_twmol] = eq_gtwmol_gtw.rhs().subs(vdict)\n",
    "print eq_El.subs(eq_Elmol_conv).subs(vdict)\n",
    "print eq_Hl.subs(vdict)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 70,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{273 \\, M_{w} \\lambda_{E}}{M_{w} \\lambda_{E} + 273 \\, {R_{mol}} \\log\\left(\\frac{611 \\, {\\left({\\left({N_{Le}} {P_{wa}} - {N_{Le}} {P_{wl}}\\right)} {N_{Le}}^{\\frac{1}{3}} {R_{mol}} T_{a} T_{l} {a_{sh}} {c_{pa}}^{2} {g_{sw}}^{2} h_{c} \\rho_{a}^{2} + {\\left({P_{wa}} - {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} a_{s}^{2} {a_{sh}} h_{c}^{3} - {\\left({\\Delta_{eTa}} M_{w} {P_{wl}} T_{a} - {\\Delta_{eTa}} M_{w} {P_{wa}} T_{l}\\right)} a_{s}^{2} {g_{sw}} h_{c}^{2} \\lambda_{E} + {\\left(2 \\, {\\left({P_{wa}} - {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} a_{s} {a_{sh}} {c_{pa}} {g_{sw}} h_{c}^{2} - {\\left({\\Delta_{eTa}} M_{w} {P_{wl}} T_{a} - {\\Delta_{eTa}} M_{w} {P_{wa}} T_{l}\\right)} a_{s} {c_{pa}} {g_{sw}}^{2} h_{c} \\lambda_{E}\\right)} {N_{Le}}^{\\frac{2}{3}} \\rho_{a}\\right)}}{{\\left({P_{wa}} {P_{was}} - {P_{was}} {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} a_{s}^{2} {a_{sh}} h_{c}^{3} - {\\left({\\left({\\Delta_{eTa}} {P_{wa}} - {\\Delta_{eTa}} {P_{wl}}\\right)} {R_{ll}} {R_{mol}} - {\\left({\\Delta_{eTa}} {P_{wa}} - {\\Delta_{eTa}} {P_{wl}}\\right)} {R_{mol}} R_{s}\\right)} T_{a} T_{l} a_{s}^{2} h_{c}^{2} - {\\left({\\Delta_{eTa}} M_{w} {P_{wa}} {P_{wl}} T_{a} - {\\Delta_{eTa}} M_{w} {P_{wa}}^{2} T_{l}\\right)} a_{s}^{2} {g_{sw}} h_{c}^{2} \\lambda_{E} + {\\left({\\left({N_{Le}} {P_{wa}} {P_{was}} - {N_{Le}} {P_{was}} {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} {a_{sh}} {c_{pa}}^{2} {g_{sw}}^{2} h_{c} - {\\left({\\left({\\Delta_{eTa}} {N_{Le}} {P_{wa}} - {\\Delta_{eTa}} {N_{Le}} {P_{wl}}\\right)} {R_{ll}} {R_{mol}} - {\\left({\\Delta_{eTa}} {N_{Le}} {P_{wa}} - {\\Delta_{eTa}} {N_{Le}} {P_{wl}}\\right)} {R_{mol}} R_{s}\\right)} T_{a} T_{l} {c_{pa}}^{2} {g_{sw}}^{2}\\right)} {N_{Le}}^{\\frac{1}{3}} \\rho_{a}^{2} + {\\left(2 \\, {\\left({P_{wa}} {P_{was}} - {P_{was}} {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} a_{s} {a_{sh}} {c_{pa}} {g_{sw}} h_{c}^{2} - 2 \\, {\\left({\\left({\\Delta_{eTa}} {P_{wa}} - {\\Delta_{eTa}} {P_{wl}}\\right)} {R_{ll}} {R_{mol}} - {\\left({\\Delta_{eTa}} {P_{wa}} - {\\Delta_{eTa}} {P_{wl}}\\right)} {R_{mol}} R_{s}\\right)} T_{a} T_{l} a_{s} {c_{pa}} {g_{sw}} h_{c} - {\\left({\\Delta_{eTa}} M_{w} {P_{wa}} {P_{wl}} T_{a} - {\\Delta_{eTa}} M_{w} {P_{wa}}^{2} T_{l}\\right)} a_{s} {c_{pa}} {g_{sw}}^{2} h_{c} \\lambda_{E}\\right)} {N_{Le}}^{\\frac{2}{3}} \\rho_{a}}\\right)}</script></html>"
      ],
      "text/plain": [
       "T_l == 273*M_w*lambda_E/(M_w*lambda_E + 273*R_mol*log(611*((Le*P_wa - Le*P_wl)*Le^(1/3)*R_mol*T_a*T_l*a_sh*c_pa^2*g_sw^2*h_c*rho_a^2 + (P_wa - P_wl)*R_mol*T_a*T_l*a_s^2*a_sh*h_c^3 - (Delta_eTa*M_w*P_wl*T_a - Delta_eTa*M_w*P_wa*T_l)*a_s^2*g_sw*h_c^2*lambda_E + (2*(P_wa - P_wl)*R_mol*T_a*T_l*a_s*a_sh*c_pa*g_sw*h_c^2 - (Delta_eTa*M_w*P_wl*T_a - Delta_eTa*M_w*P_wa*T_l)*a_s*c_pa*g_sw^2*h_c*lambda_E)*Le^(2/3)*rho_a)/((P_wa*P_was - P_was*P_wl)*R_mol*T_a*T_l*a_s^2*a_sh*h_c^3 - ((Delta_eTa*P_wa - Delta_eTa*P_wl)*R_ll*R_mol - (Delta_eTa*P_wa - Delta_eTa*P_wl)*R_mol*R_s)*T_a*T_l*a_s^2*h_c^2 - (Delta_eTa*M_w*P_wa*P_wl*T_a - Delta_eTa*M_w*P_wa^2*T_l)*a_s^2*g_sw*h_c^2*lambda_E + ((Le*P_wa*P_was - Le*P_was*P_wl)*R_mol*T_a*T_l*a_sh*c_pa^2*g_sw^2*h_c - ((Delta_eTa*Le*P_wa - Delta_eTa*Le*P_wl)*R_ll*R_mol - (Delta_eTa*Le*P_wa - Delta_eTa*Le*P_wl)*R_mol*R_s)*T_a*T_l*c_pa^2*g_sw^2)*Le^(1/3)*rho_a^2 + (2*(P_wa*P_was - P_was*P_wl)*R_mol*T_a*T_l*a_s*a_sh*c_pa*g_sw*h_c^2 - 2*((Delta_eTa*P_wa - Delta_eTa*P_wl)*R_ll*R_mol - (Delta_eTa*P_wa - Delta_eTa*P_wl)*R_mol*R_s)*T_a*T_l*a_s*c_pa*g_sw*h_c - (Delta_eTa*M_w*P_wa*P_wl*T_a - Delta_eTa*M_w*P_wa^2*T_l)*a_s*c_pa*g_sw^2*h_c*lambda_E)*Le^(2/3)*rho_a)))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Tl_Delta2.subs(eq_ce_conv, eq_ch_hc).subs(eq_gtwmol_gtw).subs(eq_gtw).subs(eq_gbw_hc).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 71,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\left({\\left(M_{w} {P_{wa}} - M_{w} {P_{was}}\\right)} {P_{wl}} T_{a} - {\\left(M_{w} {P_{wa}}^{2} - M_{w} {P_{wa}} {P_{was}}\\right)} T_{l}\\right)} {a_{sh}} {g_{bw}} {g_{sw}} h_{c} + {\\left({\\left({\\Delta_{eTa}} M_{w} {P_{wl}} {R_{ll}} - {\\Delta_{eTa}} M_{w} {P_{wl}} R_{s}\\right)} T_{a} - {\\left({\\Delta_{eTa}} M_{w} {P_{wa}} {R_{ll}} - {\\Delta_{eTa}} M_{w} {P_{wa}} R_{s}\\right)} T_{l}\\right)} {g_{bw}} {g_{sw}}\\right)} \\lambda_{E}}{{\\left({\\Delta_{eTa}} M_{w} {P_{wl}} T_{a} - {\\Delta_{eTa}} M_{w} {P_{wa}} T_{l}\\right)} {g_{bw}} {g_{sw}} \\lambda_{E} - {\\left({\\left({P_{wa}} - {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} {a_{sh}} {g_{bw}} + {\\left({P_{wa}} - {P_{wl}}\\right)} {R_{mol}} T_{a} T_{l} {a_{sh}} {g_{sw}}\\right)} h_{c}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(((M_w*P_wa - M_w*P_was)*P_wl*T_a - (M_w*P_wa^2 - M_w*P_wa*P_was)*T_l)*a_sh*g_bw*g_sw*h_c + ((Delta_eTa*M_w*P_wl*R_ll - Delta_eTa*M_w*P_wl*R_s)*T_a - (Delta_eTa*M_w*P_wa*R_ll - Delta_eTa*M_w*P_wa*R_s)*T_l)*g_bw*g_sw)*lambda_E/((Delta_eTa*M_w*P_wl*T_a - Delta_eTa*M_w*P_wa*T_l)*g_bw*g_sw*lambda_E - ((P_wa - P_wl)*R_mol*T_a*T_l*a_sh*g_bw + (P_wa - P_wl)*R_mol*T_a*T_l*a_sh*g_sw)*h_c)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(eq_gtwmol_gtw).subs(eq_gtw).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 72,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -{\\left({P_{wa}} - {P_{wl}}\\right)} c_{E}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*c_E"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} c_{H}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*c_H"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{c_{H}}{c_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == c_H/c_E"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\Delta_{eTa}} = \\frac{{P_{was}} - {P_{wl}}}{T_{a} - T_{l}}</script></html>"
      ],
      "text/plain": [
       "Delta_eTa == (P_was - P_wl)/(T_a - T_l)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{P_{wa}} c_{H} - {P_{wl}} c_{H}}{\\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa*c_H - P_wl*c_H)/gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\Delta_{eTa}} T_{a} - {\\Delta_{eTa}} T_{l} + {P_{wa}} - {P_{was}}\\right)} c_{H}}{\\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*T_a - Delta_eTa*T_l + P_wa - P_was)*c_H/gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} c_{E} c_{H} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} c_{E}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_E*c_H + (Delta_eTa*R_ll - Delta_eTa*R_s)*c_E)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n",
      "E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} c_{E} c_{H} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} c_{E}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = \\frac{{\\left({\\left({P_{wa}} - {P_{was}}\\right)} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "H_l == ((P_wa - P_was)*c_E - R_ll + R_s)*c_H/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n",
      "H_{l} = \\frac{{\\left({\\left({P_{wa}} - {P_{was}}\\right)} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - {P_{was}}\\right)} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == ((Delta_eTa*T_a + P_wa - P_was)*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kelvin == kelvin\n",
      "T_{l} = \\frac{{\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - {P_{was}}\\right)} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    }
   ],
   "source": [
    "# Alternative approach, keeping T_l, but eliminateing P_wl\n",
    "eq_El_cE.show()\n",
    "eq_Hl_cH.show()\n",
    "eq_gammav_cE.show()\n",
    "eq_Penman_ass.show()\n",
    "\n",
    "# Eliminating c_E\n",
    "eq_El_gammav = solve([eq_El_cE, eq_gammav_cE], E_l, c_E)[0][0]\n",
    "print units_check(eq_El_gammav)\n",
    "\n",
    "# Eliminating P_wl\n",
    "eq_El_Tl = solve([eq_El_gammav, eq_Penman_ass], E_l, P_wl)[0][0]\n",
    "print units_check(eq_El_Tl)\n",
    "\n",
    "# Solving for E_l, H_l and T_l\n",
    "soln = solve([eq_El_Tl, eq_Hl_cH, eq_Rs_enbal], E_l, H_l, T_l)\n",
    "[eq_El_Delta_a, eq_Hl_Delta_a, eq_Tl_Delta_a] = [eq1.subs(eq_gammav_cE).simplify_full() for eq1 in flatten(soln)]\n",
    "for eq1 in [eq_El_Delta_a, eq_Hl_Delta_a, eq_Tl_Delta_a]:\n",
    "    print units_check(eq1)\n",
    "    print latex(eq1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 73,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "0 == 0\n",
      "0 == 0\n",
      "0 == 0\n"
     ]
    }
   ],
   "source": [
    "# These solutions are identical to the previous ones\n",
    "print (eq_El_Delta - eq_El_Delta_a).simplify_full()\n",
    "print (eq_Hl_Delta - eq_Hl_Delta_a).simplify_full()\n",
    "print (eq_Tl_Delta_a - eq_Tl_Delta1).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 74,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[\n",
      "[E_l == -(Delta_eTa*(R_ll - R_s)*c_E + (P_wa*c_E - P_was*c_E)*c_H)/(Delta_eTa*c_E + c_H), H_l == (P_wa*c_E - P_was*c_E - R_ll + R_s)*c_H/(Delta_eTa*c_E + c_H), P_wl == ((P_wa*c_E - R_ll + R_s)*Delta_eTa + P_was*c_H)/(Delta_eTa*c_E + c_H), T_l == (Delta_eTa*T_a*c_E + P_wa*c_E - P_was*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)]\n",
      "]\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} c_{E} + {\\left({P_{wa}} c_{E} - {P_{was}} c_{E}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*c_E + (P_wa*c_E - P_was*c_E)*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n",
      "E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} c_{E} + {\\left({P_{wa}} c_{E} - {P_{was}} c_{E}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = \\frac{{\\left({P_{wa}} c_{E} - {P_{was}} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "H_l == (P_wa*c_E - P_was*c_E - R_ll + R_s)*c_H/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n",
      "H_{l} = \\frac{{\\left({P_{wa}} c_{E} - {P_{was}} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{wl}} = \\frac{{\\left({P_{wa}} c_{E} - {R_{ll}} + R_{s}\\right)} {\\Delta_{eTa}} + {P_{was}} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "P_wl == ((P_wa*c_E - R_ll + R_s)*Delta_eTa + P_was*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/(meter*second^2) == kilogram/(meter*second^2)\n",
      "{P_{wl}} = \\frac{{\\left({P_{wa}} c_{E} - {R_{ll}} + R_{s}\\right)} {\\Delta_{eTa}} + {P_{was}} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\Delta_{eTa}} T_{a} c_{E} + {P_{wa}} c_{E} - {P_{was}} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == (Delta_eTa*T_a*c_E + P_wa*c_E - P_was*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kelvin == kelvin\n",
      "T_{l} = \\frac{{\\Delta_{eTa}} T_{a} c_{E} + {P_{wa}} c_{E} - {P_{was}} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}\n",
      "0 == 0\n",
      "0 == 0\n",
      "0 == 0\n"
     ]
    }
   ],
   "source": [
    "# More direct approach, not using gamma_v at all\n",
    "soln = solve([eq_Hl_cH, eq_Penman_ass, eq_El_cE, eq_Rs_enbal], E_l, H_l, P_wl, T_l)\n",
    "print soln\n",
    "[eq_El_Delta_b, eq_Hl_Delta_b, eq_Pwl_Delta_b, eq_Tl_Delta_b] = [eq1 for eq1 in flatten(soln)]\n",
    "for eq1 in [eq_El_Delta_b, eq_Hl_Delta_b, eq_Pwl_Delta_b, eq_Tl_Delta_b]:\n",
    "    print units_check(eq1)\n",
    "    print latex(eq1)\n",
    "print (eq_El_Delta - eq_El_Delta_b).simplify_full()\n",
    "print (eq_Hl_Delta - eq_Hl_Delta_b).simplify_full()\n",
    "print (eq_Tl_Delta_a - eq_Tl_Delta_b).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 75,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[\n",
      "[E_l == -(Delta_eTa*(R_ll - R_s)*c_E + (P_wa*c_E - P_was*c_E)*c_H)/(Delta_eTa*c_E + c_H), H_l == (P_wa*c_E - P_was*c_E - R_ll + R_s)*c_H/(Delta_eTa*c_E + c_H), P_wl == ((P_wa*c_E - R_ll + R_s)*Delta_eTa + P_was*c_H)/(Delta_eTa*c_E + c_H), T_l == (Delta_eTa*T_a*c_E + P_wa*c_E - P_was*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)]\n",
      "]\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} c_{E} + {\\left({P_{wa}} c_{E} - {P_{was}} c_{E}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*c_E + (P_wa*c_E - P_was*c_E)*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = \\frac{{\\left({P_{wa}} c_{E} - {P_{was}} c_{E} - {R_{ll}} + R_{s}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "H_l == (P_wa*c_E - P_was*c_E - R_ll + R_s)*c_H/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{P_{wl}} = \\frac{{\\left({P_{wa}} c_{E} - {R_{ll}} + R_{s}\\right)} {\\Delta_{eTa}} + {P_{was}} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "P_wl == ((P_wa*c_E - R_ll + R_s)*Delta_eTa + P_was*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\Delta_{eTa}} T_{a} c_{E} + {P_{wa}} c_{E} - {P_{was}} c_{E} + T_{a} c_{H} - {R_{ll}} + R_{s}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == (Delta_eTa*T_a*c_E + P_wa*c_E - P_was*c_E + T_a*c_H - R_ll + R_s)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "soln = solve([eq_Hl_cH, eq_Penman_ass, eq_El_cE, eq_Rs_enbal], E_l, H_l, P_wl, T_l)\n",
    "print soln\n",
    "for eq1 in soln[0]:\n",
    "    eq1.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 76,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{\\gamma_{v} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)} + {\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(gamma_v*(r_s/r_a + 1) + Delta_eTa)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}r_{a} = \\frac{{c_{pa}} \\rho_{a}}{h_{c}}</script></html>"
      ],
      "text/plain": [
       "r_a == c_pa*rho_a/h_c"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{P_{a} {c_{pa}}}{\\epsilon \\lambda_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == P_a*c_pa/(epsilon*lambda_E)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\epsilon = \\frac{M_{w} P_{a}}{{R_{mol}} T_{a} \\rho_{a}}</script></html>"
      ],
      "text/plain": [
       "epsilon == M_w*P_a/(R_mol*T_a*rho_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_PM2.show()\n",
    "eq_ra_hc.show()\n",
    "eq_gammav_MU.show()\n",
    "eq_epsilon.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 77,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{wl}}\\right)} a_{s} \\epsilon \\lambda_{E} \\rho_{a}}{P_{a} {\\left(r_{s} + {r_{v}}\\right)}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*a_s*epsilon*lambda_E*rho_a/(P_a*(r_s + r_v))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{\\gamma_{v} n_{\\mathit{MU}} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)} + {\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(gamma_v*n_MU*(r_s/r_a + 1) + Delta_eTa)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_MU.show()\n",
    "eq_El_MU2.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 78,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "(Delta_eTa, H_l, P_wa, P_was, R_ll, R_s, S, f_u, gamma_v)"
      ]
     },
     "execution_count": 78,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Hl_P52.args()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 79,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "(Delta_eTa, P_wa, P_was, R_ll, R_s, S, T_a, T_l, f_u, gamma_v)"
      ]
     },
     "execution_count": 79,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_Tl_P52.args()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 80,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "numerical solution: \n",
      "T_l = 308.321395271\n",
      "E_l = 180.542235053941\n",
      "H_l = 150.521099595469\n",
      "R_ll = 68.9366653505872\n",
      "g_bw = 0.0131620455576424\n",
      "g_tw = 0.00291849206962754\n",
      "Direct estimates: \n",
      "E_l = 198.222104889662\n",
      "H_l = 201.777895110338\n",
      "T_l == 310.133484539870\n",
      "T_l == 310.133484539870\n",
      "T_l == 309.093414355984\n",
      "400 == 400.000000000000\n",
      "Using T_l from eq_Tl_Delta: \n",
      "T_l = 310.133484539870\n",
      "P_wl = 6256.38161942359\n",
      "E_l = 216.096641092879\n",
      "H_l = 201.777895110338\n",
      "R_ll = 93.2413750164809\n",
      "400 == 511.115911219698\n",
      "Using T_l from eq_Tl_Delta only to calculate R_ll: \n",
      "T_l = 310.133484539870\n",
      "R_ll = 93.2413750164809\n",
      "E_l = 169.892070077829\n",
      "H_l = 136.866554905690\n",
      "400 == 400.000000000000\n",
      "Using T_l from eq_Tl_Delta2: \n",
      "T_l = 309.093414355984\n",
      "P_wl = 5906.50495424574\n",
      "E_l = 198.222104889662\n",
      "H_l = 172.358447812370\n",
      "R_ll = 79.2391719599519\n",
      "400 == 449.819724661984\n",
      "Using T_l from eq_Tl_Delta2 only to calculate R_ll: \n",
      "T_l = 309.093414355984\n",
      "R_ll = 79.2391719599519\n",
      "E_l = 174.146435695707\n",
      "H_l = 146.614392344341\n",
      "400 == 400.000000000000\n"
     ]
    }
   ],
   "source": [
    "# Fig. 8 in Ball et al. 1988\n",
    "vdict = cdict.copy()\n",
    "vdict[a_s] = 1\n",
    "vdict[L_l] = 0.07\n",
    "vdict[P_a] = 101325\n",
    "vdict[P_wa] = 20/1000*101325\n",
    "vdict[R_s] = 400\n",
    "vdict[Re_c] = 3000\n",
    "vdict[T_a] = 273+30\n",
    "vdict[T_w] = vdict[T_a]\n",
    "vdict[g_sw] = 0.15/40\n",
    "vdict[v_w] = 1.\n",
    "print 'numerical solution: '\n",
    "resdict = fun_SS(vdict)\n",
    "for name1 in [T_l, E_l, H_l, R_ll, g_bw, g_tw]:\n",
    "    print str(name1)+' = ' + str(resdict[name1])\n",
    "\n",
    "vdict[P_was] = eq_Pwl.rhs()(T_l = T_a).subs(vdict) \n",
    "vdict[Delta_eTa] = eq_Deltaeta_T.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "vdict[h_c] = eq_hc.rhs().subs(vdict) \n",
    "\n",
    "vdict[P_N2] = eq_PN2.rhs().subs(vdict)\n",
    "vdict[P_O2] = eq_PO2.rhs().subs(vdict)\n",
    "vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "vdict[Le] = eq_Le.rhs().subs(vdict)\n",
    "vdict[rho_a] = eq_rhoa_Pwa_Ta.rhs().subs(vdict) \n",
    "vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)\n",
    "vdict[g_tw] = eq_gtw.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw_iso.rhs().subs(vdict)\n",
    "\n",
    "vdict[R_ll] = 0\n",
    "print 'Direct estimates: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[E_l] = eq_El_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[H_l] = eq_Hl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta1.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta2.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "\n",
    "print 'Using T_l from eq_Tl_Delta: '\n",
    "namesdict = [T_l, P_wl, E_l, H_l, R_ll]\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El.rhs().subs(eq_Elmol_conv).subs(vdict)\n",
    "vdict[H_l] = eq_Hl.rhs().subs(vdict)\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "\n",
    "print 'Using T_l from eq_Tl_Delta only to calculate R_ll: '\n",
    "namesdict = [T_l, R_ll, E_l, H_l]\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[H_l] = eq_Hl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "\n",
    "\n",
    "print 'Using T_l from eq_Tl_Delta2: '\n",
    "namesdict = [T_l, P_wl, E_l, H_l, R_ll]\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta2.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El.rhs().subs(eq_Elmol_conv).subs(vdict)\n",
    "vdict[H_l] = eq_Hl.rhs().subs(vdict)\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'Using T_l from eq_Tl_Delta2 only to calculate R_ll: '\n",
    "namesdict = [T_l, R_ll, E_l, H_l]\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta2.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[H_l] = eq_Hl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "print eq_Rs_enbal.subs(vdict)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">Why does eq_Tl_Delta2 give a different result than eq_Tl_Delta? eq_Tl_Delta gives the appropriate $T_l$ to reproduce $H_l$ estimated using eq_Hl_Delta, whereas eq_Tl_Delta2 gives the <span style=\"color: #ff0000;\">appropriate $T_l$ to reproduce $E_l$ estimated using eq_El_Delta. Neither allows for energy balance closure, unless only used to compute $R_{ll}$, before using eq_El_Delta and eq_Hl_Delta to compute the other components.</span><br /></span></p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 81,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "174.146435695707 == 198.222104889662"
      ]
     },
     "execution_count": 81,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "vdict[R_ll] = 0\n",
    "eq_El_P52.subs(eq_S_gbw_gsw, eq_fu_gbw, eq_gammav_as).subs(vdict)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 82,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "T_l = 305.650648423\n",
      "E_l = 185.424519010311\n",
      "H_l = 325.157459266011\n",
      "R_ll = 89.4180217236781\n",
      "Direct estimates: \n",
      "E_l == 201.520517691209\n",
      "H_l == 398.479482308791\n",
      "T_l == 307.263098002106\n",
      "Using estimated T_l: \n",
      "E_l == 254.937149826832\n",
      "H_l == 398.479482308791\n",
      "0 == 110.468903558398\n",
      "Using estimated T_l only to calculate R_ll: \n",
      "E_l == 164.417599968095\n",
      "H_l == 325.113496473507\n",
      "307.263098002106 == 305.649681621994\n",
      "Using 1 iteration to get T_l: \n",
      "T_l(R_ll=0): 307.263098002106\n",
      "R_ll(T_l) = 110.468903558398\n",
      "T_l = 305.649681621994\n",
      "E_l == 199.088662380171\n",
      "H_l == 325.113496473508\n"
     ]
    }
   ],
   "source": [
    "# Test\n",
    "vdict = cdict.copy()\n",
    "#vdict= {}\n",
    "vdict[a_s] = 1.0    # one sided stomata\n",
    "vdict[g_sw] = 0.01    \n",
    "vdict[T_a] = 273 + 25.5\n",
    "vdict[T_w] = vdict[T_a] # Wall temperature equal to air temperature\n",
    "vdict[P_a] = 101325\n",
    "rha = 1\n",
    "vdict[P_wa] = rha*eq_Pwl.rhs()(T_l = T_a).subs(vdict)\n",
    "vdict[L_l] = 0.03\n",
    "vdict[Re_c] = 3000\n",
    "vdict[R_s] = 600\n",
    "vdict[v_w] = 1\n",
    "\n",
    "resdict = fun_SS(vdict)\n",
    "for name1 in [T_l, E_l, H_l, R_ll]:\n",
    "    print str(name1)+' = ' + str(resdict[name1])\n",
    "vdict[P_was] = eq_Pwl.rhs()(T_l = T_a).subs(vdict) \n",
    "vdict[Delta_eTa] = eq_Deltaeta_T.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "vdict[h_c] = eq_hc.rhs().subs(vdict) \n",
    "\n",
    "vdict[P_N2] = eq_PN2.rhs().subs(vdict)\n",
    "vdict[P_O2] = eq_PO2.rhs().subs(vdict)\n",
    "vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "vdict[Le] = eq_Le.rhs().subs(vdict)\n",
    "vdict[rho_a] = eq_rhoa_Pwa_Ta.rhs().subs(vdict) \n",
    "vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)\n",
    "vdict[g_tw] = eq_gtw.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw_iso.rhs().subs(vdict)\n",
    "\n",
    "vdict[R_ll] = 0\n",
    "print 'Direct estimates: '\n",
    "print eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "print 'Using estimated T_l: '\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "print eq_El.subs(eq_Elmol_conv).subs(vdict)\n",
    "print eq_Hl.subs(vdict)\n",
    "print eq_Rll.subs(vdict)\n",
    "\n",
    "print 'Using estimated T_l only to calculate R_ll: '\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "print eq_El_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Hl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "print 'Using 1 iteration to get T_l: '\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print 'T_l(R_ll=0): ' + str(vdict[T_l])\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "print 'R_ll(T_l) = ' + str(vdict[R_ll])\n",
    "vdict[T_l] = eq_Tl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[P_wl] = eq_Pwl.rhs().subs(vdict)\n",
    "print 'T_l = ' + str(vdict[T_l])\n",
    "print eq_El.subs(eq_Elmol_conv).subs(vdict)\n",
    "print eq_Hl.subs(vdict)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "## Inconsistencies in the PM equations\n",
    "From the general form (Eq. {eq_El_Delta}), we can recover most of the above analytical solutions by appropriate substitutions for $c_E$ and $c_H$, but closer inspection of the necessary substitutions reveals some inconsistencies.\n",
    "\n",
    "The Penman equation for a wet surface (Eq. {eq_Ew_P}) can be recovered by substituting $c_E = f_u$ and $c_H = \\gamma_v f_u$ into (Eq. {eq_El_Delta}), while additional substitution of Eq. {eq_fu_ra_M} leads to recovery of Eq. {eq_Ew_PM1}, the Penman equation, as reformulated by \\citet{monteith_evaporation_1965}. The formulation for leaf transpiration derived by \\citet{penman_physical_1952} (Eq. {eq_El_P52}) is obtained by substituting $c_E = S f_u$ (deduced from Eq. {eq_El_fu_S}) and $c_E = \\gamma_v f_u$ (from Eq. {eq_Hl_Tl_P52}). The substitutions are consistent with the formulations of latent and sensible heat flux given in Eqs. {eq_Hl_Tl_P52} and {eq_Ew_fu} or {eq_El_fu_S}, as long as $f_u$ and $r_a$ refer to the \\emph{total resistances} of a leaf to latent and sensible heat flux respectively, as Eq. {eq_fu_ra_M} in conjunction with $c_H = \\gamma_v f_u$ implies that:\n",
    "##### {eq_cH_ra}\n",
    "\\begin{equation}\n",
    "c_H = (\\rho_a c_{pa})/r_a\n",
    "\\end{equation}\n",
    "\n",
    "\n",
    "Similarly, the Penman-Monteith equation (Eq. {eq_El_PM2} with $\\gamma_v$ defined in Eq. {eq_gammav_MU}) could be recovered by substituting $c_E = \\epsilon \\lambda_E \\rho_a/(P_a(r_s + r_v))$ and $c_H = c_{pa} \\rho_a/r_a$, with subsequent substitution of $r_v = r_a$.  Note however, that these substitutions are not consistent with Eqs. {eq_El_MU} and {eq_Hl_MU}, as the factors $a_s$ and $a_{sh}$ (referring to the number of leaf faces exchanging latent and sensible heat flux respectively) are missing. This is because the PM equation was derived with a soil surface in mind, which exchanges latent and sensible heat only on one side, and hence is not appropriate for a leaf. To alleviate this constraint, one could define $r_a$ and $r_s$ as total (two-sided) leaf resistances, but in this case, the simplification $r_v \\approx r_a$ is not valid for hypostomatous leaves, as $r_a$ would then be only half of $r_v$. This is illustrated in Fig. {fig:leaf_BL-fluxes}, where sensible heat flux is released from both sides of the leaf, while latent heat flux is only released from the abaxial side, implying that $a_{sh}=2$ and $a_s=1$."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 83,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} f_{u} \\gamma_{v} + {\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}}{{\\Delta_{eTa}} + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*f_u*gamma_v + Delta_eTa*R_ll - Delta_eTa*R_s)/(Delta_eTa + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} f_{u} \\gamma_{v} + {\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}}{{\\Delta_{eTa}} + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_w == -((P_wa - P_was)*f_u*gamma_v + Delta_eTa*R_ll - Delta_eTa*R_s)/(Delta_eTa + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0"
      ]
     },
     "execution_count": 83,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# This allows to recovery of eq_Ew_P\n",
    "eq1 = eq_El_Delta.subs(c_E = f_u, c_H = gamma_v*f_u)\n",
    "eq1.simplify_full().show()\n",
    "eq_Ew_P.show()\n",
    "(eq_Ew_P.rhs() - eq1.rhs()).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": []
  },
  {
   "cell_type": "code",
   "execution_count": 84,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} r_{a}}{{\\left({\\Delta_{eTa}} + \\gamma_{v}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_pa*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*r_a)/((Delta_eTa + gamma_v)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{{\\Delta_{eTa}} + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_w == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(Delta_eTa + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0"
      ]
     },
     "execution_count": 84,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# This allows to recovery of eq_Ew_PM1\n",
    "eq1 = eq_El_Delta.subs(c_E = f_u, c_H = gamma_v*f_u).subs(eq_fu_ra_M)\n",
    "eq1.simplify_full().show()\n",
    "eq_Ew_PM1.show()\n",
    "(eq_Ew_PM1.rhs() - eq1.rhs()).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 85,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\left({P_{wa}} - {P_{was}}\\right)} f_{u} \\gamma_{v} + {\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} S}{{\\Delta_{eTa}} S + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*f_u*gamma_v + Delta_eTa*R_ll - Delta_eTa*R_s)*S/(Delta_eTa*S + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} S + {\\left({P_{wa}} S - {P_{was}} S\\right)} f_{u} \\gamma_{v}}{{\\Delta_{eTa}} S + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*S + (P_wa*S - P_was*S)*f_u*gamma_v)/(Delta_eTa*S + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0"
      ]
     },
     "execution_count": 85,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# This allows to recovery of eq_El_P52\n",
    "eq1 = eq_El_Delta.subs(c_E = f_u*S, c_H = gamma_v*f_u)\n",
    "eq1.simplify_full().show()\n",
    "eq_El_P52.show()\n",
    "(eq_El_P52.rhs() - eq1.rhs()).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 86,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "gamma_v == a_sh*h_c/f_u"
      ]
     },
     "execution_count": 86,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_gammav_hc_fu"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 87,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} S + {\\left({P_{wa}} S - {P_{was}} S\\right)} f_{u} \\gamma_{v}}{{\\Delta_{eTa}} S + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*S + (P_wa*S - P_was*S)*f_u*gamma_v)/(Delta_eTa*S + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_P52.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 88,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{\\gamma_{v} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)} + {\\Delta_{eTa}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(gamma_v*(r_s/r_a + 1) + Delta_eTa)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{wl}}\\right)} a_{s} \\epsilon \\lambda_{E} \\rho_{a}}{P_{a} {\\left(r_{s} + {r_{v}}\\right)}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*a_s*epsilon*lambda_E*rho_a/(P_a*(r_s + r_v))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left(T_{a} - T_{l}\\right)} {a_{sh}} {c_{pa}} \\rho_{a}}{r_{a}}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*a_sh*c_pa*rho_a/r_a"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{P_{a} {c_{pa}}}{\\epsilon \\lambda_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == P_a*c_pa/(epsilon*lambda_E)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_PM2.show()\n",
    "eq_El_MU.show()\n",
    "eq_Hl_MU.show()\n",
    "eq_gammav_MU.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 89,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} \\epsilon \\lambda_{E} r_{a}}{P_{a} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} \\epsilon \\lambda_{E} + P_{a} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*epsilon*lambda_E*r_a)/(P_a*c_pa*r_s + (Delta_eTa*epsilon*lambda_E + P_a*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} \\epsilon \\lambda_{E} r_{a}}{P_{a} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} \\epsilon \\lambda_{E} + P_{a} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*epsilon*lambda_E*r_a)/(P_a*c_pa*r_s + (Delta_eTa*epsilon*lambda_E + P_a*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0 == 0"
      ]
     },
     "execution_count": 89,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# This leads to recovery of eq_El_PM2\n",
    "eq1 = eq_El_Delta(c_E = epsilon*lambda_E*rho_a/(P_a*(r_s + r_v)), c_H = c_pa*rho_a/r_a).subs(r_v = r_a).simplify_full()\n",
    "eq1.show()\n",
    "eq2 = eq_El_PM2.subs(eq_gammav_MU).simplify_full()\n",
    "eq2.show()\n",
    "(eq1 - eq2).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 90,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} r_{a}}{{\\left({\\Delta_{eTa}} + \\gamma_{v}\\right)} r_{a} + \\gamma_{v} r_{s}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_pa*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*r_a)/((Delta_eTa + gamma_v)*r_a + gamma_v*r_s)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} r_{a}}{{\\left({\\Delta_{eTa}} + \\gamma_{v}\\right)} r_{a} + \\gamma_{v} r_{s}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*c_pa*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*r_a)/((Delta_eTa + gamma_v)*r_a + gamma_v*r_s)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0 == 0"
      ]
     },
     "execution_count": 90,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Alternative recovery of eq_El_PM2, using gamma_v at the onset\n",
    "eq1 = eq_El_Delta(c_E = c_pa*rho_a/(gamma_v*(r_s + r_v)), c_H = c_pa*rho_a/r_a).subs(r_v = r_a).simplify_full()\n",
    "eq1.show()\n",
    "eq2 = eq_El_PM2.simplify_full()\n",
    "eq2.show()\n",
    "(eq1 - eq2).simplify_full()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "\\citet{monteith_principles_2013} acknowledged that a hypostomatous leaf could exchange sensible heat on two sides, but latent heat on one side only and introduced the parameter $n_{MU} = a_{sh}/a_s$ to account for this (Eq. {eq_El_MU2}). Using our general equation, it should be possible to reproduce the MU-Equation (Eq. {eq_El_MU2}) by substituting \n",
    "$c_E = a_s \\epsilon \\lambda_E \\rho_a/(P_a(r_s + r_v))$ (deduced from Eq. {eq_El_MU}) and $c_H = a_{sh} c_{pa} \\rho_a/r_a$ (deduced from Eq. {eq_Hl_MU}) into Eq. {eq_El_Delta}. However, the result of this substitution, as presented in Eq. {eq_El_Delta_MUcorr}, is not the same as Eq. {eq_El_MU2} after substitution of Eqs. {eq_gammav_MU} and $n_{MU} = a_{sh}/a_s$, which would result in Eq. {eq_El_MU3}: \n",
    "##### {eq_El_Delta_MUcorr}\n",
    "\\begin{equation}\n",
    "E_{l} = \\frac{a_{s} \\Delta_{eTa} \\epsilon \\lambda_{E} r_{a} \\left(R_s - R_{ll}\\right)\n",
    "+ a_{s} {a_{sh}} {c_{pa}} \\epsilon\n",
    "\\lambda_{E} \\rho_{a} \\left({P_{was}} - {P_{wa}}\\right)}  \n",
    "{P_{a} {a_{sh}} {c_{pa}} \\left( r_{s} + r_a \\right) + {\\Delta_{eTa}} a_{s}\n",
    "\\epsilon \\lambda_{E}}\n",
    "\\end{equation}\n",
    "##### {eq_El_MU3}\n",
    "\\begin{equation}\n",
    "E_{l} = \\frac{a_{s} \\Delta_{eTa} \\epsilon \\lambda_{E} r_{a} \\left(R_s - R_{ll}\\right)\n",
    "+ a_{s} {c_{pa}} \\epsilon\n",
    "\\lambda_{E} \\rho_{a} \\left({P_{was}} - {P_{wa}}\\right)}  \n",
    "{P_{a} {a_{sh}} {c_{pa}} \\left( r_{s} + r_a \\right) + {\\Delta_{eTa}} a_{s}\n",
    "\\epsilon \\lambda_{E}}\n",
    "\\end{equation}\n",
    "Note the missing $a_{sh}$ in the nominator of Eq. {eq_El_MU3}. \n",
    "The reason is that \\citet{monteith_principles_2013} introduced $n_{MU} = a_{sh}/a_s$ by modifying the meaning of $\\gamma_v$ in Eq. {eq_Ew_PM1} and specifying that $r_a$, $r_v$ and $r_s$ respresent one-sided resitances. However, as explained above, $r_a$ in Eq. {eq_Ew_PM1} represents two-sided resistance to sensible heat flux (see Eq. {eq_cH_ra}). If we replace $r_a$ by $r_a = r_{a}/a_{sh} $ in Eq. {eq_Ew_PM1} before substitution of Eq. {eq_gammavs_MU}, we obtain a corrected MU-equation,\n",
    "##### {eq_El_MU_corr}\n",
    "\\begin{equation}\n",
    "E_l = \\frac{\\Delta_{eTa}(R_s - R_{ll}) + \\rho_a c_{pa} (P_{was} - P_{wa})a_{sh}/r_a}\n",
    "{\\Delta_{eTa} + \\gamma_v a_{sh}/a_s \\left(1 + \\frac{r_{s}}{r_a}\\right)},\n",
    "\\end{equation}\n",
    "which, after substitution of Eq. {eq_gammav_MU}, results in Eq. {eq_El_Delta_MUcorr}."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 91,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {a_{sh}} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} \\epsilon \\lambda_{E} r_{a}}{P_{a} {a_{sh}} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} a_{s} \\epsilon \\lambda_{E} + P_{a} {a_{sh}} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*a_sh*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*epsilon*lambda_E*r_a)/(P_a*a_sh*c_pa*r_s + (Delta_eTa*a_s*epsilon*lambda_E + P_a*a_sh*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} \\epsilon \\lambda_{E} r_{a}}{P_{a} {a_{sh}} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} a_{s} \\epsilon \\lambda_{E} + P_{a} {a_{sh}} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*epsilon*lambda_E*r_a)/(P_a*a_sh*c_pa*r_s + (Delta_eTa*a_s*epsilon*lambda_E + P_a*a_sh*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0 == -((P_wa - P_was)*a_s*a_sh - (P_wa - P_was)*a_s)*c_pa*epsilon*lambda_E*rho_a/(P_a*a_sh*c_pa*r_s + (Delta_eTa*a_s*epsilon*lambda_E + P_a*a_sh*c_pa)*r_a)"
      ]
     },
     "execution_count": 91,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# This should lead to recovery of eq_El_MU2, but does not \n",
    "eq1 = eq_El_Delta(c_E = a_s*epsilon*lambda_E*rho_a/(P_a*(r_s + r_v)), c_H = a_sh*c_pa*rho_a/r_a).subs(r_v = r_a).simplify_full()\n",
    "print units_check(eq1)\n",
    "eq2 = eq_El_MU2.subs(eq_gammav_MU)(n_MU = a_sh/a_s).simplify_full()\n",
    "eq2.show()\n",
    "(eq1 - eq2).simplify_full()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 92,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{{\\Delta_{eTa}} + \\frac{P_{a} {a_{sh}} {c_{pa}} {\\left(\\frac{r_{s}}{r_{a}} + 1\\right)}}{a_{s} \\epsilon \\lambda_{E}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(Delta_eTa + P_a*a_sh*c_pa*(r_s/r_a + 1)/(a_s*epsilon*lambda_E))"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_MU2.subs(eq_gammav_MU)(n_MU = a_sh/a_s).show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 93,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {a_{sh}} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a}^{2}}{P_{a} {\\left(r_{a} + r_{s}\\right)} r_{a}} + \\frac{{\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} \\epsilon \\lambda_{E} \\rho_{a}}{P_{a} {\\left(r_{a} + r_{s}\\right)}}}{\\frac{{\\Delta_{eTa}} a_{s} \\epsilon \\lambda_{E} \\rho_{a}}{P_{a} {\\left(r_{a} + r_{s}\\right)}} + \\frac{{a_{sh}} {c_{pa}} \\rho_{a}}{r_{a}}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*a_sh*c_pa*epsilon*lambda_E*rho_a^2/(P_a*(r_a + r_s)*r_a) + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*epsilon*lambda_E*rho_a/(P_a*(r_a + r_s)))/(Delta_eTa*a_s*epsilon*lambda_E*rho_a/(P_a*(r_a + r_s)) + a_sh*c_pa*rho_a/r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_Delta(c_E = a_s*epsilon*lambda_E*rho_a/(P_a*(r_s + r_v)), c_H = a_sh*c_pa*rho_a/r_a).subs(r_v = r_a).show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 94,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{w} = -\\frac{{\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s} + \\frac{{\\left({P_{wa}} - {P_{was}}\\right)} {c_{pa}} \\rho_{a}}{r_{a}}}{{\\Delta_{eTa}} + \\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_w == -(Delta_eTa*R_ll - Delta_eTa*R_s + (P_wa - P_was)*c_pa*rho_a/r_a)/(Delta_eTa + gamma_v)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_Ew_PM1.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 95,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{c_{H}}{c_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == c_H/c_E"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} c_{E} + {\\left({P_{wa}} c_{E} - {P_{was}} c_{E}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*c_E + (P_wa*c_E - P_was*c_E)*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\Delta_{eTa}} {\\left({R_{ll}} - R_{s}\\right)} c_{E} + {\\left({P_{wa}} c_{E} - {P_{was}} c_{E}\\right)} c_{H}}{{\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*(R_ll - R_s)*c_E + (P_wa*c_E - P_was*c_E)*c_H)/(Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# if C_E and c_H are considered to be one-sided, it would not suffice to incorporate two-sidedness of one of them in gamma_v only, as c_E still features in soln[0][0]\n",
    "eq_gammav_cE.show()\n",
    "soln[0][0].show()\n",
    "soln[0][0].subs(eq_gammav_cE).show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 110,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{P_{a} {c_{pa}}}{\\epsilon \\lambda_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == P_a*c_pa/(epsilon*lambda_E)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {a_{sh}} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} \\epsilon \\lambda_{E} r_{a}}{P_{a} {a_{sh}} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} a_{s} \\epsilon \\lambda_{E} + P_{a} {a_{sh}} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*a_sh*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*epsilon*lambda_E*r_a)/(P_a*a_sh*c_pa*r_s + (Delta_eTa*a_s*epsilon*lambda_E + P_a*a_sh*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {a_{sh}} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} \\epsilon \\lambda_{E} r_{a}}{P_{a} {a_{sh}} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} a_{s} \\epsilon \\lambda_{E} + P_{a} {a_{sh}} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*a_sh*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*epsilon*lambda_E*r_a)/(P_a*a_sh*c_pa*r_s + (Delta_eTa*a_s*epsilon*lambda_E + P_a*a_sh*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {a_{sh}} {c_{pa}} \\epsilon \\lambda_{E} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} \\epsilon \\lambda_{E} r_{a}}{P_{a} {a_{sh}} {c_{pa}} r_{s} + {\\left({\\Delta_{eTa}} a_{s} \\epsilon \\lambda_{E} + P_{a} {a_{sh}} {c_{pa}}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*a_sh*c_pa*epsilon*lambda_E*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*epsilon*lambda_E*r_a)/(P_a*a_sh*c_pa*r_s + (Delta_eTa*a_s*epsilon*lambda_E + P_a*a_sh*c_pa)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "0 == 0"
      ]
     },
     "execution_count": 110,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# If we replace r_a by r_a/a_sh in eq_Ew_PM1, and only then insert eq_gammavs_MU, we get the right solution\n",
    "eq_gammav_MU.show()\n",
    "eq1 = eq_El_Delta(c_E = a_s*epsilon*lambda_E*rho_a/(P_a*(r_s + r_v)), c_H = a_sh*c_pa*rho_a/r_a).subs(r_v = r_a).simplify_full()\n",
    "print units_check(eq1)\n",
    "eq_El_MU_corr = eq_Ew_PM1.subs(r_a = r_a/a_sh).subs(eq_gammavs_MU)(E_w = E_l).subs(eq_gammav_MU).subs(n_MU = a_sh/a_s).simplify_full()\n",
    "print units_check(eq_El_MU_corr)\n",
    "eq2 = eq_El_MU_corr\n",
    "\n",
    "eq2.show()\n",
    "(eq1 - eq2).simplify_full()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">If we replace $r_a$ by $r_a/a_{sh}$ in eq_Ew_PM1, and only then insert eq_gammavs_MU, we get the right solution, equivalent to general equation with $c_E = a_s \\epsilon \\lambda_E \\rho_a/(P_a (r_s + r_v))$ and $c_H = a_{sh} c_{pa} \\rho_a/r_a)$, assuming  $r_v = r_a$<br /></span></p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 97,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({P_{wa}} - {P_{was}}\\right)} a_{s} {a_{sh}} {c_{pa}} \\rho_{a} + {\\left({\\Delta_{eTa}} {R_{ll}} - {\\Delta_{eTa}} R_{s}\\right)} a_{s} r_{a}}{{a_{sh}} \\gamma_{v} r_{s} + {\\left({\\Delta_{eTa}} a_{s} + {a_{sh}} \\gamma_{v}\\right)} r_{a}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((P_wa - P_was)*a_s*a_sh*c_pa*rho_a + (Delta_eTa*R_ll - Delta_eTa*R_s)*a_s*r_a)/(a_sh*gamma_v*r_s + (Delta_eTa*a_s + a_sh*gamma_v)*r_a)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kilogram/second^3 == kilogram/second^3"
      ]
     },
     "execution_count": 97,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "eq_El_MU_corr_gammav = eq_Ew_PM1.subs(r_a = r_a/a_sh).subs(eq_gammavs_MU)(E_w = E_l).subs(n_MU = a_sh/a_s).simplify_full()\n",
    "units_check(eq_El_MU_corr_gammav)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 111,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}r_{a} = \\frac{{c_{pa}} \\rho_{a}}{h_{c}}</script></html>"
      ],
      "text/plain": [
       "r_a == c_pa*rho_a/h_c"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{r_{v}} = \\frac{a_{s}}{{g_{bw}}}</script></html>"
      ],
      "text/plain": [
       "r_v == a_s/g_bw"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\frac{r_{a}}{{r_{v}}} = \\frac{1}{\\mathit{Le}^{\\frac{2}{3}}}</script></html>"
      ],
      "text/plain": [
       "r_a/r_v == Le^(-2/3)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "1.08204645272521\n"
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAk0AAAGFCAYAAADgqcccAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAIABJREFUeJzs3X1c1fX9//EHB0sk8CIvYOH3p19HzvI7M7R5ke2bX22Q\nE/imslBnYLlprUXqEnSptUk6XDk3pdS5X5AX0Gw4uwWFqceUqWXCsVoyBoNh6nG5BIUk4Hx+f3zi\n/CLRNA6eq+f9duNW53M+F6/PKT0v3u/X5/UOMAzDQEREREQuy+LuAERERES8gZImERERkSugpElE\nRETkCihpEhEREbkCSppEREREroCSJhEREZEroKRJRERE5AooaRIRERG5Ap3cHYCAw+HgxIkThIaG\nEhAQ4O5wREREfJZhGJw7d46bbroJi+Xqxo6UNHmAEydO8B//8R/uDkNERMRvVFdX07dv36s6RkmT\nBwgNDQXM/4Bdu3a95H6JiYnk5OR8rWu461h3Xltx+8ex7ry24vaPY915bcXt+mNra2v5j//4D+d3\n79VQ0uQBWqbkunbtetmkqVOnTpd9/3Lcdaw7r624/eNYd15bcfvHse68tuLuuGO/TjmMCsH9xNSp\nU91yrLuv3R7uitudn7e7rqv/x7znWFcc747r6v8x7znWFcd3lADDMAx3B+Hvamtr6datGzU1NZfN\njuPi4tixY8c1jMy76fO6evrMro4+r6unz+zq6PO6el/1mV3pd25bND0nIiIiXq+pCdatg08+6bhr\naHrOi3jqcKWn0ud19fSZXR19XldPn9nV0ef11QwD8vNhyBD46U+hb9+O+8w0PecB2jNUKCIi4q/e\nfx/mz4fCQrj7bnjuObj99ssfo+k5H5GYmEinTp2YOnWqfrsQERG5hNOnYckS2LABBgyAvDyIj4fL\nPRC3detWtm7dSlNT09e+rkaaPIBGmkRERL5aQwOsXg3p6WCxmInTT34C119/5edoz3eu19Y07du3\nj7i4OCIiIrBYLFf0dIHVamXYsGEEBQUxcOBAsrKyWr3vcDhYvHgxAwYMIDg4mMjISJYtW+Z8v6mp\nidTUVIYMGUJISAgREREkJSVx8uRJl9+fiIiImAwDtm2DW26BRYvggQegrAzmzr26hKm9vDZpqqur\nY+jQoaxdu/aKGlRVVlYyceJExo0bh81mIyUlhVmzZrFz507nPitWrGDdunVkZmZy7NgxMjIyyMjI\nYM2aNQDU19dTUlLC0qVLKS4uJi8vj9LSUuLj4zvsPkVERPzZO+/Ad78LCQlw661mHdPvfge9el37\nWHxies5isbB9+3bi4uIuuU9qaioFBQUcPXrUuW3q1KnU1NSQn58PQGxsLOHh4WzYsMG5z5QpUwgO\nDiY7O7vN8x4+fJgRI0ZQVVXlXMPm+PHjzJ8/n8LCQgIDAxkzZgyrV6+mX79+bZ5D03MiIiKtHT9u\njiq99BL813+ZRd733NP+8/rl9NzVOnjwIOPHj2+1LTo6mgMHDjhfjx49ml27dlFWVgaAzWajqKiI\nCRMmXPK8Z8+eJSAggO7duwPmFF50dDTdunWjqKiIoqIiQkNDiYmJaVfxmYiIiD+oq4OnnoKBA+GN\nN8zeS8XFrkmY2stvnp47deoUYWFhrbaFhYVRW1tLQ0MDnTt3Ji0tjdraWgYNGkRgYCAOh4P09HQS\nExPbPGdDQwNpaWlMmzaNkJAQAHJzczEMg/Xr1zv327hxIz169MBqtV6UuImIiAg4HLB1K6Smwr/+\nZdYrLVoEnjQB4zcjTW1pmZlsqYnKzc1ly5Yt5OTkUFxcTFZWFitXruSll1666NimpiYSEhIICAgg\nMzPTud1ms1FWVkZoaKjzp2fPnjQ0NFBeXn5tbkxERMSLHDoEo0fDD38II0bAhx/CihWelTCBH400\nhYeHY7fbW207ffo0Xbt25frPS+8XLFjAokWLSEhIAGDw4MFUVlayfPlyZsyY4TyuJWGqrq5m9+7d\nzlEmgPPnzzN8+HC2bNnCl8vFevfufdkYW/o0fZF6NomIiK/66CNIS4NNm+C222DPHrNJpau09Gb6\novaUyvhN0jRq1CgKCgpabSssLGTUqFHO1/X19Rc9iWexWHA4HM7XLQlTRUUFe/bsoUePHq32j4qK\n4uWXX6Z3796tkqkrkZOTo0JwERHxeZ9+Cr/+tTmadMMNsH49PPggBAa69jptDTy0FIJ/HV47PVdX\nV4fNZqOkpASAiooKbDYb1dXVACxcuJCkpCTn/nPmzKG8vJzU1FRKS0vJzMxk27ZtzJs3z7lPbGws\n6enp5OfnU1VVRV5eHqtWrWLSpEkANDc3M3nyZI4cOcKmTZtobGzEbrdjt9tpbGwEYPr06fTq1Yv4\n+Hj2799PZWUlVquVlJQUTpw4ca0+HhEREY9jGJCTA9/6Fvzyl2ZjyrIy+NGPXJ8wdQjDS1mtViMg\nIMCwWCytfmbOnGkYhmEkJycbY8eOveiYqKgoIygoyIiMjDSys7NbvX/+/Hlj7ty5Rv/+/Y3g4GAj\nMjLSWLJkidHY2GgYhmFUVlZedL2WGPbu3es8j91uN5KTk40+ffoYXbp0MSIjI43Zs2cb586da/Ne\nampqDMCoqalx5UckIiLiMd55xzDuvNMwwDDi4w2jrMw9cbTnO9cn+jR5O/VpEhERX3XypPkUXFYW\nDB4Mv/kNjBvnvni0YK+IiIh4lAsXzIaUzzwDQUGQmQmzZkEnL848vDh0ERER8TSGAa+8Ak88YXb1\n/ulPzYV1P+8B7dWUNImIiIhLFBfD44/DW2/B978Pr79uFn37CiVNHqSlT5N6M4mIiDex2+HJJ2Hj\nRrjlFjNZio52d1SttfRsak+fJhWCewAVgouIiDdqaIDVq2HZMrjuOnj6aZgzx7PrllQILiIiIteM\nYcCf/ww/+xlUVsIjj5iL7N54o7sj61he29xSRERErr333oPx4+G+++Dmm83Xv/2t7ydMoKRJRERE\nrsDHH8PDD8PQoeaaca+9BgUFZg2Tv9D0nIiIiFxSUxO88AIsXmxOyz37rLn8yXXXuTuya08jTSIi\nItKm3bvh9tvhscfgBz8w14l7/HH/TJhAI00eRS0HRETEE1RWmkXer7wCo0fD4cMQFeXuqNpHLQd8\nhFoOiIiIJ6ivh1/9CjIyzMLulSth6lQICHB3ZK6jlgMiIiLytRkG/PGP5uiS3W7+c+FCCAlxd2Se\nRTVNIiIifuzoURg7Fu6/35yC++tfIT1dCVNblDSJiIj4oTNnzKaUt99uji698QZs3w7f/Ka7I/Nc\nmp4TERHxI01NsH69uVZcczP8+tfw6KP++0Tc1dBIk4iIiJ+wWs0puEcfhUmTzBYCc+cqYbpSSppE\nRER8XFWV2Wdp7FizVuntt+H3v4c+fdwdmXfR9JwHUZ8mERFxpU8/NdsHrFgBPXpAdjZMnw4WPxwy\nUZ8mH6E+TSIi4kqGYTamnD8fTp2CefNg0SIIDXV3ZO6nPk0iIiICwHvvQUoK7NkDEyfCm2/CzTe7\nOyrf4IcDdCIiIr7n7FkzWbr9dvjoI8jPh1dfVcLkShppEhER8WIOB2RlQWqqWcO0fLmZPF1/vbsj\n8z0aaRIREfFShw+bC+o++CDccw8cOwZPPKGEqaMoaRIREfEyZ87A7Nnwne+Yi+zu3QubN0NEhLsj\n822anhMREfESzc2wYQP8/Ofmv69eDQ8/DJ30bX5N6GP2IOrTJCIil3LggNnJ+8gRmDnT7L2k5pRX\nTn2afIT6NImIyKXY7ZCWBi++aC6BsnYtjBzp7qi8V3u+c722pmnfvn3ExcURERGBxWJhx44dX3mM\n1Wpl2LBhBAUFMXDgQLKyslq973A4WLx4MQMGDCA4OJjIyEiWLVvmfL+pqYnU1FSGDBlCSEgIERER\nJCUlcfLkSZffn4iI+LemJnP6beBA2LED1q0zlz9RwuQ+Xps01dXVMXToUNauXUtAQMBX7l9ZWcnE\niRMZN24cNpuNlJQUZs2axc6dO537rFixgnXr1pGZmcmxY8fIyMggIyODNWvWAFBfX09JSQlLly6l\nuLiYvLw8SktLiY+P77D7FBER/7N3r9lvae5cmDYN/vY3+PGPITDQ3ZH5N5+YnrNYLGzfvp24uLhL\n7pOamkpBQQFHjx51bps6dSo1NTXk5+cDEBsbS3h4OBs2bHDuM2XKFIKDg8nOzm7zvIcPH2bEiBFU\nVVXRt29fAI4fP878+fMpLCwkMDCQMWPGsHr1avr169fmOTQ9JyIiYDalfOIJ2LrVHFFau9ackhPX\n8cvpuat18OBBxo8f32pbdHQ0Bw4ccL4ePXo0u3btoqysDACbzUZRURETJky45HnPnj1LQEAA3bt3\nB8wpvOjoaLp160ZRURFFRUWEhoYSExPTruIzERHxXZ99Zi6s+61vwa5dZv1SUZESJk/jN0/PnTp1\nirCwsFbbwsLCqK2tpaGhgc6dO5OWlkZtbS2DBg0iMDAQh8NBeno6iYmJbZ6zoaGBtLQ0pk2bRkhI\nCAC5ubkYhsH69eud+23cuJEePXpgtVovStxERMS/FRbCY4/B3/9uPh339NPQrZu7o5K2+M1IU1ta\nZiZbaqJyc3PZsmULOTk5FBcXk5WVxcqVK3nppZcuOrapqYmEhAQCAgLIzMx0brfZbJSVlREaGur8\n6dmzJw0NDZSXl1+bGxMREY9XVQWTJ0N0NISHQ3Ex/OY3Spg8md+MNIWHh2O321ttO336NF27duX6\nz/vNL1iwgEWLFpGQkADA4MGDqaysZPny5cyYMcN5XEvCVF1dze7du52jTADnz59n+PDhbNmyhS+X\ni/Xu3fuyMbb0afoi9WwSEfEtFy7AypXwzDNw441m/dL998MVPNMkV6mlN9MXtadUxm+SplGjRlFQ\nUNBqW2FhIaNGjXK+rq+vv+hJPIvFgsPhcL5uSZgqKirYs2cPPXr0aLV/VFQUL7/8Mr17926VTF2J\nnJwcFYKLiPiw114zp+Kqq80n4558EkJD3R2V72pr4KGlEPzr8Nrpubq6Omw2GyUlJQBUVFRgs9mo\nrq4GYOHChSQlJTn3nzNnDuXl5aSmplJaWkpmZibbtm1j3rx5zn1iY2NJT08nPz+fqqoq8vLyWLVq\nFZMmTQKgubmZyZMnc+TIETZt2kRjYyN2ux273U5jYyMA06dPp1evXsTHx7N//34qKyuxWq2kpKRw\n4sSJa/XxiIiIB6mqgv/9X5g4EQYMgKNH4Ve/UsLkdQwvZbVajYCAAMNisbT6mTlzpmEYhpGcnGyM\nHTv2omOioqKMoKAgIzIy0sjOzm71/vnz5425c+ca/fv3N4KDg43IyEhjyZIlRmNjo2EYhlFZWXnR\n9Vpi2Lt3r/M8drvdSE5ONvr06WN06dLFiIyMNGbPnm2cO3euzXupqakxAKOmpsaVH5GIiLjZhQuG\nkZ5uGF26GMZNNxlGbq5hOBzujsq/tec71yf6NHk79WkSEfE9b74JP/kJlJfD44/D0qUaWfIE6tMk\nIiLiIT76yCzsvuce86m4khL49a+VMPkCJU0iIiIu0NgIzz4LgwaB1QrZ2eY//+u/3B2ZuIrfPD0n\nIiLSUd56Cx55BD780JyS+8Uv4POFIsSHKGnyIC19mtSbSUTEO5w6Za4Vt2mTuVbc4cPmQrvieVp6\nNrWnT5MKwT2ACsFFRLxLUxM8/7zZZ+m668z2ATNngkVFLx5PheAiIiLXyIEDcMcdkJICiYlQWgoP\nPaSEyR/oP7GIiMgV+PhjMzkaPdpMkA4ehHXroGdPd0cm14pqmkRERC7D4YANG2DhQjAMWLsWZs+G\nwEB3RybXmkaaRERELuHdd80C7zlzIC7OnIp75BElTP5KSZOIiMiXfPKJmRzdcQdcuAD79sGLL0Kf\nPu6OTNxJ03MiIiKfMwyzKeUTT8Cnn5rNKn/6U+ikb0tBSZNHUZ8mERH3+fBDePhh2LvXXAbluefg\nppvcHZW4ivo0+Qj1aRIRcZ/6eli2zFwfrl8/yMw0140T39Se71yNNImIiN/KzzeXPTlxAhYtgrQ0\nCApyd1TiqZQ0iYiI3zl+HB5/HF55BcaPhzfegIED3R2VeDo9PSciIn6jqQlWrYJbboGiIti6FQoL\nlTDJlVHSJCIifuHgQRg+HObPh6Qks/A7MRECAtwdmXgLJU0iIuLTPvnEbE45erTZlPLQIVizBrp3\nd3dk4m1U0yQiIj7JMGDzZnNk6dNPYfVqdfOW9lHS5EHUp0lExDWOHTMTpD171HNJTOrT5CPUp0lE\nxDU+/RSeeQZ+9Sv4P//H7Ln0ve+5OyrxJOrTJCIifu/1182eS8ePw8KFZs+lLl3cHZX4EhWCi4iI\nV/voI/jBD+Dee+E//xPeew+efloJk7iekiYREfFKTU1mcfctt5jrxW3eDDt3queSdBwlTSIi4nUO\nH4bvfAfmzoUZM6C0FKZNU88l6VhKmkRExGvU1kJKCowYYbYUOHgQ1q5VzyW5NlQILiIiXmH7dnj0\nUbNZ5cqV8Nhj0EnfYnIN6X83D6I+TSIiF6uuhp/+FP78Z5g40ezm3a+fu6MSb6M+TT5CfZpERC7W\n3GwmSE8+CaGh8LvfwaRJqluS9mnPd67X1jTt27ePuLg4IiIisFgs7Nix4yuPsVqtDBs2jKCgIAYO\nHEhWVlar9x0OB4sXL2bAgAEEBwcTGRnJsmXLnO83NTWRmprKkCFDCAkJISIigqSkJE6ePOny+xMR\n8WdHjph1S3PnwgMPmIvrTp6shEncy2uTprq6OoYOHcratWsJuII/RZWVlUycOJFx48Zhs9lISUlh\n1qxZ7Ny507nPihUrWLduHZmZmRw7doyMjAwyMjJYs2YNAPX19ZSUlLB06VKKi4vJy8ujtLSU+Pj4\nDrtPERF/cv68uVbcHXdAYyP85S9moXe3bu6OTMRHpucsFgvbt28nLi7ukvukpqZSUFDA0aNHndum\nTp1KTU0N+fn5AMTGxhIeHs6GDRuc+0yZMoXg4GCys7PbPO/hw4cZMWIEVVVV9O3bF4Djx48zf/58\nCgsLCQwMZMyYMaxevZp+l5iE1/SciAi8+qrZ0fvjj+Gpp8xRpuuuc3dU4mv8cnruah08eJDx48e3\n2hYdHc2BAwecr0ePHs2uXbsoKysDwGazUVRUxIQJEy553rNnzxIQEED3z593bWpqIjo6mm7dulFU\nVERRURGhoaHExMS0q/hMRMRXnTgBU6ZAXBwMHgwffAALFihhEs/jN0/PnTp1irCwsFbbwsLCqK2t\npaGhgc6dO5OWlkZtbS2DBg0iMDAQh8NBeno6iYmJbZ6zoaGBtLQ0pk2bRkhICAC5ubkYhsH69eud\n+23cuJEePXpgtVovStxERPxVczO88IK5TlxwMOTkmMuhqG5JPJXfJE1taZmZbKmJys3NZcuWLeTk\n5HDrrbdSUlJCSkoKN910EzNmzGh1bFNTEwkJCQQEBJCZmencbrPZKCsrIzQ0tNX+DQ0NlJeXK2kS\nEQFsNpg9Gw4dMv+5YoUaVIrn85ukKTw8HLvd3mrb6dOn6dq1K9dffz0ACxYsYNGiRSQkJAAwePBg\nKisrWb58eaukqSVhqq6uZvfu3c5RJoDz588zfPhwtmzZwpfLxXr37n3ZGFv6NH2RejaJiC+pqzMX\n033uORg0CIqKYPRod0clvqqlN9MXtadUxm+SplGjRlFQUNBqW2FhIaNGjXK+rq+vv+hJPIvFgsPh\ncL5uSZgqKirYs2cPPXr0aLV/VFQUL7/8Mr17926VTF2JnJwcFYKLiM8qKIBHHoFTp+AXv4Cf/Qw+\n/51VpEO0NfDQUgj+dXhtIXhdXR02m42SkhIAKioqsNlsVFdXA7Bw4UKSkpKc+8+ZM4fy8nJSU1Mp\nLS0lMzOTbdu2MW/ePOc+sbGxpKenk5+fT1VVFXl5eaxatYpJkyYB0NzczOTJkzly5AibNm2isbER\nu92O3W6nsbERgOnTp9OrVy/i4+PZv38/lZWVWK1WUlJSOHHixLX6eEREPMapU5CYCBMmwM03w3vv\nwaJFSpjECxleymq1GgEBAYbFYmn1M3PmTMMwDCM5OdkYO3bsRcdERUUZQUFBRmRkpJGdnd3q/fPn\nzxtz5841+vfvbwQHBxuRkZHGkiVLjMbGRsMwDKOysvKi67XEsHfvXud57Ha7kZycbPTp08fo0qWL\nERkZacyePds4d+5cm/dSU1NjAEZNTY0rPyIREbdqbjaMF14wjG7dDKN3b8PYtMkwHA53RyX+rj3f\nuT7Rp8nbqU+TiPiaDz+EH/8Y9u+Hhx6CjAy48UZ3RyWiPk0iIuIhPvvMrFcaOhTsdrBa4fe/V8Ik\nvsFvCsFFRKRjHTgAP/oRlJaazSkXL4agIHdHJeI6Spo8SEvLAbUZEBFvUltrFnZnZpprxr37LgwZ\n4u6oRFpraT/QnpYDqmnyAKppEhFv9eqrZhuBTz6B9HR49FEIDHR3VCKXppomERG5pk6dgvvvN9eL\n+/a3zfXiUlKUMIlv0/SciIhcMcOA//t/Yf586NQJNm+GqVO1Xpz4B400iYjIFSkrg3HjzBYCcXFm\nW4Fp05Qwif9Q0iQiIpfV2GguqDtkCFRWQmEhZGVBr17ujkzk2lLSJCIil/TOO+YTcT//uVnk/d57\ncM897o5KxD2UNImIyEXq6mDePBg5EiwWePttWLkSbrjB3ZGJuI8KwT2I+jSJiCd44w2YM8d8Qm7F\nCpg71yz6FvFm6tPkI9SnSUQ8wb/+ZSZImzebBd/r1sE3v+nuqERcqz3fufrdQUTEzxkGbNpkJkwO\nh9lSIClJT8WJfJlqmkRE/Ng//gExMfDAA/C978GxY5CcrIRJpC1KmkRE/FBzM6xaBf/1X2a/pdde\ngy1boE8fd0cm4rmUNImI+JkPPoDRo82u3g89ZL6eMMHdUYl4PiVNIiJ+4rPP4Be/gNtvh9pa2L8f\nfvtbCA11d2Qi3kGF4CIifuCdd8xRpb/+FdLS4MknISjI3VGJeBclTR5EfZpExNXq6+Gpp+DZZ+G2\n2+DwYRg61N1RiVx76tPkI9SnSUQ6wt69MGsWVFebidP8+XDdde6OSsS92vOdq5omEREfU1sLDz8M\nd98N4eFgs5lTckqYRNpH03MiIj4kPx9mz4ZPPoE1a8zkyaJfj0VcQn+URER8wMcfw4wZ8P3vw+DB\nZhuBn/xECZOIK2mkSUTEixkG/PGP8Oij0NQEL75odvdWR28R19PvICIiXurECZg0Ce6/H777XbOd\ngNaME+k4GmkSEfEyhgF/+IP5NFxQEGzbBpMnuzsqEd+npMmDqE+TiHyVf/wDfvxjePNNc1Tpuefg\nxhvdHZWI51OfJh+hPk0i8lWam82n4RYtgl69YP16iI52d1Qi3scv+zTt27ePuLg4IiIisFgs7Nix\n4yuPsVqtDBs2jKCgIAYOHEhWVlar9x0OB4sXL2bAgAEEBwcTGRnJsmXLnO83NTWRmprKkCFDCAkJ\nISIigqSkJE6ePOny+xMRafHhh3DXXfD44/Dgg/D++0qYRNzBa5Omuro6hg4dytq1awm4gqrHyspK\nJk6cyLhx47DZbKSkpDBr1ix27tzp3GfFihWsW7eOzMxMjh07RkZGBhkZGaxZswaA+vp6SkpKWLp0\nKcXFxeTl5VFaWkp8fHyH3aeI+K/GRnjmGXPZkzNnYN8++N3vtMCuiLv4xPScxWJh+/btxMXFXXKf\n1NRUCgoKOHr0qHPb1KlTqampIT8/H4DY2FjCw8PZsGGDc58pU6YQHBxMdnZ2m+c9fPgwI0aMoKqq\nir59+wJw/Phx5s+fT2FhIYGBgYwZM4bVq1fTr1+/Ns+h6TkR+bKjRyE52fznz34GS5dCly7ujkrE\n+/nl9NzVOnjwIOPHj2+1LTo6mgMHDjhfjx49ml27dlFWVgaAzWajqKiICRMmXPK8Z8+eJSAggO7d\nuwPmFF50dDTdunWjqKiIoqIiQkNDiYmJaVfxmYj4h88+g6efhuHDzZGmgwdhxQolTCKewG+enjt1\n6hRhYWGttoWFhVFbW0tDQwOdO3cmLS2N2tpaBg0aRGBgIA6Hg/T0dBITE9s8Z0NDA2lpaUybNo2Q\nkBAAcnNzMQyD9evXO/fbuHEjPXr0wGq1XpS4iYi0KC6GmTPNmqWFC+HJJ6FzZ3dHJSIt/GakqS0t\nM5MtNVG5ubls2bKFnJwciouLycrKYuXKlbz00ksXHdvU1ERCQgIBAQFkZmY6t9tsNsrKyggNDXX+\n9OzZk4aGBsrLy6/NjYmIV/nsM1iyBL7zHbMH09tvwy9/qYRJxNP4zUhTeHg4dru91bbTp0/TtWtX\nrr/+egAWLFjAokWLSEhIAGDw4MFUVlayfPlyZsyY4TyuJWGqrq5m9+7dzlEmgPPnzzN8+HC2bNnC\nl8vFevfufdkYW/o0fZF6Non4tnffNUeXPvzQHFlauBA+/ytJRNqppTfTF7WnVMZvkqZRo0ZRUFDQ\nalthYSGjRo1yvq6vr7/oSTyLxYLD4XC+bkmYKioq2LNnDz169Gi1f1RUFC+//DK9e/dulUxdiZyc\nHBWCi/iJhgb4xS/gV7+Cb38bDh+G225zd1QivqWtgYeWQvCvw2un5+rq6rDZbJSUlABQUVGBzWaj\nuroagIULF5KUlOTcf86cOZSXl5OamkppaSmZmZls27aNefPmOfeJjY0lPT2d/Px8qqqqyMvLY9Wq\nVUyaNAmA5uZmJk+ezJEjR9i0aRONjY3Y7XbsdjuNjY0ATJ8+nV69ehEfH8/+/fuprKzEarWSkpLC\niRMnrtXHIyIe7O23ISoKVq6Ep54yXythEvEChpeyWq1GQECAYbFYWv3MnDnTMAzDSE5ONsaOHXvR\nMVFRUUZQUJARGRlpZGdnt3r//Pnzxty5c43+/fsbwcHBRmRkpLFkyRKjsbHRMAzDqKysvOh6LTHs\n3bvXeR673W4kJycbffr0Mbp06WJERkYas2fPNs6dO9fmvdTU1BiAUVNT48qPSEQ8zKefGsaCBYZh\nsRjGsGGGcfSouyMS8T/t+c7t8D5Np06d4tSpU9x8883ccMMNHXkpr6U+TSK+78ABs5t3RYU5uvTE\nE9DJbwo3KUNsAAAgAElEQVQkRDxHe75zO/yP7G233UZERAT33XcfXbt2pXv37kybNo3rrruuoy8t\nIuJ2n34KixebC+vecYfZVuDWW90dlYh8HR2eNL399tv07duXwMBAAP7973/z/PPPExMTw8CBAzv6\n8iIibrN/vzm69M9/mg0q583T6JKIN+vwQvB+/fo5EyaAG2+8kccee6zVmm8iIr6krs5cXPe734We\nPaGkBBYsUMIk4u06/I/w+vXref3114mJieG+++5z9iqqr6/v6Et7nZY+TerNJOK93nrLHF366CP4\n9a8hJQW+8HujiLhJS8+m9vRp6vBC8Mcff5xvf/vb5OXlUVhYyIABA+jWrRu33HILL774Ykde2muo\nEFzE+50/bzamXLMG7rwT/vAHUAWCiOfx6ELwm2++mSFDhvDQQw/x8ccfc+DAASwWCzExMR19aRGR\na8JqNUeXTp2C3/wGHn1Uo0sivqjDR5oACgoKCA0NZcyYMR19Ka+kkSYR71RXZ44u/e53cNdd5uhS\nZKS7oxKRy/GIkaajR4+yceNG4uLiGDduXKv37r33XlddRkTEIxQVQXIyHD8Oq1bBY4+BxWvXWBCR\nK+GyP+JPPfUUL7zwAvfff7+rTiki4nE+/RR+9jNzZKlXL/PJuMcfV8Ik4g9cNtIUHh7OG2+8wZkz\nZ1x1ShERj/L225CUZHb1XrEC5s9X7ZKIP3FZ0tS5c2e+9a1v8Y1vfMNVpxQR8QgNDfCLX5iJUlSU\nunqL+CuXDSgvXbqUlJQUbDabq07pdxITE4mLi2Pr1q3uDkVEPldcbC5/snIlPP00/OUvSphEvNHW\nrVuJi4sjMTHxa5/DZU/Pvfbaazz44IN88sknjBkzhrvvvpu7776bkSNHcv3117viEj5LT8+JeJ7G\nRnjmGVi2DAYPhqwsuO02d0clIu3Vnu9clyVNd911FzExMXz00UcUFRXx/vvvA+a03ciRIxk7diwJ\nCQkMGjTIFZfzKUqaRDzLe++ZtUtHj8KiRfDkk6Df/UR8g0e0HPjP//xPFi5ciOXzR0jOnDnD7t27\n2bNnD1arlaVLl/L8889z4sQJV11SRMSlmpogIwOeesrs5n3oEAwb5u6oRMRTuGyk6ciRI6xcuZKb\nb76ZyZMnc9uXxrHtdjt2u50hQ4a44nI+RSNNIu734Ydm36XDh+GJJ8z6pc6d3R2ViLiaR4w0RUVF\nsXXrVioqKrDb7Re9HxYWRlhYmKsuJyLiEs3NZnPKJ5+E/v3NppUjR7o7KhHxRC5fe27AgAEMGDDA\n1acVEXG5sjKYOdN8Im7uXLPou0sXd0clIp7qqloObNu2jbi4OHJzc7lw4UJHxSQi0qEcDvjtb82n\n4U6dgr174dlnlTCJyOVdVdI0ZcoUFi5cyL59+7j11ltJSkqisLAQh8PRUfH5FfVpEul4//gHjBsH\nKSnw0ENgs5lLooiIb3Nrn6bm5mZef/11Nm/ezKFDh4iNjWX69OnccccdXzsYf6VCcJGOZxiwbp25\nblyvXvCHP8D//I+7oxKRa83tfZrq6ur405/+xObNm/nnP//J/fffz7Rp07j55pvbe2q/oKRJpGMd\nP26OKhUWwo9/bHb31h81Ef/k9qTpi06fPk1OTg6bN28GYPr06SQmJtKnTx9XXsanKGkS6RiGAVu3\nwk9+AsHBsHEjxMS4OyoRcaf2fOe6bO25Fn369OGxxx7j0KFDbNq0iX//+9/893//NzExMbz00kvU\n1dW5+pIiIhf5+GO4/36YPh3uvdfs8q2ESUTaw+UjTZdy6NAhNm/ezKuvvsrIkSOZPn069957L4GB\ngdfi8h5NI00irvXaazBrFnz2GTz/PPzgB+6OSEQ8hUeNNF3KiBEj+O1vf8vf//53HnjgAXJycoiM\njOQnP/kJhw4dulZhiIgPO3cOfvQjmDgRbr/dHF1SwiQirnLNRpraUl9fT15eHm+99Rbr1q1zVxhu\n15L13nvvvXTq1ImpU6cydepUd4cl4lXeestcBuX0abPD96xZEBDg7qhExFNs3bqVrVu30tTUREFB\ngWcUgsvV0/ScyNd34QIsXmw2p7zzTnjxRfjmN90dlYh4Kq+YnnO1ffv2ERcXR0REBBaLhR07dnzl\nMVarlWHDhhEUFMTAgQPJyspq9b7D4WDx4sUMGDCA4OBgIiMjWbZsmfP9pqYmUlNTGTJkCCEhIURE\nRJCUlMTJkyddfn8i8tWKi2H4cLO7969+BVarEiYR6TjXPGk6cOAAzz77LFVVVe06T11dHUOHDmXt\n2rUEXMEYfGVlJRMnTmTcuHHYbDZSUlKYNWsWO3fudO6zYsUK1q1bR2ZmJseOHSMjI4OMjAzWrFkD\nmNOJJSUlLF26lOLiYvLy8igtLSU+Pr5d9yIiV6epyVwn7jvfgU6d4PBheOIJ0HMlItKROnx67s47\n7wTg7rvv5u677+bOO+8kODiYX/7ylyxevNgl17BYLGzfvp24uLhL7pOamkpBQQFHjx51bps6dSo1\nNTXk5+cDEBsbS3h4OBs2bHDuM2XKFIKDg8nOzm7zvIcPH2bEiBFUVVXRt29fAI4fP878+fMpLCwk\nMDCQMWPGsHr1avr169fmOTQ9J3Ll/vY3eOABeOcdSEuDpUvh+uvdHZWIeAuPnp6bPn06Y8eOpba2\nlnnz5nHjjTcSFRV1zZ+YO3jwIOPHj2+1LTo6mgMHDjhfjx49ml27dlFWVgaAzWajqKiICRMmXPK8\nZ8+eJSAggO7duwPmFF50dDTdunWjqKiIoqIiQkNDiYmJoampqQPuTMQ/OBywZg0MHQpnzsD+/ZCe\nroRJRK6dTh19AcMwWtUFffzxxzz33HN8//vf7+hLt3Lq1CnCwsJabQsLC6O2tpaGhgY6d+5MWloa\ntbW1DBo0iMDAQBwOB+np6Zdc3K+hoYG0tDSmTZtGSEgIALm5uRiGwfr16537bdy4kR49emC1Wi9K\n3ETkq1VXw4MPwptvwiOPQEYG3HCDu6MSEX/T4SNNf/vb31p1Ae/VqxfPPPMM77zzTkdf+iu1zEy2\n1ETl5uayZcsWcnJyKC4uJisri5UrV/LSSy9ddGxTUxMJCQkEBASQmZnp3G6z2SgrKyM0NNT507Nn\nTxoaGigvL782NybiIwwDNm2Cb38b/vpXeP11WLtWCZOIuEeHjzRNnjyZESNG8NhjjzFx4kRuuukm\nAC5cuNDRl24lPDwcu93eatvp06fp2rUr138+vr9gwQIWLVpEQkICAIMHD6ayspLly5czY8YM53Et\nCVN1dTW7d+92jjIBnD9/nuHDh7Nlyxa+XC7Wu3fvy8aYmJhIp06t/5OoZ5P4q3/9Cx5+GF55BaZN\nM6fmevRwd1Qi4k1aejN9UXtKZTo8afrud7/L888/z5w5c3j44YcJCwvDYrEwe/bsjr50K6NGjaKg\noKDVtsLCQkaNGuV8XV9ff9GTeBaLBYfD4XzdkjBVVFSwZ88eenzpb/GoqChefvllevfu3SqZuhI5\nOTkqBBcBXn3V7Ozd2Agvvwyf/x4jInJV2hp4aCkE/zquScuBu+66iw8++IADBw7wm9/8htdff73d\nT87V1dVhs9koKSkBoKKiApvNRnV1NQALFy4kKSnJuf+cOXMoLy8nNTWV0tJSMjMz2bZtG/PmzXPu\nExsbS3p6Ovn5+VRVVZGXl8eqVauYNGkSAM3NzUyePJkjR46wadMmGhsbsdvt2O12GhsbAbPwvVev\nXsTHx7N//34qKyuxWq2kpKRw4sSJdt2ziK87d87s5B0XB8OGwfvvK2ESEQ9iuIjNZjMee+wx4803\n33TVKS/LarUaAQEBhsViafUzc+ZMwzAMIzk52Rg7duxFx0RFRRlBQUFGZGSkkZ2d3er98+fPG3Pn\nzjX69+9vBAcHG5GRkcaSJUuMxsZGwzAMo7Ky8qLrtcSwd+9e53nsdruRnJxs9OnTx+jSpYsRGRlp\nzJ492zh37lyb91JTU2MARk1NjSs/IhGvsm+fYfTvbxg33GAY69cbhsPh7ohExBe15zvXZX2aJk2a\nxGuvvUZoaCgff/yxK07pN9SnSfzZZ5/B00/DihUwciS89BIMGODuqETEV7XnO9dlNU3h4eG88cYb\nnDlzxlWnFBEf9+GH8MMfwtGj8ItfQGqq2eFbRMQTueyvp86dO/Otb32Lb3zjG646pYj4KMMwWwc8\n8QT06wcHDphryImIeDKXFYIvXbqUlJQUbDabq04pIj7oxAm491746U/hoYfgyBElTCLiHVw20lRU\nVMTevXvZvn07Y8aMca41N3LkSGcfJLm8lj5N6s0kvuqVV+DHPzaXPikogJgYd0ckIv6ipWdTe/o0\nuawQ/K677iImJoaPPvqIoqIi3n//fcCcths5ciRjx44lISGBQYMGueJyPkWF4OLramvhsccgKwsm\nTYJ166BXL3dHJSL+qD3fuS5Lmh544AFefPFFLBZzxu/MmTPs3r2bPXv2YLVaOXbsGOHh4epV1AYl\nTeLL9u2DBx6Ajz+G3/0OkpLgSz1kRUSuGY9Imo4cOcLKlSu5+eabmTx5Mrfddlur91uaQA4ZMsQV\nl/MpSprEF332GSxdCr/6FYweDdnZaiUgIu7nEUlTi4qKCux2e6vlSeTylDSJr/nrX81WAu+9Z/Zg\nSk2FwEB3RyUi4iF9mloMGDCAAfp1UsQvORxmK4EFC6B/fzh40FwORUTEF1yTtedExPe1tBJ47DFz\nsd1331XCJCK+Rb13RaTdtm2D2bOhc2d4/XWIjnZ3RCIirqekyYOoT5N4m9pas0lldjZMmQIvvAA9\ne7o7KhGRi3lUnyb5+lQILt5o/36YMQPOnIE1a8x/VysBEfF07fnOVU2TiFyVxkZYsgT++7+hb19z\nsd0HHlDCJCK+T9NzInLFysth+nQ4fNhsJbBwoVoJiIj/UNIkIl/JMMwlUH76UwgLg6IiGDHC3VGJ\niFxbmp4Tkcv65BNITISZM81i7+JiJUwi4p800iQil2S1mgXe589Dbi784AfujkhExH000iQiF/ns\nM7Ne6X/+B775TbPYWwmTiPg7jTR5EPVpEk/wt7+Zxd4lJfDMM/DEEyr2FhHvpz5NPkJ9msQTGAZs\n3AgpKRARAVu2wPDh7o5KRMS11KdJRNrlzBmYPNlcM27aNLPYWwmTiEhrmp4T8XNvvglJSXDhArzy\nCkya5O6IREQ8k0aaRPxUQ4NZr3TPPXDLLWaxtxImEZFL00iTiB/68ENzGu6DD+DXv4a5c8GiX6FE\nRC5Lf02K+BHDgOefh6goczru0CGYP18Jk4jIldBflSJ+4l//gvh4eOQRs7v3u+/C7be7OyoREe+h\n6TkPoj5N0lFefx2Sk6G5GXbsgNhYd0ckInJtqU+Tj1CfJukoDQ2Qlga/+Q1873vw4ovwjW+4OyoR\nEffxyz5N+/btIy4ujoiICCwWCzt27PjKY6xWK8OGDSMoKIiBAweSlZXV6n2Hw8HixYsZMGAAwcHB\nREZGsmzZMuf7TU1NpKamMmTIEEJCQoiIiCApKYmTJ0+6/P5E2qu0FEaOhLVr4bnnoKBACZOISHt4\nbdJUV1fH0KFDWbt2LQEBAV+5f2VlJRMnTmTcuHHYbDZSUlKYNWsWO3fudO6zYsUK1q1bR2ZmJseO\nHSMjI4OMjAzWrFkDQH19PSUlJSxdupTi4mLy8vIoLS0lPj6+w+5T5GoZBvzhD2axd329Weytp+NE\nRNrPJ6bnLBYL27dvJy4u7pL7pKamUlBQwNGjR53bpk6dSk1NDfn5+QDExsYSHh7Ohg0bnPtMmTKF\n4OBgsrOz2zzv4cOHGTFiBFVVVfTt2xeA48ePM3/+fAoLCwkMDGTMmDGsXr2afv36tXkOTc+Jq5w9\nC3PmQG4uPPggrF4NISHujkpExHP45fTc1Tp48CDjx49vtS06OpoDBw44X48ePZpdu3ZRVlYGgM1m\no6ioiAkTJlzyvGfPniUgIIDu3bsD5hRedHQ03bp1o6ioiKKiIkJDQ4mJiWlX8ZnIV/nLX2DoUHMa\nLifHXEdOCZOIiOv4zdNzp06dIiwsrNW2sLAwamtraWhooHPnzqSlpVFbW8ugQYMIDAzE4XCQnp5O\nYmJim+dsaGggLS2NadOmEfL5t1Nubi6GYbB+/Xrnfhs3bqRHjx5YrdaLEjeR9mpuhhUrYOlS+M53\nwGqF/v3dHZWIiO/xm6SpLS0zky01Ubm5uWzZsoWcnBxuvfVWSkpKSElJ4aabbmLGjBmtjm1qaiIh\nIYGAgAAyMzOd2202G2VlZYSGhrbav6GhgfLyciVN4lLHj8OMGbB3L/z852bi1Mmv/1SLiHQcv/nr\nNTw8HLvd3mrb6dOn6dq1K9dffz0ACxYsYNGiRSQkJAAwePBgKisrWb58eaukqSVhqq6uZvfu3c5R\nJoDz588zfPhwtmzZwpfLxXr37n3ZGFv6NH2RejbJpfz5z2bdUpcusHs33H23uyMSEfEsLb2Zvqg9\npTJ+kzSNGjWKgoKCVtsKCwsZNWqU83V9ff1FT+JZLBYcDofzdUvCVFFRwZ49e+jRo0er/aOionj5\n5Zfp3bt3q2TqSuTk5KgQXL7Sp5/Cz34GmZlmh++NG6FnT3dHJSLiedoaeGgpBP86vLYQvK6uDpvN\nRklJCQAVFRXYbDaqq6sBWLhwIUlJSc7958yZQ3l5OampqZSWlpKZmcm2bduYN2+ec5/Y2FjS09PJ\nz8+nqqqKvLw8Vq1axaTPl35vbm5m8uTJHDlyhE2bNtHY2Ijdbsdut9PY2AjA9OnT6dWrF/Hx8ezf\nv5/KykqsVispKSmcOHHiWn084qM++MCsW9q40ey/lJenhElE5JoxvJTVajUCAgIMi8XS6mfmzJmG\nYRhGcnKyMXbs2IuOiYqKMoKCgozIyEgjOzu71fvnz5835s6da/Tv398IDg42IiMjjSVLlhiNjY2G\nYRhGZWXlRddriWHv3r3O89jtdiM5Odno06eP0aVLFyMyMtKYPXu2ce7cuTbvpaamxgCMmpoaV35E\n4kMcDsN4/nnDCAoyjMGDDePoUXdHJCLindrznesTfZq8nfo0yeX8+98wa5Y5qjRnDjz7LAQHuzsq\nERHv1J7vXL+paRLxRm+9BdOnQ10d/OlPcN997o5IRMR/eW1Nk4gva2oy2weMHQsDBoDNpoRJRMTd\nNNIk4mGqqszRpQMH4KmnYNEiCAx0d1QiIqKkyYO09GlSbyb/9cc/wo9+BN26mVNzd97p7ohERHxD\nS8+m9vRpUiG4B1AhuNTXw+OPw4YNkJAA69bBl1qAiYiIC6gQXMSLffAB3H8/VFTA+vXmk3Jf6rEq\nIiIeQIXgIm5iGPD738Mdd5iv33nHnJpTwiQi4pmUNIm4QW0tTJ1qJkk//CG8/TYMHuzuqERE5HI0\nPSdyjR0+bE7H/etfkJNj/ruIiHg+jTSJXCOGAatWwejRcOONUFyshElExJsoaRK5Bj7+GOLiYN48\nePRRKCqCb37T3VGJiMjV0PScB1GfJt/01lswbRpcuACvvgoTJ7o7IhER/6M+TT5CfZp8U3MzpKfD\n00/DmDGweTP07evuqERE/Jv6NIl4mBMnzKfirFZYvNj86aQ/bSIiXk1/jYu42OuvwwMPmEnSrl3m\norsiIuL9VAgu4iKNjbBgAdx7LwwbBiUlSphERHyJRppEXOAf/zCbVb77LqxcaT4lZ9GvJCIiPkVJ\nk0g7bdtmrhfXowfs3w8jRrg7IhER6QhKmjyIWg54lwsXzBGl55+HhARzsd3u3d0dlYiItEUtB3yE\nWg54n7IyM1E6dgxWr4Yf/1gL7YqIeIP2fOeq6kLkKuXmQlQUfPopHDoEs2crYRIR8QdKmkSu0IUL\n8PDDkJgIsbHmwru33ebuqERE5FpRTZPIFSgrgx/8AD78ENatgx/9SKNLIiL+RiNNIl8hN9fsu1RX\nZ07HqX5JRMQ/KWkSuYQLF+CRR8zpuO9/3+zBpOk4ERH/pek5kTb8/e/m03GajhMRkRZKmjyI+jR5\nhpdfNptVhofDwYMwdKi7IxIRkfZSnyYfoT5NnuHCBZg/HzIz4f77zWaV+s8hIuJb/LJP0759+4iL\niyMiIgKLxcKOHTu+8hir1cqwYcMICgpi4MCBZGVltXrf4XCwePFiBgwYQHBwMJGRkSxbtsz5flNT\nE6mpqQwZMoSQkBAiIiJISkri5MmTLr8/ubb+/ncYPRo2boQXXoCtW5UwiYhIa16bNNXV1TF06FDW\nrl1LwBUUm1RWVjJx4kTGjRuHzWYjJSWFWbNmsXPnTuc+K1asYN26dWRmZnLs2DEyMjLIyMhgzZo1\nANTX11NSUsLSpUspLi4mLy+P0tJS4uPjO+w+peP98Y9ms8pz58zpODWrFBGRtvjE9JzFYmH79u3E\nxcVdcp/U1FQKCgo4evSoc9vUqVOpqakhPz8fgNjYWMLDw9mwYYNznylTphAcHEx2dnab5z18+DAj\nRoygqqqKvn37AnD8+HHmz59PYWEhgYGBjBkzhtWrV9OvX782z6HpOfe4cAF+9jNYu1bTcSIi/sIv\np+eu1sGDBxk/fnyrbdHR0Rw4cMD5evTo0ezatYuysjIAbDYbRUVFTJgw4ZLnPXv2LAEBAXT/fKXW\npqYmoqOj6datG0VFRRQVFREaGkpMTEy7is/EtcrL4c474fe/Nxfc1XSciIh8Fb95eu7UqVOEhYW1\n2hYWFkZtbS0NDQ107tyZtLQ0amtrGTRoEIGBgTgcDtLT00lMTGzznA0NDaSlpTFt2jRCQkIAyM3N\nxTAM1q9f79xv48aN9OjRA6vVelHiJtfeH/9oPh3Xpw8cOAC33+7uiERExBv4zUhTW1pmJltqonJz\nc9myZQs5OTkUFxeTlZXFypUreemlly46tqmpiYSEBAICAsjMzHRut9lslJWVERoa6vzp2bMnDQ0N\nlJeXX5sbkzY1NMCjj5rLocTEmM0qlTCJiMiV8puRpvDwcOx2e6ttp0+fpmvXrlx//fUALFiwgEWL\nFpGQkADA4MGDqaysZPny5cyYMcN5XEvCVF1dze7du52jTADnz59n+PDhbNmyhS+Xi/Xu3fuyMbb0\nafoi9WxyjfJyM1l6/32zpcCcOSr2FhHxdS29mb6oPaUyfpM0jRo1ioKCglbbCgsLGTVqlPN1fX39\nRU/iWSwWHA6H83VLwlRRUcGePXvo0aNHq/2joqJ4+eWX6d27d6tk6krk5OSoELwD/OlPMHMm9O5t\nPh2n0SUREf/Q1sBDSyH41+G103N1dXXYbDZKSkoAqKiowGazUV1dDcDChQtJSkpy7j9nzhzKy8tJ\nTU2ltLSUzMxMtm3bxrx585z7xMbGkp6eTn5+PlVVVeTl5bFq1SomTZoEQHNzM5MnT+bIkSNs2rSJ\nxsZG7HY7drudxsZGAKZPn06vXr2Ij49n//79VFZWYrVaSUlJ4cSJE9fq4xGgsdFsVjl5Mtxzj6bj\nRESknQwvZbVajYCAAMNisbT6mTlzpmEYhpGcnGyMHTv2omOioqKMoKAgIzIy0sjOzm71/vnz5425\nc+ca/fv3N4KDg43IyEhjyZIlRmNjo2EYhlFZWXnR9Vpi2Lt3r/M8drvdSE5ONvr06WN06dLFiIyM\nNGbPnm2cO3euzXupqakxAKOmpsaVH5Ffq642jNGjDaNTJ8NYvdowHA53RyQiIp6gPd+5PtGnydup\nT5Nr7dwJ06ZBUJC5jtwXZmBFRMTPqU+TCNDcDE8/DdHRMGwYFBcrYRIREdfxm0Jw8W3/+hf88Ifm\nKNPTT8PPfw4W/UogIiIupKRJvN5f/mK2E/jsMygsBPUPFRGRjqCkyYO09GlSb6YrYxiwejU88QSM\nGAG5uRAR4e6oRETEE7X0bGpPnyYVgnsAFYJfvZoaeOgheOUVs63A8uVw3XXujkpERDxde75zNdIk\nXsdmgylT4PRpM2n6vI2WiIhIh1KprHiVP/wBRo6EkBCzWaUSJhERuVaUNIlXqK+HBx80p+R++EOz\n+Dsy0t1RiYiIP9H0nHi8sjJzOq6sDF58Eb6wOo6IiMg1o5Em8WjbtpmNKi9cgEOHlDCJiIj7KGkS\nj/TZZ/D445CQAPfeC++8A9/+trujEhERf6bpOQ+iPk2m6mqzWeW778JvfwuPPgoBAe6OSkREvJn6\nNPkI9Wn6/3btgsRE6NIF/vhHs2mliIiIq2jBXvF6Dgc88wx873tw++1w5IgSJhER8SxKmsTtzp6F\n++4zF9ldtAgKCqBXL3dHJSIi0ppqmsStbDaYPBnOnIFXX4WJE90dkYiISNs00iRuk50No0ZBaKhZ\n9K2ESUREPJmSJrnmGhrg4YfNnkv332929x4wwN1RiYiIXJ6m5+Sa+uc/zd5LJSWwbh386EdqJyAi\nIt5BSZMH8fU+TW++abYTuOEG2L8f7rjD3RGJiIi/UJ8mH+HrfZocDli+HBYvhnvugc2b9XSciIi4\nh/o0icc6exb+93/hySfNpCk/XwmTiIh4J03PSYex2WDSJPj3v+G112DCBHdHJCIi8vVppEk6RFYW\njBwJXbua7QSUMImIiLdT0iQu1dAAc+ZAcjJMnap2AiIi4js0PScu889/wpQpcPQobNgAs2a5OyIR\nERHXUdIkLtHSTiAkxGwnMHy4uyMSERFxLSVNHsQb+zQZBqxcCQsXwvjxsGUL9Ozp7qhERERaU58m\nH+GtfZrOnYOZM+GVV+DnP4enn4bAQHdHJSIicml+2adp3759xMXFERERgcViYceOHV95jNVqZdiw\nYQQFBTFw4ECysrJave9wOFi8eDEDBgwgODiYyMhIli1b5ny/qamJ1NRUhgwZQkhICBERESQlJXHy\n5EmX35+nKy2FESOgsBD+9CdYtkwJk4iI+DavTZrq6uoYOnQoa9euJeAKFi+rrKxk4sSJjBs3DpvN\nRkpKCrNmzWLnzp3OfVasWMG6devIzMzk2LFjZGRkkJGRwZo1awCor6+npKSEpUuXUlxcTF5eHqWl\npTe1HsEAACAASURBVMTHx3fYfXqiP/8ZvvMdc2ru7bfhvvvcHZGIiEjH84npOYvFwvbt24mLi7vk\nPqmpqRQUFHD06FHntqlTp1JTU0N+fj4AsbGxhIeHs2HDBuc+U6ZMITg4mOzs7DbPe/jwYUaMGEFV\nVRV9+/YF4Pjx48yfP5/CwkICAwMZM2YMq1evpl+/fm2ew1um55qb4amnzFGlSZPgxRchNNTdUYmI\niFw5v5yeu1oHDx5k/PjxrbZFR0dz4MAB5+vRo0eza9cuysrKALDZbBQVFTHhMp0Zz549S0BAAN27\ndwfMKbzo6Gi6detGUVERRUVFhIaGEhMT067iM3f7979h4kR45hlzHblt25QwiYiIf/Gbp+dOnTpF\nWFhYq21hYWHU1tbS0NBA586dSUtLo7a2lkGDBhEYGIjD4SA9PZ3ExMQ2z9nQ0EBaWhr/r707j2ry\nyv8H/r5P2GVfLVqMVq2tWwE3lFasijpMXSoUB0VBpa5zdFqlTrEOWqlabWtnOh5bBRfEdepy6sLY\nqhTXWku0iE5FKYgLiCJQFxDJ5/cHv+RrJIEAIWH5vM7JOfW5S+7zea7x0+e5uQkLC4OtrS0AYMeO\nHSAifPPNN+p68fHxcHJyQkpKSpXErSlQ/RxKURFw6BAQGGjqETHGGGPG12LuNGmjejKpWhO1Y8cO\nbN26Fdu3b4dCocCmTZuwcuVKJCYmVmn79OlThISEQAiBNWvWqI9fuHABmZmZsLOzU79cXFxQVlaG\na9euGefEDGjrVsDPD3BwqPw5FE6YGGOMtVQt5k5T69atkZ+fr3Hszp07sLe3h4WFBQAgOjoaH374\nIUJCQgAAXbt2RXZ2NpYtW4bw8HB1O1XClJubi6NHj6rvMgHAgwcP0KtXL2zduhXPLxdzc3Ordoyq\nfZqeZao9m8rLgfnzgS+/BMLDga+/BqytjT4MxhhjrM5UezM9qz5LZVpM0uTn54dDhw5pHDt8+DD8\n/PzUf3706FGVb+JJkgSlUqn+syphysrKwrFjx+Dk5KRR38fHBzt37oSbm5tGMqWP7du3N4qF4Pn5\nwDvvVP5u3FdfATNnAnp8QZExxhhrVLTdeFAtBK+LJvt47uHDh7hw4QLOnz8PAMjKysKFCxeQm5sL\nAPj73/+OSZMmqetPnz4d165dwwcffIDffvsNa9aswX/+8x+899576jpvvfUW4uLicPDgQeTk5GDP\nnj344osv8PbbbwMAKioqMHbsWKSlpWHLli0oLy9Hfn4+8vPzUV5eDgAYP348XF1dMWrUKJw4cQLZ\n2dlISUnBnDlzcOvWLWOFp87OnAF8fIArV4CUFGDWLE6YGGOMMQAANVEpKSkkhCBJkjRekZGRREQU\nERFBgwYNqtLGx8eHrKysqGPHjrR582aN8gcPHtDf/vY3ksvlZGNjQx07dqRFixZReXk5ERFlZ2dX\neT/VGH788Ud1P/n5+RQREUHu7u5kbW1NHTt2pGnTptEff/yh9VyKi4sJABUXFxsyRLWiVBKtXUtk\nbk7Uvz/RzZsmGwpjjDHWYOrzb26z2KepqTP1Pk2lpcDs2UB8fOWdpc8/B/7/Mi/GGGOsWanPv7kt\nZk0T0+76dWDsWODixcrNKp95oskYY4yxZ3DS1IIdO1a54LtVK+Dkycq1TIwxxhjTjpOmRkS15UBD\nbzNAVLmVwLx5wKBBwLZtgKtrg70dY4wxZnKq7Qfqs+UAr2lqBIy5punxY2D6dGDz5sqkadkywIxT\nZ8YYYy0Er2liesnNrfw5lIsXgaQkICzM1CNijDHGmg5OmlqI1FQgJASwsuL1S4wxxlhdNNnNLZl+\niIA1a4DBg4FXXwXOneOEiTHGGKsLTpqasbIyICqqcu+lWbOAw4eBGn7+jjHGGGM68OO5ZurWrcr9\nlxQK3n+JMcYYMwROmpqh06crF3zLZMDx40Dv3qYeEWOMMdb0cdLUiBhin6Z16yofxfXtC/znP4CH\nh4EHyRhjjDVBvE9TM2GIfZqePAHmzAHWrgVmzABWr+bfj2OMMcaex/s0tXB5eUBwMHD2bOWdpqlT\nTT0ixhhjrPnhpKmJO3u2cv2SUgn8+CPg52fqETHGGGPNE2850IRt3Ai88Qbw4ouV+y9xwsQYY4w1\nHE6amqDy8sr1S5GRwIQJQEoK4Olp6lExxhhjzRs/nmtiCgoqfw7l5MnKnb6nTweEMPWoGGOMseaP\nk6YmJC0NGDMGKC0Fjh4FXn/d1CNijDHGWg5OmhqR6vZpSkqq/FZct27A7t2V65gYY4wxph/ep6mZ\nqGnPiNLSymRpwIDKfZisrU0wSMYYY6wZqM8+TbwQvAmwsgLOnAGGDdvGCVMtbNu2zdRDaHI4ZrXD\n8ao9jlntcLxqryFjxklTE+HqCmzfzn95aoM/bGqPY1Y7HK/a45jVDser9jhpYowxxhgzMU6aWoj6\nZN71zdpN+d71YapxmzLepnpfnmNNp60h2pvifXmONZ22hmjfUDhpaiGa6uTnDxvjtzfF+/Icazpt\nDdHeFO/Lc6zptDVE+4bCWw40AqovMJaUlFRb7+nTpzXWaWxtTfnePO6W0daU783jbhltTfnePG7D\nt1WV1WXzAN5yoBG4ceMGXuSNlxhjjDGjyc3NRdu2bWvVhpOmRkCpVOLWrVuws7OD4N9EYYwxxhoM\nEeGPP/6Ap6cnJKl2q5Q4aWKMMcYY0wMvBGeMMcYY0wMnTYwxxhhjeuCkiTHGGGNMD5w0mdCyZcvQ\np08f2Nvbw8PDA2PGjMGVK1c06uTn5yM8PBwvvPACbG1t4evri927d2vUuX//PsaPHw8HBwc4OTlh\n6tSpePjwoTFPxSgMFS+5XA5JktQvmUyGTz/91JinYjT6xCwrKwtvv/023N3d4eDggHHjxuHOnTsa\ndXiO/R994tWS5tjatWvRs2dPODg4wMHBAf3790dycrK6vKysDLNmzYKrqyvs7OwQHBxcJV65ubkI\nCgpCq1at0Lp1a0RHR0OpVBr7VIzCEPF6dm6p5tfOnTuNfSpGU1PM1q1bh0GDBsHBwQGSJGndbsBg\nn2HETGbEiBG0efNmunTpEv36668UFBRE7dq1o0ePHqnrDB06lPr27Uvnzp2j33//nZYuXUoymYzO\nnz+vrjN8+HDy9vamn3/+mU6ePEmdOnWi8ePHm+KUGpSh4iWXyykuLo7u3LlD+fn5lJ+fr9FHc1JT\nzB4+fEgvvfQSjR07ljIyMujixYs0evRo6tOnj0Y/PMdqF6+WNMf2799Phw4doszMTMrMzKSYmBiy\nsLCgS5cuERHR9OnTqV27dpSSkkJpaWnk5+dH/v7+6vYVFRXUrVs3CgwMpF9//ZWSk5PJzc2NYmJi\nTHVKDaq+8SIiEkLQ5s2bNeZXWVmZKU7HKGqK2erVq2nFihW0YsUKkiSJiouLq/RhqM8wTpoakYKC\nAhJC0PHjx9XHbG1tacuWLRr1XFxcKD4+noiILl26REIISktLU5cnJyeTTCaj27dvG2fgJlKXeBFV\n/oP25ZdfGm2cjcnzMfvvf/9LZmZm9ODBA3Wd4uJikiSJjhw5QkQ8x2obL6KWPceIiJydnSkhIYGK\ni4vJwsKCdu/erS773//+R0II+umnn4iI6ODBg2RmZkYFBQXqOmvXriVHR0cqLy83+thNoTbxIqpM\nmvbt22eKoTYaqpg9KyUlRWvSdPnyZYN9hvHjuUakqKgIQgg4Ozurjw0YMAA7duzA/fv3QUTYvn07\nysrKEBAQAAA4c+YMnJyc4O3trW4zZMgQCCHw008/GfsUjKou8VJZvnw5XF1d4ePjg1WrVqGiosLI\nozeN52P25MkTCCFgYWGhrmNpaQlJknDixAkAPMdqGy+VljjHlEoltm/fjkePHsHPzw+//PILnj59\nisGDB6vrvPzyy/Dy8sLp06cBVM6v7t27w9XVVV1n2LBhKC4uRkZGhtHPwZjqEi+VWbNmwc3NDX37\n9sWGDRuMPXSTeT5m+jh9+rTBPsP4Z1QaCSLC3Llz4e/vj1dffVV9fMeOHQgNDYWLiwvMzMzQqlUr\n7NmzBx06dAAA5OXlwd3dXaMvmUwGZ2dn5OXlGfUcjKmu8QKAOXPmwMfHB87Ozjh16hQWLFiAvLw8\nrFq1yhSnYjTaYtavXz+0atUK0dHR+OSTT6BUKrFgwQIolUrcvn0bAM+x2sYLaHlz7OLFi/Dz80Np\naSns7OywZ88edOnSBQqFAhYWFrC3t9eo7+HhoZ47eXl58PDwqFKuKuvZs6dxTsKI6hMvAPj444/x\n5ptvwsbGBocPH8bMmTPx8OFDzJ4929inYjS6YqYPQ36GcdLUSMycOROXLl3CyZMnNY4vXLgQxcXF\nOHr0KFxcXLB3716EhITgxIkT6Nq1q87+iKhZ7y5en3jNnTtXXb9bt24wNzfH9OnTsWzZMpibmxv1\nPIxJW8xcXV2xa9cuzJgxA//85z8hk8nwl7/8Bd7e3pDJZNX21xLnmL7xamlzrEuXLrhw4QKKiorw\n7bffYuLEiUhNTdVZX9+501znV33jFRMTo/7vnj174sGDB1i5cmWzTpp0xUzfxEmbOn2G1fIxImsA\ns2bNIi8vL8rJydE4fu3aNRJC0OXLlzWODxkyhGbMmEFERAkJCeTs7KxR/vTpUzIzM6O9e/c27MBN\npD7x0iYjI4MkSaIrV640yHgbA10xe9a9e/fUawFat25Nq1atIiKeY7roipc2LWGOPWvIkCE0ffp0\nOnr0qNY1Ju3ataPVq1cTEdGiRYvI29tbo/z3338nIYTGFzias9rES5sDBw6QJEnNejH481Qxe5au\nNU2G/AzjNU0mNnv2bOzbtw/Hjh2Dl5eXRtmjR48ghKiSCctkMvXXcf38/FBUVASFQqEuP3LkCIgI\nffv2bfgTMLL6xksbhUIBSZKq3L5tLqqL2bOcnZ1hb2+Po0ePoqCgACNHjgTAc0wXXfHSprnPsecp\nlUqUlZXB19cXZmZmOHLkiLrsypUruH79Ovr37w+gcn6lp6fj7t276jqHDx+Gg4ODxqP35kyfeFW3\nfkehUMDJyUljrV1zp4qZPgz6GVaHBI8ZyIwZM8jR0ZFSU1MpLy9P/Xr8+DEREZWXl1OnTp1o4MCB\ndPbsWbp27RqtWrWKZDIZJScnq/sZMWIE+fr60tmzZ+nEiRPUuXNnmjBhgqlOq8EYIl6nT5+m1atX\n04ULFygrK4u2bNlC7u7uFBkZacpTazA1xYyIaMOGDXTmzBm6du0aJSYmkouLC82fP1+jH55j+ser\npc2xDz/8kI4fP07Z2dmUnp5OCxYsIJlMpv424YwZM0gul9OxY8fo3Llz1L9//ypbDvTo0YOGDx9O\nFy5coOTkZHJ3d6eFCxea6pQaVH3j9d1331F8fDxlZGTQ1atXac2aNdSqVStavHixqU6pwdUUs7y8\nPDp//jytW7dO/W3X8+fPU2FhoboPQ32GcdJkQkIIkiSpymvTpk3qOlevXqXg4GBq3bo12dra0muv\nvUZJSUka/dy/f5/Gjx9P9vb25OjoSFOnTqWHDx8a+3QanCHilZaWRv369SMnJyeysbGhrl270ooV\nK+jJkyemOKUGp0/MFixYQK1btyZLS0t6+eWXtT4G4Dmmf7xa2hybMmUKtW/fnqysrMjDw4OGDh2q\nsf1CaWkpzZ49m1xcXMjW1paCg4MpPz9fo4/r169TUFAQtWrVitzd3Sk6OpoqKiqMfSpGUd94JScn\nk7e3N9nb25OdnR15e3vTunXrTHEqRlNTzGJjY7X+3X32762hPsMEEVHt7k0xxhhjjLU8vKaJMcYY\nY0wPnDQxxhhjjOmBkybGGGOMMT1w0sQYY4wxpgdOmhhjjDHG9MBJE2OMMcaYHjhpYowxxhjTAydN\njDHGGGN64KSJMcYYY0wPnDQx1gT07NkTkiTBysoK9+/fr7ZuREQEJEnC5s2bjTQ6xuqOiODr6wtP\nT088fvxYo0wul1c7l+/du4devXpBkiR0794dt2/fBgAkJSVBkiSsXbu2wcfPWhZOmhhr5M6dO4f0\n9HQIIVBeXo4tW7ZUW18IASFEg4xFkiTIZLIG6ZvptmnTJkiShMmTJ5t6KAa3fv16KBQKLFq0CNbW\n1hpl1c3l3NxcDBgwAAqFAv369cPx48fxwgsvAADCwsLQo0cPfPTRRygqKmrwc2AtBydNjDVy69ev\nBwC0adMGRIT4+Phq6y9fvhyXL1/GmDFjjDE8xuqstLQUCxcuRJs2bRAVFaV3u99++w0DBgxAZmYm\nhg4dih9++AGOjo7qciEEFi1ahHv37mHp0qUNMXTWQnHSxFgj9vjxY2zfvh1CCCQmJsLW1hbp6en4\n5ZdfdLbx8PBA586dYWdnZ8SRsobUXH9XPTExEQUFBZg0aZLedzDT0tLw+uuv4+bNmwgODsb+/fth\nY2NTpd7IkSPh5uaG+Ph4PHr0yNBDZy0UJ02MNWI7d+5ESUkJunfvjoEDByI0NBQAkJCQoLONrjVN\nsbGxkCQJS5YsQW5uLqZMmQIvLy9YWFjU+Nhn8eLFkCQJQggQESRJUr9kMhmuX7+uUT8zMxPTpk1D\nx44dYW1tDUdHRwwcOBBJSUla+w8ICIAkSUhNTcWZM2cQFBQEV1dX2NvbIyAgACdOnFDXTU5OxpAh\nQ+Ds7Aw7OzsEBgZCoVBU6TMnJweSJKFDhw6oqKjAp59+im7dusHGxgbu7u4IDQ3Fb7/9pvOcS0tL\n8dlnn8HPzw9OTk6wtrZGly5d8MEHH6CwsLBK/Wcfod2/fx9z585Fx44dYWVlhTfffFNd78iRI/jr\nX/8Kb29vuLm5wcrKCi+++CLGjRuHc+fOVelXLpdj8uTJEEJg48aNGrF/tl/V+p/nr4WKrnnx7PGM\njAyMGzcOnp6eMDMzw5IlSzTq1va61uSrr76CEAKTJk3Sq35qaioGDRqEe/fuISoqCjt27ICZmZnW\numZmZggLC0NJSQkSExPrND7GnsdJE2ONWHx8PIQQ6qRm8uTJICJs27YNZWVlWtvoWgeiOn7lyhV4\ne3sjOTkZ/fr1w6hRo+Dq6lrtOLy9vREREQEighACERERGi9bW1t13V27dqFnz55Yv349LC0tERQU\nhN69e0OhUCA8PBxTp07VObb9+/fjjTfeQH5+PgIDA9GpUyekpqYiMDAQp0+fxr///W/8+c9/RllZ\nGYYNG4a2bdvihx9+QEBAALKysnSOPzQ0FIsWLUKbNm0wZswYODg4YNeuXejduzd++umnKvVv376N\nPn36YP78+bh69Sr69OmDoKAgPHnyBCtXrkSvXr1w48YNredx9+5d9OrVC1u2bEH37t0xevRotG3b\nVl1n+vTpWL9+PWQyGfz9/fHWW2/B0dERu3btQv/+/bFnzx6NPt955x34+/uDiNCxY0eNuA8fPrxK\nDHWpaV6cPHkSvXr1ws8//4yBAwciKChI425lXa5rdbKzs5Geno62bduiU6dONdbfv38/RowYgQcP\nHmDBggV6LfIeOnQoiAh79+6t1dgY04kYY41SZmYmCSHI0tKS7t69qz7+yiuvkCRJtGXLFq3tIiIi\nSJIk2rRpk8bx2NhYEkKQEIImTZpET548qfWYhBAkSZLO8vT0dLKysiIbGxvau3evRtn169epR48e\nJEkSJSYmapQFBASQEIJkMhklJSVplL3//vskhKAuXbqQvb09HTt2TF2mVCopODiYJEmid999V6Nd\ndna2+nzd3d3p4sWLGu3mzJlDQghq3759lVgMGDBA3eeDBw/UxysqKmj+/PkkhKDBgwdrtNm4caP6\n/QIDAzXaPWvfvn1UVFSk9bi5uTm5ublRaWmp1r4jIyO19klEJJfLSZIkysnJ0Vqua15ERESor2tM\nTIzWtnW9rtWJj48nIQSFhobWeE5vvfUWmZubkyRJ9Nlnn+n9HoWFhSRJEtna2lJ5ebne7RjThZMm\nxhqp6OhoEkLQO++8o3F85cqVJISgQYMGaW1XU9Lk6upKJSUldRpTTUlTaGgoSZJEX3zxhdbyc+fO\nkRCCevfurXE8ICCAJEmicePGVWlTWFioft8FCxZUKU9LSyMhBL300ksax1VJkyRJ9K9//atKu7Ky\nMmrbti1JkkTbtm1TH09OTiYhBPn6+lJFRUWVdkqlUp0kZGRkqI+rEhtLS0vKzs7Wev41CQsLI0mS\n6NChQxrHjZE0denShZRKpda2db2u1Zk9ezZJkkSxsbE666jOSXUdx44dq3f/Kp6eniRJEqWnp9e6\nLWPP48dzjDVCFRUVSExM1Hg0pzJx4kSYmZkhNTUVv//+e637HjJkSIMsEiciJCcnA6h8pKSNj48P\nbG1toVAo8OTJkyrlI0aMqHLMyckJLi4uOstVj3Zu3bqlc2zh4eFVjllYWCA0NBREhJSUFPXxAwcO\nQAiBt99+G5JU9SNSCIHXX38dAHDq1Kkq5d7e3mjXrp3OsQCVj//Wr1+PefPmISoqCpGRkYiMjERG\nRgYAVLvWqiEIITB69Gitj+8McV21yc/PBwD1ta3OwIEDAQC7d+/GsmXL9OpfRdW/6v0Yqw/tK+gY\nYyZ14MAB5OXloU2bNggMDNQoc3d3x5/+9Cd89913SEhIwMcff1yrvuVyuQFH+n/u3buHkpISCCE0\n1vBoI4TAvXv31PvqqHh5eWmtb2tri8LCQq3lqvVUutZ4OTo6wsHBQWtZ+/btAUBjfVJWVhaICAsX\nLsTChQurPYeCgoIqx2uK75IlSxAXF4enT5/qrFNSUlJtHw1B17gNcV21KS4uBgDY29vXWDcyMhLj\nxo3DzJkzERMTA6VSiZiYmBrbPdt/TZvCMqYPTpoYa4RUezOVlpbijTfeqFJ+8+ZNEBE2btyIJUuW\n1Gozy+c3EDQUpVKp/u+IiIga61taWlY5pu3OTm3KDUGpVEIIAX9/f7z00kvV1u3atWuVY9XFd/fu\n3YiNjYWdnR0+//xzDBo0CJ6enrCysgIAxMTEYPny5Q2yxcCz10cbXeM2xHXVRrWvkr4J4rRp0yBJ\nEmbMmIGPPvoIFRUVWLRoUY3tVMmZk5OTXu/DWHU4aWKskcnLy8OhQ4cghEBhYaHWR0BA5f/V37p1\nC8nJyVofWxmbq6srrK2tUVpailWrVsHZ2dnUQwIAFBUVoaSkROsdjezsbACVG4eqvPjiiwCAUaNG\n4b333jPoWHbt2gUhBD755BNMmTKlSnlmZmad+7awsAAA/PHHH1rLc3Jy6tRvQ11Xd3d3AJV3svQV\nFRUFmUyGd999F7GxsVAqlYiNja22jap/Dw+POo+VMRVe08RYI7NhwwZUVFTAz88PFRUVOl/z5s0D\nEVW7Z5OhmZubA9B+10KSJAwdOhRA5f5SjYm2fXrKy8uxY8cOCCEQEBCgPj5ixAgQEXbt2mXwcaj2\nd9L2mLGgoADff/+91naqhKi6R3qqxO/y5ctVyvLz85GWllbr8QINd119fHxARLh06VKt2k2ePBnx\n8fGQyWRYsmQJPvroI511CwsLkZeXBxsbG3Tp0qW+Q2aMkybGGpsNGzboteGfqvy7777D3bt39eq7\nvr9Jp1rTolqw/Lx//OMfMDc3x7x587B582atj5kyMjKq7EXU0D7++GONMRMRoqOjcePGDXh5eWHs\n2LHqslGjRqF37944e/YsIiMjtcb2/v37+Prrr2t85PW8V155BUSEb775BuXl5erjxcXFmDhxos5H\nVaq4V5dgDBkyBESEFStWqB9JAZXJWHh4OB4+fFirsT6rIa7roEGDAACnT5+u9XgmTZqEDRs2QCaT\nIS4uDh9++KHWeqq7tP7+/jo3wWSsNjhpYqwR+fHHH3H16lVYWlrq/KaSyquvvgpvb2+Ul5frveNx\nfdfKqJKLwYMHY9y4cYiKikJUVJR6ka23tzeSkpLUG2C2a9cOw4cPR3h4OIKCguDl5YXu3bs3yF0c\nXby8vODv7w8fHx8MGzYMYWFh6Ny5M7788kvY2tpi69at6js5QGViuXfvXrz22mvYvHkz2rdvD39/\nf4SFhSE4OBg+Pj5wd3fHzJkzq73zo83cuXPh5OSEgwcPokOHDggJCcHo0aMhl8uRnp6u3rz0ef36\n9YOnpycUCgV8fX0RERGBqKgorFq1Sl1n1qxZaNeuHdLS0vDyyy9jzJgxCAwMROfOnXHnzh2MGjWq\nzte/Ia6rXC5Hjx49cPPmzTp9W3DChAnYtGkTzMzMsHz5ckRHR1ep8/3330MIwb/DyAyGkybGGpGE\nhAQIITBy5Eid3/h6lupuk76P6GraNbomS5cuRXR0NJycnLBv3z4kJCRgw4YNGutoxo4di4yMDLz3\n3ntwcnLCqVOnsHv3bly+fBmdOnXCp59+iri4OK1jq2nsdSkXQmDnzp1YvHgxbty4gb1796KoqAgh\nISE4e/Ys/Pz8qrR54YUXcObMGaxduxZ9+/bFlStX8O233+LkyZMQQmDmzJk4fPiwRrKleq/qximX\ny6FQKDB+/HiYmZnhwIED+PXXXzF+/HgoFAq0bdtWax/m5uY4fPgwRo4ciZs3byIpKQkJCQk4ePCg\nuo6DgwNOnTqFiRMnQgiB5ORkZGVlYdq0aTh16hQcHBzqde3rel2rM3v2bPUXGnSpbsxhYWFITEyE\nmZkZPvvsM8yfP19d9vTpU2zbtg329vaYMGFCrcbFmC6CGuJrGowxZmI5OTlo37495HJ5tT+xwkzn\n8ePHkMvlMDc3R3Z2tkEfoX377bcICQnB+++/j5UrVxqsX9ay8Z0mxhhjJmFtbY24uDjcunULX3/9\ntcH6JSIsXrwYLi4ueu/nxJg+OGlijDFmMlOmTIGvry/i4uLw+PFjg/S5detWZGRkYOnSper9oBgz\nBH48xxhrlnJyctChQwfI5XJcu3bN1MNhjDUDnDQxxhhjjOmBH88xxhhjjOmBkybGGGOMMT1w0sQY\nY4wxpgdOmhhjjDHG9MBJE2OMMcaYHjhpYowxxhjTAydNjDHGGGN64KSJMcYYY0wPnDQxxhhjmTpy\nLgAAAAlJREFUjOnh/wEhtX4XKMl2ggAAAABJRU5ErkJggg==\n",
      "text/plain": [
       "Graphics object consisting of 1 graphics primitive"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_ra_hc.show()\n",
    "eq_rv_gbw.show()\n",
    "(eq_ra_hc/eq_rv_gbw).subs(eq_gbw_hc).show()\n",
    "plotfun = (eq_ra_hc/eq_rv_gbw).rhs().subs(eq_gbw_hc).subs(eq_Le).subs(eq_alphaa, eq_Dva)\n",
    "print plotfun(T_a = 300)\n",
    "P = plot(plotfun, (T_a, 280,310))\n",
    "P.axes_labels(['Air temperature (K)', '$r_a/r_v$'])\n",
    "P.show()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">$r_a/r_v$ is indeed  close to 1!</span></p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 101,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "T_l = 308.321395271\n",
      "E_l = 180.542235053941\n",
      "H_l = 150.521099595469\n",
      "R_ll = 68.9366653505872\n",
      "g_bw = 0.0131620455576424\n",
      "g_tw = 0.00291849206962754\n",
      "Direct estimates: \n",
      "E_l = 198.222104889662\n",
      "H_l = 201.777895110338\n",
      "T_l == 310.133484539870\n",
      "T_l == 310.133484539870\n",
      "T_l == 309.093414355984\n",
      "400 == 400.000000000000\n",
      "Penman-stomata: \n",
      "E_l = 198.222104889662\n",
      "H_l = 201.777895110338\n",
      "T_l = 310.133484539870\n",
      "400 == 400.000000000000\n",
      "PM-equation: \n",
      "E_l = 241.448619283973\n",
      "H_l = 158.551380716027\n",
      "400 == 400.000000000000\n",
      "MU-equation: \n",
      "E_l = 156.668183937778\n",
      "H_l = 243.331816062222\n",
      "400 == 400.000000000000\n",
      "Corrected MU-equation: \n",
      "E_l = 195.741933442269\n",
      "H_l = 204.258066557731\n",
      "400 == 400.000000000000\n"
     ]
    }
   ],
   "source": [
    "# Fig. 8 in Ball et al. 1988\n",
    "vdict = cdict.copy()\n",
    "vdict[a_s] = 1\n",
    "vdict[L_l] = 0.07\n",
    "vdict[P_a] = 101325\n",
    "vdict[P_wa] = 20/1000*101325\n",
    "vdict[R_s] = 400\n",
    "vdict[Re_c] = 3000\n",
    "vdict[T_a] = 273+30\n",
    "vdict[T_w] = vdict[T_a]\n",
    "vdict[g_sw] = 0.15/40\n",
    "#vdict[g_sv] = 1e-6\n",
    "\n",
    "vdict[v_w] = 1.\n",
    "resdict = fun_SS(vdict)\n",
    "for name1 in [T_l, E_l, H_l, R_ll, g_bw, g_tw]:\n",
    "    print str(name1)+' = ' + str(resdict[name1])\n",
    "\n",
    "vdict[P_was] = eq_Pwl.rhs()(T_l = T_a).subs(vdict) \n",
    "vdict[Delta_eTa] = eq_Deltaeta_T.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "vdict[h_c] = eq_hc.rhs().subs(vdict) \n",
    "\n",
    "vdict[P_N2] = eq_PN2.rhs().subs(vdict)\n",
    "vdict[P_O2] = eq_PO2.rhs().subs(vdict)\n",
    "vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "vdict[Le] = eq_Le.rhs().subs(vdict)\n",
    "vdict[rho_a] = eq_rhoa_Pwa_Ta.rhs().subs(vdict) \n",
    "vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)\n",
    "vdict[g_tw] = eq_gtw.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw_iso.rhs().subs(vdict)\n",
    "\n",
    "vdict[R_ll] = 0\n",
    "print 'Direct estimates: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[E_l] = eq_El_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[H_l] = eq_Hl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta1.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta2.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'Penman-stomata: '\n",
    "namesdict = [E_l, H_l, T_l]\n",
    "vdict[S] = eq_S_gbw_gsw.rhs().subs(vdict)\n",
    "vdict[f_u] = eq_fu_gbw.rhs().subs(vdict)\n",
    "vdict[gamma_v] = eq_gammav_as.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_P52.rhs().subs(vdict)\n",
    "vdict[H_l] = eq_Hl_P52.rhs().subs(vdict)\n",
    "vdict[T_l] = eq_Tl_P52.rhs().subs(vdict)\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'PM-equation: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[r_s] = 1/vdict[g_sw]\n",
    "vdict[r_a] = eq_ra_hc.rhs().subs(vdict)\n",
    "vdict[gamma_v] = eq_gammav_MU.rhs().subs(vdict)\n",
    "vdict[epsilon] = eq_epsilon.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_PM2.rhs().subs(vdict)\n",
    "vdict[H_l] = (R_s - R_ll - E_l).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'MU-equation: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[n_MU] = (a_sh/a_s).subs(vdict)\n",
    "vdict[E_l] = eq_El_MU2.rhs().subs(vdict)\n",
    "vdict[H_l] = (R_s - R_ll - E_l).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'Corrected MU-equation: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[E_l] = eq_El_MU_corr.rhs().subs(vdict)\n",
    "vdict[H_l] = (R_s - R_ll - E_l).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">Penman-stomata gives identical results to the general solutions. </span></p>\n",
    "<p><span style=\"color: #ff0000;\">PM-equation greatly over-estimates $E_l$.</span></p>\n",
    "<p><span style=\"color: #ff0000;\">MU-equation greatly under-estimates $E_l$. </span></p>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false
   },
   "source": [
    "## Analytical solution including longwave balance\n",
    "The above analytical solutions eliminated the non-linearity problem of the saturation vapour pressure curve, but they did not take into account that the longwave component of the leaf energy balance ($R_{ll}$) also depends on leaf temperature, as expressed in Eq. {eq_Rll}. Therefore, the above analytical equations are commonly used in conjunction with fixed value of $R_{ll}$, either taken from observations or the assumption that $R_{ll}=0$. Here we will replace the non-linear Eq. {eq_Rll} by its tangent at $T_l = T_a$, which is given by:\n",
    "##### {eq_Rll_tang}\n",
    "\\begin{equation}\n",
    "R_{ll} = 4 a_{sh} \\epsilon_l \\sigma T_a^3 T_l - a_{sh} \\epsilon_l \\sigma (T_w^4 + 3 T_a^4)\n",
    "\\end{equation}\n",
    "This introduces a bias of less than -20~W~m$^{-2}$ in the calculation of $R_{ll}$ for leaf temperatures $\\pm 20$ K of air temperture, compared to Eq. {eq_Rll} (see Fig. {fig:Rll_lin}.\n",
    "\n",
    "\n",
    "\n",
    "We can now use a similar procedure as in Section {sec:Penman_general}, but this time aimed at eliminating $P_{wl}$ using the Penman assumption, rather than eliminating $T_l$. We first eliminate $c_E$ from Eq. {eq_El_cE} by introducing Eq. {eq_gammav_cE}, then insert the Penman assumption (Eq. {eq_Penman_ass}) to eliminate $P_{wl}$ and obtain:\n",
    "##### {eq_El_Tl}\n",
    "\\begin{equation}\n",
    "E_l = \\frac{c_H \\left(\\Delta_{eTa} (T_l - T_a) + P_{was} - P_{wa} \\right)}{\\gamma_v}\n",
    "\\end{equation}\n",
    "We can now insert the linearised Eq. {eq_Rll_tang}, Eq. {eq_El_Tl} and Eq. {eq_Hl_cH} into the energy balance equation (Eq. {eq_Rs_enbal}) and solve for $T_l$ to obtain:\n",
    "##### {eq_Tl_Delta_Rlllin}\n",
    "\\begin{equation}\n",
    "T_l = \\frac{R_s + c_H T_a + c_E \\left(\\Delta_{eTa} T_a + P_{wa} - P_{was} \\right) + a_{sh} \\epsilon_l \\sigma \\left(3 T_a^4 + T_w^4 \\right)}\n",
    "{c_H + c_E \\Delta_{eTa} + 4 a_{sh} \\epsilon_l \\sigma T_a^3}\n",
    "\\end{equation}\n",
    "Eq. {eq_Tl_Delta_Rlin} can be re-inserted into Eqs. {eq_Hl_cH}, {eq_El_Tl} and {eq_Rll_tang} to obtain analytical expressions for $H_l$, $E_l$ and $R_{ll}$ respectively, which satisfy the energy balance (Eq. {eq_Rs_enbal}). Alternatively, the value of $T_l$ obtained from Eq. {eq_Tl_Delta_Rlllin} for specific conditions could be used to calculate any of the energy balance components using the fundamental equations described in Fig. {fig:flow_enbalance}. In this case, bias in $T_l$ due to simplifying assumptions included in the derivation of Eq. {eq_Tl_Delta_Rlllin} would lead to a mismatch in the leaf energy balance."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 112,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "4*T_l^3*a_sh*epsilon_l*sigm\n",
      "[\n",
      "Rll1 == -3*T1^4*a_sh*epsilon_l*sigm - T_w^4*a_sh*epsilon_l*sigm\n",
      "]\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{R_{ll}} = -{\\left(3 \\, T_{a}^{4} - 4 \\, T_{a}^{3} T_{l} + T_{w}^{4}\\right)} {a_{sh}} \\epsilon_{l} {\\sigma}</script></html>"
      ],
      "text/plain": [
       "R_ll == -(3*T_a^4 - 4*T_a^3*T_l + T_w^4)*a_sh*epsilon_l*sigm"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Linearised R_ll\n",
    "var('T1 Rll1 dRlldT')\n",
    "dRlldT = diff(eq_Rll.rhs(), T_l)\n",
    "print dRlldT\n",
    "soln = solve(dRlldT(T_l = T1)*T1 + Rll1 == eq_Rll.rhs()(T_l = T1), Rll1)\n",
    "print soln\n",
    "# Tangent of R_ll at T1\n",
    "eq_Rll_tang = R_ll == (dRlldT(T_l = T1)*T_l + soln[0].rhs())(T1 = T_a).simplify_full()\n",
    "eq_Rll_tang.show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 103,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAekAAAGGCAYAAABfbHkYAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\nAAAPYQAAD2EBqD+naQAAIABJREFUeJzs3XlcVdX6x/HPwQHEcM7CFJzH8grO83DLobqklYpDTg2a\n1fWalXYr0zItK6+ZlU2aaWKlqZmaOWWC5pzmdfo5QmpOGGoqCOzfH+tCgoAcOLDPOXzfr5ev5Oyz\n93lwmw9r7bWex2FZloWIiIi4HR+7AxAREZGMKUmLiIi4KSVpERERN6UkLSIi4qaUpEVERNyUkrSI\niIibUpIWERFxU0rSIiIibqqw3QG4m+TkZI4fP05AQAAOh8PucERExAtYlsWFCxeoUKECPj7ZHx8r\nSadz/PhxKlWqZHcYIiLihWJiYqhYsWK2368knU5AQABg/iBLlCiR4XvCw8OZO3euyz7TlddTbO5x\nPcVm/7Xc/XqKzf5r5ef1zp8/T6VKlVJzTHYpSaeTMsVdokSJTJN04cKFMz2WE668nmJzj+spNvuv\n5e7XU2z2X8uO6zn7GFULx9xAr1693PJarr6eq2NzNXf+Xt05Nldy5z83V19P98H+a+XF9VzNoS5Y\naZ0/f56SJUsSFxeX6U9DYWFhfPvtt/kcmaSn++AedB/cg+6D/a5ehQceyPg+ZCe3ZETT3U6Kjo7m\njz/+YNu2bXaHUuCUK1eOoKAgu8MQEbnOzp3QtSvcdptrr6sk7YTo6Gjq1KnDpUuXaNiwod3hFDj+\n/v7s2bMnNVG7+zRVQaH74B50H+yzfj3ccw9UqQJ9+rj2Pmi6O52spiS2bdtGw4YNmT17NnXq1LEp\nwoJpz5499O3bl61btxIaGmp3OCIiACxfDt26QePG8O23ULJkxu/TdHc+qlOnjhKFTeLi4oiNjcXX\n15fixYvbHY6IFGBffQV9+0KnTub3xYq5/jOUpMWjfPfdd+zYsYMSJUrQs2dPJWoRscXHH8PgwdC7\nN8yYAUWK5M3naAuWeJTixYtTtGhRzp8/T3x8vN3hiEgBNHEiPPYYDB0Kn3+edwkalKTFw/j6+uLr\n62t3GCJSAFkWjBoFI0fCSy/Bu++CE2W4c0TT3ZkIDw+ncOHC9OrVS6smRUQKuKQkePxxM839n//A\nv/6VvfMiIiKIiIggMTExR5+rJJ2JuXPnurRUnIiIeKaEBLNAbP588/x5wIDsn5sy0EtZ3e0sJWkR\nEZFM/PknPPAArFljknTXrvn7+XomXYBUqVKFKVOmpH7t4+OjMoIiIpmIjYW77oKoKFi2LP8TNGgk\nXaD9/vvvlC5d2u4wRETczrFjZv/z77/DqlXQpIk9cShJF2Dly5e3OwQAkpKSKFSokN1hiIgAsH8/\ndOwIyckQGQm1a9sXi6a7bdC+fXuGDRvGyJEjKVu2LIGBgYwdOzb1eExMDPfddx8BAQGULFmSnj17\ncurUqdTjY8eOJSQkhNmzZ1OlShVKlSpFr169+PPPP52K49rp7qNHj+Lj48OCBQvo0KEDxYsXp0GD\nBvz8889pzomMjKRNmzb4+/sTHBzMsGHDuHTpUurxL774gsaNG1OiRAkCAwPp06cPp0+fTj2+du1a\nfHx8+P7772nUqBF+fn5ERUU5FbeISF7ZuhVatQJ/fzPNbWeCBiVp23z++efcdNNNbNq0iYkTJ/LK\nK6+watUqAO677z7++OMP1q1bx8qVKzl48CDh4eFpzj948CCLFi1i6dKlLFmyhLVr1/L666/nOq4X\nX3yR5557jh07dlCzZk169+5NcnJy6md26dKF7t27s2vXLr788kuioqJ46qmnUs+/evUq48aNY+fO\nnSxatIijR48ycODA6z7n+eef54033mDPnj3Ur18/13GLiOTWmjXQvr1plLFuHVSqZHdEmu7OtUuX\nYO/eG7+vdm3zk1mK+vXr89JLLwFQrVo1pk6dyqpVq7Asi127dnHkyBEqVKgAwKxZs6hXrx5bt25N\n7b5lWRYzZ87E/38Xfeihh1i1ahWvvvpqrr6fZ599ls6dOwNmxH777bdz4MABatasyeuvv07fvn1T\nk3LVqlWZPHky7dq144MPPqBo0aIMuGZvQuXKlZk8eTJNmzbl0qVLqbECvPrqq/z973/PVawiIq6y\nYAGEh0O7dmYV90032R2RoZF0Lu3dCw0b3vhX+kSefvQYGBjIqVOn2LNnD5UqVUpN0GAaepQqVYo9\ne/akvla5cuU0SS/lfIA5c+YQEBBAQEAAJUqUcGo6+Y477khzTcuyUq+7Y8cOPvvss9RrBwQEpCb0\nw4cPA7B161bCwsIIDg6mRIkStGvXDjBtPlM4HA61+hQRt/HJJ/Dgg6ab1eLF7pOgQSPpXKtd2zzD\nyM77rlUkXbFXh8NBcnIylmXhcDiuOz/965mdD2a6vFmzZqnHbnOiC/m11035vJTrXrx4kcGDBzNs\n2DDSdzgNCgri0qVLdO7cmS5dujBnzhxuvvlmjh49SufOnUlISEjzfjXGEBG7WRa88QY8/7ypwz1l\nCrjbGlYl6Vzy9wdXdq2sW7cuR48e5dixY6nJdffu3cTFxVG3bt1sXaN48eJUrVrV6c/O6IeDa4WG\nhvLf//6XKlWqZHh8586dxMbGMmHChNTYN23a5HQcIiJ5LTkZnn0WJk2CMWNg9Gi4wT+B19mxA4oW\nhTp18iREQNPdbufOO++kfv369OnTh+3bt7Np0yb69+9P+/btCQkJydPPTj86Tm/kyJFs2LCBp556\nih07dnDgwAEWLVqU+ow6KCiIokWLMmXKFA4fPsy3337LuHHjnP4cEZG8dPUqDBxoanBPnQovv+x8\ngrYsePRRuGZjTp5Qks5EeHg4YWFhREREuPzaNxqxLly4kNKlS9O2bVs6duxI9erVmTt3rss/90Zf\np3/tjjvuYO3atfzf//0fbdq0ITQ0lDFjxqSOmsuVK8dnn33GvHnzqFevHhMnTuTtt9++YRwiIvnl\n0iW4/36IiIA5c+CJJ3J2HYcD5s0ztbyzEhERQVhY2HU7dLL9OZaGNWmkFEGPi4u7rsHGtm3baNiw\nIVu3biXUlXPcckMpf/bjxo3j1ltv5cKFC/Tr148yZcrYHZqIeIg//oB//AO2bTOruTt2dO78y5eh\nWLGcfXZWuSUrGkmLiIjXO3EC2rSB3bth9WrnE/SOHWb/9ObNeRNfZrRwTEREvNqBAyYpX71qipRk\ncw1uGnXqmOfY1au7Pr6sKEmLiIjX+uUX6NwZSpWCH3+EoKCcXadoUZgwwaWhZYumu23Qvn17nn76\naeD69pEiIuIaa9dC27amvOe6dc4l6KgoeO+9vIstuzSSttmWLVtU2ENExMUWLjRlPlu1MovEAgKc\nO/+HH0ySHzLE3gInStI2K1u2rN0hAJCYmEjhwvrrICKe76OP4PHH4YEHYNYs8PV1/hqjR5uCJ3ZX\nINN0t83ST3f7+Pjw6aefcv/991O8eHFq1qzJ4sWL05yza9cu7r77bgICArj11lvp168fZ8+eTT2+\nfPlyWrduTenSpSlXrhz/+Mc/OHToUOrxlLaUX331Fe3atcPf3585c+bk/TcrIpKHLMsUFxk82Ox/\nnjs3+wl6/36zsCxFoUKQrvqyLZSkXeTkSbNAIb1ffzVL/53xyiuvEB4ezq+//srdd99Nnz59+OOP\nPwCIi4vj73//Ow0bNmTbtm0sX76cU6dO0aNHj9Tz//zzT0aMGMHWrVtZvXo1hQoVolu3btd9zvPP\nP8/w4cPZs2cPnTp1ci5IERE3kpRkRs9jxsD48fDOO+CTzQx37hw0aQKTJ+dpiDmi+U0X+eIL85fj\n/Pm0r3fpAo88Yo5l18CBA1OT7vjx43n33XfZtGkTHTt2ZOrUqYSGhqZpSfnJJ58QFBTEgQMHqF69\nOvfff3+a63388cfccsst7N69O0397+HDh3Pfffc5+62KiLiVy5ehd2/TwWrGDLimY262lC4NX31l\nnl+7GyVpF+nTBzp0uP71ZcugXDnnrnVtu0h/f38CAgLStItcvXo1AelWQTgcDg4ePEj16tU5cOAA\no0ePZuPGjZw5c4bk5GQcDgfR0dFpkrTaRYqIpzt3DsLCTDfCRYvgnnuyd55lpa3X7Wxxk/yiJJ2J\n8PBwChcuTK9evejVq9cN33/LLeZXetfk22zLqg3lxYsXCQsLY+LEidc1qggMDATg3nvvpUqVKnzy\nySdUqFCB5ORk6tWrp3aRIuJVfvvN7IE+ccJUEbumQ2+WVq+G116D777LeZnP7IqIiCAiIoLExMQc\nna8knYm5c+c6VV81v4SGhvLNN98QHByMTwYPXGJjY9m/fz+ffvopLVu2BCAyMvK696nJhYh4st27\nTYJ2OMye5tq1s39uuXJQpgwkJOR9kk4Z6KXU7naWFo55mCeeeILY2FjCw8PZsmULhw4dYvny5Qwa\nNAjLsihdujRly5blo48+4uDBg6xevZoRI0Zcl5TVV0VEPNX69eb5calSsGGDcwkaoH59+PpryEHO\nzHdK0jZwOBypSdPZdpGBgYFERUWRnJxMp06dqF+/Pk8//TSlS5dOve6XX37J1q1bueOOOxgxYgRv\nvfVWltcUEfEU334Lf/+7eZT4009QocKNz/n5Z9MgwxNputsGq1evTv39tfuXAZKSkq57f2xsbJqv\nq1Wrxrx58zK9focOHdi1a1em1w0ODs7wc0RE3Nknn5g90F27mh01fn43PseyYNgwqFEDZs/O+xhd\nTUlaRETcmmWZhV4vvWT2Qr/7bvYrgTkcZtW3mxR3dJqmu0VExG0lJcGTT5oE/eqrpunFjRJ0XFza\nr2+91T2qh+WEkrSIiLilK1egZ0+YNg0+/hhefDHt3uaMbNsGlSub59DewKOSdHx8PN26daN27dqE\nhITQqVMnDh48CMDp06fp0qULNWvWpH79+qxbty71vKyOiYiI+/njD7PFaskS08XqkUeyd179+vDs\nszmrUeGOPCpJAwwePJi9e/eyfft2wsLCeOR/d27kyJE0b96c/fv3M336dHr37p26OGrUqFGZHhMR\nEfdy/Di0aQM7d8LKlaaiWHYVLgz//jd4S60mj0rSvr6+dO7cOfXrZs2acfToUQC+/vprhgwZAkCj\nRo2oUKECa9euBeCrr75Kc+y2225LPSYiIu5j715o3tyU+4yMhP/VZMrUDz/Am2/mT2x28Kgknd6U\nKVPo2rUrsbGxJCYmUr58+dRjlStXJjo6OsNjwcHBREdH2xGyiIhk4uefTZGSgABTpOSaVgOZ2roV\nfvzRLDDzRh67BWv8+PEcOHCADz/8kEuXLmVZUSsn1bZSandfq1l2C8OKiIhTFi2C8HBo1MgULCld\nOnvnjRxpfmW3LWV+SKnXfa0CVbv7rbfeYuHChaxatQo/Pz/8/PwoVKgQp06dSh0xHz16lODgYMqU\nKZPhsaCgoCw/I6Pa3du2beOFF15gz549efONSab0Zy7ivd5/H556Cu6/H2bNyrpIyS+/QJ064Otr\nvnan5Jwio8ZMOa3d7XFJetKkScydO5dVq1aladfYvXt3PvjgA15++WU2b97M8ePHadOmTabH2rZt\n6/RnlytXDn9/f/r27euy70eyz8/P77oWnSLiuZKTzSKvN96Af/0L3n4766R77pxZUDZ6NDzzTP7F\naSeH5UGdFo4dO0alSpWoVq0aAQEBWJaFn58fGzZs4NSpUzz00EMcPnwYX19f3nvvvdQkndWx9FJ+\n2omLi8uwC1Z0dDRnzpwhLi6O7777juLFi+Ob8iOd5KmAgADKlSvH5cuXuXDhAv369aNMmTJ2hyUi\nOZCQAIMGmfKekybB8OHZO2/dOmjaFIoWzdv4XO1GuSUzHpWk80N2/yBjY2P5/PPPKVq0qJJ0PouP\njychIUFJWsRDxcWZqe3ISDO93aNH5u+1rBsXMPEEOU3SHjfd7S58fX0pUaIE58+fJyEhwe5wCpwS\nJUrohyMRD3TsGNx9N0RHw4oVZvo6M8uWwdixZq/0TTflX4zuREk6h4oXL07Pnj2Jj4+3O5QCydfX\nl+LeUq1ApIDYtQu6dDEj48hIqFcv6/dXrpy9bVjeTEk6F4oXL65EISKSDT/+aFpMBgebEXJ2+kDX\nqQPTp+d5aG7NDRevi4iIN5k7Fzp1gsaNzcKvzBL0qlWwZUv+xubulKRFRCRPWJbZVtWrl+lmtWQJ\nZLZmyrJMO8oPPsjfGN2dprtFRMTlkpLg6adhyhR4/nl47bWsV2k7HLB4MZQqlX8xegIlaRERcanL\nl+Ghh0yLyfffh8cfz/h9p0/DzTf/9XXZsvkTnyfRdLeIiLhMbCzcdRcsXQrffJN5gt682azeXr8+\nX8PzOBpJZyKlwUZGNVhFROR6R46YLVZnzsDq1ZBVT6LQUJgwARo2zLfwbJHSbCOnDTZUcSydnFaF\nEREpyLZvN0VK/P3h+++hRg27I3IvOc0tmu4WEZFcWb7cVA6rVMn0gc4oQS9YAGPG5HtoHk9JWkRE\ncuyzz+Dee6FtW1izBv7XEfg6R47Anj1m1bdkn55Ji4iI0yzLjIxfeQUefdSs4i6cRUb517/Mf72h\nWUZ+0khaRESckpAA/fubBD1hAnz44fUJev16sxUrhcOhBJ0TStIiIpJt586ZEp9ffgkRETBq1PXJ\nNzbWvOf99+2J0ZtoultERLLlyBGzgvvkSdM+snXrjN9XpoxpqNGgQX5G5500khYRkRvassXse46P\nN1PZ6RN0+m3ADRtCoUL5F5+3UpIWEZEsffutWb1dpQr8/DPUqpX2+IIFpjhJXJw98XkzJWkREcnU\nu++aPtCdO5sqYtfW2k5xxx3QoQP4+uZ/fN5OSVpERK6TlATDh8M//2m6WX39NRQrlvF7q1eHyZPB\nzy9/YywItHAsE6rdLSIF1aVL0LcvLFoEU6fCE0+kPb5woSla0qKFPfF5EtXudjHV7haRguzUKfjH\nP2DXLrPN6t570x63LGjXDurV0xYrZ+Q0t2gkLSIiAOzda7ZYXb4MP/2UcYcqhwMWL4aAgPyPryDS\nM2kREeGnn8z0tb+/WcF9bYKOiUn73hIlVD0svyhJi4gUcHPmwF13QUgIREZCcPBfx37+GapVM69L\n/lOSFhEpoCwLXnsN+vSBXr1g2TIoVSrte5o0MbW5mzWzJ8aCTs+kRUQKoKtX4fHH4dNPYexYeOml\njKewfXxg4MD8j08MJWkRkQLm/Hl48EFTX3vmTOjX769js2bBr7/CxIm2hSfXUJIWESlAjh4126pi\nYuD7702lsGtdvGi6WCUnm1G02EtJWkSkgNi82eyB9vc3TTLq1r3+PUOGaOW2O9HPSSIiBcD8+aZJ\nRtWqZsV2SoJescKMnlMoQbsXJWkRES9mWeb58oMPwn33mSYZ5cubY2fPwv33wyef2BujZE7T3ZlQ\n7W4R8XQJCTB0qFnB/dJLMGZM2ufMZcvCxo1Qp45tIXo91e52MdXuFhFvcO6cGT2vW2dGyikruOPj\n1VLSDjnNLZruFhHxMgcPQvPm8MsvsHLlXwn6yy9N7+dz5+yNT7JPSVpExItERZnqYMnJZoFYmzZ/\nHWvWDHr2hJtusi8+cY6StIiIl5gzx+x7rlsXNmyAGjXSHg8OhldfhSJF7IlPnKckLSLi4SwLXnnl\nrxrcK1aYRWGzZsGaNXZHJ7mhJC0i4sHi480z55dfhnHjYMYMKFrUTHfPnAnffWd3hJIb2oIlIuKh\nzpyBbt1MJbG5c83z5hQ+PrB4Mfj52Ref5J5G0iIiHmjfPrMQbN8+M6Xds6f5/bWKFVMFMU+nJC0i\n4mHWrDEJumhRU4ykeXNTi7tOHYiMtDs6cSUlaRERDzJjBnTsCI0amcRcpYp5vXlz+OoraNHC3vjE\ntZSkRUQ8QHIyjBoFgwaZX0uXQqlSfx13OEyFMbWX9C66nSIibu7iRdMIY+JEePttmDbNlPp84gm7\nI5O8ptXdmVCDDRFxB9HREBZmSn0uXgz33GNe9/P7a6uVRs/uSw02XEwNNkTEXWzcaNpL+vmZBH3H\nHXZHJDmlBhsiIl4kIgLatoVq1WDTJjhwAM6ftzsqyW9K0iIibiQ52VQP690bevSAVavMdPaAAabM\npxQseiYtIuImLl0yyfjrr2H8eLOa2+Ew092//AKVK9sdoeQ3JWkRETdw/Lh5/rx7N8yfb/ZCX1st\nLGU/tBQsmu4WEbHZtm3QuDGcOGEqhl28aNpNnj1rd2RiN49L0sOGDaNKlSr4+Piwc+fO1NcPHDhA\ny5YtqVWrFk2bNmX37t2ZHtuzZ48doYuIXGf+fGjVCm67zTTKCAmBO++Ep56C0qXtjk7s5nFJunv3\n7kRFRVE53cOZwYMHM2TIEPbt28dzzz3HgAEDMj3Wv3///A1aRCQdy4LXXjNVwv7xD1i7FgIDzbEK\nFeDZZ7X/WTx4n3SVKlVYtGgR9evX5/Tp09SoUYPY2Fh8/ve3OjAwkKioKAICAjI9VrVq1euuq33S\nIpLXrlyBRx6BL76A0aOhfHmz1apzZ7sjk7xSoPdJx8TEEBgYmJqEAYKCgoiOjs7ymIhIfjt5Ejp0\nMNPcERFmu9XSpaZZhkh6Xru6O6sJAg+dPBARD7dzp5naTkiAH3+Epk3N6wsXQpEitoYmbsorknSl\nSpU4ceIEycnJqSPmmJgYgoKCCAgIyPRYVlJqd19LdbxFJKcWLzYFSqpXN3ugUxI0KEF7m5R63dfK\nae1ur0jSN998M6GhocyaNYv+/fszb948KlWqlPrMOatjmZk7d66eSYtIrlmW6Vz13HNmH/SQIebZ\nc2QktGxpd3SSFzIa0KU8k3aWxy0cGzJkCEuWLOHkyZOULVuWgIAA9u/fz/79+xkwYABnz56lZMmS\nzJgxg3r16gFkeSw9LRwTEVe5cgUGD4bPPzfVw157zRQo+eGH64uViHfLaW7xuCSd15SkRcQVTpyA\nbt1gxw7T+7lPH7sjEjsV6NXdIiLuZMsWU0EsJgYeewxWrDDT3iLOUpIWEXGhuXOhdeu/Kog1a2Ya\nYyhJS054xcIxERG7JSfDSy+Zldt9+8JHH0GxYqANIZIbStIiIrl04YJJzN9+a3pAT55sErRIbrls\nuvvKlSvEx8e76nIiIh7h8GFo0QLWrDFlPleuNNXERFwhxyPpH3/8kUWLFhEVFcXu3bu5fPkyAP7+\n/tSpU4cWLVrQtWtX2rVr56pYRUTcyo8/mgYZpUrBzz+b9pLt2//VKEMkt5zagnX16lU+/PBDJk2a\nxJEjRyhTpgyhoaFUrVqV0qVLY1kW586d4/Dhw2zbto3Y2FiCg4MZMWIEgwcPpogHlNXRFiwRyY4P\nPoB//tOMohcsgDJl7I5I3FlOc4tTI+nq1auTkJBA//796dGjB6GhoVm+f+vWrXz99deMHz+et956\niyNHjjjzcSIibufqVRg2zCTp9u1h926t3Ja841SSfv755xk4cCC+vr7Zen/Dhg1p2LAhr7zyCjNm\nzMhRgHZJqd2tet0ikuLMGejeHaKizOrtsDD45huNoiVzKXW8c1q7WxXH0tF0t4hkZNcuk5QvXDCJ\nuXVruyMST6KKYyIieeTbb01RksuXTf1tJWjJL04n6bNnz7Jjxw6SkpJSX9u7d2+ar0VEvIFlwYQJ\n0LUr3HUXNGkCZ8/aHZUUJE49k16wYAF9+/bF39+fm266iS+//JImTZpw+fJlypcvz1n97RURL3H5\nMjz8MEREwOjR8PLL5nUfzT9KPnLqr9v8+fM5fPgwp0+fZsmSJUycOJFt27YREhKCj/7mioiXiIkx\nU9rz58NXX8HYsSY56585yW9O/ZW78847KV++PAB169bl66+/5ocffmDXrl041BhVRLzAunXQqJFJ\n1AkJULGi3RFJQeZUknY4HKxYsYKwsDDOnj2Lw+Fg1KhR7NmzhytXruRVjCIiec6yYNo06NDBVA7b\ntQsiI6F5c7sjk4LMqWfS/fv3Z+PGjXTv3p2yZcumvt69e/fUEbaIiKeJj4ennoKPPzb/ffttKFIE\nbr7Z7sikoMvVPumkpCQKFSrkynhsp33SIgXLiROm/vbGjRASAps2gZ7eiavZsk96woQJuTldRMRW\nmzaZ58+HD8O4cRAebndEImnlqp+09kaLiKeaORMGDzaj52++UecqcU+5StLevKJbtbtFvNPVqzBi\nBLz7LvTuDdOnQzbbEYg4Lbe1u3OVpL3Z3Llz9UxaxMucOQM9esBPP0FAANx5pxK05K2UgV7KM2ln\nKUmLSIHwyy+mvOelS7B6NdxxB5QubXdUIllT/RwR8Xpffmn2O5ctC1u2QJs2StDiGXKVpIsUKeKq\nOEREXC4pCUaNMqu2LQsWLoSgILujEsm+XE13P//8866KQ0TEpc6dMwvDfvjB1N6uWhUqVbI7KhHn\n6Jm0iHid3bvhvvtMW8lly6BjR7sjEskZPZMWEa+yYAE0aGBKfW7erAQtni3XI+nIyEimT5/OoUOH\nOHfuHOmrjDocDnbs2JHbjxERyVJSEowZYyqHVapkanBXq2Z3VCK5k6skPWnSJJ599ln8/PyoVasW\nZcqUcVVcIiLZdu4c9OkD338P48fDyJHq/SzeIVdJ+s0336Rly5YsXrw4R5u0RURya+dO6NQJrlwx\nz587dbI7IhHXydXPmpcuXaJ3795K0CJii7lzoUkT+P13+OQTJWjxPrlK0u3bt2fXrl2uikVEJFsS\nE+GZZ6BXL9Nmcv16eOABu6MScb1cTXe/++67dOzYkbfffpuBAwd61TNpNdgQcU+nT0P37hAZCZMn\nwz//qf7P4r5y22DDYaVfju2kyZMn88wzz2BZFn5+fhQqVCjtBzgcxMXF5eYj8lVOG3OLSN7bvBn+\n/nezvWr5cmjXzu6IRLInp7klVyPp0aNH89prr3HbbbfRqFEjPZsWkTwzfToMHQrBwfDww9C2rd0R\nieS9XCXpadOmcc8997Bw4UJ8tN9BRPJAQgIMGwbTpsGjj5o+0GovKQVFrpJ0QkIC99xzjxK0iOSJ\nmBho1QpOnICPPjJJWqQgyVV2vffee1m3bp2rYhERSRUZCY0awbFj8OKLStBSMOUqSb/88svs3r2b\noUOHsnWK5BLCAAAgAElEQVTrVk6fPk1sbOx1v0REssuy4L33oH17qF0b9u+H0aPtjkrEHrla3X3t\nNLcjiz0QSUlJOf2IfKfV3SL2uXQJ+vY1TTL+9S+YOBHUtl68gW2ru7NKziIi2XX0qHn+/NtvZpHY\n4MF2RyRiv1zvk/Y2GkmL5L9Vq6BnT7jpJhg+3KzmFvEmOc0tWpYtIrZJToYJE0zP50aNYNs2JWiR\na+W6n7SISE6cPWsS85EjZvX2mDGQrmChSIGnJJ0J1e4WyTs7d0K3bnD8ODz1FLz6qt0RieQN22t3\nexs9kxbJW7NmmUVhtWrB/PlQtardEYnkPT2TFhG3dumSefbcrx+Eh5v2kkrQIllTkhaRPBcTAw0b\nwooV8Pzz8OmnUKyY3VGJuD+nn0m3bt2a1q1b07JlS1q2bEmpUqXyIi4R8RIrV0KvXlC8uJnevv9+\nuyMS8RxOJ+mjR48SFRWFw+HA4XBQp04dWrVqlforODg4L+IUEQ+TlGQWhL36Ktx1F3zxBZQta3dU\nIp4lRwvHfvvtNyIjI4mMjGT9+vX8+uuvJCUl4XA4qFChQpqkXb9+fY+qSqaFYyK598cfEBoKhw+b\nutujR2t7lRRsOc0tLlndffHiRdavX09UVBRRUVFs3LiRS5cuAVCiRAnOnTuX24/IN0rSIrmzY4eZ\n0j51Cp54Al5/3e6IROxna5K+1vHjx/nxxx9577332LBhAw6Hwy0abBw4cID+/ftz5swZSpUqxWef\nfUadOnWue5+StEjOzZwJQ4ZA3bowbx5UqWJ3RCLuwZYGGwC7du0iMjIydRR99OhRfH19CQkJYcSI\nEbRs2TK3H+ESgwcPZsiQITz00EPMnz+f/v37s2nTJrvDEvEKFy5Amzbwyy/w8MMwdSr4+dkdlYjn\nc3okvXbtWqKiooiMjGTDhg3ExcVxyy230KJFi9RfDRs2pGjRonkVs9NOnz5NjRo1iI2NTW2vGRgY\nSFRUFFXTbdTUSFrEOdHR0LWrSdCDB8MHH9gdkYj7ybeRdPv27SlSpAgPPvggU6dOpXnz5tclOncT\nExNDYGBgmv7XQUFBREdHu33sIu7shx+gd28ICICoKGje3O6IRLyL00n69ttvZ/fu3cydO5ddu3bR\nokULWrVqRYsWLajiQQ+gbjSBkFK7+1qq4y1iJCaalpLvvQedO8Ps2VCmjN1RibiHlHrd18rX2t0X\nLlxgw4YN163mLl++PC1atKBly5ap095FihTJUWCupOluEdc5cwZatYJ9+2DkSBg/HnxUu1AkS7au\n7k5KSuKXX34hKioqdSvW8ePH8fX1pVGjRvz000+5/Yhc69ChA/3796d///7MmzePiRMnZrhwTEla\nJHM//ww9epg63M89Z36JyI25zRasX3/9lXXr1vHFF1+41Ras/fv3M2DAAM6ePUvJkiWZMWMG9erV\nu+59StIi10tOhilT4NlnoUkT+PJLqFjR7qhEPIctW7Di4+PZuHFjavWxDRs2cP78eQB8fX1p1aoV\nrVu3zs1HuEzNmjVZv3693WGIeJzYWAgJMau4R4yACRPADZ5iiRQITifpRYsWpSbl7du3c/XqVSzL\nokyZMrRu3Tq1HGjjxo3d4nm0iOTcjh3w4IPw++/w9NPw1lt2RyRSsDidpLt16wZA5cqV6dGjR2pS\nrlu3rsuDExF7WBZMnw5PPgl16sDu3VCtmt1RiRQ8TifpuXPn0rp1awIDA/MiHhGx2R9/wN13w4YN\npjjJ5MmqHiZiF6eTdI8ePfIiDhFxA3v3QpcucOQIjB1ruleJiH20u1FEAJg7Fxo3hmLFYNUqJWgR\nd+BUkq5bty6ff/45CQkJ2T4nPj6eGTNmZNhxSkTsd/kyPPoo9OoFYWGwaRN06GB3VCICTk539+/f\nnxEjRjBs2DDCwsK46667CAkJoUqVKvj7+wPw559/cvjwYbZs2cLKlStZvHgxRYsW5dlnn82Tb0BE\ncu7IETN6PnsW3n/ftJl0OOyOSkRSOF3M5MKFC3z66ad89tln7Ny5E8f//o9OqXOdUp/Usixuv/12\nBg0axKBBgzymMIiKmUhBsXgx9OtnprdHjoRhw+yOSMR72VJx7MiRI6xfv569e/dy9uxZAMqWLUvt\n2rVp3ry5RzXcSJHyB9mlSxcKFy6sphridRIT4YUXYOJEM7392WdQurTdUYl4p5RmG4mJiSxbtsz+\nsqCeTiNp8WYHD0Lr1nDyJLz+OjzzjKa3RfJDTnOLVneLFBArV0KzZnD6NLz2mqnDrQQt4t6UpEW8\nXGIivPQSdOz4Vw3uUaPsjkpEsiNXDTZExL0dPQrdupka3OPGmeSs3s8inkNJWsRLLV8O999v9kEv\nXgz33GN3RCLiLP1MLeJlEhPh+eehc2do2RKWLlWCFvFUGkmLeJGYGFM57OefzertZ5/V9LaIJ3N5\nkq5evTrNmjWjffv2dOjQIXWv9JIlSyhdujQtWrRw9UeKCGZK+4EHwN8f1q41o2gR8Wwu/xn73//+\nN8888wxxcXE89dRT1K9fn0GDBnH27FnWrFnj6o8TKfCuXoXnnjOFSSpXhqlTlaBFvEWeFzNJSkpi\n8+bNrF27lho1anD//ffn5cflmoqZiCeJjobwcNi8GSZMgKef1vS2iDvKaW7J82fShQoVolmzZjRr\n1iyvP0qkQJk3z9TeLlcO1q0zhUpExLvomXQmwsPDVbtb3FJCglm9PWkSFCoEM2cqQYu4q2trd+eE\ny6e7p0+fTmhoKKtXr2b16tVER0fTqFEj2rVrR0xMDC+88IIrP87lNN0t7uzIETO9vW0bvPEG9O0L\nN99sd1QiciP5Pt39559/sm/fPurVq4evr2/q64MGDQKgQYMGVKhQgQceeICtW7eydu1a6tSpk9OP\nEynw5s+HQYOgTBmIjIQmTeyOSETyWo5G0seOHaN58+YcO3aM4OBgfvjhB6pXr37d+2JiYpg5cyYv\nvviiS4LNDxpJi7tJSDCrt995B8qWhf/7P7WWFPE0+TqSHjNmDJ06dSIkJIQFCxbQs2dPtm7dCkBs\nbCxXr16lRIkS3HbbbZw/fz4nHyEiwKFD0LMn7NwJI0bAP/6hBC1SkOQoSR86dIhVq1YBMHToUP79\n73+zdOlSpk6dyvLly9O8t4nm5ERy5Ouv4dFHzeh5/Xpo2NDuiEQkv+UoSd+cbqXKyy+/TLVq1Rgw\nYABPPfUUv/zyC1u2bKFw4cKMGTPGFXGKFBiXLsHQoWbVdpcuEBEBJUvaHZWI2CFHSbpo0aJpvvb1\n9aVz586MGzcOgC5duuQ+MpEC6NdfzertQ4egalX417+UoEUKshzVJtq7dy8HDhxI81qNGjVcEpBI\nQWRZ8MEHZsV2oUKwdSscOAAdO9odmYjYKUdJesuWLdSqVYvKlSvz8MMPExERwYULFzJ87+rVq3MV\noIi3O3cOunUzU9yDBsHGjVC3LjgcdkcmInbL0Ras9u3bM2bMGH766SciIyPZsGEDFy9eJDg4mGbN\nmtG0aVOaNWtGSEgIffv25euvv86L2POEtmBJfoqKgt694dQpU3P7+HFNb4t4o3zdghUeHk7btm1p\n27YtAMnJyWzfvp3IyEjWrVvH66+/zqlTpyhSpAjJyck5+QgRr5aUZBpijBljSnquXAlXrihBi0ha\nedYFa//+/axdu5aXX36Z48eP58VH5ImUn3a6dOmi2t2SJ44fhz594Mcf4aWXYPRoKJznrW5ExA7X\n1u5etmyZ0yPpPG9V2aNHD7766qu8/AiX0nS35KUlS6B/f7h40XSw+ugjuyMSkfzgtq0qhw8fntcf\nIeL24uNh1CiYPBnuvRdCQ6FdO7ujEhF3l+dJunnz5nn9ESJubf9+s/f5v/81Sfqf/9TKbRHJHj0J\nE8lDn38Ojz8OxYrBunXqXCUizsnRPmkRydqFC/DQQ+b5c5s2ZjX3NR1dRUSyRSNpERfbutVMb//+\nO8yaBX37wvnzoHWIIuIsjaRFXMSyzDPnZs3M9Pa2bSZBgxK0iOSMRtIiLnDyJAwYAN9/DzVrQvHi\nUL263VGJiKdTkhbJpaVLYeDAv34fGAiJiVrBLSK5pyQtkkNXrsDIkTBliun7PGMG3HKL3VGJiDdR\nkhbJgV27TGOMffugfn144w0laBFxPS0cE3GCZcF770HjxpCcbPY+lytn2k2KiLiaRtKZCA8PV4MN\nSeP0adPv+bvv4MknYeJEs4p75Uo9fxaRjF3bYCMn8rzBhqdRgw3JyA8/mMIkV6+asp6jR9sdkYh4\nkpzmFk13i2QhPh5GjIBOncyz58ceg3feMcVJRETymqa7RTKxZ49ZHLZ7N0yaBMOGma1VgwapOImI\n5A+NpEXSsSz48ENo2BAuX4YNG2D4cPDxgaJFVaRERPKPkrTINc6cgW7dYMgQ0yCjTBlYssTuqESk\noNJ0t8j/rFoF/fqZIiULFkDXrjB1qtpLioh9PGokPWzYMKpUqYKPjw87d+5Mc+zAgQO0bNmSWrVq\n0bRpU3bv3p3psT179uR36OLGEhLguefgrrugTh349VeToMFstVKSFhG7eFSS7t69O1FRUVSuXPm6\nY4MHD2bIkCHs27eP5557jgEDBmR6rH///vkXtLi1/fuhRQvTvWr0aAgNNcVJRETcgUfuk65SpQqL\nFi2ifv36AJw+fZoaNWoQGxuLj4/5uSMwMJCoqCgCAgIyPVa1atXrrq190gWDZcHHH5sFYRUrwpw5\nkJRkRtArVkC9enZHKCLeJKe5xSueScfExBAYGJiahAGCgoKIjo6mRIkSmR7LKEmL9zt1Ch5+2FQO\nGzwY3n7btJYEOHQI/PzsjU9EJIVXJOmMZDVB4IGTB+Ii331nErRlwVdfQdOmfyVoUIIWEffi1kl6\n1qxZTJo0CYfDwbBhwzJ9llypUiVOnDhBcnJy6og5JiaGoKAgAgICMj2WlZTa3ddSHW/P9eefpnLY\nhx/CvffCJ5/A0KHwn/9AVJRqb4uI66TU675WTmt3Y3mgypUrWzt27EjzWvv27a3PPvvMsizL+vrr\nr63GjRtn61h6cXFxFmDFxcXlQeRih40bLatGDcvy97esadMsKznZvP7f/1rWrl32xiYiBUNOc4tH\nLRwbMmQIS5Ys4eTJk5QtW5aAgAD2798PwP79+xkwYABnz56lZMmSzJgxg3r/W/2T1bH0tHDMeyQm\nwvjx8MorZtX27NlQs6bdUYlIQZTT3OJRSTo/KEl7h4MHoW9f2LQJXnzRLBDr18+0lwwNtTs6ESlo\nCvTqbpEUlgXTp5tmGLfcApGR0Ly5qSJWvLhpNSki4imUpMVrnD5tWkkuXGhWcP/nPxAQYI75+cGi\nRfbGJyLiLI+qOCaSmWXL4I47YN06U3f7zTdh5Uq7oxIRyR0lafFoly7BE0/A3XdDSMhfdbc//NA8\nhz5/3u4IRURyTklaPNbWrWYR2PTp8N57sHQpBAaaY888A9u2gdb+iYgnU5IWj5OUZLZWNWtmFoNt\n2wYDBpjXUxQubGpyi4h4MiVp8SiHD0PbtmZb1bPPwoYNUL06tG4NY8faHZ2IiGtpdbd4BMuCGTPM\n1qqyZWHtWpOYUzzxBDRubF98IiJ5QUk6Eym1u1Wv234nT8Kjj8LixTBwoOn9nP5Z86BB9sQmIpKV\nlDreOa3drYpj6ajimHv55huzStvHx/R/DguDEydg3DjTYlJdq0TEE+Q0t+iZtLilP/4wZTwfeMBM\na+/aZRI0wO+/w/ffw5EjtoYoIpLnNN0tbmfVKjOtHRcHM2fCQw+lbSUZEgL79pkV3CIi3kwjaXEb\nly6ZhWF33gk1apjCJP36mWR98GDa9ypBi0hBoH/qxC1s3mxGzEePwjvvwJNPmufQYPZAnzwJ69en\nHVGLiHg7JWmx1dWrZhHYa6+Zaext26BOnbTvefNNKFRICVpECh4labHNnj1m9PzLL/DSS/Dvf0OR\nImZP9LUJuUYN+2IUEbGTnklLvktONnudQ0Lgzz/h55/h5ZdNgj5xwpT7/Plnu6MUEbGfkrTkq6NH\n4e9/h+HD4fHHzfR2o0Z/HS9b1oyc/f3ti1FExF1oulvyhWWZ7VT//CeUKmW2WXXocP37ihaF2bPz\nPz4REXekkbTkuRMn4L77zN7nbt3M1qqUBP377/DFF/bGJyLirpSkJc9YFsyZA/XqwaZNsHChGU2X\nLPnXe2bNgueegwsX7ItTRMRdqXZ3Oin1Vbt06aIGG7lw6pR55vzNNxAeDlOnmufN6SUnw9mzcPPN\n+R+jiEheu7bBxrJly5yu3a0knY4abOTevHkmQQO8/z507/7XsfPnoVgxs5JbRKSgUIMNsd3Zs9Cr\nl0nKbdrAf/+bNkFfvQrNm5s90SIicmNa3S0u8e238NhjkJBgFoL16nV9hbAiRUyCvnbLlYiIZE4j\nacmVc+egf3+zertxYzN67t078xKe4eFQvXr+xigi4qmUpCXHli2D22+HRYvgs8/MaDow8K/jhw+b\nLlaXLtkWooiIR1OSFqedPw+PPAJ3322S9K5dZjSdfvR88SJs3w7Hj9sTp4iIp9MzaXHKqlUwaBDE\nxsJHH5lkndnU9h13wI4df7WcFBER5+ifT8mWixdh6FC4806oVs1UDXv00bQJ+tQp09nqWkrQIiI5\np5G03NBPP5mSnr//boqSPP54xsn34YfNCDsyUr2fRURcQUlaMnXpkunxPGUKtGwJy5dnvTL73XdN\ngwwlaBER11CSlgytXw8DBkBMDLz9tuleVahQ2vckJaV9rXLl/IxQRMT76YlhJsLDwwkLCyMiIsLu\nUPLVpUum13OrVlCmjFmdPXz49Qn62DH4299g3Tp74hQR8QQRERGEhYURHh6eo/NVuzudgly7e+1a\n81z52DEYNw7+9a/rk3OKxER48kl4+mmoWTN/4xQR8TQ5zS2a7hYuXoRRo+C998wIeunSGyfewoVh\n2rT8iU9EpKDSdHcBt2qV2c88Ywa8844ZTWeUoI8eNfuiRUQk/yhJF1Dnz8PgwWbfc+XKsHOnWRyW\n2b7m+fPh9dfNqFtERPKHknQBtHy5Kec5Z47p97xqlSlQkpXhw80isptuyp8YRURESbpA+eMPU9Kz\nc2eoXdvU3M6sMMmZMxAf/9fXDgeULJl/sYqIiJJ0gfHdd1Cvnpm2/vhjM5oODs74vQkJ0Lw5vPhi\n/sYoIiJpaXW3l4uNhWHDYPZs6NLFLP6qWDHrc4oWhbfegoYN8ydGERHJmJK0F1uwwExnx8ebfs/9\n+mW/ZOd99+VpaCIikg2a7vZCp09DeDjcfz80bQr//W/G/Z5T7N1r3nvhQv7GKSIiWdNI2otYFnz9\ntakElpQEX3wBvXrdePTscMCJE3D2LAQE5E+sIiJyY0rSmQgPD6dw4cL06tWLXr162R3ODZ04YZLz\nN9/AAw+Y6mG33JK9c2vVMg011L1KRMS1IiIiiIiIIDExMUfnq3Z3Op5Wu9uyTLWwESPMgq+pU6F7\n96zPiYkxo+YGDfInRhGRgk61uwugQ4dM1bCVK80z57ffhrJlb3ze0KEQF2dKgGr0LCLivpSkPVBS\nEkyZYvYx33wzfP89dOqU/fOnTQNfXyVoERF3pyTtYXbtMu0kN2+Gp56C1167canOhAQzFZ7ittvy\nNkYREXENbcHyEPHx8PLLEBpqtkpFRZmuVTdK0NHRpgToypX5E6eIiLiORtIe4Oefzeh5/354/nl4\n4QUzXZ0dt91m9kDfqD+0iIi4HyVpN3bxonnuPGUKNGoEW7dC/frOXaNQIVPiU0REPI/HTHfHx8fT\nrVs3ateuTUhICJ06deLgwYOpx0+fPk2XLl2oWbMm9evXZ926ddk65q5WrIA77jC1tt96CzZsyF6C\n3rcP/vOfvI9PRETynsckaYDBgwezd+9etm/fTlhYGI888kjqsVGjRtG8eXP279/P9OnT6d27N0lJ\nSTc85m5iY2HgQOjYEapWhV9/haefNiPi7PjhB9Pl6s8/8zZOERHJex5bzGTr1q10796dQ4cOARAQ\nEMDBgwcpX748AE2bNmXChAl06NDhumPNmjVj/PjxdOjQ4brr2lXMxLJMG8knn4QrV8ye50GDnN8m\nZVlw+TL4++dNnCIi4ryc5haPGklfa8qUKXTt2hWA2NhYEhMTU5MwQOXKlYmOjs7wWHBwMNHR0fke\nc2ZOnDClPLt3N32cd+82C8Wyk6CPHzdJOYXDoQQtIuItPHLh2Pjx4zlw4AAffvhh6muOdBnt2gmC\nrI5lJqV297VcXcc7ORk+/RSefRb8/ExzjAceyP7oOSEBWrY052hxmIiIe0ip132tnNbuduskPWvW\nLCZNmoTD4WDYsGH079+ft956i4ULF7Jq1Sr8/PwAKFOmDIUKFeLUqVOpI+ajR48SHByc6bGgoKAs\nP3vu3Ll5Ot29Z48p6blunXkG/dZbUKaMc9coWhQ+/BBCQvImRhERcV5GA7qU6W5nufV090MPPcT2\n7dvZtm0b/fv3Z9KkScydO5cVK1YQkK6nYvfu3fnggw8A2Lx5M8ePH6dNmzaZHmvbtm3+fjP/Ex8P\nY8ea5ha//w6rV8P06c4n6BQdO5rSoCIi4n08ZuHYsWPHqFSpEtWqVSMgIADLsvDz82PDhg0AnDp1\nioceeojDhw/j6+vLe++9l5qkszqWXl4uHFu3Dh57DA4cgFGjTFGS/00GZMvOnfDMM/DVV1CqlEtD\nExGRPOT1XbBuu+02kpOTMz1evnx5li9f7vSx/PDHHzBypNnz3KwZbN8Ot9/u/HVSSoD++aeStIhI\nQeAxSdoTWRbMmwf//KdJrO+9B0OGgE8OHzJUrWr2QYuISMHg1s+kPVlMDISFQY8eZvS8Z4/p4+xM\ngv6//4ONG/MuRhERcW8aSbtYUpIZMb/wApQoAd98A9265exaTz9t6nevWePaGEVExDMoSbvQjh3w\n6KOwZQs8/jiMHw85WHGf6tNPnVtYJiIi3kXT3S5w6ZJZrd2wofl9ZKQZTTuboNPX2y5f3ozGRUSk\nYFKSzqWUblWTJ5v9z9u2QYsWzl/nyBGoXh2WLXN5iCIi4qGUpHPozBno188UEwkKMnuYX3jBVAHL\niaAgs/K7YUPXxikiIp5Lz6SdZFkwezYMH/5X7e2BA53vVpWejw+8/LJrYhQREe+gkXQmwsPDCQsL\nu65I+mOP/TWC3rMnZ+0kAX75BcaNc1GwIiLiliIiIggLCyM8PDxH53tMWdD8cqPSbT/+aFpDdumS\nu8/56CPTHOOnn6B48dxdS0RE3FtOy4IqSaeTl7W7r2VZcPVqzp9hi4iI58hpbtF0dz45dMgUJknh\ncChBi4hI1pSk80F8PLRtq4VhIiLiHK3uzge+vjBnDtSvb3ckIiLiSZSk84hlpV313bq1fbGIiIhn\n0nR3Hti82VQdO3vW7khERMSTKUnngVtugcBASEy0OxIREfFkmu7OA0FBpkWliIhIbmgk7QI7d8K6\ndXZHISIi3kYjaRd46SW4cgWWL7c7EhER8SZK0pkIDw+ncOHC9OrVi169emX53hkzoFixfApMREQ8\nRkREBBERESTmcJGSyoKmk53SbX/8AaVK5XNgIiLisVQWNJ8cOgRVq8J339kdiYiIeDslaSdVqQIv\nvACtWtkdiYiIeDslaSc5HFChQoSmu91A+l7fYg/dB/eg++AeXH0flKRzQP8zuAfdB/eg++AedB/c\ng5K0iIhIAaEk7QZc+ZOXq3+Kc+fYXM2dv1d3js2V3PnPzdXX032w/1p5cT1XU5J2AwXlL7C7/8/g\nzt+rO8fmSu785+bq6+k+2H+tvLieq6mYSTop28bPnz+f6XsSExOzPO4sV15PsbnH9RSb/ddy9+sp\nNvuvlZ/XS3nN2dIkKmaSzm+//UalSpXsDkNERLxQTEwMFStWzPb7laTTSU5O5vjx4wQEBOBwOOwO\nR0REvIBlWVy4cIEKFSrg45P9J81K0iIiIm5KC8dERETclJK0iIiIm1KSFhERcVNK0teIj4+nW7du\n1K5dm5CQEDp16sShQ4cA2LRpE82bNyc0NJR69erx5ptvpp53+fJlevfuTY0aNahduzbz58+361vw\nClndh82bN9OqVSsaNGhAaGgoa9asST1P98H1OnXqRIMGDQgJCaFt27b88ssvABw4cICWLVtSq1Yt\nmjZtyu7du1PPSX9sz549doXvNdLfhx07dgAwbNgwqlSpgo+PDzt37kxzju6D62V0HzL69+rgwYOp\n55w+fZouXbpQs2ZN6tevz7p165z7UEtSXblyxVq2bFnq11OnTrXat29vWZZlNWjQwPruu+8sy7Ks\n2NhYq3z58taePXssy7KsV155xRo4cKBlWZZ1+PBhq3z58lZsbGw+R+89sroPFStWtFavXm1ZlmXt\n37/fCgoKsq5cuWJZlu5DXoiLi0v9/YIFC6y//e1vlmVZVocOHazPP//csizLmjdvntW4cePU92V1\nTHIms/uwbt0669ixY1aVKlWsHTt2pDlH98H1MroP8fHx1/171a5du9SvBw0aZI0dO9ayLMvavHmz\nVbFiRSsxMTHbn6kknYUtW7ZYVapUsSzLskJDQ61Zs2ZZlmVZ0dHRVqVKlayTJ09almVZ9erVszZu\n3Jh6Xs+ePa1PP/00/wP2Uin34cyZM5avr2+aY/Xr17cWLFhgWZbuQ16bMWOGFRISYp06dcoqUaKE\nlZSUlHrs1ltvtQ4ePGidOnXKKlmyZIbHxDVS7sO1KleunCZJ6z7kvYzug2WlzRuWZVk33XRTaq6w\nLMtq2rSptWrVqmx/jiqOZWHKlCl07doVgOnTp3PffffxwgsvcObMGT788EPKly8PQHR0NMHBwann\nBQcHEx0dbUvM3ijlPpQtW5YKFSowb948HnzwQTZv3sy+ffs4cuQIoPuQV/r378+aNWtwOBwsXbqU\nmJiY6/Z6BgUFER0dTYkSJQgMDMzwWNWqVe0I32ukvw9ZiYmJ0X3IIze6D9fmjdjYWBITE1NzBTj/\n75QC26gAAAyoSURBVJKeSWdi/PjxHDhwgPHjxwPw+uuv88Ybb3D06FF27drFv//9b/bu3ZvhuZa2\nnrtM+vuwaNEiPv30Uxo2bMi7775L69atKVKkSIbn6j64xsyZM4mOjmbcuHE899xzwPV/tln9Wes+\nuEZG98EZug+ukdV9SP/vFXBdUSyn70MOR/pe7c0337QaN25snT9/3rIsK8Np1u7du1uffPKJZVmW\ndfvtt6eZZu3Ro4emWV0g/X3ISJ06daw1a9ZYlqX7kB+KFSum6W43UKxYsTTrLTTdbY9r70Nm/16l\nn+5u0qSJU9PdGkmnM2nSJObOncuKFSsICAgAoHTp0tx0002pK4nPnDnDxo0bueOOOwB48MEHmTZt\nGgBHjhxh7dq1qdMdkjMZ3QeAkydPpv7+448/5qabbqJdu3aA7oOrxcXFceLEidSvFy5cSLly5bj5\n5ptp2LAhs2bNAmDevHlUqlSJqlWrcvPNNxMaGprhMcmZzO5D6dKlMz1H98H1sroPmf17BdC9e3c+\n+OADwOxOOX78OG3bts3+B7vm5wnv8Ntvv1kOh8OqXr26FRISYjVo0MBq1qyZZVmWtXLlSqthw4ZW\ngwYNrHr16lmTJ09OPe/PP/+0evbsaVWrVs2qVauWNW/ePLu+Ba+Q1X0YO3asVbNmTatmzZrWfffd\nZ/3222+p5+k+uNbRo0etJk2aWPXr17f+9re/WXfddVfqaG3fvn1W8+bNrZo1a1qNGze2du3alXpe\nVsfEeRndh507d1qWZVmDBw+2KlasaBUpUsS69dZbrRo1aqSep/vgWpndh6z+vbIsyzp58qTVsWNH\nq0aNGtbtt99urV271qnPVe1uERERN6XpbhERETelJC0iIuKmlKRFRETclJK0iIiIm1KSFhERcVNK\n0iIiIm5KSVpERMRNKUmLiIi4KSVpESnQBg4cmOPysQsXLqR06dLExcW5OCoRQ0laxAk+Pj43/FWo\nUCF++uknu0N1C6+++ipLliyxO4xM7du3j9mzZ/P888+nec3Hx4f3338/zXsty2LAgAH4+PgwceJE\nALp27UpgYCBvvvlmvsYtBYf6SYs4Yfbs2Wm+njlzJitXrmT27NlpWtDVqVMnv0NzS6+88gqPPvoo\n99xzj92hZOg///kPt99+O02bNr3hex9++GFmzZrFhAkT0rQofOyxxxg7diwvvfQSvr6+eRmuFEBK\n0iJO6N27d5qvN2zYwMqVK+nVq5dNEeUfy7JISEiwPRG5Ko4rV67w5ZdfMnLkyBu+99FHH2XmzJmM\nGzfuuvd3796dESNGsGDBAsLDw3MVk0h6mu4WyUNXrlzhhRdeoFq1avj5+VG5cmVefPFFrl69mvqe\n+Ph4fHx8eO6554iIiKBOnTr4+/vTunVr9u7dC8C7775LtWrVKFasGHfddRfHjx9P8znNmjWjSZMm\nbNy4kebNm+Pv70/16tWZPn16rmP67LPPqFu3Ln5+fqxduxaACRMm0KJFC8qWLYu/vz9Nmzbl22+/\nve785ORkpk2blvooYOjQoQCEh4dnONswatQoihUrlu04kpOTeeutt1JfDwwM5Mknn+TChQs3vDdr\n1qzh/Pnz3HnnnVm+b8iQIUyfPp1XXnklzbR4ittuu41atWqxaNGiG36miLM0khbJI8nJyXTp0oVt\n27YxZMgQatSowfbt23njjTc4dOgQc+bMSfP+FStWMH/+fB5//HESExMZP348YWFhDB06lJkzZzJs\n2DBOnTrFm2++yWOPPcZ3332Xeq7D4eDkyZOEhYXRp08f+vTpQ0REBI888gjFihVLHek7G9PSpUv5\n4osveOKJJyhdujQVK1YE4J133qFnz57069eP+Ph4Zs+ezf33388PP/xAhw4dKFq0KLNnz6Zfv350\n6NCBgQMHAlCzZs3UeB0Ox3V/Zpm9nlkc/fv3Z968eQwaNIjhw4dz8OBB3n33XXbu3MnatWszvFaK\nDRs2UKhQodS+8Bl54okn+PjjjxkzZgwvvPBCpu9r1KgRP/74Y6bHRXLMdd02RQqeJ5980vLx8cnw\n2Mcff2wVKVLE2rJlS5rX33nnHcvHx8favn27ZVmWdeXKFcvhcFjFixe3Tpw4kfq+KVOmWA6HwwoO\nDrauXLmS+vrTTz9tFSpUyPr9999TX2vWrJnl4+NjTZs2LfW1K1euWPXq1bOCgoJyHFPRokWtQ4cO\nXfe9XRuPZVlWQkKCVatWLevee+9N83rhwoWtxx9//Lrz/7+d+wtpqo3jAP49Z5aeSUxppSCr1axm\ny/4wYq5loJWIjCAi10VBEtGNt0UXi3YRrK6CQLM/QiB1s5EW1KpFEtRFUhFFsnkgtb+wksyolaa/\n9yK219M5W5vp++71/X1gF+d3nuc5v2cX/nzOec527dpFFRUVqvjhw4dJkiTFdVLlEQ6HSRAE6urq\nUsSvXr1KgiBQZ2enavzJdu7cSSaTSRWPRCIkCAKZzWYSBIF8Pl/acYiIjh49SqIo0ufPn3/blrFs\n8O1uxmZIMBjEmjVrYDabMTQ0lPzU1taCiNDd3a1o39DQgNLS0uRxYjOTx+NRPH91OBwgIvT39yv6\nS5KUXLECQH5+Pvbv34/Xr1/j6dOnU8qprq4OS5YsUc1tcj7Dw8P49OkTXC4XHj9+nO3XlBGtPILB\nIBYuXIiNGzcq5uJwOJCfn6+ay6+GhoZQXFyc8nwsFoMgCCgvL/9tfolxPnz4kMFsGMsc3+5mbIbI\nsoyBgQEsWLBAdU4QBMRiMUXMZDIpjg0GAwAkb+3+Gv/48aOq/9y5cxWx5cuXg4gwODiI1atXZ52T\n2WzWnFtnZyf8fj+ePXuG79+/J+N6vV6z/Z/SykOWZcRisYznooUm7cj/ldfrRTAYRFNTEwwGA9xu\n92/HSXd7nbGp4CLN2AyZmJiA3W7HiRMnNIvB4sWLFcc6nU5zHK04EaUtMJPb/UlOkzdxJYTDYezY\nsQNbt27FmTNnUFpairy8PLS1tSmek6eTqpiNj49rxrXymJiYgMlkwoULFzTnUlJSkjaH+fPno6+v\nL+V5g8GAmzdvwuVywePxIBQKYdOmTZptE/8wGY3GtNdkLFtcpBmbIRaLBYODg6ipqflHrvfq1SuM\njo4qVtN9fX0QBCFZfKcjp8uXL8NgMCAUCkEU/35i1tLSomqbqhgXFxdjeHhYFR8YGMg4D4vFgp6e\nHlRXVyMvL/s/ZVarFV1dXfj27RsKCgo02xiNRoTDYbhcLmzbtg3d3d1Yt26dql1/fz/KyspQWFiY\ndR6MpcPPpBmbIY2NjXjx4gU6OjpU575+/Yp4PD7lsbWKXzweR3t7e/J4dHQU586dQ1lZWXIH83Tk\npNPpIIqiYtUryzKuX7+ualtYWKhZjC0WC2KxGGRZTsZevnyZ1a+TNTY2Ih6Pw+/3q879+PEDIyMj\nafs7nU6Mj4/jyZMnadstWrQI4XAYc+bMQX19vebq+9GjR9iwYUPGuTOWKV5JMzZD9u3bh0AggKam\nJty6dQtOpxNjY2Po7e1FIBDAvXv3sHLlyimNrXV712QywefzQZZlLF26FBcvXkQkEkFHR0eyqE9H\nTm63G62traivr4fH48Hbt2/R2toKq9WKaDSqaGu32xEKhXDq1CmUlJSgvLwcdrsdu3fvhtfrhdvt\nRnNzM0ZGRnD69GlUVFSgt7c3o++grq4Oe/fuhc/nw8OHD7F582bodDpEo1EEg0GcP38eDQ0NKfvX\n1NRg3rx5uH37NqqqqtJey2q1IhQKoba2Flu2bMH9+/eTewjevHmDSCSCI0eOZJQ3Y1n5V/aUMzZL\nNDc3k06nS3l+bGyM/H4/2Ww2KigoIKPRSA6Hg/x+P3358oWIfr5mJIoiHTp0SNE3EomQKIrU0tKi\niN+4cYNEUaRr164lY1VVVbR+/Xp68OABORwOkiSJLBYLtbe3T2tOCWfPnqVly5aRJEm0atUqunTp\nkur1KSKi58+fU3V1Nen1ehJFUfE6VigUSuZgs9koEAhovoKVLg8iora2NrLb7aTX66moqIjWrl1L\nXq+XYrFYyj4JBw4coMrKSkUs1fdORHTnzh2SJImsViu9f/+eiIhOnjxJRUVFqtfSGJsOAlEGu08Y\nYzktceu2p6fn307lPyUajaKyshJ3796F0+mc0hg2mw3bt2/HsWPHpjk7xviZNGPsf2zFihXYs2cP\njh8/PqX+V65cwbt373Dw4MFpzoyxn3glzdgswCtpxmYnXkkzNkvwD2kwNvvwSpoxxhjLUbySZowx\nxnIUF2nGGGMsR3GRZowxxnIUF2nGGGMsR3GRZowxxnIUF2nGGGMsR3GRZowxxnIUF2nGGGMsR/0F\ngwHRnLVa0rQAAAAASUVORK5CYII=\n",
      "text/plain": [
       "Graphics object consisting of 2 graphics primitives"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "vdict = cdict.copy()\n",
    "vdict[T_w] = 300\n",
    "vdict[T_a] = 300\n",
    "P = plot((eq_Rll.rhs().subs(vdict)), (T_l, 280,320), axes = False, frame = True, legend_label = 'non-linear' )\n",
    "P += plot(eq_Rll_tang.rhs().subs(vdict), (T_l, 280,320), linestyle = ':', legend_label = 'linear')\n",
    "P.axes_labels(['Temperature (K)', '$R_{ll}$ (W m$^{-2}$)'])\n",
    "\n",
    "P.save(filename='figures/Rll_lin.pdf', figsize=[5,4],legend_font_size=10, fontsize=8)\n",
    "P.show(figsize=[5,4],legend_font_size=10, fontsize=8)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 104,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -{\\left({P_{wa}} - {P_{wl}}\\right)} c_{E}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa - P_wl)*c_E"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -{\\left(T_{a} - T_{l}\\right)} c_{H}</script></html>"
      ],
      "text/plain": [
       "H_l == -(T_a - T_l)*c_H"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{R_{ll}} = -{\\left(3 \\, T_{a}^{4} - 4 \\, T_{a}^{3} T_{l} + T_{w}^{4}\\right)} {a_{sh}} \\epsilon_{l} {\\sigma}</script></html>"
      ],
      "text/plain": [
       "R_ll == -(3*T_a^4 - 4*T_a^3*T_l + T_w^4)*a_sh*epsilon_l*sigm"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}\\gamma_{v} = \\frac{c_{H}}{c_{E}}</script></html>"
      ],
      "text/plain": [
       "gamma_v == c_H/c_E"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{\\Delta_{eTa}} = \\frac{{P_{was}} - {P_{wl}}}{T_{a} - T_{l}}</script></html>"
      ],
      "text/plain": [
       "Delta_eTa == (P_was - P_wl)/(T_a - T_l)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{P_{wa}} c_{H} - {P_{wl}} c_{H}}{\\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(P_wa*c_H - P_wl*c_H)/gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\Delta_{eTa}} T_{a} - {\\Delta_{eTa}} T_{l} + {P_{wa}} - {P_{was}}\\right)} c_{H}}{\\gamma_{v}}</script></html>"
      ],
      "text/plain": [
       "E_l == -(Delta_eTa*T_a - Delta_eTa*T_l + P_wa - P_was)*c_H/gamma_v"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\Delta_{eTa}} T_{a}^{4} - {\\Delta_{eTa}} T_{w}^{4} + 4 \\, {\\left({P_{wa}} - {P_{was}}\\right)} T_{a}^{3}\\right)} {a_{sh}} c_{E} \\epsilon_{l} {\\sigma} - {\\Delta_{eTa}} R_{s} c_{E} + {\\left({P_{wa}} - {P_{was}}\\right)} c_{E} c_{H}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((Delta_eTa*T_a^4 - Delta_eTa*T_w^4 + 4*(P_wa - P_was)*T_a^3)*a_sh*c_E*epsilon_l*sigm - Delta_eTa*R_s*c_E + (P_wa - P_was)*c_E*c_H)/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left(T_{a}^{4} - T_{w}^{4}\\right)} {a_{sh}} c_{H} \\epsilon_{l} {\\sigma} - {\\left({\\left({P_{wa}} - {P_{was}}\\right)} c_{E} + R_{s}\\right)} c_{H}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "H_l == -((T_a^4 - T_w^4)*a_sh*c_H*epsilon_l*sigm - ((P_wa - P_was)*c_E + R_s)*c_H)/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kilogram/second^3 == kilogram/second^3\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\left(3 \\, T_{a}^{4} + T_{w}^{4}\\right)} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - {P_{was}}\\right)} c_{E} + T_{a} c_{H} + R_{s}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == ((3*T_a^4 + T_w^4)*a_sh*epsilon_l*sigm + (Delta_eTa*T_a + P_wa - P_was)*c_E + T_a*c_H + R_s)/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "kelvin == kelvin\n"
     ]
    }
   ],
   "source": [
    "# Analtyical solution: keeping T_l, but eliminating P_wl and using eq_Rll_tang\n",
    "eq_El_cE.show()\n",
    "eq_Hl_cH.show()\n",
    "eq_Rll_tang.show()\n",
    "eq_gammav_cE.show()\n",
    "eq_Penman_ass.show()\n",
    "\n",
    "# Eliminating c_E\n",
    "eq_El_gammav = solve([eq_El_cE, eq_gammav_cE], E_l, c_E)[0][0]\n",
    "print units_check(eq_El_gammav)\n",
    "\n",
    "# Eliminating P_wl\n",
    "eq_El_Tl = solve([eq_El_gammav, eq_Penman_ass], E_l, P_wl)[0][0]\n",
    "print units_check(eq_El_Tl)\n",
    "\n",
    "# Solving for E_l, H_l and T_l\n",
    "soln = solve([eq_El_Tl, eq_Hl_cH, eq_Rs_enbal.subs(eq_Rll_tang(T1 = T_a))], E_l, H_l, T_l)\n",
    "[eq_El_Delta_Rlllin, eq_Hl_Delta_Rlllin, eq_Tl_Delta_Rlllin] = [eq1.subs(eq_gammav_cE).simplify_full() for eq1 in flatten(soln)]\n",
    "for eq1 in [eq_El_Delta_Rlllin, eq_Hl_Delta_Rlllin, eq_Tl_Delta_Rlllin]:\n",
    "    print units_check(eq1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 105,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}T_{l} = \\frac{{\\left(3 \\, T_{a}^{4} + T_{w}^{4}\\right)} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\left({\\Delta_{eTa}} T_{a} + {P_{wa}} - {P_{was}}\\right)} c_{E} + T_{a} c_{H} + R_{s}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "T_l == ((3*T_a^4 + T_w^4)*a_sh*epsilon_l*sigm + (Delta_eTa*T_a + P_wa - P_was)*c_E + T_a*c_H + R_s)/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "kelvin == kelvin"
      ]
     },
     "execution_count": 105,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "soln = solve(eq_Rs_enbal.subs(eq_Rll_tang, eq_El_Tl, eq_Hl_cH), T_l)\n",
    "eq_Tl_Delta_Rlllin = soln[0].subs(eq_gammav_cE).simplify_full()\n",
    "units_check(eq_Tl_Delta_Rlllin)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 106,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left({\\Delta_{eTa}} T_{a}^{4} - {\\Delta_{eTa}} T_{w}^{4} + 4 \\, {\\left({P_{wa}} - {P_{was}}\\right)} T_{a}^{3}\\right)} {a_{sh}} c_{E} \\epsilon_{l} {\\sigma} - {\\Delta_{eTa}} R_{s} c_{E} + {\\left({P_{wa}} - {P_{was}}\\right)} c_{E} c_{H}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((Delta_eTa*T_a^4 - Delta_eTa*T_w^4 + 4*(P_wa - P_was)*T_a^3)*a_sh*c_E*epsilon_l*sigm - Delta_eTa*R_s*c_E + (P_wa - P_was)*c_E*c_H)/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}E_{l} = -\\frac{{\\left(M_{w} {P_{wa}} T_{w}^{4} + {\\left(3 \\, M_{w} {P_{wa}} - 4 \\, M_{w} {P_{wl}}\\right)} T_{a}^{4}\\right)} {a_{sh}} \\epsilon_{l} {g_{tw}} \\lambda_{E} {\\sigma} + {\\left(M_{w} {P_{wa}} R_{s} + {\\left(M_{w} {P_{wa}} - M_{w} {P_{wl}}\\right)} T_{a} c_{H} + {\\left(M_{w} {P_{wa}}^{2} - M_{w} {P_{wa}} {P_{was}} + {\\left({\\Delta_{eTa}} M_{w} {P_{wa}} - {\\Delta_{eTa}} M_{w} {P_{wl}}\\right)} T_{a}\\right)} c_{E}\\right)} {g_{tw}} \\lambda_{E}}{{R_{mol}} T_{a}^{2} c_{H} + {\\left(3 \\, {R_{mol}} T_{a}^{5} + {R_{mol}} T_{a} T_{w}^{4}\\right)} {a_{sh}} \\epsilon_{l} {\\sigma} + {R_{mol}} R_{s} T_{a} + {\\left({\\Delta_{eTa}} {R_{mol}} T_{a}^{2} + {\\left({P_{wa}} - {P_{was}}\\right)} {R_{mol}} T_{a}\\right)} c_{E}}</script></html>"
      ],
      "text/plain": [
       "E_l == -((M_w*P_wa*T_w^4 + (3*M_w*P_wa - 4*M_w*P_wl)*T_a^4)*a_sh*epsilon_l*g_tw*lambda_E*sigm + (M_w*P_wa*R_s + (M_w*P_wa - M_w*P_wl)*T_a*c_H + (M_w*P_wa^2 - M_w*P_wa*P_was + (Delta_eTa*M_w*P_wa - Delta_eTa*M_w*P_wl)*T_a)*c_E)*g_tw*lambda_E)/(R_mol*T_a^2*c_H + (3*R_mol*T_a^5 + R_mol*T_a*T_w^4)*a_sh*epsilon_l*sigm + R_mol*R_s*T_a + (Delta_eTa*R_mol*T_a^2 + (P_wa - P_was)*R_mol*T_a)*c_E)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}H_{l} = -\\frac{{\\left(T_{a}^{4} - T_{w}^{4}\\right)} {a_{sh}} c_{H} \\epsilon_{l} {\\sigma} - {\\left({\\left({P_{wa}} - {P_{was}}\\right)} c_{E} + R_{s}\\right)} c_{H}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "H_l == -((T_a^4 - T_w^4)*a_sh*c_H*epsilon_l*sigm - ((P_wa - P_was)*c_E + R_s)*c_H)/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<html><script type=\"math/tex; mode=display\">\\newcommand{\\Bold}[1]{\\mathbf{#1}}{R_{ll}} = \\frac{{\\left(4 \\, R_{s} T_{a}^{3} {a_{sh}} + {\\left({\\Delta_{eTa}} T_{a}^{4} - {\\Delta_{eTa}} T_{w}^{4} + 4 \\, {\\left({P_{wa}} - {P_{was}}\\right)} T_{a}^{3}\\right)} {a_{sh}} c_{E} + {\\left(T_{a}^{4} - T_{w}^{4}\\right)} {a_{sh}} c_{H}\\right)} \\epsilon_{l} {\\sigma}}{4 \\, T_{a}^{3} {a_{sh}} \\epsilon_{l} {\\sigma} + {\\Delta_{eTa}} c_{E} + c_{H}}</script></html>"
      ],
      "text/plain": [
       "R_ll == (4*R_s*T_a^3*a_sh + (Delta_eTa*T_a^4 - Delta_eTa*T_w^4 + 4*(P_wa - P_was)*T_a^3)*a_sh*c_E + (T_a^4 - T_w^4)*a_sh*c_H)*epsilon_l*sigm/(4*T_a^3*a_sh*epsilon_l*sigm + Delta_eTa*c_E + c_H)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "eq_El_Tl.subs(eq_Tl_Delta_Rlllin).subs(eq_gammav_cE).simplify_full().show()\n",
    "eq_El.subs(eq_Elmol).subs(eq_Cwa, eq_Cwl).subs(eq_Tl_Delta_Rlllin).simplify_full().show()\n",
    "eq_Hl_cH.subs(eq_Tl_Delta_Rlllin).simplify_full().show()\n",
    "eq_Rll_tang.subs(eq_Tl_Delta_Rlllin).simplify_full().show()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 107,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "T_l = 308.321395271\n",
      "E_l = 180.542235053941\n",
      "H_l = 150.521099595469\n",
      "R_ll = 68.9366653505872\n",
      "g_bw = 0.0131620455576424\n",
      "g_tw = 0.00291849206962754\n",
      "Direct estimates: \n",
      "E_l = 177.353891811830\n",
      "H_l = 153.963492920038\n",
      "T_l = 308.443094724766\n",
      "R_ll = 68.6826152681332\n",
      "308.443094724766 == 308.443094724766\n",
      "308.443094724766 == 308.443094724766\n",
      "308.443094724766 == 307.807922524751\n",
      "400 == 400.000000000001\n",
      "Using T_l from eq_Tl_Delta_Rlllin.rhs() only to calculate R_ll: \n",
      "T_l = 308.443094724766\n",
      "R_ll = 70.5556017512527\n",
      "E_l = 176.784812127414\n",
      "H_l = 152.659586121333\n",
      "400 == 400.000000000000\n",
      "Penman-stomata: \n",
      "E_l = 198.222104889662\n",
      "H_l = 201.777895110338\n",
      "T_l = 310.133484539870\n",
      "400 == 400.000000000000\n",
      "PM-equation: \n",
      "E_l = 241.448619283973\n",
      "H_l = 158.551380716027\n",
      "400 == 400.000000000000\n",
      "MU-equation: \n",
      "E_l = 156.668183937778\n",
      "H_l = 243.331816062222\n",
      "400 == 400.000000000000\n",
      "Corrected MU-equation: \n",
      "E_l = 195.741933442269\n",
      "H_l = 204.258066557731\n",
      "400 == 400.000000000000\n"
     ]
    }
   ],
   "source": [
    "# Fig. 8 in Ball et al. 1988\n",
    "vdict = cdict.copy()\n",
    "vdict[a_s] = 1\n",
    "vdict[L_l] = 0.07\n",
    "vdict[P_a] = 101325\n",
    "vdict[P_wa] = 20/1000*101325\n",
    "vdict[R_s] = 400\n",
    "vdict[Re_c] = 3000\n",
    "vdict[T_a] = 273+30\n",
    "vdict[T_w] = vdict[T_a]\n",
    "vdict[g_sw] = 0.15/40\n",
    "#vdict[g_sv] = 1e-6\n",
    "\n",
    "vdict[v_w] = 1.\n",
    "resdict = fun_SS(vdict)\n",
    "for name1 in [T_l, E_l, H_l, R_ll, g_bw, g_tw]:\n",
    "    print str(name1)+' = ' + str(resdict[name1])\n",
    "\n",
    "vdict[P_was] = eq_Pwl.rhs()(T_l = T_a).subs(vdict) \n",
    "vdict[Delta_eTa] = eq_Deltaeta_T.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[nu_a] = eq_nua.rhs().subs(vdict)\n",
    "vdict[Re] = eq_Re.rhs().subs(vdict)\n",
    "vdict[Nu] = eq_Nu_forced_all.rhs().subs(vdict)\n",
    "vdict[h_c] = eq_hc.rhs().subs(vdict) \n",
    "\n",
    "vdict[P_N2] = eq_PN2.rhs().subs(vdict)\n",
    "vdict[P_O2] = eq_PO2.rhs().subs(vdict)\n",
    "vdict[alpha_a] = eq_alphaa.rhs().subs(vdict)\n",
    "vdict[k_a] = eq_ka.rhs().subs(vdict)\n",
    "vdict[D_va] = eq_Dva.rhs().subs(vdict)\n",
    "vdict[Le] = eq_Le.rhs().subs(vdict)\n",
    "vdict[rho_a] = eq_rhoa_Pwa_Ta.rhs().subs(vdict) \n",
    "vdict[g_bw] = eq_gbw_hc.rhs().subs(vdict)\n",
    "vdict[g_tw] = eq_gtw.rhs().subs(vdict)\n",
    "vdict[g_twmol] = eq_gtwmol_gtw_iso.rhs().subs(vdict)\n",
    "\n",
    "\n",
    "print 'Direct estimates: '\n",
    "namesdict = [E_l, H_l, T_l, R_ll]\n",
    "vdict[E_l] = eq_El_Delta_Rlllin.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[H_l] = eq_Hl_Delta_Rlllin.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[T_l] = eq_Tl_Delta_Rlllin.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[R_ll] = eq_Rll_tang.rhs().subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Tl_Delta.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta1.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Tl_Delta2.subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'Using T_l from eq_Tl_Delta_Rlllin.rhs() only to calculate R_ll: '\n",
    "namesdict = [T_l, R_ll, E_l, H_l]\n",
    "vdict[R_ll] = 0\n",
    "vdict[T_l] = eq_Tl_Delta_Rlllin.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[R_ll] = eq_Rll.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "vdict[H_l] = eq_Hl_Delta.rhs().subs(eq_ce_conv, eq_ch_hc).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "vdict[R_ll] = 0\n",
    "print 'Penman-stomata: '\n",
    "namesdict = [E_l, H_l, T_l]\n",
    "vdict[S] = eq_S_gbw_gsw.rhs().subs(vdict)\n",
    "vdict[f_u] = eq_fu_gbw.rhs().subs(vdict)\n",
    "vdict[gamma_v] = eq_gammav_as.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_P52.rhs().subs(vdict)\n",
    "vdict[H_l] = eq_Hl_P52.rhs().subs(vdict)\n",
    "vdict[T_l] = eq_Tl_P52.rhs().subs(vdict)\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'PM-equation: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[r_s] = 1/vdict[g_sw]\n",
    "vdict[r_a] = eq_ra_hc.rhs().subs(vdict)\n",
    "vdict[gamma_v] = eq_gammav_MU.rhs().subs(vdict)\n",
    "vdict[epsilon] = eq_epsilon.rhs().subs(vdict)\n",
    "vdict[E_l] = eq_El_PM2.rhs().subs(vdict)\n",
    "vdict[H_l] = (R_s - R_ll - E_l).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'MU-equation: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[n_MU] = (a_sh/a_s).subs(vdict)\n",
    "vdict[E_l] = eq_El_MU2.rhs().subs(vdict)\n",
    "vdict[H_l] = (R_s - R_ll - E_l).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)\n",
    "\n",
    "print 'Corrected MU-equation: '\n",
    "namesdict = [E_l, H_l]\n",
    "vdict[E_l] = eq_El_MU_corr.rhs().subs(vdict)\n",
    "vdict[H_l] = (R_s - R_ll - E_l).subs(vdict)\n",
    "\n",
    "for name1 in namesdict:\n",
    "    print str(name1)+' = ' + str(vdict[name1])\n",
    "    \n",
    "print eq_Rs_enbal.subs(vdict)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<p><span style=\"color: #ff0000;\">The use of the linearised R_ll improves accurcay significantly compared to eq_Tl_Delta!</span></p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 108,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "save_session('temp/E_PM_eqs')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Table of symbols"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 109,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<div class=\"notruncate\">\n",
       "<table  class=\"table_form\">\n",
       "<tbody>\n",
       "<tr>\n",
       "<th>Variable</th>\n",
       "<th>Description (value)</th>\n",
       "<th>Units</th>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">a_{s}</script></td>\n",
       "<td>Fraction of one-sided leaf area covered by stomata (1 if stomata are on one side only, 2 if they are on both sides)</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{a_{sh}}</script></td>\n",
       "<td>Fraction of projected area exchanging sensible heat with the air (2)</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">\\alpha_{a}</script></td>\n",
       "<td>Thermal diffusivity of dry air</td>\n",
       "<td> m<script type=\"math/tex\">^{2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{\\beta_B}</script></td>\n",
       "<td>Bowen ratio (sensible/latent heat flux)</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">c_{E}</script></td>\n",
       "<td>Latent heat transfer coefficient</td>\n",
       "<td>J  Pa<script type=\"math/tex\">^{-1}</script>  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">c_{H}</script></td>\n",
       "<td>Sensible heat transfer coefficient</td>\n",
       "<td>J  K<script type=\"math/tex\">^{-1}</script>  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{c_{pa}}</script></td>\n",
       "<td>Specific heat of dry air (1010) </td>\n",
       "<td>J  K<script type=\"math/tex\">^{-1}</script>  kg<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{C_{wa}}</script></td>\n",
       "<td>Concentration of water in the free air </td>\n",
       "<td>mol  m<script type=\"math/tex\">^{-3}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{C_{wl}}</script></td>\n",
       "<td>Concentration of water in the leaf air space </td>\n",
       "<td>mol  m<script type=\"math/tex\">^{-3}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{D_{va}}</script></td>\n",
       "<td>Binary diffusion coefficient of water vapour in air</td>\n",
       "<td> m<script type=\"math/tex\">^{2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{\\Delta_{eTa}}</script></td>\n",
       "<td>Slope of saturation vapour pressure at air temperature</td>\n",
       "<td>Pa  K<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">E_{l}</script></td>\n",
       "<td>Latent heat flux from leaf</td>\n",
       "<td>J  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{E_{l,mol}}</script></td>\n",
       "<td>Transpiration rate in molar units</td>\n",
       "<td>mol  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">E_{w}</script></td>\n",
       "<td>Latent heat flux from a wet surface</td>\n",
       "<td>J  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">\\epsilon</script></td>\n",
       "<td>Water to air molecular weight ratio (0.622)</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">\\epsilon_{l}</script></td>\n",
       "<td>Longwave emmissivity of the leaf surface (1.0)</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">f_{u}</script></td>\n",
       "<td>Wind function in Penman approach, f(u) adapted to energetic units</td>\n",
       "<td>J  Pa<script type=\"math/tex\">^{-1}</script>  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">g</script></td>\n",
       "<td>Gravitational acceleration (9.81)</td>\n",
       "<td>m  s<script type=\"math/tex\">^{-2}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{g_{bw}}</script></td>\n",
       "<td>Boundary layer conductance to water vapour </td>\n",
       "<td>m  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{g_{bw,mol}}</script></td>\n",
       "<td>Boundary layer conductance to water vapour </td>\n",
       "<td>mol  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{g_{sw}}</script></td>\n",
       "<td>Stomatal conductance to water vapour</td>\n",
       "<td>m  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{g_{sw,mol}}</script></td>\n",
       "<td>Stomatal conductance to water vapour</td>\n",
       "<td>mol  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{g_{tw}}</script></td>\n",
       "<td>Total leaf conductance to water vapour</td>\n",
       "<td>m  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{g_{tw,mol}}</script></td>\n",
       "<td>Total leaf layer conductance to water vapour</td>\n",
       "<td>mol  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">\\gamma_{v}</script></td>\n",
       "<td>Psychrometric constant</td>\n",
       "<td>Pa  K<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">h_{c}</script></td>\n",
       "<td>Average 1-sided convective transfer coefficient</td>\n",
       "<td>J  K<script type=\"math/tex\">^{-1}</script>  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">H_{l}</script></td>\n",
       "<td>Sensible heat flux from leaf</td>\n",
       "<td>J  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">k_{a}</script></td>\n",
       "<td>Thermal conductivity of dry air</td>\n",
       "<td>J  K<script type=\"math/tex\">^{-1}</script>  m<script type=\"math/tex\">^{-1}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">L_{l}</script></td>\n",
       "<td>Characteristic length scale for convection (size of leaf)</td>\n",
       "<td>m </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">\\lambda_{E}</script></td>\n",
       "<td>Latent heat of evaporation (2.45e6)</td>\n",
       "<td>J  kg<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">M_{N_{2}}</script></td>\n",
       "<td>Molar mass of nitrogen (0.028)</td>\n",
       "<td>kg  mol<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">M_{O_{2}}</script></td>\n",
       "<td>Molar mass of oxygen (0.032)</td>\n",
       "<td>kg  mol<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">M_{w}</script></td>\n",
       "<td>Molar mass of water (0.018)</td>\n",
       "<td>kg  mol<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{N_{Gr_L}}</script></td>\n",
       "<td>Grashof number</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{N_{Le}}</script></td>\n",
       "<td>Lewis number</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">n_{\\mathit{MU}}</script></td>\n",
       "<td>n=2 for hypostomatous, n=1 for amphistomatous leaves</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{N_{Nu_L}}</script></td>\n",
       "<td>Nusselt number</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{N_{Re_c}}</script></td>\n",
       "<td>Critical Reynolds number for the onset of turbulence</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{N_{Re_L}}</script></td>\n",
       "<td>Reynolds number</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{N_{Sh_L}}</script></td>\n",
       "<td>Sherwood number</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">\\nu_{a}</script></td>\n",
       "<td>Kinematic viscosity of dry air</td>\n",
       "<td> m<script type=\"math/tex\">^{2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">P_{a}</script></td>\n",
       "<td>Air pressure</td>\n",
       "<td>Pa </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{P_{N2}}</script></td>\n",
       "<td>Partial pressure of nitrogen in the atmosphere</td>\n",
       "<td>Pa </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{P_{O2}}</script></td>\n",
       "<td>Partial pressure of oxygen in the atmosphere</td>\n",
       "<td>Pa </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{P_{wa}}</script></td>\n",
       "<td>Vapour pressure in the atmosphere</td>\n",
       "<td>Pa </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{P_{was}}</script></td>\n",
       "<td>Saturation vapour pressure at air temperature</td>\n",
       "<td>Pa </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{P_{wl}}</script></td>\n",
       "<td>Vapour pressure inside the leaf</td>\n",
       "<td>Pa </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{N_{Pr}}</script></td>\n",
       "<td>Prandtl number (0.71)</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">r_{a}</script></td>\n",
       "<td>One-sided boundary layer resistance to heat transfer (<script type=\"math/tex\">r_H</script> in \\citet[][P. 231]{monteith_principles_2013})</td>\n",
       "<td>s  m<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{r_{bw}}</script></td>\n",
       "<td>Boundary layer resistance to water vapour, inverse of <script type=\"math/tex\">g_{bw}</script></td>\n",
       "<td>s  m<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{R_{ll}}</script></td>\n",
       "<td>Longwave radiation away from leaf</td>\n",
       "<td>J  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{R_{mol}}</script></td>\n",
       "<td>Molar gas constant (8.314472)</td>\n",
       "<td>J  K<script type=\"math/tex\">^{-1}</script>  mol<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">R_{s}</script></td>\n",
       "<td>Solar shortwave flux</td>\n",
       "<td>J  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">r_{s}</script></td>\n",
       "<td>Stomatal resistance to water vapour \\citep[][P. 231]{monteith_principles_2013}</td>\n",
       "<td>s  m<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{r_{sw}}</script></td>\n",
       "<td>Stomatal resistance to water vapour, inverse of <script type=\"math/tex\">g_{sw}</script></td>\n",
       "<td>s  m<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">{r_{tw}}</script></td>\n",
       "<td>Total leaf resistance to water vapour, <script type=\"math/tex\">r_{bv} + r_{sv}</script></td>\n",
       "<td>s  m<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{r_{v}}</script></td>\n",
       "<td>Leaf BL resistance to water vapour, \\citep[][Eq. 13.16]{monteith_principles_2013}</td>\n",
       "<td>s  m<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">\\rho_{a}</script></td>\n",
       "<td>Density of dry air</td>\n",
       "<td>kg  m<script type=\"math/tex\">^{-3}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">\\rho_{\\mathit{al}}</script></td>\n",
       "<td>Density of air at the leaf surface</td>\n",
       "<td>kg  m<script type=\"math/tex\">^{-3}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">S</script></td>\n",
       "<td>Factor representing stomatal resistance in \\citet{penman_physical_1952}</td>\n",
       "<td>1 </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">{\\sigma}</script></td>\n",
       "<td>Stefan-Boltzmann constant (5.67e-8)</td>\n",
       "<td>J  K<script type=\"math/tex\">^{-4}</script>  m<script type=\"math/tex\">^{-2}</script>  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">T_{a}</script></td>\n",
       "<td>Air temperature</td>\n",
       "<td>K </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">T_{l}</script></td>\n",
       "<td>Leaf temperature</td>\n",
       "<td>K </td>\n",
       "</tr>\n",
       "<tr class =\"row-b\">\n",
       "<td><script type=\"math/tex\">T_{w}</script></td>\n",
       "<td>Radiative temperature of objects surrounding the leaf</td>\n",
       "<td>K </td>\n",
       "</tr>\n",
       "<tr class =\"row-a\">\n",
       "<td><script type=\"math/tex\">v_{w}</script></td>\n",
       "<td>Wind velocity</td>\n",
       "<td>m  s<script type=\"math/tex\">^{-1}</script> </td>\n",
       "</tr>\n",
       "</tbody>\n",
       "</table>\n",
       "</div>"
      ],
      "text/plain": [
       "  Variable    Description (value)                                                                                                   Units\n",
       "+-----------+---------------------------------------------------------------------------------------------------------------------+-----------------------------------+\n",
       "  a_s         Fraction of one-sided leaf area covered by stomata (1 if stomata are on one side only, 2 if they are on both sides)   1\n",
       "  a_sh        Fraction of projected area exchanging sensible heat with the air (2)                                                  1\n",
       "  alpha_a     Thermal diffusivity of dry air                                                                                         m$^{2}$  s$^{-1}$\n",
       "  beta_B      Bowen ratio (sensible/latent heat flux)                                                                               1\n",
       "  c_E         Latent heat transfer coefficient                                                                                      J  Pa$^{-1}$  m$^{-2}$  s$^{-1}$\n",
       "  c_H         Sensible heat transfer coefficient                                                                                    J  K$^{-1}$  m$^{-2}$  s$^{-1}$\n",
       "  c_pa        Specific heat of dry air (1010)                                                                                       J  K$^{-1}$  kg$^{-1}$\n",
       "  C_wa        Concentration of water in the free air                                                                                mol  m$^{-3}$\n",
       "  C_wl        Concentration of water in the leaf air space                                                                          mol  m$^{-3}$\n",
       "  D_va        Binary diffusion coefficient of water vapour in air                                                                    m$^{2}$  s$^{-1}$\n",
       "  Delta_eTa   Slope of saturation vapour pressure at air temperature                                                                Pa  K$^{-1}$\n",
       "  E_l         Latent heat flux from leaf                                                                                            J  m$^{-2}$  s$^{-1}$\n",
       "  E_lmol      Transpiration rate in molar units                                                                                     mol  m$^{-2}$  s$^{-1}$\n",
       "  E_w         Latent heat flux from a wet surface                                                                                   J  m$^{-2}$  s$^{-1}$\n",
       "  epsilon     Water to air molecular weight ratio (0.622)                                                                           1\n",
       "  epsilon_l   Longwave emmissivity of the leaf surface (1.0)                                                                        1\n",
       "  f_u         Wind function in Penman approach, f(u) adapted to energetic units                                                     J  Pa$^{-1}$  m$^{-2}$  s$^{-1}$\n",
       "  g           Gravitational acceleration (9.81)                                                                                     m  s$^{-2}$\n",
       "  g_bw        Boundary layer conductance to water vapour                                                                            m  s$^{-1}$\n",
       "  g_bwmol     Boundary layer conductance to water vapour                                                                            mol  m$^{-2}$  s$^{-1}$\n",
       "  g_sw        Stomatal conductance to water vapour                                                                                  m  s$^{-1}$\n",
       "  g_swmol     Stomatal conductance to water vapour                                                                                  mol  m$^{-2}$  s$^{-1}$\n",
       "  g_tw        Total leaf conductance to water vapour                                                                                m  s$^{-1}$\n",
       "  g_twmol     Total leaf layer conductance to water vapour                                                                          mol  m$^{-2}$  s$^{-1}$\n",
       "  gamma_v     Psychrometric constant                                                                                                Pa  K$^{-1}$\n",
       "  h_c         Average 1-sided convective transfer coefficient                                                                       J  K$^{-1}$  m$^{-2}$  s$^{-1}$\n",
       "  H_l         Sensible heat flux from leaf                                                                                          J  m$^{-2}$  s$^{-1}$\n",
       "  k_a         Thermal conductivity of dry air                                                                                       J  K$^{-1}$  m$^{-1}$  s$^{-1}$\n",
       "  L_l         Characteristic length scale for convection (size of leaf)                                                             m\n",
       "  lambda_E    Latent heat of evaporation (2.45e6)                                                                                   J  kg$^{-1}$\n",
       "  M_N2        Molar mass of nitrogen (0.028)                                                                                        kg  mol$^{-1}$\n",
       "  M_O2        Molar mass of oxygen (0.032)                                                                                          kg  mol$^{-1}$\n",
       "  M_w         Molar mass of water (0.018)                                                                                           kg  mol$^{-1}$\n",
       "  Gr          Grashof number                                                                                                        1\n",
       "  Le          Lewis number                                                                                                          1\n",
       "  n_MU        n=2 for hypostomatous, n=1 for amphistomatous leaves                                                                  1\n",
       "  Nu          Nusselt number                                                                                                        1\n",
       "  Re_c        Critical Reynolds number for the onset of turbulence                                                                  1\n",
       "  Re          Reynolds number                                                                                                       1\n",
       "  Sh          Sherwood number                                                                                                       1\n",
       "  nu_a        Kinematic viscosity of dry air                                                                                         m$^{2}$  s$^{-1}$\n",
       "  P_a         Air pressure                                                                                                          Pa\n",
       "  P_N2        Partial pressure of nitrogen in the atmosphere                                                                        Pa\n",
       "  P_O2        Partial pressure of oxygen in the atmosphere                                                                          Pa\n",
       "  P_wa        Vapour pressure in the atmosphere                                                                                     Pa\n",
       "  P_was       Saturation vapour pressure at air temperature                                                                         Pa\n",
       "  P_wl        Vapour pressure inside the leaf                                                                                       Pa\n",
       "  Pr          Prandtl number (0.71)                                                                                                 1\n",
       "  r_a         One-sided boundary layer resistance to heat transfer ($r_H$ in \\citet[][P. 231]{monteith_principles_2013})            s  m$^{-1}$\n",
       "  r_bw        Boundary layer resistance to water vapour, inverse of $g_{bw}$                                                        s  m$^{-1}$\n",
       "  R_ll        Longwave radiation away from leaf                                                                                     J  m$^{-2}$  s$^{-1}$\n",
       "  R_mol       Molar gas constant (8.314472)                                                                                         J  K$^{-1}$  mol$^{-1}$\n",
       "  R_s         Solar shortwave flux                                                                                                  J  m$^{-2}$  s$^{-1}$\n",
       "  r_s         Stomatal resistance to water vapour \\citep[][P. 231]{monteith_principles_2013}                                        s  m$^{-1}$\n",
       "  r_sw        Stomatal resistance to water vapour, inverse of $g_{sw}$                                                              s  m$^{-1}$\n",
       "  r_tw        Total leaf resistance to water vapour, $r_{bv} + r_{sv}$                                                              s  m$^{-1}$\n",
       "  r_v         Leaf BL resistance to water vapour, \\citep[][Eq. 13.16]{monteith_principles_2013}                                     s  m$^{-1}$\n",
       "  rho_a       Density of dry air                                                                                                    kg  m$^{-3}$\n",
       "  rho_al      Density of air at the leaf surface                                                                                    kg  m$^{-3}$\n",
       "  S           Factor representing stomatal resistance in \\citet{penman_physical_1952}                                               1\n",
       "  sigm        Stefan-Boltzmann constant (5.67e-8)                                                                                   J  K$^{-4}$  m$^{-2}$  s$^{-1}$\n",
       "  T_a         Air temperature                                                                                                       K\n",
       "  T_l         Leaf temperature                                                                                                      K\n",
       "  T_w         Radiative temperature of objects surrounding the leaf                                                                 K\n",
       "  v_w         Wind velocity                                                                                                         m  s$^{-1}$"
      ]
     },
     "execution_count": 109,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Creating dictionary to substitute names of units with shorter forms\n",
    "var('m s J Pa K kg mol')\n",
    "subsdict = {meter: m, second: s, joule: J, pascal: Pa, kelvin: K, kilogram: kg, mole: mol}\n",
    "var('N_Re_L N_Re_c N_Le N_Nu_L N_Gr_L N_Sh_L')\n",
    "dict_varnew = {Re: N_Re_L, Re_c: N_Re_c, Le: N_Le, Nu: N_Nu_L, Gr: N_Gr_L, Sh: N_Sh_L}\n",
    "dict_varold = {v: k for k, v in dict_varnew.iteritems()}\n",
    "variables = sorted([str(variable.subs(dict_varnew)) for variable in udict.keys()],key=str.lower)\n",
    "tableheader = [('Variable', 'Description (value)', 'Units')]\n",
    "tabledata = [('Variable', 'Description (value)', 'Units')]\n",
    "for variable1 in variables:\n",
    "    variable2 = eval(variable1).subs(dict_varold)\n",
    "    variable = str(variable2)\n",
    "    tabledata.append((eval(variable),docdict[eval(variable)],fun_units_formatted(variable)))\n",
    "\n",
    "table(tabledata, header_row=True)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "SageMath 7.3",
   "language": "",
   "name": "sagemath"
  },
  "language": "python",
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 2
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython2",
   "version": "2.7.10"
  },
  "nav_menu": {},
  "toc": {
   "navigate_menu": true,
   "number_sections": true,
   "sideBar": true,
   "threshold": 6,
   "toc_cell": false,
   "toc_section_display": "block",
   "toc_window_display": true
  },
  "toc_position": {
   "height": "1053px",
   "left": "0px",
   "right": "1932px",
   "top": "107px",
   "width": "212px"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 0
}