JingYiHan
/
IGB
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
IGB/11.27 insurance.nb

3953 lines
133 KiB
Mathematica
Raw Normal View History

with government
2022-06-13 21:16:40 +08:00
(* 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[ 136304, 3944]
NotebookOptionsPosition[ 117144, 3643]
NotebookOutlinePosition[ 117589, 3661]
CellTagsIndexPosition[ 117546, 3658]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Insurance Model\n", "Subtitle"],
StyleBox["The first-best benchmark", "Section"]
}], "Chapter",
CellChangeTimes->{{3.846994013564211*^9, 3.8469940156856823`*^9}, {
3.846994857600985*^9, 3.846994859748948*^9}, {3.846994896420465*^9,
3.8469949852663383`*^9}},ExpressionUUID->"a39687ae-fc3b-4bb9-bd7f-\
6a1cce55c6bd"],
Cell["\<\
By analyzing a centralized controlled supply chain. Without the need to \
consider payment to the vehicle manufacture and deal with insurancing within \
a centralized, controlled system, the expected savings associated with \
launching vie an internal spacecraft are equal to\
\>", "Text",
CellChangeTimes->{
3.847072295759438*^9},ExpressionUUID->"4a074443-24c5-409e-83aa-\
d5efd512c40f"],
Cell[BoxData[
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}]], "Input",
CellLabel->"In[1]:=",ExpressionUUID->"b97db057-3326-4570-b145-bf5f3b37db78"],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{"v", "-",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "cs"}],
")"}]}]}]], "Input",
CellChangeTimes->{{3.847072365050516*^9, 3.8470723873118153`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"79cfa81a-e7be-48c4-a2d1-ac54021f07e2"],
Cell[BoxData[
RowBox[{"Profitc", ":=",
RowBox[{"Profits", "+", "Profitv"}]}]], "Input",
CellChangeTimes->{{3.847072289480255*^9, 3.847072312746649*^9}, {
3.847072429685445*^9, 3.847072436130612*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"53785147-afaf-421b-9557-079ea54a50de"],
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitc", ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.847072439483007*^9,
3.847072474565583*^9}},ExpressionUUID->"e5ce236c-099f-4fa3-baeb-\
556f27ae00e1"],
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.847072496013612*^9},
CellLabel->"Out[5]=",ExpressionUUID->"36a6f063-e7cb-456b-a8fa-26f7686dc301"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.847072505694669*^9, 3.8470725139318657`*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"9535aaaa-7402-46ed-a57c-598d9755fb32"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox["\[Theta]",
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.847072514258151*^9},
CellLabel->"Out[6]=",ExpressionUUID->"e7dd1525-589b-464a-84dc-f91157728724"]
}, Open ]],
Cell[BoxData[
StyleBox[
RowBox[{"e", ":=",
FractionBox["\[Theta]",
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{{3.847072518589052*^9, 3.847072526636067*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"a6b4c8f3-f4b1-4542-b04d-0c61fa353d55"],
Cell[BoxData["Profitc"], "Input",
CellChangeTimes->{{3.84707255448181*^9, 3.8470725558618927`*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"3d692f04-76cd-4929-b634-5612de74c716"],
Cell[BoxData[
StyleBox[
RowBox[{
SubscriptBox["\[CapitalPi]", "c"], "=", " ",
RowBox[{
RowBox[{"-", "cs"}], "-", "cv", "-",
RowBox[{
SuperscriptBox["e", "2"], " ", "k"}], "+", "v", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ", "\[Theta]"}]}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{{3.847145356327112*^9,
3.847145370756509*^9}},ExpressionUUID->"a1c40ca2-1b2e-42b9-a8ad-\
ea757e0a057d"],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "-", "cv", "+", "v", "-",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox["\[Theta]",
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[9]:=",ExpressionUUID->"6bfe07aa-d077-4fee-8be6-e182ce2d877c"],
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{"-", "cs"}], "-", "cv", "+", "v", "-", "\[Theta]", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8470725701697483`*^9},
CellLabel->"Out[9]=",ExpressionUUID->"a0a114d9-6e19-44aa-8b58-739f998a2b1b"],
Cell[CellGroupData[{
Cell[TextData[{
"Lemma 1\n",
StyleBox["In a centralized chain, the satellite owner contract with the \
vehicle manufacture if and only if ", "Text",
FontColor->GrayLevel[0]],
Cell[BoxData[
StyleBox[
RowBox[{"v", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8470725701697483`*^9},ExpressionUUID->
"d3a2c6ce-a42c-47c4-b6f8-82821059b1f6"],
StyleBox[" ", "Text",
FontColor->GrayLevel[0]],
StyleBox["\[GreaterEqual] cs + cv + \[Theta] ", "Text",
FontColor->RGBColor[1, 0, 0]],
StyleBox[". The resulting launch probability is ", "Text",
FontColor->GrayLevel[0]],
Cell[BoxData[
FractionBox["\[Theta]",
RowBox[{"2", " ", "k"}]]],
CellChangeTimes->{{3.847072518589052*^9, 3.847072526636067*^9}},
ExpressionUUID->"5afc9f15-b5f3-447e-9c4f-0a4071729f20"],
StyleBox[", and the corresponding chain payoff is ", "Text",
FontColor->GrayLevel[0]],
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{"-", "cs"}], "-", "cv", "+", "v", "-", "\[Theta]", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8470725701697483`*^9},ExpressionUUID->
"aefd4a2d-0017-4666-a46a-e0c85972db57"],
StyleBox[".\n\nIt follows from the lemma1 that, in order to avoid trivial \
cases, we assume that ", "Text",
FontColor->GrayLevel[0]],
StyleBox["k >\[Theta]/2 ", "Text",
FontColor->RGBColor[1, 0, 0]],
StyleBox["and ", "Text",
FontColor->GrayLevel[0]],
Cell[BoxData[
StyleBox[
RowBox[{"v", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]], "-", "cv", "-", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8470725701697483`*^9},ExpressionUUID->
"6a18bb1d-d9d9-4604-af77-ae0a23ae8065"],
StyleBox[" ", "Text",
FontColor->GrayLevel[0]],
StyleBox["\[GreaterEqual]cs ", "Text",
FontColor->RGBColor[1, 0, 0]],
StyleBox["throughout this paper. ", "Text",
FontColor->GrayLevel[0]]
}], "Section",
CellChangeTimes->{{3.847072621464958*^9, 3.847072634540354*^9}, {
3.847072726456894*^9, 3.8470727475798388`*^9}, {3.847072805201377*^9,
3.847072843567854*^9}, {3.8470729113579206`*^9, 3.847073031006254*^9}, {
3.8470731528824472`*^9, 3.847073179144915*^9}, {3.8470733324003267`*^9,
3.847073344605122*^9}, {3.847073375844777*^9, 3.847073377406995*^9}, {
3.847073424844791*^9, 3.847073505663547*^9}, {3.847073555664248*^9,
3.847073568298669*^9}, {3.8470736020073853`*^9, 3.84707365478864*^9}, {
3.847073685776712*^9, 3.847073765658246*^9}, {3.847073908138644*^9,
3.847073909550741*^9}, {3.847145461780875*^9, 3.847145546076703*^9}, {
3.8471458813531313`*^9,
3.8471459088602533`*^9}},ExpressionUUID->"fe88380d-793a-4f5f-b64c-\
83e0a6b818d6"],
Cell[CellGroupData[{
Cell[TextData[{
"Assumption 1\n",
StyleBox["The vehicle manufacture\[CloseCurlyQuote]s cost cv and his failure \
penalty level a satisfy", "Text",
FontColor->GrayLevel[0]],
StyleBox[" 0 \[LessEqual] \[Theta] \[LessEqual] cv \[LessEqual]", "Text",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Text",
FontColor->GrayLevel[0]],
Cell[BoxData[
StyleBox[
RowBox[{"v", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]], "-", "cs", "-", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]]],
CellChangeTimes->{3.8470725701697483`*^9},ExpressionUUID->
"0cd69792-f05a-4922-bf79-1d94e32d56b2"],
StyleBox[".", "Text",
FontColor->GrayLevel[0]]
}], "Subsection",
CellChangeTimes->{{3.847073093195812*^9, 3.8470731037456017`*^9}, {
3.847073796283391*^9, 3.8470738544159527`*^9}, {3.8470739117702103`*^9,
3.847073933193*^9}},ExpressionUUID->"6a672dce-496a-4be8-9aaa-aeac76186792"],
Cell["", "Outline5",
CellChangeTimes->{
3.847072706267499*^9},ExpressionUUID->"faa6d505-3217-48b9-8ae3-\
0b4087d78c0a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["The VM\[CloseCurlyQuote]s Effort Under Insurance Model", "Section",
CellChangeTimes->{{3.8470724126182137`*^9, 3.847072424750353*^9}, {
3.8470751753004932`*^9,
3.8470751937801857`*^9}},ExpressionUUID->"d1c34096-ed56-4bf5-8295-\
cf32091bad59"],
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs", "+", "f"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs", "+", "f"}],
")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.846994998245145*^9, 3.8469950417569017`*^9}, {
3.8469951304226103`*^9, 3.846995258470537*^9}, {3.84699543311882*^9,
3.84699545867137*^9}, {3.846995492307365*^9, 3.846995496643367*^9}, {
3.847071574315486*^9, 3.847071676196108*^9}, {3.8470717178586597`*^9,
3.847071728403867*^9}, {3.847101586691174*^9, 3.8471015994164743`*^9}, {
3.847326020480481*^9, 3.8473260725167913`*^9}, {3.8473261505798407`*^9,
3.847326161336322*^9}, {3.847326488652102*^9,
3.847326489366748*^9}},ExpressionUUID->"8a5e1f21-e832-4717-962f-\
486d55afa183"],
Cell[BoxData[
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]], "Input",
CellChangeTimes->{{3.8470765697005787`*^9, 3.847076577232677*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"8cbb3264-6d58-415e-92c3-60128108ea58"],
Cell[CellGroupData[{
Cell[BoxData[
StyleBox[
RowBox[{"\[IndentingNewLine]",
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "e"}], "]"}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{
3.846995334466803*^9, {3.8470719931159678`*^9, 3.847072003950798*^9}, {
3.847074019138771*^9, 3.847074025716756*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"d31efafa-2322-4f06-9ec0-e5237b333828"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
CellChangeTimes->{3.847072004716967*^9, 3.8470740274973583`*^9},
CellLabel->"Out[6]=",ExpressionUUID->"044ffb70-ef1f-4f88-9328-646880c8f795"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]}]], "Input",
CellChangeTimes->{{3.847072017401827*^9, 3.8470720216663227`*^9}, {
3.847072058176536*^9, 3.847072063332715*^9}, 3.847074034630993*^9},
CellLabel->"In[7]:=",ExpressionUUID->"de76a8b0-490e-424c-b61a-95614f7fe848"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.847072063806499*^9, 3.8470740371454697`*^9},
CellLabel->"Out[7]=",ExpressionUUID->"67d1a863-98af-414a-861a-eb34be153095"]
}, Open ]],
Cell["\<\
We now solve the Stackelberg game by using backward induction. First, given \
any contingent price p , by considering the first-order condition of Profitv, \
the vehicle manufacture\[CloseCurlyQuote]s best response is given as\
\>", "Text",
CellChangeTimes->{
3.847074658894882*^9},ExpressionUUID->"451b9fe5-3c3d-4613-908c-\
73909ca7437c"],
Cell[BoxData[{
StyleBox[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
StyleBox[
RowBox[{"r", ":=",
RowBox[{"1", "-", "e"}]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"
StyleBox[,
FontColor->RGBColor[1, 0, 0]]}], "Input",
CellChangeTimes->{{3.847072090450409*^9, 3.847072097890996*^9}, {
3.847074047134727*^9, 3.847074085951888*^9}, {3.847326091109666*^9,
3.84732609837551*^9}, {3.8473262599652023`*^9,
3.8473262725364037`*^9}},ExpressionUUID->"c1c41658-3282-4887-9481-\
14e609cd0c24"],
Cell[CellGroupData[{
Cell[BoxData["r"], "Input",
CellChangeTimes->{3.847326265641618*^9},
CellLabel->"In[50]:=",ExpressionUUID->"25cb81c3-86cf-4008-824c-618161218f24"],
Cell[BoxData[
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.8473262660577917`*^9},
CellLabel->"Out[50]=",ExpressionUUID->"260ac273-416b-444b-a3de-a810a1416a8a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.847326278565195*^9, 3.847326280621648*^9}},
CellLabel->"In[51]:=",ExpressionUUID->"8be2c682-3e94-4521-ab90-197cf842636c"],
Cell[BoxData[
RowBox[{"cs", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.847326282378286*^9},
CellLabel->"Out[51]=",ExpressionUUID->"db458e3f-3cc9-48d2-bc7d-8bae9c67660b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"cs", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[52]:=",ExpressionUUID->"cf5a4bec-fb6e-4eb0-a1a2-1252486ce01f"],
Cell[BoxData[
RowBox[{"cs", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "+",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.847326284374515*^9},
CellLabel->"Out[52]=",ExpressionUUID->"ba5276aa-c895-415e-a3e2-47271b67f117"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.847326110036812*^9, 3.84732611402052*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"6543476a-4e42-4bfc-a9f1-07581f0ccaf9"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "+",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-", "\[Alpha]", "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.847326114600947*^9, 3.8473261842117662`*^9,
3.847326291721788*^9},
CellLabel->"Out[53]=",ExpressionUUID->"92dae79e-61cb-4485-8b70-00b47c02decf"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.847326116756496*^9, 3.847326123545939*^9}},
CellLabel->"In[54]:=",ExpressionUUID->"55edf4ba-a82b-4d55-94a0-8ebbc3d8113a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p",
StyleBox["\[Rule]",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
FontColor->RGBColor[1, 0, 0]]}], "}"}], "}"}]], "Input",
CellChangeTimes->{3.847326319213255*^9},
CellLabel->"Out[54]=",ExpressionUUID->"fa7a84f4-163d-4a38-81e7-8a1525d77575"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.847326248990149*^9,
3.84732625476409*^9}},ExpressionUUID->"d95483e2-77aa-49c6-b85a-\
99d4c84674e9"],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.846995260592287*^9, 3.846995260593275*^9}, {
3.847074094554541*^9, 3.847074097041191*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"434a0535-7d04-4d53-b2de-8417db3361f4"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.84707409886814*^9, 3.84732600565388*^9},
CellLabel->"Out[31]=",ExpressionUUID->"b7776507-15f1-4b45-8d7c-33844b26640e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[32]:=",ExpressionUUID->"840dcf7e-69db-43fc-9142-46360f97dd28"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "k"}], "+", "\[Theta]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"4", " ", "k"}]]], "Output",
CellChangeTimes->{3.847326009308363*^9},
CellLabel->"Out[32]=",ExpressionUUID->"6ae48cb6-a000-4427-8300-d7724c871c89"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[10]:=",ExpressionUUID->"d773155c-a29b-47d0-9c22-dbcca16e2801"],
Cell["\<\
By substituting e into the vehicle manufacture\[CloseCurlyQuote]s payoff \
Profitv it is easy to check that\
\>", "Text",
CellChangeTimes->{{3.847074681284581*^9,
3.8470747098134003`*^9}},ExpressionUUID->"50bc3183-f931-4469-a255-\
541f34284653"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "k"}], "+", "\[Theta]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"4", " ", "k"}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.847074116982687*^9},
CellLabel->"Out[10]=",ExpressionUUID->"203e64c2-90ab-4789-97d1-516b527fe727"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.846995238517687*^9, 3.846995238519948*^9}, {
3.847074121838304*^9, 3.847074127692197*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"f5e832c2-d924-4517-ad74-e1c0f8b68538"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.847074129270467*^9},
CellLabel->"Out[11]=",ExpressionUUID->"d65b8b64-cd53-4e89-a162-2a26260045a2"]
}, Open ]],
Cell[TextData[{
"Hence the vehicle manufacture\[CloseCurlyQuote]s participation condition, \
i.e., Profitv\[GreaterEqual]0, can be written as \np \[GreaterEqual] ",
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{
RowBox[{"2",
SqrtBox[
RowBox[{
RowBox[{"k", " ",
RowBox[{"cv", "\[CenterDot]",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]}], " ", "+", " ",
RowBox[{
SuperscriptBox["\[Alpha]", "2"],
SuperscriptBox["k", "2"]}], " ", "+", " ",
RowBox[{"\[Theta]", " ",
RowBox[{"k", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}]]}], " ", "-",
RowBox[{"2", "k", " ", "\[Alpha]"}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Theta]"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], TraditionalForm]],
"Subsection",ExpressionUUID->"b45ac7a2-6968-4b2b-9313-6cd90281246a"]
}], "Text",
CellChangeTimes->{{3.847074732349956*^9,
3.8470751175043583`*^9}},ExpressionUUID->"7b31a7f5-7396-487c-a8c1-\
0ef980574010"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"Profitv", "\[Equal]", "0"}], ",", "p"}], "]"}]}], "Input",
CellChangeTimes->{{3.8471066370747643`*^9, 3.84710667255475*^9}, {
3.8471405088904867`*^9,
3.8471405135128117`*^9}},ExpressionUUID->"13b830df-b732-4df8-9ecc-\
2b792bc2a1fc"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-", "cv"}], "-",
RowBox[{
SuperscriptBox["e", "2"], " ", "k"}], "-", "\[Theta]", "+",
RowBox[{"e", " ", "\[Theta]"}]}],
RowBox[{
RowBox[{"-", "e"}], "-", "\[Alpha]", "+",
RowBox[{"e", " ", "\[Alpha]"}]}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.847106674999976*^9},
CellLabel->"Out[6]=",ExpressionUUID->"8fbe1c3a-7feb-4a3b-8935-b5d96f12b240"]
}, Open ]],
Cell[BoxData[
RowBox[{"p", ":=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]]}]], "Input",
CellChangeTimes->{{3.847313131927696*^9, 3.847313134592923*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"f4d7dc08-b6ac-4a78-a186-6c4093672237"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "e"}], "-", "\[Theta]"}],
RowBox[{"1", "-", "\[Alpha]"}]]}], "\[Equal]", "0"}], ",", "e"}],
"]"}]], "Input",
CellChangeTimes->{{3.84731317039637*^9, 3.847313216881649*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"d1a517d1-0bad-45c2-aeda-646729bf54ce"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"k", " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"cv", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}],
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.8473132184563723`*^9},
CellLabel->"Out[2]=",ExpressionUUID->"2ccf8f90-6e4e-477d-926d-cca2f48471b4"]
}, Open ]],
Cell[BoxData[
RowBox[{
StyleBox["v",
FontColor->RGBColor[1, 0, 0]],
StyleBox[":=",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox["cs",
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]], "cv", "+",
RowBox[{"e", "*", "e", "*",
StyleBox[" ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["k",
FontColor->RGBColor[1, 0, 0]]}],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]]}]}]], "Input",
CellChangeTimes->{{3.847316381392889*^9, 3.847316386281818*^9}, {
3.847316538095078*^9, 3.847316576215047*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"f71c8be6-7a63-4858-b653-06d891d01d27"],
Cell[BoxData[
StyleBox[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellLabel->"In[14]:=",ExpressionUUID->"57593b88-81c6-46e4-b4f9-c03a1ec8ea14"],
Cell[CellGroupData[{
Cell[BoxData["v"], "Input",
CellChangeTimes->{{3.847316394580326*^9, 3.847316396268299*^9}, {
3.847316585719481*^9, 3.847316588737893*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"3d95f9fb-810f-4df0-ac56-28b3fa5dd635"],
Cell[BoxData[
RowBox[{"cs", "+", "cv", "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "+",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.847316397599324*^9, 3.84731659002885*^9},
CellLabel->"Out[15]=",ExpressionUUID->"baa3b0c0-9ec6-480b-a390-cdcfd7a12106"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"cs", "+", "cv", "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "+",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[16]:=",ExpressionUUID->"89b5094a-178e-4af4-bee0-48b3228e2f43"],
Cell[BoxData[
RowBox[{"cs", "+", "cv", "+", "\[Theta]", "-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.847316598480695*^9},
CellLabel->"Out[16]=",ExpressionUUID->"f893fb4a-214c-4263-95fc-f0dc0fa053b3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"%", "-", "p"}], "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.847316417515629*^9, 3.847316424505472*^9}, {
3.8473167070256987`*^9, 3.847316707808771*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"2fd082ab-2f0d-4dc9-bf82-98ba63309865"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-",
SqrtBox[
RowBox[{"1", "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"4", " ", "k"}]], "-",
FractionBox["\[Alpha]",
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"4", " ", "k"}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+", "cv", "+", "\[Theta]", "-",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}], ")"}]}]}]]}], ")"}]}],
RowBox[{
FractionBox["1", "k"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+",
SqrtBox[
RowBox[{"1", "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{"4", " ", "k"}]], "-",
FractionBox["\[Alpha]",
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"4", " ", "k"}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+", "cv", "+", "\[Theta]", "-",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}], ")"}]}]}]]}], ")"}]}],
RowBox[{
FractionBox["1", "k"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}]}], "}"}]], "Output",\
CellChangeTimes->{3.8473164251941442`*^9, 3.8473167101718073`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"e12a2ad8-c5aa-4408-ba25-77f15a53b394"]
}, Open ]],
Cell[BoxData[
FormBox["", TraditionalForm]], "Input",
CellChangeTimes->{{3.8471404976364803`*^9, 3.847140524197225*^9}, {
3.847313123915406*^9,
3.847313128264559*^9}},ExpressionUUID->"51545df1-71d0-4c26-ab57-\
d1f4faa259d1"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.847106664253661*^9,
3.847106664484332*^9}},ExpressionUUID->"aca45777-0963-49b6-8d34-\
30b03810bbab"],
Cell[TextData[StyleBox["The IC\[CloseCurlyQuote]s Premium Rate Under \
Insurance Model", "Section"]], "Text",
CellChangeTimes->{{3.847075237309936*^9,
3.8470752994770823`*^9}},ExpressionUUID->"7f21e962-4957-4667-8436-\
535cdc0b692c"],
Cell[TextData[{
"Observing 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)",
FontColor->RGBColor[1, 0, 0]],
", equals the expected coverage \n",
StyleBox["(1-e) (\[Alpha] p+cs).",
FontColor->RGBColor[1, 0, 0]],
"\nSubstituting e given in",
Cell[BoxData[
StyleBox[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]],
CellChangeTimes->{{3.847072090450409*^9, 3.847072097890996*^9}, {
3.847074047134727*^9, 3.847074085951888*^9}},ExpressionUUID->
"892a772e-af24-49c3-b7de-59e02dde3a01"],
" , 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]],
FormatType->"TraditionalForm",
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"a04a5a75-2b4a-4546-a878-0a912c642e1e"],
StyleBox[" \[Congruent]",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "-", "r"}], ")"}]}], "-", " ", "\[Theta]"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " "}]]],
CellChangeTimes->{3.8470757908903217`*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"63538785-ea7b-4585-80bf-ad153b4a1ce3"],
" ,which we refer as the ",
StyleBox["insurance company\[CloseCurlyQuote]s underwriting constraint",
FontColor->RGBColor[1, 0, 0]],
". "
}], "Text",
CellChangeTimes->{{3.8470753285445232`*^9, 3.8470754816006403`*^9}, {
3.84707551344792*^9, 3.847075600419808*^9}, {3.847075642240295*^9,
3.847075642560309*^9}, {3.847075709902536*^9, 3.847075741478705*^9}, {
3.847075829625307*^9, 3.847075860858203*^9}, {3.847075906786566*^9,
3.847075962047545*^9}, {3.84707601280602*^9, 3.84707601584761*^9}, {
3.847076062578526*^9, 3.847076071761094*^9}, {3.847076122531255*^9,
3.8470762108435793`*^9}, {3.847076331846223*^9, 3.847076374670672*^9}, {
3.847076626768671*^9, 3.8470766611798487`*^9}, 3.847076716532598*^9,
3.847146990073325*^9, {3.847147034547307*^9,
3.847147036060796*^9}},ExpressionUUID->"df6c38c7-ff48-4ce2-bd2a-\
b6ef1d7ff38e"],
Cell[CellGroupData[{
Cell[BoxData["Profiti"], "Input",
CellChangeTimes->{{3.847076254439657*^9, 3.847076256796652*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"dfa83e74-1850-484b-a5d9-b553004246b3"],
Cell[BoxData[
RowBox[{
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8470762574365873`*^9, 3.8470765930685463`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"ba720b9d-5cbb-4868-bb25-53fb823f63bb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[18]:=",ExpressionUUID->"068cd315-e88b-4caf-9afe-2c37a2602364"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "r"}], ")"}]}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.847076597953541*^9},
CellLabel->"Out[18]=",ExpressionUUID->"ce8bb590-7049-4302-81ef-dbb2f7a761fd"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"Profiti", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.847074840222671*^9, 3.847074843665584*^9}, {
3.847075763854186*^9, 3.847075781197308*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"0d08a584-458c-487a-9aa6-adf9acfead12"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p", "\[Rule]",
RowBox[{"-",
FractionBox["cs", "\[Alpha]"]}]}], "}"}], ",",
RowBox[{"{",
StyleBox[
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+",
RowBox[{"2", " ", "k", " ", "r"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}],
FontColor->RGBColor[1, 0, 0]], "}"}]}], "}"}]], "Input",
CellChangeTimes->{3.847076673776531*^9},
CellLabel->"Out[19]=",ExpressionUUID->"584adff7-0b8b-4680-976c-46789d397192"],
Cell[TextData[{
"When the constraint is satisfied, the equilibrium premium rate for any \
given p becomes ",
Cell[BoxData[
FormBox[
RowBox[{"r", "=",
RowBox[{"1", "-",
FractionBox[
RowBox[{"\[Theta]", " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "p"}]}],
RowBox[{"2", "k"}]]}]}], TraditionalForm]],
FormatType->"TraditionalForm",
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"c3b60caa-a940-41ab-a1f7-58b3c17a8013"]
}], "Text",
CellChangeTimes->{{3.847076720758875*^9, 3.8470767380797777`*^9}, {
3.847076780835041*^9,
3.847076840613296*^9}},ExpressionUUID->"9d20ba0f-069d-4ed5-b51b-\
78b2ca463adc"],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"Profiti", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
CellChangeTimes->{{3.84707674504283*^9, 3.847076754540276*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"55b617cd-63e1-4f7b-b320-4e72b0009257"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"r", "\[Rule]",
StyleBox[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k"}], "-", "p", "+",
RowBox[{"p", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{"2", " ", "k"}]],
FontColor->RGBColor[1, 0, 0]]}], "}"}], "}"}]], "Input",
CellChangeTimes->{3.847076772354334*^9},
CellLabel->"Out[20]=",ExpressionUUID->"b8f3d753-e91f-4a6f-abec-5293e9b60604"],
Cell[CellGroupData[{
Cell[TextData[StyleBox["The SO\[CloseCurlyQuote]s Optimal Contract Under \
Insurance Model", "Section"]], "Subsubsection",
CellChangeTimes->{{3.8470768941909723`*^9,
3.847076937239661*^9}},ExpressionUUID->"706f93f2-b69e-4203-b2f1-\
5693e30b390f"],
Cell[BoxData[
StyleBox[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{{3.847093843483549*^9, 3.847093867718318*^9},
3.847093960785281*^9, 3.847095946263722*^9, 3.847103387114477*^9},
CellLabel->"In[1]:=",ExpressionUUID->"ed13891d-91c1-4f8b-add5-c4c03e51702b"],
Cell[BoxData[
RowBox[{"r", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k"}], "-", "p", "+",
RowBox[{"p", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{"2", " ", "k"}]],
FontColor->RGBColor[1, 0, 0]]}]], "Input",
CellChangeTimes->{{3.847315863915306*^9, 3.847315871529646*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"2e0e85e1-ba57-408b-af2b-ca147140e783"],
Cell[BoxData[
StyleBox[
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs", "+", "f"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs", "+", "f"}], ")"}]}]}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellLabel->"In[4]:=",ExpressionUUID->"0540a33a-601e-4372-8314-67141748de95"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.847333389700796*^9, 3.8473333913372173`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"4e3164f8-23e4-432a-aa59-6524b9a4a9d1"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+", "f", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "p", "+",
RowBox[{"p", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+", "f", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.847333391934566*^9},
CellLabel->"Out[5]=",ExpressionUUID->"e228ee0c-d18e-4374-8e63-d2031f9efc13"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+", "f", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "p", "+",
RowBox[{"p", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+", "f", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[6]:=",ExpressionUUID->"51eb0668-a7ff-46f5-ad6a-c571867d6f8b"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "+",
RowBox[{"f", " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"p", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"2", " ", "k"}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.847333693924368*^9},
CellLabel->"Out[6]=",ExpressionUUID->"1cfc7c9b-fc31-49fc-8414-c93dd3663125"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.847333402710328*^9, 3.8473334138429747`*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"93e5e3bf-d7f1-4596-a84b-ed80eadb1b87"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"f", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "p", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.8473334146727123`*^9},
CellLabel->"Out[7]=",ExpressionUUID->"183d6582-de72-4e14-a440-25815f513de1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"f", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "p", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[8]:=",ExpressionUUID->"2b26d71b-4d60-4b8e-8571-0880b8ee4e27"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.84733341852036*^9},
CellLabel->"Out[8]=",ExpressionUUID->"6b5132ba-1bc4-4479-8be4-92f96deee39d"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.847333422072893*^9, 3.847333428974415*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"409779a0-43cd-4cae-b1c2-8a57f499a34e"],
Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{"{",
StyleBox[
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
FontColor->RGBColor[1, 0, 0]], "}"}], "}"}], "\[IndentingNewLine]",
"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{
3.8473334598761473`*^9, {3.8473353268252497`*^9,
3.8473353276242743`*^9}},ExpressionUUID->"6dab324f-f0fc-40ef-b7ad-\
2ba8bf7516fa"],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{"v", "-",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "cs"}], ")"}], " ",
"-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]], "Input",
CellLabel->"In[3]:=",ExpressionUUID->"dfcd760f-e45d-47f0-8136-521e06595ffa"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.8473159008407927`*^9, 3.847315902363488*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"fd7d04c4-3db5-4827-9dc8-2aa739778d45"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "p", "+",
RowBox[{"p", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8473159029666367`*^9},
CellLabel->"Out[4]=",ExpressionUUID->"947d94f9-7402-436c-9bde-cba05b41fc7a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "p", "+",
RowBox[{"p", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[5]:=",ExpressionUUID->"b22c0fbf-bd5d-4558-9595-7887e7d2468d"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ", "cs", " ", "k"}], "-",
RowBox[{"2", " ", "k", " ", "v"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.8473159056038322`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"16fdfc69-54dc-4185-a319-2a2371905937"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.8473160505988483`*^9, 3.847316068509276*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"4c351107-c204-4dbd-960f-656ee241c8ac"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ", "p", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.847316070046681*^9},
CellLabel->"Out[6]=",ExpressionUUID->"304e1aa5-755c-4dba-94b9-eb07fe47d6d8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.8473160737042713`*^9, 3.847316085084104*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"a3541540-25cd-4a8e-8644-8c5cb12ab3cb"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.847316086411811*^9},
CellLabel->"Out[7]=",ExpressionUUID->"3877d4f5-0bf6-4330-842e-61662d0a1b9a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.847103393122921*^9, 3.847103399020447*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"ba015b43-54a5-4d0f-a28f-8156e75e06db"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{{3.847103400074251*^9, 3.847103428912465*^9},
3.847149341825121*^9},
CellLabel->"Out[4]=",ExpressionUUID->"744ba428-58c0-419f-9ffb-46b8016e3f1e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[5]:=",ExpressionUUID->"ddbc7172-18d3-49fd-8fd8-e5c885d0436d"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "v"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", " ", "k", " ", "r"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
")"}]}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.8471493456151733`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"33dfa484-d337-4818-9845-741c201de423"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[45]:=",ExpressionUUID->"e7b5481e-e699-4cc8-b7f9-54166060c781"],
Cell[CellGroupData[{
Cell[BoxData[{
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "v"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", " ", "k", " ", "r"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
")"}]}]}],
RowBox[{"2", " ", "k"}]], "\[IndentingNewLine]",
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]}], "Input",
CellChangeTimes->{{3.8471493888198757`*^9, 3.847149394552474*^9}, {
3.8471494267544937`*^9, 3.847149426908002*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"f0d8b0ef-83c2-4bce-a9d2-c8cace4491e0"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "v"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", " ", "k", " ", "r"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
")"}]}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.8471493951740503`*^9, 3.847149427971352*^9},
CellLabel->"Out[8]=",ExpressionUUID->"aba04e4f-1901-4a6e-bdfd-d3868c9b997f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{"2", " ", "k"}]], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]}], "Input",
CellChangeTimes->{{3.847149432023081*^9, 3.8471494428146544`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"67a8b44b-f53e-476b-9920-f64883a6c6ed"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.847149443711831*^9},
CellLabel->"Out[10]=",ExpressionUUID->"d0ea7134-5db2-4b6c-b583-63cc8e7b4c5a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"cs", "-",
RowBox[{"cs", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.847149443720381*^9},
CellLabel->"Out[11]=",ExpressionUUID->"f972186f-6e12-4743-97ba-901e89450607"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
StyleBox[
RowBox[{"e", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["\[Equal]",
FontColor->RGBColor[1, 0, 0]], "0"}],
StyleBox[",",
FontColor->RGBColor[1, 0, 0]],
StyleBox["p",
FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
CellChangeTimes->{{3.847103504238941*^9, 3.847103543276004*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"c7c7c8cc-dfaa-4f9b-a125-6351e686a6f5"],
Cell[BoxData[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "}"}],
"}"}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"p", "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "\[Equal]", "0"}], ",",
"e"}], "]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.847105509728528*^9, 3.847105580039579*^9}, {
3.847105799325019*^9, 3.847105841828084*^9}, {3.8471058861770353`*^9,
3.847105900918997*^9}, {3.847105948163906*^9, 3.847105949276263*^9}, {
3.847106417412867*^9,
3.8471064486842613`*^9}},ExpressionUUID->"1eded644-6ad6-458d-8260-\
8c9516e8da48"],
Cell[CellGroupData[{
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.847106446793284*^9,
3.847106446796204*^9}},ExpressionUUID->"7066e856-68e1-479c-81dc-\
8e8990adafc4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.847106442709633*^9},
CellLabel->"Out[15]=",ExpressionUUID->"3f847281-03af-4866-a109-4ef5f62052cf"],
Cell[BoxData[
RowBox[{"P", "<", "v"}]], "Output",
CellChangeTimes->{3.847106442715756*^9},
CellLabel->"Out[16]=",ExpressionUUID->"c573ac54-82e4-4bf1-8069-75e1bb7642bc"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"cs", "+", "cv", "+",
RowBox[{"k", "*", "e", "*", "e"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "\[Equal]", "0"}], ",",
"e"}], "]"}]], "Input",
CellChangeTimes->{{3.8471059715025673`*^9, 3.847105998467668*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"9ff7d656-a76a-4ed6-9ee9-71355b6c08da"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"e", "\[Rule]",
StyleBox[
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "-",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"2", " ", "k"}]],
FontColor->RGBColor[1, 0, 0]]}],
StyleBox["}",
FontColor->RGBColor[1, 0, 0]]}], ",",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"2", " ", "k"}]]}], "}"}]}], "}"}]], "Input",
CellChangeTimes->{3.847314583055575*^9},
CellLabel->"Out[12]=",ExpressionUUID->"e2d19a9b-89a1-4a2b-87c1-afa168ba33d1"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.847106044619875*^9,
3.847106086356336*^9}},ExpressionUUID->"ff0f2ff3-0866-4d98-b5eb-\
481bb689ff53"],
Cell[TextData[{
"Proof of Proposition 1. We prove the results by using e as the decision \
variable (instead of p). In preparation, let us transform the constraints in \
terms of e (instead of p). \n\nFirst, by considering insurer acceptance \
constraint ",
Cell[BoxData[
StyleBox[
RowBox[{"p", ">",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+",
RowBox[{"2", " ", "k", " ", "r"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.847076673776531*^9},ExpressionUUID->
"b2633f83-cce1-4d33-ad01-8d11181871e9"],
"holds if and only if ",
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "e"}], " ", "-", " ", "\[Theta]"}],
RowBox[{"1", "-", "\[Alpha]"}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"06af102c-128d-4ced-9d2f-bad4677da27d"],
" \[GreaterEqual] ",
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+",
RowBox[{"2", " ", "k", " ", "r"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]], "Input",
CellChangeTimes->{3.847076673776531*^9},ExpressionUUID->
"f578adc4-4d3e-42c9-b71b-87dbdf197639"],
",\nor, equivalently, ",
StyleBox["e \[GreaterEqual] 1-r",
FontColor->RGBColor[1, 0, 0]],
"."
}], "Text",
CellChangeTimes->{{3.847106964579541*^9, 3.847107049541449*^9}, {
3.8471071100302896`*^9, 3.847107168699107*^9}, {3.847142970316187*^9,
3.8471429703164186`*^9}},ExpressionUUID->"72e9e011-97fd-48fc-8f55-\
07b42f72b920"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8471060821215067`*^9,
3.847106082419211*^9}},ExpressionUUID->"2c1624a5-4a21-4a2a-adca-\
de8275879afc"],
Cell[TextData[{
"Second, we can apply ",
Cell[BoxData[
StyleBox[
RowBox[{"e", "=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{{3.847093843483549*^9, 3.847093867718318*^9},
3.847093960785281*^9, 3.847095946263722*^9, 3.847103387114477*^9},
ExpressionUUID->"c67aaf48-c18e-41a7-b771-389f539bd6e8"],
" to express p in terms of e so that ",
StyleBox["p =",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"2", "k", " ", "e"}], " ", "-", "\[Theta]"}]}],
RowBox[{"1", "-", "\[Alpha]"}]], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"40200ee8-7c00-4210-a5ee-b752d6075eaf"],
". By using this expression of p, it is easy to check that the boundary \
constraint p \[LessEqual] v holds if and only if ",
StyleBox["e \[Element] ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
RowBox[{"[",
UnderscriptBox["e", "_"]}], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"55eed8e3-121a-4cd1-877a-7064a8d86361"],
StyleBox[", ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
OverscriptBox["e", "-"], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"28bb8e4d-7403-4d3b-812e-163ac1208f2e"],
StyleBox["\:0304]",
FontColor->RGBColor[1, 0, 0]],
", where ",
Cell[BoxData[
FormBox[
UnderscriptBox["e", "_"], TraditionalForm]],ExpressionUUID->
"c6b236a3-f76d-4ffe-9004-2b6863053d45"],
" =",
Cell[BoxData[
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "-",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.847106014227799*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"e20c3e37-dc8b-4430-b5a5-7d4964687770"],
StyleBox[", \n",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
OverscriptBox["e", "-"], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"f8155df1-a402-4065-8afe-ace93123b2c9"],
StyleBox[" = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.847106014227799*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"62d5a41f-0560-4038-9989-a341f7cd118e"],
"\nBy substituting ",
StyleBox["p =",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"2", "ke"}], " ", "-", "\[Theta]"}]}],
RowBox[{"1", "-", "\[Alpha]"}]], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"162b4241-7e37-4609-b40b-65dc2ed93848"],
" into the satellite owner\[CloseCurlyQuote]s payoff (9) along with the \
transformed constraints in terms of e, the satellite owner\[CloseCurlyQuote]s \
profit can be written as:\n",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"max", " ",
SubscriptBox["\[CapitalPi]", "S"]}], "="}], TraditionalForm]],
ExpressionUUID->"8102c0a6-445f-406d-9d40-8c8afe9a8dc4"],
" v-(\[Alpha] p+e(1-\[Alpha])p+cs) -r(\[Alpha] p+cs)+(1-e)(\[Alpha] p+cs) = ",
StyleBox["v-(e+r)cs +",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\[Theta]", " ", "-", " ",
RowBox[{"2", "k", " ", "e"}]}], " ", ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "r"}], " ", "+", " ", "e"}], " ", ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"2325e164-defd-43a2-9a31-0838fdcbd97b"]
}], "Text",
CellChangeTimes->{{3.8471037871588707`*^9, 3.847103791632761*^9}, {
3.8471038219974833`*^9, 3.847103827134252*^9}, {3.847103858247069*^9,
3.847103883047966*^9}, {3.8471054033229437`*^9, 3.8471054749112577`*^9}, {
3.847106193323133*^9, 3.8471062827007113`*^9}, {3.847107216092814*^9,
3.8471072233940372`*^9}, {3.847107256202464*^9, 3.847107290232917*^9}, {
3.8471073607452517`*^9, 3.847107372486711*^9}, {3.8471074690034*^9,
3.847107653597186*^9}, {3.84710768699986*^9, 3.847107689249161*^9},
3.847107744180401*^9, {3.8471083123792562`*^9, 3.84710839217581*^9},
3.847140798913829*^9, {3.8471411306941977`*^9, 3.8471411525234613`*^9}, {
3.847142996700457*^9, 3.847142996701085*^9}, 3.8471482191771708`*^9, {
3.847264483632078*^9,
3.8472644879552307`*^9}},ExpressionUUID->"8eaa5472-7f35-4a5e-a58a-\
309c38629570"],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{"v", "-",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "cs"}], ")"}], " ",
"-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]], "Input",
CellChangeTimes->{{3.847107702786523*^9, 3.847107711142744*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"95632243-8672-419c-8852-afe6ea2be148"],
Cell[BoxData[
RowBox[{"p", " ", ":=",
FormBox[
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"2", "k", " ", "e"}], " ", "-", "\[Theta]"}]}],
RowBox[{"1", "-", "\[Alpha]"}]],
TraditionalForm]}]], "Input",
CellChangeTimes->{{3.847107724747797*^9, 3.847107728888546*^9},
3.847140729090605*^9},
CellLabel->"In[4]:=",ExpressionUUID->"50fdc178-364b-432a-8726-33ea5d0f578e"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.847107731730957*^9, 3.847107733917008*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"dd71c187-6900-4c21-8c6f-9d778c6d53be"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}]], "Output",
CellChangeTimes->{3.8471077348329277`*^9, 3.847140737669306*^9},
CellLabel->"Out[5]=",ExpressionUUID->"828db34c-0dbf-4b19-a988-a7bb9c5a27a8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[6]:=",ExpressionUUID->"d21c10e1-c3fa-49db-99c3-2e37638d190f"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox["e", "2"], " ", "k"}], "+", "v", "+",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"e", "+", "r"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"v", " ", "\[Alpha]"}], "+",
RowBox[{"r", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "r", " ", "\[Alpha]"}], "+",
"\[Theta]"}], ")"}]}]}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]], "Output",
CellChangeTimes->{3.847140745598075*^9},
CellLabel->"Out[6]=",ExpressionUUID->"8bb44bea-fc96-45dd-8042-a8f1e1676bc9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"D", "[",
RowBox[{"%", ",", "e"}], "]"}]}]], "Input",
CellChangeTimes->{{3.847108756118194*^9, 3.8471087632566643`*^9},
3.8471407593116283`*^9},
CellLabel->"In[7]:=",ExpressionUUID->"149fa544-0da5-4d89-b6ca-faa636ed8e55"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "e", " ", "k"}], "+",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]], "Output",
CellChangeTimes->{3.847108763664856*^9, 3.8471407626218843`*^9},
CellLabel->"Out[7]=",ExpressionUUID->"3a8baaf3-cbe4-49be-8b42-a26e5942ad45"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "e", " ", "k"}], "+",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[8]:=",ExpressionUUID->"dd72ae13-e0c7-4388-b29b-e22c25b9e7dc"],
Cell[BoxData[
FractionBox[
RowBox[{"cs", "+",
RowBox[{"4", " ", "e", " ", "k"}], "-",
RowBox[{"cs", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]], "Output",
CellChangeTimes->{3.847140765519474*^9},
CellLabel->"Out[8]=",ExpressionUUID->"e3765de3-b884-4458-8a2a-f79b22c030c8"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"cs", "+",
RowBox[{"4", " ", "e", " ", "k"}], "-",
RowBox[{"cs", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]], "\[Equal]", "0"}], ",", "e"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.847140657648736*^9, 3.847140712234851*^9}, {
3.847140771448615*^9, 3.847140778466567*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"628adfbf-f9b8-44bd-a235-a586e7328efe"],
Cell[BoxData[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"4", " ", "k"}]]}], "}"}], "}"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"4", " ", "k"}]], "-",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"2", " ", "k"}]]}], "\[Equal]", "0"}], ",", "r"}], "]"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.84714232242343*^9, 3.847142349857419*^9}, {
3.847142389026972*^9, 3.847142389620902*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"f117505f-b94c-4b7f-a131-328a1b8526ed"],
Cell[BoxData[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"4", " ", "k"}]]}], "}"}], "}"}], "\[IndentingNewLine]",
RowBox[{"e", ":=",
FractionBox[
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"4", " ", "k"}]]}], "\[IndentingNewLine]",
RowBox[{"p", " ", ":=",
FormBox[
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"2", "k", " ", "e"}], " ", "-", "\[Theta]"}]}],
RowBox[{"1", "-", "\[Alpha]"}]],
TraditionalForm]}]}], "Input",
CellChangeTimes->{{3.847142559612813*^9, 3.847142570748419*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"264adc28-d6cf-4a73-b4c1-34e996987200"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8471428038128138`*^9,
3.847142803817766*^9}},ExpressionUUID->"8ed8d714-3e33-4582-bc25-\
d1dd42753668"],
Cell[CellGroupData[{
Cell[BoxData["p"], "Input",
CellChangeTimes->{3.847142579618987*^9},
CellLabel->"In[18]:=",ExpressionUUID->"7714bcb3-cc13-4e7b-b66b-1e80866fffbd"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "\[Theta]"}], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
")"}]}]}],
RowBox[{"1", "-", "\[Alpha]"}]]], "Output",
CellChangeTimes->{3.847142580292429*^9},
CellLabel->"Out[18]=",ExpressionUUID->"4dc9a7d1-f675-473c-a3bd-4cb73f6ad74c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-", "\[Theta]"}], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
")"}]}]}],
RowBox[{"1", "-", "\[Alpha]"}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[19]:=",ExpressionUUID->"1d779cf9-4e6b-427f-934c-18c1b9066942"],
Cell[BoxData[
FractionBox[
RowBox[{"cs", "-",
RowBox[{"cs", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8471425835132236`*^9},
CellLabel->"Out[19]=",ExpressionUUID->"b5058653-9df3-4240-983c-4d873a3be723"]
}, Open ]],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "-",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ", "k", "*", "k"}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "*",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"\[Theta]", "*", "\[Theta]"}]}]]}],
RowBox[{"2", " ", "k"}]]}]], "Input",
CellChangeTimes->{{3.847137197670977*^9, 3.847137205398831*^9}, {
3.847137304782349*^9, 3.8471373083810368`*^9}, {3.847137342224532*^9,
3.8471373563990726`*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"cc9d013c-4273-45e7-8352-668ee8ba8bc3"],
Cell[BoxData[
RowBox[{"cs", ":=",
StyleBox[
RowBox[{"v", "+",
FractionBox[
RowBox[{"\[Theta]", "*", "\[Theta]"}],
RowBox[{"4", " ", "k"}]], "-", "cv", "-", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]]}]], "Input",
CellChangeTimes->{{3.8471372196970167`*^9, 3.84713728062157*^9}, {
3.8471373965364437`*^9, 3.847137399343329*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"af150f17-bc4e-4e19-828a-c40e238f7728"],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.8471372531540823`*^9},
CellLabel->"In[9]:=",ExpressionUUID->"ab693bea-a996-404f-bd33-0b64cd6c55fb"],
Cell[BoxData[
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "-",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"], "-",
RowBox[{"4", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "cv"}], "+", "v", "-", "\[Theta]", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}], ")"}]}]}]]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.847137253769478*^9, 3.8471373218248997`*^9,
3.847137367181419*^9, 3.84713740723766*^9},
CellLabel->"Out[9]=",ExpressionUUID->"df996971-5bdf-44fb-9673-1340d2cdbdf8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "-",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"], "-",
RowBox[{"4", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "cv"}], "+", "v", "-", "\[Theta]", "+",
FractionBox[
SuperscriptBox["\[Theta]", "2"],
RowBox[{"4", " ", "k"}]]}], ")"}]}]}]]}],
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[10]:=",ExpressionUUID->"2775b162-9213-4689-b92e-527abe99203c"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"1", "-", "\[Alpha]"}]], "+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SqrtBox[
FractionBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"k", "-",
RowBox[{"v", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]]}], "+",
"\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.8471374107010403`*^9},
CellLabel->"Out[10]=",ExpressionUUID->"4a085e60-2461-4a35-b78b-9b46854bf91b"]
}, Open ]],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{"v", "-",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "cs"}], ")"}], " ",
"-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]], "Input",
CellLabel->"In[1]:=",ExpressionUUID->"ed708d3a-c433-48a7-a00a-62c333b3fa38"],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]], "Input",
CellChangeTimes->{{3.847143116320472*^9, 3.847143119295302*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"45402fd1-bb31-4119-a642-c1e0d6c4cc3f"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.847143122037059*^9, 3.8471431299051857`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"654d59fb-2d01-4cb5-9ed8-f5bc8727dc79"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.847143130332157*^9},
CellLabel->"Out[3]=",ExpressionUUID->"d6979569-a40f-491c-97cb-d0a1e79311f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[4]:=",ExpressionUUID->"ae01d7f0-b4e9-4480-ae71-c23d403f3efa"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "v"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{"2", " ", "k", " ", "r"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
")"}]}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.847143132513406*^9},
CellLabel->"Out[4]=",ExpressionUUID->"3b567c49-b218-4754-b7b8-aa7ce69b84a2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.8471431548373117`*^9, 3.847143160668324*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"4672a3e4-9c7d-4f0d-9f92-1dea4b45b74b"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.8471431631153107`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"27bfdb05-1a89-4cd7-9087-47f18b7bfbec"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "-", "\[Theta]"}],
RowBox[{"2", " ", "k"}]], "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",\
CellChangeTimes->{{3.847143166856152*^9, 3.847143181625422*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"3aead148-2e6b-4cf1-ab6a-800c85a2c891"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"cs", "-",
RowBox[{"cs", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.847143182550706*^9},
CellLabel->"Out[6]=",ExpressionUUID->"cf1ba0b9-916c-402f-b125-71b7fdfd003e"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.847144854593851*^9,
3.847148337122362*^9},ExpressionUUID->"862ef9bf-b4c2-46e1-8950-\
c63c75c3436a"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+", "\[Theta]", "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
RowBox[{"p", " ", ":=",
FormBox[
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"2", "k", " ", "e"}], " ", "-", "\[Theta]"}]}],
RowBox[{"1", "-", "\[Alpha]"}]],
TraditionalForm]}]}], "Input",
CellChangeTimes->{{3.847149896909609*^9, 3.847149902779614*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"447d8d6a-b49a-4b30-9a28-f109625d2fee"],
Cell[CellGroupData[{
Cell[BoxData["p"], "Input",
CellChangeTimes->{3.847149917340424*^9},
CellLabel->"In[5]:=",ExpressionUUID->"ae36b0c5-51ab-4036-9a31-97248df6b0c8"],
Cell[BoxData[
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"1", "-", "\[Alpha]"}]]], "Output",
CellChangeTimes->{3.847149917949499*^9},
CellLabel->"Out[5]=",ExpressionUUID->"0bec30d1-b95f-4d1c-8242-1f46b5aa09f2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{"1", "-", "\[Alpha]"}]], "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"1", "-", "\[Alpha]"}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[6]:=",ExpressionUUID->"bc1357d0-64c1-4785-b2cf-8dcbddb1614c"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "k"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+",
SqrtBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cs", " ", "k"}], "-",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"]}]]}],
RowBox[{"1", "-", "\[Alpha]"}]]], "Output",
CellChangeTimes->{3.84714992190478*^9},
CellLabel->"Out[6]=",ExpressionUUID->"47db81aa-2c6b-4275-a068-d747d9965f2f"]
}, Open ]],
Cell[BoxData[
RowBox[{"p", " ", ":=",
FormBox[
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"2", "k", " ", "e"}], " ", "-", "\[Theta]"}]}],
RowBox[{"1", "-", "\[Alpha]"}]],
TraditionalForm]}]], "Input",
CellLabel->"In[1]:=",ExpressionUUID->"a77645d1-de77-46b8-b6d9-9597e52c6278"],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{"v", "-",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "cs"}], ")"}], " ",
"-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]], "Input",
CellLabel->"In[2]:=",ExpressionUUID->"70da1100-bd9c-4eb9-9e86-c753a6df9293"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.847265575253981*^9, 3.84726557714573*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"8a0ed001-1c92-4d0d-9849-ed7b042bf731"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}]], "Output",
CellChangeTimes->{3.847265578620768*^9},
CellLabel->"Out[3]=",ExpressionUUID->"61bcdd1b-106f-403d-874f-bb3b7e26127b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+", "v", "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "e", " ", "k"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"1", "-", "\[Alpha]"}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[4]:=",ExpressionUUID->"0c6dbb47-88cd-4ade-8e36-4bcb66946060"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox["e", "2"], " ", "k"}], "+", "v", "+",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"e", "+", "r"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"v", " ", "\[Alpha]"}], "+",
RowBox[{"r", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "r", " ", "\[Alpha]"}], "+",
"\[Theta]"}], ")"}]}]}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]], "Output",
CellChangeTimes->{3.847265581533689*^9},
CellLabel->"Out[4]=",ExpressionUUID->"9553e1d2-09f3-4fd5-a5e3-c71519f4fac8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.8472656046466*^9, 3.847265609332079*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"e259b09f-f4b4-4654-92e0-c487b61f3400"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "e", " ", "k"}], "+",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]], "Output",
CellChangeTimes->{3.8472656099779053`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"6641199d-a34b-498a-9216-21ef75ec20f4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.847265750994315*^9, 3.847265759777911*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"6f067cac-375e-4ff6-81d2-801d005f7363"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{"cs", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "r", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"4", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.847265760618647*^9},
CellLabel->"Out[6]=",ExpressionUUID->"3c5ab323-1a5c-4783-ac54-15e4b1770b1b"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.84731983649686*^9,
3.847319837058893*^9}},ExpressionUUID->"8419bbe0-7e17-417c-affe-\
e9cb269f5458"],
Cell["\:82e5\:8003\:8651\:536b\:661f\:63d0\:524d\:7b7e\:8ba2\:4e86\:6570\:636e\
\:552e\:5356\:5408\:540c\:ff0c\:6536\:76ca\:4e3aF", "Text",
CellChangeTimes->{{3.847319877583129*^9,
3.847319905653475*^9}},ExpressionUUID->"a5020cc0-6923-424a-9529-\
9618441a658c"],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], " ", "+",
RowBox[{"e", " ", "[",
RowBox[{"F", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], "]"}], "-", "cs", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], " ", "+", "cs", "+", "F"}], " ",
")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], " ", "+", "cs", "+", "F"}], " ",
")"}]}]}]}]], "Input",
CellChangeTimes->{{3.847319910423168*^9, 3.847319987950534*^9},
3.847320377202664*^9, {3.847322954723557*^9,
3.847322955135434*^9}},ExpressionUUID->"d169b5aa-267b-4501-a40f-\
b5b34971a747"],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "\[Theta]"}],
RowBox[{"2", "k"}]]}]], "Input",
CellChangeTimes->{{3.8473204986838503`*^9, 3.8473205223883543`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"8c48b587-3552-4ce2-8c91-fd44d9d59e87"],
Cell[BoxData[
RowBox[{"r", ":=",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "p"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]}]], "Input",
CellChangeTimes->{{3.847320526792676*^9, 3.847320554555819*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"a0b9d978-b579-4512-8b64-d076daec1769"],
Cell[BoxData["Profitc"], "Input",
CellChangeTimes->{{3.847320564695945*^9, 3.847320568449336*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"e49f5c85-d8c3-4ed9-9626-e6e7760afd33"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.847999574473694*^9, 3.847999575397587*^9},
3.847999642458005*^9},ExpressionUUID->"9dd9f3c7-732f-4e1a-84bd-\
bcb6bdcf446c"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"f", "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
StyleBox[
RowBox[{"p", ":=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}]}], "+",
RowBox[{"4", "k",
RowBox[{"(",
RowBox[{"cv", "+", "\[Theta]"}], ")"}]}]}],
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}]}]]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "p"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-",
"cv"}]}], "\[IndentingNewLine]", "Profitv"}], "Input",
CellChangeTimes->{{3.847999633764526*^9, 3.847999650507338*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"0e334415-f374-4728-939c-ab68cf69fd20"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"f", "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "k", " ",
RowBox[{"(",
RowBox[{"cv", "+", "\[Theta]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}], ")"}]}],
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "k", " ",
RowBox[{"(",
RowBox[{"cv", "+", "\[Theta]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}], ")"}]}],
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8479996533694267`*^9},
CellLabel->"Out[4]=",ExpressionUUID->"f60a9b7c-39e8-4908-a777-de77364df80a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cv"}], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"f", "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "k", " ",
RowBox[{"(",
RowBox[{"cv", "+", "\[Theta]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}], ")"}]}],
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "k", " ",
RowBox[{"(",
RowBox[{"cv", "+", "\[Theta]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}], ")"}]}],
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "+", "\[Theta]"}], ")"}]}]}], ")"}]}]]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[5]:=",ExpressionUUID->"4d1e06be-b0cc-4df9-8ac9-3de24f57247a"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["f", "2"], "+",
RowBox[{"4", " ", "cv", " ", "k"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "k"}], "-", "\[Theta]"}], ")"}], " ",
"\[Theta]"}]}], ")"}]}],
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}]]}]], "Output",
CellChangeTimes->{3.8479996610146847`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"e580cf72-44fe-479a-af44-7a93abd49b44"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{819, 803},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670813\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"58a27417-2138-42cb-ba1e-bb3e60bf22f6"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 348, 7, 94, "Chapter",ExpressionUUID->"a39687ae-fc3b-4bb9-bd7f-6a1cce55c6bd"],
Cell[931, 31, 401, 8, 81, "Text",ExpressionUUID->"4a074443-24c5-409e-83aa-d5efd512c40f"],
Cell[1335, 41, 458, 13, 30, "Input",ExpressionUUID->"b97db057-3326-4570-b145-bf5f3b37db78"],
Cell[1796, 56, 411, 11, 30, "Input",ExpressionUUID->"79cfa81a-e7be-48c4-a2d1-ac54021f07e2"],
Cell[2210, 69, 284, 5, 30, "Input",ExpressionUUID->"53785147-afaf-421b-9557-079ea54a50de"],
Cell[2497, 76, 209, 5, 44, "Input",ExpressionUUID->"e5ce236c-099f-4fa3-baeb-556f27ae00e1"],
Cell[2709, 83, 275, 7, 30, "Input",ExpressionUUID->"36a6f063-e7cb-456b-a8fa-26f7686dc301"],
Cell[CellGroupData[{
Cell[3009, 94, 258, 5, 44, "Input",ExpressionUUID->"9535aaaa-7402-46ed-a57c-598d9755fb32"],
Cell[3270, 101, 279, 7, 49, "Output",ExpressionUUID->"e7dd1525-589b-464a-84dc-f91157728724"]
}, Open ]],
Cell[3564, 111, 293, 7, 46, "Input",ExpressionUUID->"a6b4c8f3-f4b1-4542-b04d-0c61fa353d55"],
Cell[3860, 120, 178, 2, 30, "Input",ExpressionUUID->"3d692f04-76cd-4929-b634-5612de74c716"],
Cell[4041, 124, 472, 14, 30, "Input",ExpressionUUID->"a1c40ca2-1b2e-42b9-a8ad-ea757e0a057d"],
Cell[4516, 140, 456, 13, 63, "Input",ExpressionUUID->"6bfe07aa-d077-4fee-8be6-e182ce2d877c"],
Cell[4975, 155, 354, 9, 50, "Input",ExpressionUUID->"a0a114d9-6e19-44aa-8b58-739f998a2b1b"],
Cell[CellGroupData[{
Cell[5354, 168, 2878, 71, 217, "Section",ExpressionUUID->"fe88380d-793a-4f5f-b64c-83e0a6b818d6"],
Cell[CellGroupData[{
Cell[8257, 243, 930, 23, 88, "Subsection",ExpressionUUID->"6a672dce-496a-4be8-9aaa-aeac76186792"],
Cell[9190, 268, 122, 3, 20, "Outline5",ExpressionUUID->"faa6d505-3217-48b9-8ae3-0b4087d78c0a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[9361, 277, 254, 4, 67, "Section",ExpressionUUID->"d1c34096-ed56-4bf5-8295-cf32091bad59"],
Cell[9618, 283, 1564, 43, 52, "Input",ExpressionUUID->"8a5e1f21-e832-4717-962f-486d55afa183"],
Cell[11185, 328, 487, 14, 30, "Input",ExpressionUUID->"8cbb3264-6d58-415e-92c3-60128108ea58"],
Cell[CellGroupData[{
Cell[11697, 346, 388, 9, 65, "Input",ExpressionUUID->"d31efafa-2322-4f06-9ec0-e5237b333828"],
Cell[12088, 357, 342, 8, 34, "Output",ExpressionUUID->"044ffb70-ef1f-4f88-9328-646880c8f795"]
}, Open ]],
Cell[CellGroupData[{
Cell[12467, 370, 368, 7, 65, "Input",ExpressionUUID->"de76a8b0-490e-424c-b61a-95614f7fe848"],
Cell[12838, 379, 373, 9, 49, "Output",ExpressionUUID->"67d1a863-98af-414a-861a-eb34be153095"]
}, Open ]],
Cell[13226, 391, 353, 7, 58, "Text",ExpressionUUID->"451b9fe5-3c3d-4613-908c-73909ca7437c"],
Cell[13582, 400, 679, 18, 72, "Input",ExpressionUUID->"c1c41658-3282-4887-9481-14e609cd0c24"],
Cell[CellGroupData[{
Cell[14286, 422, 148, 2, 30, "Input",ExpressionUUID->"25cb81c3-86cf-4008-824c-618161218f24"],
Cell[14437, 426, 291, 7, 49, "Output",ExpressionUUID->"260ac273-416b-444b-a3de-a810a1416a8a"]
}, Open ]],
Cell[CellGroupData[{
Cell[14765, 438, 178, 2, 30, "Input",ExpressionUUID->"8be2c682-3e94-4521-ab90-197cf842636c"],
Cell[14946, 442, 525, 15, 51, "Output",ExpressionUUID->"db458e3f-3cc9-48d2-bc7d-8bae9c67660b"]
}, Open ]],
Cell[CellGroupData[{
Cell[15508, 462, 550, 16, 61, "Input",ExpressionUUID->"cf5a4bec-fb6e-4eb0-a1a2-1252486ce01f"],
Cell[16061, 480, 550, 16, 51, "Output",ExpressionUUID->"ba5276aa-c895-415e-a3e2-47271b67f117"]
}, Open ]],
Cell[CellGroupData[{
Cell[16648, 501, 221, 4, 44, "Input",ExpressionUUID->"6543476a-4e42-4bfc-a9f1-07581f0ccaf9"],
Cell[16872, 507, 782, 24, 51, "Output",ExpressionUUID->"92dae79e-61cb-4485-8b70-00b47c02decf"]
}, Open ]],
Cell[17669, 534, 257, 5, 44, "Input",ExpressionUUID->"55edf4ba-a82b-4d55-94a0-8ebbc3d8113a"],
Cell[17929, 541, 681, 19, 52, InheritFromParent,ExpressionUUID->"fa7a84f4-163d-4a38-81e7-8a1525d77575"],
Cell[18613, 562, 151, 3, 30, "Input",ExpressionUUID->"d95483e2-77aa-49c6-b85a-99d4c84674e9"],
Cell[CellGroupData[{
Cell[18789, 569, 227, 3, 30, "Input",ExpressionUUID->"434a0535-7d04-4d53-b2de-8417db3361f4"],
Cell[19019, 574, 890, 26, 53, "Output",ExpressionUUID->"b7776507-15f1-4b45-8d7c-33844b26640e"]
}, Open ]],
Cell[CellGroupData[{
Cell[19946, 605, 906, 27, 63, "Input",ExpressionUUID->"840dcf7e-69db-43fc-9142-46360f97dd28"],
Cell[20855, 634, 775, 23, 53, "Output",ExpressionUUID->"6ae48cb6-a000-4427-8300-d7724c871c89"]
}, Open ]],
Cell[21645, 660, 906, 27, 63, "Input",ExpressionUUID->"d773155c-a29b-47d0-9c22-dbcca16e2801"],
Cell[22554, 689, 260, 6, 35, "Text",ExpressionUUID->"50bc3183-f931-4469-a255-541f34284653"],
Cell[22817, 697, 839, 25, 50, "Input",ExpressionUUID->"203e64c2-90ab-4789-97d1-516b527fe727"],
Cell[CellGroupData[{
Cell[23681, 726, 306, 6, 44, "Input",ExpressionUUID->"f5e832c2-d924-4517-ad74-e1c0f8b68538"],
Cell[23990, 734, 1870, 48, 104, "Output",ExpressionUUID->"d65b8b64-cd53-4e89-a162-2a26260045a2"]
}, Open ]],
Cell[25875, 785, 1179, 32, 82, "Text",ExpressionUUID->"7b31a7f5-7396-487c-a8c1-0ef980574010"],
Cell[CellGroupData[{
Cell[27079, 821, 681, 19, 65, "Input",ExpressionUUID->"13b830df-b732-4df8-9ecc-2b792bc2a1fc"],
Cell[27763, 842, 511, 14, 54, "Output",ExpressionUUID->"8fbe1c3a-7feb-4a3b-8935-b5d96f12b240"]
}, Open ]],
Cell[28289, 859, 917, 23, 56, "Input",ExpressionUUID->"f4d7dc08-b6ac-4a78-a186-6c4093672237"],
Cell[CellGroupData[{
Cell[29231, 886, 1196, 31, 69, "Input",ExpressionUUID->"d1a517d1-0bad-45c2-aeda-646729bf54ce"],
Cell[30430, 919, 811, 23, 59, "Output",ExpressionUUID->"2ccf8f90-6e4e-477d-926d-cca2f48471b4"]
}, Open ]],
Cell[31256, 945, 848, 27, 30, "Input",ExpressionUUID->"f71c8be6-7a63-4858-b653-06d891d01d27"],
Cell[32107, 974, 296, 8, 46, "Input",ExpressionUUID->"57593b88-81c6-46e4-b4f9-c03a1ec8ea14"],
Cell[CellGroupData[{
Cell[32428, 986, 221, 3, 30, "Input",ExpressionUUID->"3d95f9fb-810f-4df0-ac56-28b3fa5dd635"],
Cell[32652, 991, 595, 16, 53, "Output",ExpressionUUID->"baa3b0c0-9ec6-480b-a390-cdcfd7a12106"]
}, Open ]],
Cell[CellGroupData[{
Cell[33284, 1012, 600, 17, 63, "Input",ExpressionUUID->"89b5094a-178e-4af4-bee0-48b3228e2f43"],
Cell[33887, 1031, 560, 15, 53, "Output",ExpressionUUID->"f893fb4a-214c-4263-95fc-f0dc0fa053b3"]
}, Open ]],
Cell[CellGroupData[{
Cell[34484, 1051, 333, 7, 44, "Input",ExpressionUUID->"2fd082ab-2f0d-4dc9-bf82-98ba63309865"],
Cell[34820, 1060, 2196, 63, 153, "Output",ExpressionUUID->"e12a2ad8-c5aa-4408-ba25-77f15a53b394"]
}, Open ]],
Cell[37031, 1126, 231, 5, 26, "Input",ExpressionUUID->"51545df1-71d0-4c26-ab57-d1f4faa259d1"],
Cell[37265, 1133, 152, 3, 30, "Input",ExpressionUUID->"aca45777-0963-49b6-8d34-30b03810bbab"],
Cell[37420, 1138, 237, 4, 51, "Text",ExpressionUUID->"7f21e962-4957-4667-8436-535cdc0b692c"],
Cell[37660, 1144, 2681, 63, 185, "Text",ExpressionUUID->"df6c38c7-ff48-4ce2-bd2a-b6ef1d7ff38e"],
Cell[CellGroupData[{
Cell[40366, 1211, 178, 2, 30, "Input",ExpressionUUID->"dfa83e74-1850-484b-a5d9-b553004246b3"],
Cell[40547, 1215, 588, 17, 49, "Output",ExpressionUUID->"ba720b9d-5cbb-4868-bb25-53fb823f63bb"]
}, Open ]],
Cell[CellGroupData[{
Cell[41172, 1237, 589, 18, 59, "Input",ExpressionUUID->"068cd315-e88b-4caf-9afe-2c37a2602364"],
Cell[41764, 1257, 522, 15, 51, "Output",ExpressionUUID->"ce8bb590-7049-4302-81ef-dbb2f7a761fd"]
}, Open ]],
Cell[42301, 1275, 312, 6, 44, "Input",ExpressionUUID->"0d08a584-458c-487a-9aa6-adf9acfead12"],
Cell[42616, 1283, 630, 19, 49, "Input",ExpressionUUID->"584adff7-0b8b-4680-976c-46789d397192"],
Cell[43249, 1304, 704, 20, 41, "Text",ExpressionUUID->"9d20ba0f-069d-4ed5-b51b-78b2ca463adc"],
Cell[43956, 1326, 262, 5, 44, "Input",ExpressionUUID->"55b617cd-63e1-4f7b-b320-4e72b0009257"],
Cell[44221, 1333, 441, 12, 48, "Input",ExpressionUUID->"b8f3d753-e91f-4a6f-abec-5293e9b60604"],
Cell[CellGroupData[{
Cell[44687, 1349, 250, 4, 56, "Subsubsection",ExpressionUUID->"706f93f2-b69e-4203-b2f1-5693e30b390f"],
Cell[44940, 1355, 431, 10, 46, "Input",ExpressionUUID->"ed13891d-91c1-4f8b-add5-c4c03e51702b"],
Cell[45374, 1367, 398, 10, 48, "Input",ExpressionUUID->"2e0e85e1-ba57-408b-af2b-ca147140e783"],
Cell[45775, 1379, 750, 24, 30, "Input",ExpressionUUID->"0540a33a-601e-4372-8314-67141748de95"],
Cell[CellGroupData[{
Cell[46550, 1407, 179, 2, 30, "Input",ExpressionUUID->"4e3164f8-23e4-432a-aa59-6524b9a4a9d1"],
Cell[46732, 1411, 1161, 36, 51, "Output",ExpressionUUID->"e228ee0c-d18e-4374-8e63-d2031f9efc13"]
}, Open ]],
Cell[47908, 1450, 1207, 37, 101, "Input",ExpressionUUID->"51eb0668-a7ff-46f5-ad6a-c571867d6f8b"],
Cell[49118, 1489, 802, 23, 52, "Input",ExpressionUUID->"1cfc7c9b-fc31-49fc-8414-c93dd3663125"],
Cell[CellGroupData[{
Cell[49945, 1516, 223, 4, 44, "Input",ExpressionUUID->"93e5e3bf-d7f1-4596-a84b-ed80eadb1b87"],
Cell[50171, 1522, 557, 15, 53, "Output",ExpressionUUID->"183d6582-de72-4e14-a440-25815f513de1"]
}, Open ]],
Cell[CellGroupData[{
Cell[50765, 1542, 580, 16, 63, "Input",ExpressionUUID->"2b26d71b-4d60-4b8e-8571-0880b8ee4e27"],
Cell[51348, 1560, 607, 17, 53, "Output",ExpressionUUID->"6b5132ba-1bc4-4479-8be4-92f96deee39d"]
}, Open ]],
Cell[51970, 1580, 256, 5, 44, "Input",ExpressionUUID->"409779a0-43cd-4cae-b1c2-8a57f499a34e"],
Cell[52229, 1587, 887, 23, 223, "Input",ExpressionUUID->"6dab324f-f0fc-40ef-b7ad-2ba8bf7516fa"],
Cell[53119, 1612, 628, 20, 30, "Input",ExpressionUUID->"dfcd760f-e45d-47f0-8136-521e06595ffa"],
Cell[CellGroupData[{
Cell[53772, 1636, 179, 2, 30, "Input",ExpressionUUID->"fd7d04c4-3db5-4827-9dc8-2aa739778d45"],
Cell[53954, 1640, 1079, 33, 51, "Output",ExpressionUUID->"947d94f9-7402-436c-9bde-cba05b41fc7a"]
}, Open ]],
Cell[CellGroupData[{
Cell[55070, 1678, 1120, 34, 101, "Input",ExpressionUUID->"b22c0fbf-bd5d-4558-9595-7887e7d2468d"],
Cell[56193, 1714, 674, 19, 53, "Output",ExpressionUUID->"16fdfc69-54dc-4185-a319-2a2371905937"]
}, Open ]],
Cell[CellGroupData[{
Cell[56904, 1738, 223, 4, 44, "Input",ExpressionUUID->"4c351107-c204-4dbd-960f-656ee241c8ac"],
Cell[57130, 1744, 490, 13, 53, "Output",ExpressionUUID->"304e1aa5-755c-4dba-94b9-eb07fe47d6d8"]
}, Open ]],
Cell[CellGroupData[{
Cell[57657, 1762, 258, 5, 44, "Input",ExpressionUUID->"a3541540-25cd-4a8e-8644-8c5cb12ab3cb"],
Cell[57918, 1769, 550, 17, 55, "Output",ExpressionUUID->"3877d4f5-0bf6-4330-842e-61662d0a1b9a"]
}, Open ]],
Cell[CellGroupData[{
Cell[58505, 1791, 177, 2, 30, "Input",ExpressionUUID->"ba015b43-54a5-4d0f-a28f-8156e75e06db"],
Cell[58685, 1795, 939, 28, 50, "Output",ExpressionUUID->"744ba428-58c0-419f-9ffb-46b8016e3f1e"]
}, Open ]],
Cell[CellGroupData[{
Cell[59661, 1828, 926, 28, 60, "Input",ExpressionUUID->"ddbc7172-18d3-49fd-8fd8-e5c885d0436d"],
Cell[60590, 1858, 716, 21, 53, "Output",ExpressionUUID->"33dfa484-d337-4818-9845-741c201de423"]
}, Open ]],
Cell[61321, 1882, 927, 28, 60, "Input",ExpressionUUID->"e7b5481e-e699-4cc8-b7f9-54166060c781"],
Cell[CellGroupData[{
Cell[62273, 1914, 870, 24, 86, "Input",ExpressionUUID->"f0d8b0ef-83c2-4bce-a9d2-c8cace4491e0"],
Cell[63146, 1940, 738, 21, 53, "Output",ExpressionUUID->"aba04e4f-1901-4a6e-bdfd-d3868c9b997f"]
}, Open ]],
Cell[CellGroupData[{
Cell[63921, 1966, 650, 17, 84, "Input",ExpressionUUID->"67a8b44b-f53e-476b-9920-f64883a6c6ed"],
Cell[64574, 1985, 510, 14, 51, "Output",ExpressionUUID->"d0ea7134-5db2-4b6c-b583-63cc8e7b4c5a"],
Cell[65087, 2001, 505, 14, 53, "Output",ExpressionUUID->"f972186f-6e12-4743-97ba-901e89450607"]
}, Open ]],
Cell[65607, 2018, 612, 18, 59, "Input",ExpressionUUID->"c7c7c8cc-dfaa-4f9b-a125-6351e686a6f5"],
Cell[66222, 2038, 943, 27, 128, "Input",ExpressionUUID->"1eded644-6ad6-458d-8260-8c9516e8da48"],
Cell[CellGroupData[{
Cell[67190, 2069, 152, 3, 30, "Input",ExpressionUUID->"7066e856-68e1-479c-81dc-8e8990adafc4"],
Cell[67345, 2074, 350, 9, 49, "Output",ExpressionUUID->"3f847281-03af-4866-a109-4ef5f62052cf"],
Cell[67698, 2085, 171, 3, 34, "Output",ExpressionUUID->"c573ac54-82e4-4bf1-8069-75e1bb7642bc"]
}, Open ]],
Cell[67884, 2091, 616, 17, 62, "Input",ExpressionUUID->"9ff7d656-a76a-4ed6-9ee9-71355b6c08da"],
Cell[68503, 2110, 1726, 50, 132, "Input",ExpressionUUID->"e2d19a9b-89a1-4a2b-87c1-afa168ba33d1"],
Cell[70232, 2162, 152, 3, 30, "Input",ExpressionUUID->"ff0f2ff3-0866-4d98-b5eb-481bb689ff53"],
Cell[70387, 2167, 1650, 46, 133, "Text",ExpressionUUID->"72e9e011-97fd-48fc-8f55-07b42f72b920"],
Cell[72040, 2215, 154, 3, 30, "Input",ExpressionUUID->"2c1624a5-4a21-4a2a-adca-de8275879afc"],
Cell[72197, 2220, 5564, 155, 243, "Text",ExpressionUUID->"8eaa5472-7f35-4a5e-a58a-309c38629570"],
Cell[77764, 2377, 694, 21, 30, "Input",ExpressionUUID->"95632243-8672-419c-8852-afe6ea2be148"],
Cell[78461, 2400, 401, 11, 49, "Input",ExpressionUUID->"50fdc178-364b-432a-8726-33ea5d0f578e"],
Cell[CellGroupData[{
Cell[78887, 2415, 177, 2, 30, "Input",ExpressionUUID->"dd71c187-6900-4c21-8c6f-9d778c6d53be"],
Cell[79067, 2419, 1133, 34, 52, "Output",ExpressionUUID->"828db34c-0dbf-4b19-a988-a7bb9c5a27a8"]
}, Open ]],
Cell[CellGroupData[{
Cell[80237, 2458, 1153, 35, 62, "Input",ExpressionUUID->"d21c10e1-c3fa-49db-99c3-2e37638d190f"],
Cell[81393, 2495, 809, 24, 54, "Output",ExpressionUUID->"8bb44bea-fc96-45dd-8042-a8f1e1676bc9"]
}, Open ]],
Cell[CellGroupData[{
Cell[82239, 2524, 288, 6, 65, "Input",ExpressionUUID->"149fa544-0da5-4d89-b6ca-faa636ed8e55"],
Cell[82530, 2532, 529, 14, 52, "Output",ExpressionUUID->"3a8baaf3-cbe4-49be-8b42-a26e5942ad45"]
}, Open ]],
Cell[CellGroupData[{
Cell[83096, 2551, 529, 15, 62, "Input",ExpressionUUID->"dd72ae13-e0c7-4388-b29b-e22c25b9e7dc"],
Cell[83628, 2568, 395, 9, 52, "Output",ExpressionUUID->"e3765de3-b884-4458-8a2a-f79b22c030c8"]
}, Open ]],
Cell[84038, 2580, 629, 16, 83, "Input",ExpressionUUID->"628adfbf-f9b8-44bd-a235-a586e7328efe"],
Cell[84670, 2598, 1659, 44, 214, "Input",ExpressionUUID->"f117505f-b94c-4b7f-a131-328a1b8526ed"],
Cell[86332, 2644, 948, 26, 129, "Input",ExpressionUUID->"264adc28-d6cf-4a73-b4c1-34e996987200"],
Cell[87283, 2672, 154, 3, 30, "Input",ExpressionUUID->"8ed8d714-3e33-4582-bc25-d1dd42753668"],
Cell[CellGroupData[{
Cell[87462, 2679, 148, 2, 30, "Input",ExpressionUUID->"7714bcb3-cc13-4e7b-b66b-1e80866fffbd"],
Cell[87613, 2683, 491, 14, 58, "Output",ExpressionUUID->"4dc9a7d1-f675-473c-a3bd-4cb73f6ad74c"]
}, Open ]],
Cell[CellGroupData[{
Cell[88141, 2702, 515, 15, 68, "Input",ExpressionUUID->"1d779cf9-4e6b-427f-934c-18c1b9066942"],
Cell[88659, 2719, 405, 10, 53, "Output",ExpressionUUID->"b5058653-9df3-4240-983c-4d873a3be723"]
}, Open ]],
Cell[89079, 2732, 941, 25, 63, "Input",ExpressionUUID->"cc9d013c-4273-45e7-8352-668ee8ba8bc3"],
Cell[90023, 2759, 434, 10, 46, "Input",ExpressionUUID->"af150f17-bc4e-4e19-828a-c40e238f7728"],
Cell[CellGroupData[{
Cell[90482, 2773, 149, 2, 30, "Input",ExpressionUUID->"ab693bea-a996-404f-bd33-0b64cd6c55fb"],
Cell[90634, 2777, 994, 28, 67, "Output",ExpressionUUID->"df996971-5bdf-44fb-9673-1340d2cdbdf8"]
}, Open ]],
Cell[CellGroupData[{
Cell[91665, 2810, 962, 28, 80, "Input",ExpressionUUID->"2775b162-9213-4689-b92e-527abe99203c"],
Cell[92630, 2840, 768, 25, 77, "Output",ExpressionUUID->"4a085e60-2461-4a35-b78b-9b46854bf91b"]
}, Open ]],
Cell[93413, 2868, 628, 20, 30, "Input",ExpressionUUID->"ed708d3a-c433-48a7-a00a-62c333b3fa38"],
Cell[94044, 2890, 312, 7, 46, "Input",ExpressionUUID->"45402fd1-bb31-4119-a642-c1e0d6c4cc3f"],
Cell[CellGroupData[{
Cell[94381, 2901, 179, 2, 30, "Input",ExpressionUUID->"654d59fb-2d01-4cb5-9ed8-f5bc8727dc79"],
Cell[94563, 2905, 889, 27, 50, "Output",ExpressionUUID->"d6979569-a40f-491c-97cb-d0a1e79311f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[95489, 2937, 926, 28, 60, "Input",ExpressionUUID->"ae01d7f0-b4e9-4480-ae71-c23d403f3efa"],
Cell[96418, 2967, 714, 21, 53, "Output",ExpressionUUID->"3b567c49-b218-4754-b7b8-aa7ce69b84a2"]
}, Open ]],
Cell[CellGroupData[{
Cell[97169, 2993, 223, 4, 44, "Input",ExpressionUUID->"4672a3e4-9c7d-4f0d-9f92-1dea4b45b74b"],
Cell[97395, 2999, 511, 14, 51, "Output",ExpressionUUID->"27bfdb05-1a89-4cd7-9087-47f18b7bfbec"]
}, Open ]],
Cell[CellGroupData[{
Cell[97943, 3018, 655, 18, 61, "Input",ExpressionUUID->"3aead148-2e6b-4cf1-ab6a-800c85a2c891"],
Cell[98601, 3038, 504, 14, 53, "Output",ExpressionUUID->"cf1ba0b9-916c-402f-b125-71b7fdfd003e"]
}, Open ]],
Cell[99120, 3055, 150, 3, 30, "Input",ExpressionUUID->"862ef9bf-b4c2-46e1-8950-c63c75c3436a"],
Cell[99273, 3060, 1022, 30, 111, "Input",ExpressionUUID->"447d8d6a-b49a-4b30-9a28-f109625d2fee"],
Cell[CellGroupData[{
Cell[100320, 3094, 147, 2, 30, "Input",ExpressionUUID->"ae36b0c5-51ab-4036-9a31-97248df6b0c8"],
Cell[100470, 3098, 713, 21, 68, "Output",ExpressionUUID->"0bec30d1-b95f-4d1c-8242-1f46b5aa09f2"]
}, Open ]],
Cell[CellGroupData[{
Cell[101220, 3124, 744, 22, 81, "Input",ExpressionUUID->"bc1357d0-64c1-4785-b2cf-8dcbddb1614c"],
Cell[101967, 3148, 781, 24, 68, "Output",ExpressionUUID->"47db81aa-2c6b-4275-a068-d747d9965f2f"]
}, Open ]],
Cell[102763, 3175, 309, 9, 49, "Input",ExpressionUUID->"a77645d1-de77-46b8-b6d9-9597e52c6278"],
Cell[103075, 3186, 628, 20, 30, "Input",ExpressionUUID->"70da1100-bd9c-4eb9-9e86-c753a6df9293"],
Cell[CellGroupData[{
Cell[103728, 3210, 176, 2, 30, "Input",ExpressionUUID->"8a0ed001-1c92-4d0d-9849-ed7b042bf731"],
Cell[103907, 3214, 1109, 34, 52, "Output",ExpressionUUID->"61bcdd1b-106f-403d-874f-bb3b7e26127b"]
}, Open ]],
Cell[CellGroupData[{
Cell[105053, 3253, 1153, 35, 62, "Input",ExpressionUUID->"0c6dbb47-88cd-4ade-8e36-4bcb66946060"],
Cell[106209, 3290, 809, 24, 54, "Output",ExpressionUUID->"9553e1d2-09f3-4fd5-a5e3-c71519f4fac8"]
}, Open ]],
Cell[CellGroupData[{
Cell[107055, 3319, 219, 4, 44, "Input",ExpressionUUID->"e259b09f-f4b4-4654-92e0-c487b61f3400"],
Cell[107277, 3325, 507, 14, 52, "Output",ExpressionUUID->"6641199d-a34b-498a-9216-21ef75ec20f4"]
}, Open ]],
Cell[CellGroupData[{
Cell[107821, 3344, 256, 5, 44, "Input",ExpressionUUID->"6f067cac-375e-4ff6-81d2-801d005f7363"],
Cell[108080, 3351, 437, 11, 51, "Output",ExpressionUUID->"3c5ab323-1a5c-4783-ac54-15e4b1770b1b"]
}, Open ]],
Cell[108532, 3365, 303, 6, 157, "Input",ExpressionUUID->"8419bbe0-7e17-417c-affe-e9cb269f5458"],
Cell[108838, 3373, 265, 4, 35, "Text",ExpressionUUID->"a5020cc0-6923-424a-9529-9618441a658c"],
Cell[109106, 3379, 824, 26, 30, "Input",ExpressionUUID->"d169b5aa-267b-4501-a40f-b5b34971a747"],
Cell[109933, 3407, 349, 9, 47, "Input",ExpressionUUID->"8c48b587-3552-4ce2-8c91-fd44d9d59e87"],
Cell[110285, 3418, 385, 10, 47, "Input",ExpressionUUID->"a0b9d978-b579-4512-8b64-d076daec1769"],
Cell[110673, 3430, 178, 2, 30, "Input",ExpressionUUID->"e49f5c85-d8c3-4ed9-9626-e6e7760afd33"],
Cell[110854, 3434, 229, 4, 73, "Input",ExpressionUUID->"9dd9f3c7-732f-4e1a-84bd-bcb6bdcf446c"],
Cell[CellGroupData[{
Cell[111108, 3442, 1291, 39, 134, "Input",ExpressionUUID->"0e334415-f374-4728-939c-ab68cf69fd20"],
Cell[112402, 3483, 1867, 59, 97, "Output",ExpressionUUID->"f60a9b7c-39e8-4908-a777-de77364df80a"]
}, Open ]],
Cell[CellGroupData[{
Cell[114306, 3547, 1937, 61, 110, "Input",ExpressionUUID->"4d1e06be-b0cc-4df9-8ac9-3de24f57247a"],
Cell[116246, 3610, 846, 27, 56, "Output",ExpressionUUID->"e580cf72-44fe-479a-af44-7a93abd49b44"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)