(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    149525,       3171]
NotebookOptionsPosition[    145654,       3104]
NotebookOutlinePosition[    146046,       3120]
CellTagsIndexPosition[    146003,       3117]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Cournot model exhibits", "Title",
 CellChangeTimes->{{3.847716964349864*^9, 3.847716976148056*^9}, {
  3.8477314817458067`*^9, 
  3.847731492426675*^9}},ExpressionUUID->"73b3183a-8161-4d3a-85b2-\
bfcb1798f6e8"],

Cell["\<\
Backup for \[OpenCurlyDoubleQuote]Peltzman Revisited: Quantifying 21st \
Century Opportunity Costs of FDA Regulation\[CloseCurlyDoubleQuote]\
\>", "Subtitle",
 CellChangeTimes->{{3.84771699074051*^9, 
  3.84771701405781*^9}},ExpressionUUID->"efb36016-086a-44c9-8e09-\
7baf012b6664"],

Cell[CellGroupData[{

Cell["Formatting functions", "Subsection",
 CellChangeTimes->{{3.847731381347189*^9, 
  3.847731385203084*^9}},ExpressionUUID->"572046e9-3e81-41d5-887f-\
fa5514a217d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f14", "[", "expr_", "]"}], ":=", 
  RowBox[{"Style", "[", 
   RowBox[{"expr", ",", 
    RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.704380613159212*^9, 3.704380629508421*^9}, {
  3.797624203594326*^9, 3.7976242036732893`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"6f768c44-0424-46b2-99f0-e6435ddff2dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tr14", "[", "expr_", "]"}], ":=", 
  RowBox[{"Style", "[", 
   RowBox[{
    RowBox[{"f14", "@", "expr"}], ",", "Black", ",", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705999619316882*^9, 3.7059996512583323`*^9}, {
  3.7060075558929567`*^9, 3.706007556339664*^9}, {3.707124799940474*^9, 
  3.707124800873891*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"1c5cb003-51db-47a7-a854-f60993495a38"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tr16", "[", "expr_", "]"}], ":=", 
  RowBox[{"Style", "[", 
   RowBox[{"expr", ",", 
    RowBox[{"FontSize", "\[Rule]", "20"}], ",", "Black", ",", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.797624219319482*^9, 3.7976242254330063`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"93d69825-1d37-4c6a-9ff9-ad86b8ee4037"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tr18", "[", "expr_", "]"}], ":=", 
  RowBox[{"Style", "[", 
   RowBox[{"expr", ",", 
    RowBox[{"FontSize", "\[Rule]", "22"}], ",", "Black", ",", 
    RowBox[{"FontWeight", "\[Rule]", "Bold"}], ",", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705999619316882*^9, 3.7059996512583323`*^9}, {
  3.7060075558929567`*^9, 3.706007556339664*^9}, {3.707124799940474*^9, 
  3.707124800873891*^9}, {3.797623933026366*^9, 3.797623940336816*^9}, {
  3.7976240261209803`*^9, 3.7976240338213263`*^9}, {3.7976242107400618`*^9, 
  3.797624210904665*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"e6b9b21b-9e68-4541-a2ed-f892fd4bd534"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plopts", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicksStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}], ",", 
        "14"}], "]"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824569098744131*^9, 3.824569105974112*^9}, {
  3.824569489818932*^9, 3.824569490616582*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"451680c3-28f3-4c28-b820-cccf13e3cf5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 1", "Subsection",
 CellChangeTimes->{{3.847731376592326*^9, 
  3.8477313778351707`*^9}},ExpressionUUID->"a23e4af7-f693-4fa0-91c5-\
2bf1f286e2ba"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], "-", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["n1", "2"], "-", "1"}], "2"], 
      FractionBox["1", 
       RowBox[{"1", "+", 
        SuperscriptBox["n1", "2"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"n1", "-", "1"}], "n1"]}]], " ", 
         SuperscriptBox["n1", "2"], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"T", " ", "\[Rho]"}]], "-", "1"}], ")"}]}]}]]}]}], "/.", 
    RowBox[{"\[Rho]", "->", 
     RowBox[{"tterm", "/", "T"}]}]}], "//", "Simplify"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"%", "==", 
       FractionBox["1", "#"]}], "&"}], "/@", 
     RowBox[{"Range", "[", 
      RowBox[{"3", ",", "6"}], "]"}]}], "//", "Evaluate"}], ",", 
   RowBox[{"{", 
    RowBox[{"n1", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"tterm", ",", "0.3", ",", "0.7"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ContourStyle", "\[Rule]", 
    RowBox[{"Thickness", "@", ".005"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"tr14", "[", 
          FractionBox["1", "#"], "]"}], "&"}], "/@", 
        RowBox[{"Range", "[", 
         RowBox[{"3", ",", "6"}], "]"}]}], ")"}], ",", 
      RowBox[{"{", 
       RowBox[{".7", ",", ".8"}], "}"}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{"tr14", "/@", 
      RowBox[{"{", 
       RowBox[{"\"\<No. of manufacturers\>\"", ",", "\"\<\[Rho]T\>\""}], 
       "}"}]}], ")"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
   RowBox[{"Evaluate", "@", "plopts"}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "@", "10"}], ",", "Automatic"}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{
    "tr18", "@", 
     "\"\<Figure 1.  Level curves of the innovator's share of \
surplus\\n\>\""}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8477313440952272`*^9, 3.847731345516396*^9}, 
   3.84773143177258*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"2d45b05f-16b8-4bf9-951d-3522705055e9"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9lwk0lO0XwMc6dmPfd1IpfxIidS/xRRGRQiXt+b5SttJGIqXlS7RRJFIq
RYmirKWylGQGs2AWo9L6ScqM5S/xPmfOmXPnvGfO87z33t/vPkYbdvpuFiWR
SKdESKTf36vvvc8fzRHBLROrF3ZvOrJrWooIJhybMzvBrRciPhyzlooSwWsG
vmPOGr3gwelwiw4WQfV1/6mt+48PYntFP+f6iuDRNJS6y+XDg/NjXAaKYJdb
svzGWj7cFdt19LCTCIYxS3cwS/lQdiCt6utcEazrP+8YcYcPXTPKBPd0RfDm
fouy8Hg+FLSat9Rpi+DzVQfqVh3gA2liiWDGvY6RO158SNsmOz1PQEKWenfL
Cxc+5B3w8Lcfj/WpznpUZz6saDixtWSIhCWfFtWXIB9mfw/6WNRJwt0+5Ggf
Mh/se1wLxupIqNB085Buew88vRW8P7CGhK+bfq8emLms3p3+mIQn1m6YUVjd
A7HD1/Ks8kho5pFq6pHaA2lXb9HJqSS8ZPHD2/efHggYaYl4HkvC4OjZvk3Y
Axon5niF7iDhxHb0euDzHsPv5cEkJMdvfhI6xoOdDda397qQUGTzoyK5Gh6k
OJkW/oUkTHTMT3DM50FDnrur+iwSXjZXct6YxoNp0vE1XyVJqHunu3inMw8O
81cfuitBwrk2vxcPLrg8cbEcGIPjC46uAnMevLwcpr/04hjEazo3DdRwQXxm
o/XVC2PAs6jkjn/gSqb+6+gz47Fr257Rci5MpGXHGHg2kRsvp3GhfWDnZ8l5
Y5C7Vsa5z4sLXjM/56Y4jMHv05t6cCEvybjkh9UYqH8uU6pcxIXo6JJHQT2j
YDLX7YcvmwPI93PpZY6Cy+/jUzlwh994ftHbURCIb+5d+pwDxzyGj7w4MwrX
nokW5kRwwNyKbG14cRT61X4XFAfIjzueNkWNAiPrac0Pdw6MNQSOuuMohJwT
baGLc6DZOK29dPYoXFXoy1boY4P6Hr7PSc1ROJ3Ds3ncyIZMYzM64+sITK+q
evLrPBs2KJc+HBCMwET6o8fj4wc2HKwYAZPoBa8vLWND+NYnzJjsEbCesfvt
2HQ2uPPuupITRybrjg2W+q2zLm0cgUzh6sWWud2Qv30JXd93BG787c3tiu4G
q4MCx8/rRyDkdzuodYP7iaTvbJkRYOzhpATe7IIkx1P3X4qPwF/lLp9Pp3fB
h7nb3hR3DUPV72xYdMHE62cOw77+k2VHjLuA/12H6l0xDLLzLVXsnnRCcoFB
X2T5MFxxJt8aLeqEZypm6R+ahuFPvXeCxNv7Z3cfGIaLhbEv7nay4P55vdbw
yGGQfCob4lPOglHfKK3slcNwsO53Q7Fgb3Z50n6nYfA7dUo4NsoEl1W29PWz
h6FV+rPhq6dM0D0tTGyYPwysPxsDsUdp3qtHhPCycmzxTEMmPM5J8sb3Qgh6
tsUt6hUDZPvyb+a/FcL83+WbwID1Bj+vKFcJwaMxepGlMwM66MfOSV8Tgn7g
lulu7XQw/0aOC78rhIz034sOHRfqbbLihVBDTTsst4EOlzPp6uUhQriuJ2oO
nA6QzArzme0rhKHjhb+OF3ZApsPXFoGrEBj7pS/WHe6Ak6OyS5fpC6E+f1f2
+o/t8M2O0lxtKoSA3/ioa4fcTANPM2khqN9OVw3KbQdT15iSWpYAjJA0ePtH
G2wyalZXoQng4cRx28A9tTxW+7UAzDyMjzY8bYPnGkczfUoF8IePbdDiIcdX
uSwAiRCFE3qkNvDTejmj9oIA/vCQBkoSh7VkzgjgX5d3I+d7aGCZPPSUdUQA
f/hHg/oNLOnsvQJgVpg6DybS4OXawyuD9gjgD+9oUBdwduv2KAHcj/8pcT2K
BtykyJSc0PH9hgV1ZSymwdvKZs+ebYLJ/NMg8djKn+wtApjVV9p03IkGhySD
Y7hBAlg9l/dujwwNjK5VZuwbj6MnGoAG0qpOjsWBAqgRU/sYLE6D4YV2c/U8
BTCBvybqZJ8L4OuhsZiiaiq8u34x2gQEsO5idiTlLBWGQrtSni8UwMRjqVTY
+Oysz4bx+NTmJXHrUsbjlFfcJ9YCmHj9q6jQ4XmhTHyaACIKpNcfMqHCy6rQ
45WmAvjDRypkzYxPDDYRwEX3eSXH1akQ3t98oFFj/DwTuGqF1F1rcpXkBSBs
GTvx/n4rdCRNK+TJCOAPL1uht7wwKVlKAEOUFQsqL7fCKbtMdfLo0GT9tsL2
CM9uj4EhKDAIEfNwaQWS/I582/+GYAKfNq1wwqHBjZ6nRvhv41fnLSVmaljX
tiNqeGHvZN5U8ePzyBnh2r2wICnxx8KDqsi7FTrMkOiFSK8DnbHuqoQPF/cV
OdgyVXAlLfnxrgb+5D5UMOC7iunMbD7EiRc+TAYVPLmY2157kg9KOwNvGuqq
EL4LSM131r+ljOmMUDmWJx+WTCREGWMDD3aXKvKhddPVslptZaR/YUS9kuFD
xc1TW1JVlQm/ZVYyN3b2KeFZyoLuxv4eWJpwxXbojBJarDj4Ztvznj9cO6SE
MR5r7oRU9ICHQ1BkjLUS4be7Jo6rEhSVMEFrkeezuJ7JvqDgzpM/wkQ29oD1
sl8FzJcU/JPfHggyeVSdnkpBY8ePDdPse0Ct+tNJnW0Uwn8T78+OgvtG8mPC
xv3XtzWQ8kybgpZtHK3Hn3hwcJO2wt8PFXF3Fj3Wv5YHt3wtA05tVyR8ODam
Nst/uSKKmZPWu2XzYGKbpoqY7ZYT4XKGB2nczNPOexXw+Y2Y7zeW82BFXTZF
yVaB8GNkRNJedr48un+eYVsgwoPkuEcyfsHyqLwx6UM4lwu3/R8//i4pj1N+
LBW8jW/hyWFcDy68U8idrHM5rByWfxN+igtft840WHlQDie2l8CFFjHZ5WPm
43FSabf0Gi68OkOTVSPJ4ZQvL99vina+IYu0Tdaaawy4oN1WtdgxUhbH3lw8
b0bmArXpxQp7PVmc8iVb1HHB63oZdPr6kelUxIEtauF2T5bIYGBxtsO67Rz4
pUSS8porg1O+NPdZ0yc0lUH5R+K1hwM4k96SwYHpd5mNrhyoCmz+tvqENNL2
b1JrHGUDp61eMy9CGqf8uebaaZEtFtIoty6a7/KMDRbu605TBqXQ/UWo37Jr
bGjTF2rlVkjhlD/3VvuY2IZK4bcg37Tl7myQ48yVvzJXCqVTsvetMWHDgjtF
3gEiUjjlz5zCmltfuGTsl9/9r29bN5h9/SIXdYeMRb9+A717cv4gI6Pt2b1K
6254nSG5Zcc6MsbHaL6S0OmGk8WXs/zXkHHKr7U39ggPriLjES2FmzIK3VBz
PDcs9Z0kamYO3j67ugua6uIK19MkccqvqQHWVp8uS2Le4cOK1zmdEK7/a+3w
LkmsnpYuUXSpE3LJRksKl0nilE8/Zd95fnpMAv0THiX8oLOg4supfc+/SKDC
kO/0gjIWbGOYKK+rl8Apn2rNa3e9eF4Cy4u0bRzUWHDUN3tIfaUEtg//rPJL
Z4LxB+bBUDcJnPLpMsqQxDNLCTx9y9ZPzYc56X9xXFZ1IX9B0bhPy5MeyjeI
46vP+hW0ZAbYGzqVtb8Uxym/OsnnDBc8FcfqO1bWdvsZkOkVem4wTBxHPZJX
z6ymQ9D2uI9bt4rjlF/9YhQVNBaL48L9D+OYm+iw6PGJJJ6qOJaGrog3HuyA
tgdkG9NBMZzya4XSDqfGRjGckds5e3BZB2SINWc2PxZDvYDeL1UWHWB8W2HG
yxtiOOVXNc0U2XfbxDCOk91isW7ct1qaqRVrxBAtchz+WdAOXMNkeaa9GE75
9Z9fAxEJOmJo9dXe52pKG7zhqNik/BJF8X7ZhZX/a4NCctYMCkcUp3z6k8oo
Fm0WxaTMyGnPa2jQ4h+1eu85UeyXfLEkypgGUcsjJRacEMUpvyVIqOaHJIhi
b83Iq0v9VIhvfsm9GyKKU77605eieOBM4vW1y6kgenWt9DlHUSyIz5q105gK
1OVer1QcRHHKT6IW88y87UQx8ZbNidPjflqSnaEdpCmK7mbPzqSVtYLZiZ+2
amqiOOWj1m05ejpyonhp34/GpNRWENl//dGbQRHss+qjxfi0goV4yEDeZxGc
8k+AcoXfhXwyEfP7mOoDj8hotiEo97tXK+y0DPPJMJJCyZjpgqWdrfBUMufd
g3VSxP4G+J5lTTlSqMP0jzE/QYXof1dckb8thY/71VL2n6dO+ksKH0T884//
dSoMJwVsapCSJt7XXZPDyVnO0phKmesvspQGXxh6qxjl0rjb9viM+g4aDLgJ
OVlvpYl8JA06lBUxpHGkL1Azd5RG8GbdtRz7NTPbQK/UbcwqTgbZ1ckxc++2
wfzYXuvtJTJE/s37j3T5ScqijK/36uJ57XA4wv/fzdNlMcxQNF9rTftkfmRx
7Ub++osH22Ho8Opo8kVZot6G3W9nfe+UxRAjt+oMiQ4osd10s0BTDifaw7GD
4PW2hUP5T/M7IKcl3Urzohx6z1u7cN+dDrhy1U/nboYcUe99M4unr7oqh2Sv
Jg/+gw7471ZJ2s8QeTQNX0bS86HD9oxd2842yRP9VBUpvpRjpYCG3q5fFn6j
w8lV+3qrOxRQ1dtAr3gbAzyffI4yICkS/ZqVpCMsl1FEn0suKztOMgh/DVp7
Dey8woAdh7TyrfoVcfHrLyMZpkzwTLllJzKHQvBiyp/2o6+DhiOZEG3q710U
TkEeXdfu/aPxeb0jQaH1HAX/zEtMwteDVbMl39iM8+pczpsnXyn4/td/ASs8
WEBN916fOEIh+CWWoJ9h4qqED/jukfNzWPA/w9AityglnF/U8tyExoIjd/wj
vd8pEXycvlWDeWlMCaMy5QZ013QS80n9DPmQq3Gd8GDzniTdM8r4ctXV3OKu
TgjUWlza/58ywWNeyItW6Rkq+N1q5PWjNV3EfHT2VQPvfVoXtKx1dEp5oYLy
HCFNrq0LNnyHgItmqgT/iyJUZOq3q+KFn/eeZC7pJuYzJ9pDN6WD3eBd+qrz
iaYa1jTkhWwu7waxf7D/yWk1wkczl8wz29Kohs0VoqxiZTaITPyujl3mTzMp
xmyg170OL05Ux1/Vqmc73NiwbM6PjMiFGoT/Yjx4V5NdNfCaum7srd1sODtR
cBqYc3VTO3UPG+72i6u7hWgg9yt9Ax5kQ+HKauMgWU1sHi5zE8ljg/9ivyUn
52vihP4K2TBtoiA0sdA6oSuzlg1fkxzz4zs00Z6VI1BvGfdrlxTbL0CL8HXQ
0NkdD25rYQE36pSkkA2PJvKthTviL+vMG78fHx111YsO18bjYi0XthhwID3I
YkZzojZaO0w7zjLmwNKJfOngIgu9eYsXcmCkfOMx+006eHlGS33U+H1711+J
3zmDOsR8sWt+9SyBuy5a9UdRzcbnj66JfOmizau9BS/DOaDZOjugpk4XLf1S
szfGckA6xXWXtY0eng04sLT3FAcevrAM9k7Wm+yf8f+byJcerlJKKH17hQM6
pJLHecb66N/O76+/w4Fo7YGFR1v0sTqV5nnhKQdEJ/JjgHrhnif96jnQsHta
5Ht1AxQ6pen/auTA2ycu2q7rDIj5SaT92sMRsiEG2kVO2/WeM1mfhsgXr8mm
f+GAYrDhhfeBhvjxmeGwjIADGQ5i2+4nGaJ7MW/dWjEupP1+vN4QL3phLJ/C
hf1z5v2bRDbCwy5bTF7qcsHDqL7q2AIjZG+KvM6Zxp2sXyPcsF9h8O3/uEA3
VGtacdwIHeamizXO5YLFmH5YqIgxMQ+K5/jNH1Iwxnhy49G4pVyYmLuVjdH0
QW4YxZMLConBr85pGOMinfPLPozHbQV/Gfx9zhh/JZ+6/CmEO1nvxiiXdaRA
YwsXfNvPb1zSZ4zXjTwqH+7gwoBGHm2vngnu+bG4ZE409w8PVpvg2nuXFM1j
uWDit0yodsMErfJc+cHHuGCkWT3290MTlFlQWf7vce4kz02xbPf68UsEF2iV
dcU+owqEn7IO4Gi2tCLa22qmvnBqJXjWc9cm+JF3K1SSNvl1Dyii2/6YN9at
rTBt5oj6UVsK4aspnj0pS/3yRZ8KWFOBs6IpqHHv6Idfm6lgZ9UcvfsyhfD1
FM/cN25tekSnwqK3vhZXflCQ7mxrXDRABZahonIPWYnwWV26gmTkdiXstQu8
syuMBvrZL1btPKCEEWHX6tixNMiuevxBYUiJ8Fnxh/tpmTLKOGbtYkcVayN4
9s3q9hkl3fF5JXrmOZsryhjkceqCQ2IbVH7waCJRVAif1di3lexyVMG2hJ8s
3lgbwbNj91R/Us3bQaPA6dlBlgrGCFkipbvboavXXbhshSrhM5K5y92dR1TR
cf7/TK++byd4tkPrXKqldAck28yxX2KrhlqVH8/n+HcAbd/7qniqGuEvneu3
Lot+UkNaWSWptqKD4NmC2h4fyfoOuOGd6NszzrPov9bayCrQ4adlGz37pjqG
SVY8GDKkE/zyaIlN9AujQ49PNz0mTAMdLgslFOLoUHwjz45RoEH4T60w9Eir
gybqL3cwj++gE/wKXeyx99sIHVrQlXxQVgsdqlYM7JnNAFCuXcGo1cLI2+ar
LSMYBK9Sj9y3cB+fX3dlg1IwTwsraz+NicYyIPtA1uGoAS3Cn64tlrrNNdoo
VT4rhFfPIPi1+p1MoU8fAxoCZpdQ83SQK/KN16jEhK3q71X26+vinPWqbcG2
TIJXd/Yzd0V6MkHrw/71qad18f7uXvdcfyaw6WVPtD/qEr41mmeY9TxWD8+E
aphdPMckePVonleW6zUmuF9JZly30Me6M/m3n1UzYWlagvRIhD56TaPMH2lh
ErzqZddRtL4zQaA0w91huwEGSd3/3iwzfj+g8zkPJA0xzuq7hOdsFsEnsQWB
TSwHFjC86BeEcw1RpkS4JAxZ8KH+kuKicEPC11lLTpYolBri4KtDrn0RLIJX
9hYPTOfsY8FHB1LZzQ+G2Hpsa7FEEgsCGgLX/M/BCI2D1r7ZN+73KV6lf539
4tsDFjiZfN1nU2mEH6d/q13dzIKaLpt9zFojHCxLM+h8wyL49Lg1szSojwXO
b4xj1N2MMbJ32/W0IRZsZfguTD9rjME2XoPaSp0En+aUeDhb6nSC7P0FlTmv
jPFfr3+Kwow6YTjMbi/T1YSYJ+iKpZuerTLBA/Yh1tKLOwleXfvypljKvRP+
FtzsrAgxwZgjK09t8OgE/8fi5G08E3xo+l9F7N+dBK/YnX9vKQzvhP8DKUCZ
1A==
      "], {{}, {}, 
       TagBox[
        TooltipBox[
         {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.005], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 
           51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
            68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
           84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
           100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112}]},
         
         RowBox[{
           RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
               RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], 
                  RowBox[{"1", "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    TagBox["tterm", HoldForm]]}], ")"}], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}]]}], ")"}]}], "\[Equal]", 
           
           FractionBox["1", "3"]}]],
        Annotation[#, 
         Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
           HoldForm[$CellContext`n1]^2 + 
           2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
             E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
         Rational[1, 3], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.880722, 0.611041, 0.142051], Thickness[0.005], 
          LineBox[{113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124,
            125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 
           138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 
           151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 
           164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 
           177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 
           190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 
           203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 
           216}]},
         RowBox[{
           RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
               RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], 
                  RowBox[{"1", "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    TagBox["tterm", HoldForm]]}], ")"}], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}]]}], ")"}]}], "\[Equal]", 
           
           FractionBox["1", "4"]}]],
        Annotation[#, 
         Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
           HoldForm[$CellContext`n1]^2 + 
           2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
             E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
         Rational[1, 4], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.560181, 0.691569, 0.194885], Thickness[0.005], 
          LineBox[CompressedData["
1:eJwNzkVCAgEAAMDFQrBQsQOxG7v7CT7Bowd9r2AjdnfrHOY+yY3t9a1QEASb
7JAmwy577HPAIUcck+WEHKeccc4Fl1xxzQ233HHPA4888cwLr7zxzgeffPHN
D7/8EUiGyCOfAgopIkwxEaKUUEoZ5VQQo5IqqolTQy111NNAI00000IrCdpI
0k4HnXTRTQ+99NHPAIMMMUyKEUYZY5wJJplimhlmmWOeBRZZYpkVVlnjH12n
Lvg=
           "]]},
         RowBox[{
           RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
               RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], 
                  RowBox[{"1", "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    TagBox["tterm", HoldForm]]}], ")"}], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}]]}], ")"}]}], "\[Equal]", 
           
           FractionBox["1", "5"]}]],
        Annotation[#, 
         Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
           HoldForm[$CellContext`n1]^2 + 
           2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
             E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
         Rational[1, 5], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.922526, 0.385626, 0.209179], Thickness[0.005], 
          LineBox[{323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 333, 334,
            335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 
           348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 
           361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 
           374, 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 
           387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 397}]},
         RowBox[{
           RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
               RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], 
                  RowBox[{"1", "+", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    TagBox["tterm", HoldForm]]}], ")"}], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}]]}], ")"}]}], "\[Equal]", 
           
           FractionBox["1", "6"]}]],
        Annotation[#, 
         Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
           HoldForm[$CellContext`n1]^2 + 
           2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
             E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
         Rational[1, 6], "Tooltip"]& ]}], {}}, InsetBox[
     TemplateBox[{
       StyleBox[
        StyleBox[
         FractionBox["1", "3"], FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox[
         FractionBox["1", "4"], FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox[
         FractionBox["1", "5"], FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox[
         FractionBox["1", "6"], FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.7, 0.8}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   AxesLabel->{None, None},
   AxesOrigin->{1., 0.3},
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
       StyleBox[
        StyleBox["\"\[Rho]T\"", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False],
        TraditionalForm], None}, {
      FormBox[
       StyleBox[
        StyleBox[
        "\"No. of manufacturers\"", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False],
        TraditionalForm], None}},
   FrameStyle->GrayLevel[0],
   FrameTicks->{{Automatic, Automatic}, {{{1, 
        FormBox["1", TraditionalForm]}, {2, 
        FormBox["2", TraditionalForm]}, {3, 
        FormBox["3", TraditionalForm]}, {4, 
        FormBox["4", TraditionalForm]}, {5, 
        FormBox["5", TraditionalForm]}, {6, 
        FormBox["6", TraditionalForm]}, {7, 
        FormBox["7", TraditionalForm]}, {8, 
        FormBox["8", TraditionalForm]}, {9, 
        FormBox["9", TraditionalForm]}, {10, 
        FormBox["10", TraditionalForm]}}, {{1, 
        FormBox["1", TraditionalForm]}, {2, 
        FormBox["2", TraditionalForm]}, {3, 
        FormBox["3", TraditionalForm]}, {4, 
        FormBox["4", TraditionalForm]}, {5, 
        FormBox["5", TraditionalForm]}, {6, 
        FormBox["6", TraditionalForm]}, {7, 
        FormBox["7", TraditionalForm]}, {8, 
        FormBox["8", TraditionalForm]}, {9, 
        FormBox["9", TraditionalForm]}, {10, 
        FormBox["10", TraditionalForm]}}}},
   FrameTicksStyle->Directive[
     GrayLevel[0], FontFamily -> "Times New Roman", 14],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->600,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "GridLinesInFront" -> True},
   PlotLabel->FormBox[
     StyleBox[
     "\"Figure 1.  Level curves of the innovator's share of surplus\\n\"", 
      FontSize -> 22, 
      GrayLevel[0], FontWeight -> Bold, FontFamily -> "Times New Roman", 
      StripOnInput -> False], TraditionalForm],
   PlotRange->{{1, 10}, {0.3, 0.7}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.02]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{
      GraphicsComplex[CompressedData["
1:eJw9lwk0lO0XwMc6dmPfd1IpfxIidS/xRRGRQiXt+b5SttJGIqXlS7RRJFIq
RYmirKWylGQGs2AWo9L6ScqM5S/xPmfOmXPnvGfO87z33t/vPkYbdvpuFiWR
SKdESKTf36vvvc8fzRHBLROrF3ZvOrJrWooIJhybMzvBrRciPhyzlooSwWsG
vmPOGr3gwelwiw4WQfV1/6mt+48PYntFP+f6iuDRNJS6y+XDg/NjXAaKYJdb
svzGWj7cFdt19LCTCIYxS3cwS/lQdiCt6utcEazrP+8YcYcPXTPKBPd0RfDm
fouy8Hg+FLSat9Rpi+DzVQfqVh3gA2liiWDGvY6RO158SNsmOz1PQEKWenfL
Cxc+5B3w8Lcfj/WpznpUZz6saDixtWSIhCWfFtWXIB9mfw/6WNRJwt0+5Ggf
Mh/se1wLxupIqNB085Buew88vRW8P7CGhK+bfq8emLms3p3+mIQn1m6YUVjd
A7HD1/Ks8kho5pFq6pHaA2lXb9HJqSS8ZPHD2/efHggYaYl4HkvC4OjZvk3Y
Axon5niF7iDhxHb0euDzHsPv5cEkJMdvfhI6xoOdDda397qQUGTzoyK5Gh6k
OJkW/oUkTHTMT3DM50FDnrur+iwSXjZXct6YxoNp0vE1XyVJqHunu3inMw8O
81cfuitBwrk2vxcPLrg8cbEcGIPjC46uAnMevLwcpr/04hjEazo3DdRwQXxm
o/XVC2PAs6jkjn/gSqb+6+gz47Fr257Rci5MpGXHGHg2kRsvp3GhfWDnZ8l5
Y5C7Vsa5z4sLXjM/56Y4jMHv05t6cCEvybjkh9UYqH8uU6pcxIXo6JJHQT2j
YDLX7YcvmwPI93PpZY6Cy+/jUzlwh994ftHbURCIb+5d+pwDxzyGj7w4MwrX
nokW5kRwwNyKbG14cRT61X4XFAfIjzueNkWNAiPrac0Pdw6MNQSOuuMohJwT
baGLc6DZOK29dPYoXFXoy1boY4P6Hr7PSc1ROJ3Ds3ncyIZMYzM64+sITK+q
evLrPBs2KJc+HBCMwET6o8fj4wc2HKwYAZPoBa8vLWND+NYnzJjsEbCesfvt
2HQ2uPPuupITRybrjg2W+q2zLm0cgUzh6sWWud2Qv30JXd93BG787c3tiu4G
q4MCx8/rRyDkdzuodYP7iaTvbJkRYOzhpATe7IIkx1P3X4qPwF/lLp9Pp3fB
h7nb3hR3DUPV72xYdMHE62cOw77+k2VHjLuA/12H6l0xDLLzLVXsnnRCcoFB
X2T5MFxxJt8aLeqEZypm6R+ahuFPvXeCxNv7Z3cfGIaLhbEv7nay4P55vdbw
yGGQfCob4lPOglHfKK3slcNwsO53Q7Fgb3Z50n6nYfA7dUo4NsoEl1W29PWz
h6FV+rPhq6dM0D0tTGyYPwysPxsDsUdp3qtHhPCycmzxTEMmPM5J8sb3Qgh6
tsUt6hUDZPvyb+a/FcL83+WbwID1Bj+vKFcJwaMxepGlMwM66MfOSV8Tgn7g
lulu7XQw/0aOC78rhIz034sOHRfqbbLihVBDTTsst4EOlzPp6uUhQriuJ2oO
nA6QzArzme0rhKHjhb+OF3ZApsPXFoGrEBj7pS/WHe6Ak6OyS5fpC6E+f1f2
+o/t8M2O0lxtKoSA3/ioa4fcTANPM2khqN9OVw3KbQdT15iSWpYAjJA0ePtH
G2wyalZXoQng4cRx28A9tTxW+7UAzDyMjzY8bYPnGkczfUoF8IePbdDiIcdX
uSwAiRCFE3qkNvDTejmj9oIA/vCQBkoSh7VkzgjgX5d3I+d7aGCZPPSUdUQA
f/hHg/oNLOnsvQJgVpg6DybS4OXawyuD9gjgD+9oUBdwduv2KAHcj/8pcT2K
BtykyJSc0PH9hgV1ZSymwdvKZs+ebYLJ/NMg8djKn+wtApjVV9p03IkGhySD
Y7hBAlg9l/dujwwNjK5VZuwbj6MnGoAG0qpOjsWBAqgRU/sYLE6D4YV2c/U8
BTCBvybqZJ8L4OuhsZiiaiq8u34x2gQEsO5idiTlLBWGQrtSni8UwMRjqVTY
+Oysz4bx+NTmJXHrUsbjlFfcJ9YCmHj9q6jQ4XmhTHyaACIKpNcfMqHCy6rQ
45WmAvjDRypkzYxPDDYRwEX3eSXH1akQ3t98oFFj/DwTuGqF1F1rcpXkBSBs
GTvx/n4rdCRNK+TJCOAPL1uht7wwKVlKAEOUFQsqL7fCKbtMdfLo0GT9tsL2
CM9uj4EhKDAIEfNwaQWS/I582/+GYAKfNq1wwqHBjZ6nRvhv41fnLSVmaljX
tiNqeGHvZN5U8ePzyBnh2r2wICnxx8KDqsi7FTrMkOiFSK8DnbHuqoQPF/cV
OdgyVXAlLfnxrgb+5D5UMOC7iunMbD7EiRc+TAYVPLmY2157kg9KOwNvGuqq
EL4LSM131r+ljOmMUDmWJx+WTCREGWMDD3aXKvKhddPVslptZaR/YUS9kuFD
xc1TW1JVlQm/ZVYyN3b2KeFZyoLuxv4eWJpwxXbojBJarDj4Ztvznj9cO6SE
MR5r7oRU9ICHQ1BkjLUS4be7Jo6rEhSVMEFrkeezuJ7JvqDgzpM/wkQ29oD1
sl8FzJcU/JPfHggyeVSdnkpBY8ePDdPse0Ct+tNJnW0Uwn8T78+OgvtG8mPC
xv3XtzWQ8kybgpZtHK3Hn3hwcJO2wt8PFXF3Fj3Wv5YHt3wtA05tVyR8ODam
Nst/uSKKmZPWu2XzYGKbpoqY7ZYT4XKGB2nczNPOexXw+Y2Y7zeW82BFXTZF
yVaB8GNkRNJedr48un+eYVsgwoPkuEcyfsHyqLwx6UM4lwu3/R8//i4pj1N+
LBW8jW/hyWFcDy68U8idrHM5rByWfxN+igtft840WHlQDie2l8CFFjHZ5WPm
43FSabf0Gi68OkOTVSPJ4ZQvL99vina+IYu0Tdaaawy4oN1WtdgxUhbH3lw8
b0bmArXpxQp7PVmc8iVb1HHB63oZdPr6kelUxIEtauF2T5bIYGBxtsO67Rz4
pUSS8porg1O+NPdZ0yc0lUH5R+K1hwM4k96SwYHpd5mNrhyoCmz+tvqENNL2
b1JrHGUDp61eMy9CGqf8uebaaZEtFtIoty6a7/KMDRbu605TBqXQ/UWo37Jr
bGjTF2rlVkjhlD/3VvuY2IZK4bcg37Tl7myQ48yVvzJXCqVTsvetMWHDgjtF
3gEiUjjlz5zCmltfuGTsl9/9r29bN5h9/SIXdYeMRb9+A717cv4gI6Pt2b1K
6254nSG5Zcc6MsbHaL6S0OmGk8WXs/zXkHHKr7U39ggPriLjES2FmzIK3VBz
PDcs9Z0kamYO3j67ugua6uIK19MkccqvqQHWVp8uS2Le4cOK1zmdEK7/a+3w
LkmsnpYuUXSpE3LJRksKl0nilE8/Zd95fnpMAv0THiX8oLOg4supfc+/SKDC
kO/0gjIWbGOYKK+rl8Apn2rNa3e9eF4Cy4u0bRzUWHDUN3tIfaUEtg//rPJL
Z4LxB+bBUDcJnPLpMsqQxDNLCTx9y9ZPzYc56X9xXFZ1IX9B0bhPy5MeyjeI
46vP+hW0ZAbYGzqVtb8Uxym/OsnnDBc8FcfqO1bWdvsZkOkVem4wTBxHPZJX
z6ymQ9D2uI9bt4rjlF/9YhQVNBaL48L9D+OYm+iw6PGJJJ6qOJaGrog3HuyA
tgdkG9NBMZzya4XSDqfGRjGckds5e3BZB2SINWc2PxZDvYDeL1UWHWB8W2HG
yxtiOOVXNc0U2XfbxDCOk91isW7ct1qaqRVrxBAtchz+WdAOXMNkeaa9GE75
9Z9fAxEJOmJo9dXe52pKG7zhqNik/BJF8X7ZhZX/a4NCctYMCkcUp3z6k8oo
Fm0WxaTMyGnPa2jQ4h+1eu85UeyXfLEkypgGUcsjJRacEMUpvyVIqOaHJIhi
b83Iq0v9VIhvfsm9GyKKU77605eieOBM4vW1y6kgenWt9DlHUSyIz5q105gK
1OVer1QcRHHKT6IW88y87UQx8ZbNidPjflqSnaEdpCmK7mbPzqSVtYLZiZ+2
amqiOOWj1m05ejpyonhp34/GpNRWENl//dGbQRHss+qjxfi0goV4yEDeZxGc
8k+AcoXfhXwyEfP7mOoDj8hotiEo97tXK+y0DPPJMJJCyZjpgqWdrfBUMufd
g3VSxP4G+J5lTTlSqMP0jzE/QYXof1dckb8thY/71VL2n6dO+ksKH0T884//
dSoMJwVsapCSJt7XXZPDyVnO0phKmesvspQGXxh6qxjl0rjb9viM+g4aDLgJ
OVlvpYl8JA06lBUxpHGkL1Azd5RG8GbdtRz7NTPbQK/UbcwqTgbZ1ckxc++2
wfzYXuvtJTJE/s37j3T5ScqijK/36uJ57XA4wv/fzdNlMcxQNF9rTftkfmRx
7Ub++osH22Ho8Opo8kVZot6G3W9nfe+UxRAjt+oMiQ4osd10s0BTDifaw7GD
4PW2hUP5T/M7IKcl3Urzohx6z1u7cN+dDrhy1U/nboYcUe99M4unr7oqh2Sv
Jg/+gw7471ZJ2s8QeTQNX0bS86HD9oxd2842yRP9VBUpvpRjpYCG3q5fFn6j
w8lV+3qrOxRQ1dtAr3gbAzyffI4yICkS/ZqVpCMsl1FEn0suKztOMgh/DVp7
Dey8woAdh7TyrfoVcfHrLyMZpkzwTLllJzKHQvBiyp/2o6+DhiOZEG3q710U
TkEeXdfu/aPxeb0jQaH1HAX/zEtMwteDVbMl39iM8+pczpsnXyn4/td/ASs8
WEBN916fOEIh+CWWoJ9h4qqED/jukfNzWPA/w9AityglnF/U8tyExoIjd/wj
vd8pEXycvlWDeWlMCaMy5QZ013QS80n9DPmQq3Gd8GDzniTdM8r4ctXV3OKu
TgjUWlza/58ywWNeyItW6Rkq+N1q5PWjNV3EfHT2VQPvfVoXtKx1dEp5oYLy
HCFNrq0LNnyHgItmqgT/iyJUZOq3q+KFn/eeZC7pJuYzJ9pDN6WD3eBd+qrz
iaYa1jTkhWwu7waxf7D/yWk1wkczl8wz29Kohs0VoqxiZTaITPyujl3mTzMp
xmyg170OL05Ux1/Vqmc73NiwbM6PjMiFGoT/Yjx4V5NdNfCaum7srd1sODtR
cBqYc3VTO3UPG+72i6u7hWgg9yt9Ax5kQ+HKauMgWU1sHi5zE8ljg/9ivyUn
52vihP4K2TBtoiA0sdA6oSuzlg1fkxzz4zs00Z6VI1BvGfdrlxTbL0CL8HXQ
0NkdD25rYQE36pSkkA2PJvKthTviL+vMG78fHx111YsO18bjYi0XthhwID3I
YkZzojZaO0w7zjLmwNKJfOngIgu9eYsXcmCkfOMx+006eHlGS33U+H1711+J
3zmDOsR8sWt+9SyBuy5a9UdRzcbnj66JfOmizau9BS/DOaDZOjugpk4XLf1S
szfGckA6xXWXtY0eng04sLT3FAcevrAM9k7Wm+yf8f+byJcerlJKKH17hQM6
pJLHecb66N/O76+/w4Fo7YGFR1v0sTqV5nnhKQdEJ/JjgHrhnif96jnQsHta
5Ht1AxQ6pen/auTA2ycu2q7rDIj5SaT92sMRsiEG2kVO2/WeM1mfhsgXr8mm
f+GAYrDhhfeBhvjxmeGwjIADGQ5i2+4nGaJ7MW/dWjEupP1+vN4QL3phLJ/C
hf1z5v2bRDbCwy5bTF7qcsHDqL7q2AIjZG+KvM6Zxp2sXyPcsF9h8O3/uEA3
VGtacdwIHeamizXO5YLFmH5YqIgxMQ+K5/jNH1Iwxnhy49G4pVyYmLuVjdH0
QW4YxZMLConBr85pGOMinfPLPozHbQV/Gfx9zhh/JZ+6/CmEO1nvxiiXdaRA
YwsXfNvPb1zSZ4zXjTwqH+7gwoBGHm2vngnu+bG4ZE409w8PVpvg2nuXFM1j
uWDit0yodsMErfJc+cHHuGCkWT3290MTlFlQWf7vce4kz02xbPf68UsEF2iV
dcU+owqEn7IO4Gi2tCLa22qmvnBqJXjWc9cm+JF3K1SSNvl1Dyii2/6YN9at
rTBt5oj6UVsK4aspnj0pS/3yRZ8KWFOBs6IpqHHv6Idfm6lgZ9UcvfsyhfD1
FM/cN25tekSnwqK3vhZXflCQ7mxrXDRABZahonIPWYnwWV26gmTkdiXstQu8
syuMBvrZL1btPKCEEWHX6tixNMiuevxBYUiJ8Fnxh/tpmTLKOGbtYkcVayN4
9s3q9hkl3fF5JXrmOZsryhjkceqCQ2IbVH7waCJRVAif1di3lexyVMG2hJ8s
3lgbwbNj91R/Us3bQaPA6dlBlgrGCFkipbvboavXXbhshSrhM5K5y92dR1TR
cf7/TK++byd4tkPrXKqldAck28yxX2KrhlqVH8/n+HcAbd/7qniqGuEvneu3
Lot+UkNaWSWptqKD4NmC2h4fyfoOuOGd6NszzrPov9bayCrQ4adlGz37pjqG
SVY8GDKkE/zyaIlN9AujQ49PNz0mTAMdLgslFOLoUHwjz45RoEH4T60w9Eir
gybqL3cwj++gE/wKXeyx99sIHVrQlXxQVgsdqlYM7JnNAFCuXcGo1cLI2+ar
LSMYBK9Sj9y3cB+fX3dlg1IwTwsraz+NicYyIPtA1uGoAS3Cn64tlrrNNdoo
VT4rhFfPIPi1+p1MoU8fAxoCZpdQ83SQK/KN16jEhK3q71X26+vinPWqbcG2
TIJXd/Yzd0V6MkHrw/71qad18f7uXvdcfyaw6WVPtD/qEr41mmeY9TxWD8+E
aphdPMckePVonleW6zUmuF9JZly30Me6M/m3n1UzYWlagvRIhD56TaPMH2lh
ErzqZddRtL4zQaA0w91huwEGSd3/3iwzfj+g8zkPJA0xzuq7hOdsFsEnsQWB
TSwHFjC86BeEcw1RpkS4JAxZ8KH+kuKicEPC11lLTpYolBri4KtDrn0RLIJX
9hYPTOfsY8FHB1LZzQ+G2Hpsa7FEEgsCGgLX/M/BCI2D1r7ZN+73KV6lf539
4tsDFjiZfN1nU2mEH6d/q13dzIKaLpt9zFojHCxLM+h8wyL49Lg1szSojwXO
b4xj1N2MMbJ32/W0IRZsZfguTD9rjME2XoPaSp0En+aUeDhb6nSC7P0FlTmv
jPFfr3+Kwow6YTjMbi/T1YSYJ+iKpZuerTLBA/Yh1tKLOwleXfvypljKvRP+
FtzsrAgxwZgjK09t8OgE/8fi5G08E3xo+l9F7N+dBK/YnX9vKQzvhP8DKUCZ
1A==
       "], {{{}, {}, 
         Tooltip[{
           Directive[
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           
           Line[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
            18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 
            34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
            50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 
            66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 
            82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 
            98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 
            111, 112}]}, 
          Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
            HoldForm[$CellContext`n1]^2 + 
            2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
              E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
          Rational[1, 3]], 
         Tooltip[{
           Directive[
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           
           Line[{113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 
            125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 
            138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 
            151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 
            164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 
            177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 
            190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 
            203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 
            216}]}, Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
            HoldForm[$CellContext`n1]^2 + 
            2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
              E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
          Rational[1, 4]], 
         Tooltip[{
           Directive[
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           Line[CompressedData["
1:eJwNzkVCAgEAAMDFQrBQsQOxG7v7CT7Bowd9r2AjdnfrHOY+yY3t9a1QEASb
7JAmwy577HPAIUcck+WEHKeccc4Fl1xxzQ233HHPA4888cwLr7zxzgeffPHN
D7/8EUiGyCOfAgopIkwxEaKUUEoZ5VQQo5IqqolTQy111NNAI00000IrCdpI
0k4HnXTRTQ+99NHPAIMMMUyKEUYZY5wJJplimhlmmWOeBRZZYpkVVlnjH12n
Lvg=
            "]]}, 
          Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
            HoldForm[$CellContext`n1]^2 + 
            2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
              E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
          Rational[1, 5]], 
         Tooltip[{
           Directive[
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           
           Line[{323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 
            335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 
            348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 
            361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 
            374, 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 
            387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 397}]}, 
          Rational[1, 2] (1 - (-1 + HoldForm[$CellContext`n1]^2)/(1 + 
            HoldForm[$CellContext`n1]^2 + 
            2 E^(-1 + HoldForm[$CellContext`n1]^(-1)) (-1 + 
              E^HoldForm[$CellContext`tterm]) HoldForm[$CellContext`n1]^2)) == 
          Rational[1, 6]]}}], {}}, {
     DisplayFunction -> Identity, DisplayFunction -> Identity, 
      Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0.3}, 
      FrameTicks -> {{Automatic, Automatic}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 
        10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}}}, GridLines -> {None, None}, 
      AxesLabel -> {None, None}, FrameLabel -> {{
         Style[
          Style["\[Rho]T", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}, {
         Style[
          Style["No. of manufacturers", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}}, 
      DisplayFunction -> Identity, AspectRatio -> 1, 
      AxesLabel -> {None, None}, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
         Style[
          Style["\[Rho]T", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}, {
         Style[
          Style["No. of manufacturers", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}}, FrameStyle -> 
      GrayLevel[0], 
      FrameTicks -> {{Automatic, Automatic}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 
        10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}}}, FrameTicksStyle -> Directive[
        GrayLevel[0], FontFamily -> "Times New Roman", 14], GridLinesStyle -> 
      Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 600, 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "GridLinesInFront" -> True}, PlotLabel -> 
      Style["Figure 1.  Level curves of the innovator's share of surplus\n", 
        FontSize -> 22, 
        GrayLevel[0], FontWeight -> Bold, FontFamily -> "Times New Roman"], 
      PlotRange -> {{1, 10}, {0.3, 0.7}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]]}, {
        Style[
         Style[
          Rational[1, 3], FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[
          Rational[1, 4], FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[
          Rational[1, 5], FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[
          Rational[1, 6], FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"]}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {0.7, 0.8}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.847731346447859*^9, 3.8477313910612097`*^9, 
  3.8477314328294973`*^9, 3.847748604902494*^9, 3.847900094812808*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"ebe8a8be-5037-4a7a-a9ba-6331f3fe9f44"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 2", "Subsection",
 CellChangeTimes->{{3.847731627761715*^9, 
  3.84773163033005*^9}},ExpressionUUID->"bfaa5ec1-1f89-4815-b63b-\
488fa2358ce3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"normalizedsocialsurplusflow", "[", "n_", "]"}], "=", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"n", "+", "1"}], "n"], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"1", "-", 
       RowBox[{"1", "/", "n"}]}]]}], "-", 
    RowBox[{
     FractionBox[
      RowBox[{"n", "-", "1"}], 
      SuperscriptBox["n", "2"]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"1", "-", 
       RowBox[{"1", "/", "n"}]}]]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.847731753840377*^9, 3.84773176233869*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"6bebbfa8-d0d1-4c04-8b32-7d7a4101b66a"],

Cell["From equation (17) [Appendix II], the critical elasticity is", "Text",
 CellChangeTimes->{{3.8477316446419563`*^9, 
  3.847731672368319*^9}},ExpressionUUID->"7a5e6b71-ab5d-407d-b007-\
e3c79db993bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fig2eqn", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "2"], "-", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["n1", "2"], "-", "1"}], "2"], 
       FractionBox["1", 
        RowBox[{"1", "+", 
         SuperscriptBox["n1", "2"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"n1", "-", "1"}], "n1"]}]], " ", 
          SuperscriptBox["n1", "2"], 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"T", " ", "\[Rho]"}]], "-", "1"}], ")"}]}]}]]}]}], ")"}], 
    RowBox[{"(*", " ", 
     RowBox[{"innovator", " ", "share", " ", "of", " ", "PVs"}], " ", "*)"}], 
    
    FractionBox[
     RowBox[{
      RowBox[{"normalizedsocialsurplusflow", "[", "n1", "]"}], "-", 
      RowBox[{"normalizedsocialsurplusflow", "[", "1", "]"}]}], 
     RowBox[{"1", "-", 
      RowBox[{"(*", " ", 
       RowBox[{"this", " ", "is", " ", "normalized", " ", "a"}], " ", "*)"}], 
      
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"1", "-", 
         FractionBox["1", "n1"]}]], 
       SuperscriptBox["n1", "2"]]}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8479002656988792`*^9, 3.847900270178616*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"0bb40a02-506d-420d-8217-241521e146b3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"fig2eqn", "/.", 
    RowBox[{"\[Rho]", "->", 
     RowBox[{"tterm", "/", "T"}]}]}], "//", "Simplify"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"%", "==", 
       FractionBox["#", "100"]}], "&"}], "/@", 
     RowBox[{"Reverse", "@", 
      RowBox[{"Range", "[", 
       RowBox[{"2", ",", "10", ",", "2"}], "]"}]}]}], "//", "Evaluate"}], ",", 
   RowBox[{"{", 
    RowBox[{"n1", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"tterm", ",", "0.3", ",", "0.7"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ContourStyle", "\[Rule]", 
    RowBox[{"Thickness", "@", ".005"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"tr14", "[", 
          RowBox[{"#", ".01"}], "]"}], "&"}], "/@", 
        RowBox[{"Reverse", "@", 
         RowBox[{"Range", "[", 
          RowBox[{"2", ",", "10", ",", "2"}], "]"}]}]}], ")"}], ",", 
      RowBox[{"{", 
       RowBox[{".8", ",", ".25"}], "}"}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{"tr14", "/@", 
      RowBox[{"{", 
       RowBox[{"\"\<No. of manufacturers\>\"", ",", "\"\<\[Rho]T\>\""}], 
       "}"}]}], ")"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
   RowBox[{"Evaluate", "@", "plopts"}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "@", "10"}], ",", "Automatic"}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "tr18", "@", 
         "\"\<Figure 2.  Level curves of the\\nelasticity of innovation with \
respect to profit\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{
        "tr14", "@", 
         "\"\<that justifies the actual patent length.\\n\>\""}]}], "}"}], 
      ",", 
      RowBox[{"Alignment", "\[Rule]", "Center"}]}], "]"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.847731778135964*^9, 3.847731842081876*^9}, {
   3.8477319323525867`*^9, 3.84773209217004*^9}, 3.84774326015001*^9, 
   3.847743303215252*^9, {3.847743362237359*^9, 3.8477433821615562`*^9}, {
   3.847743571203957*^9, 3.8477435904038343`*^9}, {3.847748359885009*^9, 
   3.847748363849833*^9}, {3.847900277997704*^9, 3.847900281508884*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"85ad66ef-531b-4945-a0c0-171d864e6fbd"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJxFWAk4VO8Xbux79n2XViFUQs6HSrSQFBKyVSraJFREKkmLilZ+VBRaiUhZ
QlEKGWObGbOqVPbSHUv/G83932eeZ57znLn3ft/53vO+7xm9gL1uwQIzZswY
J82Y8fd7+pqFlo76SyhUseB31WTe8d8G6G19dPnxahZEZ+/52JJigG4G7WV1
cljwPLSrONTbACkFjtIDR1nwcrRWq13fAOmJXnT/JcGGV4saxSpK9VFBi6y9
4SI2hOE/7yrWR2G/qzPMzNhQenjG3L4ifXSrRyUqCY/TBx+zbJ7pIwvzvxcb
/Oafur58jT4af+tzqtCbDSc2NDpEa+sj6t/HhLLB0OnSLCd5fUQTCfyQfYAN
Ae+4Y5UsPdQ83nc99BQbprZTqYe0rHcEm6fi708NXxlzRQ8lWN0/YXWfDev8
JXYkHtVDO0tPGNYUsGH6uXpIzNi3IrKUDRynjW/Pz9VDVsoNijs72DBoo5CS
o6qHhGftPlzDYMPlWfgC6nXRyBkp8xRRDgyq/5m/9LkuOrazCMXLciCf/DNd
/D9dRLbTwj8cqCafebDEUxcxWV6TPDsOOF/6+wBddNuG3LvKlwNrkq2u+Y/q
oCeq54SWHuLA88nM7hupOmhqn5c4sPRqSKyfgw7602uQtjyPA9NnpoPuhUod
F6vgwPFAaYXIK9roSLVcpSKTA5VXNtix9LVRhKvoIVdRLrAWmp0s6dVCstJ7
zKvUuLBv6jy00LGSWpnOBVyQqDN7O2+VFlowYKq9yp0Lmi3a7kdomuiNx9Fa
j6NcWFxaodqUo4luemoKZl/kAn2qXpooglHc63CPC1lxS1PzpDSRaz37Iu0j
F65M1UcDmX9Um7/iGxfiq16265VpIGW/QSW/Qfz3AXsrCw5rIJIRRP2Q6YE1
U/XQQF937WLGWPRAkYqZIvWzOkrZYLa6ybUHvDVuDv95oY62T109wMero6qt
VaI1FVjKYHh0wACdLIHMZ3ZUSHI4mXzmhQE6Vvt3A9Tp831ogOqq51pJ+lCh
9trG0+r7DZD4xLje9QgqgWcT2t2DE7FU0H2bMGeNmQHSKDFfveoSFXatkciM
G9ZHHndIpqKPqASe7aQC3vu8o4JrmaDQ+8P6iCL1ZYHBFyoE/sqfPGOjjyTb
sw1fCtMIvM5ldm5vU6dBvv187sxJPWRZ29Mra0gD6Znavt51ekh7CjA0Ao+S
hmY13AM0ePX50L4xcz30WlKxrP8yDWybpZpHZfXQCrHvVN49Glyfl8W2/K2L
ptdFI/CZtCxzu2sLDbZyaZPN6bqoeWFZ9Mo+2vT6I3SR06PYTdaidJBedFPa
BXRRBWtBOWsBHUoisi4qLNRFUXlbNowtpRN4DRktZVCW0+E7VFHuSuoikWiZ
K5td6DCPM3by2TEdNPQxP3/VSTqBT3LkgOKiZ3QoapFyjMvRRgIjHuvWUegw
OqR0s0JcG237CwelbgKP39KTtYaWdoO9kNvhNistFMJdVagX1g3at/pvpovh
+AX/9aoJ3QT+aDEQsr2hGxoGr2RtsddEweOn4+Yzu+HG2VeWtiKaaBonDPA8
lGulFK+BsGXk/0CPQeBNMXxQZ68VA9YvfrVo+K06Sjq57JmqOwMKr2kNBXqp
o6n2OcSAnc7sFUqK6si/31bf6AwDSv6+vksNJdk8cqTfYEC9xgebtO1qSLun
Ze+JSgbsrstxt+5XRVkyvZkyvQyY/9Jg5EyFKlKPMHhgyGPA7Km+VkXxE83Z
tyWYsCH8guu4tiq6qaMor7KECSXmNj/7Xqigob/l8WPCsMB+k4EEFXTq0o4c
z3DmdH85qaBQnapn/eeYwAj+udp3UBlN+O/59PkZEy7tXt+9/Kkysv9LP2Qm
rLPgSFkEKSMuN3z81SgTSFN1UUbVX4bdTs1nQaaC2zE3mhKiGp7XabJhgYtk
r9+yOiU0VSYnFnyMfRX7fJsS6qsWZr2JY8G7nZcjL25VQlkGlJszE1gg3fHT
1XVCEbH/wqecBYWeKq+tWYoooSZW5doH1r9+UUQPLlVG8b6w4FalUXhxqCLK
/hgQtkiNDZZqjnPynBUJ/hcc6896MqmADuWcWFyxnQ2Z/vljR6kK6LyiUGbb
cZyf1zr1zrmvQPD5zgyW85FUBbR/dvwy32I+nysgjbqP0l9b2fA6Wfpp2iIF
pFQ1YyYT52svveYtNhoKBD+vObevcG+3PIo9U7a63YUDLl5iKaGf5JG9eckd
eW8OmM9fdWnohjzBx/eZQ8/fRsqjvRGCAlZP+Hwuj5x1OwRUhLmg4pX7+4++
PPJ6Fx1SJcKFjfpe7ufxmM/HmkZnEpP05NHM0jLHIDEu/ElW+ZD8SQ6ler/9
s9CPC1t+3zzlXSpH8O9/90MvoCQ5lCK5Ey0p5ELUgiPififlULH8XfeaEi5c
1HrV/9xbjuDXMjdSusJyOXRD08FKRbEHGrOC5o5KySHT9db76917ILUle1/8
H1mCT18O3hQ3DhYl4m3Ob56/w+P8JafbJoJ6YOr4QkXRjuuuBQ34/T/dz3iQ
00VR8KOt1O8YFxySzNqot0WJ9x9quqygnSuKvONjrjT2cMFq4O0fTrsoWp7T
lBt8gQu/Xr8Ij+SIEvubaCu8NzIkioTCH328F8QFhXL99ifKYsg0TLlmiyEX
8le1+DWZihH1e2EfMNPFTgyNfP5+rgDXu6HQfOp2DzGk2nT8JLmMA1/oZgNb
DogR5/XtqmZ22hUxdJ4VqULz4cC7x+PrrG6KoZkK6RJUNw48eProwckGMQIP
z9lPbhRyxBBPcfUNTi8bqpJYcaQRMWTxyWdZdxuOP+VLDR0q4gT+wta6rA82
F0enxVUqOk+wYeVuC9dXvuLIfNEsT7oLG2YpPPtWGC1O4LvP3KpT85Q4evd9
NXZaiw10YxfjHc3iSPLXuYvhb1iwRUdz5ssOcaKfwi07nefQxBEzNnQMe876
p38SSPJJW7VhCgvKJWbIn7CWQLoRDqKlG1kwnjKI3JwkiP5NGrVsWOYhgRRm
+5NvL2PBkjH9nqJMCRS10Mfv8QATMiqVj216K0HwBRodnnDql0Ab1yYPXcpl
gu6H30onJSWRILlELvs8E+hzP841Xi9J8NPlpAqzwzGS6ITsZllpYybEZDem
z8uURDZe8t/VlJig1XfnUz1dkuDD3gsaH7J5kqhmMilErZEBX3Ze9fTbL4Xm
kMnWzGgGXPusvtkyWorg35wST3WtGClEwuwd9u9nwNS2LkkhFybboDKQAb/V
RnKPS0uj3IdPXn5WYsDWkfUKPDNpgv8Dd8+toERJI4O+moT8h91Qlm7wfEWO
NLqZbNknF9kNVWv2v1SWlCH0qP/1+6q4NTLIxFT7QXUdHWQkfFqPNuKxwlZ7
A2c6BGEsquCADKGX5xlkn7PjMoj9uynonhYdppY3aybKdwwU18do8CBWniH5
ciY6/iGr8PFhGujl3RkLFJQl9L4xZf9w/ApZ5NlsFRdPoUK3/eihlf6ySP/l
lsQ7uN8o0pjV9DxTlvAzp7zXtOsVyiKjh1lVWtb//EuXLPI6kuS4SoQKhmVn
TWrnyaGQytRTe7K7oDwhy/2bl9w//9w1jZ/jcmhd4OzoXrsu0O9RL2m4L4eK
jsv1FCh1EXwmR1P++eVqJzygrBy4byqPrl3ppqPkTmgzIm9+aSWPrP/C/0Qn
kCp7uIZn5ZHaZay02KoTRD0+MHKrcP67/3aLi3gnuI1OBoytVUA3rv+9OuDG
Bi8q11sBFameXdaX3EHw9bpIpSXJsR1gf96mZNsfBSTuM2mhq9IBz8cTP6dn
KiIs6fHvpMftcOcN+YHCA0V0b7gnmnGvndAXB/k+9d1Z7WDCXZF7TVsJRawU
IdcGt4PQgNyxDn8lRK82v6gI7YT+He26EvT+exvMI6/K73BTRp5/6ai2DQzt
VJ1jPiujH+SQesnjbYTexuwsG0nc3Aa2T99Y1hSroO+5McoB89pgzYvZjfkn
VdH0OVDgTmOUc/c5VSTRkubg3E4h9F7tp1V/GYUC4arSDV8zVFF0gdbAgU8U
EFl0oUR5jxrSi1vxDSVTCH9xeL/+3DUhFLiyzscHNuD+xJ7iO2clBagV47s2
fVdHRyXLu7aqUQg/A55HQvzFKfCm5NbTb7F8v90KNUNpm+yMNRHrZU2xbU0r
4Z8Wemy4rF7UCstP5fvZf9dEN/bprgq42grrW0L/czXUQrniHv3dZ1oJfwaO
8UOiu1phaPhL72Y9bRS/OWVMbGMraCw4vPH7a22k3nxzboVZK+H/4g7PvxY2
G7//qcyHBfo6qH7NDa10nVaQfWTqnZytgw5NNXgr/Ody6+F9BV10Z1DkvX0/
mfCbW44cSw74Soazyl+XLkS6qOCrd5E0gwzsnyOGVtd00fdvnPryKjLhd53/
3Do1u4AMpLOpVaCsh1amGA/nXCfDqlm7sgu19VBGI6IPpJEhy6Q/VcdYD03z
CJnw26cly+abxpKhWUk8oDlHDw139GVEhpFh5aR1uxNXD/0au0pGPmTCz9s0
6ca9cCXDKZllw2dN9VG007n4NavJEFZQ5fPysT4avdOZGTCHTMwLCkGyRnGG
ZLAr7zKoKdNHB7o/zl4+C99fnvtZqXb9f/pDhqntixugqMT0ATM5MojOjDzt
rmCA9gs/LKuRIU/zHz6fBLhGC7mKkqGis7XBZbUByrrmdU1OgEzMM/s3dnSl
T7RA7/JrItghA7SxsCggbrQFLi1HK2UvGCDbeRrL8wZbiPlo7+mf6H1vC9w1
uNuuTTFAVq1zR58yW2DHrqO0rjYD5HtkfsQGPObPX/Am9vyJ9haQEfR3yxEm
Ef7hzhKDobuTM9C9DxP7dI16YJPJ5psFeJwZoBB1b0EPfHx6UOG9ConwC3dX
3c3SkSOh0eScVz2lXFhuZMvcKU9CpnWuqam436nMH/W/P59E+AWnpmDz7bNI
yPf0j0drV3Mh8m68w5I5JLSxpSSxy4oL0krd7attSYRf2B+Y6BZuSUJH6VLq
FAoHn3fnNQ7akBAvSNdwtIoD9s4t3OduJMIvmInPy920joTsvjLlTgZzIOte
hmL+RhKyNDXN4a7mwMAccTppJ+n/8/2FPw3KgSTUlmHU4j3CBndLfeGDu0ko
9DdF7G4jG8YP3lCyiCERfgGuSXrURpEQU6O2bivuFzS4BepbE0ho2+FFQiab
2fB9cxW2NZVE+IVAtwWTe1NIKK5k08UkeTbk+cacjM4goQt6EaQTVBZoHQgw
Tn5IIvxC3zzxotl5JFSr8fDP5ywW7G+s8+OUklAz74X8rQAWGFQHPf70hkT4
g4dejPe8anw9khXzIxfh99sEfH1KIaHgi4FfDn1hQkTrnl/2TBLhDzYWPVL+
Qyeh2c/CdtlWMSGhlPd+YoSEXsJYjWQYHqfmGw6Okwh/INOWoLp6jIQ8GXZB
thuYUPOsN4SrKIA0Xprv9RxmwNWDKZbDagKEP0iFNxbfVQVQeJi+wlEmA2jn
vZadWSKAZj95orc5kgF3i32s/S0FCH+wfJ7bZ0E8HjXZ0jyG+4PpfQmgUw6N
DZpLGdD9ZPCw8RYBFJ1Vd0BUkAFmyYuP+3kLEP7gty6zv3KrABrKnz8mgnUD
yz3gUX+sAHpzsb5+z7xu2H/EXcj5tADhD07Yyi5MTBRAEnrh53f8oUNtS3pg
/T0B5CQxY++ZdXR4PjMtoeeRAOEPbowVkKyfC6BlJ53dyoXo8KfmcePnZgH0
Yavm+XB8vtdTr36yiytA+IHSA6IXZ30VQBkelAsDYjQw2vDY4OikAIq4lXsX
rlHhvvsDMxNpQcIPrF+1bOsNbUG09eri7m5JKrztrLB7tVAQ9afZL5ks74Jn
M/UDk10FCf23Q6VzJj0E0QvpqJgQ6S5YLNiX+sVPEP1e/FDtTU8n5EmsK/GN
FCT0fZonBdEeHlvKU6MTjvhVdyanCqIlXkEy72Z2Qig7YM+eNEE04TnhOFe6
E1hK5fQj7wUJvS85CR8mWwSRRWHvhn7rDtCaF2kT2yOI7tlfMckS6YDAEVIS
kIQIfX/9nGZOVRZCpnQaIyekHTJLM3SsbIXQFv9WI/+JNhBITC9meQkReq0d
8JSb7iuEfpr7F2hcb4PoK++dyjOEUJ9f127SIAUOdTcLdeYKEfo894lo3Md8
IZRU8nFm7DsKTJdFCLWEk1yLN1IgcvxtxXIBYbT9UC93wZ9W6KFecjgnJUzo
6Ts5e01/RWFk7/Z1rQ6tFUbKg91OBAmjQq2FJjKWrbBkzythbpIwoW+hz2HB
ylxhpKWYvUa3nAzenq4OIY3C6DuI5ZPCyZBdUr/plooIwf9eHw5ZHF8lghZv
2tjm/KwFcnsaKL3bRJCI84yC2kst0NwsJDeSI4Km6MG8BSItlimtP88DfpzW
pOrjcpoHrp0Ksci2BRreODqvDufBXjuL42lKZHgmJFGADvKA/76UCUFlxwM8
UA1L/JaC61Hyw+0PjP14sH53wa5gwVbQPFMo9MCXB/z9jB0SPH3MhwdfBHfE
9Em0QuM3SyzOnQdfVXzOukW3wjkLDcmXeDzN160Qhe0O1sBjEY5ZtXNMK7Tm
rwked+aBhmeBhSReT6vVpY+F1/CAX9/6vasmv+F5QdcCqSd4PN3PPOj+meER
JEaBF9eFPx2358G03lBA3aY60QqPscjX8lk7KGCbF5spb8UD8ZCErgrcfzW+
jRXxx2P++Y83HrZ6u4wHti752Fw6BQJKJdDAIh5IHnz6231tG8iajjVtN+OB
2NSG2yB1KPTRMTzfWKwcnuveBiLKwSUj83hQR26dGKhog0P2l2xS5vOAj0el
nJOVW/H84ozhIv33bbDnd5mgjj4PBB4Hv7xs3g5Fhle2duPxVHtZtcOHl7oe
gXo8yKh2G7xi1w6yf9YbhqnzIIJ0QHQ57m83Hlq41lUD39+//jgskB9wUY0H
TQJHN88oaYfKKKl5THkeKA6mFX5X7wCmi5IxW4H3z0d1gHbFXBpLjgeL4gUU
g407YH+DmcFhSfw8fvWm3T7fAasjbI2uSvGA3699Ju/rvSR4ENXUtrn6bgc0
3fplYiLEgw/svkRfgU5Qs0s+vFuYB3/ZOlOmE3ZfT7IYEeDBLUFfZw2cH9Li
Fx4Um8DgdnlMgG5EJ46Hs45+kxjw+STxVu2ip2MYLP8SqRqa0gkZo+MqAr8w
WOZWPfH5ayck/DHq3D+KQfLf7f7uBPcYLu3CCAZDLhlfS0S7QMbpnKtGPwY1
MbOWFPl0gWTR6YO3BzDg85utiqjPhR8YlJzlciaPdQFtfeWmjV8wqFtk8+V0
cxeMyF/zGfiKgdGUXHYBw+B+56MeDAR0lE1hpAsMCr9tz2ViMDrj3aDfSipM
5ol82cLGgM+3FsWeZ350Y8ArLuqP2kWFgtS0es0uDOR97y1aXkqFY2/6dzCp
GHxs+HtRQSRp323nDgya9ik5PmZQYfZWq/oHZAzmeL88rbOQBqrdD5eeoGDA
5/9awbrg2k94faJ8Pbs302BbnMhzz48YrB8dIYtk0cDrTE4xNGHA/793091w
NZ8GDB7IZKyQ+ECDFVb3vurUYeD8fcnYkCIdfj1Wc1J+hwFfj8QqE8Xl3mDQ
39e0wNSBDo51Mq9IrzFQ++VBYyfS4c2MYQ+RGgxkpw6YDurOlNOMCgxKLfuM
NpTSIdvd7tJEGQat5xT9OsbpIByW7jqzHAO+PrITn317V4pBfd1gcKgJrpeL
DBrlizEolxMNbtnXDXH32++almDw5O/xJnVDx5m6lMZCDFhqPcMJ2d3gsM2J
jp5gkOL+H7mZ0w1PIi++CynAgK/X34ybun48xMC+LQJ7L82ATbYNxqfzMPB1
lHbeZcSAtfQi6xcPsH/9xYAlT/eaGt7HwF94NrSsZkCetaYF9y4G8ynLa0O3
MyCmWy1C7x4GfD9hfJg0Fn4bA3X9pZ7tJxiQGdsevOU/DCKwKpeDmQxgDDqN
ZWRhMLX8xwxI0d6ZT72FATMtakNXOQNaAu5Bz3UMdk600qI7cX/xJdTVDM/z
/c3iW6wi76sYWF7yWkrFGNCZLWuXeAWDnCMyQQmKTGjYPGeyMw37179MKNrE
ujSYgoFOFVupy4IJJuu9fsAFDEQMN7VdWM+E8LUHLl7D83y/laLOLk9PxmNa
3e+2vUwYU/B/L5WE1/cR1yg9kQl7Qk6n7cLz0/3OhCH2ihd+p3F8Kvt/+5TH
hDtr44L7EjCwZTlvefCaCSHzKm674nm+/3vtMEd8aTwGj9c9/v2eywQtCHXi
xOL4ee+96dU4Ew76Rzg74/lpfmDBjNBV5gbHMFCwCFpQrcuC2U0KYn3ReL1F
lik2LWFBOm3Y0APP8/3ok8qOaoNIDCxWMM+VeOP+9VD8YskIPG/kfI6zjwVv
5FyaIvD8lJ0+wYKG9wedLA9i4HPdev6DNBYw/Op3Wu/H+9PT+jkvjwUBTR6f
7+N5vj/+eIe9aVsYBlq5thIZzSwo+sCwjtmDwa96XqI8lwXDvBjJH2F8/mFB
3EWVmJshGLTRw5ael2JDRMSFNS07MDC7WYwt0GHDPd3Kbvtd+Hr/+fW0oRlb
vgbhsYZU2VFHNsgLui21CsRg39XOGY5ebJCZkSyeF8znKzb85xGV4LQN7y9V
xYyQeDZcPumQVeCLAUlPJi3wMhvimYWm+v4Y8OeHVw/m3izzxs+3eMVX91ds
sOOIGNtsweC7idnTuA9sWFm56U/eVj6/scEqfo8teOD1XqidbfubDVSjpwmU
TRgUBvk5Z4lyQHtZvd4KTwz488yAG5Iju2EwPJvbMducA2q1z9bHbcDgrTHH
67UdB4IWn1v1YyMGU3LnwQHz6tmlUesxOFh394J0GAdMwz4stVmHQZmwQzvn
CAcWOi/RznHBgD9fXXivQDdxxuBZpunHofsc/Dx//BBxwvvzmWm5WDEHjlb7
eIet4fMn/rwaj/m/VmLw4uTsdAqbA+Pr5+kxV2Aw+OySkPEAB35uTClY6Yj3
5795L2vVWecGOwyO+w4IlmpzQbQi98Q7hEFq+rG77vO5UOPv0LnAgc+3XGjv
OvLj6XI831krfsOLC+wvafWvbTAIvWV+9WgQFz5/LUvSBQz486dtqFpNzjI8
r/qoKOoKFxKo4rn1lhicETCgZGdwwXFYPMbAms/PXHixNygubzEGs63jZDwb
uUAOHe+gW2AgR+NsaWrnwoWzP/daLMWAPw/v3ba/THMJrl939l1oFu+BpVz1
4mumGCw5lhoSsa4H9tjLO8aaYMCft/8H+gMC1A==
      "], {{}, {}, 
       TagBox[
        TooltipBox[
         {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.005], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43}]},
         RowBox[{
           RowBox[{"-", 
             FractionBox[
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}], 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}]]}], "\[Equal]", 
           
           FractionBox["1", "10"]}]],
        Annotation[#, -(E + E HoldForm[$CellContext`n1]^2 - 2 
           E^(HoldForm[$CellContext`n1]^(-1)) 
           HoldForm[$CellContext`n1]^2) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2)^(-1) (E - 
           E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
            HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
          2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
          2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
           HoldForm[$CellContext`n1]^2) == Rational[1, 10], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.880722, 0.611041, 0.142051], Thickness[0.005], 
          LineBox[{44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58,
            59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 
           75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
            92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106,
            107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
           120, 121, 122, 123, 124, 125, 126, 127, 128}]},
         RowBox[{
           RowBox[{"-", 
             FractionBox[
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}], 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}]]}], "\[Equal]", 
           
           FractionBox["2", "25"]}]],
        Annotation[#, -(E + E HoldForm[$CellContext`n1]^2 - 2 
           E^(HoldForm[$CellContext`n1]^(-1)) 
           HoldForm[$CellContext`n1]^2) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2)^(-1) (E - 
           E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
            HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
          2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
          2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
           HoldForm[$CellContext`n1]^2) == Rational[2, 25], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.560181, 0.691569, 0.194885], Thickness[0.005], 
          LineBox[CompressedData["
1:eJwt0tciFgAAQOEfvYhX6hE8AM8QspKRPRMyMsrem5K9yiZby977u3DxXZz7
ExoW8TI8KBAIRPOKSKKe+zUxxBJHPAm8IZG3JJFMCqm8I410Msgki2xyyCWP
fAoo5D1FfKCYEkr5SBnlVFDJJ6qopoZaPvOFOuppoJEmmmmhlTba6aCTLrrp
oZc++hlgkCG+8o1hvjPCKGOMM8EkU0wzwyxz/OAn8yywyBLLrLDKGuv8YoNN
tthmh1322Oc3f/jLP/5zwCFHHHPCKWecc8ElV1xzwy133PPAIwETBBFMCC94
AvPoYYc=
           "]]},
         RowBox[{
           RowBox[{"-", 
             FractionBox[
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}], 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}]]}], "\[Equal]", 
           
           FractionBox["3", "50"]}]],
        Annotation[#, -(E + E HoldForm[$CellContext`n1]^2 - 2 
           E^(HoldForm[$CellContext`n1]^(-1)) 
           HoldForm[$CellContext`n1]^2) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2)^(-1) (E - 
           E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
            HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
          2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
          2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
           HoldForm[$CellContext`n1]^2) == Rational[3, 50], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.922526, 0.385626, 0.209179], Thickness[0.005], 
          LineBox[CompressedData["
1:eJwNxsk2QgEAANBnIVPKnAyRsdIgY6akzIReKLLyAfn/nbu459z071/YHwiC
oMugRBhimBFGGSPKODHiTDDJFNPMMMscCeZJssAiSyyTYoVV0qyxzgabbLFN
hiw5dshToEiJXcrssc8BhxxxTIUTTjnjnAuqXFLjijoNrrnhljvueeCRJ55p
8sIrb7QIafPOB5906PLFNz1++AdB7hMQ
           "]]},
         RowBox[{
           RowBox[{"-", 
             FractionBox[
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}], 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}]]}], "\[Equal]", 
           
           FractionBox["1", "25"]}]],
        Annotation[#, -(E + E HoldForm[$CellContext`n1]^2 - 2 
           E^(HoldForm[$CellContext`n1]^(-1)) 
           HoldForm[$CellContext`n1]^2) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2)^(-1) (E - 
           E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
            HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
          2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
          2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
           HoldForm[$CellContext`n1]^2) == Rational[1, 25], "Tooltip"]& ], 
       TagBox[
        TooltipBox[
         {RGBColor[0.528488, 0.470624, 0.701351], Thickness[0.005], 
          LineBox[CompressedData["
1:eJwVzFdbDQAAgOHTT/GXuo+chkokQkMlQmRLaJCi0kAUTRUV2hmlhIxSioZZ
ufC6eJ/nu/o2BBNCt4cEAoESwsRGNhHOZoJEEEkU0Wwhhlji2Eo82/g/S2AH
iexkF0nsZg97SSaFVNLYRzoZZLKfLA5wkGwOcZgj5HCUY+RynBOc5BSnOcNZ
zpHHefK5wEUuUUAhRRRzmSuUcJVSyrjGdcqpoJIbVFFNDbXc5Ba3qeMOd6mn
gXvcp5EmmmmhlTYe0E4HnTzkEV1008NjnvCUXvroZ4BBhhhmhGc85wUvGWWM
V4wzwWsmecNb3jHFez7wkU9MM8NnZpnjC/Ms8JVvLLLEMit85wc/+cVv/rDK
Guv85R986G7E
           "]]},
         RowBox[{
           RowBox[{"-", 
             FractionBox[
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}], 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                  RowBox[{"\[ExponentialE]", "+", 
                    RowBox[{"\[ExponentialE]", " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    FractionBox["1", 
                    TagBox["n1", HoldForm]]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    FractionBox["1", 
                    TagBox["n1", HoldForm]], "+", 
                    TagBox["tterm", HoldForm]}]], " ", 
                    SuperscriptBox[
                    TagBox["n1", HoldForm], "2"]}]}], ")"}]}]]}], "\[Equal]", 
           
           FractionBox["1", "50"]}]],
        Annotation[#, -(E + E HoldForm[$CellContext`n1]^2 - 2 
           E^(HoldForm[$CellContext`n1]^(-1)) 
           HoldForm[$CellContext`n1]^2) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2)^(-1) (E - 
           E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
            HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
          2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
          2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
           HoldForm[$CellContext`n1]^2) == Rational[1, 50], 
         "Tooltip"]& ]}], {}}, InsetBox[
     TemplateBox[{
       StyleBox[
        StyleBox["0.1`", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox["0.08`", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox["0.06`", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox["0.04`", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False], 
       StyleBox[
        StyleBox["0.02`", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.005`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.8, 0.25}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->1,
   AxesLabel->{None, None},
   AxesOrigin->{1., 0.3},
   DisplayFunction->Identity,
   Frame->{{True, False}, {True, False}},
   FrameLabel->{{
      FormBox[
       StyleBox[
        StyleBox["\"\[Rho]T\"", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False],
        TraditionalForm], None}, {
      FormBox[
       StyleBox[
        StyleBox[
        "\"No. of manufacturers\"", FontSize -> 18, StripOnInput -> False], 
        GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> False],
        TraditionalForm], None}},
   FrameStyle->GrayLevel[0],
   FrameTicks->{{Automatic, Automatic}, {{{1, 
        FormBox["1", TraditionalForm]}, {2, 
        FormBox["2", TraditionalForm]}, {3, 
        FormBox["3", TraditionalForm]}, {4, 
        FormBox["4", TraditionalForm]}, {5, 
        FormBox["5", TraditionalForm]}, {6, 
        FormBox["6", TraditionalForm]}, {7, 
        FormBox["7", TraditionalForm]}, {8, 
        FormBox["8", TraditionalForm]}, {9, 
        FormBox["9", TraditionalForm]}, {10, 
        FormBox["10", TraditionalForm]}}, {{1, 
        FormBox["1", TraditionalForm]}, {2, 
        FormBox["2", TraditionalForm]}, {3, 
        FormBox["3", TraditionalForm]}, {4, 
        FormBox["4", TraditionalForm]}, {5, 
        FormBox["5", TraditionalForm]}, {6, 
        FormBox["6", TraditionalForm]}, {7, 
        FormBox["7", TraditionalForm]}, {8, 
        FormBox["8", TraditionalForm]}, {9, 
        FormBox["9", TraditionalForm]}, {10, 
        FormBox["10", TraditionalForm]}}}},
   FrameTicksStyle->Directive[
     GrayLevel[0], FontFamily -> "Times New Roman", 14],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->600,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "GridLinesInFront" -> True},
   PlotLabel->FormBox[
     TagBox[
      GridBox[{{
         StyleBox[
         "\"Figure 2.  Level curves of the\\nelasticity of innovation with \
respect to profit\"", FontSize -> 22, 
          GrayLevel[0], FontWeight -> Bold, FontFamily -> "Times New Roman", 
          StripOnInput -> False]}, {
         StyleBox[
          StyleBox[
          "\"that justifies the actual patent length.\\n\"", FontSize -> 18, 
           StripOnInput -> False], 
          GrayLevel[0], FontFamily -> "Times New Roman", StripOnInput -> 
          False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
       DefaultBaseStyle -> "Column", 
       GridBoxItemSize -> {
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
     TraditionalForm],
   PlotRange->{{1, 10}, {0.3, 0.7}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.02]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{
      GraphicsComplex[CompressedData["
1:eJxFWAk4VO8Xbux79n2XViFUQs6HSrSQFBKyVSraJFREKkmLilZ+VBRaiUhZ
QlEKGWObGbOqVPbSHUv/G83932eeZ57znLn3ft/53vO+7xm9gL1uwQIzZswY
J82Y8fd7+pqFlo76SyhUseB31WTe8d8G6G19dPnxahZEZ+/52JJigG4G7WV1
cljwPLSrONTbACkFjtIDR1nwcrRWq13fAOmJXnT/JcGGV4saxSpK9VFBi6y9
4SI2hOE/7yrWR2G/qzPMzNhQenjG3L4ifXSrRyUqCY/TBx+zbJ7pIwvzvxcb
/Oafur58jT4af+tzqtCbDSc2NDpEa+sj6t/HhLLB0OnSLCd5fUQTCfyQfYAN
Ae+4Y5UsPdQ83nc99BQbprZTqYe0rHcEm6fi708NXxlzRQ8lWN0/YXWfDev8
JXYkHtVDO0tPGNYUsGH6uXpIzNi3IrKUDRynjW/Pz9VDVsoNijs72DBoo5CS
o6qHhGftPlzDYMPlWfgC6nXRyBkp8xRRDgyq/5m/9LkuOrazCMXLciCf/DNd
/D9dRLbTwj8cqCafebDEUxcxWV6TPDsOOF/6+wBddNuG3LvKlwNrkq2u+Y/q
oCeq54SWHuLA88nM7hupOmhqn5c4sPRqSKyfgw7602uQtjyPA9NnpoPuhUod
F6vgwPFAaYXIK9roSLVcpSKTA5VXNtix9LVRhKvoIVdRLrAWmp0s6dVCstJ7
zKvUuLBv6jy00LGSWpnOBVyQqDN7O2+VFlowYKq9yp0Lmi3a7kdomuiNx9Fa
j6NcWFxaodqUo4luemoKZl/kAn2qXpooglHc63CPC1lxS1PzpDSRaz37Iu0j
F65M1UcDmX9Um7/iGxfiq16265VpIGW/QSW/Qfz3AXsrCw5rIJIRRP2Q6YE1
U/XQQF937WLGWPRAkYqZIvWzOkrZYLa6ybUHvDVuDv95oY62T109wMero6qt
VaI1FVjKYHh0wACdLIHMZ3ZUSHI4mXzmhQE6Vvt3A9Tp831ogOqq51pJ+lCh
9trG0+r7DZD4xLje9QgqgWcT2t2DE7FU0H2bMGeNmQHSKDFfveoSFXatkciM
G9ZHHndIpqKPqASe7aQC3vu8o4JrmaDQ+8P6iCL1ZYHBFyoE/sqfPGOjjyTb
sw1fCtMIvM5ldm5vU6dBvv187sxJPWRZ29Mra0gD6Znavt51ekh7CjA0Ao+S
hmY13AM0ePX50L4xcz30WlKxrP8yDWybpZpHZfXQCrHvVN49Glyfl8W2/K2L
ptdFI/CZtCxzu2sLDbZyaZPN6bqoeWFZ9Mo+2vT6I3SR06PYTdaidJBedFPa
BXRRBWtBOWsBHUoisi4qLNRFUXlbNowtpRN4DRktZVCW0+E7VFHuSuoikWiZ
K5td6DCPM3by2TEdNPQxP3/VSTqBT3LkgOKiZ3QoapFyjMvRRgIjHuvWUegw
OqR0s0JcG237CwelbgKP39KTtYaWdoO9kNvhNistFMJdVagX1g3at/pvpovh
+AX/9aoJ3QT+aDEQsr2hGxoGr2RtsddEweOn4+Yzu+HG2VeWtiKaaBonDPA8
lGulFK+BsGXk/0CPQeBNMXxQZ68VA9YvfrVo+K06Sjq57JmqOwMKr2kNBXqp
o6n2OcSAnc7sFUqK6si/31bf6AwDSv6+vksNJdk8cqTfYEC9xgebtO1qSLun
Ze+JSgbsrstxt+5XRVkyvZkyvQyY/9Jg5EyFKlKPMHhgyGPA7Km+VkXxE83Z
tyWYsCH8guu4tiq6qaMor7KECSXmNj/7Xqigob/l8WPCsMB+k4EEFXTq0o4c
z3DmdH85qaBQnapn/eeYwAj+udp3UBlN+O/59PkZEy7tXt+9/Kkysv9LP2Qm
rLPgSFkEKSMuN3z81SgTSFN1UUbVX4bdTs1nQaaC2zE3mhKiGp7XabJhgYtk
r9+yOiU0VSYnFnyMfRX7fJsS6qsWZr2JY8G7nZcjL25VQlkGlJszE1gg3fHT
1XVCEbH/wqecBYWeKq+tWYoooSZW5doH1r9+UUQPLlVG8b6w4FalUXhxqCLK
/hgQtkiNDZZqjnPynBUJ/hcc6896MqmADuWcWFyxnQ2Z/vljR6kK6LyiUGbb
cZyf1zr1zrmvQPD5zgyW85FUBbR/dvwy32I+nysgjbqP0l9b2fA6Wfpp2iIF
pFQ1YyYT52svveYtNhoKBD+vObevcG+3PIo9U7a63YUDLl5iKaGf5JG9eckd
eW8OmM9fdWnohjzBx/eZQ8/fRsqjvRGCAlZP+Hwuj5x1OwRUhLmg4pX7+4++
PPJ6Fx1SJcKFjfpe7ufxmM/HmkZnEpP05NHM0jLHIDEu/ElW+ZD8SQ6ler/9
s9CPC1t+3zzlXSpH8O9/90MvoCQ5lCK5Ey0p5ELUgiPififlULH8XfeaEi5c
1HrV/9xbjuDXMjdSusJyOXRD08FKRbEHGrOC5o5KySHT9db76917ILUle1/8
H1mCT18O3hQ3DhYl4m3Ob56/w+P8JafbJoJ6YOr4QkXRjuuuBQ34/T/dz3iQ
00VR8KOt1O8YFxySzNqot0WJ9x9quqygnSuKvONjrjT2cMFq4O0fTrsoWp7T
lBt8gQu/Xr8Ij+SIEvubaCu8NzIkioTCH328F8QFhXL99ifKYsg0TLlmiyEX
8le1+DWZihH1e2EfMNPFTgyNfP5+rgDXu6HQfOp2DzGk2nT8JLmMA1/oZgNb
DogR5/XtqmZ22hUxdJ4VqULz4cC7x+PrrG6KoZkK6RJUNw48eProwckGMQIP
z9lPbhRyxBBPcfUNTi8bqpJYcaQRMWTxyWdZdxuOP+VLDR0q4gT+wta6rA82
F0enxVUqOk+wYeVuC9dXvuLIfNEsT7oLG2YpPPtWGC1O4LvP3KpT85Q4evd9
NXZaiw10YxfjHc3iSPLXuYvhb1iwRUdz5ssOcaKfwi07nefQxBEzNnQMe876
p38SSPJJW7VhCgvKJWbIn7CWQLoRDqKlG1kwnjKI3JwkiP5NGrVsWOYhgRRm
+5NvL2PBkjH9nqJMCRS10Mfv8QATMiqVj216K0HwBRodnnDql0Ab1yYPXcpl
gu6H30onJSWRILlELvs8E+hzP841Xi9J8NPlpAqzwzGS6ITsZllpYybEZDem
z8uURDZe8t/VlJig1XfnUz1dkuDD3gsaH7J5kqhmMilErZEBX3Ze9fTbL4Xm
kMnWzGgGXPusvtkyWorg35wST3WtGClEwuwd9u9nwNS2LkkhFybboDKQAb/V
RnKPS0uj3IdPXn5WYsDWkfUKPDNpgv8Dd8+toERJI4O+moT8h91Qlm7wfEWO
NLqZbNknF9kNVWv2v1SWlCH0qP/1+6q4NTLIxFT7QXUdHWQkfFqPNuKxwlZ7
A2c6BGEsquCADKGX5xlkn7PjMoj9uynonhYdppY3aybKdwwU18do8CBWniH5
ciY6/iGr8PFhGujl3RkLFJQl9L4xZf9w/ApZ5NlsFRdPoUK3/eihlf6ySP/l
lsQ7uN8o0pjV9DxTlvAzp7zXtOsVyiKjh1lVWtb//EuXLPI6kuS4SoQKhmVn
TWrnyaGQytRTe7K7oDwhy/2bl9w//9w1jZ/jcmhd4OzoXrsu0O9RL2m4L4eK
jsv1FCh1EXwmR1P++eVqJzygrBy4byqPrl3ppqPkTmgzIm9+aSWPrP/C/0Qn
kCp7uIZn5ZHaZay02KoTRD0+MHKrcP67/3aLi3gnuI1OBoytVUA3rv+9OuDG
Bi8q11sBFameXdaX3EHw9bpIpSXJsR1gf96mZNsfBSTuM2mhq9IBz8cTP6dn
KiIs6fHvpMftcOcN+YHCA0V0b7gnmnGvndAXB/k+9d1Z7WDCXZF7TVsJRawU
IdcGt4PQgNyxDn8lRK82v6gI7YT+He26EvT+exvMI6/K73BTRp5/6ai2DQzt
VJ1jPiujH+SQesnjbYTexuwsG0nc3Aa2T99Y1hSroO+5McoB89pgzYvZjfkn
VdH0OVDgTmOUc/c5VSTRkubg3E4h9F7tp1V/GYUC4arSDV8zVFF0gdbAgU8U
EFl0oUR5jxrSi1vxDSVTCH9xeL/+3DUhFLiyzscHNuD+xJ7iO2clBagV47s2
fVdHRyXLu7aqUQg/A55HQvzFKfCm5NbTb7F8v90KNUNpm+yMNRHrZU2xbU0r
4Z8Wemy4rF7UCstP5fvZf9dEN/bprgq42grrW0L/czXUQrniHv3dZ1oJfwaO
8UOiu1phaPhL72Y9bRS/OWVMbGMraCw4vPH7a22k3nxzboVZK+H/4g7PvxY2
G7//qcyHBfo6qH7NDa10nVaQfWTqnZytgw5NNXgr/Ody6+F9BV10Z1DkvX0/
mfCbW44cSw74Soazyl+XLkS6qOCrd5E0gwzsnyOGVtd00fdvnPryKjLhd53/
3Do1u4AMpLOpVaCsh1amGA/nXCfDqlm7sgu19VBGI6IPpJEhy6Q/VcdYD03z
CJnw26cly+abxpKhWUk8oDlHDw139GVEhpFh5aR1uxNXD/0au0pGPmTCz9s0
6ca9cCXDKZllw2dN9VG007n4NavJEFZQ5fPysT4avdOZGTCHTMwLCkGyRnGG
ZLAr7zKoKdNHB7o/zl4+C99fnvtZqXb9f/pDhqntixugqMT0ATM5MojOjDzt
rmCA9gs/LKuRIU/zHz6fBLhGC7mKkqGis7XBZbUByrrmdU1OgEzMM/s3dnSl
T7RA7/JrItghA7SxsCggbrQFLi1HK2UvGCDbeRrL8wZbiPlo7+mf6H1vC9w1
uNuuTTFAVq1zR58yW2DHrqO0rjYD5HtkfsQGPObPX/Am9vyJ9haQEfR3yxEm
Ef7hzhKDobuTM9C9DxP7dI16YJPJ5psFeJwZoBB1b0EPfHx6UOG9ConwC3dX
3c3SkSOh0eScVz2lXFhuZMvcKU9CpnWuqam436nMH/W/P59E+AWnpmDz7bNI
yPf0j0drV3Mh8m68w5I5JLSxpSSxy4oL0krd7attSYRf2B+Y6BZuSUJH6VLq
FAoHn3fnNQ7akBAvSNdwtIoD9s4t3OduJMIvmInPy920joTsvjLlTgZzIOte
hmL+RhKyNDXN4a7mwMAccTppJ+n/8/2FPw3KgSTUlmHU4j3CBndLfeGDu0ko
9DdF7G4jG8YP3lCyiCERfgGuSXrURpEQU6O2bivuFzS4BepbE0ho2+FFQiab
2fB9cxW2NZVE+IVAtwWTe1NIKK5k08UkeTbk+cacjM4goQt6EaQTVBZoHQgw
Tn5IIvxC3zzxotl5JFSr8fDP5ywW7G+s8+OUklAz74X8rQAWGFQHPf70hkT4
g4dejPe8anw9khXzIxfh99sEfH1KIaHgi4FfDn1hQkTrnl/2TBLhDzYWPVL+
Qyeh2c/CdtlWMSGhlPd+YoSEXsJYjWQYHqfmGw6Okwh/INOWoLp6jIQ8GXZB
thuYUPOsN4SrKIA0Xprv9RxmwNWDKZbDagKEP0iFNxbfVQVQeJi+wlEmA2jn
vZadWSKAZj95orc5kgF3i32s/S0FCH+wfJ7bZ0E8HjXZ0jyG+4PpfQmgUw6N
DZpLGdD9ZPCw8RYBFJ1Vd0BUkAFmyYuP+3kLEP7gty6zv3KrABrKnz8mgnUD
yz3gUX+sAHpzsb5+z7xu2H/EXcj5tADhD07Yyi5MTBRAEnrh53f8oUNtS3pg
/T0B5CQxY++ZdXR4PjMtoeeRAOEPbowVkKyfC6BlJ53dyoXo8KfmcePnZgH0
Yavm+XB8vtdTr36yiytA+IHSA6IXZ30VQBkelAsDYjQw2vDY4OikAIq4lXsX
rlHhvvsDMxNpQcIPrF+1bOsNbUG09eri7m5JKrztrLB7tVAQ9afZL5ks74Jn
M/UDk10FCf23Q6VzJj0E0QvpqJgQ6S5YLNiX+sVPEP1e/FDtTU8n5EmsK/GN
FCT0fZonBdEeHlvKU6MTjvhVdyanCqIlXkEy72Z2Qig7YM+eNEE04TnhOFe6
E1hK5fQj7wUJvS85CR8mWwSRRWHvhn7rDtCaF2kT2yOI7tlfMckS6YDAEVIS
kIQIfX/9nGZOVRZCpnQaIyekHTJLM3SsbIXQFv9WI/+JNhBITC9meQkReq0d
8JSb7iuEfpr7F2hcb4PoK++dyjOEUJ9f127SIAUOdTcLdeYKEfo894lo3Md8
IZRU8nFm7DsKTJdFCLWEk1yLN1IgcvxtxXIBYbT9UC93wZ9W6KFecjgnJUzo
6Ts5e01/RWFk7/Z1rQ6tFUbKg91OBAmjQq2FJjKWrbBkzythbpIwoW+hz2HB
ylxhpKWYvUa3nAzenq4OIY3C6DuI5ZPCyZBdUr/plooIwf9eHw5ZHF8lghZv
2tjm/KwFcnsaKL3bRJCI84yC2kst0NwsJDeSI4Km6MG8BSItlimtP88DfpzW
pOrjcpoHrp0Ksci2BRreODqvDufBXjuL42lKZHgmJFGADvKA/76UCUFlxwM8
UA1L/JaC61Hyw+0PjP14sH53wa5gwVbQPFMo9MCXB/z9jB0SPH3MhwdfBHfE
9Em0QuM3SyzOnQdfVXzOukW3wjkLDcmXeDzN160Qhe0O1sBjEY5ZtXNMK7Tm
rwked+aBhmeBhSReT6vVpY+F1/CAX9/6vasmv+F5QdcCqSd4PN3PPOj+meER
JEaBF9eFPx2358G03lBA3aY60QqPscjX8lk7KGCbF5spb8UD8ZCErgrcfzW+
jRXxx2P++Y83HrZ6u4wHti752Fw6BQJKJdDAIh5IHnz6231tG8iajjVtN+OB
2NSG2yB1KPTRMTzfWKwcnuveBiLKwSUj83hQR26dGKhog0P2l2xS5vOAj0el
nJOVW/H84ozhIv33bbDnd5mgjj4PBB4Hv7xs3g5Fhle2duPxVHtZtcOHl7oe
gXo8yKh2G7xi1w6yf9YbhqnzIIJ0QHQ57m83Hlq41lUD39+//jgskB9wUY0H
TQJHN88oaYfKKKl5THkeKA6mFX5X7wCmi5IxW4H3z0d1gHbFXBpLjgeL4gUU
g407YH+DmcFhSfw8fvWm3T7fAasjbI2uSvGA3699Ju/rvSR4ENXUtrn6bgc0
3fplYiLEgw/svkRfgU5Qs0s+vFuYB3/ZOlOmE3ZfT7IYEeDBLUFfZw2cH9Li
Fx4Um8DgdnlMgG5EJ46Hs45+kxjw+STxVu2ip2MYLP8SqRqa0gkZo+MqAr8w
WOZWPfH5ayck/DHq3D+KQfLf7f7uBPcYLu3CCAZDLhlfS0S7QMbpnKtGPwY1
MbOWFPl0gWTR6YO3BzDg85utiqjPhR8YlJzlciaPdQFtfeWmjV8wqFtk8+V0
cxeMyF/zGfiKgdGUXHYBw+B+56MeDAR0lE1hpAsMCr9tz2ViMDrj3aDfSipM
5ol82cLGgM+3FsWeZ350Y8ArLuqP2kWFgtS0es0uDOR97y1aXkqFY2/6dzCp
GHxs+HtRQSRp323nDgya9ik5PmZQYfZWq/oHZAzmeL88rbOQBqrdD5eeoGDA
5/9awbrg2k94faJ8Pbs302BbnMhzz48YrB8dIYtk0cDrTE4xNGHA/793091w
NZ8GDB7IZKyQ+ECDFVb3vurUYeD8fcnYkCIdfj1Wc1J+hwFfj8QqE8Xl3mDQ
39e0wNSBDo51Mq9IrzFQ++VBYyfS4c2MYQ+RGgxkpw6YDurOlNOMCgxKLfuM
NpTSIdvd7tJEGQat5xT9OsbpIByW7jqzHAO+PrITn317V4pBfd1gcKgJrpeL
DBrlizEolxMNbtnXDXH32++almDw5O/xJnVDx5m6lMZCDFhqPcMJ2d3gsM2J
jp5gkOL+H7mZ0w1PIi++CynAgK/X34ybun48xMC+LQJ7L82ATbYNxqfzMPB1
lHbeZcSAtfQi6xcPsH/9xYAlT/eaGt7HwF94NrSsZkCetaYF9y4G8ynLa0O3
MyCmWy1C7x4GfD9hfJg0Fn4bA3X9pZ7tJxiQGdsevOU/DCKwKpeDmQxgDDqN
ZWRhMLX8xwxI0d6ZT72FATMtakNXOQNaAu5Bz3UMdk600qI7cX/xJdTVDM/z
/c3iW6wi76sYWF7yWkrFGNCZLWuXeAWDnCMyQQmKTGjYPGeyMw37179MKNrE
ujSYgoFOFVupy4IJJuu9fsAFDEQMN7VdWM+E8LUHLl7D83y/laLOLk9PxmNa
3e+2vUwYU/B/L5WE1/cR1yg9kQl7Qk6n7cLz0/3OhCH2ihd+p3F8Kvt/+5TH
hDtr44L7EjCwZTlvefCaCSHzKm674nm+/3vtMEd8aTwGj9c9/v2eywQtCHXi
xOL4ee+96dU4Ew76Rzg74/lpfmDBjNBV5gbHMFCwCFpQrcuC2U0KYn3ReL1F
lik2LWFBOm3Y0APP8/3ok8qOaoNIDCxWMM+VeOP+9VD8YskIPG/kfI6zjwVv
5FyaIvD8lJ0+wYKG9wedLA9i4HPdev6DNBYw/Op3Wu/H+9PT+jkvjwUBTR6f
7+N5vj/+eIe9aVsYBlq5thIZzSwo+sCwjtmDwa96XqI8lwXDvBjJH2F8/mFB
3EWVmJshGLTRw5ael2JDRMSFNS07MDC7WYwt0GHDPd3Kbvtd+Hr/+fW0oRlb
vgbhsYZU2VFHNsgLui21CsRg39XOGY5ebJCZkSyeF8znKzb85xGV4LQN7y9V
xYyQeDZcPumQVeCLAUlPJi3wMhvimYWm+v4Y8OeHVw/m3izzxs+3eMVX91ds
sOOIGNtsweC7idnTuA9sWFm56U/eVj6/scEqfo8teOD1XqidbfubDVSjpwmU
TRgUBvk5Z4lyQHtZvd4KTwz488yAG5Iju2EwPJvbMducA2q1z9bHbcDgrTHH
67UdB4IWn1v1YyMGU3LnwQHz6tmlUesxOFh394J0GAdMwz4stVmHQZmwQzvn
CAcWOi/RznHBgD9fXXivQDdxxuBZpunHofsc/Dx//BBxwvvzmWm5WDEHjlb7
eIet4fMn/rwaj/m/VmLw4uTsdAqbA+Pr5+kxV2Aw+OySkPEAB35uTClY6Yj3
5795L2vVWecGOwyO+w4IlmpzQbQi98Q7hEFq+rG77vO5UOPv0LnAgc+3XGjv
OvLj6XI831krfsOLC+wvafWvbTAIvWV+9WgQFz5/LUvSBQz486dtqFpNzjI8
r/qoKOoKFxKo4rn1lhicETCgZGdwwXFYPMbAms/PXHixNygubzEGs63jZDwb
uUAOHe+gW2AgR+NsaWrnwoWzP/daLMWAPw/v3ba/THMJrl939l1oFu+BpVz1
4mumGCw5lhoSsa4H9tjLO8aaYMCft/8H+gMC1A==
       "], {{{}, {}, 
         Tooltip[{
           Directive[
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           
           Line[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
            18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 
            34, 35, 36, 37, 38, 39, 40, 41, 42, 43}]}, -(E + 
            E HoldForm[$CellContext`n1]^2 - 2 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2) (E - 
             E^(HoldForm[$CellContext`n1]^(-1)) 
             HoldForm[$CellContext`n1]^2)^(-1) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
            E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
             HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
           2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm])
               HoldForm[$CellContext`n1]^2) == Rational[1, 10]], 
         Tooltip[{
           Directive[
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           
           Line[{44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 
            59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 
            75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 
            91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 
            106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
            119, 120, 121, 122, 123, 124, 125, 126, 127, 128}]}, -(E + 
            E HoldForm[$CellContext`n1]^2 - 2 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2) (E - 
             E^(HoldForm[$CellContext`n1]^(-1)) 
             HoldForm[$CellContext`n1]^2)^(-1) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
            E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
             HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
           2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm])
               HoldForm[$CellContext`n1]^2) == Rational[2, 25]], 
         Tooltip[{
           Directive[
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           Line[CompressedData["
1:eJwt0tciFgAAQOEfvYhX6hE8AM8QspKRPRMyMsrem5K9yiZby977u3DxXZz7
ExoW8TI8KBAIRPOKSKKe+zUxxBJHPAm8IZG3JJFMCqm8I410Msgki2xyyCWP
fAoo5D1FfKCYEkr5SBnlVFDJJ6qopoZaPvOFOuppoJEmmmmhlTba6aCTLrrp
oZc++hlgkCG+8o1hvjPCKGOMM8EkU0wzwyxz/OAn8yywyBLLrLDKGuv8YoNN
tthmh1322Oc3f/jLP/5zwCFHHHPCKWecc8ElV1xzwy133PPAIwETBBFMCC94
AvPoYYc=
            "]]}, -(E + E HoldForm[$CellContext`n1]^2 - 2 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2) (E - 
             E^(HoldForm[$CellContext`n1]^(-1)) 
             HoldForm[$CellContext`n1]^2)^(-1) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
            E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
             HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
           2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm])
               HoldForm[$CellContext`n1]^2) == Rational[3, 50]], 
         Tooltip[{
           Directive[
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           Line[CompressedData["
1:eJwNxsk2QgEAANBnIVPKnAyRsdIgY6akzIReKLLyAfn/nbu459z071/YHwiC
oMugRBhimBFGGSPKODHiTDDJFNPMMMscCeZJssAiSyyTYoVV0qyxzgabbLFN
hiw5dshToEiJXcrssc8BhxxxTIUTTjnjnAuqXFLjijoNrrnhljvueeCRJ55p
8sIrb7QIafPOB5906PLFNz1++AdB7hMQ
            "]]}, -(E + 
            E HoldForm[$CellContext`n1]^2 - 2 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2) (E - 
             E^(HoldForm[$CellContext`n1]^(-1)) 
             HoldForm[$CellContext`n1]^2)^(-1) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
            E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
             HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
           2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm])
               HoldForm[$CellContext`n1]^2) == Rational[1, 25]], 
         Tooltip[{
           Directive[
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[1.6], 
            Thickness[0.005]], 
           Line[CompressedData["
1:eJwVzFdbDQAAgOHTT/GXuo+chkokQkMlQmRLaJCi0kAUTRUV2hmlhIxSioZZ
ufC6eJ/nu/o2BBNCt4cEAoESwsRGNhHOZoJEEEkU0Wwhhlji2Eo82/g/S2AH
iexkF0nsZg97SSaFVNLYRzoZZLKfLA5wkGwOcZgj5HCUY+RynBOc5BSnOcNZ
zpHHefK5wEUuUUAhRRRzmSuUcJVSyrjGdcqpoJIbVFFNDbXc5Ba3qeMOd6mn
gXvcp5EmmmmhlTYe0E4HnTzkEV1008NjnvCUXvroZ4BBhhhmhGc85wUvGWWM
V4wzwWsmecNb3jHFez7wkU9MM8NnZpnjC/Ms8JVvLLLEMit85wc/+cVv/rDK
Guv85R986G7E
            "]]}, -(E + E HoldForm[$CellContext`n1]^2 - 2 
            E^(HoldForm[$CellContext`n1]^(-1)) 
            HoldForm[$CellContext`n1]^2) (E - 
             E^(HoldForm[$CellContext`n1]^(-1)) 
             HoldForm[$CellContext`n1]^2)^(-1) (E - 
            E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
            E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm]) 
             HoldForm[$CellContext`n1]^2)/(E + E HoldForm[$CellContext`n1]^2 - 
           2 E^(HoldForm[$CellContext`n1]^(-1)) HoldForm[$CellContext`n1]^2 + 
           2 E^(HoldForm[$CellContext`n1]^(-1) + HoldForm[$CellContext`tterm])
               HoldForm[$CellContext`n1]^2) == Rational[1, 50]]}}], {}}, {
     DisplayFunction -> Identity, DisplayFunction -> Identity, 
      Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0.3}, 
      FrameTicks -> {{Automatic, Automatic}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 
        10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}}}, GridLines -> {None, None}, 
      AxesLabel -> {None, None}, FrameLabel -> {{
         Style[
          Style["\[Rho]T", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}, {
         Style[
          Style["No. of manufacturers", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}}, 
      DisplayFunction -> Identity, AspectRatio -> 1, 
      AxesLabel -> {None, None}, DisplayFunction :> Identity, 
      Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
         Style[
          Style["\[Rho]T", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}, {
         Style[
          Style["No. of manufacturers", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"], None}}, FrameStyle -> 
      GrayLevel[0], 
      FrameTicks -> {{Automatic, Automatic}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 
        10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}}}, FrameTicksStyle -> Directive[
        GrayLevel[0], FontFamily -> "Times New Roman", 14], GridLinesStyle -> 
      Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 600, 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "GridLinesInFront" -> True}, PlotLabel -> Column[{
         Style[
         "Figure 2.  Level curves of the\nelasticity of innovation with \
respect to profit", FontSize -> 22, 
          GrayLevel[0], FontWeight -> Bold, FontFamily -> "Times New Roman"], 
         
         Style[
          Style["that justifies the actual patent length.\n", FontSize -> 18], 
          GrayLevel[0], FontFamily -> "Times New Roman"]}, Alignment -> 
        Center], PlotRange -> {{1, 10}, {0.3, 0.7}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]], 
        Directive[
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6], 
         Thickness[0.005]]}, {
        Style[
         Style[0.1, FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[0.08, FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[0.06, FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[0.04, FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"], 
        Style[
         Style[0.02, FontSize -> 18], 
         GrayLevel[0], FontFamily -> "Times New Roman"]}, LegendMarkers -> 
       None, LabelStyle -> {}, LegendLayout -> "Column"]], {0.8, 0.25}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.847732037637074*^9, 3.847732092650488*^9}, 
   3.847743261106317*^9, 3.847743304109623*^9, {3.8477433641715603`*^9, 
   3.847743383830935*^9}, 3.847743592451293*^9, 3.8477483654346743`*^9, 
   3.8477486053094397`*^9, 3.847900102087843*^9, 3.847900283975821*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"ae58e181-911b-4fcf-acfa-7fd50367b237"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Two of the points from Figure 2 that are used in Table 2", \
"Subsubsection",
 CellChangeTimes->{{3.847900061107581*^9, 
  3.847900074637292*^9}},ExpressionUUID->"192f572e-b205-4380-92d2-\
2030d3ae6712"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"r5", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Rho]", "->", "0.06"}], ",", 
      RowBox[{"T", "->", "11.5"}], ",", 
      RowBox[{"n1", "->", "4"}]}], "}"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"calibrating", " ", "1", "st", " ", 
    RowBox[{"panel", "'"}], "s", " ", "innovation", " ", "elasticity"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r9", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "->", "0.04"}], ",", 
     RowBox[{"T", "->", "11.5"}], ",", 
     RowBox[{"n1", "->", "4"}]}], "}"}]}], ";", 
  RowBox[{"(*", " ", 
   RowBox[{"calibrating", " ", "2", "nd", " ", 
    RowBox[{"panel", "'"}], "s", " ", "innovation", " ", "elasticity"}], " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.847900411614773*^9, 3.847900487323122*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"cf3c2c56-6da2-4b2f-87da-c5718c83150b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"elas5", ",", "elas9"}], "}"}], "=", 
  RowBox[{"fig2eqn", "/.", 
   RowBox[{"{", 
    RowBox[{"r5", ",", "r9"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.847900287148328*^9, 3.847900360429826*^9}, {
  3.847900405454091*^9, 3.847900409316568*^9}, {3.847900494122422*^9, 
  3.847900495218165*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"a769346d-0e1d-4e8b-8d15-5ca5be79e7d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.07636559968976517`", ",", "0.06023163143147321`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.847900306237155*^9, 3.8479003212284813`*^9}, 
   3.847900361696392*^9, 3.84790049688247*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"5c13c87b-2fc0-4077-a59f-fa1380e3a87a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 2", "Subsection",
 CellChangeTimes->{{3.847744290970849*^9, 
  3.84774429268125*^9}},ExpressionUUID->"03a49d59-8db4-47bd-b7a2-\
47d320a918e6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"normalizedinnovatorflow", "[", "n_", "]"}], "=", 
   FractionBox[
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"1", "-", 
      RowBox[{"1", "/", "n"}]}]], 
    SuperscriptBox["n", "2"]]}], ";"}]], "Input",
 CellChangeTimes->{{3.847747071053451*^9, 3.8477470969692287`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"06c7e8d8-684b-4a2b-9cd4-508714559236"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"exp5", "=", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[Rho]"}], " ", "T"}]], "/.", "r5"}]}], ";"}], " ", 
  RowBox[{"(*", " ", "assumed", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"exp9", "=", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "\[Rho]"}], " ", "T"}]], "/.", "r9"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.847747860322749*^9, 3.8477479009570417`*^9}, {
  3.847748029331092*^9, 3.847748039336402*^9}, {3.8477480809104977`*^9, 
  3.847748086390889*^9}, {3.847900503019884*^9, 3.847900521072999*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"8ec63e4d-d2a4-495b-88df-06f31a859a02"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"row1", "[", "n_", "]"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"n", "+", "1"}], "n"], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "n"}]}]]}], "/.", 
       RowBox[{"n", "->", 
        RowBox[{"n", "+", "1"}]}]}], ")"}], "-", 
     RowBox[{
      FractionBox[
       RowBox[{"n", "+", "1"}], "n"], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"1", "-", 
        RowBox[{"1", "/", "n"}]}]]}]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"from", " ", "n", " ", "sellers", " ", "to", " ", "n"}], "+", 
     "1"}], ";", " ", 
    RowBox[{
     RowBox[{"ie", " ", "from", " ", "n"}], "-", 
     RowBox[{"1", " ", "generics", " ", "to", " ", "n"}]}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.847744358578888*^9, 3.8477443934683867`*^9}, 
   3.84774445012189*^9, {3.847744775550502*^9, 3.847744802398633*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"0d3c4cf6-6757-4b3f-bd27-bc18f1ec20cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"row2", "[", "n_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"n", "-", "1"}], 
        SuperscriptBox["n", "2"]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "n"}]}]]}], "/.", 
      RowBox[{"n", "->", 
       RowBox[{"n", "+", "1"}]}]}], ")"}], "-", 
    RowBox[{
     FractionBox[
      RowBox[{"n", "-", "1"}], 
      SuperscriptBox["n", "2"]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"1", "-", 
       RowBox[{"1", "/", "n"}]}]]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.847744456491535*^9, 3.847744472402821*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"683e8f8e-4fc3-4a52-9908-f34531f9dba6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"row5", "[", "n_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "exp5"}], ")"}], "1"}], "+", 
          RowBox[{"exp5", " ", 
           RowBox[{"normalizedinnovatorflow", "[", 
            RowBox[{"n", "+", "1"}], "]"}]}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "exp5"}], ")"}], "1"}], "+", 
          RowBox[{"exp5", " ", 
           RowBox[{"normalizedinnovatorflow", "[", "n", "]"}]}]}]], ")"}], 
       "elas5"], "-", "1"}], ")"}], "*", "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "exp5"}], ")"}], 
       RowBox[{"normalizedsocialsurplusflow", "[", "1", "]"}]}], "+", 
      RowBox[{"exp5", " ", 
       RowBox[{"normalizedsocialsurplusflow", "[", 
        RowBox[{"n", "+", "1"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.847747951469616*^9, 3.847747991554398*^9}, {
  3.84774824147396*^9, 3.847748330107813*^9}, {3.8477484165851707`*^9, 
  3.847748457817275*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"8ac7ceb0-d48f-4795-ab1e-7616911707cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"row9", "[", "n_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "exp9"}], ")"}], "1"}], "+", 
          RowBox[{"exp9", " ", 
           RowBox[{"normalizedinnovatorflow", "[", 
            RowBox[{"n", "+", "1"}], "]"}]}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "exp9"}], ")"}], "1"}], "+", 
          RowBox[{"exp9", " ", 
           RowBox[{"normalizedinnovatorflow", "[", "n", "]"}]}]}]], ")"}], 
       "elas9"], "-", "1"}], ")"}], "*", "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "exp9"}], ")"}], 
       RowBox[{"normalizedsocialsurplusflow", "[", "1", "]"}]}], "+", 
      RowBox[{"exp9", " ", 
       RowBox[{"normalizedsocialsurplusflow", "[", 
        RowBox[{"n", "+", "1"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.847748498239127*^9, 3.8477485230941343`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"55680e0c-f3f3-4a8f-ad9e-218b4cba98cd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"row1", "/@", 
   RowBox[{"Range", "@", "5"}]}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"row2", "/@", 
   RowBox[{"Range", "@", "5"}]}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"row5", "/@", 
   RowBox[{"Range", "@", "5"}]}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"row9", "/@", 
   RowBox[{"Range", "@", "5"}]}], "//", "N"}]}], "Input",
 CellChangeTimes->{{3.847744406422645*^9, 3.84774442735345*^9}, {
  3.847744486354473*^9, 3.8477444956167297`*^9}, {3.8477447654792233`*^9, 
  3.8477447684946404`*^9}, {3.847748463880131*^9, 3.8477484660549583`*^9}, {
  3.847748526989759*^9, 3.8477485293491173`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"b6f84015-99f3-40ef-bd8b-e9a2dae59098"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.4730819060501923`", ",", "0.12389681535604202`", ",", 
   "0.049271299359609166`", ",", "0.0243990934251177`", ",", 
   "0.013822758517334943`"}], "}"}]], "Output",
 CellChangeTimes->{{3.847744413970326*^9, 3.847744427725239*^9}, 
   3.847744496215179*^9, 3.847748466626487*^9, 3.8477485303143387`*^9, 
   3.847748605441496*^9, 3.8479003768156357`*^9, 3.8479005264069147`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"8a444da1-9e2f-4ab9-bbaf-16025d245a1f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.41218031767503205`", ",", "0.020649469226006967`", ",", 
   RowBox[{"-", "0.03589228378616249`"}], ",", 
   RowBox[{"-", "0.040850954556081676`"}], ",", 
   RowBox[{"-", "0.03650656371256911`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.847744413970326*^9, 3.847744427725239*^9}, 
   3.847744496215179*^9, 3.847748466626487*^9, 3.8477485303143387`*^9, 
   3.847748605441496*^9, 3.8479003768156357`*^9, 3.8479005264087267`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"84c1359e-05aa-43ce-bc74-c8c35e84c867"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.05345162953697352`"}], ",", 
   RowBox[{"-", "0.02370829907019261`"}], ",", 
   RowBox[{"-", "0.011657263205417262`"}], ",", 
   RowBox[{"-", "0.006450400922787694`"}], ",", 
   RowBox[{"-", "0.003907503151329566`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.847744413970326*^9, 3.847744427725239*^9}, 
   3.847744496215179*^9, 3.847748466626487*^9, 3.8477485303143387`*^9, 
   3.847748605441496*^9, 3.8479003768156357`*^9, 3.847900526412547*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"86b8c56f-2f45-4e4b-9c43-9e25d7e09631"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.05615119326191655`"}], ",", 
   RowBox[{"-", "0.027538608025275635`"}], ",", 
   RowBox[{"-", "0.014375922312079892`"}], ",", 
   RowBox[{"-", "0.008238827655096608`"}], ",", 
   RowBox[{"-", "0.0051006233567074885`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.847744413970326*^9, 3.847744427725239*^9}, 
   3.847744496215179*^9, 3.847748466626487*^9, 3.8477485303143387`*^9, 
   3.847748605441496*^9, 3.8479003768156357`*^9, 3.847900526414765*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"1bc45d7c-4277-4a00-ac05-2750be599c86"]
}, Open  ]],

Cell["Range@48 rather than Range@5 is used to prepare Table 3", "Text",
 CellChangeTimes->{{3.847748801152935*^9, 3.847748831457411*^9}},
 Background->RGBColor[
  1, 0.85, 0.85],ExpressionUUID->"0c326d59-f305-4572-a839-19057b8c4379"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1054, 1008},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"fafb6240-6203-4e81-a0ee-428eb5f218f9"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 216, 4, 98, "Title",ExpressionUUID->"73b3183a-8161-4d3a-85b2-bfcb1798f6e8"],
Cell[799, 28, 292, 6, 85, "Subtitle",ExpressionUUID->"efb36016-086a-44c9-8e09-7baf012b6664"],
Cell[CellGroupData[{
Cell[1116, 38, 168, 3, 54, "Subsection",ExpressionUUID->"572046e9-3e81-41d5-887f-fa5514a217d4"],
Cell[1287, 43, 377, 8, 30, "Input",ExpressionUUID->"6f768c44-0424-46b2-99f0-e6435ddff2dc"],
Cell[1667, 53, 497, 11, 30, "Input",ExpressionUUID->"1c5cb003-51db-47a7-a854-f60993495a38"],
Cell[2167, 66, 419, 9, 30, "Input",ExpressionUUID->"93d69825-1d37-4c6a-9ff9-ad86b8ee4037"],
Cell[2589, 77, 722, 14, 30, "Input",ExpressionUUID->"e6b9b21b-9e68-4541-a2ed-f892fd4bd534"],
Cell[3314, 93, 793, 20, 52, "Input",ExpressionUUID->"451680c3-28f3-4c28-b820-cccf13e3cf5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4144, 118, 158, 3, 54, "Subsection",ExpressionUUID->"a23e4af7-f693-4fa0-91c5-2bf1f286e2ba"],
Cell[CellGroupData[{
Cell[4327, 125, 2543, 75, 214, "Input",ExpressionUUID->"2d45b05f-16b8-4bf9-951d-3522705055e9"],
Cell[6873, 202, 50219, 1002, 672, "Output",ExpressionUUID->"ebe8a8be-5037-4a7a-a9ba-6331f3fe9f44"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57141, 1210, 155, 3, 54, "Subsection",ExpressionUUID->"bfaa5ec1-1f89-4815-b63b-488fa2358ce3"],
Cell[57299, 1215, 652, 19, 48, "Input",ExpressionUUID->"6bebbfa8-d0d1-4c04-8b32-7d7a4101b66a"],
Cell[57954, 1236, 204, 3, 35, "Text",ExpressionUUID->"7a5e6b71-ab5d-407d-b007-e3c79db993bc"],
Cell[58161, 1241, 1457, 41, 140, "Input",ExpressionUUID->"0bb40a02-506d-420d-8217-241521e146b3"],
Cell[CellGroupData[{
Cell[59643, 1286, 2632, 71, 180, "Input",ExpressionUUID->"85ad66ef-531b-4945-a0c0-171d864e6fbd"],
Cell[62278, 1359, 72317, 1431, 713, "Output",ExpressionUUID->"ae58e181-911b-4fcf-acfa-7fd50367b237"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134632, 2795, 209, 4, 45, "Subsubsection",ExpressionUUID->"192f572e-b205-4380-92d2-2030d3ae6712"],
Cell[134844, 2801, 929, 25, 73, "Input",ExpressionUUID->"cf3c2c56-6da2-4b2f-87da-c5718c83150b"],
Cell[CellGroupData[{
Cell[135798, 2830, 428, 10, 30, "Input",ExpressionUUID->"a769346d-0e1d-4e8b-8d15-5ca5be79e7d0"],
Cell[136229, 2842, 308, 6, 34, "Output",ExpressionUUID->"5c13c87b-2fc0-4077-a59f-fa1380e3a87a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[136598, 2855, 154, 3, 54, "Subsection",ExpressionUUID->"03a49d59-8db4-47bd-b7a2-47d320a918e6"],
Cell[136755, 2860, 407, 10, 51, "Input",ExpressionUUID->"06c7e8d8-684b-4a2b-9cd4-508714559236"],
Cell[137165, 2872, 743, 18, 52, "Input",ExpressionUUID->"8ec63e4d-d2a4-495b-88df-06f31a859a02"],
Cell[137911, 2892, 1117, 33, 47, "Input",ExpressionUUID->"0d3c4cf6-6757-4b3f-bd27-bc18f1ec20cc"],
Cell[139031, 2927, 781, 24, 48, "Input",ExpressionUUID->"683e8f8e-4fc3-4a52-9908-f34531f9dba6"],
Cell[139815, 2953, 1314, 36, 75, "Input",ExpressionUUID->"8ac7ceb0-d48f-4795-ab1e-7616911707cc"],
Cell[141132, 2991, 1217, 34, 75, "Input",ExpressionUUID->"55680e0c-f3f3-4a8f-ad9e-218b4cba98cd"],
Cell[CellGroupData[{
Cell[142374, 3029, 772, 17, 94, "Input",ExpressionUUID->"b6f84015-99f3-40ef-bd8b-e9a2dae59098"],
Cell[143149, 3048, 500, 9, 34, "Output",ExpressionUUID->"8a444da1-9e2f-4ab9-bbaf-16025d245a1f"],
Cell[143652, 3059, 548, 9, 34, "Output",ExpressionUUID->"84c1359e-05aa-43ce-bc74-c8c35e84c867"],
Cell[144203, 3070, 585, 11, 34, "Output",ExpressionUUID->"86b8c56f-2f45-4e4b-9c43-9e25d7e09631"],
Cell[144791, 3083, 587, 11, 34, "Output",ExpressionUUID->"1bc45d7c-4277-4a00-ac05-2750be599c86"]
}, Open  ]],
Cell[145393, 3097, 233, 3, 51, "Text",ExpressionUUID->"0c326d59-f305-4572-a839-19057b8c4379"]
}, Open  ]]
}, Open  ]]
}
]
*)

