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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    278203,       6984]
NotebookOptionsPosition[    265825,       6792]
NotebookOutlinePosition[    266230,       6809]
CellTagsIndexPosition[    266187,       6806]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox[" Blockchain Model\n", "Subtitle"],
 StyleBox["The VM\[CloseCurlyQuote]s Effort Under Insurance Model", 
  "Section"]
}], "Text",
 CellChangeTimes->{{3.847746868691206*^9, 3.847746905078404*^9}, 
   3.860296191963736*^9},ExpressionUUID->"ff515021-3af4-4d65-85d1-\
a6b033ab88a5"],

Cell[BoxData[{
 RowBox[{"Profitvb", ":=", 
  RowBox[{
   RowBox[{"\[Alpha]", " ", "pb"}], "+", 
   RowBox[{"eb", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-", 
   RowBox[{"kb", "*", 
    RowBox[{"(", 
     RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", 
   "cvb"}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitib", ":=", 
  RowBox[{
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitsb", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+", 
   RowBox[{"eb", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs", 
   " ", "-", 
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   "csb"}]}]}], "Input",
 CellChangeTimes->{{3.84774692485349*^9, 3.847746972128188*^9}, {
  3.847747397472211*^9, 3.8477474241671333`*^9}, {3.847747702882146*^9, 
  3.847747709330879*^9}, {3.847747747143688*^9, 3.8477477763814287`*^9}, {
  3.847749431163137*^9, 3.8477494324598417`*^9}, {3.84793877916921*^9, 
  3.847938800764226*^9}, {3.859451647703182*^9, 
  3.859451652258902*^9}},ExpressionUUID->"8f68aab6-8515-4506-b52d-\
c1d849ae4d65"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"Profitvb", ",", "eb"}], "]"}]], "Input",
 CellChangeTimes->{{3.847747574908453*^9, 3.847747592385933*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"e4bb1fcc-ddcc-4724-b249-ed3a03575f07"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "eb", " ", "kb"}], "+", 
  RowBox[{"pb", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
 CellChangeTimes->{
  3.847747593544777*^9, 3.847747717069852*^9, 3.847747781028591*^9, {
   3.8477494438937407`*^9, 3.84774946014732*^9}},
 CellLabel->"Out[4]=",ExpressionUUID->"196ac7da-34ac-4079-a41a-d9f2a123ff10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "eb"}], "]"}]], "Input",
 CellChangeTimes->{{3.8477475972713127`*^9, 3.847747624762442*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"f22fcff3-9030-48ab-9e20-4700177a8302"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"eb", "\[Rule]", 
    FractionBox[
     RowBox[{"pb", "-", 
      RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
     RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.847747625263291*^9, 3.847747719690132*^9, 
  3.847747787406109*^9, 3.847749469026313*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"38b01cd4-45c3-4784-93da-3832f7b770e4"]
}, Open  ]],

Cell[TextData[{
 "We now solve the Stackelberg game  by using backward induction. First, \
given any contingent price ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["p", "B"], TraditionalForm]],ExpressionUUID->
  "cb96cb48-0860-44b3-90fc-518a3fd09273"],
 " , by considering the first-order condition of Profitv, the vehicle \
manufacture\[CloseCurlyQuote]s best response is given as\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"e", "^", "B"}], "=", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "\[Theta]"}], 
     RowBox[{"2", 
      SuperscriptBox["k", "B"]}]]}], TraditionalForm]],ExpressionUUID->
  "2dafc78c-2b70-408d-911d-1955f056fa5a"]
}], "Text",
 CellChangeTimes->{{3.847747807161421*^9, 3.8477478677589693`*^9}, {
  3.847753492899177*^9, 
  3.8477534933566113`*^9}},ExpressionUUID->"67cfae92-6228-4172-8a75-\
7832e9feb274"],

Cell[BoxData[
 RowBox[{"eb", ":=", 
  FractionBox[
   RowBox[{"pb", "-", 
    RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
   RowBox[{"2", " ", "kb"}]]}]], "Input",
 CellChangeTimes->{{3.8477479605433083`*^9, 3.847747969736373*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1ee85c53-644e-4d8e-8321-026955f58d27"],

Cell[CellGroupData[{

Cell[BoxData["Profitvb"], "Input",
 CellChangeTimes->{{3.847747912370103*^9, 3.847747917283164*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"59949d60-8951-4280-8ac9-ee7772287d1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cv"}], "-", "cvb", "+", 
  RowBox[{"pb", " ", "\[Alpha]"}], "+", 
  FractionBox[
   RowBox[{"pb", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"pb", "-", 
      RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], 
   RowBox[{"2", " ", "kb"}]], "-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"pb", "-", 
      RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"], 
   RowBox[{"4", " ", "kb"}]], "-", 
  RowBox[{"\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"pb", "-", 
       RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
      RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.84774792468344*^9, 3.847747976136589*^9, 
  3.847749479902205*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"f1a5ffdb-dbd5-4a4c-9339-9267d8d7029c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"-", "cv"}], "-", "cvb", "+", 
   RowBox[{"pb", " ", "\[Alpha]"}], "+", 
   FractionBox[
    RowBox[{"pb", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"pb", "-", 
       RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], 
    RowBox[{"2", " ", "kb"}]], "-", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"pb", "-", 
       RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"], 
    RowBox[{"4", " ", "kb"}]], "-", 
   RowBox[{"\[Theta]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"pb", "-", 
        RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
       RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[8]:=",ExpressionUUID->"e03cef33-70cc-45a9-b64b-894bec1f25eb"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", "cv", " ", "kb"}], "-", 
   RowBox[{"4", " ", "cvb", " ", "kb"}], "+", 
   SuperscriptBox["pb", "2"], "+", 
   RowBox[{"4", " ", "kb", " ", "pb", " ", "\[Alpha]"}], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox["pb", "2"], " ", "\[Alpha]"}], "+", 
   RowBox[{
    SuperscriptBox["pb", "2"], " ", 
    SuperscriptBox["\[Alpha]", "2"]}], "-", 
   RowBox[{"4", " ", "kb", " ", "\[Theta]"}], "+", 
   RowBox[{"2", " ", "pb", " ", "\[Theta]"}], "-", 
   RowBox[{"2", " ", "pb", " ", "\[Alpha]", " ", "\[Theta]"}], "+", 
   SuperscriptBox["\[Theta]", "2"]}], 
  RowBox[{"4", " ", "kb"}]]], "Output",
 CellChangeTimes->{3.847749483422139*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"c15ebc03-4397-44ef-a54f-fc798765e51d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "pb"}], "]"}]], "Input",
 CellChangeTimes->{{3.847747934928581*^9, 3.847747945655068*^9}, {
  3.847747990074339*^9, 3.847747990316766*^9}, {3.847749510013332*^9, 
  3.847749510233822*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"96b7e3cd-41f1-4411-9d69-0d1058c9759c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pb", "\[Rule]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Alpha]"}], "+", 
        SuperscriptBox["\[Alpha]", "2"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
        "+", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"cv", " ", "kb"}], "+", 
           RowBox[{"cvb", " ", "kb"}], "-", 
           RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
           RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
           RowBox[{"cv", " ", "kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"cvb", " ", "kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["kb", "2"], " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"kb", " ", "\[Theta]"}], "-", 
           RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"pb", "\[Rule]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Alpha]"}], "+", 
        SuperscriptBox["\[Alpha]", "2"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
        "+", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"cv", " ", "kb"}], "+", 
           RowBox[{"cvb", " ", "kb"}], "-", 
           RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
           RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
           RowBox[{"cv", " ", "kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"cvb", " ", "kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["kb", "2"], " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"kb", " ", "\[Theta]"}], "-", 
           RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
     "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.847747946254937*^9, 3.8477479909637613`*^9, 
  3.847749511138077*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"90822e0c-4b9b-4458-b799-27740e6ef5d7"]
}, Open  ]],

Cell[TextData[{
 "Hence the vehicle manufacture\[CloseCurlyQuote]s participation condition, \
i.e., Profitv\[GreaterEqual]0, can be written as \n",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "e8caf941-6e8a-4a83-aa50-66fc0442c780"],
 StyleBox["\[GreaterEqual] ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", 
     SqrtBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["k", "B"], 
        RowBox[{"(", 
         RowBox[{"cv", " ", "+", "cvb"}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Alpha]", "2"], 
        SuperscriptBox[
         SuperscriptBox["k", "B"], "2"]}], " ", "+", 
       RowBox[{
        SuperscriptBox["\[Theta]k", "B"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]]}], " ", "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], 
   RowBox[{" ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847747946254937*^9, 3.8477479909637613`*^9},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "40512b83-52c8-4d11-812f-7812c7aedb10"]
}], "Text",
 CellChangeTimes->{
  3.847748022511788*^9, {3.8477492038365107`*^9, 3.847749241424397*^9}, {
   3.847749337927477*^9, 3.847749354337912*^9}, {3.847749518966936*^9, 
   3.8477496165223627`*^9}, {3.8477527105421*^9, 3.84775287548606*^9}, {
   3.847753473270898*^9, 
   3.847753474790654*^9}},ExpressionUUID->"9599649a-585b-44cc-8b4a-\
c4a5ebaf635f"],

Cell[TextData[{
 StyleBox["The IC\[CloseCurlyQuote]s Premium Rate Under Blockchain Model", 
  "Section"],
 "\nObserving the contract price p selected by the satellite owner, the \
insurance company can anticipate the vehicle manufacture\[CloseCurlyQuote]s \
effort e as given above. Operating in a competitive insurance market, the \
insurance company sets its premium rate r to breakeven in expectation. In \
other words, under the premium rate r that it offers, the insurance company\
\[CloseCurlyQuote]s expected profit,",
 StyleBox["r(\[Alpha] p+cs+f)",
  FontColor->RGBColor[1, 0, 0]],
 ", equals the expected coverage \n",
 StyleBox["(1-e) (\[Alpha] p+cs+f).",
  FontColor->RGBColor[1, 0, 0]],
 "\nSubstituting e given in",
 Cell[BoxData[
  StyleBox[
   RowBox[{"e", ":=", 
    FractionBox[
     RowBox[{
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}], 
     RowBox[{"2", " ", 
      SuperscriptBox["k", "B"]}]]}],
   FontColor->RGBColor[1, 0, 0]]],
  CellChangeTimes->{{3.847072090450409*^9, 3.847072097890996*^9}, {
   3.847074047134727*^9, 3.847074085951888*^9}},ExpressionUUID->
  "c21b5710-5241-4d7c-ba46-cfaf817fc9ea"],
 " , the insurance company breakeven condition can be satisfied if and only \
if",
 StyleBox[" p \[GreaterEqual] ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["p", "IA"], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "68d7423d-59f2-490e-a9c2-f7ef15d52475"],
 StyleBox[" \[Congruent]",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"k", "^", "B"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "r"}], ")"}]}], "-", " ", "\[Theta]"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " "}]]],
  CellChangeTimes->{3.8470757908903217`*^9},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "c968a0f2-71fa-480e-b3be-65f924a3b294"],
 " ,which we refer as the ",
 StyleBox["insurance company\[CloseCurlyQuote]s underwriting constraint",
  FontColor->RGBColor[1, 0, 0]],
 ".  And the premium rate satisfied with ",
 Cell[BoxData[
  RowBox[{"r", "=", 
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["k", "B"]}], "-", 
     RowBox[{"p", 
      RowBox[{"(", 
       RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}], 
    RowBox[{"2", " ", 
     SuperscriptBox["k", "B"]}]]}]],
  CellChangeTimes->{3.847327419294375*^9},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "3a6cddab-9005-4d9d-9cfa-e2c9cf681f0c"]
}], "Text",
 CellChangeTimes->{{3.8477529191029577`*^9, 3.8477529268173313`*^9}, {
  3.8477530346284513`*^9, 3.847753035168612*^9}, {3.847753368807086*^9, 
  3.847753376803918*^9}, {3.84775342883288*^9, 3.8477534814311123`*^9}, {
  3.847753520141313*^9, 3.847753522236432*^9}, {3.8478701916038446`*^9, 
  3.847870195642421*^9}},ExpressionUUID->"44601121-fd8c-4dc3-b13b-\
afb7352ac955"],

Cell[BoxData[
 RowBox[{"Profitib", ":=", 
  RowBox[{
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{
  3.859453260361512*^9},ExpressionUUID->"314118cf-f136-4b5b-b450-\
7507c7f388a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"Profitib", "\[Equal]", "0"}], ",", "rb"}], "]"}]], "Input",
 CellChangeTimes->{{3.847752971073448*^9, 3.8477529789299994`*^9}, {
   3.847753019292562*^9, 3.847753026650053*^9}, 
   3.859453261901173*^9},ExpressionUUID->"c719d7dc-86ab-4ed7-8868-\
806743ba3f1d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"r", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"2", " ", "kb"}], "-", "pb", "+", 
      RowBox[{"pb", " ", "\[Alpha]"}], "-", "\[Theta]"}], 
     RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.847753028851544*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"2a64f571-61c5-471d-a6e0-8bf7e94bcf76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The SO\[CloseCurlyQuote]s Optimal Contract Under \
Blockchain Model", "Section"]], "Subsubsection",
 CellChangeTimes->{{3.8470768941909723`*^9, 3.847076937239661*^9}, {
  3.847753509270722*^9, 
  3.8477535139856033`*^9}},ExpressionUUID->"9ca49b08-764b-4465-9a31-\
a70b98ecacb7"],

Cell[BoxData[{
 RowBox[{"eb", ":=", 
  FractionBox[
   RowBox[{"pb", "-", 
    RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
   RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]", 
 RowBox[{"rb", ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", "kb"}], "-", "pb", "+", 
    RowBox[{"pb", " ", "\[Alpha]"}], "-", "\[Theta]"}], 
   RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]", 
 RowBox[{"Profitsb", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+", 
   RowBox[{"eb", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs", 
   " ", "-", 
   RowBox[{"r", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   "csb"}]}]}], "Input",
 CellChangeTimes->{{3.847753541945079*^9, 3.847753558336581*^9}, 
   3.847964091568811*^9},ExpressionUUID->"a3663cf8-9bab-4193-b0d6-\
259c6401a5cf"],

Cell[CellGroupData[{

Cell[BoxData["Profitsb"], "Input",
 CellChangeTimes->{{3.8477535625820827`*^9, 3.847753566996791*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"da58d7ae-e4af-4135-bb02-552c5bd8ab3d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cs"}], "-", "csb", "-", 
  RowBox[{"pb", " ", "\[Alpha]"}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"cs", "+", "f", "+", 
      RowBox[{"pb", " ", "\[Alpha]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "kb"}], "-", "pb", "+", 
      RowBox[{"pb", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], 
   RowBox[{"2", " ", "kb"}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"pb", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"pb", "-", 
      RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], 
   RowBox[{"2", " ", "kb"}]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"cs", "+", "f", "+", 
     RowBox[{"pb", " ", "\[Alpha]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"pb", "-", 
       RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
      RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.8477535678323936`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"7fc1b3ba-ee9f-477f-a4cf-9743a1293bb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"-", "cs"}], "-", "csb", "-", 
   RowBox[{"pb", " ", "\[Alpha]"}], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"cs", "+", "f", "+", 
       RowBox[{"pb", " ", "\[Alpha]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "kb"}], "-", "pb", "+", 
       RowBox[{"pb", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], 
    RowBox[{"2", " ", "kb"}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"pb", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"pb", "-", 
       RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], 
    RowBox[{"2", " ", "kb"}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"cs", "+", "f", "+", 
      RowBox[{"pb", " ", "\[Alpha]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"pb", "-", 
        RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
       RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[12]:=",ExpressionUUID->"2f47487f-24f7-4ad5-b3df-4d1eb468a80f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", "cs", " ", "kb"}], "+", 
    RowBox[{"2", " ", "csb", " ", "kb"}], "-", 
    RowBox[{"f", " ", "pb"}], "+", 
    SuperscriptBox["pb", "2"], "+", 
    RowBox[{"f", " ", "pb", " ", "\[Alpha]"}], "+", 
    RowBox[{"2", " ", "kb", " ", "pb", " ", "\[Alpha]"}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["pb", "2"], " ", "\[Alpha]"}], "+", 
    RowBox[{
     SuperscriptBox["pb", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "-", 
    RowBox[{"f", " ", "\[Theta]"}], "+", 
    RowBox[{"pb", " ", "\[Theta]"}], "-", 
    RowBox[{"pb", " ", "\[Alpha]", " ", "\[Theta]"}]}], 
   RowBox[{"2", " ", "kb"}]]}]], "Output",
 CellChangeTimes->{3.847753570292265*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"11713ef1-af1a-4ac8-9d24-83e855ea10f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"%", ",", "pb"}], "]"}]], "Input",
 CellChangeTimes->{{3.847753574086444*^9, 3.847753581733655*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"8ee53eea-d352-4ba6-9a32-b64a3f9596cf"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "f"}], "+", 
    RowBox[{"2", " ", "pb"}], "+", 
    RowBox[{"f", " ", "\[Alpha]"}], "+", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", 
    RowBox[{"4", " ", "pb", " ", "\[Alpha]"}], "+", 
    RowBox[{"2", " ", "pb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
    RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
   RowBox[{"2", " ", "kb"}]]}]], "Output",
 CellChangeTimes->{3.847753611377862*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"de7968b2-b5b9-4fb0-94ef-a007bff1a147"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "pb"}], "]"}]], "Input",
 CellChangeTimes->{{3.847753617643852*^9, 3.847753625152431*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"6a05dfd3-dae1-4bba-87d4-69394b5ec63c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"pb", "\[Rule]", 
    StyleBox[
     FractionBox[
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
     FontColor->RGBColor[1, 0, 0]]}], "}"}], "}"}]], "Input",
 CellChangeTimes->{3.847753646410494*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"b693fdb6-2743-440d-aea7-516cafd7c4b9"],

Cell[TextData[{
 "for the satellite owner, her unconstrained optimal contract (p,\[Alpha]) \
can be written as ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"p", "=", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"f", "-", "\[Theta]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["k", "B"], " ", "\[Alpha]", " "}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}],
   FontColor->RGBColor[1, 0, 0]]],
  CellChangeTimes->{3.847335457059067*^9},ExpressionUUID->
  "9ed93b4e-364a-4c9b-9515-3742e507055d"],
 "\ns.t.  p \[GreaterEqual] ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["k", "B"], 
         RowBox[{"(", 
          RowBox[{"cv", " ", "+", "cvb"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["\[Alpha]", "2"], 
         SuperscriptBox[
          SuperscriptBox["k", "B"], "2"]}], " ", "+", 
        RowBox[{
         SuperscriptBox["\[Theta]k", "B"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]]}], " ", "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], 
    RowBox[{" ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], TraditionalForm]], 
  "Subsection",ExpressionUUID->"8df514c3-375f-4783-a2aa-4c1dc676d842"],
 " ( the level of price that vehicle manufacture will accept)"
}], "Text",
 CellChangeTimes->{{3.847336159830171*^9, 3.84733640202722*^9}, {
  3.847753790831712*^9, 
  3.847753830464266*^9}},ExpressionUUID->"567cadd2-722a-4b29-bf0a-\
c95616a8dc2a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[CapitalDelta]p", ":=", 
  RowBox[{
   StyleBox[
    FractionBox[
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["-",
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{
    FractionBox["1", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "\[Alpha]"}], "+", 
      SuperscriptBox["\[Alpha]", "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"cv", " ", "kb"}], "+", 
         RowBox[{"cvb", " ", "kb"}], "-", 
         RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
         RowBox[{"cv", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"cvb", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["kb", "2"], " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"kb", " ", "\[Theta]"}], "-", 
         RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], 
     ")"}]}]}]}], "\[IndentingNewLine]", "\[CapitalDelta]p"}], "Input",
 CellChangeTimes->{{3.847753855785996*^9, 3.847753930690784*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"87b2e842-74b4-48a0-85f3-dca215d473eb"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"f", "-", 
    RowBox[{"f", " ", "\[Alpha]"}], "-", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
    RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
    RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
    RowBox[{"2", " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"cv", " ", "kb"}], "+", 
       RowBox[{"cvb", " ", "kb"}], "-", 
       RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
       RowBox[{"cv", " ", "kb", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{"cvb", " ", "kb", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["kb", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{"kb", " ", "\[Theta]"}], "-", 
       RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], 
   RowBox[{"1", "-", 
    RowBox[{"2", " ", "\[Alpha]"}], "+", 
    SuperscriptBox["\[Alpha]", "2"]}]]}]], "Output",
 CellChangeTimes->{3.847753931086432*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"04876032-56ea-436c-9693-c277eae0008e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"f", "-", 
     RowBox[{"f", " ", "\[Alpha]"}], "-", 
     RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
     RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "\[Alpha]"}], "+", 
      SuperscriptBox["\[Alpha]", "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"cv", " ", "kb"}], "+", 
         RowBox[{"cvb", " ", "kb"}], "-", 
         RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
         RowBox[{"cv", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"cvb", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["kb", "2"], " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"kb", " ", "\[Theta]"}], "-", 
         RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[19]:=",ExpressionUUID->"1733062f-de8d-4921-966a-865f9590d3b1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"f", "-", 
   RowBox[{"f", " ", "\[Alpha]"}], "+", 
   RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
   RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", 
   RowBox[{"4", " ", 
    SqrtBox[
     RowBox[{"kb", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"cv", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
        RowBox[{"cvb", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
        RowBox[{"kb", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.8477539337313538`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"7993e195-2393-4e70-874f-91b4600c6577"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"%", "\[Equal]", "0"}], ",", "f"}], "]"}]], "Input",
 CellChangeTimes->{{3.8477539534153643`*^9, 3.847753962764597*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"29c40d76-886f-4526-85da-a95936b391d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"kb", " ", "\[Alpha]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "-", 
      FractionBox["\[Theta]", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[Alpha]", " ", "\[Theta]"}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"kb", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cv", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"cvb", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"kb", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
      FractionBox["\[Alpha]", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8477539633715887`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"d0d0694b-504c-4e83-88d7-61a33ff68dd4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"kb", ":=", "60"}], "\[IndentingNewLine]", 
 RowBox[{"k", ":=", "100"}], "\[IndentingNewLine]", 
 RowBox[{"cv", ":=", "30"}], "\[IndentingNewLine]", 
 RowBox[{"cvb", ":=", "10"}], "\[IndentingNewLine]", 
 RowBox[{"\[Theta]", ":=", "80"}]}], "Input",
 CellChangeTimes->{{3.847753015242653*^9, 3.847753015412724*^9}, {
   3.847753925874901*^9, 3.847753927619275*^9}, 3.8477539744259777`*^9, {
   3.8477540671323137`*^9, 3.8477540720376873`*^9}, {3.847754146022307*^9, 
   3.847754151763549*^9}, {3.847772730898389*^9, 3.847772732935433*^9}, {
   3.8479415944516497`*^9, 3.847941597513698*^9}, {3.8480109751290417`*^9, 
   3.8480109764086313`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"3302e9fb-5e8b-4b53-a2da-9b31aa462672"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f1", ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"kb", " ", "\[Alpha]"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "-", 
    FractionBox["\[Theta]", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{"\[Alpha]", " ", "\[Theta]"}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
    FractionBox["\[Alpha]", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], 
       "2"]}]]}]]}], "\[IndentingNewLine]", 
 RowBox[{"pf1", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{"f1", ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"GridLines", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.847753979765313*^9, 3.847754000981851*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"21ca83e5-2f0e-43e5-9687-553e8fe7532c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk0VV0YBnBKhCKZp0pUFDKUyifvjkJSkhSJJISmaxaZ5zEkU0pknjPP
U2YZM2QIKVz3XpGIiL59/zrrt9ZZ6+yz93Pe5wgZP7lmuo2GhkaCloaGelU3
JfbWzekooryfbpFyBESnzEeY4D0BB80KZoKwZRNi4gt5z8PIkYN6XtiXOocK
XvNeh6LtB+9aY980Wa2O4DWBSOajW1exvxz3Uw7htYXfxBjCHuy3nJq+gbze
4NGK9GJOEpBzZ3TjjQpv6JHWgXDsGz6T24T1fcBorVg6EHvXipVbZbwv2LcQ
/nuG7dgf6UjZHwDDtHrfjLC1XoxYXjkcCuQVswBxbI+dhUcCeCNBnPvptc4T
BHRUNdy/gBAJpKwEnRbsPp8nc6MtkaDLtXm/Hltku3iWpP1LCDBxqCjGbt5M
luzvi4LPV45wJ2Dv+hV1cn9wLGitmxfbYhdL20WpfYuF7pljeU+wDQnaq1by
ccA5EFFmiZ03z1reSIyDQTPzdSPsa0R/BcsL8eDSuyx/BTvmi5Ny8dYb2L2S
V3wM+5yAXvK4TgL8y1jNPoJNunVqx86cBCi31S4Sxt5HeXovR+ItqJbd+8WP
/cRC7hDN2Ftgjs2V3Y3d6J8yEMmQCAn+htmM2DzpHL5isomQWqx/kh67bmZp
5lpgIqi8vOX4T5aA9prkpaecToKZ9yc+LGGbee3TkzdJgsUantoF7MqkEMbu
50kg+curg4Jt8vWB5dpMEpjT7OaaxS42FBW/9PIdPE0usR7DZnKNHpuoewe6
H9/+GsY2fE0fYkt5B9ztGj5D2PRj3+dfKyfDy2GG0T5sXb3EvMWfydC2Nny1
HXth9DpTEl8K9PX6PG3F9jXcaaqtnAIs0rTvm7EL7z3hK4lMgeFpV40P2Ooz
B+3uV6eAqk1Ifj32pPlgN89MCuT/9hKuw2Z5fNbH+VQqdFmck6vGTllcnBA3
SoWmZI7BSmwFm2T5cf9UUHxI9K7AtnRkXkQjqUB3LZO1DJt2o0Z9aVsa8HYn
k0uwY1ysU94dSwP5qLLBYuwmz+Fb9C5pIDN6fqQQ+/aOkOLSlDQgdLQtFWAv
+aE9Fl1pEEly56M6gGnZkm81DTYdCFrvsQ+EpDV17E+H4OI30fnYpaz6B1zU
0iF0lm0+D/tKBIuzpFU6jF7v0aJ6mqNhYCI2HT6oTDblYj+LtpMKb0gHVka1
i1Sz84kFKZGxSbvHcrAz48emf7FnQIj8aVeq0f4wlKKQASOXO49TPZSo/OqG
aQY0Pf20mI39WGR1hSE0A1K4tOqppkvLvFpekgFabhqJVL8SM8yynMiAI2wf
w6iWyWajF9iZCSzig8+pbpNsMuqUygQbGas3VBu9d6x01csEzYB3VVT/lhXn
kvLMhP0xNiSqQ0omCF8zM2G5dfYIdT0iZ150RHzKBCN/ejuqKypVDp//mwlh
FwZ7qdZSXHdfEckCaWsDRer7EutyRlMvZ0GYZ1IF1W7Kd+V07bPg6XyWCnW/
uJo5whkTsuCWuPsU1dlqreSKliw4UnkolLrfyh3OKg8Xs8Ca591F6nmMXD6e
KMibDbeatjio50XomdroOpcNby7AItVvBi6+l36RDcxj/oNF2Cd1N5m/VWZD
Mn3CV2oePo7km0V+z4bHEkV/qXn5M8EtsHoyBySKV4zLscOMO+zTDXPAAo7n
UvN2eNq1V88vBxx4PBmrsK+Tpn2rPueA++HQxRps8sPYr49oc6Ej9vozap49
FzQU9h/NhcDPV3gasPOXC396OOeCwLU/7k3YzP88bqvuywP2rUnOTmpeLW4a
iqvkATOfL283dX/7xY3YHufBLZGf4r3YihlD90ar82DcRMZrALs8I6q4VDIf
TJrZf4xj09zxkMtUyodPtnGEr9gqHA9L42/kwz92vu3fsT+5niv3cM0HzQFB
3TnseW1K1aWufOhtIjcsY59gHDqrOJUP1eo/mlaxnWrqa6R+54PNPcHhdWwG
seg6zn3vYVmLX4oWzyehrXONE4/ew59qjUQWbJ306A6b3QVQx64cJY4db+Cp
YSZUAIY3DiRIYU/tfdSpe7IAfA1elJ2gzkMXpe6zBgVgbqQjeBY74Np8H0NO
ASTo0+VR5231X6WRVxqFcIi4sEad33QFEvqhRoVw0/4KixO2+n2eMXfbQhiN
yj3hhj3UO//FNL4QvCdCiwKwf6bGfD1OKYTKW889qH1wSOsH8UNQEbjJRd/o
wuZzU5W/n1gE4r9Ldwxg78l5G8RUWgRrSoZto9jrO7UltaaKQFXpTugcdk9d
qc346WIInZLYQ4/7yknKY2ttuhiC06bWlbCfGI5oxm8Ug6Nb5G91bJNgPMzZ
SiD29W0GbWxN4rSyr0IJiN+7bn4PW+StegD7ixLoWfgm6oPdxcrBIYlKwXjt
TfZH7A9nH5n26pSCzCemrQHssgfNJbYPSuFmvJDpBPa7Fke9yqhSkM23s12i
9qvblzdq86WwUVsXw4v7+uBCqti9uDI4tC5H8xDboesMxCyXwyT5QKjQKTxv
JYun23ZWQFDo3s/i2MkhUsEbAhWwELR48jR2r8aRYcMLFbCxEC6hiX2sg8Pm
UFQFTHtd3u2KPdGykFpwqhK6v3S8nMBWrU9h6XSqgj6+IrqC0wQ0fkCoeCu0
Cpzq+MZqsW3d4/Wl3lXBw0n71k7sRHiR/qKjCsSjpCfnsDeq3ZVuCVRDXUfC
LuEzuI8r9O1nq6th/M6UUSw2dxHbOC1tLSgv9MhGyeP5Hbxx/TtXLTDtGhVM
x04yme5oFq8F/QMdQhXY4pzl5UG6taDSGOgwjq1kb/SSM78WlkVa9UX/IyC5
+Jupkcfr4KvOZbZ67LuGqQbp43Vgtrnfk/4sAXmr88fGztXBfLFBLT92qlxY
f+ByHdgOr3JLY1NYnC49YqqHvOdW/Lex7Wsvn5GRq4cnYp0PC7GDD6xwVIXU
wz6dduX7igRUMqX8sVuhAYp2HOb9DgQ0qObxM0S1AcjuY6Z/sX/n1nBpXGuA
yegnXRyIgE45n7nber8B/nTq/7qAXcZ+/HddRAOorb4JycAuP893oIDYAIFZ
9iz25wioKnXRJjLyA7DtqYwWUSagBsvX/HqURijIVAoZUcF9PPfggeHvRtjH
v8y2hp1sLl95j6YJNl3T3nOqEpCP2dCtxxxNcP4TKGlhqxmzxXkpNEF+kEVG
G3a3ng9PbnATGEmpxtaqEdCY2iPO7RLNQEN/5XKdOgGtHD7LmvOoBdzUjvlx
a+J5NaXUEujYAo2pjmcB2/e1mpu5VwuUXyNx3cfm4ri+IBzbAn+tHWVLseVo
H3THNbbAk2dLHHpXcZ5HY57787cC/XUmv3daBPT3+TKrSVsr6OzPiNK+TkDb
/mTt4T/UDgOlP5aEbxEQf6fSLzjeDg7mwrla2CcShwdMzrSDdKR/kBu26UWG
V7mX28GgXyBnFLs11viQkn07TEb8CX6pT0DP5XnlLVraYVlgs4PVgIAEnvne
K7XogNBIhex9Rnh9/4xKtHM/wqYAt2yGGe4P7xNdzUe74VJyr8V/dgRc1+Q/
GT964L9S7agZP9wHqxPjA1J9cCrLuPtyPN5vUmU7S+gn+KMWmb+7BH9/gmkL
37/3ww2hqzutPuG8WBSbvRUZBMd8UeHlJZwHlPXd3G0IOGnsfxzis0K2Mo1F
XB8+Q6VqNy3teSs0kdsY1Cs0AgG/6Ow+OVihDcv+V2JOo6DOvdnPWWCFjp1j
2DKrHAOFMhbHqQUrpJokdP899zj8ezUyy6VgjRwE7xz8ensCukf3ie0MsUbi
FB3mocuTEKgS3tMzY43YWRd3Nq5PwtWLsbP+OjaIrvZVnnD8V3h9KjJMrMMG
PThROcx4aQp+RnM6pt22RVkXjd/W/J6CDXcbYiKNHVoh8+2ZifoG/YJ02XF5
dqhYW3V75PnvcKKE0SM8wB65qfkkFM18h8hdG9Fqtg5I6Iv653c+09Cad/Sn
pIsjkj/lHckrMwMvQ06XmXU8Rbf3df+h/TQDCdPm1lannRELr3Vx5cAMrHWu
rgmBM6pn57Sy+zwDEi8W9g9dcEaHGfWJxC8zIFrTeEdT2xkt/JoZ7CbOwEXL
NgHHx87Is22r8PXWDMjQ/lXPTXFG6baSj88cnQUY2+n5kfsZWmkPmSJ4zAL/
JrPSKLMLGmMeMP/rNQv/so95XmV3QQ0aAgt+vrNQr+c63M7ngsK6MjfeBM3C
gzvSk11iLuhoXwtH58tZuBIg18Oh5oIMh2lVxTJnQXIh1ijexwU1z9plfe2b
hZQ069QqOlcUQ2doe02ECPrqvYUWHG5o6x73yd7DRGgrllQ8IOiGTD70rGiK
ESGfiWtt7JAbkvJUdrgsSQQFX8W9FqfcUOs/USe100Q44NDo9/GWG1pd/+Wm
qEEEvwTn7qYkN3TjZ0DQUVsiHCTG8Q/xuyP28eKkbY1EGOviEHhQ6Y5Cd7m4
lDYToaz1FYm73h0x/Xde92EbEeSeqJq0NbujbTF9uwe7iBAfc/ixfJ87WtJa
cMwYJoJoqoOVzpw76mkS1by6QISq8Ja/NjweKDjn1cZrvjnwkxXkc3byQDtc
PK6fsZqD6WgKmVXTExX9pPyptZmD95ps7m90PJGJmW6Civ0c9A4oB8rc9kSN
msdJ2s5zQLp9mu+BhSfyPvjF7bEPvj9Me2yftyeiaz2d9S52DozPnMiMqvBE
29gXaVka5iBArDJx9ZgXKvDTT4tsnAOlAmtGJVkvZPy3WYO/ZQ44Z9ObI+S9
UMP062jRj3NwJszbSPWiF/IsuyShPDgH4+ym85tmXojWME3XkTQHFEK/Vdo7
L0STYZg3tZcEi7rWwkcOeqNmytDjBE4SlLf7ba4f9UbBUlqSt3lIwDHJFjgk
6424y5RzBgRJcOstCznzgjeSbBHNahUlQfKfR4eqLLzR7eml1FxFEiD17NAX
hd6oXMjvjZMlCcBEYNLmig9yNaUxPPWIBEOO3NcddH3Q+YyngstPSKBcwC/p
Y+yDeqQexj+yIwHr6JhWnb0PIoJWnJE7CRztlVlKEnwQlyF/lEoUCQJePbbO
+eWDrOPyQvY2kECJNj9IOdkXlf6N82toJIGKnrCva54v+mvo62HdQgJ+t603
TRW+yE/YwK7vIwkW1JgdHHt9UXw2k0HEEAlW2GYHrf/5oqYaU/G98yRgU/QJ
6TDwQzzf+DvYeMhgZd38IEHEHxlcYGiq5yPD9o7ebB9pf5SUtlRjJUgGa3mj
UidFfyT+sK2g9yAZHk1sDwrX9UfnVuzjwiXIEDx0YcY2xB9ZMvRZsCmT8f/i
0RXRdX9Ufcx/J9tjMgjOMAozTAYguX7uzggCGY56qtaszQeg/Gdp4Rw2ZFhw
uXR+fSMAJXU28/E4kkHDXNVJgicQ+T/ZIbHfkwyrMnquN7UC0bVCTy2JKDLM
8tlJ9zUHoll5l7iLNWTQzfaikakNQkbfdt3pqCODufH9Dt3uIDQSFC98+QMZ
LgiUq7+YCEIfxyqzr7aS4eXzg7+UaYJRget6zc0+MqQenuyPVgpGzxocvpnO
kIHElnvxaEcwYlO3FvdkoYDUdGTZnvkQ9LaelVmejQJb50e3wmlDkdSZnLmf
7BSYfHrcSoorFF0RJabe5aVA14XBziYIRYH0hkLnRCiwWOtxSi8yFNF9uMhF
I0+BlEzjeH3l5+j3f0I0rqYUqPe+lG1oEIZ8CmvGT5pTgPFl354iizDEcex2
9bwlBfT2h78UsA9DsnzRTgYECsjF9+ceeR6GCGu7VhScKbDmQGE41hCG5orW
5jbCKGBzduEuq3g4GpPo+fS0igKW9K2SpXsiUAKZzWV7LQVGmsa2de+LQMYZ
2odD6imgMD+ruikegeZEhhzfNlOglK517fXFCPSbf1ywpYcCmSLz0yteEYiN
iXKfYxo/T5qjRHozAiV+MGP8xzQPe25sGsgsvUD/A3Lj8aM=
       "]]},
     Annotation[#, "Charting`Private`Tag$3087#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 259.22962936078045`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1}, {}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {259.22962936078045`, 1276.549186666849}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8477540347454243`*^9, 3.847754046084867*^9}, 
   3.847754164450485*^9, 3.8479416032630253`*^9, 3.8480108797234373`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"eb7d672d-8509-47a2-9f74-42c44de0aa62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f2", ":=", "1800"}], "\[IndentingNewLine]", 
 RowBox[{"pf2", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{"f2", ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8477539923080482`*^9, 3.84775403093742*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"399f54d3-292a-4af5-8ae6-eecd386252ba"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2DCCgMMdhgah/W5dkiz2M38ixWb1T
cgqcHxG5cP2Hj0vgfO7/jTHucuvhfNXAdy8Od2+B88vPWdrP+LITzhffIniP
kXE/nL/tkfOZ8zaH4PxDWXOlI98cgfO/qtnyr809Ducz/VwtIK16Cs43+5+w
LXjdGTj/TIvJuWNa5+F8+Qmvf658dwHOf/39/r2rBpfg/CWvdp/i67sM5/PJ
Ln//5MkVOL8nc2vaApVrcP43h9VPMuqvw/klRke2iB2+AeffX3ek+6LiLTj/
d9aV2ZpVt+F8bUf2f2m778D57osU0zeK30OEl2y80sOY+3C+zptQ7uu+D+B8
Yf4PHEd+Ifgs+2evV57zEM7PNtl9k9P7EZy/2jNpwb5vCP7X11ICz6Y9hvO3
BrszT3F5AufXe7TO3/IMwVe863VjcetTON/KvGWKpNEzOD9G7vxPxssI/tdT
vY8KGp/D+TNY4kqCVF4g3H9v6yKmIwg+a21jiGXhSzifYWXc+kdCr+D8olnr
e4UOIfh7tTs4BPNew/mCXkU6TXxv4Pw7uhcuV+5B8DfMs1d5EvcWzo9dbyYo
+w/Bb2hd2Hhn1Ts4f+0L2dl8Pu/hfKUWEQ/2ZQj+dHnur///I/gADrYHKw==

       "]]},
     Annotation[#, "Charting`Private`Tag$3623#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0., 3600.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8477540316596537`*^9, 3.847941633544677*^9, 
  3.848010883683879*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"02fcf579-5981-4849-a302-ba44be747ec5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f1", ",", "f2", ",", "f3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"Filling", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", "\[Rule]", 
      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "1", "}"}], ",", 
      RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.847754217284349*^9, 3.847754217604663*^9}, {
  3.847772770611889*^9, 3.847772773234223*^9}, {3.847941750574335*^9, 
  3.847941821068432*^9}, {3.84801091273982*^9, 3.8480109214708242`*^9}, {
  3.8480109927349043`*^9, 3.84801099313518*^9}, {3.848011922212268*^9, 
  3.848011931939597*^9}, {3.8480119795700483`*^9, 3.848012020880034*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"a7cba156-a00e-48f5-83ff-3f4f2432b707"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx1mXc8l9/7xylJKVLIjJKGJEpW5TooJA2hKEmlQaW38UbJzt4jK3tvssve
ZBMKoWWPBlKh3/F4fO77+9fPPx6vx7nvc+5z3dfrep/7eu68+eji7TU0NDT0
a2loVv+r3B7rqBjXlEVZ320DJSjIniF3rxtnIAhvf3yxRZyCtLRjsr59j4fG
xfcX3hyhIMZ/9jpKO7Jg28owWwvWgmozY9UeeWArEXypFV9v0SoNIXOvYHiS
33unJAVtz2MZpKUtB4XZ9iNBMhRU8Emhue14FeSt28P5BSioyjCCW3uqBnJS
5b36FClofs8J5oyH9WCrfMBl+3kKWvM7bQu34BvoLpz5IXCFgiT+6RWoZzbD
Ms/2Iyl3KKj5mXhrnVAbnInvMDhGpSA+38nfKTPtcKxQPWjEhYImfw0Ndot2
gmTazbaz4RQUP1H8hsm7C34rB2ZvLqAgJt6k2S9f3sKlnRcYjLsoyNMg/070
7h6wzN4nMPeDghZQ2pd7tr3ARmM+I8hljMwO1+SxV7+DYqU2WtqTxmgos8aj
Y2cfuP2ko3ZZGKO/hm9f7H/SDyrbl9+y5RijA3LrV+4UD8DxIibLT7PGSCl2
592X2wfh34u+UfbjJsiC9/qujzpD0Na/Yz+DlwkSntJk7D07DO6Kfu3tIyZo
G/M3hpo/w3DhdOioq6Ypoit/kSUQ/hEiJAN99zeZovvixe83nPkE34PZLJN0
zFDa6ZvRZQuf4K+d6VgMDRXNT3JtGQn6DG956dLDsqgoX11pbeDJLyBesMHe
z80c2So7ReWNfIHATX+Dlc0s0M4PKu/inL5CQ5bQdxFrSyQj+SyQ8/AIPPeS
KrrT9Bjp7Gj7Tds1AlFf75kYS1mh+Tdenyj2o8C9zCjfz2iNQuh0zS7uHoOr
Kh25Bqy2aNtgfuyamjEYaGXluV9sh9ZZ22tIG4/D1+CpSebzDogmRTfr09YJ
+KZlIrB31zNkEpbltbVqAuRpsz0U4p1R6QFXBhajSeAd2SCwftgNsaiYCDsw
TYHo18CiLdNeaOBge9fjkikwpG8QKdzij7IjYfcX3WkQ7/NJf0kJQteyJFh4
V6bhaVLOsJ9pBLJzirEfSJ0BwUbpvI0KiSiYj3H+379ZaLjCNrvsmYWi2c47
u3M+A/sGpB1ylIJCPjxRyF+JhM3zWfkHcH4fTmeh52FIBSbhHp90nP+aycFN
pptzoGKbQpAwHm9lZmUVQYVwczEyvRnfr1SZwNTypAQ6ufLocqQo6IZu4rXk
wQq4s8znQH+CgkoSv5kGBlYDy5bi4N0KFDSg/JBt7cE6oKE/d7ZChYKWfOaY
9RsbQJMvJUhdg4J4njrfKjRoAu/A4+k79Cgo2UzESFpoFGCAwaF5+1NUN0pN
+9g5CglJJokldDbo0nc3DyGzMdg1Fsbdy22HPDNe/I3gGgeXI7xcVk/s0Zpt
32iZqsbBbX9xzK8DjujVTpfIJ4YTAPo8w6bnnBDHZ+4mFo5JMDapux+12xWN
yliHnS6bBK10R5rD5R5o4dhOGpvbU1D57Ey67jVfpDiyfilz8zTkBnvG+KwN
RPR7i8PsMqcBKasaFlqGIiOuB41PNWaAJdP4QvbrGMReeN2b+ncGlrQjTQQl
MtCHQy4KXpxmsDAWQtmC69Gmn0FH+TxDQe3PvXwzHN9ah/dX6K2T4HD/yb5c
HP9p9amSM63Z0FE7WTWH9RNR+5XFr/ngmfTpjzyO/1D9bGKOZDG0fWh6PoTr
kUT45cTAQxXwUfMsS+UxCnp1kos/Z6wK3NPMmczlKKhN24kj07MW9ESVQsuV
KciyP8THlbsB6DU2usSpUZCPDKeMQf0bmONZbmK+RkEOjSu5ESsjcJh2SSUz
wQrpvqdV2p86CiKzoXrhTtbo15+ftrKqY+ASZdVWG2uL2mv3nb8wOwYlfvVL
phz2iK5BKi0udBxuSounBr12QDpffyRmyk4AUkn3Dsh9hmrLbgtvnZ4AFlkn
r6ZrLuhiroPawaBJGOWiinXWuSO66tPsNDJTkJB6M/yqgg9i2Th1l/XrFCyK
sRaILfuj/pvW13Ocp6FGYc3K1oFgNKKvNq26fwaen8pbqGWPRmciaRj2d81A
Qa37epFTKUgtoM/w3B5vmJy/4yaM47dVPys5QSoWRl6KV//A8Y3sPv1SLCAd
GAdce/KwLl2S73uhmguCY7OLq+9n12zi/lthRSD4R4LmAX5/Wa+vmo+WlsLg
9U96odK4vvLPs5Z4VcIOzTcKd2UpiFY3SctyYhymKG+Nk+IcEbsud5Bi0AS4
vTAyyfjphAzXdxqwKEyC8zWh+X1/XNHTKovPt0cmYYIl87RQkycaz1sc/+s7
BaYnZm8wC/shqyoB39MS0/DWz6r02L7n6PDkYve5nmn407xfT1btBfrV5pyQ
bjsDYz49AZTSOHRZ/1epP6c+BDIKrVzAz1u3HC/ytjMI3p3buz0K74fJ6IST
lWQitBrISZTi/b5KCcovFMkG/bptM4NYt1cUmg5K5YP3p4Nb6HG8DjSxmgoG
vYavjmc32+B8kzfXe86WXQ5zuxuu7sP5VrTt0EKFfxUo/4r0SkEUpHyTJczx
eC1kexikNCrh/KS93xZWUw+Pnv5g1b5AQQ2hNwXlzd/AsP9vz+dXKWj250hP
29gInDZs5LE0skJCnfWsLc9H4ZybRDursjVq+LfvibLUGPBb1Lg0X7FFP9Rm
LVPej8G+RAtjzXE79GzXB1sjp3F46as+sOOZAxKp35fWsG8C4n8/FCwxeIbC
0zde8++dgHmW0R6Tf87I9dG6g3wOk/DrsLbNZTV35E6vu1Nu9xR8K7eX1A70
Rgvcg7z17VOQunv667yjP6qzG5RrMpmGxmgpujf8wWjXxpP/8rbNAMfnG337
KiPRCEtHzZryGWB6ubT5Y1oSsnwbaDnF5wbvabU/6+H4PTKQEKQZiAbG0Mwj
m3H8xyoy+hPPpoGvQ+zrTBxvt4vTneszciDqKl3WOTxuafshUnm6EP6WV4Rw
4vf3t9RO/gpPKVQ0RW0SwPlmXn5W+rBEJTza3/IgF9dbh6IzBxV6xmFw2+3p
5TuOaAzUwvTsJsDSXIGpIMoJyc2bh/kdnATP3lMjZl6uKMfmT9nlzklI3DP8
NljeE1EWN80ft8L+sphaf6DKF+m9ZVNc2jkNpYV55k1+gYhnw5Wiu1XTEP/G
kr9QJwwdpj4uZDWcgRt1Qg/UMmPRxTHX44anwsG6Y05m9fmfBlNF/aqSgXmD
8unV/e1ckasZevgSfpeqxjDh8d3RKm7bAgqgffbzPiccn28neaxDw6ZhXZvg
7bi4EJRartv/RXYGPiRc5A0ajEbZQqJnzo/OQM49/zs3ONNQvu4+4TPP4+Bx
fIHJAJ5fY+Krc8m7DLDb4/2tDOvviSEfD03lQvEVH/vVfC8RCgw4+XwGbOgO
xS9MxaMzLb05EZwakLd21w0THN/da4XTRMyfg5u+xet8fH3urUdcBYEJ8P6r
jWo1nk82pfdWf2kWDOofduzG+g+DuojapzxQkr/uPY6v71Dd+1731Gv4O+t3
8Dz2hzDbq1ceWuWgWONuMYjPh5JW0jca7lbB75arP09hfzjd6b1ixFoLJ7tA
Xg37g51VY1YgtB6WTCyPFOLz4e3T619knn0D197yZPTj8+GeDVfHxj6MwL6y
muvn1a2Qb2vq30iPUbh/XWy4db81EnVQsDgrMgbHnWW3GkjaojUhnZt7Wscg
PGSPkUynHao5f2hC3WocJnSkuO4bOKDtRQoZ3bwTcCWaaTL11DPkInCN2tk8
AbPKjBaWHc4otqWOi8NyElTvKT05yOGOzu0bS7zBOQWtp3paasEbje/utYyu
m4JCuobFiNP+qJiZObf33jRIOQt+ulsfhCp0TjCMM2A/fBBQrWaPRLlnpONm
82aA+mJDzNz3RLRp3ti2ONwZzOspx57i979j6vGtjIPRoFR06yc3jqdXwRDl
Y2oqzDWM7s3A8X5kLd924loO3NPT5D2Bx+PqLbWLgwrhSDbV7Ae+PwYCkgOa
SkA4SGx4HJ9HppienHm4sRKyfIy5dbA/qr5GBO9rHgdp32d6SqcdUbvog/CH
1Alg7h9QqzB3QsIPGnM6dk3Cw6G1Hn5arqh5oDj9QsMkPPfZ9VOBxhMd4Qp+
co0yBRLhbzP3+vgi9Q9MMd3bpwEO9xa/PB2IWELc95sVTcNn6L1ZORaK2utN
KpSvz8D5n0+sNcVi0WnrX1mu62ahnP1PucTtTJQ1zfyqZiwMeu7c+6OH98Pv
lVTbxJcMnvmRwdl4v+v3B1ew7XgJc2rcorR4/PzYVwXn4wUgfEvj3i2835Eu
1ZkE32nYPLTXFGRDkPJWrS8c4jOQdtXd/qJlNLLRD9l//MMM0N3cRrN3byrS
/3jfcHEkFu7RbGYfxfP/HtrO8+toBhzMn7/5CuvejukPt8Nz4dmQd54bXu+K
tVe4pfsMvLzV0tN8IR4ZWjJ+Q32JQHcxlbkIX99lI/fK3iYbznfzao1jzfHu
3ghb4wzsjaRf+GicjCpGfoxcdI8BxedXLP/hcYUmK8UH39LAhCPu9MvV9WIU
Xly6nQK1j7u+rZ436Qe+TEcoxMPz9+v7O7HOnsv9bm+VCTwXf9vVYn0kKiQ8
l/Mk9O3dpe2I/drp9Gi8vz4QtNiX71bi53XWZbitrpAATGK0L+vw9bvfCuux
GGXBld3fhTuw3pIR7bGxMA8W5XUb+/H18V6inn95XsOsx7ejUtivsfpfm+qE
y+Eqf9PO19ivC5ll7KoXq2A4+FErK/Zr/D2Z4ls0tbBsk/SSDfvVOULZ9p5j
Pby6OMF+F/tVPOZ9t770GxALdPWwxX6t3MZmTH03AgcDZvl6T1mhKlWeWRfn
UajUtnn/hssa6Ve3z5/fPwbZG9kXBwRt0cZjJ7UeNI6BxCMl/cY6O6R/RytK
0XwcOroV3A/rOCBPUTURHY4JYB1mce898gwt6Trbm9RPALftSmTta2eU/TTJ
j9V0Ematz5z889cNiUpnjH/fNgXDjw8Zi7J7o5sp6nu8Kqfg+PSo0rKwP5K4
nDT54dY0/PidfPjViyDERP96k+PaGWCmNTQ4UxOBwu493DqSNQO/pZvEDoUm
oktOw2sErjqB3mK+mDvOv4krkusYMqLglZl6ngCOp95Ly2Ib7VQ47xZXsvo+
P2192KJ1NAefbwKKxPF40f26ArP7hXA5fOftIXy/mV34VdG4EngwbN7Qgv2a
KOH71n2uAsze/9ouhv16c6lOlbt+HNhGk+v8ZRzRyZTHvHOPJkAhh1vE6aYT
ik36UWbMOwkmMnqFT2RdUZ9HuMDZ6kk4xfNKJWDIA7Ee0CmdNpwCbT6/5zzm
vqj5hse5qq3ToI22rLm1JxB5Du26+SR3Gn7NOfHIZ4ciPuPZmk/aM9AhN98D
8zFINOwAny3NLHx3urU9+00G0qWo/zKWCQO2bv8iQ7yfHy5oi0FrEgRO2HHl
rJ7PyyrLRBeywfQW7/s/WOt7HokBlgIIjdBZr473q8f9dU+6xzS8XBl7XbMp
BAUXvx3LEZkB3tgLYX8Uo5G+fXPI4XczILVZaPx4XgoqjvXa0OYTCyI/HZum
8HzNfdl3Ar+kg9HBvKUCrFXucgzYmeVCf1CmuC1+nuQ9G2O2OuH3JbS4mYU+
Hh03jZcZdE0E2Qdjz17j6xVZHxSGX8qGf9u41n7B+t9cuOamGnw9qxVVdXMy
4khmdd6PHzkx/+pRejwfex2r34aoNLgibPcpC1+fGj7w9ee2FPCSkbJZrce6
EfReZlNxsP2NqlMv1g6zqsf5hDLB/d05jiqsh+/1tHGMJED2gqNABdavixX3
nFxKBd9TPR2r95/zZ7ISMU6Gfo12tdX593y16dB2yQALDocNJViHWJskxB1I
Apmgop58rCntn/62yqVD5Cn4thpvuqTUC68KUkDNVjVmNd/oFLgoQ5zisOtO
zogHrg9CSn6uOZRAmEiL0qzH+5nt19gYy5UAnR1OjxtW5ze4rCusmAWMXM6c
bVhz2SrJ3I3JA+GFwnXdq+djkfyvjQyvwcN76zthXB90PP9qfGEvh42b+nmT
cX3oUbb/7qVUBZN2A7eXAJ8Xxu/f112ogR3ccyyLivi88Em+3t2yHmoSLU8A
rg/cLfI/4dAbsLgnkKmG6wMTp0l+cfcILLb8WtwJVmiAsfvekuMo/Es/4HBh
mzVaubX9aMeeMWjMF5Hl57VF3pusrQvrxqCo4cXE9ko7lPd96ne5KT7vnmex
i9R0QHVTvUZRbBPw6o3L8h+hZ6hwKcylqmYCFLUFnG2ynJHE2+0t/pRJEHJQ
KlucdkPRlcyMMixTsHKyf8WP1htFTbJYry2fgr7agTVtO/zRzyc/19+4MQ28
dvO1/M5BqODKIlM7zQxoy24sKXwRgTZbrFe5kYG/b0XO5b95mIisWoJrLr1+
Bu1imuCH812ORzt+UDMK/qX8St+L49koUqvXIpoKpoeNI1ffV/g1B9U7O3NA
9xJ/lCgerz7x8HaHZiEc7tq40o3vH+Tfmb/iXQJPKrgGynF9eKbCHRo6XgHT
+dfKuXF9yHG5mhRYMw7yOSYb5I84IpvbNLqSDyeg13K7hoWWE7p2an1tJdck
rG3qSHcSc0V6nzddb6qYhHs37zZptXkgp9yywaP3pmDD884teQa+aEP86QSp
LdNwxCmcaYI1EJ1e+8hmOXsars8XBegGhqK62oP1hy7PwF3FxBMNvTEoLrn2
0p/lGRAY3z+cbZuB8sWoQcqfQ6Ft5EDWI7wfnXVe+YUJSUBpavyxmq/iG3pP
yH7KhlKVmdpfq+cZ3b7z4X/zwdI2cEFl9fwDYgqH3KZB14Vvg/pcMJLdsm3y
34EZWKa5YF8iEo3e+dxpz+ieAUGdTrETT1PQHccd2jL6sfCtjKN8Fs93VGuZ
8XNxOsTTR31c9QtdzsGr3nq5cNn8HNMT/DwXrJTjrjvMwLHA4902H+NQwrdv
Q8J6iVAbz9pTjK+nuW4vkSqfDV1mYZSPWJuslfRyqZwBjV9xX48MJKEa14Tu
wPUxEOWqm74Bz2ercENCyzwNHk+nKa76dxvXfg/5SXzen9g8sOrvjTbBA0MV
caDVHP3zPdaTD0I/PqTNhKZQjaer9UBlZBf1bmkCKJl6ZVeu/l5LBzT5d6WC
nis9dfX+Quar/NbKyeA9yjK9Or/vzSbzZN0MMIBDmav1jPZvmcqPNUnA2RY/
uVoP+84eiuHlTIcrtSusq/E22v1rfr13CiSwq1Wu5tvCEWF2UYdU4AsxnVjV
bhvnDLl+JcGyBUVt9TySrtww+bo+DfYWC3qvnr8Qny9KOJ4CfWdbDq0+j5rs
H7v53WkgZnJNdvV75itrVfdQaDJUKw7XruoX+3XTDIdSYC9Ls+/q/ET/mWb1
jz+c7D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/
E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8T
mug/k/H6r/9MaKL/TGii/0xoov9MaKL/TGii/0zG87/+M6GJ/jOhif4zoYn+
M6GJ/jOhif4zOf9//WdCE/1n8vn/6z8Tmug/E5roPxOa6D8Tmug/E5roPxOa
6D8Tmug/E5roPxOa6D8TOmOM9wWT6iypiX40oYl+NKF3PWNVXp/4v3HCP63H
cgz0pKikf0bjFzZKClFJ/+SnW4Sl8lBJ/3wpDpYaZ6GS/lFyE7XW3kAl/ZPX
/oTDbQ2V9A/z8ffbq1bM/sdvzs9ytCybkf65Jhj6QX+VN/znn8eDQY1q9FTS
P/x0bnIrW6ikfww3VITp8VFJ/6xd0o/ZcphK+sfiWl8svSqV9E9gfcT9vYZU
0j+6W+3T5v2opH8uLPUts1RSSf+IBCeI/Z6jkv554WpkOyNhTvrnCt9is7+N
OemfDsaHwubvzEn/qPJ4nQ2UtSD9I9zCzFuYZkH6x25w7a51RyxJ/3x4tVZZ
vtqS9M+lYaOLAbcek/5Zbk86aLT/Cemfb1I2Wb5/n5D+kTkQKLL7nxXpH1fB
6QVmAWvSP3VX1m3I0bYh/fPd3aNbp9+W9E+2jdZzzxI70j8+Uj/SOBPsSf/k
efDSn2h0IP3TonaL8wv9M9I/hpMhHpUvnEj/vHGQFA/UcSH9897x/qewe26k
f876WptFcnmS/rGNEfpbd9SH9E/75GtBlWI/0j937iQoWpkHkv556XjiRexQ
MOmfgn4zFmG2CNI/fVdz1oWKx5L+EVxn7re8Jfn/5TUCmx66c4tRST6zdWbv
AuN2Kslnlt6NCV7fTCX5jLbMC7uwdVSSz9x6yWeihvOX4DMN489j3uP8JvgM
R4RVYyzOf4LPOCuWKoxjfxB8RsDwrdw2RirJZ/QvrwmLwuvTVqnIe021QCVf
OC3/PiqSH3fIppdvh/cv8hNOylLRuprbU+U+HXB6JIXu8hUqUv7eomEy1Als
m+sQqzUVvXcU+/BY+i0s+spKWSRTSZ4T4XCYc+SSK8lzin6OhYRmuZM8Zyn5
A7AEeJE85zaLBVSF+pI8p0vIaQnRBJA8p/WdsrLsxiCS50AtNSdKJozkOboK
X27HCEeTPCef/0fci9J4kuf4do0vMbL9j9/ou36UzxGnkrxmTvjt0WZOKslr
Jty7mQOZqSSvMRu4PqK/nkrymi2skbVatFSS15xNEeI/guNP8Jra80Mi3FgT
vIaa4SLnga8neE1vIq+6NwOV5DV6dPEfDrBSUfiw5lPK2RZYMO5ifSFARckH
IrYb9rZB61K6+B9JKtqauu+nOHQAk8fzNTTqVBQ218O527UT6u9Xf9czpSLZ
wgX1ms9dwMD5b+t8OJXkO6JObT+Xe1xIvtNwpqN3cr07yXcER+uFfnZ4knxn
W9kxbT12X5LvSJ4t0pXW8if5zpK/2PJ66eck37Fn/rfj0r8Qku8sf5y0jouJ
JPnOdvMI+QD9OJLvyH5Ilhu/nEryGWQgrXkG5yfBZxrkNtr8XUsl+czvAkZR
s39mJJ8RZp/jLsT5X85QX2+OaiCZYvzkNh4fk9TcqtVSB+foS87Y0VGR7ckL
vmDRCHUeXD6fsL9SSn96rtvUDOWbY05c5aaiO3HAkOrRCk+mCqS/C1NJ3nNK
jeHra11vkvdkau0+0iDoR/Ie4Ruxt7zzAkjeM8Cv0N00GUTyHh/6osCg5y9I
3sM9L6CYuzOG5D2VGpPnPZUTSb4zJPnJxFmCSvKcZTXvbEn8fATP0RDrSHmN
f58InuO4yWZFG+cPwXO+qa0ZnsT5RfAc/t9WdGY4/wieY9jLsGkax4vgOc+8
JsW+43pC8BxIaOC/i/Ob4Dlitj53PbdS0fijq5yflpuhtdI90WwnFcm8GzPh
sG+DAuNrlr+xfzh43c1n2Tvg7/Fn1RbnV9e/uvRUpxNs+zYK5RtR0fcL2j7j
RV1w5Kkg3A6mkvxnJ52Ey45QF5L/FCjoHZUrdCP5z96FxA3cVE+S/xwXXZuv
l+VD8p9+kytrKQz+JP+hM8v4QdcTSPIfhob4PoUHIST/+XqMdsKgJ4LkP9v5
dxlN1ceS/Kfm5iOFyL0pJL+JVvLbpLaJSvKbpDFr21qcTwS/OfjdxfoDzjeC
33TmKt2txPEt6+2PcJqohpHktIQlHP+b6GPAQes6aL0l4ZuB81nWcFe7Gn8j
ZNt7PjXG83/iOWE5+LoJlg9svGiG60/e4VMJ3Mdb4e96+QUbfD4ieNCTPpMC
l19eJA/KSql6HzfoS/Ig16PFT99oBZA86HjasfoByyCSBzlay/ANfA4jedAP
BvV15XHRJA+6tzujWPRpAsmDuj1kxEvSMlFAzZs+eF8MPHqLE204X1SXV+x3
uFRAXvDv0H94v6+p61TiZKvBUelVzmW830tqv4PeDdTCHdFAqSP494fgQU9i
irupjPEkD1LrKhP0T0hDtwolUs2ul4GB13Q6G45njH34t1NfK+HRLb7vr/H8
FdI53+8G1YDRl1Cr1XgTvKfB9lWBCa6HBN/J7ZCW/ob9QvCdr3an5i7g8yPB
d7LFtE3fYb8QfEer2V9GGj8fwXeqzcXvh+LnJ/gOKvM/34/XJ/jO5pvs6il4
/wTf4S2LPdGHz48E3zmzn1akGq/nKzk4ytXTDIL1M5fv8VORY6Z39KxmGzCG
KLM5HMH1vUemqHlNB0zvWlQvOYvnK4x4mKLYCa9WdvsaPqCiNxEbDz6N6wKH
c0JmKYFUkgc1BCfoZD1xIXkQjWh5XKaPG8mD9i70pforeZI8iC+5MIvXxIfk
QV2islnuH/1IHiT0qLmjKyGQ5EHOy4ffHhAMIXmQy9aN54LNIkgeVFaS9lrQ
OpbkQV2+4bZnQ5NJntOqUMzUi/OZ4Dn5c26xIvj8QvCcISq/IDuOH8FzzB1i
GptwfE/ACINXeTUEyRf2t+D4R51M0uDQrIN/Sr8iT2O/8Fozfuuba4Dje+QY
KvDvg23zx2kV/yZ4qCeZ68JBRVf+1JtqsLbCyv4BtrP7qSQfcq/y9F6o8SL5
kHCPlt5UsS/Jh7hPa3HvFA4g+ZDIJ6Oz6+WCSD5UKr1pSNI7jORDRq6zGrp3
o0k+1LqkM6XAnUDyoaA4gzru/gwkrfgBPXYthn8fxJm24XpcqXogUPtqBeR8
vJS5He9P5gNzfuq2atil4hcjibW/Zvnl6rxaGDilZf0BX0/woKIRyzsZBXEk
D3prn93Y9icVbZA+vSWTqQwWIhf9FbAf2Dsa1ti/qgRW9auw+nuIYkp0Ht2v
Abp1Ev5ReDx90rGobW0FsPA+G1fD60ml7/Z4VVoF9CX3NdZgTUvZuffXjUp4
ypRqt+o3WUrHYRu2GvCcqDp4CN/fk9H56HNOBYzJbB6fwOPHmP4OvjCoBvO+
kHtW+H7hw5TBjSxVILDZXbIKjxN8hyvmyc1x7E+C51g1/BY5i7/vSJ4zcbc3
HPuF4DkeNrMJHPj7juA5mtd13+thfxI8R0Fqj3YGXo/gOV4/Rqu78HoEz+n/
45jmjPOL4DmijUfMn2N/EjyHzcdXRA+vd+sF33nJqmZgPh0++hl/3yWH3pC8
itqgb5ElsgF/3+ke2aZdvNgOXdcO1gzj7zu7XtnE8mOd4OO5dovyfSqSPPnZ
qjakC6D5tu+5ACrJf16os+oE33ch+Q9nvPMmtqduJP8p0Lx6lF7Mk+Q/cpUy
vN3qPiT/oahGb7nU6kfyny3O7zs3eQeS/OfgTZ6DEmtCSP4zvJAiHHQyguQ/
bocrCkO1Ykn+Eycw63FfI5nkN62c471c+PxD8BvlXlsZfexPgt/UfZGyOILj
R/AbZk4VpU4c3yWT+2VbUquhy59hoBDHv0xxY/5muTq4yDi/woH96UlPY8c3
1AA/E9uYDbA/z+3O20dr0wQ6X3TYt2F/iuhu6KfQtMK9+Kwf+fj7guBBH7YK
R8+keZE8SCa0711tqi/Jg7yePpXgYA8geZCSv2yuvWAQyYMOPb9AOaAfRvKg
vaWc5s2no0kexH+Ce3DDVDzJgzi0TGpbzTPQJpeRn2x6xcD5Iyn4KPbbUzM5
XotTFXD3+Pe/u/H+/mx5biiyUgWTci1z+7DOvryrqCi6Fp739M/m4usJ/tP3
pTBQ1SuO5D9G8+lNBsmpaODxxWqVkVI4YjbmfhX7p2Nx0CMyrhLaL6CSAhxP
mm65rT81a2B/vOsmBzzeskfcsa+/HKTUhbxu4vUWh1LQieQq6Eq/Ivtr9fsu
WDKbVbUSUoZ2PCvFeiXu0hgtTQ00fvUwXv299OseW6SJqIANJ/PfzuHxP3J2
gXwa1bAhJoPDAM83ou18d9/fSsj/dGVnGR63VMpLO2mN59+cU/IZa7HRW1Xn
+SvBwfD6/jqs6QXZGI8bV8D0P04pRny/TkrO41ttlRB6Y3NiER5XVGaMfG9R
CdY0WddWNY9zyUhtA65vZ6t6P2JtvPGK5vSeKojIsxCvx5rgOQqv0/t2S1FJ
fnP11voeK1wPCH7DXn1ysQr7k+A3+RNrl6VwPSD4DXf9xBczXA8IfpO+xzRy
NR8JfpNmdeNiO16P4DfXrfVTqDifCX6z+XzYU1NcDwh+I3Cnhe0QXk/1bIXD
qaJmaEtu4YnF9UCGuWmN39E2mLphQ3mA60HZDduUnJ/tIMBW72SK60HBXZ8q
FYlO+DFk4lBoSEVGwecFDAO6YDrt8GCMP5XkPY7sLoe26buQvGdJUJpJw8SN
5D1t92KqWwQ9Sd4zzo8a6k76kLzn5EfXTU01fiTvEY26a3DCIZDkPSrikzLD
34JJ3vM3xsiwVTiC5D1luyT3uCrGkryHcce2ZufDySSvSU/SnDmO6wHBa756
dyrZ4npA8JpXIi+uy+P4EbxGsWH0XTeO78AmkdCLUdUgGCV0dLUet9Qfu80g
WQdq0ERHi+vByTN/6uXeNsCMSsBaWVwPjl7gVRwwbQIRJhHx99vx98KWVCbb
hRb4Xfa9yxDXA4L/RHXmxj+J8iL5D29YWx7E+pL8p+uhltEexgCS/yh/sq7r
3R5E8p923qoozfNhJP/xo7E8KnQsmuQ/hwI+hLx6G0/yn2cTeYkRpzKQ+d77
Z7+cKYY+Xm4uJexvbdfmj04yFUDz/dTPA3h/famXT1F+VsHmufXzO7GueKd+
LzeoFtr7ep9G4esJ3vNMgedYv2UcyXvM/Ke+TNumIkWuXh7OzlK45jFQfxf7
NXOT4YWMkEqwedfctloPho3opsXP1MBnze0Jpnjc9ZzKpsXacvAxMRC5j9d7
9/gBt21EFVB21jH8wNeHplWZCchVAj9fo3Y51oMnOKsV5qthuDtimgHfbzRu
WsrsXwG+k4d4/uDxvn75RzdOV4OUiL2yHp6v5iGLsOS3Sriu4fGgBI9rfTR3
djapgraUUYMhrJn+zjjrslWCxIP6Dw1Yf5GKblO5g99/N9JiwfdLl56QNamp
BNEZ8Z7V88ZunaCbYw/w98/UFvVXWP8OVUp7W1oBsZu3nBrB+tyOr5xL3FWQ
c40ntAbrxl3rtjz9h88TR7unWrGe+6Je75NZCfaWdz+uxmPQMX1y3eVKoETe
GCnGeoPi31hO+io4qZ3EXIG1Rte7ZXSgEpJW7NOrsbZ5vjdfo68SVNuWM1fX
NxC3e//GoRL8uSKiV59PWKm/J4zpf/2454kC1m/NZkj9fxc7u8c=
    
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1nf8zVUYB3B+CEkiexRllFH2apKy9957hSQrDSqj0lSZZVPI3iuj0LBn
dpHsPaOo9/Pqj7fPc57v97r3nnPu+f5ytele56WERIkSJWZHwv+Z0z+H5WR6
UIWilNa/LlfwPm2I1+bS/01O4RWqUknvLjaqR1GMMsY35EqG0sA4PfvUbamp
Ts0O9XgaqzNxUJ2Eh9S/y6k0VWehp7quTMsedUuZg2rqyjI5bdlk3FxmoyOj
jRvJjLTngHFr+SCdKG5cVv4V31N+J5vJrHTgA+OGMgPt2G/cSj4QY3UteS87
1S1kdiaom8jMHFIn5WH1Efk1vahnnI5f1dVj7tUp2KweQwmeML4pV/Eh7amt
l4Zd6okkI7fxUfkNvakRa6OXki3qLynJk8a35Go+ogN3kUf/DzmNPrE+lOIp
/b/lGj6mI8nJq39MTqdvzEHsGZ7W/0eu5RM6kYJ8+n/KGbwa3yH2CCl5xLXj
8lv6USfWg7t51LUTciavxfrHnJCK/K6dlLN4PeYzvh/3kJp7ScN9pCUd95Oe
DGQkE5nJQlaykZ0cPMCD5CRX7MlYw5hrCnjvU3I2b1A/5irmkYKunZZzeJMG
MS8xZxRy7YycS//YVzwT88Njrp2V8xhAI56N+eFx187J+bxFY8rFa/Vvy+/5
lM4xZxTWPy8X8DZNKB//n/4d+QPDeDHmkSL6F+RC3qEpz8V76P8r1/EZXeK7
U1T/olzEQJpRId4jDhXWi8/pGvNBMb1LcjGDaM7z8R76idmg/oJuMUcU17ss
lzCYFrwQ76GfwI/q4bwU80YJvStyKUNoSTW9u9mq/oqK8Z7GSfhJPYLuMbeU
1Lsql/Euraiul4pt6rFUis9gnJSf1SN5mTrG97FbPSnmnlLG1+Ry3ov9YXw/
e9WtqaG+h+3qcVSOz2ecjF/UyRyCReSmOFvVpR2+XZjKcf7Uf1r24FvOckcv
n2zCF+xmY5xNshQvMiVeyzH9p+TLzOAMt/XyysZ8zi5+iXNalqQzk+O1/BG/
c/KoG/EZO/k5vpcsQScmxb0cjXOE3OqGDEv4/xn0U8yxLE5HJsa9HIlziofV
DfiU7fwYayqL0YEJcS+/xznJQ+r6fMI2NsQZKIvSnvFxL7/FeU8udT0+Zivr
4wyWRWjHuLiXw/o3yKmuy0dsYV2c71yP54lxHT5kMz/oHYx9EM8K49p8wCa+
11vLGlazKp47rGQFy1nGUpawmEUsZAHzmcdc5jCbWRyIfUwO71GLobEHmKm3
P34j8Xwyrsn7sb6xf/T2xe+NbMY1eC/WMvZG7Nn47ZLVuDrvxroxXS+5LExb
xsY88WucDWRRV2NIrBvTYi/Lx2nDVxxiT5w9ZFZXZXCsG9/E70E+Rmu+5GDs
6zjbyKSuwqBYN76O36YsRCvGcCD2sf6Tsnt8Zk5zTi+jrMzAWEem6pWTvZjN
BZLwKvO5QkFaMpr9see95jW5kGs8QfyRNY1TnHW9j5zLJTKwmBtU4p3YJ0yJ
tZe3eZ3EfvOL5HWejc9hvEzeoif/MovzJJDU9eXyb/oSf0TNk5cpEPcYL5F/
0YI7jGIfO2LPyX/oxwKuUpal3KRbrAcnOeP+3nIOF0lPRd6Ofc1k15+Rr8S+
i7mO70N+mjOSvWx3XxnZNdaOE7E2cU7KF3iLtUyKZ4p8lGaMiD3GtngGk079
PANYw8R4ZvGIuinDY4+xVe8kadUV6M9qJuht4USc48bP8SarGK83js0cJ41e
ed7gO8bq/Qd1A2mN
         "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1Hecz3UcB/A77nB39jh7XKQSyZkpEhFCueq6cwvnjsqoFBVFSMloWA2r
0i40lZbVooG20qJooagUxfP98Mfz93q/35/H3ff3fX+/j1/G0DFZoxMTEhJG
+Ihs4uNr+RBX0ZdMOpn/JV9hBkMpQ4b5N3I5V3M+vc3KsVl9D205Q/+3fJXb
ydbX5At1MReoK7FNvZRcdW2+UpflBPW38mHy1HUZq75IVuNTdZFsSD91H1me
Yt7TF8j6DOdefY5Mp4Qv9UNk48Tje2in7ywPxX3K12S+rEcpM/WXyloMY7t+
sGwUvfpCWZmP1IWyAcvUg2QddqiTaKr+Tj7CNVysr85n6v6xe3UF3lffR3vO
1P8jX2cWJQw0q8LH6gdIppn+e/ko1zIgno1ZCh+o76cDZ+n/lW8wm1LKcaL5
TvkY4+L50JEu5oflWuYwnPI0N98lH2d87CDeGbqaH5HruCPeMypwkvkP8gmu
i3uId4QUTnb2o3yS68mK50EqpzjbLZ/ihnj+sRPSaOFsj3yaCbHPuD8qUonK
VKEq1ahODWpSi3RqU4e61KM+DWhIIxrThIx4J+MZxq451bV/kiuYyCWxq9gj
LZ39LFdyI9mxl9gZrZz9IldxU7xXnB374TRnv8pnmEQO3WI/tHb2m3yWyeRy
Tvyt+X9yPXdyWeyM0833yue4mUF0j/9n/r/cwF1cHnukjfk++TxTyKNHXMP8
qNzI3VwR906m+X75AlPJ59y4Rvyo8KaYy8jYB23NfpcvMo0CesY14neIt9Tz
GBU7op3ZH3I1t1BIr7iGeRneVs9ndOyN9mYH5EtMp4h+Zql8qF7EeXFNfVne
US9gTOyWDmYH5cvcymD6m6WxRb2Y3vEd9Em8q17IlWTpq/KJ+sHYPR31f8o1
3Bbvh74Gn6uHMEBdka3qJfSJ76dPZpM62Y/gMZlNlzE=
         "]]},
       Annotation[#, "Charting`Private`Tag$16872#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], 
        LineBox[{361, 411, 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, 398, 
         399, 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 412, 410}]},
       Annotation[#, "Charting`Private`Tag$16872#2"]& ], 
      TagBox[
       {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV02fcjmUYB+DHiwopMiIkIyNFpJIIRdllhUQZlQhRkVF2pFRmkb333qth
j5K907BXKXvVcX443v95nff1/p77vkauJm1qtk6WSCSa+zOSlUmJRBee5W6O
6f3EKEazSu8jniMdx/V+ZgzfGX9MedJzQm8ru9VDaEAB/tMby/fqrlTgHk7q
/cIe9VBepSAJxun/ILvxPBk4pXdcTuIdnmKb3l75NQ15iGScZQbtKMN4836U
3XmBjPzNbD7gtOcn5GRacZUllOQC8+nIDZaz3fx98htu0YgrLCYpeSJRSP7D
3Pge4w7yOstIYZwkzzEz1of3uMZSknteVl5iYXyPcWd5kxVM8NurZQ8qcplF
ZOI8c2jPGfNOyim05mkusoBO7PB8vxzGazzMv8zjw3gP/mIW71OOif5njexJ
JTLHWuudklNpQyl26h2Qw3mdR+K7Y+/018peVObeWAe9XRxUf0tjCpMy9kN/
nexNFbLEO8UZ45B6BE0owm3xrfrr5SdUJWvsc5wxflWPpCmPcnu8s/4G2Ydq
3BdrGGeKaWw07kt1ssWexr4znU3Gn/Ii2WPtYj2ZwWbjfrxEjjhDsR7MZBaz
mcNc5jGfBSxkEYtZwlKWsZwVcV/jTsbdi/sUdyTONVv8xmfU4P7Y51jPOCdx
n40/pyY541zF2sU+xl027k8tHoizFOvEYfUomlGUO1gb91t+QW1yxZmPufym
Hs0bFCMV6+J+yy+pQ26uxlx+V4/hTR4jNev1t8mveJk8XIu5/KEey1sUJw0b
9LfLAdQlL9djLn+qx9Gcx7mTjfo75EDq8SA3Yi5H1ON5mydIyyb9nXIQ9cnH
Tb3TchrvUpojekflBFrwJHexOc61HMwr5OeW3hk5nbY8w1G9Y3IiLSkRZ9md
/x9mcNL/
         "]]},
       Annotation[#, "Charting`Private`Tag$16872#3"]& ]}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1}, {}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotRange->{{0, 1}, {0., 4038.49596468671}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.848010887382935*^9, 3.848010922175584*^9}, {
   3.848010989357554*^9, 3.8480109936781473`*^9}, {3.8480119168588943`*^9, 
   3.848011932750174*^9}, {3.8480119842815847`*^9, 3.8480120064242067`*^9}, 
   3.848012105489294*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"bf83ac57-69d1-4d86-9a54-9ed4d085807f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%48", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"HoldForm", "[", "\[Alpha]", "]"}], ",", 
      RowBox[{"HoldForm", "[", "F", "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"HoldForm", "[", 
     RowBox[{"F", "-", "\[Alpha]"}], "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[49]:=",ExpressionUUID->"fbed3f2d-8e80-4586-a490-7ba1e501c28b"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx1mXc8l9/7xylJKVLIjJKGJEpW5TooJA2hKEmlQaW38UbJzt4jK3tvssve
ZBMKoWWPBlKh3/F4fO77+9fPPx6vx7nvc+5z3dfrep/7eu68+eji7TU0NDT0
a2loVv+r3B7rqBjXlEVZ320DJSjIniF3rxtnIAhvf3yxRZyCtLRjsr59j4fG
xfcX3hyhIMZ/9jpKO7Jg28owWwvWgmozY9UeeWArEXypFV9v0SoNIXOvYHiS
33unJAVtz2MZpKUtB4XZ9iNBMhRU8Emhue14FeSt28P5BSioyjCCW3uqBnJS
5b36FClofs8J5oyH9WCrfMBl+3kKWvM7bQu34BvoLpz5IXCFgiT+6RWoZzbD
Ms/2Iyl3KKj5mXhrnVAbnInvMDhGpSA+38nfKTPtcKxQPWjEhYImfw0Ndot2
gmTazbaz4RQUP1H8hsm7C34rB2ZvLqAgJt6k2S9f3sKlnRcYjLsoyNMg/070
7h6wzN4nMPeDghZQ2pd7tr3ARmM+I8hljMwO1+SxV7+DYqU2WtqTxmgos8aj
Y2cfuP2ko3ZZGKO/hm9f7H/SDyrbl9+y5RijA3LrV+4UD8DxIibLT7PGSCl2
592X2wfh34u+UfbjJsiC9/qujzpD0Na/Yz+DlwkSntJk7D07DO6Kfu3tIyZo
G/M3hpo/w3DhdOioq6Ypoit/kSUQ/hEiJAN99zeZovvixe83nPkE34PZLJN0
zFDa6ZvRZQuf4K+d6VgMDRXNT3JtGQn6DG956dLDsqgoX11pbeDJLyBesMHe
z80c2So7ReWNfIHATX+Dlc0s0M4PKu/inL5CQ5bQdxFrSyQj+SyQ8/AIPPeS
KrrT9Bjp7Gj7Tds1AlFf75kYS1mh+Tdenyj2o8C9zCjfz2iNQuh0zS7uHoOr
Kh25Bqy2aNtgfuyamjEYaGXluV9sh9ZZ22tIG4/D1+CpSebzDogmRTfr09YJ
+KZlIrB31zNkEpbltbVqAuRpsz0U4p1R6QFXBhajSeAd2SCwftgNsaiYCDsw
TYHo18CiLdNeaOBge9fjkikwpG8QKdzij7IjYfcX3WkQ7/NJf0kJQteyJFh4
V6bhaVLOsJ9pBLJzirEfSJ0BwUbpvI0KiSiYj3H+379ZaLjCNrvsmYWi2c47
u3M+A/sGpB1ylIJCPjxRyF+JhM3zWfkHcH4fTmeh52FIBSbhHp90nP+aycFN
pptzoGKbQpAwHm9lZmUVQYVwczEyvRnfr1SZwNTypAQ6ufLocqQo6IZu4rXk
wQq4s8znQH+CgkoSv5kGBlYDy5bi4N0KFDSg/JBt7cE6oKE/d7ZChYKWfOaY
9RsbQJMvJUhdg4J4njrfKjRoAu/A4+k79Cgo2UzESFpoFGCAwaF5+1NUN0pN
+9g5CglJJokldDbo0nc3DyGzMdg1Fsbdy22HPDNe/I3gGgeXI7xcVk/s0Zpt
32iZqsbBbX9xzK8DjujVTpfIJ4YTAPo8w6bnnBDHZ+4mFo5JMDapux+12xWN
yliHnS6bBK10R5rD5R5o4dhOGpvbU1D57Ey67jVfpDiyfilz8zTkBnvG+KwN
RPR7i8PsMqcBKasaFlqGIiOuB41PNWaAJdP4QvbrGMReeN2b+ncGlrQjTQQl
MtCHQy4KXpxmsDAWQtmC69Gmn0FH+TxDQe3PvXwzHN9ah/dX6K2T4HD/yb5c
HP9p9amSM63Z0FE7WTWH9RNR+5XFr/ngmfTpjzyO/1D9bGKOZDG0fWh6PoTr
kUT45cTAQxXwUfMsS+UxCnp1kos/Z6wK3NPMmczlKKhN24kj07MW9ESVQsuV
KciyP8THlbsB6DU2usSpUZCPDKeMQf0bmONZbmK+RkEOjSu5ESsjcJh2SSUz
wQrpvqdV2p86CiKzoXrhTtbo15+ftrKqY+ASZdVWG2uL2mv3nb8wOwYlfvVL
phz2iK5BKi0udBxuSounBr12QDpffyRmyk4AUkn3Dsh9hmrLbgtvnZ4AFlkn
r6ZrLuhiroPawaBJGOWiinXWuSO66tPsNDJTkJB6M/yqgg9i2Th1l/XrFCyK
sRaILfuj/pvW13Ocp6FGYc3K1oFgNKKvNq26fwaen8pbqGWPRmciaRj2d81A
Qa37epFTKUgtoM/w3B5vmJy/4yaM47dVPys5QSoWRl6KV//A8Y3sPv1SLCAd
GAdce/KwLl2S73uhmguCY7OLq+9n12zi/lthRSD4R4LmAX5/Wa+vmo+WlsLg
9U96odK4vvLPs5Z4VcIOzTcKd2UpiFY3SctyYhymKG+Nk+IcEbsud5Bi0AS4
vTAyyfjphAzXdxqwKEyC8zWh+X1/XNHTKovPt0cmYYIl87RQkycaz1sc/+s7
BaYnZm8wC/shqyoB39MS0/DWz6r02L7n6PDkYve5nmn407xfT1btBfrV5pyQ
bjsDYz49AZTSOHRZ/1epP6c+BDIKrVzAz1u3HC/ytjMI3p3buz0K74fJ6IST
lWQitBrISZTi/b5KCcovFMkG/bptM4NYt1cUmg5K5YP3p4Nb6HG8DjSxmgoG
vYavjmc32+B8kzfXe86WXQ5zuxuu7sP5VrTt0EKFfxUo/4r0SkEUpHyTJczx
eC1kexikNCrh/KS93xZWUw+Pnv5g1b5AQQ2hNwXlzd/AsP9vz+dXKWj250hP
29gInDZs5LE0skJCnfWsLc9H4ZybRDursjVq+LfvibLUGPBb1Lg0X7FFP9Rm
LVPej8G+RAtjzXE79GzXB1sjp3F46as+sOOZAxKp35fWsG8C4n8/FCwxeIbC
0zde8++dgHmW0R6Tf87I9dG6g3wOk/DrsLbNZTV35E6vu1Nu9xR8K7eX1A70
Rgvcg7z17VOQunv667yjP6qzG5RrMpmGxmgpujf8wWjXxpP/8rbNAMfnG337
KiPRCEtHzZryGWB6ubT5Y1oSsnwbaDnF5wbvabU/6+H4PTKQEKQZiAbG0Mwj
m3H8xyoy+hPPpoGvQ+zrTBxvt4vTneszciDqKl3WOTxuafshUnm6EP6WV4Rw
4vf3t9RO/gpPKVQ0RW0SwPlmXn5W+rBEJTza3/IgF9dbh6IzBxV6xmFw2+3p
5TuOaAzUwvTsJsDSXIGpIMoJyc2bh/kdnATP3lMjZl6uKMfmT9nlzklI3DP8
NljeE1EWN80ft8L+sphaf6DKF+m9ZVNc2jkNpYV55k1+gYhnw5Wiu1XTEP/G
kr9QJwwdpj4uZDWcgRt1Qg/UMmPRxTHX44anwsG6Y05m9fmfBlNF/aqSgXmD
8unV/e1ckasZevgSfpeqxjDh8d3RKm7bAgqgffbzPiccn28neaxDw6ZhXZvg
7bi4EJRartv/RXYGPiRc5A0ajEbZQqJnzo/OQM49/zs3ONNQvu4+4TPP4+Bx
fIHJAJ5fY+Krc8m7DLDb4/2tDOvviSEfD03lQvEVH/vVfC8RCgw4+XwGbOgO
xS9MxaMzLb05EZwakLd21w0THN/da4XTRMyfg5u+xet8fH3urUdcBYEJ8P6r
jWo1nk82pfdWf2kWDOofduzG+g+DuojapzxQkr/uPY6v71Dd+1731Gv4O+t3
8Dz2hzDbq1ceWuWgWONuMYjPh5JW0jca7lbB75arP09hfzjd6b1ixFoLJ7tA
Xg37g51VY1YgtB6WTCyPFOLz4e3T619knn0D197yZPTj8+GeDVfHxj6MwL6y
muvn1a2Qb2vq30iPUbh/XWy4db81EnVQsDgrMgbHnWW3GkjaojUhnZt7Wscg
PGSPkUynHao5f2hC3WocJnSkuO4bOKDtRQoZ3bwTcCWaaTL11DPkInCN2tk8
AbPKjBaWHc4otqWOi8NyElTvKT05yOGOzu0bS7zBOQWtp3paasEbje/utYyu
m4JCuobFiNP+qJiZObf33jRIOQt+ulsfhCp0TjCMM2A/fBBQrWaPRLlnpONm
82aA+mJDzNz3RLRp3ti2ONwZzOspx57i979j6vGtjIPRoFR06yc3jqdXwRDl
Y2oqzDWM7s3A8X5kLd924loO3NPT5D2Bx+PqLbWLgwrhSDbV7Ae+PwYCkgOa
SkA4SGx4HJ9HppienHm4sRKyfIy5dbA/qr5GBO9rHgdp32d6SqcdUbvog/CH
1Alg7h9QqzB3QsIPGnM6dk3Cw6G1Hn5arqh5oDj9QsMkPPfZ9VOBxhMd4Qp+
co0yBRLhbzP3+vgi9Q9MMd3bpwEO9xa/PB2IWELc95sVTcNn6L1ZORaK2utN
KpSvz8D5n0+sNcVi0WnrX1mu62ahnP1PucTtTJQ1zfyqZiwMeu7c+6OH98Pv
lVTbxJcMnvmRwdl4v+v3B1ew7XgJc2rcorR4/PzYVwXn4wUgfEvj3i2835Eu
1ZkE32nYPLTXFGRDkPJWrS8c4jOQdtXd/qJlNLLRD9l//MMM0N3cRrN3byrS
/3jfcHEkFu7RbGYfxfP/HtrO8+toBhzMn7/5CuvejukPt8Nz4dmQd54bXu+K
tVe4pfsMvLzV0tN8IR4ZWjJ+Q32JQHcxlbkIX99lI/fK3iYbznfzao1jzfHu
3ghb4wzsjaRf+GicjCpGfoxcdI8BxedXLP/hcYUmK8UH39LAhCPu9MvV9WIU
Xly6nQK1j7u+rZ436Qe+TEcoxMPz9+v7O7HOnsv9bm+VCTwXf9vVYn0kKiQ8
l/Mk9O3dpe2I/drp9Gi8vz4QtNiX71bi53XWZbitrpAATGK0L+vw9bvfCuux
GGXBld3fhTuw3pIR7bGxMA8W5XUb+/H18V6inn95XsOsx7ejUtivsfpfm+qE
y+Eqf9PO19ivC5ll7KoXq2A4+FErK/Zr/D2Z4ls0tbBsk/SSDfvVOULZ9p5j
Pby6OMF+F/tVPOZ9t770GxALdPWwxX6t3MZmTH03AgcDZvl6T1mhKlWeWRfn
UajUtnn/hssa6Ve3z5/fPwbZG9kXBwRt0cZjJ7UeNI6BxCMl/cY6O6R/RytK
0XwcOroV3A/rOCBPUTURHY4JYB1mce898gwt6Trbm9RPALftSmTta2eU/TTJ
j9V0Ematz5z889cNiUpnjH/fNgXDjw8Zi7J7o5sp6nu8Kqfg+PSo0rKwP5K4
nDT54dY0/PidfPjViyDERP96k+PaGWCmNTQ4UxOBwu493DqSNQO/pZvEDoUm
oktOw2sErjqB3mK+mDvOv4krkusYMqLglZl6ngCOp95Ly2Ib7VQ47xZXsvo+
P2192KJ1NAefbwKKxPF40f26ArP7hXA5fOftIXy/mV34VdG4EngwbN7Qgv2a
KOH71n2uAsze/9ouhv16c6lOlbt+HNhGk+v8ZRzRyZTHvHOPJkAhh1vE6aYT
ik36UWbMOwkmMnqFT2RdUZ9HuMDZ6kk4xfNKJWDIA7Ee0CmdNpwCbT6/5zzm
vqj5hse5qq3ToI22rLm1JxB5Du26+SR3Gn7NOfHIZ4ciPuPZmk/aM9AhN98D
8zFINOwAny3NLHx3urU9+00G0qWo/zKWCQO2bv8iQ7yfHy5oi0FrEgRO2HHl
rJ7PyyrLRBeywfQW7/s/WOt7HokBlgIIjdBZr473q8f9dU+6xzS8XBl7XbMp
BAUXvx3LEZkB3tgLYX8Uo5G+fXPI4XczILVZaPx4XgoqjvXa0OYTCyI/HZum
8HzNfdl3Ar+kg9HBvKUCrFXucgzYmeVCf1CmuC1+nuQ9G2O2OuH3JbS4mYU+
Hh03jZcZdE0E2Qdjz17j6xVZHxSGX8qGf9u41n7B+t9cuOamGnw9qxVVdXMy
4khmdd6PHzkx/+pRejwfex2r34aoNLgibPcpC1+fGj7w9ee2FPCSkbJZrce6
EfReZlNxsP2NqlMv1g6zqsf5hDLB/d05jiqsh+/1tHGMJED2gqNABdavixX3
nFxKBd9TPR2r95/zZ7ISMU6Gfo12tdX593y16dB2yQALDocNJViHWJskxB1I
Apmgop58rCntn/62yqVD5Cn4thpvuqTUC68KUkDNVjVmNd/oFLgoQ5zisOtO
zogHrg9CSn6uOZRAmEiL0qzH+5nt19gYy5UAnR1OjxtW5ze4rCusmAWMXM6c
bVhz2SrJ3I3JA+GFwnXdq+djkfyvjQyvwcN76zthXB90PP9qfGEvh42b+nmT
cX3oUbb/7qVUBZN2A7eXAJ8Xxu/f112ogR3ccyyLivi88Em+3t2yHmoSLU8A
rg/cLfI/4dAbsLgnkKmG6wMTp0l+cfcILLb8WtwJVmiAsfvekuMo/Es/4HBh
mzVaubX9aMeeMWjMF5Hl57VF3pusrQvrxqCo4cXE9ko7lPd96ne5KT7vnmex
i9R0QHVTvUZRbBPw6o3L8h+hZ6hwKcylqmYCFLUFnG2ynJHE2+0t/pRJEHJQ
KlucdkPRlcyMMixTsHKyf8WP1htFTbJYry2fgr7agTVtO/zRzyc/19+4MQ28
dvO1/M5BqODKIlM7zQxoy24sKXwRgTZbrFe5kYG/b0XO5b95mIisWoJrLr1+
Bu1imuCH812ORzt+UDMK/qX8St+L49koUqvXIpoKpoeNI1ffV/g1B9U7O3NA
9xJ/lCgerz7x8HaHZiEc7tq40o3vH+Tfmb/iXQJPKrgGynF9eKbCHRo6XgHT
+dfKuXF9yHG5mhRYMw7yOSYb5I84IpvbNLqSDyeg13K7hoWWE7p2an1tJdck
rG3qSHcSc0V6nzddb6qYhHs37zZptXkgp9yywaP3pmDD884teQa+aEP86QSp
LdNwxCmcaYI1EJ1e+8hmOXsars8XBegGhqK62oP1hy7PwF3FxBMNvTEoLrn2
0p/lGRAY3z+cbZuB8sWoQcqfQ6Ft5EDWI7wfnXVe+YUJSUBpavyxmq/iG3pP
yH7KhlKVmdpfq+cZ3b7z4X/zwdI2cEFl9fwDYgqH3KZB14Vvg/pcMJLdsm3y
34EZWKa5YF8iEo3e+dxpz+ieAUGdTrETT1PQHccd2jL6sfCtjKN8Fs93VGuZ
8XNxOsTTR31c9QtdzsGr3nq5cNn8HNMT/DwXrJTjrjvMwLHA4902H+NQwrdv
Q8J6iVAbz9pTjK+nuW4vkSqfDV1mYZSPWJuslfRyqZwBjV9xX48MJKEa14Tu
wPUxEOWqm74Bz2ercENCyzwNHk+nKa76dxvXfg/5SXzen9g8sOrvjTbBA0MV
caDVHP3zPdaTD0I/PqTNhKZQjaer9UBlZBf1bmkCKJl6ZVeu/l5LBzT5d6WC
nis9dfX+Quar/NbKyeA9yjK9Or/vzSbzZN0MMIBDmav1jPZvmcqPNUnA2RY/
uVoP+84eiuHlTIcrtSusq/E22v1rfr13CiSwq1Wu5tvCEWF2UYdU4AsxnVjV
bhvnDLl+JcGyBUVt9TySrtww+bo+DfYWC3qvnr8Qny9KOJ4CfWdbDq0+j5rs
H7v53WkgZnJNdvV75itrVfdQaDJUKw7XruoX+3XTDIdSYC9Ls+/q/ET/mWb1
jz+c7D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/
E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8Tmug/E5roPxOa6D8T
mug/k/H6r/9MaKL/TGii/0xoov9MaKL/TGii/0zG87/+M6GJ/jOhif4zoYn+
M6GJ/jOhif4zOf9//WdCE/1n8vn/6z8Tmug/E5roPxOa6D8Tmug/E5roPxOa
6D8Tmug/E5roPxOa6D8TOmOM9wWT6iypiX40oYl+NKF3PWNVXp/4v3HCP63H
cgz0pKikf0bjFzZKClFJ/+SnW4Sl8lBJ/3wpDpYaZ6GS/lFyE7XW3kAl/ZPX
/oTDbQ2V9A/z8ffbq1bM/sdvzs9ytCybkf65Jhj6QX+VN/znn8eDQY1q9FTS
P/x0bnIrW6ikfww3VITp8VFJ/6xd0o/ZcphK+sfiWl8svSqV9E9gfcT9vYZU
0j+6W+3T5v2opH8uLPUts1RSSf+IBCeI/Z6jkv554WpkOyNhTvrnCt9is7+N
OemfDsaHwubvzEn/qPJ4nQ2UtSD9I9zCzFuYZkH6x25w7a51RyxJ/3x4tVZZ
vtqS9M+lYaOLAbcek/5Zbk86aLT/Cemfb1I2Wb5/n5D+kTkQKLL7nxXpH1fB
6QVmAWvSP3VX1m3I0bYh/fPd3aNbp9+W9E+2jdZzzxI70j8+Uj/SOBPsSf/k
efDSn2h0IP3TonaL8wv9M9I/hpMhHpUvnEj/vHGQFA/UcSH9897x/qewe26k
f876WptFcnmS/rGNEfpbd9SH9E/75GtBlWI/0j937iQoWpkHkv556XjiRexQ
MOmfgn4zFmG2CNI/fVdz1oWKx5L+EVxn7re8Jfn/5TUCmx66c4tRST6zdWbv
AuN2Kslnlt6NCV7fTCX5jLbMC7uwdVSSz9x6yWeihvOX4DMN489j3uP8JvgM
R4RVYyzOf4LPOCuWKoxjfxB8RsDwrdw2RirJZ/QvrwmLwuvTVqnIe021QCVf
OC3/PiqSH3fIppdvh/cv8hNOylLRuprbU+U+HXB6JIXu8hUqUv7eomEy1Als
m+sQqzUVvXcU+/BY+i0s+spKWSRTSZ4T4XCYc+SSK8lzin6OhYRmuZM8Zyn5
A7AEeJE85zaLBVSF+pI8p0vIaQnRBJA8p/WdsrLsxiCS50AtNSdKJozkOboK
X27HCEeTPCef/0fci9J4kuf4do0vMbL9j9/ou36UzxGnkrxmTvjt0WZOKslr
Jty7mQOZqSSvMRu4PqK/nkrymi2skbVatFSS15xNEeI/guNP8Jra80Mi3FgT
vIaa4SLnga8neE1vIq+6NwOV5DV6dPEfDrBSUfiw5lPK2RZYMO5ifSFARckH
IrYb9rZB61K6+B9JKtqauu+nOHQAk8fzNTTqVBQ218O527UT6u9Xf9czpSLZ
wgX1ms9dwMD5b+t8OJXkO6JObT+Xe1xIvtNwpqN3cr07yXcER+uFfnZ4knxn
W9kxbT12X5LvSJ4t0pXW8if5zpK/2PJ66eck37Fn/rfj0r8Qku8sf5y0jouJ
JPnOdvMI+QD9OJLvyH5Ilhu/nEryGWQgrXkG5yfBZxrkNtr8XUsl+czvAkZR
s39mJJ8RZp/jLsT5X85QX2+OaiCZYvzkNh4fk9TcqtVSB+foS87Y0VGR7ckL
vmDRCHUeXD6fsL9SSn96rtvUDOWbY05c5aaiO3HAkOrRCk+mCqS/C1NJ3nNK
jeHra11vkvdkau0+0iDoR/Ie4Ruxt7zzAkjeM8Cv0N00GUTyHh/6osCg5y9I
3sM9L6CYuzOG5D2VGpPnPZUTSb4zJPnJxFmCSvKcZTXvbEn8fATP0RDrSHmN
f58InuO4yWZFG+cPwXO+qa0ZnsT5RfAc/t9WdGY4/wieY9jLsGkax4vgOc+8
JsW+43pC8BxIaOC/i/Ob4Dlitj53PbdS0fijq5yflpuhtdI90WwnFcm8GzPh
sG+DAuNrlr+xfzh43c1n2Tvg7/Fn1RbnV9e/uvRUpxNs+zYK5RtR0fcL2j7j
RV1w5Kkg3A6mkvxnJ52Ey45QF5L/FCjoHZUrdCP5z96FxA3cVE+S/xwXXZuv
l+VD8p9+kytrKQz+JP+hM8v4QdcTSPIfhob4PoUHIST/+XqMdsKgJ4LkP9v5
dxlN1ceS/Kfm5iOFyL0pJL+JVvLbpLaJSvKbpDFr21qcTwS/OfjdxfoDzjeC
33TmKt2txPEt6+2PcJqohpHktIQlHP+b6GPAQes6aL0l4ZuB81nWcFe7Gn8j
ZNt7PjXG83/iOWE5+LoJlg9svGiG60/e4VMJ3Mdb4e96+QUbfD4ieNCTPpMC
l19eJA/KSql6HzfoS/Ig16PFT99oBZA86HjasfoByyCSBzlay/ANfA4jedAP
BvV15XHRJA+6tzujWPRpAsmDuj1kxEvSMlFAzZs+eF8MPHqLE204X1SXV+x3
uFRAXvDv0H94v6+p61TiZKvBUelVzmW830tqv4PeDdTCHdFAqSP494fgQU9i
irupjPEkD1LrKhP0T0hDtwolUs2ul4GB13Q6G45njH34t1NfK+HRLb7vr/H8
FdI53+8G1YDRl1Cr1XgTvKfB9lWBCa6HBN/J7ZCW/ob9QvCdr3an5i7g8yPB
d7LFtE3fYb8QfEer2V9GGj8fwXeqzcXvh+LnJ/gOKvM/34/XJ/jO5pvs6il4
/wTf4S2LPdGHz48E3zmzn1akGq/nKzk4ytXTDIL1M5fv8VORY6Z39KxmGzCG
KLM5HMH1vUemqHlNB0zvWlQvOYvnK4x4mKLYCa9WdvsaPqCiNxEbDz6N6wKH
c0JmKYFUkgc1BCfoZD1xIXkQjWh5XKaPG8mD9i70pforeZI8iC+5MIvXxIfk
QV2islnuH/1IHiT0qLmjKyGQ5EHOy4ffHhAMIXmQy9aN54LNIkgeVFaS9lrQ
OpbkQV2+4bZnQ5NJntOqUMzUi/OZ4Dn5c26xIvj8QvCcISq/IDuOH8FzzB1i
GptwfE/ACINXeTUEyRf2t+D4R51M0uDQrIN/Sr8iT2O/8Fozfuuba4Dje+QY
KvDvg23zx2kV/yZ4qCeZ68JBRVf+1JtqsLbCyv4BtrP7qSQfcq/y9F6o8SL5
kHCPlt5UsS/Jh7hPa3HvFA4g+ZDIJ6Oz6+WCSD5UKr1pSNI7jORDRq6zGrp3
o0k+1LqkM6XAnUDyoaA4gzru/gwkrfgBPXYthn8fxJm24XpcqXogUPtqBeR8
vJS5He9P5gNzfuq2atil4hcjibW/Zvnl6rxaGDilZf0BX0/woKIRyzsZBXEk
D3prn93Y9icVbZA+vSWTqQwWIhf9FbAf2Dsa1ti/qgRW9auw+nuIYkp0Ht2v
Abp1Ev5ReDx90rGobW0FsPA+G1fD60ml7/Z4VVoF9CX3NdZgTUvZuffXjUp4
ypRqt+o3WUrHYRu2GvCcqDp4CN/fk9H56HNOBYzJbB6fwOPHmP4OvjCoBvO+
kHtW+H7hw5TBjSxVILDZXbIKjxN8hyvmyc1x7E+C51g1/BY5i7/vSJ4zcbc3
HPuF4DkeNrMJHPj7juA5mtd13+thfxI8R0Fqj3YGXo/gOV4/Rqu78HoEz+n/
45jmjPOL4DmijUfMn2N/EjyHzcdXRA+vd+sF33nJqmZgPh0++hl/3yWH3pC8
itqgb5ElsgF/3+ke2aZdvNgOXdcO1gzj7zu7XtnE8mOd4OO5dovyfSqSPPnZ
qjakC6D5tu+5ACrJf16os+oE33ch+Q9nvPMmtqduJP8p0Lx6lF7Mk+Q/cpUy
vN3qPiT/oahGb7nU6kfyny3O7zs3eQeS/OfgTZ6DEmtCSP4zvJAiHHQyguQ/
bocrCkO1Ykn+Eycw63FfI5nkN62c471c+PxD8BvlXlsZfexPgt/UfZGyOILj
R/AbZk4VpU4c3yWT+2VbUquhy59hoBDHv0xxY/5muTq4yDi/woH96UlPY8c3
1AA/E9uYDbA/z+3O20dr0wQ6X3TYt2F/iuhu6KfQtMK9+Kwf+fj7guBBH7YK
R8+keZE8SCa0711tqi/Jg7yePpXgYA8geZCSv2yuvWAQyYMOPb9AOaAfRvKg
vaWc5s2no0kexH+Ce3DDVDzJgzi0TGpbzTPQJpeRn2x6xcD5Iyn4KPbbUzM5
XotTFXD3+Pe/u/H+/mx5biiyUgWTci1z+7DOvryrqCi6Fp739M/m4usJ/tP3
pTBQ1SuO5D9G8+lNBsmpaODxxWqVkVI4YjbmfhX7p2Nx0CMyrhLaL6CSAhxP
mm65rT81a2B/vOsmBzzeskfcsa+/HKTUhbxu4vUWh1LQieQq6Eq/Ivtr9fsu
WDKbVbUSUoZ2PCvFeiXu0hgtTQ00fvUwXv299OseW6SJqIANJ/PfzuHxP3J2
gXwa1bAhJoPDAM83ou18d9/fSsj/dGVnGR63VMpLO2mN59+cU/IZa7HRW1Xn
+SvBwfD6/jqs6QXZGI8bV8D0P04pRny/TkrO41ttlRB6Y3NiER5XVGaMfG9R
CdY0WddWNY9zyUhtA65vZ6t6P2JtvPGK5vSeKojIsxCvx5rgOQqv0/t2S1FJ
fnP11voeK1wPCH7DXn1ysQr7k+A3+RNrl6VwPSD4DXf9xBczXA8IfpO+xzRy
NR8JfpNmdeNiO16P4DfXrfVTqDifCX6z+XzYU1NcDwh+I3Cnhe0QXk/1bIXD
qaJmaEtu4YnF9UCGuWmN39E2mLphQ3mA60HZDduUnJ/tIMBW72SK60HBXZ8q
FYlO+DFk4lBoSEVGwecFDAO6YDrt8GCMP5XkPY7sLoe26buQvGdJUJpJw8SN
5D1t92KqWwQ9Sd4zzo8a6k76kLzn5EfXTU01fiTvEY26a3DCIZDkPSrikzLD
34JJ3vM3xsiwVTiC5D1luyT3uCrGkryHcce2ZufDySSvSU/SnDmO6wHBa756
dyrZ4npA8JpXIi+uy+P4EbxGsWH0XTeO78AmkdCLUdUgGCV0dLUet9Qfu80g
WQdq0ERHi+vByTN/6uXeNsCMSsBaWVwPjl7gVRwwbQIRJhHx99vx98KWVCbb
hRb4Xfa9yxDXA4L/RHXmxj+J8iL5D29YWx7E+pL8p+uhltEexgCS/yh/sq7r
3R5E8p923qoozfNhJP/xo7E8KnQsmuQ/hwI+hLx6G0/yn2cTeYkRpzKQ+d77
Z7+cKYY+Xm4uJexvbdfmj04yFUDz/dTPA3h/famXT1F+VsHmufXzO7GueKd+
LzeoFtr7ep9G4esJ3vNMgedYv2UcyXvM/Ke+TNumIkWuXh7OzlK45jFQfxf7
NXOT4YWMkEqwedfctloPho3opsXP1MBnze0Jpnjc9ZzKpsXacvAxMRC5j9d7
9/gBt21EFVB21jH8wNeHplWZCchVAj9fo3Y51oMnOKsV5qthuDtimgHfbzRu
WsrsXwG+k4d4/uDxvn75RzdOV4OUiL2yHp6v5iGLsOS3Sriu4fGgBI9rfTR3
djapgraUUYMhrJn+zjjrslWCxIP6Dw1Yf5GKblO5g99/N9JiwfdLl56QNamp
BNEZ8Z7V88ZunaCbYw/w98/UFvVXWP8OVUp7W1oBsZu3nBrB+tyOr5xL3FWQ
c40ntAbrxl3rtjz9h88TR7unWrGe+6Je75NZCfaWdz+uxmPQMX1y3eVKoETe
GCnGeoPi31hO+io4qZ3EXIG1Rte7ZXSgEpJW7NOrsbZ5vjdfo68SVNuWM1fX
NxC3e//GoRL8uSKiV59PWKm/J4zpf/2454kC1m/NZkj9fxc7u8c=
    
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1nf8zVUYB3B+CEkiexRllFH2apKy9957hSQrDSqj0lSZZVPI3iuj0LBn
dpHsPaOo9/Pqj7fPc57v97r3nnPu+f5ytele56WERIkSJWZHwv+Z0z+H5WR6
UIWilNa/LlfwPm2I1+bS/01O4RWqUknvLjaqR1GMMsY35EqG0sA4PfvUbamp
Ts0O9XgaqzNxUJ2Eh9S/y6k0VWehp7quTMsedUuZg2rqyjI5bdlk3FxmoyOj
jRvJjLTngHFr+SCdKG5cVv4V31N+J5vJrHTgA+OGMgPt2G/cSj4QY3UteS87
1S1kdiaom8jMHFIn5WH1Efk1vahnnI5f1dVj7tUp2KweQwmeML4pV/Eh7amt
l4Zd6okkI7fxUfkNvakRa6OXki3qLynJk8a35Go+ogN3kUf/DzmNPrE+lOIp
/b/lGj6mI8nJq39MTqdvzEHsGZ7W/0eu5RM6kYJ8+n/KGbwa3yH2CCl5xLXj
8lv6USfWg7t51LUTciavxfrHnJCK/K6dlLN4PeYzvh/3kJp7ScN9pCUd95Oe
DGQkE5nJQlaykZ0cPMCD5CRX7MlYw5hrCnjvU3I2b1A/5irmkYKunZZzeJMG
MS8xZxRy7YycS//YVzwT88Njrp2V8xhAI56N+eFx187J+bxFY8rFa/Vvy+/5
lM4xZxTWPy8X8DZNKB//n/4d+QPDeDHmkSL6F+RC3qEpz8V76P8r1/EZXeK7
U1T/olzEQJpRId4jDhXWi8/pGvNBMb1LcjGDaM7z8R76idmg/oJuMUcU17ss
lzCYFrwQ76GfwI/q4bwU80YJvStyKUNoSTW9u9mq/oqK8Z7GSfhJPYLuMbeU
1Lsql/Euraiul4pt6rFUis9gnJSf1SN5mTrG97FbPSnmnlLG1+Ry3ov9YXw/
e9WtqaG+h+3qcVSOz2ecjF/UyRyCReSmOFvVpR2+XZjKcf7Uf1r24FvOckcv
n2zCF+xmY5xNshQvMiVeyzH9p+TLzOAMt/XyysZ8zi5+iXNalqQzk+O1/BG/
c/KoG/EZO/k5vpcsQScmxb0cjXOE3OqGDEv4/xn0U8yxLE5HJsa9HIlziofV
DfiU7fwYayqL0YEJcS+/xznJQ+r6fMI2NsQZKIvSnvFxL7/FeU8udT0+Zivr
4wyWRWjHuLiXw/o3yKmuy0dsYV2c71yP54lxHT5kMz/oHYx9EM8K49p8wCa+
11vLGlazKp47rGQFy1nGUpawmEUsZAHzmcdc5jCbWRyIfUwO71GLobEHmKm3
P34j8Xwyrsn7sb6xf/T2xe+NbMY1eC/WMvZG7Nn47ZLVuDrvxroxXS+5LExb
xsY88WucDWRRV2NIrBvTYi/Lx2nDVxxiT5w9ZFZXZXCsG9/E70E+Rmu+5GDs
6zjbyKSuwqBYN76O36YsRCvGcCD2sf6Tsnt8Zk5zTi+jrMzAWEem6pWTvZjN
BZLwKvO5QkFaMpr9see95jW5kGs8QfyRNY1TnHW9j5zLJTKwmBtU4p3YJ0yJ
tZe3eZ3EfvOL5HWejc9hvEzeoif/MovzJJDU9eXyb/oSf0TNk5cpEPcYL5F/
0YI7jGIfO2LPyX/oxwKuUpal3KRbrAcnOeP+3nIOF0lPRd6Ofc1k15+Rr8S+
i7mO70N+mjOSvWx3XxnZNdaOE7E2cU7KF3iLtUyKZ4p8lGaMiD3GtngGk079
PANYw8R4ZvGIuinDY4+xVe8kadUV6M9qJuht4USc48bP8SarGK83js0cJ41e
ed7gO8bq/Qd1A2mN
         "]]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1Hecz3UcB/A77nB39jh7XKQSyZkpEhFCueq6cwvnjsqoFBVFSMloWA2r
0i40lZbVooG20qJooagUxfP98Mfz93q/35/H3ff3fX+/j1/G0DFZoxMTEhJG
+Ihs4uNr+RBX0ZdMOpn/JV9hBkMpQ4b5N3I5V3M+vc3KsVl9D205Q/+3fJXb
ydbX5At1MReoK7FNvZRcdW2+UpflBPW38mHy1HUZq75IVuNTdZFsSD91H1me
Yt7TF8j6DOdefY5Mp4Qv9UNk48Tje2in7ywPxX3K12S+rEcpM/WXyloMY7t+
sGwUvfpCWZmP1IWyAcvUg2QddqiTaKr+Tj7CNVysr85n6v6xe3UF3lffR3vO
1P8jX2cWJQw0q8LH6gdIppn+e/ko1zIgno1ZCh+o76cDZ+n/lW8wm1LKcaL5
TvkY4+L50JEu5oflWuYwnPI0N98lH2d87CDeGbqaH5HruCPeMypwkvkP8gmu
i3uId4QUTnb2o3yS68mK50EqpzjbLZ/ihnj+sRPSaOFsj3yaCbHPuD8qUonK
VKEq1ahODWpSi3RqU4e61KM+DWhIIxrThIx4J+MZxq451bV/kiuYyCWxq9gj
LZ39LFdyI9mxl9gZrZz9IldxU7xXnB374TRnv8pnmEQO3WI/tHb2m3yWyeRy
Tvyt+X9yPXdyWeyM0833yue4mUF0j/9n/r/cwF1cHnukjfk++TxTyKNHXMP8
qNzI3VwR906m+X75AlPJ59y4Rvyo8KaYy8jYB23NfpcvMo0CesY14neIt9Tz
GBU7op3ZH3I1t1BIr7iGeRneVs9ndOyN9mYH5EtMp4h+Zql8qF7EeXFNfVne
US9gTOyWDmYH5cvcymD6m6WxRb2Y3vEd9Em8q17IlWTpq/KJ+sHYPR31f8o1
3Bbvh74Gn6uHMEBdka3qJfSJ76dPZpM62Y/gMZlNlzE=
         "]]},
       Annotation[#, "Charting`Private`Tag$16872#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], 
        LineBox[{361, 411, 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, 398, 
         399, 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 412, 410}]},
       Annotation[#, "Charting`Private`Tag$16872#2"]& ], 
      TagBox[
       {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV02fcjmUYB+DHiwopMiIkIyNFpJIIRdllhUQZlQhRkVF2pFRmkb333qth
j5K907BXKXvVcX443v95nff1/p77vkauJm1qtk6WSCSa+zOSlUmJRBee5W6O
6f3EKEazSu8jniMdx/V+ZgzfGX9MedJzQm8ru9VDaEAB/tMby/fqrlTgHk7q
/cIe9VBepSAJxun/ILvxPBk4pXdcTuIdnmKb3l75NQ15iGScZQbtKMN4836U
3XmBjPzNbD7gtOcn5GRacZUllOQC8+nIDZaz3fx98htu0YgrLCYpeSJRSP7D
3Pge4w7yOstIYZwkzzEz1of3uMZSknteVl5iYXyPcWd5kxVM8NurZQ8qcplF
ZOI8c2jPGfNOyim05mkusoBO7PB8vxzGazzMv8zjw3gP/mIW71OOif5njexJ
JTLHWuudklNpQyl26h2Qw3mdR+K7Y+/018peVObeWAe9XRxUf0tjCpMy9kN/
nexNFbLEO8UZ45B6BE0owm3xrfrr5SdUJWvsc5wxflWPpCmPcnu8s/4G2Ydq
3BdrGGeKaWw07kt1ssWexr4znU3Gn/Ii2WPtYj2ZwWbjfrxEjjhDsR7MZBaz
mcNc5jGfBSxkEYtZwlKWsZwVcV/jTsbdi/sUdyTONVv8xmfU4P7Y51jPOCdx
n40/pyY541zF2sU+xl027k8tHoizFOvEYfUomlGUO1gb91t+QW1yxZmPufym
Hs0bFCMV6+J+yy+pQ26uxlx+V4/hTR4jNev1t8mveJk8XIu5/KEey1sUJw0b
9LfLAdQlL9djLn+qx9Gcx7mTjfo75EDq8SA3Yi5H1ON5mydIyyb9nXIQ9cnH
Tb3TchrvUpojekflBFrwJHexOc61HMwr5OeW3hk5nbY8w1G9Y3IiLSkRZ9md
/x9mcNL/
         "]]},
       Annotation[#, "Charting`Private`Tag$16872#3"]& ]}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\[Alpha]", HoldForm], TraditionalForm], 
    FormBox[
     TagBox["F", HoldForm], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1}, {}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{
    GrayLevel[0]},
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotLabel->FormBox[
    TagBox[
     RowBox[{"F", "-", "\[Alpha]"}], HoldForm], TraditionalForm],
  PlotRange->{{0, 1}, {0., 4038.49596468671}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8480122727811813`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"5866600f-3401-4e5d-a204-01b978fe38b0"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.848010705667059*^9, 3.848011903418998*^9, {3.848012107869746*^9, 
   3.848012108452012*^9}},ExpressionUUID->"4823a407-e5ea-44b6-ab5c-\
f50db7364997"],

Cell[BoxData[
 RowBox[{"k", ":=", "100"}]], "Input",
 CellChangeTimes->{{3.847941715614503*^9, 3.84794171904033*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"0c44375d-e456-489e-a849-f4a7eb5a29d2"],

Cell[BoxData[
 RowBox[{"f3", ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"k", " ", "\[Alpha]"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "-", 
    FractionBox["\[Theta]", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{"\[Alpha]", " ", "\[Theta]"}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
    FractionBox["\[Alpha]", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]]}]], "Input",\

 CellChangeTimes->{{3.8477727192432623`*^9, 3.847772719691123*^9}, {
  3.847772756955811*^9, 3.847772757954935*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"549835f5-8d7e-4d93-aa26-57df24514101"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pf3", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"f2", ",", "f3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"Filling", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"1", "\[Rule]", "\[IndentingNewLine]", 
       RowBox[{"{", "2", "}"}]}], "}"}]}], ",", 
    RowBox[{"GridLines", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.847772751176367*^9, 3.8477727533118563`*^9}, 
   3.8480109450241327`*^9, {3.8480110195619802`*^9, 3.8480110524791403`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"8428ea87-c660-41cb-9237-3a7e5fdb9fb3"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdmHk4ld3XgDVJyFCUsQiNkiRTsbYhJCrhjZIUEkqSI8kQFWWIkFlmmfUz
l/Ecc+Y5cwk5zjmkwaso3/bH+3Rdn39c97WfZ69nL+tee2+iV2+ds1rLxMQU
v4aJafW3jtV0ZzXVSIVp9UckFnmxFOx5yh8G/7GxSWLel/kUgtlWvEy1duQR
LKE/O13jX0jw3TZFiPz+huDthdyja9ZUEVw8rt7SfpxCMMU2TtCEXkvwj93K
nDk3Gwhe+zOLS1DiHcFyK+bFBrktBLc8km2r399O8M5g2s+M2Q6Caf+OjfZK
dxGcMlP2juNZN8Ecwq/mJiZ6CA6wKbqWIN5H8ALKmrju2U+wk0xt4baa9wSP
5db6d4oOErxk2xOzz3WI4AOqG/9cKxsmWCtJ1Pp/20f/5kv48q6PpmMES9KN
2Pr1PhC8lfMLS+2vv7y+KiZPLPYjwXayZQObTo0TnHXyakLlwl/+QRPgmgr/
RHCRgda6MI0Jgj21H8cXTv1l0RGd98mPJwlWkn8Uxi8zRbDpjvafa7r/8o93
geMOXp8Jjlxv5nROfPrv948WJa2t/csb3L0MFW9TCWbKMMsb3zJDsGN0XuAW
yl+uOPCEhdueRjC3jqOkNwed4OGDHd33yv/y65cgPmHGIPhSnhy38J+//OBx
otdw5izBOdPCMRy6cwRH7GT7sbLylxN4z/j48T8ieNcjHu2NaX/H//On7Vi+
jbkCifDnc8oCq/x+EuFPUfbd6EwhEuHPRFmEApWbRPij9VTa3WQTifCnsMOV
7+laEuEP5/GB7ZQ/ToQ/hWfm+Fp/OxH+XJKIGrFkIhH+3BsNb9JnJhH+iKx/
qvqHi0T4Y7upOtp8J4nwZ92yZSKXDInw5+6lwSRmXRLhT1hDnN0eWxLhj9kW
r6wfz0mEP2eXB39zk0mEP1IRqYd/ficR/sQ8sfeclXMm/Lmwc7ElxMOZ8KeT
7aak83tnwh9doUC9MJW7hD+SrZzCJVl3CX8ejK7bteGIC+HPyJt12mo1LoQ/
/3ywPxdqcY/w53fHq4P2+1wJf74oeOQFL7kS/igdCJMSX7lP+PNEgrHAKeZO
+FN/YcOmfBMPwp95P/9e0yFPwp/XHsYvAsofEP4EKXzN4k/1Ivwp9BdmVm7y
Jvxp1bfgn2B+RPhjS4v0J8c8Jvx55y0vG2bqS/gz8NBuPPr6U8IfvWB3p5cC
AYQ/non7l+qPBhH+dNDeSuiUPSf8uXYtVfO+cxjhz/8eKsckjUUQ/hQPOXFL
8sYR/gxezN8QJZtE+COxwfn5b6505Gq04JST8Ne3/8//+ZMpQ+NP58oj/BFj
v+kneJiEZLK5mYVYMmHL7J4Ftu0kZJQe0Xxncz4sv5+WuLyZhNo4eXikUAmY
KMU8iN5AQlrkVI5W13Kw+N9OR31c31fM0i6lj1ZDI/VF4gCu//K0L3fCwmqA
L+5+UxL2Y1j7Ju+6g/Xgo1mhTsX+LAd957RsagQx2x7VrWwkJOTmY1Fi0wyW
59dGx+P4ayg6aoH0ViDvjF0jspeE1Kjer5nVOmAgpihVQ4WENtRa0auCOuHk
VMb68xdISHu+1dBxrAt4N9cjHncSGnh4eOSeYg8sBqso3E0noX/mn/rvd5qG
OG8Z/ql/nqCAnJilOAEqlH6bjozK80Nrt35Zw0GhwnL6CHCHBqI3or4vXW1n
wIr7LlCighHfJ8Fmbj4adO9/vIyYQtFnJffok5U0aHuvra3CGo4WjokyeVjR
AepI+fFK0UhzauNy7mYGmKlPWCVKJiDmPWXRD3IZUCTyNTmmIgXZC9xocjOc
heBu6jIbbw4aOeSrHsjvBJZPPqrly5JQnffABWb3V/BdsudoCz8JMQzo5afa
XsOMXy9nGCcJuUp7/VmcLAKn4ctTlhtJaKxhLi1fvgy4eF7WGa/B/ST2fFrY
oWrQy9gvcgTn/42GgEj+NAXqzoxJCWJuN3nMlxtQB6QcX1V//LzLUGTQE8FG
6E8TNnjGQkJBSvxKNg3vwHx9ysgBHhKK/WDk5qDXCgu3u3lixEgo/UDcdtv+
dmhbzpb9JU9CWzL3fpOFTuDwf7GWyYCEor/38Ys/6YIGu5p58zskpFKyYFD7
qRtY+Fe2/IgloX9/ffNU0Z0G6cft3373+aKOur1nzs5NQ+Opzn7aRj+0vlEh
KzmKChKfG/Z/6wxAppNf03JVZmBr5TET823BqK7SSnILYwbk9UrNFI1D0LkC
b/2D4TRYDjn8e6PiC7S+5uQ2JiU6eHGu7PhnJRJxs9KteSbp8PsjzT058SUa
uup+Od+HAdud49RCLZPRlKU+Q3ffLKiMpKtSz2eiimW1wRjdAkA2ikancH3u
mkvbZxFdCo2qrB5L60go7+1F588VFfCzmE3aacUJBYj84CkPJIPktu+CJbj+
q1gaGpxRLaQ73Ha1wuPT8kZbjFvr4TRz+akH60nIU+NsMNxtgnp/gaBx7FdG
xbeADewtULU5UfmiIAldSwaWTP82cKUXK85LYh/MXhm7zFDhhD7L5FuzZ2ib
mWC4ZvgM5BqLH2mUeI5sN3bZcKvTQPJKksWzwlDkRrn7yWqKBsMi6r3NtHBE
LVykLgXTIYi5NCz8RQy6TxELPinHAMEfYpoFoolIhrbYe7qPAWRD2pkA7TR0
3vLfihB+SxiTH3f0kcP7ib3y4/vyafBb/9lrefx9bzLCi0qkXoPh4c6Mt3j/
6qguuTOqUAQP2T3+mOD6OdDMc0ci/C180V/7gYbrS83Z/AXv6yoQ+Xl/vROu
v9KthxaqQyhg28/CzsD50r7KHf3weB08CqQdnsf9RG6NXXt0bQNAaqOINa7v
xqirEmrO7+CwZ5B1wBYSot66yD/+uwXayH5pTqIkpPR+2pHPqx2Kb19y+Yn9
4RP2c57b1glLxx/V3D2zGv/isptpF3gOsu4vsieh+bMmQdTSbjjiJgFWEXj+
lb2u2grTILpezndHlC/6qj/nkjEwDcXq5kdVS56iR7tGPO0fU2HPQtomQVIA
kmrYm9W4dwaOS68rMs8LQrHZrJdC+mdgyPHCOgeWEPTk1oaDO71psN4p5+v6
vjDkx2wmqipOB5bGlEH1G5FoQXBUuKGDDpPH1szY9MWh+gejqs2OuB5FdtnT
G5LQLlaNlcKts1B79Zb6yz0Z6Ok5RtfGnHxI0HrOrs+OffUceanNKIFX0+6e
dbielioeqF0QqoCD877uI7jenKv0FGXkyNBVoGVNxvmt7B+KezxTA1PpWanL
OP9X0cfQg+710GYhF5yD61nFdleHvkgTvPYKcLuN5x8XUnYZfdsMvw+wnnPC
/adQ5kSq4PE2WNqotuCBz0/epacOqvdRwXXQsdj330A0DfrR5g9mIC+DMpA8
GoxUfzhHPz9IgydHy9zeGYeifI9flee7aHA861jDsEs4clhk/3H8Ph0euivt
HP4Ujcx7eDWXRRnwlcVgQ1VyAhLadKHUmsKA6+I5ZdJuqUiGdK+Ex3YWev2V
ZMuzclFo7btBGCgDIfPFmXZcL7q//3jt8K2GwoifUSt4vW9JG3SSVWrgodab
/PN4vf/o/wx/P1wH16TDFI7g/eeLhpB7VDQDXBPLeklsKSizymxoQmUW9Lsr
JUJSs5BFiVym0+VKsAlkZPPifCZ6xX45MUmGWxY759/i+asV8+etw2vBfiLq
/mq+T7X258fxG0Kj55tiR9wPCyxuCRSHpUJBp6LiF+yLSka/xVBFHkw+OPH9
LD5f/mIxkNIfL4TXh03uvMe+dOruGTA78RaMW0KUFPH3SfK+eeNvXAU1zrJ2
Ufj75e8rXmm0pgCqDDkzhOM/vtZ/wZ6nDjZf3WaQgde/jcdwTiyqAYQrk5QH
8fnS6uTGmFy9d3Bq3xqpGhwvWH70s0BfC0g0zJ6/LkJCD3OfJcwZtQNbpDav
9xHc3/uUSlvWdgJj16JBuR6eryTuZoZmF7z5Ix5se4OE3sWxHnRL7gbv0/ud
MsJISNpb/a6eFO7XEammea6+aG1k1+a+NnyfkK5Kzg16imrPHJoxuL/qy2Bm
iFYA2l6qntMrPAM700vyhB2DkK/YJVJXywx0S6vk+X18jpJa6wX4XGiw/1ZL
Z3dqGDq9dzrtCj8dfH7L9ByQiERU8X6XhHo6+G5hPR3hFIfKODkL+q8zoLI8
662EexKqNlVmobLMQndwrKdeVDq65a7WrnwpH9rUyzj6cT0nN7iYlIWXQNH3
p0lS+PySCKHpoc3lMEYSkdiG80fncD11k5UMzt6JTc04v8owxRJYVQPhaiVD
rTj/8RqvDPmM6mFF69+XJ7Evwu5sXwa/N8Lx3aos1Xh/8Gz5yNAJaYab5vIF
vnwkdOFXwx1Dnjb4s2+YV28fCVEm4yL2tlDBjxLwbKE2EHVI34i9SZoByT5j
c3pZMJK80ZTfuYsGgieNBUUlQ1HLcFn22UYaSI3b621UDUdHBCJcLznQoUKR
fUz+WTQyGOFI7N3OAPsnc4Zm1gmIO9Jvn1MpA+/HpnR1wVTU0eBYrX15FsKT
beoFh3KQouYIuvekDFZGZDm24n5M1j0QZnKxGvI//pO7Ha9PaYSzKHNrDezS
eZ4ojznEqOp8TWEdDJ8wdh/Bz091686mBjOgdMrlWk5xMtLeYjzBJzsLPV6v
m9p/ZaJNiie5cjkqYeHlYog69mFbZ+Narzdk4DG4CKv7IUosN71lVwvrN8iF
xOPxbNrD0vZ11cAt/Iiqj+MpZIv7v6mgAHO5neFazGscRPf8e4UMbhyZD1Z9
U3HolPHgrYWAGcrBQ/j9vpyuW5/yq2FaaTN1Bo8f41gajbGpAefByOv38fuS
Mg6jrNwUENvsJ0/B40fiI2ML+DVAINH1KhX76WPGYmWgngr3G39K6eH7n3iP
pDm3fR5cmLHuj8W+cOUk+LOWFIK/x1wqH77/pQRKBywJvQWjy2YD5tjPJMvJ
5nrJKlBX2G2Sg+Mt5FZu0z1HgcCvn2u6cbyU60plFkx1MPTrYZYPri+fOG3P
6w8bQLrpiPML7Kds4kCvpeI74A0KljLH8Sxidp6Rp7QA58nYz5/w/S896or8
RdQOg4vcLxvx/c/syFaTssUO6L50sPYDvv896FdJqzrWBUEB67i07UhIXuPT
/brIboAWq+DToSRkWdPx48y+aYgx4DGNsPNFrMc0jG80TQN/ig87r9tTZHnN
OF7TmQrFRhePMh8OQAHS+lKmfDOgSlYS7jUIQstmPl6ODTPgoJvA9U/bc/Ta
7dVznjs04PIZ6GJ/FoakFXOo81vpcPCq0EG5tZHoaobB7kAyHT4sZEiGa8Qh
ufOvaCMWDHgqU10SZZyEOJjfsj9cNwvJYnP+dobpaHzLzVbjo9hPfmq/AD7/
lNrVFzvZlYB2v6eSJfbT6UHsRenkcqifULh7BOcvTS64x+97NXDy62h14fwu
O9pVcmXWQHcIy3AJzn+lJmvRZtV6OMf24w8f9jOAmenBzrFG+JbWzmmD/Twt
Xrh3jUczmE6YbtuK/ZQy2zTkwNQG11Pyvhbh+8XV5XpdwQYqjGyRTJjNCkQa
GfeEv9+aAaWowfd1mcEo6dXXytvCNAh0c5Pj2xaKBv1jxfRqaKAVolLgJRGO
eA6YVjBs6XDoxVmHA5bRqOWK/2nKFgbsqeB3bjmZgALGdl11LWCAiLLg6CZ6
Ctp5e6523GQW+Iwd69qccxC779Q3XvMy4P/6KuIo9s3NSVX47olqsD4+vySO
1/eL64Wt1B8K0FRbv+/F/Pr8rtLShDp40Tc0V4CfNxec3J3tj++HEyVhuoHJ
KKKsZzpfahbsf2Q326RnouF752p0pirgiNO030XsT+fiqP/LZDJ0nEXlxTif
TL2qW74Z1cK+lCfs3ni8dbfsw8GhKlAw2B94FcdbHMtAyukU6M6+oPLv6v0u
Qv41jy4ZMsZ2PKrA/Cf5n+k1TLXQNOl/e3W/fN47vcgUVw2bNIp6vuPxX6oP
wnYa1sCmxBw+GzzflImP9d4lMhSNXxCtxOMuWoVZGu54/s355Z8wH/5sQTkj
QgZv28v76jEzS/CyHb9dDYwVfgU2/L5pRv49i3YyRF3ZnFaKxzW12V4O3CWD
O1PepVUW8imfqmvE/U2P0v8R823WC0aM3RSIK7wr24B5vbqAwxi/LKi/zR4U
VyChuSFD1iSBVLhosbHvPu4HkTbnzSQ182BbjcYiBfsp4KmlZJ1YCEUz634r
4H7AIVU02cTyFgQbZiaccD8wDVgynNhWBdm777xcrcc+ba/5QC0KZN2/cq4D
xyug2tmZLdTCZXfLDBKuZ5VxtQY/lwbYfCba7Q7uB4Ktat/g0DsQu9bKewjH
09Wr9j5R2gLt6a1CSbgfKHE2r31+tB3oVzwcbuB+UHnFMyP/WweI8TY8voP7
QbF1EEVHrgu+jjl6l9iSkH3EGTHb0G5gZMmMJoaQ0B+L7Uc7d0/Dw22+h7Za
+qJn7O7uJfXTsCyhyGHo+BQVztN/Vt2hQvv1xJpWiQBUT++3j+edAaoIaqzX
CEIly9G+lNoZ0Pj4hL259jmS69neGuJAA+l4axtl7zCUQOZkU+Kmg44sTenD
lwgUT+N2X1dFh6VEe9s2yTj0zfXbxitX8H69S373E80kVHxhkaODaRbYdmxt
8ZFJR7GXvHWvieZD9iuj2eO4H9Qo37TqNCqByWddWp64H4yKiBb9eVYOb6Ri
Lqvh/D3SEYyKolaDZuPn9704v8PsUlHn4mtAIn7/0dV+3NpwzIpFvh70oXn9
GtwPNE79alDtaYRZndB1KrgfHD0rrDl8pxmkOKRkB7bj+wJXJofnQiv8rJzv
tsX9IN/34quwWirEdxWkuMYHIg8rJjP5mzMgHN1eCEnB6NKJjXVkARp03zS2
380Wisw/sV9urqaB9rh7ff/2cPS4oHL06HU6dAhT4o3ORKNNKSdTFbgY8JzJ
5ej+Ywno5LpbHr9fM+BQ6Ejkm54UVF93sOHQ+Vl4NFOYFnciBznvsdObOFUG
g8KCAlrYb5MnLR8fK1UD0/yJbwfw+gYzz59w+EaBzd83/hDFXP3e4HpBeB10
DPa7xePnd8Bh9UNPGfBIXejYkEsyUuHaSls5MAtOIfQJhmcm0hToF+LvqoBL
/sMN1tjXXHbbszmRZPB439K+2g8+2K9nyJ6qhU9G21Pv4PEnp3XYF+uqIMjR
RsoOx3t/74agZxwFHETrWb7i56OyKE5iqmQQ2dlkUoV5VJm/Rv1HDXzojWOw
4PftqXcqOEOqIZh2SOgXHh8cUrt15WQNKEh5aZvj+WpvckvKfyHDZUP/G+V4
3Pijs4+PIwXaMz7bjGHmWJr1MeMlg9yNhpFGzBMKCe061/DfvxcZc+P3FSuU
VRxrySA9K9u3et4QNw2/On0D33/oXAZvMP+M0srqqaiGpM1cJ6Ywn94xyb8s
SIH8S0JRtZibdm3gclvB54mjvfQ2zN8nDBqCcsng5WL9cTUfow+zaRvOk8Hh
5ZWpMsybNJeS+JkpoGHyirMas2H3+9/oABle/fHKrsHs8WJPkeEgGXTbf+eu
xreRfTDwzpsMIQJxCavfxy/zIXzSfpb4f9z/AZfI+Fs=
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GeometricTransformationBox[
        GraphicsGroupBox[
         PolygonBox[{{100, 45, 46, 47, 48, 49, 52, 50, 102, 415, 210, 261, 
          319, 384, 127, 216, 267, 325, 390, 152, 193, 244, 302, 367, 99, 168,
           209, 260, 318, 383, 126, 215, 266, 324, 389, 151, 192, 243, 301, 
          366, 98, 167, 208, 259, 317, 382, 125, 150, 191, 242, 300, 365, 97, 
          101}}]], {{0.23944912341061753`, 0.}}]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GeometricTransformationBox[GraphicsGroupBox[PolygonBox[CompressedData["

1:eJwl1FWwVmUUBuCfDuluOHTNgCCtNOfQcegUASVEUkEEZkiluzuUGVppJS5A
BQO4AJ1R2gQFlAtACeVZw8Vz1rvW3jP/Pt/37Z00YGTqiLSJRCINb/pTS+2u
FuCyvJ0pDKY2dejhWkGuyDuYyhDq0tO8EFflnUxjKKPMqnFfPslq6tHLrDDX
5F1MZxijzarzQD7FGurT26wI1+XdzIjf1zcmIxfi/2CM/CIP5c9Zywf6ZLLx
g74BfeSi3JD3MEduRU5mxvOrTcjEUlK5aL5AbUdeVtCV4eZj1Rqs4h/9ErUT
6/hCP09twxpys5wubIh7XJ+lprCa7CyjM+v50fVFagfWkp+VdONl1/qqxfhJ
Xqx2ZK88V21NLt6PNVabkpnv9AvV9uTjLf3bak3+lb9kvtyWPPEc+tlqS3Jw
Sf8K/eTi/Cx/HGsde6NvRha+14/gHfklHsmn2UBDXjUrwS/yJ7EOjGRcnEke
y2fYSCP6m5XkV3lfPFOcMcab1eaJ/BWbaMxrZqX4Td4f+xxnjHfN6vBU/prN
NGGAWRK/ywdiDeNM0ZSB5qW5KR+MPY19pxmDzMtwSz4UaxfrSXNeNy/LH/Lh
OEOxHrQgmRRa0orWtKEt7WhPBzrSiVQ604WudKN7vJvxDsZ7xRt+qxx/ykdi
n2M94x1isHl5bsufxrmKtYv3gSHmFbgjfxZnKdaJCWZ1+U/+hi1x5hhqVpG7
8tE483Ev75nV43/5W7bGOWGYWSX+ko+xNO5loll94mN0VvkwzkXi+XepMn/L
x1kW9zLJrAFpOKf/KM4Fw/VVuCefYHncy+R4T0jLef222JPYM6pShcpUoiIV
KE85ylKG0iRRipKUoDjFKEoRClOIghQgP/nISx5yk4uc5CA72XiBrGQhM5nI
SAbSk474Vtd8vkSJZw3QnNo=
          "]]], {{
        5.551115123125783*^-17, -9.094947017729282*^-13}}]}, {}, {}}, {{}, \
{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], 
        LineBox[{1, 51, 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, 100, 45, 46, 47, 48, 49, 
         52, 50}]},
       Annotation[#, "Charting`Private`Tag$9130#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1Hecz3UcB/DfIRXRtKU0tG1nhTt7jzMuDSvzcCfRNE5ltMk6ZFS0B2VE
pcwKRdGwV9OIosh+vh/+eN779X7/vr/7/R6f7/v7K90tKy0zKZFI9PGnipqu
Fmab/BbZ9CKZqtzltSJsl99mBL2pRkfzouyQ3+GJ+L8MMCvHv/JyplCdu82K
sVN+lyfJ4AGz8vwnr2AqNbjHrDi75Pd4Kj5fn0JeNur7MlCuwDF5JdMYrW/I
JWzW1+ReuQS75fd5Rm7CpYyM76+mciHjSWOT+QtqC65kEu3pZ/6gWpEcjutf
UtvwMqv0z6nNmMrlTKQdM+Iar49RGzGFAkygLdPZ4vWxaiumUYjJdOBOr92n
lmSPPE5tzQfys2pTLmNUnLFal4v4Qf+i2pKr6K8fpFbif3k1z8vNuSK+h/5p
tTEF2aqvRSf5avbKc+Os497o63ExP+ozGSxX5oT8JTOoTWezUvwiz4tzIIuH
Yic5KX/FTOrQxewafpU/jO8UO8bDZsmckr9mFil0NbuW3+SP4j7HjvGIWVVO
y2t4hVS6mZXmd3l+nGHsFHW53/w6/pAXxD2N+049uptfz5/ywji7OE/q08P8
BvbJi2KH4jxoQEMa0ZgmNKUZzWlBS1rRmjak0ZZ2tKcD6fFsxjMYzxU9fdaN
7Jc/jvsc5xnPEL3My3BAXhx7FWcXzwO9zW/ioLwkdinOiUfNqnFGXsursXOJ
878bN/OX/EnsfFzLY2bVOSuv47XYEzLMbuGQ/Cnj41oeN6tBgm+U2bEX9NXf
ymH5MybEtQwxq0kS3+rnxF7QT38bf8tLmRjXMjSeE3KxXv963JPYDfqb3c4/
8udMiusZZlaL3GzQvxG7Qfxg3sER+QsmM1Jfn3z8FO9luFybPHynfzP2hyx9
WY7Ky8hhlL4B+fk53ku2XIcL+F4/Uz0Hmd6twg==
         "]]},
       Annotation[#, "Charting`Private`Tag$9130#2"]& ]}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 335.85711312411604`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1}, {}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{18.193878, 1.5}, {6.483962, 0.5}},
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotRange->{{-0.020833333333333336`, 1.0208333333333333`}, {
   133.60871258966097`, 4178.576723278762}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8477727615691233`*^9, {3.847941659581863*^9, 3.847941725585897*^9}, 
   3.848010899100109*^9, {3.848010939755777*^9, 3.848010945897724*^9}, 
   3.848010985839878*^9, {3.848011022549992*^9, 3.8480110536241217`*^9}},
 CellLabel->"Out[35]=",ExpressionUUID->"1f5ad202-929e-462c-91cc-c52bbcefe14f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pf3", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"HoldForm", "[", "\[Alpha]", "]"}], ",", "None"}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"HoldForm", "[", 
     RowBox[{"F", "-", "\[Alpha]"}], "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[37]:=",ExpressionUUID->"15fb8b02-92f6-436d-bfd2-e36c2dfb2a4b"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdmHk4ld3XgDVJyFCUsQiNkiRTsbYhJCrhjZIUEkqSI8kQFWWIkFlmmfUz
l/Ecc+Y5cwk5zjmkwaso3/bH+3Rdn39c97WfZ69nL+tee2+iV2+ds1rLxMQU
v4aJafW3jtV0ZzXVSIVp9UckFnmxFOx5yh8G/7GxSWLel/kUgtlWvEy1duQR
LKE/O13jX0jw3TZFiPz+huDthdyja9ZUEVw8rt7SfpxCMMU2TtCEXkvwj93K
nDk3Gwhe+zOLS1DiHcFyK+bFBrktBLc8km2r399O8M5g2s+M2Q6Caf+OjfZK
dxGcMlP2juNZN8Ecwq/mJiZ6CA6wKbqWIN5H8ALKmrju2U+wk0xt4baa9wSP
5db6d4oOErxk2xOzz3WI4AOqG/9cKxsmWCtJ1Pp/20f/5kv48q6PpmMES9KN
2Pr1PhC8lfMLS+2vv7y+KiZPLPYjwXayZQObTo0TnHXyakLlwl/+QRPgmgr/
RHCRgda6MI0Jgj21H8cXTv1l0RGd98mPJwlWkn8Uxi8zRbDpjvafa7r/8o93
geMOXp8Jjlxv5nROfPrv948WJa2t/csb3L0MFW9TCWbKMMsb3zJDsGN0XuAW
yl+uOPCEhdueRjC3jqOkNwed4OGDHd33yv/y65cgPmHGIPhSnhy38J+//OBx
otdw5izBOdPCMRy6cwRH7GT7sbLylxN4z/j48T8ieNcjHu2NaX/H//On7Vi+
jbkCifDnc8oCq/x+EuFPUfbd6EwhEuHPRFmEApWbRPij9VTa3WQTifCnsMOV
7+laEuEP5/GB7ZQ/ToQ/hWfm+Fp/OxH+XJKIGrFkIhH+3BsNb9JnJhH+iKx/
qvqHi0T4Y7upOtp8J4nwZ92yZSKXDInw5+6lwSRmXRLhT1hDnN0eWxLhj9kW
r6wfz0mEP2eXB39zk0mEP1IRqYd/ficR/sQ8sfeclXMm/Lmwc7ElxMOZ8KeT
7aak83tnwh9doUC9MJW7hD+SrZzCJVl3CX8ejK7bteGIC+HPyJt12mo1LoQ/
/3ywPxdqcY/w53fHq4P2+1wJf74oeOQFL7kS/igdCJMSX7lP+PNEgrHAKeZO
+FN/YcOmfBMPwp95P/9e0yFPwp/XHsYvAsofEP4EKXzN4k/1Ivwp9BdmVm7y
Jvxp1bfgn2B+RPhjS4v0J8c8Jvx55y0vG2bqS/gz8NBuPPr6U8IfvWB3p5cC
AYQ/non7l+qPBhH+dNDeSuiUPSf8uXYtVfO+cxjhz/8eKsckjUUQ/hQPOXFL
8sYR/gxezN8QJZtE+COxwfn5b6505Gq04JST8Ne3/8//+ZMpQ+NP58oj/BFj
v+kneJiEZLK5mYVYMmHL7J4Ftu0kZJQe0Xxncz4sv5+WuLyZhNo4eXikUAmY
KMU8iN5AQlrkVI5W13Kw+N9OR31c31fM0i6lj1ZDI/VF4gCu//K0L3fCwmqA
L+5+UxL2Y1j7Ju+6g/Xgo1mhTsX+LAd957RsagQx2x7VrWwkJOTmY1Fi0wyW
59dGx+P4ayg6aoH0ViDvjF0jspeE1Kjer5nVOmAgpihVQ4WENtRa0auCOuHk
VMb68xdISHu+1dBxrAt4N9cjHncSGnh4eOSeYg8sBqso3E0noX/mn/rvd5qG
OG8Z/ql/nqCAnJilOAEqlH6bjozK80Nrt35Zw0GhwnL6CHCHBqI3or4vXW1n
wIr7LlCighHfJ8Fmbj4adO9/vIyYQtFnJffok5U0aHuvra3CGo4WjokyeVjR
AepI+fFK0UhzauNy7mYGmKlPWCVKJiDmPWXRD3IZUCTyNTmmIgXZC9xocjOc
heBu6jIbbw4aOeSrHsjvBJZPPqrly5JQnffABWb3V/BdsudoCz8JMQzo5afa
XsOMXy9nGCcJuUp7/VmcLAKn4ctTlhtJaKxhLi1fvgy4eF7WGa/B/ST2fFrY
oWrQy9gvcgTn/42GgEj+NAXqzoxJCWJuN3nMlxtQB6QcX1V//LzLUGTQE8FG
6E8TNnjGQkJBSvxKNg3vwHx9ysgBHhKK/WDk5qDXCgu3u3lixEgo/UDcdtv+
dmhbzpb9JU9CWzL3fpOFTuDwf7GWyYCEor/38Ys/6YIGu5p58zskpFKyYFD7
qRtY+Fe2/IgloX9/ffNU0Z0G6cft3373+aKOur1nzs5NQ+Opzn7aRj+0vlEh
KzmKChKfG/Z/6wxAppNf03JVZmBr5TET823BqK7SSnILYwbk9UrNFI1D0LkC
b/2D4TRYDjn8e6PiC7S+5uQ2JiU6eHGu7PhnJRJxs9KteSbp8PsjzT058SUa
uup+Od+HAdud49RCLZPRlKU+Q3ffLKiMpKtSz2eiimW1wRjdAkA2ikancH3u
mkvbZxFdCo2qrB5L60go7+1F588VFfCzmE3aacUJBYj84CkPJIPktu+CJbj+
q1gaGpxRLaQ73Ha1wuPT8kZbjFvr4TRz+akH60nIU+NsMNxtgnp/gaBx7FdG
xbeADewtULU5UfmiIAldSwaWTP82cKUXK85LYh/MXhm7zFDhhD7L5FuzZ2ib
mWC4ZvgM5BqLH2mUeI5sN3bZcKvTQPJKksWzwlDkRrn7yWqKBsMi6r3NtHBE
LVykLgXTIYi5NCz8RQy6TxELPinHAMEfYpoFoolIhrbYe7qPAWRD2pkA7TR0
3vLfihB+SxiTH3f0kcP7ib3y4/vyafBb/9lrefx9bzLCi0qkXoPh4c6Mt3j/
6qguuTOqUAQP2T3+mOD6OdDMc0ci/C180V/7gYbrS83Z/AXv6yoQ+Xl/vROu
v9KthxaqQyhg28/CzsD50r7KHf3weB08CqQdnsf9RG6NXXt0bQNAaqOINa7v
xqirEmrO7+CwZ5B1wBYSot66yD/+uwXayH5pTqIkpPR+2pHPqx2Kb19y+Yn9
4RP2c57b1glLxx/V3D2zGv/isptpF3gOsu4vsieh+bMmQdTSbjjiJgFWEXj+
lb2u2grTILpezndHlC/6qj/nkjEwDcXq5kdVS56iR7tGPO0fU2HPQtomQVIA
kmrYm9W4dwaOS68rMs8LQrHZrJdC+mdgyPHCOgeWEPTk1oaDO71psN4p5+v6
vjDkx2wmqipOB5bGlEH1G5FoQXBUuKGDDpPH1szY9MWh+gejqs2OuB5FdtnT
G5LQLlaNlcKts1B79Zb6yz0Z6Ok5RtfGnHxI0HrOrs+OffUceanNKIFX0+6e
dbielioeqF0QqoCD877uI7jenKv0FGXkyNBVoGVNxvmt7B+KezxTA1PpWanL
OP9X0cfQg+710GYhF5yD61nFdleHvkgTvPYKcLuN5x8XUnYZfdsMvw+wnnPC
/adQ5kSq4PE2WNqotuCBz0/epacOqvdRwXXQsdj330A0DfrR5g9mIC+DMpA8
GoxUfzhHPz9IgydHy9zeGYeifI9flee7aHA861jDsEs4clhk/3H8Ph0euivt
HP4Ujcx7eDWXRRnwlcVgQ1VyAhLadKHUmsKA6+I5ZdJuqUiGdK+Ex3YWev2V
ZMuzclFo7btBGCgDIfPFmXZcL7q//3jt8K2GwoifUSt4vW9JG3SSVWrgodab
/PN4vf/o/wx/P1wH16TDFI7g/eeLhpB7VDQDXBPLeklsKSizymxoQmUW9Lsr
JUJSs5BFiVym0+VKsAlkZPPifCZ6xX45MUmGWxY759/i+asV8+etw2vBfiLq
/mq+T7X258fxG0Kj55tiR9wPCyxuCRSHpUJBp6LiF+yLSka/xVBFHkw+OPH9
LD5f/mIxkNIfL4TXh03uvMe+dOruGTA78RaMW0KUFPH3SfK+eeNvXAU1zrJ2
Ufj75e8rXmm0pgCqDDkzhOM/vtZ/wZ6nDjZf3WaQgde/jcdwTiyqAYQrk5QH
8fnS6uTGmFy9d3Bq3xqpGhwvWH70s0BfC0g0zJ6/LkJCD3OfJcwZtQNbpDav
9xHc3/uUSlvWdgJj16JBuR6eryTuZoZmF7z5Ix5se4OE3sWxHnRL7gbv0/ud
MsJISNpb/a6eFO7XEammea6+aG1k1+a+NnyfkK5Kzg16imrPHJoxuL/qy2Bm
iFYA2l6qntMrPAM700vyhB2DkK/YJVJXywx0S6vk+X18jpJa6wX4XGiw/1ZL
Z3dqGDq9dzrtCj8dfH7L9ByQiERU8X6XhHo6+G5hPR3hFIfKODkL+q8zoLI8
662EexKqNlVmobLMQndwrKdeVDq65a7WrnwpH9rUyzj6cT0nN7iYlIWXQNH3
p0lS+PySCKHpoc3lMEYSkdiG80fncD11k5UMzt6JTc04v8owxRJYVQPhaiVD
rTj/8RqvDPmM6mFF69+XJ7Evwu5sXwa/N8Lx3aos1Xh/8Gz5yNAJaYab5vIF
vnwkdOFXwx1Dnjb4s2+YV28fCVEm4yL2tlDBjxLwbKE2EHVI34i9SZoByT5j
c3pZMJK80ZTfuYsGgieNBUUlQ1HLcFn22UYaSI3b621UDUdHBCJcLznQoUKR
fUz+WTQyGOFI7N3OAPsnc4Zm1gmIO9Jvn1MpA+/HpnR1wVTU0eBYrX15FsKT
beoFh3KQouYIuvekDFZGZDm24n5M1j0QZnKxGvI//pO7Ha9PaYSzKHNrDezS
eZ4ojznEqOp8TWEdDJ8wdh/Bz091686mBjOgdMrlWk5xMtLeYjzBJzsLPV6v
m9p/ZaJNiie5cjkqYeHlYog69mFbZ+Narzdk4DG4CKv7IUosN71lVwvrN8iF
xOPxbNrD0vZ11cAt/Iiqj+MpZIv7v6mgAHO5neFazGscRPf8e4UMbhyZD1Z9
U3HolPHgrYWAGcrBQ/j9vpyuW5/yq2FaaTN1Bo8f41gajbGpAefByOv38fuS
Mg6jrNwUENvsJ0/B40fiI2ML+DVAINH1KhX76WPGYmWgngr3G39K6eH7n3iP
pDm3fR5cmLHuj8W+cOUk+LOWFIK/x1wqH77/pQRKBywJvQWjy2YD5tjPJMvJ
5nrJKlBX2G2Sg+Mt5FZu0z1HgcCvn2u6cbyU60plFkx1MPTrYZYPri+fOG3P
6w8bQLrpiPML7Kds4kCvpeI74A0KljLH8Sxidp6Rp7QA58nYz5/w/S896or8
RdQOg4vcLxvx/c/syFaTssUO6L50sPYDvv896FdJqzrWBUEB67i07UhIXuPT
/brIboAWq+DToSRkWdPx48y+aYgx4DGNsPNFrMc0jG80TQN/ig87r9tTZHnN
OF7TmQrFRhePMh8OQAHS+lKmfDOgSlYS7jUIQstmPl6ODTPgoJvA9U/bc/Ta
7dVznjs04PIZ6GJ/FoakFXOo81vpcPCq0EG5tZHoaobB7kAyHT4sZEiGa8Qh
ufOvaCMWDHgqU10SZZyEOJjfsj9cNwvJYnP+dobpaHzLzVbjo9hPfmq/AD7/
lNrVFzvZlYB2v6eSJfbT6UHsRenkcqifULh7BOcvTS64x+97NXDy62h14fwu
O9pVcmXWQHcIy3AJzn+lJmvRZtV6OMf24w8f9jOAmenBzrFG+JbWzmmD/Twt
Xrh3jUczmE6YbtuK/ZQy2zTkwNQG11Pyvhbh+8XV5XpdwQYqjGyRTJjNCkQa
GfeEv9+aAaWowfd1mcEo6dXXytvCNAh0c5Pj2xaKBv1jxfRqaKAVolLgJRGO
eA6YVjBs6XDoxVmHA5bRqOWK/2nKFgbsqeB3bjmZgALGdl11LWCAiLLg6CZ6
Ctp5e6523GQW+Iwd69qccxC779Q3XvMy4P/6KuIo9s3NSVX47olqsD4+vySO
1/eL64Wt1B8K0FRbv+/F/Pr8rtLShDp40Tc0V4CfNxec3J3tj++HEyVhuoHJ
KKKsZzpfahbsf2Q326RnouF752p0pirgiNO030XsT+fiqP/LZDJ0nEXlxTif
TL2qW74Z1cK+lCfs3ni8dbfsw8GhKlAw2B94FcdbHMtAyukU6M6+oPLv6v0u
Qv41jy4ZMsZ2PKrA/Cf5n+k1TLXQNOl/e3W/fN47vcgUVw2bNIp6vuPxX6oP
wnYa1sCmxBw+GzzflImP9d4lMhSNXxCtxOMuWoVZGu54/s355Z8wH/5sQTkj
QgZv28v76jEzS/CyHb9dDYwVfgU2/L5pRv49i3YyRF3ZnFaKxzW12V4O3CWD
O1PepVUW8imfqmvE/U2P0v8R823WC0aM3RSIK7wr24B5vbqAwxi/LKi/zR4U
VyChuSFD1iSBVLhosbHvPu4HkTbnzSQ182BbjcYiBfsp4KmlZJ1YCEUz634r
4H7AIVU02cTyFgQbZiaccD8wDVgynNhWBdm777xcrcc+ba/5QC0KZN2/cq4D
xyug2tmZLdTCZXfLDBKuZ5VxtQY/lwbYfCba7Q7uB4Ktat/g0DsQu9bKewjH
09Wr9j5R2gLt6a1CSbgfKHE2r31+tB3oVzwcbuB+UHnFMyP/WweI8TY8voP7
QbF1EEVHrgu+jjl6l9iSkH3EGTHb0G5gZMmMJoaQ0B+L7Uc7d0/Dw22+h7Za
+qJn7O7uJfXTsCyhyGHo+BQVztN/Vt2hQvv1xJpWiQBUT++3j+edAaoIaqzX
CEIly9G+lNoZ0Pj4hL259jmS69neGuJAA+l4axtl7zCUQOZkU+Kmg44sTenD
lwgUT+N2X1dFh6VEe9s2yTj0zfXbxitX8H69S373E80kVHxhkaODaRbYdmxt
8ZFJR7GXvHWvieZD9iuj2eO4H9Qo37TqNCqByWddWp64H4yKiBb9eVYOb6Ri
Lqvh/D3SEYyKolaDZuPn9704v8PsUlHn4mtAIn7/0dV+3NpwzIpFvh70oXn9
GtwPNE79alDtaYRZndB1KrgfHD0rrDl8pxmkOKRkB7bj+wJXJofnQiv8rJzv
tsX9IN/34quwWirEdxWkuMYHIg8rJjP5mzMgHN1eCEnB6NKJjXVkARp03zS2
380Wisw/sV9urqaB9rh7ff/2cPS4oHL06HU6dAhT4o3ORKNNKSdTFbgY8JzJ
5ej+Ywno5LpbHr9fM+BQ6Ejkm54UVF93sOHQ+Vl4NFOYFnciBznvsdObOFUG
g8KCAlrYb5MnLR8fK1UD0/yJbwfw+gYzz59w+EaBzd83/hDFXP3e4HpBeB10
DPa7xePnd8Bh9UNPGfBIXejYkEsyUuHaSls5MAtOIfQJhmcm0hToF+LvqoBL
/sMN1tjXXHbbszmRZPB439K+2g8+2K9nyJ6qhU9G21Pv4PEnp3XYF+uqIMjR
RsoOx3t/74agZxwFHETrWb7i56OyKE5iqmQQ2dlkUoV5VJm/Rv1HDXzojWOw
4PftqXcqOEOqIZh2SOgXHh8cUrt15WQNKEh5aZvj+WpvckvKfyHDZUP/G+V4
3Pijs4+PIwXaMz7bjGHmWJr1MeMlg9yNhpFGzBMKCe061/DfvxcZc+P3FSuU
VRxrySA9K9u3et4QNw2/On0D33/oXAZvMP+M0srqqaiGpM1cJ6Ywn94xyb8s
SIH8S0JRtZibdm3gclvB54mjvfQ2zN8nDBqCcsng5WL9cTUfow+zaRvOk8Hh
5ZWpMsybNJeS+JkpoGHyirMas2H3+9/oABle/fHKrsHs8WJPkeEgGXTbf+eu
xreRfTDwzpsMIQJxCavfxy/zIXzSfpb4f9z/AZfI+Fs=
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GeometricTransformationBox[
        GraphicsGroupBox[
         PolygonBox[{{100, 45, 46, 47, 48, 49, 52, 50, 102, 415, 210, 261, 
          319, 384, 127, 216, 267, 325, 390, 152, 193, 244, 302, 367, 99, 168,
           209, 260, 318, 383, 126, 215, 266, 324, 389, 151, 192, 243, 301, 
          366, 98, 167, 208, 259, 317, 382, 125, 150, 191, 242, 300, 365, 97, 
          101}}]], {{0.3028723897866399, 361.9183718265813}}]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1FWwVmUUBuCfDuluOHTNgCCtNOfQcegUASVEUkEEZkiluzuUGVppJS5A
BQO4AJ1R2gQFlAtACeVZw8Vz1rvW3jP/Pt/37Z00YGTqiLSJRCINb/pTS+2u
FuCyvJ0pDKY2dejhWkGuyDuYyhDq0tO8EFflnUxjKKPMqnFfPslq6tHLrDDX
5F1MZxijzarzQD7FGurT26wI1+XdzIjf1zcmIxfi/2CM/CIP5c9Zywf6ZLLx
g74BfeSi3JD3MEduRU5mxvOrTcjEUlK5aL5AbUdeVtCV4eZj1Rqs4h/9ErUT
6/hCP09twxpys5wubIh7XJ+lprCa7CyjM+v50fVFagfWkp+VdONl1/qqxfhJ
Xqx2ZK88V21NLt6PNVabkpnv9AvV9uTjLf3bak3+lb9kvtyWPPEc+tlqS3Jw
Sf8K/eTi/Cx/HGsde6NvRha+14/gHfklHsmn2UBDXjUrwS/yJ7EOjGRcnEke
y2fYSCP6m5XkV3lfPFOcMcab1eaJ/BWbaMxrZqX4Td4f+xxnjHfN6vBU/prN
NGGAWRK/ywdiDeNM0ZSB5qW5KR+MPY19pxmDzMtwSz4UaxfrSXNeNy/LH/Lh
OEOxHrQgmRRa0orWtKEt7WhPBzrSiVQ604WudKN7vJvxDsZ7xRt+qxx/ykdi
n2M94x1isHl5bsufxrmKtYv3gSHmFbgjfxZnKdaJCWZ1+U/+hi1x5hhqVpG7
8tE483Ev75nV43/5W7bGOWGYWSX+ko+xNO5loll94mN0VvkwzkXi+XepMn/L
x1kW9zLJrAFpOKf/KM4Fw/VVuCefYHncy+R4T0jLef222JPYM6pShcpUoiIV
KE85ylKG0iRRipKUoDjFKEoRClOIghQgP/nISx5yk4uc5CA72XiBrGQhM5nI
SAbSk474Vtd8vkSJZw3QnNo=
         "]]]}, {}, {}}, {{}, {}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], 
        LineBox[{1, 51, 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, 100, 45, 46, 47, 48, 49, 
         52, 50}]},
       Annotation[#, "Charting`Private`Tag$9130#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1Hecz3UcB/DfIRXRtKU0tG1nhTt7jzMuDSvzcCfRNE5ltMk6ZFS0B2VE
pcwKRdGwV9OIosh+vh/+eN779X7/vr/7/R6f7/v7K90tKy0zKZFI9PGnipqu
Fmab/BbZ9CKZqtzltSJsl99mBL2pRkfzouyQ3+GJ+L8MMCvHv/JyplCdu82K
sVN+lyfJ4AGz8vwnr2AqNbjHrDi75Pd4Kj5fn0JeNur7MlCuwDF5JdMYrW/I
JWzW1+ReuQS75fd5Rm7CpYyM76+mciHjSWOT+QtqC65kEu3pZ/6gWpEcjutf
UtvwMqv0z6nNmMrlTKQdM+Iar49RGzGFAkygLdPZ4vWxaiumUYjJdOBOr92n
lmSPPE5tzQfys2pTLmNUnLFal4v4Qf+i2pKr6K8fpFbif3k1z8vNuSK+h/5p
tTEF2aqvRSf5avbKc+Os497o63ExP+ozGSxX5oT8JTOoTWezUvwiz4tzIIuH
Yic5KX/FTOrQxewafpU/jO8UO8bDZsmckr9mFil0NbuW3+SP4j7HjvGIWVVO
y2t4hVS6mZXmd3l+nGHsFHW53/w6/pAXxD2N+049uptfz5/ywji7OE/q08P8
BvbJi2KH4jxoQEMa0ZgmNKUZzWlBS1rRmjak0ZZ2tKcD6fFsxjMYzxU9fdaN
7Jc/jvsc5xnPEL3My3BAXhx7FWcXzwO9zW/ioLwkdinOiUfNqnFGXsursXOJ
878bN/OX/EnsfFzLY2bVOSuv47XYEzLMbuGQ/Cnj41oeN6tBgm+U2bEX9NXf
ymH5MybEtQwxq0kS3+rnxF7QT38bf8tLmRjXMjSeE3KxXv963JPYDfqb3c4/
8udMiusZZlaL3GzQvxG7Qfxg3sER+QsmM1Jfn3z8FO9luFybPHynfzP2hyx9
WY7Ky8hhlL4B+fk53ku2XIcL+F4/Uz0Hmd6twg==
         "]]},
       Annotation[#, "Charting`Private`Tag$9130#2"]& ]}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\[Alpha]", HoldForm], TraditionalForm], None},
  AxesOrigin->{0, 335.85711312411604`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1}, {}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{18.489796, 16.}, {6.941182, 0.5}},
  LabelStyle->{
    GrayLevel[0]},
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotLabel->FormBox[
    TagBox[
     RowBox[{"F", "-", "\[Alpha]"}], HoldForm], TraditionalForm],
  PlotRange->{{-0.020833333333333336`, 1.0208333333333333`}, {
   133.60871258966097`, 4178.576723278762}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.848011727366191*^9, 
  3.8480117285036173`*^9}},ExpressionUUID->"423639b5-05e8-4460-a4f0-\
22341d5dcd01"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pf3", ",", 
   RowBox[{"Background", "\[Rule]", "White"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[36]:=",ExpressionUUID->"0ca23ea5-b5f7-4c81-afdf-3b36fc3f15ae"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdmGk4ld/XgFWSkKGQMYRGSaUMxdpmiSQUhRQSIuEgGaJCIUJmmWUI/QxR
5mMs85QQSpJzDpUTGlDv9uH/dF2vL6772s+z17OXda+9N7FL107brGVgYEhZ
w8Cw+lvHZrqnjmKszLD6I5qE/JlLdt7jj4b/sYlpWtG3uUyCWf/6m2ltKyJY
0uDLdENIKcEenQoQN/+C4K2lXGNr1tQS/HxCrb3rGJlgsn2yoOlMI8ELO5Q4
ChxbCF77K59TUPI1wUf+Wj43LGwnuP2ObGfzni6CRSJov3K/dBNM+zE+NiDT
S3AmtfI1+4M+gtmFn3ydnOwnONSu7HKqxBuCF1H+5BW/QYLdDjaW8ja8JXi8
sDGkR2yY4CX7/sTdXiME71XZ8Ody5TuCtdLFbP/bOvYvX8IXtn8wGydYasaY
dVDvPcFbOL4xN/7+x4y1iUXiSR8IdpCtHNp4YoLg/OOXUmsW//ECTYBzKuYj
wWWGWuui1ScJ9tO+m1I69Y/FRnXeZtz9RLCi3J1o/oNTBJtt6/q1pu8fL7wO
m3D2/0xwHKOF22mJ6X/fP1aWvrbxH6/38TdSuE4hmCHXomhiM5Vgl4SisM3k
f1y9N5iZy4lGMJeOi1QA+wzB0pVnrle2zcHf1R8RHN/1Qfw3ITrBX5Y2coZd
/ccMttA6Q/7HMXEr/Xe3fCeYTXbe39fxH6fy6Afe579DxDOY8twbgP6N/8+f
zqPFdpbyJMKfz5mLLHJ7SIQ/ZU89EvKESIQ/k5Wx8hQuEuGP1j0ZH9ONJMKf
0m4vvntrSYQ/HMeGtpL/uBH+lOp/5etYcSP8MZeMH7VmIBH+3BiLeWXARCL8
EWW8p/KHk0T4Y7+xLsFShET4s27ZOo3zIInwx8N8OJ1Jl0T4E92S7LDTnkT4
Y7HZP3/hIYnw59Ty8ApXPYnwRzo268CveRLhT2Kwk9+XI+6EP+dEfrZH+roT
/vSwOkq5v3Un/NEVCtOLVvYg/JHq4BAuz/cg/Lk1tm77+kOehD+jL9ZpqzZ4
Ev6cee90OsrqBuHPSveTfU67vQh/vsn7FkUseRH+KO6Nlpb4e5PwJ1hydpFD
3Ifwp/nc+o3Fpr6EP3P3QwbMRvwIf575mjwKrbpF+BMuT8/nz/In/CkNEWZS
ehVA+NNhYMU/yXSH8MeeFhdSn3iX8Od1gJxstFkQ4c/QbYeJhCv3CH/0Inzc
HguEEv74pe1Zaj4cTvjTTXspqVP5kPDn8uUszZvu0YQ//91WSkwfjyX8KRtx
45LiSSb8GTpfvD5eNp3wR2K9+8MVzhy00klRGaj+59v/5//5k3uQxp/DWUT4
I87meF/wAAkdfMrFJMScB5u/7Fxk3UpCxjmxba6bimH57bTkhU0k1MnBzS2N
ysFUMfFWwnoS0qrPYu/wqgKr/0RcDHB9X7TINs8Zq4NWyqO0IVz/VdnfXKOj
G4Av+eardOzHO21HnnX7miFQs1qNgv1ZDp/nsH7VCuL2/SpbWElIyDvQqtyu
DazPrk1IwfHXkHVUw2Y6oF4kaY3oLhJSpQQ8Y1LthqHEsix1ZRJa32gzUxve
A8enchnPniMh7bkOI5fxXuDZ1Iy4fUho6PaB0RsK/fAzQlneI4eEzszdC9nj
Ng3JAQf5p84Eo9CCxKVkAQpUfJ+Oiy+6j9Zu+baGnUyB5ZxR4IoKQy/Egh57
2VPBhssDyPERiO+jYBsXHw369txdRgxR6LOiT8LxGhp0vtXWVmaJQYtHxRh8
bWYAmkjFKYoJyCrWZf2Z+TkwV5u0SZNKRQ1y7f016nQoFaVnJFZnIo//JGaq
YukQ3kdZZuUpQKP7g9TC+N3AOviDarEsCTUFDJ1j8nkC81L9h9v5SWjWcKbq
ROczoN4f4IjmICEvGf8/Pz+Vgdu7C1PWG0hovOVrdrFcJXByP24yWYP7SdLZ
7Oj9daCXu0f0EM7/C3UB0eJpMjTpj0sLYu4yvctXGNoEpIIglRD8vOdIXHiw
YCsMZgsbPmAmoXBFfkW7ltdgyZg5upebhJLeG3s763XA4vU+7kRxEsrZm7zV
frALOpefyv6WI6HNebu+y0IPsIc8WstgSEIJ82/4JYJ7ocWhYc7SlYSUyxcN
Gz/2ATP/380LSST04/d3P2XdaZC52/V95U0Q6m7apX/q6zS0nugZpG24jxhb
5fMz4ikg+bllz/eeUGT2iZ5dqEyFLTVHTS15I1BTjY3U5lkqyOlVWCiYRKLT
JQEG+2JosBx5YGWDwiPE2HCcl0FxBvw5/m478zcOaedaVzK/n4PlDzSfjLTH
qNB4X/mgDB143ZNVo6wzUMmZrX8kAuigNJqjQjmbh6qXVYcTdUsA2SkYn8D1
uf1r9m6rhApoVWHxXVpHQkUvz7t/rq6GX89ZZdz+uqFQ0QXuqrB6kOKdFyzH
9V/L3NLijhohx/m6lw0en5Yz3mzS0QwnmapO3GIkIT/1UxHg8QqaQwTCJ7Bf
udXfQ9eztUPtpjSl84IkdDkDmPNCOsFr5rnCnBT2weKJiSeVAhoGzJ9eWjxA
vBaCMZoxVCg0kTjUKvkQ2W/oteNSo4HUxXSrB6VRyJvs8dFmigbvRNUG2mgx
iFL6k7IUMQPhTBXRMY8Ske/dW/oZzHQQWBDXLBFLQ0P8DvQsEzrUGdH0Q7Wz
0VnrH9WR/NYwLjfhEngE7ydOSndvymXDisGDZ3L4+17kxpSVSz8DowM9uS/x
/tVdV+46Jl8Gt9l8/5ji+tnbxu0qGfMSvhmsfU/D9aXqbvmI51ktiP66yeiG
669iy/7Fukgy2A8ys83ifGlf4kq4fawJ7oTRDszhfnJkjUNXQmMLQFarqC2u
79b4S5Kq7q/hgF+4behmEqJcO88/sdIOnfX3s93ESEjx7bQLn38XPL9u7vkL
+8MnfN/9K28PLB270+Chvxr//LK3WS/4DbPsKXMioblTpuGUij445C0JNrF4
/r+7vLTlp0GM8UjQtvggRDf46pk7NA3P1SwPq5TfQ3e2j/o53aXAzsXsjYKk
UCTdsiu/dRcVjsmsK7MsCkdJT1nMIwepMOJybp0zcyQKvrZ+n0gADRjdCuiM
b6LRfSYLMRWJGWBuzRxWuxqHjhab804MzMHk0TVUuzfJKGPSfNfkDlyPotud
ZlrSkUEu5wZTDzo0XLqm9nhnLrp3erZ3Q0ExpGo9ZDNgw776jT7Wni2HJ9M+
fk24npaqb6meE6qGfXNBPqO43txr9RQOHqmH3hIt23qc35rBkeS71AaYysnP
Wsb5v4Q+RO3zaYZOqyMRBbiele23dxuIvoJn/qHe1/H8E0JKnmMv22BlL8tp
N9x/Sg9qZAke64SlDaqLvvj8FFBxYp/aGwp4Dbs8D/oRhqbBIMHyFhWKcslD
GWMRSGXBPeHhPhoEH670fm0ShYp9f9ec7aXBsfyjLe88Y5DzT7aFYzdn4LaP
osi7jwnI+cGNPO8/czDHbLi+NiMVdeYkWhWfpIOtREGljHcWGrLY+zE4nQ79
IYqyVfmFKKrx9TAMVYKQ5U9qF64X3ZU//tuC6qA09lf8X7zel6T1OhnKDXBb
60XxWbzeMwa/Yt6+a4LLMtHyh/D+U9G8rNGmSIcbaZUDJNZMxMO4beFbKB1O
9dVIRmblI6vyI3luF2rALmz2KQ/OZ5p/0jeNT/VwzUpk7iWev06heM42phGc
JuNvrub7RMdgcTK/EbT6vXjugvthidU1gefRWVDSo6DwDfuinDtoNVJdBJ9u
acyfwufL38yG0gYTpfDsgKnrW+xLj+7OIQuNl2DSHqmogL9PiufFixCTWmhw
l3WIx98vd1PhYqstGVBNpP4Ijn/38uA5J+4m2HSJ1zAXr5+X2+ireHwLCNek
Kw3j86XN8Q2JhXqv4cTuNdINOF6E3NhngTftINny5ewVURK6Xfgg9atxF7DG
afMEHML9/Y1iRfvaHpjd/tOwSg/PV57smKvZCy/+SETYXyWh18ks+7wz+iDg
5B633GgSkglQ89CTxv06NsusyCsIrY3r3fSmE98nZGozCsPvoUb9/VTDm6u+
DOdFaoWirRVqBQPCVBDJKS8SdglHQeLmpN52KvTJKBfd//AQpXc0C/B50mDP
tfaevqxodHLXdPZF/hkIXDnYv1cyDpUeGW7o7J6DwM0sJ2PdktE2qUVLqhgd
qqvyX0r6pKPU02Gs36/ToTciyU8vPgdd81HtUjIvhk61SvZBXM8ZLZ6mlTHl
UDZ/L10an1/SIConqq0Kxkmikrw4fzPsXiccWerBPSDtVRvOrxJMMYfVNkCM
avlIB85/ivoTIz7jZvir9ePxceyLsA/rt+H5Vji2Q4W5Du8Pfu0fZnUi28DR
Uq4kiI+Ezv1ucTXi7oQ/u9/x6O0mIfKn5Nhd7RS4Tw59sNgYhrplriY5kqgg
9cbEcqYyAkldfVXcs50GgsdNBMWkolD7u8qnp1ppID3hpLdBJQYdEoj1Mnee
gWoFtnG5BwmIunnxrN2vOXAM/mpkYZuKtL8dSqo4ToeOZbMZNcEstIs55/P2
ZDo8yrBrFhwpQAqao+hGcCX8HZVl34L7cb3u3mjT83VQ/OFM4Va8PsVRjrK8
LQ2wXedhmhzmSOPasw2lTfBOw8RnFD9/iP2Rb89hOpRPeV4ueJ6BrAsSft0P
okOf/7NXXb/z0EaF45yF7DWw+PhnpBr2gbenda3/i3rgNjwPq/shSqsyu+bQ
CIzrj0Sm4PGntNsVXevqgEv4DsUAx5N/KhHyopoMTFUORmsxr3EW2/njYj14
s+fdWvVN2bnnoC9PI4RSyfv24/ffFPRe+1hcB9OKmyhUPH6UfWks0a4B3Ifj
rtzE70sddB5j4SKD+Kb7cmQ8figlLqmEXx0E0rwuUbCfgRbMNoZqWXCz9Ze0
Hr7/SfRLWXI5FcE5qu1gEvaFsyA1hKW8FEJ8v2bx4ftfZphM6JLQSzC+YDFk
if1Mt/7U1ixVC2ryO0wLcLzFwhpe3dNkCKN/bujD8TKvKFZaMTTByO/b+YG4
vgKTtf2u3G4BmVeH3B9hP2XThgasFV4DT3iEtCWOZ5Uooi9HbgeO40mfP+L7
X078RbnzqAuGf3I9bsX3P4tDW0wrf3ZDn/m+xvf4/ndrUDm79mgvhIeu49R2
ICE59Y83m+L6ANptIk5GkZB1Q/eC/u5pSDTkNot1CEIsR9VNrr6aBv7MQDYe
73vI+rJJiqY7BZ4bnz/MdCAUhcoYSJvxUUGlXlF4wDAcLVsE+ru0UMFZN5Xz
TOdD9Mz7yUNuVxpwBg71sj2IRjIKBZS5LTOw75LQviNr49CcZ5yARuccjC/m
SsWoJ6MRfVUfRxE6BB+sK483SUdaT9o2oWt0SBf/GuJglIMmNjt2mBzGfvJT
BgXw+afCofm5m0M5aA/6KVpjP91uJZ2XyaiC5kl5j0M4f9lHIvrvz9cBB7+O
Vi/O77KLQw1nXgP0RTK/K8f5r9FkKduk0gynWRf+8GE/Q5kYbomMt8L37C4O
O+znSYnSXWt828Bs0ox3C/ZT2mLjiDNDJ1zJLKKX4fvFpeVmXcEWCoxulkr9
kh+G1HNvCM9fo4Ji/PDbprwIlP6EXnNdmAZh3t5H+Hij0HBIkrheAw20IpVL
/CVjEPdes+pZ+xnY/+iU817rBLTDuLRwfHEOdlTzu7cfT0VM3LcqjmrRQURJ
cGzjTCbqNpuiXEugw1YTl6ZO9wLEFjT1nceyEvjpT2IPY9+83VSEPTTqwPbY
3JIEXt9vzkf20n/IQFPpmN+F+dnZ7RUVqU3w6M3I1xL8/LcDHxKMDuH74WR5
tG5YBmJbO7Q0eIcOjgtP2+xy8tC7G6cbdKaq4ZDb9P3z2J+en2MhjzPqofsU
qnqO88kwoLL5u3Ej7M4MZgvA4x07ZG8Pj9SCvOGesEs43s/xXKSUQ4a+p+eU
f6ze72LlnnHr1kPu+LY71Zj/ZJyZXsPQCK8+hVxf3S8fDkz/ZEiug43qZf3z
ePy3yq1oEaMG2JhWwGeH55syDbTdtVQPZRPnxGrwuKdWab66D55/U3HVR8wH
PluR9UXrIcD+wu5mzEySPKzHrtfB7F9+eVb8vllu8Q2rrnqIv7gpuwKPa2qz
Ph7yqAcfhiLzVRYKrJpqasX9TY88+AHzdZZzxrM7yJBc6iHbgplRTcB5nF8W
1F4+HZaQJ6GvI0Ys6QJZcN5qw5ubuB/E2Z21kNIsAt4G9Z9k7KeAn5aibVop
lFHXrcjjfsAuXfbpFfNLEGyhTrrhfmAWumQ0yVsLT3e4Pl6txzfa/nNhWmTI
v3nxdDeOV0JxcLBYbIQLPta5JFzPyhOqLfc9W2CTfoK3K+4Hgh2q32H/axC/
3MGzH8fT1asL0Khoh66cDqF03A8UOdrWPjzcBTMXfZ2v4n5Qc9Evt/h7N4jz
tNx1xf3guW04WedIL9DHXQLK7UnIKVZf3D6qD2bzD46lRZLQH6uth3t2TMNt
3qD9W6yD0AM2H5/y5mlYllRgN3K5h0rnZn7VulKg60paQ4dkKGqeGXRK4aEC
RRS1NquHo/LlhCByIxXUPwSztTU+REf6t3ZEOtNAJsXWTikgGqXWc7Aqcs2A
jixN8f23WMSZ8EODoWMOfqc52XdKJaOXF6+w7t+G9+vtcjuCNdNRYg/1wZQj
HVi2bWkPPJiDkswDdC+LFcPTJ8ZfjuF+0KDkaNNjXA6fHvRq+eF+MCYqVvbn
QRW8kE68oIrzd0dHMD6eUgearZ/fDuD8vmOTjj+d0gCSKXsOr/bjjpajNsxy
zWAAbYxrcD9QP/G7RaW/Fb7oRK1Txv3g8ClhzXeubSDNLi07tBXfFzjz2P0W
O+BXzVyfPe4HxUHnn0Q3UiCltyTTKyUM+dowWMg5UkE4oasU0iOQucaGpnoB
GvQ5mjjtYI1Clh/ZLrTV0UB7wqd5cGsMultSM3b4ygx0C5NTjPUTkLr7luGE
hTmIYPA8vOdoKpqUzNZc0aCDdNRo3Iv+TCQetN6BN54Ot6ml2ckaBch9p4Pe
5IlKGBYWFNDCfpsGt3+4q1gHDHMa3/fi9Q3nndVw/k6GTfMbFsQw1701vFIS
0wTdw4PeKfj5LrUNu3kP4vnUhI6OeGagC1I/vX1v08E1cmZy1i8PaQoMCvH3
VoN5yLsWW+xrIZv9qYK4evB929612g/eOzHOyp5ohI/GW7Nc8XjwSR22n021
EO5iJ+2A4729cVXQL5kMzmLNzHT8fHw+2U1cpR5ERV6Z1mIeU+JvUFtogPcD
ybPM+H0nims1R2QdRND2C/3G48MjqtcuHm8AeWl/bUs8X6Mjl5Tct3q4YBRy
tQqPm3xwDwx0IUNX7me7cczsS18CLXjq4cjVltFWzJPyqV06l/HffwCZcOH3
FaqVlF0a60Hmi+yb1fOGhFnMpemr+P4zw2n4AvOveK38/uo6SN/EqTGF+eS2
T/zLgmQoNheKb8T8avt6Tu+/+DxxeGCmE/P8pGFLeGE9+HvafljNx9jtp7T1
Z+vB+fHFqUrMGzWX0vmZyKBu+oSjDrNR39sVtLcenvzxf9qA2ffRzjKj4XrQ
7VopXI1vJ3tr6HVAPUQKJKeufp9u9djpuUw68f+4/wOnhCz9
    
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{100, 45, 46, 47, 48, 49, 52, 50, 102, 415, 210, 261, 319,
          384, 127, 216, 267, 325, 390, 152, 193, 244, 302, 367, 99, 168, 209,
          260, 318, 383, 126, 215, 266, 324, 389, 151, 192, 243, 301, 366, 98,
          167, 208, 259, 317, 382, 125, 150, 191, 242, 300, 365, 97, 101}}]]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1FWwVmUUBuCfDuluOHTNgCCtNOfQcegUASVEUkEEZkiluzuUGVppJS5A
BQO4AJ1R2gQFlAtACeVZw8Vz1rvW3jP/Pt/37Z00YGTqiLSJRCINb/pTS+2u
FuCyvJ0pDKY2dejhWkGuyDuYyhDq0tO8EFflnUxjKKPMqnFfPslq6tHLrDDX
5F1MZxijzarzQD7FGurT26wI1+XdzIjf1zcmIxfi/2CM/CIP5c9Zywf6ZLLx
g74BfeSi3JD3MEduRU5mxvOrTcjEUlK5aL5AbUdeVtCV4eZj1Rqs4h/9ErUT
6/hCP09twxpys5wubIh7XJ+lprCa7CyjM+v50fVFagfWkp+VdONl1/qqxfhJ
Xqx2ZK88V21NLt6PNVabkpnv9AvV9uTjLf3bak3+lb9kvtyWPPEc+tlqS3Jw
Sf8K/eTi/Cx/HGsde6NvRha+14/gHfklHsmn2UBDXjUrwS/yJ7EOjGRcnEke
y2fYSCP6m5XkV3lfPFOcMcab1eaJ/BWbaMxrZqX4Td4f+xxnjHfN6vBU/prN
NGGAWRK/ywdiDeNM0ZSB5qW5KR+MPY19pxmDzMtwSz4UaxfrSXNeNy/LH/Lh
OEOxHrQgmRRa0orWtKEt7WhPBzrSiVQ604WudKN7vJvxDsZ7xRt+qxx/ykdi
n2M94x1isHl5bsufxrmKtYv3gSHmFbgjfxZnKdaJCWZ1+U/+hi1x5hhqVpG7
8tE483Ev75nV43/5W7bGOWGYWSX+ko+xNO5loll94mN0VvkwzkXi+XepMn/L
x1kW9zLJrAFpOKf/KM4Fw/VVuCefYHncy+R4T0jLef222JPYM6pShcpUoiIV
KE85ylKG0iRRipKUoDjFKEoRClOIghQgP/nISx5yk4uc5CA72XiBrGQhM5nI
SAbSk474Vtd8vkSJZw3QnNo=
         "]]]}, {}, {}}, {{}, {}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], 
        LineBox[{1, 51, 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, 100, 45, 46, 47, 48, 49, 
         52, 50}]},
       Annotation[#, "Charting`Private`Tag$9130#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwl1Hecz3UcB/DfIRXRtKU0tG1nhTt7jzMuDSvzcCfRNE5ltMk6ZFS0B2VE
pcwKRdGwV9OIosh+vh/+eN779X7/vr/7/R6f7/v7K90tKy0zKZFI9PGnipqu
Fmab/BbZ9CKZqtzltSJsl99mBL2pRkfzouyQ3+GJ+L8MMCvHv/JyplCdu82K
sVN+lyfJ4AGz8vwnr2AqNbjHrDi75Pd4Kj5fn0JeNur7MlCuwDF5JdMYrW/I
JWzW1+ReuQS75fd5Rm7CpYyM76+mciHjSWOT+QtqC65kEu3pZ/6gWpEcjutf
UtvwMqv0z6nNmMrlTKQdM+Iar49RGzGFAkygLdPZ4vWxaiumUYjJdOBOr92n
lmSPPE5tzQfys2pTLmNUnLFal4v4Qf+i2pKr6K8fpFbif3k1z8vNuSK+h/5p
tTEF2aqvRSf5avbKc+Os497o63ExP+ozGSxX5oT8JTOoTWezUvwiz4tzIIuH
Yic5KX/FTOrQxewafpU/jO8UO8bDZsmckr9mFil0NbuW3+SP4j7HjvGIWVVO
y2t4hVS6mZXmd3l+nGHsFHW53/w6/pAXxD2N+049uptfz5/ywji7OE/q08P8
BvbJi2KH4jxoQEMa0ZgmNKUZzWlBS1rRmjak0ZZ2tKcD6fFsxjMYzxU9fdaN
7Jc/jvsc5xnPEL3My3BAXhx7FWcXzwO9zW/ioLwkdinOiUfNqnFGXsursXOJ
878bN/OX/EnsfFzLY2bVOSuv47XYEzLMbuGQ/Cnj41oeN6tBgm+U2bEX9NXf
ymH5MybEtQwxq0kS3+rnxF7QT38bf8tLmRjXMjSeE3KxXv963JPYDfqb3c4/
8udMiusZZlaL3GzQvxG7Qfxg3sER+QsmM1Jfn3z8FO9luFybPHynfzP2hyx9
WY7Ky8hhlL4B+fk53ku2XIcL+F4/Uz0Hmd6twg==
         "]]},
       Annotation[#, "Charting`Private`Tag$9130#2"]& ]}}], InsetBox[
    StyleBox[Cell["I",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "e2e82975-2fcb-41b7-8cd1-377824dac5e3"],
     Background->GrayLevel[1.]], {0.3922345459597697, 1130.9961911369846}, {
    Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {0.3945302730992303, 1204.4698824162497}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {0.3798352280242453, 1135.353526611625}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {0.44241770639891687, 1122.8825319773114}, {Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["I",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "e6e6afba-c10e-4d04-aaea-3d7ed9eefe6b"],
     FontSlant->"Italic",
     Background->GrayLevel[1.]], {0.44241770639891687, 1122.8825319773114}, {
    Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {0.8796102435199504, 639.0680413449336}, {Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["II",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "3690087a-783f-420c-b383-d226af70b298"],
     FontSlant->"Italic",
     Background->GrayLevel[1.]], {0.8796102435199504, 639.0680413449336}, {
    Left, Baseline},
    Alignment->{Left, Top}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 335.85711312411604`},
  Background->GrayLevel[1],
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1}, {}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{18.193878, 1.5}, {6.483962, 0.5}},
  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"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}, "AxesInFront" -> True},
  PlotRange->{{-0.020833333333333336`, 1.0208333333333333`}, {
   133.60871258966097`, 4178.576723278762}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.848011124426475*^9, 3.848011125083213*^9}, {
  3.8480111706223917`*^9, 
  3.848011282413556*^9}},ExpressionUUID->"8fcbf035-90e6-491c-bbde-\
13d6d7635fa6"],

Cell[TextData[StyleBox["The Profit", "Subsubsection"]], "Text",
 CellChangeTimes->{{3.847941855174468*^9, 
  3.847941858392337*^9}},ExpressionUUID->"e2260fe4-d4d9-4199-b0ce-\
11835419931c"],

Cell[TextData[{
 "1.  If the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["p", "S"], ">", 
    SuperscriptBox["p", "VA"]}], TraditionalForm]],ExpressionUUID->
  "e7b991f9-316d-4d9d-bd3e-8c9edf3e146b"],
 ",  which satisfied with ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"F", "\[GreaterEqual]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", 
       RowBox[{"4", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["k", "B"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"cv", " ", "+", 
               StyleBox["cvb",
                FontColor->RGBColor[0, 0, 1]]}], ")"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["k", "B"], " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", 
            RowBox[{"\[Theta]", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]}]}]]}]}], ")"}], 
     
     RowBox[{"1", "-", "\[Alpha]"}]]}],
   FontColor->RGBColor[1, 0, 0]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
  "af0666aa-fc3b-45cd-b2aa-14b427a67d6f"],
 " (the dark region) then the effort is ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"e", "=", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"f", "+", "\[Theta]"}], 
        SuperscriptBox["k", "B"]], "-", 
       FractionBox[
        RowBox[{"2", " ", "\[Alpha]"}], 
        RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}]}],
   FontColor->RGBColor[1, 0, 0]]],
  CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
    3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
    3.847924648199932*^9, 3.847924685117815*^9}},ExpressionUUID->
  "2dbc2b29-bdbc-4370-9ca0-2a49f67192a0"],
 ", the contract [p,\[Alpha]] satellite owner offered is ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["p", "B"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"f", "-", "\[Theta]"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["k", "B"], " ", "\[Alpha]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}]],
  CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
    3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
    3.847924648199932*^9, 3.847924685117815*^9}},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "5ff5a806-84ae-4d65-a7b2-72356cb7b0e0"],
 ". The profit of vehicle manufacture is ",
 Cell[BoxData[
  RowBox[{
   StyleBox[
    FractionBox["1", 
     RowBox[{"16", " ", 
      SuperscriptBox["k", "B"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{
    StyleBox["(",
     FontColor->RGBColor[1, 0, 0]], 
    RowBox[{
     RowBox[{
      StyleBox[
       SuperscriptBox["f", "2"],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], 
     StyleBox["-",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{
      StyleBox["16",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox["cv",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       StyleBox["k",
        FontColor->RGBColor[1, 0, 0]], "B"], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], 
     StyleBox["-",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{
      StyleBox["12",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       RowBox[{
        StyleBox["(",
         FontColor->RGBColor[1, 0, 0]], 
        SuperscriptBox["k", "B"], ")"}], "2"], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[
       SuperscriptBox["\[Alpha]", "2"],
       FontColor->RGBColor[1, 0, 0]]}], 
     StyleBox["-",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{
      StyleBox["16",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       StyleBox["k",
        FontColor->RGBColor[1, 0, 0]], "B"], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox["\[Theta]",
       FontColor->RGBColor[1, 0, 0]]}], 
     StyleBox["+",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{
      StyleBox["20",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       StyleBox["k",
        FontColor->RGBColor[1, 0, 0]], "B"], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox["\[Alpha]",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox["\[Theta]",
       FontColor->RGBColor[1, 0, 0]]}], 
     StyleBox["-",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{
      StyleBox["4",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      SuperscriptBox[
       StyleBox["k",
        FontColor->RGBColor[1, 0, 0]], "B"], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[
       SuperscriptBox["\[Alpha]", "2"],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox["\[Theta]",
       FontColor->RGBColor[1, 0, 0]]}], 
     StyleBox["+",
      FontColor->RGBColor[1, 0, 0]], 
     SuperscriptBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        StyleBox["\[Theta]",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox["-",
         FontColor->RGBColor[1, 0, 0]], 
        RowBox[{
         StyleBox["\[Alpha]",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[" ",
          FontColor->RGBColor[1, 0, 0]], "\[Theta]"}]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}], "2"], 
     StyleBox["-",
      FontColor->RGBColor[1, 0, 0]], 
     RowBox[{
      StyleBox["2",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox["f",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[" ",
       FontColor->RGBColor[1, 0, 0]], 
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        RowBox[{
         StyleBox["2",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox[" ",
          FontColor->RGBColor[1, 0, 0]], 
         SuperscriptBox[
          StyleBox["k",
           FontColor->RGBColor[1, 0, 0]], "B"], 
         StyleBox[" ",
          FontColor->RGBColor[1, 0, 0]], 
         StyleBox["\[Alpha]",
          FontColor->RGBColor[1, 0, 0]]}], 
        StyleBox["+",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox["\[Theta]",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox["-",
         FontColor->RGBColor[1, 0, 0]], 
        StyleBox[
         RowBox[{"\[Alpha]", " ", "\[Theta]"}],
         FontColor->RGBColor[1, 0, 0]]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}]}]}], 
    StyleBox[")",
     FontColor->RGBColor[1, 0, 0]]}]}]], "Input",
  CellChangeTimes->{3.847924712498953*^9},ExpressionUUID->
  "b1159b82-66ef-4544-ab87-d6caabce12b4"],
 "\nwhich can be written as ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], " ", "+", " ", 
       RowBox[{"4", 
        RowBox[{
         SuperscriptBox["k", "B"], " ", "[", 
         RowBox[{
          RowBox[{"F", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Alpha]"}], " ", "-", 
          " ", 
          RowBox[{"3", 
           SuperscriptBox["\[Alpha]", "2"], 
           SuperscriptBox[
            RowBox[{"k", " "}], "B"]}], "-", "  ", 
          RowBox[{"\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"4", "-", "\[Alpha]"}], ")"}]}]}], "  ", "]"}]}]}], 
      RowBox[{"16", 
       SuperscriptBox["k", "B"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-", "Cv", "-", 
     "Cvb"}],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]],ExpressionUUID->
  "5e2615f7-aa2d-48d5-b3a8-2bba126c6c61"],
 "\nthe difference is ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"k", "-", 
       SuperscriptBox["k", "B"]}], ")"}], "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], 
       RowBox[{"(", 
        RowBox[{"F", "+", "\[Theta]"}], ")"}]}], "+", 
      RowBox[{"12", "k", " ", 
       SuperscriptBox["k", "B"], 
       SuperscriptBox["\[Alpha]", "2"]}]}], "]"}], 
    RowBox[{"16", " ", "k", " ", 
     SuperscriptBox["k", "B"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-", "Cvb"}]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847963453774186*^9},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "c79fcc0e-6602-4405-9a64-f2b7d533904e"],
 "\n\n\nThe profit of satellite owner i",
 StyleBox["s ",
  FontColor->GrayLevel[0]],
 Cell[BoxData[
  StyleBox[
   RowBox[{
    RowBox[{"-", "cs"}], "-", "csb", "+", 
    FractionBox[
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], 
       ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"f", "-", 
        RowBox[{"f", " ", "\[Alpha]"}], "+", 
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
     RowBox[{"8", " ", "kb", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
   FontColor->RGBColor[1, 0, 0]]], "Input",
  CellChangeTimes->{3.847957995368424*^9},ExpressionUUID->
  "43b4c74e-27ca-4e39-b8b1-8546257f3303"],
 "\nwich can be written as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "-", 
      RowBox[{"4", 
       SuperscriptBox["k", "B"], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"\[Alpha]k", " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Theta]", " ", "-", " ", "F"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "a"}], ")"}]}]}], " ", "]"}]}]}], 
     RowBox[{"8", 
      SuperscriptBox["k", "B"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-", "Cs", "-", 
    "Csb"}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "3ca95b14-3b98-4740-a114-1d307a68198f"],
 ",\nand the difference is ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"k", "-", 
       SuperscriptBox["k", "B"]}], ")"}], "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"]}], "-", 
      RowBox[{"4", "k", " ", 
       SuperscriptBox["k", "B"], 
       SuperscriptBox["\[Alpha]", "2"]}]}], "]"}], 
    RowBox[{"8", " ", "k", " ", 
     SuperscriptBox["k", "B"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-", "Csb"}]], "Input",
  
  CellChangeTimes->{3.847958675837242*^9},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "6ae77d09-566e-48bb-b23f-1b6a806eacd2"],
 "\nThe premium rate is ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"r", " ", "=", " ", 
    RowBox[{"1", "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]], "-", 
        FractionBox[
         RowBox[{"f", "+", "\[Theta]"}], 
         SuperscriptBox["k", "B"]]}], ")"}]}]}]}],
   FontColor->RGBColor[1, 0, 0]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.8479348396322403`*^9},ExpressionUUID->
  "c3f1e3f9-600c-4317-b5a8-7f942368ff3e"],
 "\n\n2. If the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["p", "S"], "<", 
    SuperscriptBox["p", "VA"]}], TraditionalForm]],ExpressionUUID->
  "d188319f-4d5b-4ab8-85de-9e8318a871f7"],
 ", which satisfied with ",
 StyleBox["F<",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  StyleBox[
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", 
      RowBox[{"4", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["k", "B"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["k", "B"], " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"\[Theta]", 
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]}]}]]}]}], ")"}], 
    RowBox[{"1", "-", "\[Alpha]"}]],
   FontColor->RGBColor[1, 0, 0]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
  "cbbfc66f-07ab-41fe-ba88-fdefd562388c"],
 ",\n  the effort is ",
 Cell[BoxData[
  RowBox[{"e", "=", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["k", "B"]}], " ", "\[Alpha]"}], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["k", "B"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{
          SuperscriptBox["k", "B"], " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"\[Theta]", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], " ", ")"}]}]]}], 
    RowBox[{
     SuperscriptBox["k", "B"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847935384424481*^9},
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "6cd2465e-0c3d-426e-9ee3-281365f51d70"],
 "\n  The premium rate is ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"r", "=", 
    FractionBox[
     RowBox[{
      SuperscriptBox["k", "B"], "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["k", "B"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["k", "B"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"\[Theta]", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]}], 
     RowBox[{
      SuperscriptBox["k", "B"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}],
   FontColor->RGBColor[1, 0, 0]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847935852462887*^9},ExpressionUUID->
  "5b64e74d-fe2b-42e2-afcf-e918a57f8671"],
 "\n  the price is ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    FractionBox[
     RowBox[{
      RowBox[{"2", 
       SqrtBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["k", "B"], " ", 
          RowBox[{"cv", "\[CenterDot]", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]}], " ", "+", " ", 
         RowBox[{
          SuperscriptBox["\[Alpha]", "2"], 
          SuperscriptBox[
           SuperscriptBox["k", "B"], "2"]}], " ", "+", " ", 
         RowBox[{"\[Theta]", " ", 
          RowBox[{
           SuperscriptBox["k", "B"], "(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}]]}], " ", "-", 
      RowBox[{"2", 
       SuperscriptBox["k", "B"], " ", "\[Alpha]"}], " ", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Theta]"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "Text",
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "Subsubsection",
  ExpressionUUID->"c4d56703-a71f-4b21-9e5f-ea754f9c463d"],
 "\n  The profit of satellite owner is ",
 Cell[BoxData[
  RowBox[{"-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"kb", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cs", " ", "kb"}], "+", 
      RowBox[{"csb", " ", "kb"}], "+", 
      RowBox[{"2", " ", "cv", " ", "kb"}], "+", 
      RowBox[{"2", " ", "cvb", " ", "kb"}], "-", 
      RowBox[{"2", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-", 
      RowBox[{"4", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
      RowBox[{"4", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
      RowBox[{"f", " ", "kb", " ", "\[Alpha]"}], "+", 
      RowBox[{"cs", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"csb", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", "cv", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", "cvb", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "-", 
      RowBox[{"f", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["kb", "2"], " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", "kb", " ", "\[Theta]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
      RowBox[{"f", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
      RowBox[{"f", " ", "\[Alpha]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
      RowBox[{"\[Theta]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], ")"}]}]}]], 
  "Output",
  CellChangeTimes->{3.847964515130542*^9},ExpressionUUID->
  "68e8e32f-bf10-4490-95fb-a06e7ada902b"],
 "\n   which can be written as \n  ",
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[{
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"F", "+", "\[Theta]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", 
        RowBox[{"2", 
         SuperscriptBox["\[Alpha]k", "B"]}]}], "]"}], "*", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["k", "B"], "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Cv", "(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "+", 
         RowBox[{
          SuperscriptBox["k", "B"], 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"\[Theta]", "(", 
          RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "]"}]]}], "-", " ", 
     RowBox[{
      SuperscriptBox["k", "B"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Alpha]", " ", "F"}], "+", 
        RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], "  ", "-", " ", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       SuperscriptBox["k", "B"], "2"], 
      SuperscriptBox["\[Alpha]", "2"], " "}]}], 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["k", "B"], "(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{"-", " ", 
    RowBox[{"(", 
     RowBox[{"Cs", "+", 
      RowBox[{"2", "Cv"}], "+", "Csb", "+", 
      RowBox[{"2", 
       StyleBox["Cvb",
        FontColor->RGBColor[0, 0, 1]]}]}], ")"}]}], TraditionalForm]}],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "c21b4fc1-0610-4305-9d86-8fe1fb2c56c2"],
 "\n   \n   ",
 Cell[BoxData[{
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"F", "+", "\[Theta]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", 
        RowBox[{"2", 
         SuperscriptBox["\[Alpha]k", "B"]}]}], "]"}], "*", 
      StyleBox["B",
       FontColor->RGBColor[0, 1, 0]]}], "-", " ", 
     RowBox[{
      SuperscriptBox["k", "B"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Alpha]", " ", "F"}], "+", 
        RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], "  ", "-", " ", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       SuperscriptBox["k", "B"], "2"], 
      SuperscriptBox["\[Alpha]", "2"], " "}]}], 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["k", "B"], "(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{"-", " ", 
    RowBox[{"(", 
     RowBox[{"Cs", "+", 
      RowBox[{"2", "Cv"}], "+", 
      RowBox[{"2", "Csb"}], "+", "Cvb"}], ")"}]}], TraditionalForm]}],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "eccf9e19-55c5-476d-93e3-b9be7c302220"],
 "\n   \n   and the difference is  ",
 Cell[BoxData[
  StyleBox[
   RowBox[{
    FractionBox["1", 
     RowBox[{"k", " ", 
      SuperscriptBox["k", "B"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "k", " ", 
       SuperscriptBox["k", "B"], 
       SuperscriptBox["\[Alpha]", "2"], 
       RowBox[{"(", 
        RowBox[{"k", "-", 
         SuperscriptBox["k", "B"]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"F", "+", "\[Theta]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["k", "B"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cv", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
              RowBox[{"cvb", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["k", "B"], " ", 
               SuperscriptBox["\[Alpha]", "2"]}], "+", 
              RowBox[{"\[Theta]", 
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]}], 
         "-", 
         RowBox[{
          SuperscriptBox["k", "B"], 
          SqrtBox[
           RowBox[{"k", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cv", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
              RowBox[{"cvb", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
              RowBox[{"k", " ", 
               SuperscriptBox["\[Alpha]", "2"]}], "+", 
              RowBox[{"\[Theta]", 
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]}]}], 
        ")"}]}], "+", 
      RowBox[{"2", 
       SuperscriptBox["\[Alpha]kk", "B"], 
       RowBox[{"(", 
        RowBox[{
         SqrtBox[
          RowBox[{
           SuperscriptBox["k", "B"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"cv", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
             RowBox[{"cvb", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["k", "B"], " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{"\[Theta]", 
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]], "-", 
         
         SqrtBox[
          RowBox[{"k", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"cv", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
             RowBox[{"cvb", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
             RowBox[{"k", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{"\[Theta]", 
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]}], 
        ")"}]}]}]}]}],
   FontColor->RGBColor[1, 0, 0]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847967113907933*^9},ExpressionUUID->
  "4a955764-47d2-4bdc-b189-7e411a540208"],
 "\n    \:4ee4  A=",
 Cell[BoxData[
  SqrtBox[
   RowBox[{"k", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cv", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
      SuperscriptBox["k\[Alpha]", "2"], "+", 
      RowBox[{"\[Theta]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847967113907933*^9},
  FontWeight->"Plain",ExpressionUUID->
  "650241b1-1fd5-428b-8f0f-f855cdf7d478"],
 "\n         B=",
 Cell[BoxData[
  SqrtBox[
   RowBox[{
    SuperscriptBox["k", "B"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cv", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["k", "B"], 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"\[Theta]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847967113907933*^9},
  FontWeight->"Plain",ExpressionUUID->
  "b2a8c58c-7feb-4108-a309-471bd93cf94c"],
 "\n         C=",
 Cell[BoxData[
  SqrtBox[
   RowBox[{"k", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cv", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{"cvb", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{"k", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"\[Theta]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847967113907933*^9},
  FontWeight->"Plain",ExpressionUUID->
  "617b2013-1443-42a8-8b6a-a80545109617"],
 "\n         D=",
 Cell[BoxData[
  SqrtBox[
   RowBox[{
    SuperscriptBox["k", "B"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cv", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{"cvb", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["k", "B"], " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"\[Theta]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}], ")"}]}]]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847967113907933*^9},
  FontWeight->"Plain",ExpressionUUID->
  "29eef519-7782-4a0d-bc5e-b980bfd7d3d4"],
 "\n         A<B<C<D\n         ",
 Cell[BoxData[{
  StyleBox[
   FractionBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "k", " ", 
       SuperscriptBox["k", "B"], 
       SuperscriptBox["\[Alpha]", "2"], 
       RowBox[{"(", 
        RowBox[{"k", "-", 
         SuperscriptBox["k", "B"]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"F", "+", "\[Theta]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"k", "*", 
          StyleBox["D",
           FontColor->RGBColor[0, 1, 0]]}], "-", 
         RowBox[{
          SuperscriptBox["k", "B"], 
          StyleBox["C",
           FontColor->RGBColor[0, 1, 0]]}]}], ")"}]}], "+", 
      RowBox[{"2", 
       SuperscriptBox["\[Alpha]kk", "B"], 
       RowBox[{"(", 
        StyleBox[
         RowBox[{"D", "-", "C"}],
         FontColor->RGBColor[0, 1, 0]], ")"}]}]}], ")"}], 
    RowBox[{"k", " ", 
     SuperscriptBox["k", "B"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]],
   FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{"Cs", "+", "Csb", "+", 
      RowBox[{"2", "Cv"}], "+", 
      RowBox[{"2", "Cvb"}]}], ")"}]}],
   FontColor->RGBColor[1, 0, 0]]}], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.847967113907933*^9},ExpressionUUID->
  "9741203e-5498-42e3-8375-6ac10778c78d"],
 "\n   the profit of vehicle manufacture is 0\n"
}], "Text",
 CellChangeTimes->{{3.8479244978416567`*^9, 3.847924540095396*^9}, {
   3.84792472972503*^9, 3.847924850719489*^9}, {3.84792490186488*^9, 
   3.84792490495502*^9}, {3.847924942568657*^9, 3.84792496113203*^9}, {
   3.847927612103428*^9, 3.847927652927586*^9}, {3.847928389275312*^9, 
   3.8479283914047832`*^9}, {3.847928460304885*^9, 3.84792848326*^9}, {
   3.847928584822124*^9, 3.847928607107594*^9}, {3.847929743098164*^9, 
   3.847929826876237*^9}, {3.84792986540275*^9, 3.847929901262289*^9}, {
   3.847929956617804*^9, 3.847929965411723*^9}, {3.847930009276952*^9, 
   3.84793006171145*^9}, {3.847930243682823*^9, 3.847930271154003*^9}, {
   3.847934477511183*^9, 3.847934743179035*^9}, {3.847934887275675*^9, 
   3.8479350054148397`*^9}, {3.847935193108474*^9, 3.8479352723509903`*^9}, {
   3.847935394475047*^9, 3.847935452496479*^9}, {3.84793575331159*^9, 
   3.847935763948141*^9}, {3.8479358611798697`*^9, 3.847935914425313*^9}, {
   3.847936298521426*^9, 3.8479363190364027`*^9}, {3.847937073962777*^9, 
   3.847937076701795*^9}, {3.847937108487657*^9, 3.847937141910861*^9}, {
   3.847937175233618*^9, 3.847937274965145*^9}, {3.847937307583899*^9, 
   3.847937327214435*^9}, {3.847937357534235*^9, 3.847937474001975*^9}, {
   3.847937602462516*^9, 3.847937624750527*^9}, {3.847942069523004*^9, 
   3.847942090753191*^9}, {3.847942127143778*^9, 3.8479422950147676`*^9}, {
   3.847955884466646*^9, 3.8479558851398573`*^9}, {3.8479603792849493`*^9, 
   3.847960468406014*^9}, 3.847962185815486*^9, {3.847962227584887*^9, 
   3.847962325418795*^9}, {3.847962818842535*^9, 3.847962820297686*^9}, {
   3.847962882929356*^9, 3.847962883469845*^9}, {3.847963089669218*^9, 
   3.847963107544808*^9}, {3.847963137815391*^9, 3.847963143487328*^9}, {
   3.84796332144972*^9, 3.8479633330793*^9}, {3.847963811105989*^9, 
   3.8479638764598083`*^9}, {3.84796394021677*^9, 3.847963971087967*^9}, {
   3.847964609300762*^9, 3.84796463459787*^9}, {3.847964977957171*^9, 
   3.847964980734397*^9}, {3.8479657520803547`*^9, 3.847965769672428*^9}, {
   3.847966917264567*^9, 3.8479670344649477`*^9}, {3.847967783315486*^9, 
   3.847967797797028*^9}, {3.847967981352139*^9, 3.847968023229401*^9}, {
   3.847968142213779*^9, 3.847968344404642*^9}, {3.847968387004593*^9, 
   3.847968439551346*^9}, {3.848006043085928*^9, 3.848006059113826*^9}, {
   3.848006111439641*^9, 3.848006118773435*^9}, {3.848006323376151*^9, 
   3.848006323837298*^9}, {3.848006999991753*^9, 3.8480070200588207`*^9}, {
   3.8480070977737103`*^9, 3.848007114645092*^9}, {3.848007770594715*^9, 
   3.8480077772989597`*^9}, {3.848007821726276*^9, 3.8480078379670773`*^9}, {
   3.848008810516165*^9, 3.84800883229671*^9}, {3.848008879788947*^9, 
   3.848009006240518*^9}, {3.848009387403159*^9, 3.848009423569223*^9}, {
   3.8480098808234243`*^9, 3.848009908548967*^9}, {3.848009981653326*^9, 
   3.848009981658471*^9}, {3.848010183804349*^9, 3.848010213185397*^9}, {
   3.848010353715703*^9, 3.8480103596931*^9}, {3.8480104011558323`*^9, 
   3.848010412491785*^9}, {3.848010504611109*^9, 3.8480105422886057`*^9}, {
   3.848010640543281*^9, 3.848010647843937*^9}, {3.859779150661853*^9, 
   3.8597791510049763`*^9}, {3.859779952750002*^9, 3.859779971215438*^9}, {
   3.859965209672768*^9, 3.85996521858247*^9}, {3.859970446403401*^9, 
   3.859970453997624*^9}, {3.85997082390142*^9, 
   3.859970826970696*^9}},ExpressionUUID->"82240fbc-68f6-4bc1-941c-\
e3f5582a9c52"],

Cell[TextData[StyleBox["Proof1:",
 FontColor->RGBColor[0, 1, 0]]], "Text",
 CellChangeTimes->{{3.847941920626692*^9, 3.8479419258953238`*^9}, 
   3.847963988424053*^9},ExpressionUUID->"577269fc-2dd4-4fa7-afa0-\
6b6f70e75b64"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.84794190829657*^9, 
  3.84794192408543*^9}},ExpressionUUID->"178ed4e0-11ac-4af2-898d-\
1f8fb6029f4a"],

Cell[BoxData[{
 RowBox[{"eb", ":=", 
  StyleBox[
   FractionBox[
    RowBox[{"pb", "-", 
     RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
    RowBox[{"2", " ", "kb"}]],
   FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", 
 RowBox[{"pb", ":=", 
  StyleBox[
   FractionBox[
    RowBox[{"f", "-", 
     RowBox[{"f", " ", "\[Alpha]"}], "-", 
     RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
     RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
   FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", 
 RowBox[{"rb", ":=", " ", 
  RowBox[{"1", "-", "eb"}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitvb", ":=", 
  RowBox[{
   RowBox[{"\[Alpha]", " ", "pb"}], "+", 
   RowBox[{"eb", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-", 
   RowBox[{"kb", "*", 
    RowBox[{"(", 
     RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", 
   "cvb"}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitib", ":=", 
  RowBox[{
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitsb", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+", 
   RowBox[{"eb", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs", 
   " ", "-", 
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   "csb"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
   3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
   3.847924648199932*^9, 3.847924685117815*^9}, {3.8479419674620037`*^9, 
   3.847942045376278*^9}, {3.8479642719058247`*^9, 3.847964276241906*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f2a6250e-9ca6-4342-ae2a-3a5765e13fa5"],

Cell[CellGroupData[{

Cell[BoxData["eb"], "Input",
 CellChangeTimes->{{3.8479420511366243`*^9, 3.847942052079001*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"83774665-f021-4b8c-9e28-0a8919c0cbe8"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[Theta]", "+", 
   FractionBox[
    RowBox[{"f", "-", 
     RowBox[{"f", " ", "\[Alpha]"}], "-", 
     RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
     RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   FractionBox[
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
  RowBox[{"2", " ", "kb"}]]], "Output",
 CellChangeTimes->{3.8479420525158253`*^9, 3.8479558162248983`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"c58ef2ab-cf51-448e-ac03-2cf21173f7b2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  FractionBox[
   RowBox[{"\[Theta]", "+", 
    FractionBox[
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"f", "-", 
        RowBox[{"f", " ", "\[Alpha]"}], "-", 
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
   RowBox[{"2", " ", "kb"}]], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[23]:=",ExpressionUUID->"ab6ca91f-55e1-47d9-a361-57feddfc267f"],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["f", "kb"], "+", 
     FractionBox[
      RowBox[{"2", " ", "\[Alpha]"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}]], "+", 
     FractionBox["\[Theta]", "kb"]}], ")"}]}],
  FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "rb"}], "Input",
 CellChangeTimes->{{3.8479558368586273`*^9, 3.847955850074424*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"66977b16-ccfe-4e36-9d5b-95adf9313024"],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   RowBox[{"\[Theta]", "+", 
    FractionBox[
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"f", "-", 
        RowBox[{"f", " ", "\[Alpha]"}], "-", 
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
   RowBox[{"2", " ", "kb"}]]}]], "Output",
 CellChangeTimes->{{3.847955841250284*^9, 3.847955850610124*^9}},
 CellLabel->"Out[27]=",ExpressionUUID->"46e38521-a771-4c34-b79d-f7176f36e9a8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"\[Theta]", "+", 
     FractionBox[
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
     FractionBox[
      RowBox[{"\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{"f", "-", 
         RowBox[{"f", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
    RowBox[{"2", " ", "kb"}]]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[28]:=",ExpressionUUID->"e53236b2-be92-4c88-829c-e1fd482f321e"],

Cell[BoxData[
 StyleBox[
  FractionBox[
   RowBox[{"f", "+", 
    RowBox[{"2", " ", "kb", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-", 
    RowBox[{"f", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
    RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
   RowBox[{"4", " ", "kb", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{3.847955860357136*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"df117a65-7d5e-4084-8372-b51856d9e781"],

Cell[BoxData[
 RowBox[{"rb", ":=", 
  RowBox[{"1", "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "\[Alpha]"}], 
       RowBox[{"1", "-", "\[Alpha]"}]], "-", 
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.847957270171397*^9, 3.847957281422364*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"18cad1b8-9f23-40fc-914c-201c2c3d193f"],

Cell[BoxData[{
 RowBox[{"eb", ":=", 
  StyleBox[
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"], "-", 
      FractionBox[
       RowBox[{"2", " ", "\[Alpha]"}], 
       RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}],
   FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", 
 RowBox[{"pb", ":=", 
  FractionBox[
   RowBox[{"f", "-", 
    RowBox[{"f", " ", "\[Alpha]"}], "-", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
    RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], 
     "2"]}]]}], "\[IndentingNewLine]", 
 RowBox[{"Profitsb", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+", 
   RowBox[{"eb", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs", 
   " ", "-", 
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   "csb"}]}]}], "Input",
 CellChangeTimes->{{3.847957285048397*^9, 3.8479572881491823`*^9}, {
  3.847957329160706*^9, 3.8479573991519623`*^9}, {3.84795763724333*^9, 
  3.847957638310865*^9}, {3.847957924470304*^9, 3.847957925683559*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"bd2e0255-ab7a-4a86-a65b-00d9d7bf290e"],

Cell[BoxData[
 StyleBox["Profitsb",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{{3.847955889583099*^9, 3.8479558980155373`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"2ecdb727-e5a4-4c9a-9d09-2694b01fd4f6"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"-", "cs"}], "-", "csb", "-", 
    FractionBox[
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"f", "-", 
        RowBox[{"f", " ", "\[Alpha]"}], "-", 
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
       FractionBox[
        RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"f", "-", 
           RowBox[{"f", " ", "\[Alpha]"}], "-", 
           RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]}]}]}],
   FontColor->RGBColor[1, 0, 0]], ")"}]], "Input",
 CellChangeTimes->{3.847958507613923*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"dac895c4-b3f7-4aad-917d-2de1e022c2f7"],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%26", "]"}]], "Input",
 CellChangeTimes->{{3.847957948980496*^9, 3.847957950582472*^9}},
 NumberMarks->False,
 CellLabel->"In[27]:=",ExpressionUUID->"6087a3c7-8fee-4a29-8528-ceb60852884e"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"-", "cs"}], "-", "csb", "+", 
   FractionBox[
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], 
      ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "+", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"8", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{3.847957995368424*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"d7442b4d-8383-40fb-9c06-b83124fa96e6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[CapitalDelta]Profitsb", ":=", 
  RowBox[{
   RowBox[{"-", "cs"}], "-", "csb", "+", 
   FractionBox[
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], 
      ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "+", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"8", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], " ", "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "cs"}], "-", 
     FractionBox[
      RowBox[{"\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{"f", "-", 
         RowBox[{"f", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", "\[Alpha]"}], 
          RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
        FractionBox[
         RowBox[{"f", "+", "\[Theta]"}], "k"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"f", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"f", "-", 
            RowBox[{"f", " ", "\[Alpha]"}], "-", 
            RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
       ")"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
 StyleBox["\[CapitalDelta]Profitsb",
  FontColor->RGBColor[1, 0, 0]]}], "Input",
 CellChangeTimes->{
  3.847956085179269*^9, {3.847956189742201*^9, 3.847956234315984*^9}, 
   3.8479579847736464`*^9, {3.847958124155428*^9, 3.8479582284280243`*^9}, {
   3.8479582774608097`*^9, 3.847958301380353*^9}, {3.847958431210774*^9, 
   3.847958453299317*^9}, {3.847958549742934*^9, 3.84795859495512*^9}},
 NumberMarks->False,
 CellLabel->"In[35]:=",ExpressionUUID->"044c56de-5195-423b-9924-3a692b9b02ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "csb"}], "+", 
  FractionBox[
   RowBox[{"\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], 
     ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "+", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
   RowBox[{"8", " ", "kb", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", "\[Alpha]"}], 
       RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
     FractionBox[
      RowBox[{"f", "+", "\[Theta]"}], "k"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"f", "-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"f", "-", 
         RowBox[{"f", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.847958596073957*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"0ea64e9f-c542-496d-b921-3522d4647076"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%36", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[37]:=",ExpressionUUID->"98aaa104-f333-4e3c-ad3c-a884ddaf9533"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"8", " ", "k", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["f", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "-", "kb"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
     RowBox[{"8", " ", "csb", " ", "k", " ", "kb", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["k", "2"], " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"4", " ", "k", " ", 
      SuperscriptBox["kb", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "f", " ", 
      RowBox[{"(", 
       RowBox[{"k", "-", "kb"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", 
      "\[Theta]"}], "+", 
     RowBox[{"k", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"kb", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "+", 
     RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "+", 
     RowBox[{"k", " ", 
      SuperscriptBox["\[Alpha]", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"kb", " ", 
      SuperscriptBox["\[Alpha]", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}],
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{3.847958675837242*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"202975c9-94fc-4ac3-88fc-1fc73891160f"],

Cell[BoxData[
 RowBox[{"Profitvb", ":=", 
  RowBox[{
   RowBox[{"\[Alpha]", " ", "pb"}], "+", 
   RowBox[{"eb", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-", 
   RowBox[{"kb", "*", 
    RowBox[{"(", 
     RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", "cvb"}]}]], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"f6194633-8b29-426c-a299-0153113e5d19"],

Cell[CellGroupData[{

Cell[BoxData["Profitvb"], "Input",
 CellChangeTimes->{{3.847958702364094*^9, 3.847958705365234*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"02ed25d0-478c-47d1-944d-c09414e409da"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cv"}], "-", "cvb", "+", 
  FractionBox[
   RowBox[{"\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[Alpha]"}], 
        RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}], 
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
  RowBox[{
   FractionBox["1", "16"], " ", "kb", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[Alpha]"}], 
        RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}], "2"]}], "-", 
  RowBox[{"\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]], "-", 
        FractionBox[
         RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.847958705960947*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"2b4a153b-b1f3-47e4-93ea-04cc1343876b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"-", "cv"}], "-", "cvb", "+", 
   FractionBox[
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
       FractionBox[
        RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}], 
    RowBox[{"8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   RowBox[{
    FractionBox["1", "16"], " ", "kb", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
       FractionBox[
        RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}], "2"]}], "-", 
   RowBox[{"\[Theta]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"2", " ", "\[Alpha]"}], 
          RowBox[{"1", "-", "\[Alpha]"}]], "-", 
         FractionBox[
          RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}]}], ")"}]}]}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[40]:=",ExpressionUUID->"d2a2cc9c-a697-4237-8362-41537b716947"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"16", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "16"}], " ", "cvb", " ", "kb"}], "+", 
     RowBox[{
      SuperscriptBox["f", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
     RowBox[{"16", " ", "cv", " ", "kb", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
     RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"16", " ", "cvb", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"12", " ", 
      SuperscriptBox["kb", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "+", 
     RowBox[{"20", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
     RowBox[{"4", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", 
     SuperscriptBox["\[Theta]", "2"], "-", 
     RowBox[{"2", " ", "\[Alpha]", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["\[Alpha]", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"2", " ", "f", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{3.847958735092536*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"81bd2837-297a-425b-bfdf-1f5e9bad6536"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8479632140034657`*^9, 
  3.847963214189397*^9}},ExpressionUUID->"e8a8483b-1ac3-4f8c-86fe-\
1bc9b3bdaf71"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"eb", ":=", 
  StyleBox[
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"], "-", 
      FractionBox[
       RowBox[{"2", " ", "\[Alpha]"}], 
       RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}],
   FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", 
 RowBox[{"pb", ":=", 
  FractionBox[
   RowBox[{"f", "-", 
    RowBox[{"f", " ", "\[Alpha]"}], "-", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
    RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], 
     "2"]}]]}], "\[IndentingNewLine]", 
 RowBox[{"Profitvb", ":=", 
  RowBox[{
   RowBox[{"\[Alpha]", " ", "pb"}], "+", 
   RowBox[{"eb", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-", 
   RowBox[{"kb", "*", 
    RowBox[{"(", 
     RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", 
   "cvb"}]}], "\[IndentingNewLine]", 
 StyleBox["Profitvb",
  FontColor->RGBColor[1, 0, 0]]}], "Input",
 CellChangeTimes->{{3.847957285048397*^9, 3.8479572881491823`*^9}, {
  3.847957329160706*^9, 3.8479573991519623`*^9}, {3.84795763724333*^9, 
  3.847957638310865*^9}, {3.847957924470304*^9, 3.847957925683559*^9}, {
  3.847963238927195*^9, 3.8479632515890636`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"5c2e7d0e-4b01-4945-9044-7dc82622d795"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cv"}], "-", "cvb", "+", 
  FractionBox[
   RowBox[{"\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{"f", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[Alpha]"}], 
        RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}], 
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
  RowBox[{
   FractionBox["1", "16"], " ", "kb", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[Alpha]"}], 
        RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
      FractionBox[
       RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}], "2"]}], "-", 
  RowBox[{"\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]], "-", 
        FractionBox[
         RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.8479632521506243`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"522bc8c2-7bc6-4fd0-81b9-24fe797c60f8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"-", "cv"}], "-", "cvb", "+", 
   FractionBox[
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"f", "-", 
       RowBox[{"f", " ", "\[Alpha]"}], "-", 
       RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
       FractionBox[
        RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}], 
    RowBox[{"8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", 
   RowBox[{
    FractionBox["1", "16"], " ", "kb", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Alpha]"}], 
         RowBox[{"1", "-", "\[Alpha]"}]]}], "+", 
       FractionBox[
        RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}], "2"]}], "-", 
   RowBox[{"\[Theta]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"2", " ", "\[Alpha]"}], 
          RowBox[{"1", "-", "\[Alpha]"}]], "-", 
         FractionBox[
          RowBox[{"f", "+", "\[Theta]"}], "kb"]}], ")"}]}]}], ")"}]}]}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[8]:=",ExpressionUUID->"7bed8ae0-6c97-43dd-9751-38c06c436ad3"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"16", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "16"}], " ", "cvb", " ", "kb"}], "+", 
     RowBox[{
      SuperscriptBox["f", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
     RowBox[{"16", " ", "cv", " ", "kb", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
     RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"16", " ", "cvb", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"12", " ", 
      SuperscriptBox["kb", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "+", 
     RowBox[{"20", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
     RowBox[{"4", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", 
     SuperscriptBox["\[Theta]", "2"], "-", 
     RowBox[{"2", " ", "\[Alpha]", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["\[Alpha]", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"2", " ", "f", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
  FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{3.8479632932094383`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"b8f9dde6-5f81-45fc-96cc-a7db0ef16c1a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[CapitalDelta]Profitvb", ":=", 
  RowBox[{
   StyleBox[
    RowBox[{
     FractionBox["1", 
      RowBox[{"16", " ", "kb", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "16"}], " ", "cvb", " ", "kb"}], "+", 
       RowBox[{
        SuperscriptBox["f", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
       RowBox[{"16", " ", "cv", " ", "kb", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "-", 
       RowBox[{"16", " ", "cvb", " ", "kb", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "-", 
       RowBox[{"12", " ", 
        SuperscriptBox["kb", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "-", 
       RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "+", 
       RowBox[{"20", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
       RowBox[{"4", " ", "kb", " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", 
       SuperscriptBox["\[Theta]", "2"], "-", 
       RowBox[{"2", " ", "\[Alpha]", " ", 
        SuperscriptBox["\[Theta]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Alpha]", "2"], " ", 
        SuperscriptBox["\[Theta]", "2"]}], "-", 
       RowBox[{"2", " ", "f", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["-",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{
    FractionBox["1", 
     RowBox[{"16", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "-", "1"}], ")"}], "2"], " ", "k"}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Alpha]", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"]}], "-", 
      RowBox[{"2", " ", "\[Alpha]", " ", 
       SuperscriptBox["\[Theta]", "2"]}], "-", 
      RowBox[{"16", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Alpha]", "-", "1"}], ")"}], "2"], " ", "cv", " ", "k"}], 
      "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Alpha]", "-", "1"}], ")"}], "2"], " ", 
       SuperscriptBox["f", "2"]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "-", "1"}], ")"}], " ", "f", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}], ")"}]}], "+", "\[Theta]", 
         "+", 
         RowBox[{"2", " ", "\[Alpha]", " ", "k"}]}], ")"}]}], "+", 
      SuperscriptBox["\[Theta]", "2"], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["\[Alpha]", "2"], " ", 
       SuperscriptBox["k", "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]", " ", "k"}], "+", 
      RowBox[{"20", " ", "\[Alpha]", " ", "\[Theta]", " ", "k"}], "-", 
      RowBox[{"16", " ", "\[Theta]", " ", "k"}]}], 
     ")"}]}]}]}], "\[IndentingNewLine]", "\[CapitalDelta]Profitvb"}], "Input",\

 CellChangeTimes->{{3.8479633421864853`*^9, 3.847963366748219*^9}, {
  3.84796342207605*^9, 3.847963449942532*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"0cfc690e-f54d-40f2-a5bf-6dbe7541c0ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"16", " ", "k", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["f", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
      RowBox[{"16", " ", "cv", " ", "k", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["k", "2"], " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "-", 
      RowBox[{"16", " ", "k", " ", "\[Theta]"}], "+", 
      RowBox[{"20", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
      RowBox[{"4", " ", "k", " ", 
       SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", 
      SuperscriptBox["\[Theta]", "2"], "-", 
      RowBox[{"2", " ", "\[Alpha]", " ", 
       SuperscriptBox["\[Theta]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["\[Alpha]", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"]}], "-", 
      RowBox[{"2", " ", "f", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"16", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "16"}], " ", "cvb", " ", "kb"}], "+", 
     RowBox[{
      SuperscriptBox["f", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
     RowBox[{"16", " ", "cv", " ", "kb", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
     RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"16", " ", "cvb", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"12", " ", 
      SuperscriptBox["kb", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "+", 
     RowBox[{"20", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
     RowBox[{"4", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", 
     SuperscriptBox["\[Theta]", "2"], "-", 
     RowBox[{"2", " ", "\[Alpha]", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["\[Alpha]", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"2", " ", "f", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.8479634511355553`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"7cc61103-0f29-4780-851f-b9611e1cb1f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%11", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[12]:=",ExpressionUUID->"acfbdb09-10ca-4bbd-b33f-07aad5965087"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", "k", " ", "kb", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["f", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"k", "-", "kb"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
    RowBox[{"16", " ", "cvb", " ", "k", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
    RowBox[{"12", " ", 
     SuperscriptBox["k", "2"], " ", "kb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "-", 
    RowBox[{"12", " ", "k", " ", 
     SuperscriptBox["kb", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    RowBox[{"2", " ", "f", " ", 
     RowBox[{"(", 
      RowBox[{"k", "-", "kb"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", "\[Theta]"}],
     "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["\[Theta]", "2"]}], "-", 
    RowBox[{"kb", " ", 
     SuperscriptBox["\[Theta]", "2"]}], "-", 
    RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", 
     SuperscriptBox["\[Theta]", "2"]}], "+", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", 
     SuperscriptBox["\[Theta]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["\[Alpha]", "2"], " ", 
     SuperscriptBox["\[Theta]", "2"]}], "-", 
    RowBox[{"kb", " ", 
     SuperscriptBox["\[Alpha]", "2"], " ", 
     SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.847963453774186*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"0f2a8f88-4459-4bc5-a609-f1d978573701"]
}, Open  ]],

Cell["", "Text",ExpressionUUID->"200a9e89-dbf1-4077-a1fa-2339820fdba2"],

Cell[BoxData[
 StyleBox["Proof2",
  FontColor->RGBColor[0, 1, 0]]], "Input",
 CellChangeTimes->{{3.8479639946022167`*^9, 
  3.847964038749592*^9}},ExpressionUUID->"b200711e-de22-44b6-9b0e-\
cbfe3ddbf2cf"],

Cell[BoxData[{
 RowBox[{"eb", ":=", 
  FractionBox[
   RowBox[{"pb", "-", 
    RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]"}], 
   RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]", 
 RowBox[{"rb", ":=", 
  RowBox[{"1", "-", "eb"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pb", ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "\[Alpha]"}], "+", 
      SuperscriptBox["\[Alpha]", "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"cv", " ", "kb"}], "+", 
         RowBox[{"cvb", " ", "kb"}], "-", 
         RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
         RowBox[{"cv", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"cvb", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["kb", "2"], " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"kb", " ", "\[Theta]"}], "-", 
         RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], 
  "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.847964106171225*^9, {3.847964161422841*^9, 3.847964246228404*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"58aaa073-f9f1-4020-a157-ccc373e02412"],

Cell[BoxData[{
 RowBox[{"Profitvb", ":=", 
  RowBox[{
   RowBox[{"\[Alpha]", " ", "pb"}], "+", 
   RowBox[{"eb", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-", 
   RowBox[{"kb", "*", 
    RowBox[{"(", 
     RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", 
   "cvb"}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitib", ":=", 
  RowBox[{
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Profitsb", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+", 
   RowBox[{"eb", 
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs", 
   " ", "-", 
   RowBox[{"rb", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "eb"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", " ", "pb"}], "+", "cs", "+", "f"}], ")"}]}], "-", 
   "csb"}]}]}], "Input",
 CellChangeTimes->{{3.847964249943891*^9, 3.847964256263855*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"96f27e4d-f6d4-4da0-9365-9efd63156de4"],

Cell[CellGroupData[{

Cell[BoxData["eb"], "Input",
 CellChangeTimes->{{3.847964547153378*^9, 3.847964548220456*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"84bf5830-1572-4f1d-b33a-25bd1359ac64"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", "kb"}]], 
  RowBox[{"(", 
   RowBox[{"\[Theta]", "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Alpha]"}], "+", 
       SuperscriptBox["\[Alpha]", "2"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
       "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"cv", " ", "kb"}], "+", 
          RowBox[{"cvb", " ", "kb"}], "-", 
          RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
          RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
          RowBox[{"cv", " ", "kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"cvb", " ", "kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["kb", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"kb", " ", "\[Theta]"}], "-", 
          RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], 
    "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Alpha]"}], "+", 
       SuperscriptBox["\[Alpha]", "2"]}]], 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
        "+", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"cv", " ", "kb"}], "+", 
           RowBox[{"cvb", " ", "kb"}], "-", 
           RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
           RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
           RowBox[{"cv", " ", "kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"cvb", " ", "kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["kb", "2"], " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"kb", " ", "\[Theta]"}], "-", 
           RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], 
       ")"}]}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8479645487794867`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"a50bb387-0ace-4d85-bc77-e2e4d4e01c77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%9", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[10]:=",ExpressionUUID->"5b9c7ba3-5c15-4e2a-9c40-ad2921048bb8"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"kb", " ", "\[Alpha]"}], "-", 
   SqrtBox[
    RowBox[{"kb", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"cv", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"cvb", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"kb", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
  RowBox[{"kb", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.847964550817144*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"20af18ae-976e-4d39-8de4-95cc02bd712d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"eb", ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"kb", " ", "\[Alpha]"}], "-", 
    SqrtBox[
     RowBox[{"kb", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"cv", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
        RowBox[{"cvb", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
        RowBox[{"kb", " ", 
         SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
        RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
   RowBox[{"kb", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Input",
 CellChangeTimes->{{3.848007356767404*^9, 3.848007364275621*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"5b1a7ecc-aadd-4c64-b7c6-2ac3bc0935ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"eb", ",", "kb"}], "]"}]], "Input",
 CellChangeTimes->{{3.8480073679365587`*^9, 3.848007376587162*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"a264a3aa-6e94-4e22-a96c-b0ddbcf35a58"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"kb", " ", "\[Alpha]"}], "-", 
     SqrtBox[
      RowBox[{"kb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"cvb", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
    RowBox[{
     SuperscriptBox["kb", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+", 
  FractionBox[
   RowBox[{"\[Alpha]", "-", 
    FractionBox[
     RowBox[{
      RowBox[{"cv", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{"cvb", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
      RowBox[{"2", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]]}], 
   RowBox[{"kb", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.8480073770700808`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"4e6f7aed-6362-4ea1-ae14-dc452db34e49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"kb", " ", "\[Alpha]"}], "-", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], 
     RowBox[{
      SuperscriptBox["kb", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+", 
   FractionBox[
    RowBox[{"\[Alpha]", "-", 
     FractionBox[
      RowBox[{
       RowBox[{"cv", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"cvb", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", "kb", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]]}], 
    RowBox[{"kb", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[3]:=",ExpressionUUID->"ac4ab642-5262-4a9e-8083-320509402843"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"cv", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", 
   RowBox[{"cvb", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}], 
  RowBox[{"2", " ", "kb", " ", 
   SqrtBox[
    RowBox[{"kb", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"cv", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"cvb", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
       RowBox[{"kb", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
       RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]]], "Output",
 CellChangeTimes->{3.84800738039027*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"06946484-e107-42c3-9af6-8734b4fe1a1b"]
}, Open  ]],

Cell[TextData[StyleBox["eb \:5bf9kb\:6c42\:4e00\:9636\:5bfc\:6570\:ff0c\:5c0f\
\:4e8e0",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.848007438330864*^9, 3.848007474250327*^9}, {
  3.848007517720085*^9, 
  3.848007524639991*^9}},ExpressionUUID->"007c6395-f6f2-40e6-8cdc-\
e1f6627491ed"],

Cell[CellGroupData[{

Cell[BoxData["Profitsb"], "Input",
 CellChangeTimes->{{3.8479644994611588`*^9, 3.84796450917488*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"1e1dae36-e2ae-4328-8636-a8b1447b87f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "cs"}], "-", "csb", "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "-", 
     RowBox[{"2", " ", "\[Alpha]"}], "+", 
     SuperscriptBox["\[Alpha]", "2"]}]], 
   RowBox[{"\[Alpha]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
      RowBox[{"2", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"cv", " ", "kb"}], "+", 
         RowBox[{"cvb", " ", "kb"}], "-", 
         RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
         RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
         RowBox[{"cv", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"cvb", " ", "kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["kb", "2"], " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", 
         RowBox[{"kb", " ", "\[Theta]"}], "-", 
         RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], 
  "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "kb"}]], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"f", "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Alpha]"}], "+", 
         SuperscriptBox["\[Alpha]", "2"]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
          "+", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"cv", " ", "kb"}], "+", 
             RowBox[{"cvb", " ", "kb"}], "-", 
             RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
             RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
             RowBox[{"cv", " ", "kb", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{"cvb", " ", "kb", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{
              SuperscriptBox["kb", "2"], " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{"kb", " ", "\[Theta]"}], "-", 
             RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], 
         ")"}]}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Theta]", "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Alpha]"}], "+", 
         SuperscriptBox["\[Alpha]", "2"]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
         "+", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"cv", " ", "kb"}], "+", 
            RowBox[{"cvb", " ", "kb"}], "-", 
            RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
            RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
            RowBox[{"cv", " ", "kb", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", 
            RowBox[{"cvb", " ", "kb", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["kb", "2"], " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", 
            RowBox[{"kb", " ", "\[Theta]"}], "-", 
            RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], 
      "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Alpha]"}], "+", 
         SuperscriptBox["\[Alpha]", "2"]}]], 
       RowBox[{"\[Alpha]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", 
          "+", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"cv", " ", "kb"}], "+", 
             RowBox[{"cvb", " ", "kb"}], "-", 
             RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
             RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
             RowBox[{"cv", " ", "kb", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{"cvb", " ", "kb", " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{
              SuperscriptBox["kb", "2"], " ", 
              SuperscriptBox["\[Alpha]", "2"]}], "+", 
             RowBox[{"kb", " ", "\[Theta]"}], "-", 
             RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}], 
         ")"}]}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.847964511124446*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"644a8a2c-d257-410e-ae83-fe36f430b660"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%7", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[8]:=",ExpressionUUID->"7ec1c0c0-0b08-4f14-bfd1-5218950d6db8"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", 
   RowBox[{"kb", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"cs", " ", "kb"}], "+", 
    RowBox[{"csb", " ", "kb"}], "+", 
    RowBox[{"2", " ", "cv", " ", "kb"}], "+", 
    RowBox[{"2", " ", "cvb", " ", "kb"}], "-", 
    RowBox[{"2", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "-", 
    RowBox[{"2", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-", 
    RowBox[{"4", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
    RowBox[{"4", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
    RowBox[{"f", " ", "kb", " ", "\[Alpha]"}], "+", 
    RowBox[{"cs", " ", "kb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    RowBox[{"csb", " ", "kb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    RowBox[{"2", " ", "cv", " ", "kb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    RowBox[{"2", " ", "cvb", " ", "kb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "-", 
    RowBox[{"f", " ", "kb", " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["kb", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}], "+", 
    RowBox[{"2", " ", "kb", " ", "\[Theta]"}], "-", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
    RowBox[{"f", " ", 
     SqrtBox[
      RowBox[{"kb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"cvb", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
    RowBox[{"f", " ", "\[Alpha]", " ", 
     SqrtBox[
      RowBox[{"kb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"cvb", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
    RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", 
     SqrtBox[
      RowBox[{"kb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"cvb", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
    RowBox[{"\[Theta]", " ", 
     SqrtBox[
      RowBox[{"kb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"cvb", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
    RowBox[{"\[Alpha]", " ", "\[Theta]", " ", 
     SqrtBox[
      RowBox[{"kb", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cv", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"cvb", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
         RowBox[{"kb", " ", 
          SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
         RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], ")"}]}]], \
"Input",
 CellChangeTimes->{{3.8479670408103523`*^9, 
  3.847967046516635*^9}},ExpressionUUID->"ad1980be-0a31-4531-a7ce-\
11e33ce345d3"],

Cell[BoxData[
 RowBox[{"\[CapitalDelta]Profitsb2", ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", 
      RowBox[{"kb", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cs", " ", "kb"}], "+", 
      RowBox[{"csb", " ", "kb"}], "+", 
      RowBox[{"2", " ", "cv", " ", "kb"}], "+", 
      RowBox[{"2", " ", "cvb", " ", "kb"}], "-", 
      RowBox[{"2", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "-", 
      RowBox[{"2", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-", 
      RowBox[{"4", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
      RowBox[{"4", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
      RowBox[{"f", " ", "kb", " ", "\[Alpha]"}], "+", 
      RowBox[{"cs", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"csb", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", "cv", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", "cvb", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "-", 
      RowBox[{"f", " ", "kb", " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["kb", "2"], " ", 
       SuperscriptBox["\[Alpha]", "2"]}], "+", 
      RowBox[{"2", " ", "kb", " ", "\[Theta]"}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
      RowBox[{"f", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
      RowBox[{"f", " ", "\[Alpha]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
      RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
      RowBox[{"\[Theta]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
      RowBox[{"\[Alpha]", " ", "\[Theta]", " ", 
       SqrtBox[
        RowBox[{"kb", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cv", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"cvb", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
           RowBox[{"kb", " ", 
            SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
           RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], ")"}]}], 
   "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"k", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "cv", " ", "k"}], "+", 
       RowBox[{"cs", " ", "k", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
       RowBox[{"4", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+", 
       RowBox[{"f", " ", "k", " ", "\[Alpha]"}], "+", 
       RowBox[{"2", " ", "cv", " ", "k", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "-", 
       RowBox[{"f", " ", "k", " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["k", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{"2", " ", "k", " ", "\[Theta]"}], "-", 
       RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
       RowBox[{"f", " ", 
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cv", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"k", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
       RowBox[{"f", " ", "\[Alpha]", " ", 
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cv", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"k", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
       RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", 
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cv", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"k", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
       RowBox[{"\[Theta]", " ", 
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cv", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"k", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
       RowBox[{"\[Alpha]", " ", "\[Theta]", " ", 
        SqrtBox[
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cv", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
            RowBox[{"k", " ", 
             SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
            RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], ")"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.847967050137803*^9, 3.847967094172741*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"9b3bde45-2d10-48dd-b812-4271040e1bb7"],

Cell[CellGroupData[{

Cell[BoxData["\[CapitalDelta]Profitsb2"], "Input",
 CellChangeTimes->{{3.8479670981808357`*^9, 3.847967108774981*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"2f4e235e-d7c9-42f4-924d-efeb0812e849"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{"k", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "cv", " ", "k"}], "+", 
     RowBox[{"cs", " ", "k", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", 
     RowBox[{"4", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+", 
     RowBox[{"f", " ", "k", " ", "\[Alpha]"}], "+", 
     RowBox[{"2", " ", "cv", " ", "k", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"f", " ", "k", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["k", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "k", " ", "\[Theta]"}], "-", 
     RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
     RowBox[{"f", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"f", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"\[Theta]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"\[Alpha]", " ", "\[Theta]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], ")"}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"cs", " ", "kb"}], "+", 
     RowBox[{"csb", " ", "kb"}], "+", 
     RowBox[{"2", " ", "cv", " ", "kb"}], "+", 
     RowBox[{"2", " ", "cvb", " ", "kb"}], "-", 
     RowBox[{"2", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"2", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"4", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"4", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+", 
     RowBox[{"f", " ", "kb", " ", "\[Alpha]"}], "+", 
     RowBox[{"cs", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"csb", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "cv", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "cvb", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"f", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["kb", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "kb", " ", "\[Theta]"}], "-", 
     RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-", 
     RowBox[{"f", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"f", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"\[Theta]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"\[Alpha]", " ", "\[Theta]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.847967110170185*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"137d28da-f4c5-4ee3-97d3-d46a94b9b00a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%12", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[13]:=",ExpressionUUID->"cba80645-7908-45b1-ab66-1d7a768e3999"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"k", " ", "kb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"csb", " ", "k", " ", "kb"}], "+", 
     RowBox[{"2", " ", "cvb", " ", "k", " ", "kb"}], "-", 
     RowBox[{"2", " ", "csb", " ", "k", " ", "kb", " ", "\[Alpha]"}], "-", 
     RowBox[{"4", " ", "cvb", " ", "k", " ", "kb", " ", "\[Alpha]"}], "+", 
     RowBox[{"csb", " ", "k", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "cvb", " ", "k", " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["k", "2"], " ", "kb", " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"2", " ", "k", " ", 
      SuperscriptBox["kb", "2"], " ", 
      SuperscriptBox["\[Alpha]", "2"]}], "+", 
     RowBox[{"f", " ", "kb", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"f", " ", "kb", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"2", " ", "k", " ", "kb", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"kb", " ", "\[Theta]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]", " ", 
      SqrtBox[
       RowBox[{"k", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"f", " ", "k", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"f", " ", "k", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"2", " ", "k", " ", "kb", " ", "\[Alpha]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-", 
     RowBox[{"k", " ", "\[Theta]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
     RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]", " ", 
      SqrtBox[
       RowBox[{"kb", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cv", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"cvb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", 
          RowBox[{"kb", " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", 
          RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.847967113907933*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"7a9dfd11-3fb4-43a8-bae5-4bba316f223f"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.848015651464246*^9},ExpressionUUID->"768c7f15-3ae3-4b03-9f8d-\
09854568a647"]
}, Open  ]]
},
WindowSize->{808, 730},
WindowMargins->{{0, Automatic}, {Automatic, 5}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670813\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"651947a8-e0b9-4e75-87e6-d374becec500"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 304, 7, 84, "Text",ExpressionUUID->"ff515021-3af4-4d65-85d1-a6b033ab88a5"],
Cell[865, 29, 1828, 55, 73, "Input",ExpressionUUID->"8f68aab6-8515-4506-b52d-c1d849ae4d65"],
Cell[CellGroupData[{
Cell[2718, 88, 229, 4, 44, "Input",ExpressionUUID->"e4bb1fcc-ddcc-4724-b249-ed3a03575f07"],
Cell[2950, 94, 419, 10, 34, "Output",ExpressionUUID->"196ac7da-34ac-4079-a41a-d9f2a123ff10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3406, 109, 259, 5, 44, "Input",ExpressionUUID->"f22fcff3-9030-48ab-9e20-4700177a8302"],
Cell[3668, 116, 422, 10, 52, "Output",ExpressionUUID->"38b01cd4-45c3-4784-93da-3832f7b770e4"]
}, Open  ]],
Cell[4105, 129, 924, 25, 85, "Text",ExpressionUUID->"67cfae92-6228-4172-8a75-7832e9feb274"],
Cell[5032, 156, 318, 7, 49, "Input",ExpressionUUID->"1ee85c53-644e-4d8e-8321-026955f58d27"],
Cell[CellGroupData[{
Cell[5375, 167, 178, 2, 30, "Input",ExpressionUUID->"59949d60-8951-4280-8ac9-ee7772287d1b"],
Cell[5556, 171, 938, 27, 54, "Output",ExpressionUUID->"f1a5ffdb-dbd5-4a4c-9339-9267d8d7029c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6531, 203, 928, 27, 64, "Input",ExpressionUUID->"e03cef33-70cc-45a9-b64b-894bec1f25eb"],
Cell[7462, 232, 794, 19, 54, "Output",ExpressionUUID->"c15ebc03-4397-44ef-a54f-fc798765e51d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8293, 256, 356, 7, 44, "Input",ExpressionUUID->"96b7e3cd-41f1-4411-9d69-0d1058c9759c"],
Cell[8652, 265, 2525, 65, 150, "Output",ExpressionUUID->"90822e0c-4b9b-4458-b799-27740e6ef5d7"]
}, Open  ]],
Cell[11192, 333, 1839, 51, 71, "Text",ExpressionUUID->"9599649a-585b-44cc-8b4a-c4a5ebaf635f"],
Cell[13034, 386, 2976, 77, 258, "Text",ExpressionUUID->"44601121-fd8c-4dc3-b13b-afb7352ac955"],
Cell[16013, 465, 473, 16, 30, "Input",ExpressionUUID->"314118cf-f136-4b5b-b450-7507c7f388a2"],
Cell[CellGroupData[{
Cell[16511, 485, 321, 7, 44, "Input",ExpressionUUID->"c719d7dc-86ab-4ed7-8868-806743ba3f1d"],
Cell[16835, 494, 390, 10, 52, "Output",ExpressionUUID->"2a64f571-61c5-471d-a6e0-8bf7e94bcf76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17262, 509, 302, 5, 56, "Subsubsection",ExpressionUUID->"9ca49b08-764b-4465-9a31-a70b98ecacb7"],
Cell[17567, 516, 1163, 36, 113, "Input",ExpressionUUID->"a3663cf8-9bab-4193-b0d6-259c6401a5cf"],
Cell[CellGroupData[{
Cell[18755, 556, 181, 2, 30, "Input",ExpressionUUID->"da58d7ae-e4af-4135-bb02-552c5bd8ab3d"],
Cell[18939, 560, 1190, 36, 92, "Output",ExpressionUUID->"7fc1b3ba-ee9f-477f-a4cf-9743a1293bb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20166, 601, 1234, 37, 105, "Input",ExpressionUUID->"2f47487f-24f7-4ad5-b3df-4d1eb468a80f"],
Cell[21403, 640, 823, 20, 54, "Output",ExpressionUUID->"11713ef1-af1a-4ac8-9d24-83e855ea10f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22263, 665, 223, 4, 44, "Input",ExpressionUUID->"8ee53eea-d352-4ba6-9a32-b64a3f9596cf"],
Cell[22489, 671, 576, 14, 54, "Output",ExpressionUUID->"de7968b2-b5b9-4fb0-94ef-a007bff1a147"]
}, Open  ]],
Cell[23080, 688, 258, 5, 44, "Input",ExpressionUUID->"6a05dfd3-dae1-4bba-87d4-69394b5ec63c"],
Cell[23341, 695, 633, 17, 52, "Input",ExpressionUUID->"b693fdb6-2743-440d-aea7-516cafd7c4b9"],
Cell[23977, 714, 2020, 60, 119, "Text",ExpressionUUID->"567cadd2-722a-4b29-bf0a-c95616a8dc2a"],
Cell[CellGroupData[{
Cell[26022, 778, 1748, 45, 177, "Input",ExpressionUUID->"87b2e842-74b4-48a0-85f3-dca215d473eb"],
Cell[27773, 825, 1427, 37, 102, "Output",ExpressionUUID->"04876032-56ea-436c-9693-c277eae0008e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29237, 867, 1545, 41, 169, "Input",ExpressionUUID->"1733062f-de8d-4921-966a-865f9590d3b1"],
Cell[30785, 910, 1067, 30, 62, "Output",ExpressionUUID->"7993e195-2393-4e70-874f-91b4600c6577"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31889, 945, 259, 5, 44, "Input",ExpressionUUID->"29c40d76-886f-4526-85da-a95936b391d2"],
Cell[32151, 952, 2107, 64, 82, "Output",ExpressionUUID->"d0d0694b-504c-4e83-88d7-61a33ff68dd4"]
}, Open  ]],
Cell[34273, 1019, 748, 12, 115, "Input",ExpressionUUID->"3302e9fb-5e8b-4b53-a2da-9b31aa462672"],
Cell[CellGroupData[{
Cell[35046, 1035, 2296, 72, 122, "Input",ExpressionUUID->"21ca83e5-2f0e-43e5-9687-553e8fe7532c"],
Cell[37345, 1109, 7896, 147, 234, "Output",ExpressionUUID->"eb7d672d-8509-47a2-9f74-42c44de0aa62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45278, 1261, 377, 8, 65, "Input",ExpressionUUID->"399f54d3-292a-4af5-8ae6-eecd386252ba"],
Cell[45658, 1271, 2446, 60, 234, "Output",ExpressionUUID->"02fcf579-5981-4849-a302-ba44be747ec5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48141, 1336, 923, 21, 44, "Input",ExpressionUUID->"a7cba156-a00e-48f5-83ff-3f4f2432b707"],
Cell[49067, 1359, 19955, 349, 234, "Output",ExpressionUUID->"bf83ac57-69d1-4d86-9a54-9ed4d085807f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69059, 1713, 587, 15, 80, "Input",ExpressionUUID->"fbed3f2d-8e80-4586-a490-7ba1e501c28b"],
Cell[69649, 1730, 20003, 355, 258, "Output",ExpressionUUID->"5866600f-3401-4e5d-a204-01b978fe38b0"]
}, Open  ]],
Cell[89667, 2088, 200, 4, 30, "Input",ExpressionUUID->"4823a407-e5ea-44b6-ab5c-f50db7364997"],
Cell[89870, 2094, 196, 3, 30, "Input",ExpressionUUID->"0c44375d-e456-489e-a849-f4a7eb5a29d2"],
Cell[90069, 2099, 1828, 58, 81, "Input",ExpressionUUID->"549835f5-8d7e-4d93-aa26-57df24514101"],
Cell[CellGroupData[{
Cell[91922, 2161, 762, 19, 80, "Input",ExpressionUUID->"8428ea87-c660-41cb-9237-3a7e5fdb9fb3"],
Cell[92687, 2182, 12818, 228, 234, "Output",ExpressionUUID->"1f5ad202-929e-462c-91cc-c52bbcefe14f"]
}, Open  ]],
Cell[105520, 2413, 551, 14, 80, "Input",ExpressionUUID->"15fb8b02-92f6-436d-bfd2-e36c2dfb2a4b"],
Cell[106074, 2429, 12742, 230, 236, "Input",ExpressionUUID->"423639b5-05e8-4460-a4f0-22341d5dcd01"],
Cell[118819, 2661, 225, 5, 44, "Input",ExpressionUUID->"0ca23ea5-b5f7-4c81-afdf-3b36fc3f15ae"],
Cell[119047, 2668, 14029, 261, 230, "Input",ExpressionUUID->"8fcbf035-90e6-491c-bbde-13d6d7635fa6"],
Cell[133079, 2931, 189, 3, 40, "Text",ExpressionUUID->"e2260fe4-d4d9-4199-b0ce-11835419931c"],
Cell[133271, 2936, 38544, 1131, 1381, "Text",ExpressionUUID->"82240fbc-68f6-4bc1-941c-e3f5582a9c52"],
Cell[171818, 4069, 225, 4, 35, "Text",ExpressionUUID->"577269fc-2dd4-4fa7-afa0-6b6f70e75b64"],
Cell[172046, 4075, 150, 3, 30, "Input",ExpressionUUID->"178ed4e0-11ac-4af2-898d-1f8fb6029f4a"],
Cell[172199, 4080, 2540, 75, 202, "Input",ExpressionUUID->"f2a6250e-9ca6-4342-ae2a-3a5765e13fa5"],
Cell[CellGroupData[{
Cell[174764, 4159, 175, 2, 30, "Input",ExpressionUUID->"83774665-f021-4b8c-9e28-0a8919c0cbe8"],
Cell[174942, 4163, 1003, 27, 62, "Output",ExpressionUUID->"c58ef2ab-cf51-448e-ac03-2cf21173f7b2"]
}, Open  ]],
Cell[175960, 4193, 1014, 28, 72, "Input",ExpressionUUID->"ab6ca91f-55e1-47d9-a361-57feddfc267f"],
Cell[CellGroupData[{
Cell[176999, 4225, 525, 14, 72, "Input",ExpressionUUID->"66977b16-ccfe-4e36-9d5b-95adf9313024"],
Cell[177527, 4241, 1048, 28, 62, "Output",ExpressionUUID->"46e38521-a771-4c34-b79d-f7176f36e9a8"]
}, Open  ]],
Cell[178590, 4272, 1062, 29, 72, "Input",ExpressionUUID->"e53236b2-be92-4c88-829c-e1fd482f321e"],
Cell[179655, 4303, 579, 16, 50, "Input",ExpressionUUID->"df117a65-7d5e-4084-8372-b51856d9e781"],
Cell[180237, 4321, 473, 13, 49, "Input",ExpressionUUID->"18cad1b8-9f23-40fc-914c-201c2c3d193f"],
Cell[180713, 4336, 1664, 50, 118, "Input",ExpressionUUID->"bd2e0255-ab7a-4a86-a65b-00d9d7bf290e"],
Cell[182380, 4388, 225, 4, 30, "Input",ExpressionUUID->"2ecdb727-e5a4-4c9a-9d09-2694b01fd4f6"],
Cell[182608, 4394, 1556, 45, 52, "Input",ExpressionUUID->"dac895c4-b3f7-4aad-917d-2de1e022c2f7"],
Cell[184167, 4441, 229, 4, 44, "Input",ExpressionUUID->"6087a3c7-8fee-4a29-8528-ceb60852884e"],
Cell[184399, 4447, 1509, 45, 52, "Input",ExpressionUUID->"d7442b4d-8383-40fb-9c06-b83124fa96e6"],
Cell[CellGroupData[{
Cell[185933, 4496, 3321, 93, 168, "Input",ExpressionUUID->"044c56de-5195-423b-9924-3a692b9b02ef"],
Cell[189257, 4591, 2643, 82, 100, "Output",ExpressionUUID->"0ea64e9f-c542-496d-b921-3522d4647076"]
}, Open  ]],
Cell[191915, 4676, 163, 3, 44, "Input",ExpressionUUID->"98aaa104-f333-4e3c-ad3c-a884ddaf9533"],
Cell[192081, 4681, 1919, 54, 100, "Input",ExpressionUUID->"202975c9-94fc-4ac3-88fc-1fc73891160f"],
Cell[194003, 4737, 479, 13, 30, "Input",ExpressionUUID->"f6194633-8b29-426c-a299-0153113e5d19"],
Cell[CellGroupData[{
Cell[194507, 4754, 179, 2, 30, "Input",ExpressionUUID->"02ed25d0-478c-47d1-944d-c09414e409da"],
Cell[194689, 4758, 1981, 62, 104, "Output",ExpressionUUID->"2b4a153b-b1f3-47e4-93ea-04cc1343876b"]
}, Open  ]],
Cell[196685, 4823, 2050, 63, 119, "Input",ExpressionUUID->"d2a2cc9c-a697-4237-8362-41537b716947"],
Cell[198738, 4888, 1881, 50, 100, "Input",ExpressionUUID->"81bd2837-297a-425b-bfdf-1f5e9bad6536"],
Cell[200622, 4940, 208, 4, 73, "Input",ExpressionUUID->"e8a8483b-1ac3-4f8c-86fe-1bc9b3bdaf71"],
Cell[CellGroupData[{
Cell[200855, 4948, 1566, 44, 139, "Input",ExpressionUUID->"5c2e7d0e-4b01-4945-9044-7dc82622d795"],
Cell[202424, 4994, 1982, 62, 104, "Output",ExpressionUUID->"522bc8c2-7bc6-4fd0-81b9-24fe797c60f8"]
}, Open  ]],
Cell[204421, 5059, 2049, 63, 119, "Input",ExpressionUUID->"7bed8ae0-6c97-43dd-9751-38c06c436ad3"],
Cell[206473, 5124, 1882, 50, 100, "Input",ExpressionUUID->"b8f9dde6-5f81-45fc-96cc-a7db0ef16c1a"],
Cell[CellGroupData[{
Cell[208380, 5178, 3760, 100, 211, "Input",ExpressionUUID->"0cfc690e-f54d-40f2-a5bf-6dbe7541c0ea"],
Cell[212143, 5280, 3374, 92, 145, "Output",ExpressionUUID->"7cc61103-0f29-4780-851f-b9611e1cb1f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215554, 5377, 163, 3, 44, "Input",ExpressionUUID->"acfbdb09-10ca-4bbd-b33f-07aad5965087"],
Cell[215720, 5382, 1829, 52, 79, "Output",ExpressionUUID->"0f2a8f88-4459-4bc5-a609-f1d978573701"]
}, Open  ]],
Cell[217564, 5437, 71, 0, 35, "Text",ExpressionUUID->"200a9e89-dbf1-4077-a1fa-2339820fdba2"],
Cell[217638, 5439, 204, 5, 30, "Input",ExpressionUUID->"b200711e-de22-44b6-9b0e-cbfe3ddbf2cf"],
Cell[217845, 5446, 1578, 40, 256, "Input",ExpressionUUID->"58aaa073-f9f1-4020-a157-ccc373e02412"],
Cell[219426, 5488, 1554, 50, 73, "Input",ExpressionUUID->"96f27e4d-f6d4-4da0-9365-9efd63156de4"],
Cell[CellGroupData[{
Cell[221005, 5542, 172, 2, 30, "Input",ExpressionUUID->"84bf5830-1572-4f1d-b33a-25bd1359ac64"],
Cell[221180, 5546, 2451, 64, 159, "Output",ExpressionUUID->"a50bb387-0ace-4d85-bc77-e2e4d4e01c77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223668, 5615, 162, 3, 44, "Input",ExpressionUUID->"5b9c7ba3-5c15-4e2a-9c40-ad2921048bb8"],
Cell[223833, 5620, 871, 26, 59, "Output",ExpressionUUID->"20af18ae-976e-4d39-8de4-95cc02bd712d"]
}, Open  ]],
Cell[224719, 5649, 941, 27, 60, "Input",ExpressionUUID->"5b1a7ecc-aadd-4c64-b7c6-2ac3bc0935ca"],
Cell[CellGroupData[{
Cell[225685, 5680, 225, 4, 44, "Input",ExpressionUUID->"a264a3aa-6e94-4e22-a96c-b0ddbcf35a58"],
Cell[225913, 5686, 2267, 68, 74, "Output",ExpressionUUID->"4e6f7aed-6362-4ea1-ae14-dc452db34e49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228217, 5759, 2343, 69, 145, "Input",ExpressionUUID->"ac4ab642-5262-4a9e-8083-320509402843"],
Cell[230563, 5830, 998, 30, 61, "Output",ExpressionUUID->"06946484-e107-42c3-9af6-8734b4fe1a1b"]
}, Open  ]],
Cell[231576, 5863, 304, 6, 35, "Text",ExpressionUUID->"007c6395-f6f2-40e6-8cdc-e1f6627491ed"],
Cell[CellGroupData[{
Cell[231905, 5873, 179, 2, 30, "Input",ExpressionUUID->"1e1dae36-e2ae-4328-8636-a8b1447b87f1"],
Cell[232087, 5877, 4989, 128, 306, "Output",ExpressionUUID->"644a8a2c-d257-410e-ae83-fe36f430b660"]
}, Open  ]],
Cell[237091, 6008, 161, 3, 44, "Input",ExpressionUUID->"7ec1c0c0-0b08-4f14-bfd1-5218950d6db8"],
Cell[237255, 6013, 4649, 127, 252, "Input",ExpressionUUID->"ad1980be-0a31-4531-a7ce-11e33ce345d3"],
Cell[241907, 6142, 8512, 223, 395, "Input",ExpressionUUID->"9b3bde45-2d10-48dd-b812-4271040e1bb7"],
Cell[CellGroupData[{
Cell[250444, 6369, 197, 2, 30, "Input",ExpressionUUID->"2f4e235e-d7c9-42f4-924d-efeb0812e849"],
Cell[250644, 6373, 8056, 218, 332, "Output",ExpressionUUID->"137d28da-f4c5-4ee3-97d3-d46a94b9b00a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258737, 6596, 163, 3, 44, "Input",ExpressionUUID->"cba80645-7908-45b1-ab66-1d7a768e3999"],
Cell[258903, 6601, 6763, 182, 267, "Output",ExpressionUUID->"7a9dfd11-3fb4-43a8-bae5-4bba316f223f"]
}, Open  ]],
Cell[265681, 6786, 128, 3, 30, "Input",ExpressionUUID->"768c7f15-3ae3-4b03-9f8d-09854568a647"]
}, Open  ]]
}
]
*)