3715 lines
135 KiB
Mathematica
3715 lines
135 KiB
Mathematica
(* 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[ 138135, 3706]
|
|
NotebookOptionsPosition[ 130563, 3578]
|
|
NotebookOutlinePosition[ 130968, 3595]
|
|
CellTagsIndexPosition[ 130925, 3592]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
Cell[TextData[{
|
|
StyleBox["Blockchain Model\n", "Subtitle"],
|
|
StyleBox["The VM\[CloseCurlyQuote]s Effort Under Insurance Model",
|
|
"Section"]
|
|
}], "Text",
|
|
CellChangeTimes->{{3.847746868691206*^9,
|
|
3.847746905078404*^9}},ExpressionUUID->"bc3d98ee-de6f-424f-a005-\
|
|
b426776b8e00"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"Profitvb", ":=",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "pb"}], "+",
|
|
RowBox[{"eb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-",
|
|
RowBox[{"kb", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", "cvb", "+",
|
|
RowBox[{"rvb", " ", "cs"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], " ", "\[Beta]", " ",
|
|
"cs"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profitsb", ":=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+",
|
|
RowBox[{"eb",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs",
|
|
" ", "-",
|
|
RowBox[{"rvb", " ", "cs"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Beta]", " ", "cs"}], " ", "-",
|
|
"csb"}]}]}], "Input",
|
|
CellChangeTimes->{{3.84774692485349*^9, 3.847746972128188*^9}, {
|
|
3.847747397472211*^9, 3.8477474241671333`*^9}, {3.847747702882146*^9,
|
|
3.847747709330879*^9}, {3.847747747143688*^9, 3.8477477763814287`*^9}, {
|
|
3.847749431163137*^9, 3.8477494324598417`*^9}, {3.84793877916921*^9,
|
|
3.847938800764226*^9}, {3.859451647703182*^9, 3.859451652258902*^9}, {
|
|
3.8599630777766*^9, 3.859963160949695*^9}, {3.859963259890957*^9,
|
|
3.8599632610153418`*^9}},
|
|
CellLabel->"In[5]:=",ExpressionUUID->"73a7945c-fae9-4c47-8e27-0953f37672ff"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitvb", ",", "eb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8599631872001343`*^9, 3.859963202930174*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"72ecdd6a-31dd-4576-b5ae-ff803c3dcc90"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "eb", " ", "kb"}], "+",
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}]], "Output",
|
|
CellChangeTimes->{3.859963203720941*^9, 3.859963280190338*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"0d896393-8278-4601-a634-d7d72fa4c318"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "eb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.859963214899311*^9, 3.859963245938238*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"5f6554b3-15d5-40f2-9502-bd10073e75ee"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"eb", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.859963246438912*^9, 3.859963283098557*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"60a739cb-1934-49da-bce3-75a71719c058"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[{
|
|
"We now solve the Stackelberg game by using backward induction. First, \
|
|
given any contingent price ",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
SuperscriptBox["p", "B"], TraditionalForm]],ExpressionUUID->
|
|
"9db81699-65f3-42a8-a8bb-550b0ac09435"],
|
|
" , by considering the first-order condition of Profitv, the vehicle \
|
|
manufacture\[CloseCurlyQuote]s best response is given as\n",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
RowBox[{
|
|
RowBox[{"e", "^", "B"}], "=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "+", "\[Theta]", "+",
|
|
RowBox[{"\[Beta]", " ", "Cs"}]}],
|
|
RowBox[{"2",
|
|
SuperscriptBox["k", "B"]}]]}], TraditionalForm]],ExpressionUUID->
|
|
"3fdc690c-d6f9-4c7e-940f-8d0b4b9eef51"],
|
|
"\n"
|
|
}], "Text",
|
|
CellChangeTimes->{{3.847747807161421*^9, 3.8477478677589693`*^9}, {
|
|
3.847753492899177*^9, 3.8477534933566113`*^9}, {3.85996334587191*^9,
|
|
3.8599633602397137`*^9}},ExpressionUUID->"085a58d7-785a-44f8-bbb1-\
|
|
85daf0d58d85"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"eb", ":=",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}]], "Input",
|
|
CellChangeTimes->{{3.859963362985561*^9, 3.859963369330905*^9}},
|
|
CellLabel->"In[9]:=",ExpressionUUID->"bca1d2d9-ea3e-494c-a753-bffa67c6aa2b"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitvb"], "Input",
|
|
CellChangeTimes->{{3.859963372291905*^9, 3.859963375977408*^9}},
|
|
CellLabel->"In[10]:=",ExpressionUUID->"37dd9252-02ec-47d3-b44b-0ea43e15a9ff"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cv"}], "-", "cvb", "+",
|
|
RowBox[{"cs", " ", "rvb"}], "+",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
FractionBox[
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}], "2"],
|
|
RowBox[{"4", " ", "kb"}]], "-",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.859963376878377*^9},
|
|
CellLabel->"Out[10]=",ExpressionUUID->"aa328bd5-bea8-41cd-9598-409b1fb8a5ad"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "cv"}], "-", "cvb", "+",
|
|
RowBox[{"cs", " ", "rvb"}], "+",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
FractionBox[
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}], "2"],
|
|
RowBox[{"4", " ", "kb"}]], "-",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[11]:=",ExpressionUUID->"a28c37b6-054d-4680-9751-607d8a0d45ee"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], " ", "cv", " ", "kb"}], "-",
|
|
RowBox[{"4", " ", "cvb", " ", "kb"}], "+",
|
|
SuperscriptBox["pb", "2"], "+",
|
|
RowBox[{"4", " ", "cs", " ", "kb", " ", "rvb"}], "+",
|
|
RowBox[{"4", " ", "kb", " ", "pb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["pb", "2"], " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["pb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"4", " ", "cs", " ", "kb", " ", "\[Beta]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "pb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"2", " ", "cs", " ", "pb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["cs", "2"], " ",
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
|
RowBox[{"4", " ", "kb", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ", "pb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ", "pb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
|
SuperscriptBox["\[Theta]", "2"]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.859963380831853*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"d793509a-ad25-4adf-a6fa-89fa08650d31"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "pb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.859963383767556*^9, 3.859963393407571*^9}},
|
|
CellLabel->"In[12]:=",ExpressionUUID->"4e2fc01f-4da4-4db7-b8df-233d843ede73"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
StyleBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"pb", "\[Rule]",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"pb", "\[Rule]",
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
|
StyleBox["\[Theta]",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["+",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}],
|
|
FontColor->RGBColor[0, 0, 1]], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}], "}"}]}],
|
|
FontColor->GrayLevel[0]],
|
|
StyleBox["}",
|
|
FontColor->GrayLevel[0]]}]}]], "Input",
|
|
CellChangeTimes->{3.8599634554390717`*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"75c55c55-da28-445c-9a32-dfa885407b67"],
|
|
|
|
Cell[TextData[{
|
|
"Hence the vehicle manufacture\[CloseCurlyQuote]s participation condition, \
|
|
i.e., Profitv\[GreaterEqual]0, can be written as \n",
|
|
Cell[BoxData[
|
|
FormBox["p", TraditionalForm]],
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"e260165a-d14a-4f37-99bf-8c9166861420"],
|
|
StyleBox["\[GreaterEqual] ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"],
|
|
RowBox[{"(",
|
|
RowBox[{"cv", " ", "+",
|
|
RowBox[{"cvb",
|
|
StyleBox[
|
|
RowBox[{"-", "rvb"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["cs",
|
|
FontColor->RGBColor[0, 0, 1]]}]}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"],
|
|
SuperscriptBox[
|
|
SuperscriptBox["k", "B"], "2"]}], " ", "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}],
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]]}], " ", "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
RowBox[{"(", " ",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}]}]}],
|
|
RowBox[{" ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847747946254937*^9, 3.8477479909637613`*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"9b07b85a-d3b8-4397-b0e3-0afcfad7b348"]
|
|
}], "Text",
|
|
CellChangeTimes->{
|
|
3.847748022511788*^9, {3.8477492038365107`*^9, 3.847749241424397*^9}, {
|
|
3.847749337927477*^9, 3.847749354337912*^9}, {3.847749518966936*^9,
|
|
3.8477496165223627`*^9}, {3.8477527105421*^9, 3.84775287548606*^9}, {
|
|
3.847753473270898*^9, 3.847753474790654*^9}, {3.859963947641938*^9,
|
|
3.859963979465959*^9}, {3.859964060215619*^9, 3.859964061536788*^9}, {
|
|
3.859964103030828*^9,
|
|
3.8599641356289463`*^9}},ExpressionUUID->"42c2bfb0-3d6d-43a7-a244-\
|
|
80ff8520e6cb"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[StyleBox["The SO\[CloseCurlyQuote]s Optimal Contract Under \
|
|
Blockchain Model", "Section"]], "Subsubsection",
|
|
CellChangeTimes->{{3.8470768941909723`*^9, 3.847076937239661*^9}, {
|
|
3.847753509270722*^9,
|
|
3.8477535139856033`*^9}},ExpressionUUID->"ca3839c7-c3ce-44d4-966b-\
|
|
41b91b827bc6"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"eb", ":=",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]", "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profitsb", ":=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+",
|
|
RowBox[{"eb",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs",
|
|
" ", "-",
|
|
RowBox[{"rvb", " ", "cs"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Beta]", " ", "cs"}], " ", "-",
|
|
"csb"}]}]}], "Input",
|
|
CellChangeTimes->{{3.847753541945079*^9, 3.847753558336581*^9},
|
|
3.847964091568811*^9, {3.859964176101807*^9, 3.859964192588747*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"f182f1df-f3a0-490e-8838-e8cec225bfc3"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitsb"], "Input",
|
|
CellChangeTimes->{{3.859964196245604*^9, 3.8599641988143263`*^9}},
|
|
CellLabel->"In[15]:=",ExpressionUUID->"1b604f80-4e60-425c-8982-adc00df5e9db"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"cs", " ", "rvb"}], "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.85996420112437*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"544c25d4-4ab8-4ba4-86c0-c8516b06b831"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"cs", " ", "rvb"}], "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[16]:=",ExpressionUUID->"cdc63833-d42b-47f1-acd3-d1a1c303dcb9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"cs", " ", "rvb"}], "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "+",
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8599642029450693`*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"f3fcd2db-df85-409d-a7c7-6acb4e704ee3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"%", ",", "pb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.859964207623475*^9, 3.859964217083961*^9}},
|
|
CellLabel->"In[17]:=",ExpressionUUID->"8777f605-014e-4274-9abb-7ad485100c34"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "+",
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "-", "\[Alpha]", "-",
|
|
FractionBox[
|
|
RowBox[{"cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}]], "Output",
|
|
CellChangeTimes->{3.8599642177181787`*^9},
|
|
CellLabel->"Out[17]=",ExpressionUUID->"1bbcf201-ca02-4b87-9367-d5c2ac58cc8f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "+",
|
|
RowBox[{"pb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "-", "\[Alpha]", "-",
|
|
FractionBox[
|
|
RowBox[{"cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[18]:=",ExpressionUUID->"c6189fae-c804-48b3-bcce-4252b2e9c9c0"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"f", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "pb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
"\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}]], "Output",
|
|
CellChangeTimes->{3.859964219626718*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"4c561dc2-e2f5-40f4-93dd-3a0ea46d5aaa"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "pb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8599644115429497`*^9, 3.859964419216234*^9}},
|
|
CellLabel->"In[19]:=",ExpressionUUID->"2667d60d-1d12-4bb4-aca1-b7f1c252bafb"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"pb", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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.859964420120632*^9},
|
|
CellLabel->"Out[19]=",ExpressionUUID->"55635983-ca94-4d6e-9475-7f58df527b3a"]
|
|
}, 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[{"2", "cs", " ", "\[Beta]"}]}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]", " "}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
FontColor->RGBColor[1, 0, 0]]],
|
|
CellChangeTimes->{3.847335457059067*^9},ExpressionUUID->
|
|
"c1f0cb37-2979-4e7b-b93a-71c17ecd09ab"],
|
|
"\ns.t. p \[GreaterEqual] ",
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"],
|
|
RowBox[{"(",
|
|
RowBox[{"cv", " ", "+",
|
|
RowBox[{"cvb",
|
|
StyleBox[
|
|
RowBox[{"-", "rvb"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["cs",
|
|
FontColor->RGBColor[0, 0, 1]]}]}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"],
|
|
SuperscriptBox[
|
|
SuperscriptBox["k", "B"], "2"]}], " ", "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}],
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]]}], " ", "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
RowBox[{"(", " ",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}]}]}],
|
|
RowBox[{" ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847747946254937*^9, 3.8477479909637613`*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"fa1c53d2-c86b-464a-9444-badf8e49d9be"],
|
|
" ( the level of price that vehicle manufacture will accept)"
|
|
}], "Text",
|
|
CellChangeTimes->{{3.847336159830171*^9, 3.84733640202722*^9}, {
|
|
3.847753790831712*^9, 3.847753830464266*^9}, {3.859964446031024*^9,
|
|
3.8599644464249783`*^9}, 3.8599645224877663`*^9, {3.859965506090678*^9,
|
|
3.8599655060910177`*^9}},ExpressionUUID->"71c10bd0-ce38-4e28-a8d0-\
|
|
90f28ac69dbe"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[CapitalDelta]p", ":=",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
|
StyleBox["\[Theta]",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["+",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}],
|
|
FontColor->RGBColor[0, 0, 1]], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.859964543902564*^9, 3.8599645555642233`*^9}},
|
|
CellLabel->"In[20]:=",ExpressionUUID->"6d937feb-a3c5-4f10-b32c-bce0b211051d"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["\[CapitalDelta]p"], "Input",
|
|
CellChangeTimes->{{3.859964559713873*^9, 3.859964562157236*^9}},
|
|
CellLabel->"In[21]:=",ExpressionUUID->"ad622383-abb0-4b7b-8773-4d9d2f574a61"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8599645635982447`*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"76e4e884-a294-4c78-b8ce-1f8661dde917"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%21", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[22]:=",ExpressionUUID->"9beacf6e-c2d9-4af7-a733-dcdd5e9e2aaf"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]",
|
|
"-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.859964566504538*^9},
|
|
CellLabel->"Out[22]=",ExpressionUUID->"485eafd9-f254-4ed9-9aa5-80651d0c4bf1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "f"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.859964574978228*^9, 3.859964581589287*^9}},
|
|
CellLabel->"In[23]:=",ExpressionUUID->"de51d7ec-b105-4965-a1a1-148b0450349d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"f", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"kb", " ", "\[Alpha]"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "-",
|
|
FractionBox["\[Theta]",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[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.859964583204255*^9},
|
|
CellLabel->"Out[23]=",ExpressionUUID->"493daee5-41e8-4783-83b3-003a5a573322"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[{
|
|
StyleBox["\:4ee4 \:ff1aG=", "Section",
|
|
FontSize->16],
|
|
StyleBox[Cell[BoxData[
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"kb",
|
|
RowBox[{"(",
|
|
RowBox[{"cv", "+",
|
|
StyleBox["cvb",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["-",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"rvb", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}]], "Section",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847688401388039*^9},
|
|
FontSize->16,ExpressionUUID->"72d0c4d7-b22b-44c4-924d-7ed942a856ca"],
|
|
"Section"]
|
|
}], "Text",
|
|
CellChangeTimes->{{3.859966484971912*^9, 3.8599664988134823`*^9}, {
|
|
3.85996683775907*^9,
|
|
3.859966849173049*^9}},ExpressionUUID->"8697bb3e-df69-4c8b-a9a8-\
|
|
4220343086fe"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.859966477715578*^9,
|
|
3.859966478712164*^9}},ExpressionUUID->"994c9b1a-b339-42fc-a0ce-\
|
|
13cf688beef2"],
|
|
|
|
Cell[TextData[{
|
|
"1. If the ",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
RowBox[{
|
|
SuperscriptBox["p", "S"], ">",
|
|
SuperscriptBox["p", "VA"]}], TraditionalForm]],ExpressionUUID->
|
|
"3b5da142-2a8a-4a99-bdd6-fe1adbefa696"],
|
|
", which satisfied with ",
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
RowBox[{"F", "\[GreaterEqual]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Theta]"}], "+",
|
|
RowBox[{"4", " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"kb",
|
|
RowBox[{"(",
|
|
RowBox[{"cv", "+",
|
|
StyleBox["cvb",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["-",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"rvb", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}]]}]}], ")"}],
|
|
RowBox[{"1", "-", "\[Alpha]"}]]}],
|
|
FontColor->RGBColor[1, 0, 0]]], "Output",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
|
|
"25ca3860-d170-4dd4-9135-9239cc0e3aa6"],
|
|
" =",
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ",
|
|
StyleBox["G",
|
|
FontColor->RGBColor[0, 1, 0]]}]}],
|
|
RowBox[{"1", "-", "\[Alpha]"}]],
|
|
FontColor->RGBColor[1, 0, 0]]],
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
|
|
"aa9bbe90-7ded-4da9-a898-a0b1765d6504"],
|
|
"(the dark region) then the effort is ",
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
RowBox[{"e", "=",
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"f", "+", "\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}],
|
|
SuperscriptBox["k", "B"]], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}],
|
|
RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}]}],
|
|
FontColor->RGBColor[1, 0, 0]]],
|
|
CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
|
|
3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
|
|
3.847924648199932*^9, 3.847924685117815*^9}},ExpressionUUID->
|
|
"cf12be68-972e-4953-b045-b298efd472a4"],
|
|
", the contract [p,\[Alpha]] satellite owner offered is ",
|
|
Cell[BoxData[
|
|
RowBox[{"p", "=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-", "\[Theta]", "-",
|
|
RowBox[{"2", "cs", " ", "\[Beta]"}]}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]", " "}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}]],
|
|
CellChangeTimes->{{3.847924446234275*^9, 3.847924447833972*^9}, {
|
|
3.847924551165957*^9, 3.847924581711502*^9}, 3.847924612229691*^9, {
|
|
3.847924648199932*^9, 3.847924685117815*^9}},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"beb1b25d-88ef-44ee-8027-14de6f81385f"],
|
|
". The profit of vehicle manufacture is ",
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
StyleBox["\[IndentingNewLine]",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], " ", "cvb", " ", "kb"}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "rvb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["f", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"16", " ", "cv", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ", "cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"12", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "\[Beta]"}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}],
|
|
"-",
|
|
RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "+",
|
|
RowBox[{"20", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"2", " ", "f", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]],
|
|
"Input",
|
|
CellChangeTimes->{3.847924712498953*^9},ExpressionUUID->
|
|
"1da6d3c4-67da-4430-95c2-6ff2f1e5fdc3"],
|
|
"\n\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[{
|
|
SuperscriptBox["k", "B"], " ", "[", " ",
|
|
RowBox[{
|
|
RowBox[{"F", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Alpha]"}], "-", " ",
|
|
RowBox[{"3",
|
|
SuperscriptBox["\[Alpha]", "2"],
|
|
SuperscriptBox[
|
|
RowBox[{"k", " "}], "B"]}], "-", " ",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-", "\[Alpha]"}], ")"}]}]}], " ", "]"}]}], "-",
|
|
StyleBox[
|
|
RowBox[{"16",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "k", " ", "\[Beta]", " ",
|
|
"Cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}],
|
|
RowBox[{"16",
|
|
SuperscriptBox["k", "B"], " ",
|
|
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]],
|
|
StyleBox["-",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["Cvb",
|
|
FontColor->RGBColor[0, 0, 1]]}], TraditionalForm]], "Subsubsection",
|
|
ExpressionUUID->"e76e8c09-2426-48b3-9b79-20c232cbf888"],
|
|
"\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]], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "8"}], " ", "csb", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["f", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"8", " ", "cs", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"rvb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+", "\[Beta]"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"2", " ", "f", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
|
")"}]}]}], ")"}]}]}], "Input",
|
|
CellChangeTimes->{3.859798220947733*^9},ExpressionUUID->
|
|
"23a80d7a-ea9d-427f-bd94-9db10d31d501"],
|
|
"\nwich can be written as ",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"4",
|
|
SuperscriptBox["k", "B"],
|
|
RowBox[{"\[Alpha]", " ", "[",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]k", "B"], " ", "+",
|
|
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]],
|
|
SuperscriptBox[
|
|
StyleBox[
|
|
RowBox[{"k", " "}],
|
|
FontColor->RGBColor[0, 0, 1]], "B"],
|
|
StyleBox["\[Beta]",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["Cs",
|
|
FontColor->RGBColor[0, 0, 1]]}]}],
|
|
RowBox[{"8",
|
|
SuperscriptBox["k", "B"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
StyleBox["rv",
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], "Cs"}], "-", "Csb"}],
|
|
TraditionalForm]],
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"bb7dc2fc-f4d1-4f31-b96a-748b6b77f596"],
|
|
"\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[
|
|
SuperscriptBox["k", "B"], "2"]}], "+", " ",
|
|
RowBox[{"4",
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", " ", "\[Alpha]"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "\[Alpha]"}], " ", "F"}], "-",
|
|
RowBox[{"4", "\[Theta]"}], " ", "+", " ",
|
|
RowBox[{"3", "\[Alpha]\[Theta]"}]}], " ", ")"}], " "}]}],
|
|
RowBox[{"16",
|
|
SuperscriptBox["k", "B"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], "-", "Cv", "-",
|
|
"Cs"}],
|
|
FontColor->RGBColor[1, 0, 0]], TraditionalForm]],ExpressionUUID->
|
|
"9d0ce739-fa34-4d9c-8bad-e568c947717e"],
|
|
"-Cvb-Csb, 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, {3.859964661770134*^9,
|
|
3.8599646674509583`*^9}, {3.8599647077855062`*^9, 3.859964710571143*^9}, {
|
|
3.859964971418037*^9, 3.859965017305278*^9}, {3.859965050558683*^9,
|
|
3.859965120106574*^9}, {3.859965243769528*^9, 3.859965244349976*^9}, {
|
|
3.859965363893175*^9, 3.859965371014966*^9}, {3.859965418507552*^9,
|
|
3.859965418508584*^9}, {3.859965514301715*^9, 3.859965523438321*^9}, {
|
|
3.859966945157424*^9, 3.85996695879265*^9}, {3.859967025729485*^9,
|
|
3.859967031644054*^9}, {3.8599676388361*^9, 3.859967705200612*^9}, {
|
|
3.859967742526573*^9, 3.859967743451955*^9}, {3.859968292694106*^9,
|
|
3.859968324381719*^9}, {3.859968445139039*^9, 3.8599684817088823`*^9}, {
|
|
3.8599685440559387`*^9,
|
|
3.859968554496804*^9}},ExpressionUUID->"5eab1056-d934-42dc-b7a0-\
|
|
307cc13977c2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
RowBox[{Cell[TextData[{
|
|
"2.If the ",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
RowBox[{
|
|
SuperscriptBox["p", "S"], "<",
|
|
SuperscriptBox["p", "VA"]}], TraditionalForm]],ExpressionUUID->
|
|
"a8d25047-a2f1-49c8-9035-4cb9f54b4d18"],
|
|
", which satisfied with ",
|
|
StyleBox["F<",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Theta]"}], "+",
|
|
RowBox[{"4", " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"kb",
|
|
RowBox[{"(",
|
|
RowBox[{"cv", "+",
|
|
StyleBox["cvb",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["-",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"rvb", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}]]}]}], ")"}],
|
|
RowBox[{"1", "-", "\[Alpha]"}]],
|
|
FontColor->RGBColor[1, 0, 0]]], "Output",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
|
|
"6e57ed6f-23c3-4837-93eb-4059ca5232ea"],
|
|
"=",
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ",
|
|
StyleBox["G",
|
|
FontColor->RGBColor[0, 1, 0]]}]}],
|
|
RowBox[{"1", "-", "\[Alpha]"}]],
|
|
FontColor->RGBColor[1, 0, 0]]],
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847688401388039*^9},ExpressionUUID->
|
|
"d012d0e4-dd80-4c42-b87f-baec2f341444"],
|
|
"\n\nthe effort is ",
|
|
Cell[BoxData[
|
|
RowBox[{"e", "=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SuperscriptBox["k", "B"]}], " ", "\[Alpha]"}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], " ", "+",
|
|
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[{
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847935384424481*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"c410a1a0-da5f-4f58-883c-6f42b2acbd79"],
|
|
"=",
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "k"}], " ", "\[Alpha]"}], "+",
|
|
StyleBox["G",
|
|
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->
|
|
"99ea5ba4-d83b-4e55-9561-f15303c08ca8"],
|
|
"\n\n the price is ",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"],
|
|
RowBox[{"(",
|
|
RowBox[{"cv", " ", "+",
|
|
RowBox[{"cvb",
|
|
StyleBox[
|
|
RowBox[{"-", "rvb"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["cs",
|
|
FontColor->RGBColor[0, 0, 1]]}]}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"],
|
|
SuperscriptBox[
|
|
SuperscriptBox["k", "B"], "2"]}], " ", "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}],
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], " ", ")"}]}]}]]}], " ", "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["k", "B"], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
RowBox[{"(", " ",
|
|
RowBox[{"\[Theta]", "+",
|
|
StyleBox[
|
|
RowBox[{"\[Beta]", " ", "cs"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}]}]}],
|
|
RowBox[{" ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]], TraditionalForm]],
|
|
"Subsection",ExpressionUUID->"a6501866-419f-42cd-8afb-36b32c26ce07"],
|
|
"=",
|
|
Cell[BoxData[
|
|
FormBox[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2",
|
|
StyleBox["G",
|
|
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->"4e5becd6-a510-46b9-9488-66af2520f09e"],
|
|
"\n The profit of satellite owner is ",
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"csb", " ", "kb"}], "+",
|
|
RowBox[{"2", " ", "cv", " ", "kb"}], "+",
|
|
RowBox[{"2", " ", "cvb", " ", "kb"}], "-",
|
|
RowBox[{"2", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"f", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"f", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"rvb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"f", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
"\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
|
|
RowBox[{"f", " ", "\[Alpha]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
"\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
"\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
"\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
"\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}],
|
|
")"}]}]}]], "Output",
|
|
GeneratedCell->False,
|
|
CellAutoOverwrite->False,
|
|
CellChangeTimes->{3.847936282163821*^9},ExpressionUUID->
|
|
"7e3d90e8-fbf0-4e6f-bb76-ee0f90e12001"],
|
|
"\n which can be written as \n ",
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[{
|
|
FormBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"F", "+", "\[Theta]"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2",
|
|
SuperscriptBox["\[Alpha]k", "B"]}]}], "]"}], "*", "G"}], "-", " ",
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "F"}], "+",
|
|
RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], " ", "-", " ",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
SuperscriptBox["k", "B"], "2"],
|
|
SuperscriptBox["\[Alpha]", "2"]}], " ", "-",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
StyleBox[
|
|
RowBox[{
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["\[Beta]",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
SuperscriptBox[
|
|
StyleBox["k",
|
|
FontColor->RGBColor[0, 0, 1]], "B"],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["Cs",
|
|
FontColor->RGBColor[0, 0, 1]]}]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"], "(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], TraditionalForm],
|
|
"\[IndentingNewLine]",
|
|
FormBox[
|
|
RowBox[{
|
|
RowBox[{"-", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"Cs", "+",
|
|
RowBox[{"2", "Cv"}], "+",
|
|
RowBox[{"2", "Cvb"}], "+", "Csb"}], ")"}]}], "+",
|
|
RowBox[{"rvb", " ", "Cs"}]}], TraditionalForm]}],
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"4e542a43-1952-492b-b9ed-cc459b48d57d"],
|
|
"\n \n the profit of vehicle manufacture is 0\n the whole chain \
|
|
payoff is ",
|
|
Cell[BoxData[{
|
|
FormBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"F", "+", "\[Theta]"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2",
|
|
SuperscriptBox["\[Alpha]k", "B"]}]}], "]"}], "*", "G"}], "-", " ",
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "F"}], "+",
|
|
RowBox[{"2", "\[Theta]"}]}], " ", ")"}]}], " ", "-", " ",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
SuperscriptBox["k", "B"], "2"],
|
|
SuperscriptBox["\[Alpha]", "2"]}], " ", "-",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
StyleBox[
|
|
RowBox[{
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["\[Beta]",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
SuperscriptBox[
|
|
StyleBox["k",
|
|
FontColor->RGBColor[0, 0, 1]], "B"],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["Cs",
|
|
FontColor->RGBColor[0, 0, 1]]}]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{
|
|
SuperscriptBox["k", "B"], "(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]], TraditionalForm],
|
|
"\[IndentingNewLine]",
|
|
FormBox[
|
|
RowBox[{
|
|
RowBox[{"-", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"Cs", "+",
|
|
RowBox[{"2", "Cv"}], "+",
|
|
RowBox[{"2", "Cvb"}], "+", "Csb"}], ")"}]}], "+",
|
|
RowBox[{"rvb", " ", "Cs"}]}], TraditionalForm]}],
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"f00bc644-e7e1-4bb8-91e5-e780ad38eb0f"],
|
|
"\n\n"
|
|
}], "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}},ExpressionUUID->
|
|
"ca79d35a-db0f-41ca-a6ee-e4b72b44038d"], "\[IndentingNewLine]",
|
|
"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
"\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
"\[IndentingNewLine]"}]}]], "Input",
|
|
CellChangeTimes->{{3.85996553673555*^9, 3.859965537895303*^9}, {
|
|
3.859968508517267*^9, 3.85996857537998*^9}, {3.85996882865051*^9,
|
|
3.859968856615267*^9}, {3.8599688880962467`*^9, 3.8599688880962763`*^9}, {
|
|
3.859969073752058*^9, 3.8599690786689568`*^9}, {3.859969112802067*^9,
|
|
3.859969120738168*^9}, {3.8599698799931726`*^9, 3.85996993006992*^9}, {
|
|
3.8599700708945427`*^9, 3.859970084032583*^9}, {3.859970372237609*^9,
|
|
3.859970384918095*^9}, {3.859970475159096*^9,
|
|
3.8599705051453323`*^9}},ExpressionUUID->"1f41be6f-140d-4759-b509-\
|
|
0375cda54ee3"],
|
|
|
|
Cell["Proof", "Text",
|
|
CellChangeTimes->{{3.8599655579003563`*^9,
|
|
3.859965582476553*^9}},ExpressionUUID->"bbb2a88a-523f-4d17-944c-\
|
|
a2823269fe9a"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"eb", ":=",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]", "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"pb", ":=",
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
|
"\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
"2"]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profitvb", ":=",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "pb"}], "+",
|
|
RowBox[{"eb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-",
|
|
RowBox[{"kb", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", "cvb", "+",
|
|
RowBox[{"rvb", " ", "cs"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], " ", "\[Beta]", " ",
|
|
"cs"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profitsb", ":=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+",
|
|
RowBox[{"eb",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs",
|
|
" ", "-",
|
|
RowBox[{"rvb", " ", "cs"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Beta]", " ", "cs"}], " ", "-",
|
|
"csb"}]}]}], "Input",
|
|
CellChangeTimes->{{3.859965597153002*^9, 3.8599656120459843`*^9}},
|
|
CellLabel->"In[24]:=",ExpressionUUID->"0b7d5c4f-716e-440f-bfcb-5f9ca2871fd2"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitvb"], "Input",
|
|
CellChangeTimes->{{3.859965615221128*^9, 3.8599656193118277`*^9}},
|
|
CellLabel->"In[28]:=",ExpressionUUID->"c9f1dc5a-681e-4a49-b904-fe00b948130a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cv"}], "-", "cvb", "+",
|
|
RowBox[{"cs", " ", "rvb"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]], "-",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]]}], ")"}]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.859965620411903*^9},
|
|
CellLabel->"Out[28]=",ExpressionUUID->"8ac4ab72-8931-4d06-bd84-8c7c6ec18a74"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%28", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[29]:=",ExpressionUUID->"2d0b76c6-5027-4bbd-9203-a0ff4496dfb2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], " ", "cvb", " ", "kb"}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "rvb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["f", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"16", " ", "cv", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"12", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "\[Beta]"}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}],
|
|
"-",
|
|
RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "+",
|
|
RowBox[{"20", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"2", " ", "f", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output",\
|
|
|
|
CellChangeTimes->{3.859965623733037*^9},
|
|
CellLabel->"Out[29]=",ExpressionUUID->"bb5054f6-16ec-4ee9-a3ff-23bc8c651bb3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitsb"], "Input",
|
|
CellChangeTimes->{{3.859965539749682*^9, 3.859965549652876*^9},
|
|
3.8599656362086687`*^9},
|
|
CellLabel->"In[30]:=",ExpressionUUID->"7697db33-6d90-4146-aed7-7b190af53a6b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"cs", " ", "rvb"}], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb"}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.859965637120964*^9},
|
|
CellLabel->"Out[30]=",ExpressionUUID->"ea18db94-38b0-4012-a31f-5257a6957bda"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%30", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[31]:=",ExpressionUUID->"4464e03f-0118-483b-aabc-30a3c4640679"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "8"}], " ", "csb", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["f", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"8", " ", "cs", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"rvb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+", "\[Beta]"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"2", " ", "f", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
|
")"}]}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.859965639085927*^9},
|
|
CellLabel->"Out[31]=",ExpressionUUID->"f4a36d0b-e7d4-4a7f-87c6-d1ab25410ade"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Profitc", ":=",
|
|
RowBox[{"Profitsb", "+", "Profitvb"}]}]], "Input",
|
|
CellChangeTimes->{{3.859965683651025*^9, 3.859965697547203*^9}},
|
|
CellLabel->"In[32]:=",ExpressionUUID->"4842f150-a839-4f48-a6ff-87a85277628a"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitc"], "Input",
|
|
CellChangeTimes->{{3.8599656990053062`*^9, 3.859965700885038*^9}},
|
|
CellLabel->"In[33]:=",ExpressionUUID->"f6a54301-c199-42b3-898e-3bd4c2c0a5d2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-", "cv", "-", "cvb", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{"f", "-",
|
|
RowBox[{"f", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[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", " ", "kb", " ", "\[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", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.859965702007778*^9},
|
|
CellLabel->"Out[33]=",ExpressionUUID->"01b893f7-07b6-4af1-b8b4-475013a166b8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%33", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[34]:=",ExpressionUUID->"a8166f51-4b4a-4114-9989-2cbeea8ca0e1"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"16", " ", "csb", " ", "kb"}], "+",
|
|
RowBox[{"16", " ", "cv", " ", "kb"}], "+",
|
|
RowBox[{"16", " ", "cvb", " ", "kb"}], "-",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["f", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"32", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"28", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"12", " ", "kb", " ",
|
|
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", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
|
")"}]}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8599657049048*^9},
|
|
CellLabel->"Out[34]=",ExpressionUUID->"09bcb560-394f-4be4-bfc6-e8536550a6e7"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
"\[IndentingNewLine]"}]], "Input",
|
|
CellChangeTimes->{{3.8599657168217916`*^9,
|
|
3.859965717101404*^9}},ExpressionUUID->"b445c6f7-e1db-4ee8-9e40-\
|
|
881ecca4efcd"],
|
|
|
|
Cell["Proof ps <pva", "Text",
|
|
CellChangeTimes->{{3.8599657223605556`*^9, 3.85996573477103*^9}, {
|
|
3.859966271125785*^9,
|
|
3.859966273378961*^9}},ExpressionUUID->"8a19ecfc-abdb-4443-83ce-\
|
|
320b143bd978"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"eb", ":=",
|
|
FractionBox[
|
|
RowBox[{"pb", "-",
|
|
RowBox[{"pb", " ", "\[Alpha]"}], "+", "\[Theta]", "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"pb", ":=",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
|
StyleBox["\[Theta]",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["+",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}],
|
|
FontColor->RGBColor[0, 0, 1]], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]}], "Input",
|
|
CellChangeTimes->{{3.859966315471581*^9, 3.859966321584263*^9}},
|
|
CellLabel->"In[5]:=",ExpressionUUID->"d412f084-bf81-46bb-8ae0-f8ff28bb18a3"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"Profitvb", ":=",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "pb"}], "+",
|
|
RowBox[{"eb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-",
|
|
RowBox[{"kb", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-", "cvb", "+",
|
|
RowBox[{"rvb", " ", "cs"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], " ", "\[Beta]", " ",
|
|
"cs"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profitsb", ":=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "\[Alpha]"}], " ", "pb"}], "+",
|
|
RowBox[{"eb",
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "pb"}]}], ")"}]}], "-", "cs",
|
|
" ", "-",
|
|
RowBox[{"rvb", " ", "cs"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Beta]", " ", "cs"}], " ", "-",
|
|
"csb"}]}], "\[IndentingNewLine]", "eb"}], "Input",
|
|
CellChangeTimes->{{3.859968615039372*^9, 3.859968616927866*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"d69b50db-242e-41ba-a4e4-8fa2baa4e4b4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
|
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.8599686175787153`*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"e56608ba-a05b-4197-ac36-0d0029cf1fab"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%15", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[16]:=",ExpressionUUID->"4b61be34-c36f-4932-8f45-7a823161a9b5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"kb", " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.8599686198455763`*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"1aaefea1-1fee-444a-a0bf-27e82c7864fd"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitsb"], "Input",
|
|
CellChangeTimes->{{3.859966348378923*^9, 3.859966354615185*^9}, {
|
|
3.859966401861518*^9, 3.859966413300989*^9}},
|
|
CellLabel->"In[11]:=",ExpressionUUID->"2e8e8a8c-f30f-4223-8dfb-5dd5e84a60ae"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"cs", " ", "rvb"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"f", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]}], ")"}]}]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+", "\[Theta]", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}],
|
|
"+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "+",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"\[Sqrt]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cv", " ", "kb"}], "+",
|
|
RowBox[{"cvb", " ", "kb"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb"}], "-",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
"2", " ", "cs", " ", "kb", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "kb", " ", "\[Alpha]", " ", "\[Beta]"}],
|
|
"+",
|
|
RowBox[{"kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"kb", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}]}], ")"}]}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.859966418911503*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"424c208b-779f-4fd3-a6d2-39b988d83dbb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%11", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[12]:=",ExpressionUUID->"2f86a84e-b5d3-47d6-a6a6-7b19f38e09c5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"csb", " ", "kb"}], "+",
|
|
RowBox[{"2", " ", "cv", " ", "kb"}], "+",
|
|
RowBox[{"2", " ", "cvb", " ", "kb"}], "-",
|
|
RowBox[{"2", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"f", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"2", " ", "cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"2", " ", "cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"f", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"rvb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+", "\[Beta]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"f", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]",
|
|
"-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
|
|
RowBox[{"f", " ", "\[Alpha]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]",
|
|
"-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]",
|
|
"-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]",
|
|
"-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}], "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]", " ",
|
|
SqrtBox[
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], " ", "rvb"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ", "cs", " ", "rvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"cs", " ", "rvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
|
RowBox[{"cs", " ", "\[Alpha]", " ", "\[Beta]"}], "+", "\[Theta]",
|
|
"-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]]}]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8599664229968157`*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"6abc3181-3d26-4f97-8c6a-37410b8a04f7"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.859968676300955*^9,
|
|
3.859968686300212*^9}},ExpressionUUID->"c6bd1305-feb7-4fa9-bdd7-\
|
|
183b6758c8d7"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.859968702426197*^9,
|
|
3.859968743525923*^9}},ExpressionUUID->"a73de7ea-e39f-4e29-b0d5-\
|
|
db97a18b58b8"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.859968735626725*^9,
|
|
3.859968745822151*^9}},ExpressionUUID->"c41cb459-5558-4323-8681-\
|
|
ea2a2ee141fd"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{808, 730},
|
|
WindowMargins->{{Automatic, 0}, {Automatic, 7}},
|
|
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
|
|
(2020\:5e743\:670813\:65e5)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"d5c0ca73-63fa-4b2a-a4bf-b18364ab72a5"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[558, 20, 280, 7, 84, "Text",ExpressionUUID->"bc3d98ee-de6f-424f-a005-b426776b8e00"],
|
|
Cell[841, 29, 1548, 41, 52, "Input",ExpressionUUID->"73a7945c-fae9-4c47-8e27-0953f37672ff"],
|
|
Cell[CellGroupData[{
|
|
Cell[2414, 74, 231, 4, 44, "Input",ExpressionUUID->"72ecdd6a-31dd-4576-b5ae-ff803c3dcc90"],
|
|
Cell[2648, 80, 383, 9, 34, "Output",ExpressionUUID->"0d896393-8278-4601-a634-d7d72fa4c318"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[3068, 94, 257, 5, 44, "Input",ExpressionUUID->"5f6554b3-15d5-40f2-9502-bd10073e75ee"],
|
|
Cell[3328, 101, 419, 10, 52, "Output",ExpressionUUID->"60a739cb-1934-49da-bce3-75a71719c058"]
|
|
}, Open ]],
|
|
Cell[3762, 114, 1022, 27, 108, "Text",ExpressionUUID->"085a58d7-785a-44f8-bbb1-85daf0d58d85"],
|
|
Cell[4787, 143, 358, 8, 49, "Input",ExpressionUUID->"bca1d2d9-ea3e-494c-a753-bffa67c6aa2b"],
|
|
Cell[CellGroupData[{
|
|
Cell[5170, 155, 179, 2, 30, "Input",ExpressionUUID->"37dd9252-02ec-47d3-b44b-0ea43e15a9ff"],
|
|
Cell[5352, 159, 1339, 38, 94, "Output",ExpressionUUID->"aa328bd5-bea8-41cd-9598-409b1fb8a5ad"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6728, 202, 1387, 39, 107, "Input",ExpressionUUID->"a28c37b6-054d-4680-9751-607d8a0d45ee"],
|
|
Cell[8118, 243, 1282, 29, 75, "Output",ExpressionUUID->"d793509a-ad25-4adf-a6fa-89fa08650d31"]
|
|
}, Open ]],
|
|
Cell[9415, 275, 258, 5, 44, "Input",ExpressionUUID->"4e2fc01f-4da4-4db7-b8df-233d843ede73"],
|
|
Cell[9676, 282, 4010, 94, 272, InheritFromParent,ExpressionUUID->"75c55c55-da28-445c-9a32-dfa885407b67"],
|
|
Cell[13689, 378, 2555, 71, 71, "Text",ExpressionUUID->"42c2bfb0-3d6d-43a7-a244-80ff8520e6cb"],
|
|
Cell[CellGroupData[{
|
|
Cell[16269, 453, 302, 5, 56, "Subsubsection",ExpressionUUID->"ca3839c7-c3ce-44d4-966b-41b91b827bc6"],
|
|
Cell[16574, 460, 900, 25, 72, "Input",ExpressionUUID->"f182f1df-f3a0-490e-8838-e8cec225bfc3"],
|
|
Cell[CellGroupData[{
|
|
Cell[17499, 489, 181, 2, 30, "Input",ExpressionUUID->"1b604f80-4e60-425c-8982-adc00df5e9db"],
|
|
Cell[17683, 493, 916, 26, 52, "Output",ExpressionUUID->"544c25d4-4ab8-4ba4-86c0-c8516b06b831"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[18636, 524, 953, 27, 105, "Input",ExpressionUUID->"cdc63833-d42b-47f1-acd3-d1a1c303dcb9"],
|
|
Cell[19592, 553, 944, 27, 52, "Output",ExpressionUUID->"f3fcd2db-df85-409d-a7c7-6acb4e704ee3"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[20573, 585, 223, 4, 44, "Input",ExpressionUUID->"8777f605-014e-4274-9abb-7ad485100c34"],
|
|
Cell[20799, 591, 939, 29, 52, "Output",ExpressionUUID->"1bbcf201-ca02-4b87-9367-d5c2ac58cc8f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[21775, 625, 976, 30, 62, "Input",ExpressionUUID->"c6189fae-c804-48b3-bcce-4252b2e9c9c0"],
|
|
Cell[22754, 657, 738, 20, 54, "Output",ExpressionUUID->"4c561dc2-e2f5-40f4-93dd-3a0ea46d5aaa"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[23529, 682, 260, 5, 44, "Input",ExpressionUUID->"2667d60d-1d12-4bb4-aca1-b7f1c252bafb"],
|
|
Cell[23792, 689, 709, 19, 55, "Output",ExpressionUUID->"55635983-ca94-4d6e-9475-7f58df527b3a"]
|
|
}, Open ]],
|
|
Cell[24516, 711, 2903, 85, 105, "Text",ExpressionUUID->"71c10bd0-ce38-4e28-a8d0-90f28ac69dbe"],
|
|
Cell[27422, 798, 2439, 60, 167, "Input",ExpressionUUID->"6d937feb-a3c5-4f10-b32c-bce0b211051d"],
|
|
Cell[CellGroupData[{
|
|
Cell[29886, 862, 187, 2, 30, "Input",ExpressionUUID->"ad622383-abb0-4b7b-8773-4d9d2f574a61"],
|
|
Cell[30076, 866, 2164, 53, 104, "Output",ExpressionUUID->"76e4e884-a294-4c78-b8ce-1f8661dde917"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[32277, 924, 163, 3, 44, "Input",ExpressionUUID->"9beacf6e-c2d9-4af7-a733-dcdd5e9e2aaf"],
|
|
Cell[32443, 929, 1489, 41, 83, "Output",ExpressionUUID->"485eafd9-f254-4ed9-9aa5-80651d0c4bf1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[33969, 975, 257, 5, 44, "Input",ExpressionUUID->"de51d7ec-b105-4965-a1a1-148b0450349d"],
|
|
Cell[34229, 982, 2481, 72, 148, "Output",ExpressionUUID->"493daee5-41e8-4783-83b3-003a5a573322"]
|
|
}, Open ]],
|
|
Cell[36725, 1057, 1266, 39, 49, "Text",ExpressionUUID->"8697bb3e-df69-4c8b-a9a8-4220343086fe"],
|
|
Cell[37994, 1098, 152, 3, 30, "Input",ExpressionUUID->"994c9b1a-b339-42fc-a0ce-13cf688beef2"],
|
|
Cell[38149, 1103, 16182, 454, 633, "Text",ExpressionUUID->"5eab1056-d934-42dc-b7a0-307cc13977c2"],
|
|
Cell[54334, 1559, 20678, 540, 1204, "Input",ExpressionUUID->"1f41be6f-140d-4759-b509-0375cda54ee3"],
|
|
Cell[75015, 2101, 149, 3, 35, "Text",ExpressionUUID->"bbb2a88a-523f-4d17-944c-a2823269fe9a"],
|
|
Cell[75167, 2106, 1889, 56, 139, "Input",ExpressionUUID->"0b7d5c4f-716e-440f-bfcb-5f9ca2871fd2"],
|
|
Cell[CellGroupData[{
|
|
Cell[77081, 2166, 181, 2, 30, "Input",ExpressionUUID->"c9f1dc5a-681e-4a49-b904-fe00b948130a"],
|
|
Cell[77265, 2170, 6601, 175, 331, "Output",ExpressionUUID->"8ac4ab72-8931-4d06-bd84-8c7c6ec18a74"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[83903, 2350, 163, 3, 44, "Input",ExpressionUUID->"2d0b76c6-5027-4bbd-9203-a0ff4496dfb2"],
|
|
Cell[84069, 2355, 2185, 56, 123, "Output",ExpressionUUID->"bb5054f6-16ec-4ee9-a3ff-23bc8c651bb3"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[86291, 2416, 207, 3, 30, "Input",ExpressionUUID->"7697db33-6d90-4146-aed7-7b190af53a6b"],
|
|
Cell[86501, 2421, 4130, 111, 211, "Output",ExpressionUUID->"ea18db94-38b0-4012-a31f-5257a6957bda"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[90668, 2537, 163, 3, 44, "Input",ExpressionUUID->"4464e03f-0118-483b-aabc-30a3c4640679"],
|
|
Cell[90834, 2542, 2026, 58, 100, "Output",ExpressionUUID->"f4a36d0b-e7d4-4a7f-87c6-d1ab25410ade"]
|
|
}, Open ]],
|
|
Cell[92875, 2603, 238, 4, 30, "Input",ExpressionUUID->"4842f150-a839-4f48-a6ff-87a85277628a"],
|
|
Cell[CellGroupData[{
|
|
Cell[93138, 2611, 180, 2, 30, "Input",ExpressionUUID->"f6a54301-c199-42b3-898e-3bd4c2c0a5d2"],
|
|
Cell[93321, 2615, 6700, 180, 309, "Output",ExpressionUUID->"01b893f7-07b6-4af1-b8b4-475013a166b8"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[100058, 2800, 163, 3, 44, "Input",ExpressionUUID->"a8166f51-4b4a-4114-9989-2cbeea8ca0e1"],
|
|
Cell[100224, 2805, 2388, 61, 123, "Output",ExpressionUUID->"09bcb560-394f-4be4-bfc6-e8536550a6e7"]
|
|
}, Open ]],
|
|
Cell[102627, 2869, 234, 5, 94, "Input",ExpressionUUID->"b445c6f7-e1db-4ee8-9e40-881ecca4efcd"],
|
|
Cell[102864, 2876, 205, 4, 35, "Text",ExpressionUUID->"8a19ecfc-abdb-4443-83ce-320b143bd978"],
|
|
Cell[103072, 2882, 2105, 52, 183, "Input",ExpressionUUID->"d412f084-bf81-46bb-8ae0-f8ff28bb18a3"],
|
|
Cell[CellGroupData[{
|
|
Cell[105202, 2938, 1188, 35, 73, "Input",ExpressionUUID->"d69b50db-242e-41ba-a4e4-8fa2baa4e4b4"],
|
|
Cell[106393, 2975, 3613, 84, 176, "Output",ExpressionUUID->"e56608ba-a05b-4197-ac36-0d0029cf1fab"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[110043, 3064, 163, 3, 44, "Input",ExpressionUUID->"4b61be34-c36f-4932-8f45-7a823161a9b5"],
|
|
Cell[110209, 3069, 1276, 36, 80, "Output",ExpressionUUID->"1aaefea1-1fee-444a-a0bf-27e82c7864fd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[111522, 3110, 228, 3, 30, "Input",ExpressionUUID->"2e8e8a8c-f30f-4223-8dfb-5dd5e84a60ae"],
|
|
Cell[111753, 3115, 11350, 260, 527, "Output",ExpressionUUID->"424c208b-779f-4fd3-a6d2-39b988d83dbb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[123140, 3380, 163, 3, 44, "Input",ExpressionUUID->"2f86a84e-b5d3-47d6-a6a6-7b19f38e09c5"],
|
|
Cell[123306, 3385, 6764, 174, 511, "Output",ExpressionUUID->"6abc3181-3d26-4f97-8c6a-37410b8a04f7"]
|
|
}, Open ]],
|
|
Cell[130085, 3562, 152, 3, 30, "Input",ExpressionUUID->"c6bd1305-feb7-4fa9-bdd7-183b6758c8d7"],
|
|
Cell[130240, 3567, 152, 3, 30, "Input",ExpressionUUID->"a73de7ea-e39f-4e29-b0d5-db97a18b58b8"],
|
|
Cell[130395, 3572, 152, 3, 30, "Input",ExpressionUUID->"c41cb459-5558-4323-8681-ea2a2ee141fd"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|