JingYiHan
/
satellite_mathematica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
satellite_mathematica/VM_provide insurance(only C...

4214 lines
150 KiB
Mathematica
Raw Permalink Normal View History

no government
2022-06-13 21:08:33 +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[ 153433, 4205]
NotebookOptionsPosition[ 145428, 4068]
NotebookOutlinePosition[ 145836, 4085]
CellTagsIndexPosition[ 145793, 4082]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["VM provide Insurance Model\nin this version, if the \
launch is failed, the VM will compensate the prepay price and a part of the \
satellite", "Subtitle"]], "Chapter",
CellChangeTimes->{{3.846994013564211*^9, 3.8469940156856823`*^9}, {
3.846994857600985*^9, 3.846994859748948*^9}, {3.846994896420465*^9,
3.8469949852663383`*^9}, {3.848290085053608*^9, 3.848290093282737*^9}, {
3.859522497675735*^9, 3.8595225305314913`*^9}, {3.85952315316416*^9,
3.8595231614996567`*^9}, {3.8597602402897778`*^9, 3.8597602937101*^9},
3.85979665335849*^9},ExpressionUUID->"fc99b250-0ba5-48f1-817f-\
d7d7be76a4ec"],
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", " ", "+",
RowBox[{"rv", " ", "cs"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ", "\[Beta]", " ",
"cs"}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"rv", " ", "cs"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]", " ", "cs",
" "}]}]}]}], "Input",
CellChangeTimes->{{3.859523183391809*^9, 3.8595232702712507`*^9},
3.859523301231385*^9, {3.859523359773033*^9, 3.8595233880562153`*^9}, {
3.8597602120399733`*^9, 3.8597602277068853`*^9}, {3.859760302474897*^9,
3.859760309836288*^9}, {3.859796521214561*^9, 3.8597965532627974`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"0ebda099-248a-4ee0-a753-b8aa0b898904"],
Cell[BoxData[Cell["The VM\[CloseCurlyQuote]s Effort Under Insurance Model",
"Section",
CellChangeTimes->{{3.8470724126182137`*^9, 3.847072424750353*^9}, {
3.8470751753004932`*^9, 3.8470751937801857`*^9}},ExpressionUUID->
"b78997ea-f449-441e-b87a-1e1d5ef0cf5c"]], "Input",
CellChangeTimes->{{3.859796622410101*^9,
3.85979663381136*^9}},ExpressionUUID->"3f1d72a3-cb13-4e4f-a679-\
c5cc9fa49da4"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.859796657087399*^9, 3.859796666400095*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"4c2f89f9-2a65-4eca-b739-120d5bceefd2"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}]], "Output",
CellChangeTimes->{3.859796668528393*^9},
CellLabel->"Out[5]=",ExpressionUUID->"70418c16-5abe-41f2-af9f-f2027cdeae95"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.8597966739604263`*^9, 3.859796680619852*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"89c4d3bd-6544-451f-9262-6473f3c299d2"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.859796681429503*^9},
CellLabel->"Out[6]=",ExpressionUUID->"1b3dd1fb-36d4-44df-b1e1-8b90e2c09777"]
}, 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.859523510932461*^9},ExpressionUUID->"0796e200-d3d5-4427-ad0e-\
a38b84aa5094"],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]], "Input",
CellChangeTimes->{{3.8595235217349167`*^9, 3.859523523126156*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"c4a9c144-031c-4999-af1e-7d24c16bc829"],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.859796727510536*^9, 3.859796766295093*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"4802d7f8-00b7-494e-96cd-b260a56eaddc"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"cs", " ", "rv"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{{3.8597967328391027`*^9, 3.8597967676178083`*^9},
3.8597968371433897`*^9},
CellLabel->"Out[15]=",ExpressionUUID->"9b339e93-c567-4f8e-b508-b5c5c31ced3a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"cs", " ", "rv"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[16]:=",ExpressionUUID->"b857e098-86c5-43e8-ab7c-f965a5d3fa91"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"4", " ", "k"}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+",
RowBox[{"4", " ", "cs", " ", "k", " ", "rv"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ", "k", " ", "p", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "cs", " ", "k", " ", "\[Beta]"}], "+",
RowBox[{
SuperscriptBox["cs", "2"], " ",
SuperscriptBox["\[Beta]", "2"]}], "-",
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"], "-",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.859796839505548*^9},
CellLabel->"Out[16]=",ExpressionUUID->"5acab5b5-b7e3-482f-9f7a-727c6327f109"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.859796778500732*^9, 3.8597967858279657`*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"7f7096b6-f0f7-4137-a090-0f7b7d82e486"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"p", "\[Rule]",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.859796787066036*^9, 3.859796845758847*^9},
CellLabel->"Out[17]=",ExpressionUUID->"311306a5-99e1-4cd0-9d43-e5ba81e5c533"]
}, 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[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "k", " ", "rv", " ",
"Cs"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "k\[Beta]Cs"}]}]]}], " ",
"-",
RowBox[{"2", "k", " ", "\[Alpha]"}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
RowBox[{"\[Beta]", " ", "Cs"}]}], ")"}]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], TraditionalForm]],
"Subsection",ExpressionUUID->"db85f412-ded7-4a1e-95fe-4d6648e14ae8"]
}], "Text",
CellChangeTimes->{{3.847074732349956*^9, 3.8470751175043583`*^9}, {
3.8595297618573933`*^9, 3.85952992161112*^9}, {3.859969041039275*^9,
3.8599690417177563`*^9}},ExpressionUUID->"bf0d6258-f365-442a-ad63-\
d4c260bee41b"],
Cell[CellGroupData[{
Cell["The SO\[CloseCurlyQuote]s Price", "Section",
CellChangeTimes->{{3.8470724126182137`*^9, 3.847072424750353*^9}, {
3.8470751753004932`*^9, 3.8470751937801857`*^9}, {3.859523930111232*^9,
3.859523940459605*^9}},ExpressionUUID->"7593db6a-c03f-43b7-9460-\
11ba51e31088"],
Cell[BoxData[{
RowBox[{
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"rv", " ", "cs"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]", " ", "cs"}]}]}],
" "}], "\[IndentingNewLine]",
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]}], "Input",
CellChangeTimes->{{3.859796944836114*^9, 3.859796945471277*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"5dabae4e-e6c1-4e8b-aab7-8552f6b63bff"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.859796949316442*^9, 3.859796951767305*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"d033b628-9cc2-4531-8551-b8b6423dd2d3"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"cs", " ", "rv"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.859796952439353*^9},
CellLabel->"Out[20]=",ExpressionUUID->"ee177933-ca83-419b-93bb-504cbf49842f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"cs", " ", "rv"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[21]:=",ExpressionUUID->"0180d167-727d-4b7f-a900-0d6f01f7e724"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"cs", " ", "rv"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"f", "+",
RowBox[{"p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.859796974254971*^9},
CellLabel->"Out[21]=",ExpressionUUID->"f666d857-ed39-44c6-8eff-ecb55f9af9e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.859797047086543*^9, 3.859797055697833*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"db754ce6-77fd-47f5-b151-d01585b29638"],
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[{"cs", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.859797056391963*^9},
CellLabel->"Out[22]=",ExpressionUUID->"95abfbd6-8d43-453e-8cb2-88002bb85427"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.859797060137726*^9, 3.859797066903133*^9},
3.8597971202189074`*^9},
CellLabel->"In[23]:=",ExpressionUUID->"c4894a5f-0ecd-467f-9d3c-4a9257115a5b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.859797068369794*^9},
CellLabel->"Out[23]=",ExpressionUUID->"6e506ad2-a50d-4343-b8cc-c17fd5f2bf36"]
}, Open ]],
Cell[TextData[{
"for the satellite owner, her unconstrained optimal contract (p,\[Alpha]) \
can be written as ",
Cell[BoxData[
StyleBox[
RowBox[{"p", "=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2", "\[Beta]", " ", "Cs"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}],
FontColor->RGBColor[1, 0, 0]]],
CellChangeTimes->{3.847335457059067*^9},ExpressionUUID->
"a7afaabb-9114-4d69-91f0-1402884d39d2"],
"\ns.t. p \[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[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "k", " ", "rv", " ",
"Cs"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "k\[Beta]Cs"}]}]]}], " ",
"-",
RowBox[{"2", "k", " ", "\[Alpha]"}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
RowBox[{"\[Beta]", " ", "Cs"}]}], ")"}]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], TraditionalForm]],
"Subsection",ExpressionUUID->"6658ada7-6c0a-4247-bf6c-25b0c311943b"],
"( the level of price that vehicle manufacture will accept)"
}], "Text",
CellChangeTimes->{{3.847336159830171*^9, 3.84733640202722*^9}, {
3.859530201612129*^9, 3.859530251500495*^9}, {3.859797145227207*^9,
3.859797147237903*^9}, {3.8599690518098707`*^9,
3.859969052647489*^9}},ExpressionUUID->"ab0ce393-4ec7-4a58-8d88-\
dce68ed2c67b"],
Cell[BoxData[
RowBox[{"\[CapitalDelta]p", ":=",
RowBox[{
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]}]], "Input",
CellChangeTimes->{{3.8597976907176657`*^9, 3.85979772110006*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"a41b2ada-468a-43c1-b0b2-c81b11bf6a7d"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]p"], "Input",
CellChangeTimes->{{3.859797725920314*^9, 3.859797729010977*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"8c959f1e-b386-4efa-aa6f-494a0b7adc49"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.859797729762748*^9},
CellLabel->"Out[25]=",ExpressionUUID->"2cb2a701-5927-40d2-8b1a-aae69a12042a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[26]:=",ExpressionUUID->"83b99ad7-45dd-46d4-9879-5a57738fd221"],
Cell[BoxData[
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"4", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.859797738581349*^9},
CellLabel->"Out[26]=",ExpressionUUID->"7e4b7781-6779-4f09-b576-be9a671feff0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "f"}], "]"}]], "Input",
CellChangeTimes->{{3.859797787991025*^9, 3.859797794667536*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"1a93301e-8cc9-4744-aee4-d8b4178ebb25"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"f", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"k", " ", "\[Alpha]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "-",
FractionBox["\[Theta]",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.859797795486858*^9},
CellLabel->"Out[27]=",ExpressionUUID->"277e5119-9821-4f7b-a4ea-7eae974aa4c5"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"k", " ", "\[Alpha]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "-",
FractionBox["\[Theta]",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]],
"]"}]], "Input",
CellChangeTimes->{{3.859797877885207*^9, 3.859797894524969*^9}},
CellLabel->"In[28]:=",ExpressionUUID->"a4266d79-09ed-4ed0-812b-4b433b16d94a"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"4", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]], "Output",
CellChangeTimes->{3.859797895690583*^9},
CellLabel->"Out[28]=",ExpressionUUID->"630f43f9-de94-441f-945d-d62470eb47c2"]
}, Open ]],
Cell[CellGroupData[{
Cell["The profit", "Subsubsection",
CellChangeTimes->{{3.847924418570229*^9,
3.84792444014956*^9}},ExpressionUUID->"82642af5-0f49-4bcc-b073-\
3f868e88a6f9"],
Cell[TextData[{
"1. If the ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["p", "S"], ">",
SuperscriptBox["p", "VA"]}], TraditionalForm]],ExpressionUUID->
"39dfe9e5-39c6-48e7-ba0e-449624d68d65"],
", which satisfied with ",
Cell[BoxData[
StyleBox[
RowBox[{"F", "\[GreaterEqual]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"4", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"\[Theta]",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}],
StyleBox["-",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]]}]}]}]]}]}], ")"}],
RowBox[{"1", "-", "\[Alpha]"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Output",
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
"7009873a-c49f-42c0-b3cb-5a5fccf3f1e5"],
" (the dark region) then the effort is ",
Cell[BoxData[
RowBox[{
StyleBox["e",
FontColor->RGBColor[1, 0, 0]],
StyleBox["=",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox[
FractionBox["1", "4"],
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox["(",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox[
FractionBox[
RowBox[{"f", "+", "\[Theta]"}], "k"],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}],
RowBox[{"1", "-", "\[Alpha]"}]],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
FractionBox["\[Theta]", "k"],
FontColor->RGBColor[0, 0, 1]]}],
StyleBox[")",
FontColor->RGBColor[1, 0, 0]]}]}]}]],
CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
3.847924648199932*^9, 3.847924685117815*^9}},ExpressionUUID->
"0165f127-6011-44fa-9cf7-14b0dd48a4b5"],
", the contract [p,\[Alpha]] satellite owner offered is ",
Cell[BoxData[
RowBox[{"p", "=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"f", "-", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]",
StyleBox[
RowBox[{"-", "2"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["cs",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["\[Beta]",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"(",
RowBox[{"1", "-", " ", "\[Alpha]"}], " ", ")"}],
FontColor->RGBColor[0, 0, 1]]}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}]],
CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
3.847924648199932*^9, 3.847924685117815*^9}},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"b2bd5135-f3db-4898-ade6-4b6cd53b22b3"],
". The profit of vehicle manufacture is ",
Cell[BoxData[
StyleBox[
RowBox[{"\[IndentingNewLine]",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"16", " ", "cs", " ", "k", " ", "rv"}], "+",
RowBox[{
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"32", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"16", " ", "cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Beta]"}], "+",
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}],
"-",
RowBox[{"16", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"20", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"], "-",
RowBox[{"2", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.847924712498953*^9},ExpressionUUID->
"ff569ce6-dc81-4935-a028-2a42c3a1ccfb"],
"\nwhich can be written as ",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox[
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], " ", "+", " ",
RowBox[{"4",
RowBox[{"k", " ", "[", " ",
RowBox[{
RowBox[{"F", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Alpha]"}], "-", " ",
RowBox[{"3",
SuperscriptBox["\[Alpha]", "2"], "k"}], " ", "-", " ",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{"4", "-", "\[Alpha]"}], ")"}]}]}], " ", "]"}]}], "-",
StyleBox[
RowBox[{"16",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "k", " ", "\[Beta]", " ",
"Cs"}],
FontColor->RGBColor[0, 0, 1]]}],
RowBox[{"16", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Cv",
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"rv", " ", "Cs"}],
FontColor->RGBColor[0, 0, 1]]}], TraditionalForm]],ExpressionUUID->
"05f06482-586e-4656-9ea5-08ec9a4f4a70"],
"\nThe profit of satellite owner is \n",
Cell[BoxData[
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"8", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"8", " ", "cs", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+", "\[Beta]"}], ")"}]}], "+",
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.859798220947733*^9},ExpressionUUID->
"b7fd412d-057d-4543-9c61-da26945115a3"],
"\nwich can be written as ",
Cell[BoxData[
FormBox[
RowBox[{
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4",
RowBox[{"k\[Alpha]", " ", "[",
RowBox[{"\[Alpha]k", " ", "+",
RowBox[{
RowBox[{"(",
RowBox[{"\[Theta]", " ", "-", "F"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], " ", "]"}],
StyleBox[
RowBox[{"+", "8"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["k",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["\[Beta]",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["Cs",
FontColor->RGBColor[0, 0, 1]]}]}],
RowBox[{"8", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
StyleBox["rv",
FontColor->RGBColor[0, 0, 1]]}], ")"}], "Cs"}]}], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"33a567e5-1b65-465a-8033-76c614e5840f"],
"\n\nthe whole chain payoff is ",
Cell[BoxData[
FormBox[
StyleBox[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"3",
SuperscriptBox[
RowBox[{"(",
RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], " ", "-", " ",
RowBox[{"4",
SuperscriptBox["\[Alpha]", "2"],
SuperscriptBox["k", "2"]}], "+", " ",
RowBox[{"4", "k", " ",
RowBox[{"(",
RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "F"}], "-",
RowBox[{"4", "\[Theta]"}], " ", "+", " ",
RowBox[{"3", "\[Alpha]\[Theta]"}]}], " ", ")"}], " "}]}],
RowBox[{"16", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-", "Cv", "-",
"Cs"}],
FontColor->RGBColor[1, 0, 0]], TraditionalForm]],ExpressionUUID->
"e2a8f6d9-a9aa-4e67-831b-52c4b8a44c80"],
", the same.\nCompared with the insurance model, the whole supply chain \
efficiency doesn\[CloseCurlyQuote]t change, but for SO it is fitable for the \
SO to choose the insurance from the vm."
}], "Text",
CellChangeTimes->{
3.859797952600697*^9, {3.859797992824482*^9, 3.8597979928258247`*^9}, {
3.85979841051749*^9, 3.8597984549188232`*^9}, {3.859798487569722*^9,
3.859798510359433*^9}, {3.859802119501501*^9, 3.859802135277437*^9}, {
3.859802169069734*^9, 3.8598022947769117`*^9}, {3.859832383564674*^9,
3.859832445762204*^9}, {3.859833261791877*^9, 3.859833285496353*^9}, {
3.859835964958392*^9, 3.8598359891418858`*^9}, {3.85983608192282*^9,
3.85983612978391*^9}, {3.8598374981040277`*^9, 3.859837498925662*^9}, {
3.859837613026691*^9, 3.859837690333281*^9}, {3.859838534314684*^9,
3.859838586275271*^9},
3.8598602496747437`*^9},ExpressionUUID->"6ce32179-d96f-4155-a196-\
60abbccbb97b"],
Cell[TextData[{
"2.If the ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["p", "S"], "<",
SuperscriptBox["p", "VA"]}], TraditionalForm]],ExpressionUUID->
"6e5246c1-7032-480e-ba9f-47dd55ca2463"],
", which satisfied with ",
StyleBox["F<",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"4", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"\[Theta]",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}],
StyleBox["-",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]]}]}]}]]}]}], ")"}],
RowBox[{"1", "-", "\[Alpha]"}]],
FontColor->RGBColor[1, 0, 0]]], "Output",
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
"e492a36b-57ad-4729-90b5-f2b59e071b82"],
"=",
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"4", " ",
StyleBox["E",
FontColor->RGBColor[0, 1, 0]]}]}],
RowBox[{"1", "-", "\[Alpha]"}]],
FontColor->RGBColor[1, 0, 0]]],
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
"b97280ef-6b90-4684-a0ef-9860594e2cbc"],
"\n\nthe effort is ",
Cell[BoxData[
RowBox[{"e", "=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "k"}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], " ", "+",
StyleBox[
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"\[Beta]", "-",
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["+",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"\[Theta]",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]]}], ")"}]}]]}],
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}]], "Output",
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{3.847935384424481*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"46b03da0-fbdf-4839-b869-ff9a80c9cf67"],
"=",
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "k"}], " ", "\[Alpha]"}], "+",
StyleBox["E",
FontColor->RGBColor[0, 1, 0]]}],
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]],
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{3.847935384424481*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"db99204e-0226-483a-be8f-88d6746119fd"],
"\n\n the price is ",
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]"}], ")"}],
StyleBox[
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "k", " ", "rv",
" ", "Cs"}],
FontColor->RGBColor[0, 0, 1]]}],
StyleBox["+",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "k\[Beta]Cs"}],
FontColor->RGBColor[0, 0, 1]]}]]}], " ", "-",
RowBox[{"2", "k", " ", "\[Alpha]"}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{"\[Theta]",
StyleBox[
RowBox[{"+", "\[Beta]"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["Cs",
FontColor->RGBColor[0, 0, 1]]}], ")"}]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], TraditionalForm]],
"Subsection",ExpressionUUID->"b9eabd12-8d2a-4e77-a9f6-006ab4ce81ba"],
"=",
Cell[BoxData[
FormBox[
StyleBox[
FractionBox[
RowBox[{
RowBox[{"2",
StyleBox["E",
FontColor->RGBColor[0, 1, 0]]}], "-",
RowBox[{"2", "k", " ", "\[Alpha]"}], " ", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"\[Beta]", " ", "Cs"}],
FontColor->RGBColor[0, 0, 1]]}],
StyleBox[")",
FontColor->RGBColor[0, 0, 1]]}]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], "Text",
FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "Section",
ExpressionUUID->"b5664b67-5b47-407b-b195-68f1100f1cfe"],
"\n The profit of satellite owner is ",
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "cv", " ", "k"}], "+",
RowBox[{"cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"4", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"f", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"f", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"2", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"f", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
RowBox[{"f", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
RowBox[{"\[Theta]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
RowBox[{"\[Alpha]", " ", "\[Theta]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}], ")"}]}]}],
"\[IndentingNewLine]",
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ", "k"}], "-",
RowBox[{"2", " ", "cv", " ", "k"}], "+",
RowBox[{"cs", " ", "k", " ", "rv"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "cv", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"f", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"f", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"f", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
RowBox[{"f", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
RowBox[{"\[Theta]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
RowBox[{"\[Alpha]", " ", "\[Theta]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}]}]}],
FontColor->RGBColor[1, 0, 0]]}], ")"}]], "Output",
GeneratedCell->False,
CellAutoOverwrite->False,
CellChangeTimes->{3.847936282163821*^9},ExpressionUUID->
"27cfef7d-f491-41cc-bb32-d6f05b6f1207"],
"\n which can be written as \n ",
StyleBox[" ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[{
FormBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"F", "+", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", "\[Alpha]k"}]}], "]"}], "*",
SqrtBox[
RowBox[{
RowBox[{"k", "[",
RowBox[{
SuperscriptBox[
RowBox[{"Cv", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "+",
SuperscriptBox["k\[Alpha]", "2"], "+",
RowBox[{"\[Theta]", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "]"}],
StyleBox["-",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "k", " ", "rv", " ",
"Cs"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["+",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "kCs"}],
FontColor->RGBColor[0, 0, 1]]}]]}], "-", " ",
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "F"}], "+",
RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], " ", "-", " ",
RowBox[{"2", " ",
SuperscriptBox["k", "2"],
SuperscriptBox["\[Alpha]", "2"]}], " ", "-",
RowBox[{"(",
StyleBox[
RowBox[{
RowBox[{
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "k", " ",
"Cs"}],
FontColor->RGBColor[0, 0, 1]]}]}],
SuperscriptBox[
RowBox[{"k", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]],
TraditionalForm], "\[IndentingNewLine]",
FormBox[
RowBox[{"-", " ",
RowBox[{"(",
RowBox[{"Cs", "+",
RowBox[{"2", "Cv"}]}], ")"}]}], TraditionalForm]}],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"04655209-e0a8-4466-8cce-248ed29c0416"],
"\n \:4ee4 E=",
Cell[BoxData[
FormBox[
SqrtBox[
RowBox[{
RowBox[{"k", "[",
RowBox[{
SuperscriptBox[
RowBox[{"Cv", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "+",
SuperscriptBox["k\[Alpha]", "2"], "+",
RowBox[{"\[Theta]", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "]"}],
StyleBox["-",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], "k", " ", "rv", " ",
"Cs"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["+",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "kCs"}],
FontColor->RGBColor[0, 0, 1]]}]], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"a61fb74b-9dbc-4f0d-8e6a-a2075021b600"],
" > A\n ",
StyleBox[" ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FormBox[
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"F", "+", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", "\[Alpha]k"}]}], "]"}], "*",
StyleBox["E",
FontColor->RGBColor[0, 1, 0]]}], "-", " ",
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "F"}], "+",
RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], " ", "-", " ",
RowBox[{"2", " ",
SuperscriptBox["k", "2"],
SuperscriptBox["\[Alpha]", "2"],
StyleBox[
RowBox[{"-", " ",
RowBox[{"(",
StyleBox[
RowBox[{"1", "-", "\[Alpha]"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[")",
FontColor->RGBColor[0, 0, 1]]}]}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["\[Beta]",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["k",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["Cs",
FontColor->RGBColor[0, 0, 1]], " "}]}],
SuperscriptBox[
RowBox[{"k", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], " ", "-", " ",
RowBox[{"(",
RowBox[{"Cs", "+",
RowBox[{"2", "Cv"}]}], ")"}]}], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"e001b6c7-a7f3-4668-a074-68fc512650ec"],
"\n the profit of vehicle manufacture is 0\n the whole chain payoff is ",
Cell[BoxData[
FormBox[
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"F", "+", "\[Theta]"}], ")"}],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", "\[Alpha]k"}]}], "]"}], "*",
StyleBox["E",
FontColor->RGBColor[0, 1, 0]]}], "-", " ",
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "F"}], "+",
RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], " ", "-", " ",
RowBox[{"2", " ",
SuperscriptBox["k", "2"],
SuperscriptBox["\[Alpha]", "2"],
StyleBox[
RowBox[{"-", " ",
RowBox[{"(",
StyleBox[
RowBox[{"1", "-", "\[Alpha]"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[")",
FontColor->RGBColor[0, 0, 1]]}]}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["\[Beta]",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["k",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["Cs",
FontColor->RGBColor[0, 0, 1]], " "}]}],
SuperscriptBox[
RowBox[{"k", "(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], " ", "-", " ",
RowBox[{"(",
RowBox[{"Cs", "+",
RowBox[{"2", "Cv"}]}], ")"}]}], TraditionalForm]],
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"9fcb18b8-9acd-401c-bd46-6d20a9c8a3da"],
"\n\n",
StyleBox["Proof\n1. ps>pvA", "Chapter"]
}], "Text",
CellChangeTimes->{{3.859798072112734*^9, 3.859798074452166*^9}, {
3.8597982459525833`*^9, 3.859798254190143*^9}, {3.859802142364277*^9,
3.8598021426158953`*^9}, {3.8598023090829067`*^9, 3.859802318580015*^9}, {
3.859802363394071*^9, 3.859802406410096*^9}, {3.859802457561942*^9,
3.859802522281177*^9}, {3.859802555679253*^9, 3.85980261584836*^9}, {
3.859802651253437*^9, 3.8598026512546873`*^9}, {3.859802687746234*^9,
3.859802688456304*^9}, {3.859802763019541*^9, 3.859802763930236*^9}, {
3.859842962411262*^9, 3.8598430525321617`*^9}, {3.859844167142151*^9,
3.8598442400083437`*^9}, {3.859844350476961*^9, 3.859844350478691*^9}, {
3.859844385279729*^9, 3.859844465612514*^9}, {3.859862218324942*^9,
3.859862219815596*^9}, {3.859969063616014*^9,
3.859969064053691*^9}},ExpressionUUID->"16555dc7-5c7f-42cb-946e-\
df7f010da1b2"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
RowBox[{"p", ":=",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]}], "Input",
CellChangeTimes->{{3.85979810480413*^9, 3.85979810829318*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"32ba7dd8-dccd-4aac-89fd-9c17737ae952"],
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", " ", "+",
RowBox[{"rv", " ", "cs"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ", "\[Beta]", " ",
"cs"}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"rv", " ", "cs"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]", " ", "cs",
" "}]}]}]}], "Input",
CellChangeTimes->{{3.859798113819522*^9, 3.859798137024147*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"eb2ed337-ac0c-4d33-b412-30a0245e7703"],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.8597983824798117`*^9},
CellLabel->"In[3]:=",ExpressionUUID->"d668fb00-377c-4165-b456-93d897ea1a78"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.8597983838644457`*^9},
CellLabel->"Out[3]=",ExpressionUUID->"f1d96306-480e-4495-aee6-7635c05d5869"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[4]:=",ExpressionUUID->"ec8d1045-edec-4f68-abf6-d1a861a5c44e"],
Cell[BoxData[
StyleBox[
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{
FractionBox["f", "k"], "+",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]], "+",
FractionBox["\[Theta]", "k"]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8597983926232653`*^9},
CellLabel->"Out[4]=",ExpressionUUID->"9f05ff5c-991b-4436-81dc-0d1bbf67f4ed"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Profitv", "\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.859798063438011*^9, 3.859798065887302*^9}, {
3.8597981461947002`*^9, 3.8597981505882597`*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"03a5c1aa-9407-450f-804b-b788dbf9c620"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"cs", " ", "rv"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"4", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}]}],
"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
"2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8597981510605907`*^9},
CellLabel->"Out[35]=",ExpressionUUID->"c7801ea6-7ae9-4a21-813e-c6de1c94c71e"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[", "%35", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[36]:=",ExpressionUUID->"ea2b55ef-e8e7-4ae2-889d-edd035951f62"],
Cell[BoxData[
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"16", " ", "cs", " ", "k", " ", "rv"}], "+",
RowBox[{
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"32", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"16", " ", "cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Beta]"}], "+",
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}],
"-",
RowBox[{"16", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"20", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"], "-",
RowBox[{"2", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.859798169589432*^9},
CellLabel->"Out[36]=",ExpressionUUID->"66145c61-85f0-4ba5-afca-117819558a90"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.859798172253503*^9, 3.8597981743895187`*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"1bbb3b83-ba18-4476-baa9-c1330fc0874a"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"cs", " ", "rv"}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
" ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}]}],
"+",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{"f", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
"\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.85979817498111*^9},
CellLabel->"Out[37]=",ExpressionUUID->"9ce06534-8847-4a54-85e8-b8c4ac02c25d"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[", "%37", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[38]:=",ExpressionUUID->"7d5ddd11-c248-447c-bccf-ecda52475534"],
Cell[BoxData[{
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"8", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"8", " ", "cs", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+", "\[Beta]"}], ")"}]}], "+",
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
StyleBox[
RowBox[{" "}],
FontColor->RGBColor[1, 0, 0]]}], "Input",
CellChangeTimes->{
3.859798220947733*^9, {3.859833323239085*^9, 3.859833355246172*^9}, {
3.8598371721136723`*^9, 3.859837201518243*^9},
3.8598372504213676`*^9},ExpressionUUID->"68ac08e8-b470-4f1c-8a54-\
d46ff14f70f7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
StyleBox["Profit",
FontColor->GrayLevel[0]],
StyleBox["=",
FontColor->GrayLevel[0]],
RowBox[{
StyleBox[
FractionBox["1",
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox["(",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox[
RowBox[{"16", " ", "cs", " ", "k", " ", "rv"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"16", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"32", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"12", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"16", " ", "cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Beta]"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"16", " ", "k", " ", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"20", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"4", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
SuperscriptBox["\[Theta]", "2"],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"2", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["-",
FontColor->RGBColor[1, 0, 0]],
StyleBox[
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->GrayLevel[0]],
RowBox[{
StyleBox["2",
FontColor->GrayLevel[0]],
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "cs", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+", "\[Beta]"}], ")"}]}], "+",
RowBox[{"4", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}], "+",
RowBox[{"2",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]}],
StyleBox[")",
FontColor->RGBColor[1, 0, 0]]}]}]}]], "Input",
CellChangeTimes->{{3.859837254039163*^9, 3.8598372550304203`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"083375c6-e5f0-4f1c-9ee5-04c42d6d0f70"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"16", " ", "cs", " ", "k", " ", "rv"}], "+",
RowBox[{"3", " ",
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"32", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"16", " ", "cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Beta]"}], "+",
RowBox[{"16", " ", "cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
RowBox[{"16", " ", "cs", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+", "\[Beta]"}], ")"}]}], "-",
RowBox[{"16", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"20", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
SuperscriptBox["\[Theta]", "2"], "-",
RowBox[{"2", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}], "-",
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.859837255815111*^9},
CellLabel->"Out[3]=",ExpressionUUID->"cdfc9647-ed09-41f3-9e28-6466efec5761"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "Profit", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[4]:=",ExpressionUUID->"d51b4dc2-9000-403a-baad-7723e01842ab"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "16"}], " ", "cv", " ", "k"}], "+",
RowBox[{"3", " ",
SuperscriptBox["f", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"32", " ", "cv", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"28", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"12", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"6", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"2", " ", "f", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.859837257888122*^9},
CellLabel->"Out[4]=",ExpressionUUID->"5d3ecf30-ceec-4435-a3bf-c803ef59c3ea"]
}, Open ]],
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{"2.", " ", "ps"}], "<", "pvA"}], "Chapter"]], "Input",
CellChangeTimes->{{3.859798259615045*^9,
3.859798265136422*^9}},ExpressionUUID->"2a709416-09a0-4684-a415-\
d6c5682750d5"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"p", "-",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
RowBox[{"p", ":=",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}], "\[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", " ", "+",
RowBox[{"rv", " ", "cs"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], " ", "\[Beta]", " ",
"cs"}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"rv", " ", "cs"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]", " ", "cs",
" "}]}]}]}], "Input",
CellChangeTimes->{{3.85979810480413*^9, 3.85979810829318*^9}, {
3.859798294514423*^9, 3.8597983059345417`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"b7e57b2c-08de-442c-b813-8a3f9660ba70"],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.8598023463050823`*^9},
CellLabel->"In[5]:=",ExpressionUUID->"5c56925f-2779-4d57-a996-50e253aa66eb"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.859802348120369*^9},
CellLabel->"Out[5]=",ExpressionUUID->"56d03de3-3aae-4b9a-9ec8-dae5f5622d51"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%5", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[6]:=",ExpressionUUID->"bf4b30a1-105f-487f-8a4b-acab715a2725"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"k", " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Beta]"}],
")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}],
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.859802350310995*^9},
CellLabel->"Out[6]=",ExpressionUUID->"26d7afaf-0c50-49cb-8757-aed1bd4202bd"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.859798309492571*^9, 3.859798314504745*^9}},
CellLabel->"In[45]:=",ExpressionUUID->"64b92f92-d8fd-43a9-8ea1-0d010a5df2e1"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"cs", " ", "rv"}], "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ", "k"}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]}], ")"}], "2"]}], "-",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}],
"+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}],
")"}]}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}],
"+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}],
")"}]}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8597983150705442`*^9},
CellLabel->"Out[45]=",ExpressionUUID->"717daa85-fccd-4135-a6a2-c9584402afa4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%45", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[46]:=",ExpressionUUID->"56f95a77-0b87-4b93-a6de-f441cf8efd7f"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.859798318241802*^9},
CellLabel->"Out[46]=",ExpressionUUID->"f94340c8-62f7-42ce-9ae9-9a9dc4f8379e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.859798322442514*^9, 3.85979832479678*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"3f6a23f3-6860-4753-a221-d9d3ebbfee73"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"cs", " ", "rv"}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{
RowBox[{"(",
RowBox[{"f", "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]}], ")"}]}]}], "+",
RowBox[{"cs", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}],
"+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"1", "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ", "k"}], "-",
RowBox[{"cs", " ", "k", " ", "rv"}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "-",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}],
"+",
RowBox[{"k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ", "\[Alpha]", " ", "\[Theta]"}]}],
")"}]}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.859798325591955*^9},
CellLabel->"Out[47]=",ExpressionUUID->"36cbdc98-b072-44dc-b0e4-452257e23609"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[", "%47", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[48]:=",ExpressionUUID->"1a1dc755-5a1f-4823-b578-5a928e3bbd4f"],
Cell[BoxData[
RowBox[{
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ", "k"}], "-",
RowBox[{"2", " ", "cv", " ", "k"}], "+",
RowBox[{"cs", " ", "k", " ", "rv"}], "+",
RowBox[{"2", " ", "cs", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "cv", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"f", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cs", " ", "k", " ", "rv", " ", "\[Alpha]"}], "-",
RowBox[{"cs", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"2", " ", "cv", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"f", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cs", " ", "k", " ", "rv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ", "k", " ", "\[Beta]"}], "+",
RowBox[{"cs", " ", "k", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"f", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
RowBox[{"f", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
RowBox[{"\[Theta]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
RowBox[{"\[Alpha]", " ", "\[Theta]", " ",
SqrtBox[
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"rv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
"\[Beta]"}], ")"}]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}]}]}],
FontColor->RGBColor[1, 0, 0]], ")"}]], "Input",
CellChangeTimes->{3.859798344707191*^9},
CellLabel->"Out[48]=",ExpressionUUID->"0ca9fdb4-5a5c-459f-bfb4-cc73a1e4e26e"]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{749, 824},
WindowMargins->{{Automatic, -122}, {1, Automatic}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670813\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"56c9740d-1d93-49ea-a951-c4b0fc90269e"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 639, 9, 126, "Chapter",ExpressionUUID->"fc99b250-0ba5-48f1-817f-d7d7be76a4ec"],
Cell[1222, 33, 1352, 38, 52, "Input",ExpressionUUID->"0ebda099-248a-4ee0-a753-b8aa0b898904"],
Cell[2577, 73, 406, 7, 56, "Input",ExpressionUUID->"3f1d72a3-cb13-4e4f-a679-c5cc9fa49da4"],
Cell[CellGroupData[{
Cell[3008, 84, 227, 4, 44, "Input",ExpressionUUID->"4c2f89f9-2a65-4eca-b739-120d5bceefd2"],
Cell[3238, 90, 358, 9, 34, "Output",ExpressionUUID->"70418c16-5abe-41f2-af9f-f2027cdeae95"]
}, Open ]],
Cell[CellGroupData[{
Cell[3633, 104, 258, 5, 44, "Input",ExpressionUUID->"89c4d3bd-6544-451f-9262-6473f3c299d2"],
Cell[3894, 111, 393, 10, 50, "Output",ExpressionUUID->"1b3dd1fb-36d4-44df-b1e1-8b90e2c09777"]
}, Open ]],
Cell[4302, 124, 353, 7, 58, "Text",ExpressionUUID->"0796e200-d3d5-4427-ad0e-a38b84aa5094"],
Cell[4658, 133, 357, 8, 47, "Input",ExpressionUUID->"c4a9c144-031c-4999-af1e-7d24c16bc829"],
Cell[CellGroupData[{
Cell[5040, 145, 178, 2, 30, "Input",ExpressionUUID->"4802d7f8-00b7-494e-96cd-b260a56eaddc"],
Cell[5221, 149, 1368, 39, 91, "Output",ExpressionUUID->"9b339e93-c567-4f8e-b508-b5c5c31ced3a"]
}, Open ]],
Cell[CellGroupData[{
Cell[6626, 193, 1360, 39, 104, "Input",ExpressionUUID->"b857e098-86c5-43e8-ab7c-f965a5d3fa91"],
Cell[7989, 234, 1158, 32, 74, "Output",ExpressionUUID->"5acab5b5-b7e3-482f-9f7a-727c6327f109"]
}, Open ]],
Cell[CellGroupData[{
Cell[9184, 271, 259, 5, 44, "Input",ExpressionUUID->"7f7096b6-f0f7-4137-a090-0f7b7d82e486"],
Cell[9446, 278, 3156, 74, 173, "Output",ExpressionUUID->"311306a5-99e1-4cd0-9d43-e5ba81e5c533"]
}, Open ]],
Cell[12617, 355, 1652, 45, 82, "Text",ExpressionUUID->"bf0d6258-f365-442a-ad63-d4c260bee41b"],
Cell[CellGroupData[{
Cell[14294, 404, 277, 4, 67, "Section",ExpressionUUID->"7593db6a-c03f-43b7-9460-11ba51e31088"],
Cell[14574, 410, 832, 25, 68, "Input",ExpressionUUID->"5dabae4e-e6c1-4e8b-aab7-8552f6b63bff"],
Cell[CellGroupData[{
Cell[15431, 439, 178, 2, 30, "Input",ExpressionUUID->"d033b628-9cc2-4531-8551-b8b6423dd2d3"],
Cell[15612, 443, 896, 26, 51, "Output",ExpressionUUID->"ee177933-ca83-419b-93bb-504cbf49842f"]
}, Open ]],
Cell[CellGroupData[{
Cell[16545, 474, 932, 27, 61, "Input",ExpressionUUID->"0180d167-727d-4b7f-a900-0d6f01f7e724"],
Cell[17480, 503, 921, 27, 51, "Output",ExpressionUUID->"f666d857-ed39-44c6-8eff-ecb55f9af9e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[18438, 535, 222, 4, 44, "Input",ExpressionUUID->"db754ce6-77fd-47f5-b151-d01585b29638"],
Cell[18663, 541, 931, 29, 51, "Output",ExpressionUUID->"95abfbd6-8d43-453e-8cb2-88002bb85427"]
}, Open ]],
Cell[CellGroupData[{
Cell[19631, 575, 285, 6, 44, "Input",ExpressionUUID->"c4894a5f-0ecd-467f-9d3c-4a9257115a5b"],
Cell[19919, 583, 707, 19, 55, "Output",ExpressionUUID->"6e506ad2-a50d-4343-b8cc-c17fd5f2bf36"]
}, Open ]],
Cell[20641, 605, 2421, 70, 133, "Text",ExpressionUUID->"ab0ce393-4ec7-4a58-8d88-dce68ed2c67b"],
Cell[23065, 677, 2039, 49, 167, "Input",ExpressionUUID->"a41b2ada-468a-43c1-b0b2-c81b11bf6a7d"],
Cell[CellGroupData[{
Cell[25129, 730, 187, 2, 30, "Input",ExpressionUUID->"8c959f1e-b386-4efa-aa6f-494a0b7adc49"],
Cell[25319, 734, 1941, 49, 104, "Output",ExpressionUUID->"2cb2a701-5927-40d2-8b1a-aae69a12042a"]
}, Open ]],
Cell[CellGroupData[{
Cell[27297, 788, 1989, 49, 143, "Input",ExpressionUUID->"83b99ad7-45dd-46d4-9879-5a57738fd221"],
Cell[29289, 839, 1253, 36, 62, "Output",ExpressionUUID->"7e4b7781-6779-4f09-b576-be9a671feff0"]
}, Open ]],
Cell[CellGroupData[{
Cell[30579, 880, 257, 5, 44, "Input",ExpressionUUID->"1a93301e-8cc9-4744-aee4-d8b4178ebb25"],
Cell[30839, 887, 2317, 70, 82, "Output",ExpressionUUID->"277e5119-9821-4f7b-a4ea-7eae974aa4c5"]
}, Open ]],
Cell[CellGroupData[{
Cell[33193, 962, 2171, 68, 94, "Input",ExpressionUUID->"a4266d79-09ed-4ed0-812b-4b433b16d94a"],
Cell[35367, 1032, 1123, 32, 59, "Output",ExpressionUUID->"630f43f9-de94-441f-945d-d62470eb47c2"]
}, Open ]],
Cell[CellGroupData[{
Cell[36527, 1069, 160, 3, 45, "Subsubsection",ExpressionUUID->"82642af5-0f49-4bcc-b073-3f868e88a6f9"],
Cell[36690, 1074, 13167, 379, 518, "Text",ExpressionUUID->"6ce32179-d96f-4155-a196-60abbccbb97b"],
Cell[49860, 1455, 24119, 692, 917, "Text",ExpressionUUID->"16555dc7-5c7f-42cb-946e-df7f010da1b2"],
Cell[73982, 2149, 859, 22, 91, "Input",ExpressionUUID->"32ba7dd8-dccd-4aac-89fd-9c17737ae952"],
Cell[74844, 2173, 1125, 35, 52, "Input",ExpressionUUID->"eb2ed337-ac0c-4d33-b412-30a0245e7703"],
Cell[CellGroupData[{
Cell[75994, 2212, 149, 2, 30, "Input",ExpressionUUID->"d668fb00-377c-4165-b456-93d897ea1a78"],
Cell[76146, 2216, 1280, 34, 61, "Output",ExpressionUUID->"f1d96306-480e-4495-aee6-7635c05d5869"]
}, Open ]],
Cell[77441, 2253, 1322, 35, 72, "Input",ExpressionUUID->"ec8d1045-edec-4f68-abf6-d1a861a5c44e"],
Cell[78766, 2290, 467, 14, 49, InheritFromParent,ExpressionUUID->"9f05ff5c-991b-4436-81dc-0d1bbf67f4ed"],
Cell[CellGroupData[{
Cell[79258, 2308, 315, 5, 94, "Input",ExpressionUUID->"03a5c1aa-9407-450f-804b-b788dbf9c620"],
Cell[79576, 2315, 6576, 175, 331, "Output",ExpressionUUID->"c7801ea6-7ae9-4a21-813e-c6de1c94c71e"]
}, Open ]],
Cell[86167, 2493, 163, 3, 44, "Input",ExpressionUUID->"ea2b55ef-e8e7-4ae2-889d-edd035951f62"],
Cell[86333, 2498, 2030, 52, 121, InheritFromParent,ExpressionUUID->"66145c61-85f0-4ba5-afca-117819558a90"],
Cell[CellGroupData[{
Cell[88388, 2554, 180, 2, 30, "Input",ExpressionUUID->"1bbb3b83-ba18-4476-baa9-c1330fc0874a"],
Cell[88571, 2558, 4108, 111, 211, "Output",ExpressionUUID->"9ce06534-8847-4a54-85e8-b8c4ac02c25d"]
}, Open ]],
Cell[92694, 2672, 163, 3, 44, "Input",ExpressionUUID->"7d5ddd11-c248-447c-bccf-ecda52475534"],
Cell[92860, 2677, 1763, 54, 121, InheritFromParent,ExpressionUUID->"68ac08e8-b470-4f1c-8a54-d46ff14f70f7"],
Cell[CellGroupData[{
Cell[94648, 2735, 5102, 158, 185, "Input",ExpressionUUID->"083375c6-e5f0-4f1c-9ee5-04c42d6d0f70"],
Cell[99753, 2895, 2928, 80, 144, "Output",ExpressionUUID->"cdfc9647-ed09-41f3-9e28-6466efec5761"]
}, Open ]],
Cell[CellGroupData[{
Cell[102718, 2980, 165, 3, 44, "Input",ExpressionUUID->"d51b4dc2-9000-403a-baad-7723e01842ab"],
Cell[102886, 2985, 1909, 53, 102, "Output",ExpressionUUID->"5d3ecf30-ceec-4435-a3bf-c803ef59c3ea"]
}, Open ]],
Cell[104810, 3041, 227, 6, 56, "Input",ExpressionUUID->"2a709416-09a0-4684-a415-d6c5682750d5"],
Cell[105040, 3049, 2751, 76, 222, "Input",ExpressionUUID->"b7e57b2c-08de-442c-b813-8a3f9660ba70"],
Cell[CellGroupData[{
Cell[107816, 3129, 149, 2, 30, "Input",ExpressionUUID->"5c56925f-2779-4d57-a996-50e253aa66eb"],
Cell[107968, 3133, 3149, 76, 176, "Output",ExpressionUUID->"56d03de3-3aae-4b9a-9ec8-dae5f5622d51"]
}, Open ]],
Cell[CellGroupData[{
Cell[111154, 3214, 161, 3, 44, "Input",ExpressionUUID->"bf4b30a1-105f-487f-8a4b-acab715a2725"],
Cell[111318, 3219, 1050, 32, 59, "Output",ExpressionUUID->"26d7afaf-0c50-49cb-8757-aed1bd4202bd"]
}, Open ]],
Cell[CellGroupData[{
Cell[112405, 3256, 178, 2, 30, "Input",ExpressionUUID->"64b92f92-d8fd-43a9-8ea1-0d010a5df2e1"],
Cell[112586, 3260, 16257, 383, 785, "Output",ExpressionUUID->"717daa85-fccd-4135-a6a2-c9584402afa4"]
}, Open ]],
Cell[CellGroupData[{
Cell[128880, 3648, 163, 3, 44, "Input",ExpressionUUID->"56f95a77-0b87-4b93-a6de-f441cf8efd7f"],
Cell[129046, 3653, 149, 2, 34, "Output",ExpressionUUID->"f94340c8-62f7-42ce-9ae9-9a9dc4f8379e"]
}, Open ]],
Cell[CellGroupData[{
Cell[129232, 3660, 177, 2, 30, "Input",ExpressionUUID->"3f6a23f3-6860-4753-a221-d9d3ebbfee73"],
Cell[129412, 3664, 9872, 234, 498, "Output",ExpressionUUID->"36cbdc98-b072-44dc-b0e4-452257e23609"]
}, Open ]],
Cell[139299, 3901, 163, 3, 44, "Input",ExpressionUUID->"1a1dc755-5a1f-4823-b578-5a928e3bbd4f"],
Cell[139465, 3906, 5923, 157, 264, InheritFromParent,ExpressionUUID->"0ca9fdb4-5a5c-459f-bfb4-cc73a1e4e26e"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)