JingYiHan
/
IGB
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
IGB/B random demand.nb

10232 lines
338 KiB
Mathematica
Raw Blame History

(* 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[ 345679, 10223]
NotebookOptionsPosition[ 320511, 9791]
NotebookOutlinePosition[ 320958, 9809]
CellTagsIndexPosition[ 320915, 9806]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"kb", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv", "-",
"cvb"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "+", "b", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
"csb"}]}]}], "Input",
CellChangeTimes->{{3.860990220515719*^9, 3.86099032058632*^9}, {
3.861005206587309*^9, 3.861005231508071*^9}, {3.861005664789424*^9,
3.8610056974644327`*^9}, {3.861005732620328*^9, 3.861005738512261*^9}, {
3.8610522215142393`*^9, 3.861052221576477*^9}, {3.861053217212502*^9,
3.8610532211473427`*^9}, {3.861053508740391*^9, 3.861053513902051*^9}, {
3.861053550374921*^9, 3.861053555031969*^9}, {3.861053657633584*^9,
3.861053681512178*^9}, {3.861055518307404*^9, 3.861055554326591*^9},
3.8610557742472477`*^9, {3.861055919099469*^9, 3.8610559217328777`*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"22622599-c667-43d6-aa15-f482797f3c8c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.861055568582479*^9, 3.861055574674233*^9}, {
3.861055688877303*^9, 3.861055689519437*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"4f77d919-d1fa-4195-a1cd-8b20e64ed93e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "kb"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
CellChangeTimes->{3.8610557948722982`*^9},
CellLabel->"Out[4]=",ExpressionUUID->"65a49743-94a7-4f7d-9fb4-24d51c415c98"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
CellChangeTimes->{{3.861055578971615*^9, 3.861055594968405*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"50bfafe3-1c8a-4bf2-a0c4-bf869f977761"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.8610555962339573`*^9, 3.861055632507674*^9,
3.861055692405815*^9, 3.8610557961664877`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"68cdfb02-8974-4150-bb1f-e6557d78e4cf"]
}, Open ]],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}]], "Input",
CellChangeTimes->{{3.8610556977124453`*^9, 3.861055736241734*^9}, {
3.861055800959203*^9, 3.861055802354056*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"f13d121a-a5af-4e5d-ab7b-5262f346b76d"],
Cell[CellGroupData[{
Cell[BoxData["Profiti"], "Input",
CellChangeTimes->{{3.8610557390172663`*^9, 3.861055741614846*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"2c476e2b-46c0-4de5-aaa5-f1cbd9a777d6"],
Cell[BoxData[
RowBox[{
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861055742078331*^9, 3.86105580502885*^9,
3.8610558391252317`*^9},
CellLabel->"Out[9]=",ExpressionUUID->"f004acfe-a386-40cd-ab03-80b7409d71f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[10]:=",ExpressionUUID->"0884bae7-2907-4ccf-a0ae-4c7cbb750cb2"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb", " ",
RowBox[{"(",
RowBox[{"r", "-", "\[Beta]"}], ")"}]}], "+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}]}], ")"}]}],
RowBox[{"2", " ", "kb"}]]], "Output",
CellChangeTimes->{3.8610558406091957`*^9},
CellLabel->"Out[10]=",ExpressionUUID->"eba12880-9dd0-48a3-81d7-faf1358c3b61"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
CellChangeTimes->{{3.861055745704218*^9, 3.861055753887*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"1116407f-ee87-4be1-a41c-7c60cd82fb27"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"r", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"2", " ", "kb", " ", "\[Beta]"}], "-",
RowBox[{"l", " ", "\[Beta]"}], "+",
RowBox[{"l", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861055754297542*^9, 3.8610558452130013`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"7e763498-5076-4d27-87dd-2800d69cf5e2"]
}, Open ]],
Cell[BoxData[
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]]}]], "Input",
CellChangeTimes->{{3.861055851034358*^9, 3.861055852121978*^9}, {
3.861055982233981*^9, 3.8610559830697317`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"5148b263-f211-457c-90a7-a4a9f8e772e5"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.8610558572348547`*^9, 3.861055860156938*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"1f33de4e-3b07-4141-925f-1126b11f3336"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861055860693022*^9, 3.861055954895804*^9,
3.861055988875905*^9},
CellLabel->"Out[11]=",ExpressionUUID->"fd7b9306-7d09-44ef-9f00-a09180d397ff"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[12]:=",ExpressionUUID->"8e5c315f-f266-4cec-a66a-c97fc1618a23"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]]}]], "Output",
CellChangeTimes->{3.8610559915625763`*^9},
CellLabel->"Out[12]=",ExpressionUUID->"6d52c2d1-bc5a-46eb-8700-3115eea6a5a7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.8610558753437977`*^9, 3.8610558804672527`*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"69138082-5f1e-4aae-8d0e-3574dab93b58"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]], "-", "\[Alpha]", "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]]}]], "Output",
CellChangeTimes->{3.861055881296116*^9, 3.8610559661735163`*^9,
3.861055997546955*^9},
CellLabel->"Out[13]=",ExpressionUUID->"af48c0f3-d070-429b-9e66-59b9ecca51ba"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.861055885089404*^9, 3.8610558900973587`*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"7d1cc985-35c0-4a66-9008-4d61666adc19"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{"p", "+",
RowBox[{"b", " ", "p"}], "+",
RowBox[{"d", " ", "p"}], "-",
SuperscriptBox["p", "2"], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"b", " ", "p", " ", "\[Alpha]"}], "-",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{
3.861055890648034*^9, {3.8610559709418287`*^9, 3.861056000433331*^9}},
CellLabel->"Out[14]=",ExpressionUUID->"192bfb2f-77bd-4b5d-8a56-d362286d4c53"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]]}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.861056012771757*^9, 3.86105603127322*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"ceb7ea2e-0b05-450c-a1e0-f8a2728f1b3b"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d", "-",
RowBox[{"2", " ", "p"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]]], "Output",
CellChangeTimes->{3.861056032135511*^9},
CellLabel->"Out[15]=",ExpressionUUID->"e56d65e8-7660-4105-8927-343ce9cbe559"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.861056038254333*^9, 3.8610560471984663`*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"7882acac-75a3-49c6-b071-506ddfcb652d"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]}], "}"}],
"}"}], "\[IndentingNewLine]",
RowBox[{"p", ":=",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]}]}], "Input",
CellChangeTimes->{{3.861056094310585*^9, 3.8610560977125893`*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"652c90e8-39fd-485c-9e5a-85b778036ad4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861056098728978*^9},
CellLabel->"Out[17]=",ExpressionUUID->"602b47df-132e-465f-bc4e-5c01c542ed41"]
}, Open ]],
Cell[BoxData[
RowBox[{"l", ":=",
FractionBox[
RowBox[{"p", "+",
RowBox[{"b", " ", "p"}], "+",
RowBox[{"d", " ", "p"}], "-",
SuperscriptBox["p", "2"], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"b", " ", "p", " ", "\[Alpha]"}], "-",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Input",
CellChangeTimes->{{3.8610560783952007`*^9, 3.861056087517043*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"415ea9f5-9eb0-480d-8c88-755564d619cd"],
Cell[CellGroupData[{
Cell[BoxData["l"], "Input",
CellChangeTimes->{3.8610561035927687`*^9},
CellLabel->"In[20]:=",ExpressionUUID->"a393655d-1721-4599-945e-32dedb5ed001"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.861056104101927*^9},
CellLabel->"Out[20]=",ExpressionUUID->"c61b3fff-1fc3-4505-97e7-8c530d3e6ae3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[21]:=",ExpressionUUID->"6f9e11ba-cff0-4ba9-bb99-6b49e93e819f"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861056106035079*^9},
CellLabel->"Out[21]=",ExpressionUUID->"a7854474-d40a-4812-bccf-14286ffe931a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.86105611016556*^9},
CellLabel->"In[22]:=",ExpressionUUID->"a87f4dc9-0e9c-4c99-abf7-ddee58574d71"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "kb"}]],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.86105611053996*^9},
CellLabel->"Out[22]=",ExpressionUUID->"71edc607-3fb5-4065-a414-2d05eebe8a2d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%22", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[23]:=",ExpressionUUID->"44754003-ce44-4a6c-8527-0396d282ac7a"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.8610561131414347`*^9},
CellLabel->"Out[23]=",ExpressionUUID->"15a48fcd-d460-46b6-8750-4755869c30a9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["r"], "Input",
CellChangeTimes->{3.8610561153472977`*^9},
CellLabel->"In[24]:=",ExpressionUUID->"9b2ca569-a8f5-4cc6-b9bb-8b42e90492c9"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "kb"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "\[Theta]", "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.86105611574618*^9},
CellLabel->"Out[24]=",ExpressionUUID->"b281d954-1f6d-4d2c-ab52-1fa36e3c2ef8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%24", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[25]:=",ExpressionUUID->"f6d4f3c7-2e7a-4d4b-9d33-8b47f4d49684"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"16", " ", "kb"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861056117728375*^9},
CellLabel->"Out[25]=",ExpressionUUID->"ed39829c-34d0-49d8-8358-f58e01bfa02e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
"\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861056147334969*^9, 3.861056165185671*^9}},
CellLabel->"In[26]:=",ExpressionUUID->"eb83b968-87d7-4f6d-92e6-a62f08981d83"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "b"}], "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "d"}], "+",
RowBox[{"2", " ", "b", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "b"}], "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "d"}], "+",
RowBox[{"2", " ", "b", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861056166081455*^9},
CellLabel->"Out[26]=",ExpressionUUID->"121cb83d-89df-40dd-890c-7471081ae143"]
}, Open ]],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "\[Equal]",
"0"}], ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861056170319293*^9, 3.861056176672995*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"488bb8cc-7969-4b03-bf18-3c55542ee27b"],
Cell[BoxData[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "b"}], "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "d"}], "+",
RowBox[{"2", " ", "b", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "b"}], "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "d"}], "+",
RowBox[{"2", " ", "b", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}],
"}"}], "\[IndentingNewLine]", "\[Eta]"}], "Input",
CellChangeTimes->{{3.861056838622169*^9,
3.8610569230833187`*^9}},ExpressionUUID->"4e7aeac6-447a-4a8e-96ca-\
1c5ddd12ed77"],
Cell[TextData[{
StyleBox["We solve this game by backward induction. By checking the Hessian \
matrix, we find that \[Pi]SA is jointly concave in p and l, when ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
RowBox[{"\[Alpha]", "<",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+",
StyleBox["b",
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+",
StyleBox["b",
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
"8fb17b22-c59d-491a-be05-3f26016647fa"],
StyleBox[".in this paper, we consider the case with ",
FontColor->RGBColor[1, 0, 0]],
" ",
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+",
StyleBox["b",
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "-",
RowBox[{"16", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+",
StyleBox["b",
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "-",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "<"}]],ExpressionUUID->
"c4e9b356-f4e1-4f1e-8816-1d74862a8b01"],
Cell[BoxData[
RowBox[{"\[Alpha]", "<",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
"f174fe90-b7ef-46c0-a9b5-ae721655d02b"],
", which is the common situation because it means launch successfully \
propability is above zero and below one.",
StyleBox["\ne = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
StyleBox[
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
StyleBox[
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"eb798018-583a-4df4-911c-6f872787e2d3"],
StyleBox[", that ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
StyleBox["\[Eta]",
FontColor->RGBColor[0, 0, 1]],
RowBox[{"16", " ",
StyleBox["kb",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"2098b69c-c182-4323-8e7c-e7851585f518"],
StyleBox[", where ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
RowBox[{"\[Eta]", "=",
RowBox[{
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
StyleBox[
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]],
StyleBox["-",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]], "-", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
StyleBox["=",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
RowBox[{
StyleBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
FontColor->RGBColor[1, 0, 0]],
SuperscriptBox[
RowBox[{
StyleBox["(",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox["1",
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[1, 0, 0]],
StyleBox["d",
FontColor->RGBColor[1, 0, 0]],
StyleBox["+",
FontColor->RGBColor[0, 0, 1]],
StyleBox["b",
FontColor->RGBColor[0, 0, 1]]}],
StyleBox[")",
FontColor->RGBColor[1, 0, 0]]}], "2"]}], "-",
RowBox[{"8",
StyleBox[
RowBox[{"\[Alpha]",
StyleBox["kb",
FontColor->RGBColor[0, 0, 1]]}]]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "4", "\[Theta]"}]}]}]}]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"545c6310-a409-4df0-baea-bf0e7ca17f39"],
StyleBox["\n\nr = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
RowBox[{"\[Beta]",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
StyleBox["\[Eta]",
FontColor->RGBColor[0, 0, 1]],
RowBox[{"16", " ",
StyleBox["kb",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}], ")"}]}]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"37eac394-ae14-4e67-8eb5-e2310c97c31f"],
StyleBox[",\np =",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{" ",
RowBox[{"1", "+", "d", "+",
StyleBox["b",
FontColor->RGBColor[0, 0, 1]]}]}],
RowBox[{" ", "2"}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"9482f49c-2846-461d-9cb8-abc0a8edbd74"],
StyleBox[",",
FontColor->RGBColor[1, 0, 0]],
"\nl=",
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"(",
RowBox[{"1", "-",
StyleBox[
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
FontColor->RGBColor[0, 0, 1]], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
StyleBox[
RowBox[{"-", "2"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["b",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}],
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
StyleBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
FontColor->RGBColor[0, 0, 1]]}], "-", "\[Alpha]", "-",
RowBox[{"8", " ",
StyleBox["kb",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]], "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "=",
FractionBox[
RowBox[{"\[Eta]", "-",
RowBox[{"8", "\[Theta]",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}]],
CellChangeTimes->{3.861056106035079*^9},ExpressionUUID->
"d749e434-f7f7-4221-81d4-24cad736240c"]
}], "Text",
CellChangeTimes->{
3.861056224153466*^9, {3.861056305626143*^9, 3.861056391345166*^9}, {
3.861056442270257*^9, 3.861056446602331*^9}, {3.861056554346162*^9,
3.861056590604822*^9}, {3.8610566680161133`*^9, 3.861056676446127*^9}, {
3.861056826040263*^9, 3.8610568339466887`*^9}, {3.861056931303484*^9,
3.861056940587831*^9}, {3.86105698620573*^9, 3.8610570000090027`*^9}, {
3.861057064683057*^9, 3.861057070105824*^9}, {3.8610571576969843`*^9,
3.8610571715624447`*^9}, {3.861057221382699*^9, 3.861057246758726*^9}, {
3.86105730484378*^9, 3.861057331875882*^9}, {3.8610582349186277`*^9,
3.861058237908719*^9}},ExpressionUUID->"b2fd4a2f-7dee-4417-8218-\
11580e5b4cb5"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.861354763135537*^9,
3.861354763497374*^9}},ExpressionUUID->"86801f2c-a9bd-4d09-bf56-\
715e2f51cd95"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.86135475370887*^9, 3.861354757423744*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"10767379-1cd5-4766-9f9c-1e47138931dd"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ",
"\[Alpha]"}], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"16", " ", "kb"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ",
"\[Alpha]"}], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
"+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861354758530883*^9},
CellLabel->"Out[9]=",ExpressionUUID->"bd0f93cd-8be9-4b1c-9fc1-a632b5afdf1f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%9", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[10]:=",ExpressionUUID->"3cfc1947-7244-45f7-b4d8-00f1e53d67fc"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"128", " ", "cs", " ", "kb"}], "-",
RowBox[{"128", " ", "csb", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "csb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.861354767447896*^9},
CellLabel->"Out[10]=",ExpressionUUID->"959ea299-8ab1-4805-a46c-846eae0666b7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.861354785549317*^9, 3.861354789529354*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"b265efd6-aae4-419e-be99-ebbb553a5e55"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "-", "cvb", "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"32", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861354790723647*^9},
CellLabel->"Out[11]=",ExpressionUUID->"f37e8123-fe7d-4bca-8b24-8388afc05d13"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%11", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[12]:=",ExpressionUUID->"08795263-6444-4283-aa48-028ae25b1e5c"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.8613547940303087`*^9},
CellLabel->"Out[12]=",ExpressionUUID->"cf439fb9-9b7f-4f6a-8532-773ba8e9aa71"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}], ")"}],
"2"]}]], "Output",
CellChangeTimes->{{3.861354951075582*^9, 3.8613549566121492`*^9}},
CellLabel->"Out[16]=",ExpressionUUID->"ac0f8e80-cd0c-4e51-8b1a-8364650179c0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}], ")"}],
"2"]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[19]:=",ExpressionUUID->"502314f7-34a4-422f-9101-13ceca22d6f6"],
Cell[BoxData[
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}]], "Output",
CellChangeTimes->{3.861355010173764*^9},
CellLabel->"Out[19]=",ExpressionUUID->"30393d1a-7d8e-4f97-a169-11fd378799cc"]
}, Open ]],
Cell[BoxData[
RowBox[{"SW", ":=",
RowBox[{"Profits", "+", "Profitv", "+", "CS"}]}]], "Input",
CellLabel->"In[21]:=",ExpressionUUID->"b143a65a-1aab-40d7-9bce-0a9921c7b34b"],
Cell[CellGroupData[{
Cell[BoxData["SW"], "Input",
CellChangeTimes->{{3.861355059141673*^9, 3.861355060843017*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"c282eb88-4593-41f5-bf02-6df8d950ea90"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-", "cv", "-", "cvb", "+",
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}], ")"}],
"2"]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"32", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ",
"\[Alpha]"}], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"16", " ", "kb"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ",
"\[Alpha]"}], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
"-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
"+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
"-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861355061846346*^9},
CellLabel->"Out[22]=",ExpressionUUID->"1bc6690d-32f9-421b-84fa-b36de2748988"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%22", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[23]:=",ExpressionUUID->"a535688b-c2d4-47e4-89ee-ca45292d7c76"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"32", " ", "kb"}], "-",
RowBox[{"256", " ", "cs", " ", "kb"}], "-",
RowBox[{"256", " ", "csb", " ", "kb"}], "-",
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
RowBox[{"3", " ",
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"6", " ", "\[Alpha]"}], "-",
RowBox[{"80", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"48", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cs", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "csb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"24", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
RowBox[{"48", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"448", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"192", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"96", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"18", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"9", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.861355065526116*^9},
CellLabel->"Out[23]=",ExpressionUUID->"bc389569-6f92-411f-bac2-6db94e76b624"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8613550231587467`*^9,
3.861355049236875*^9}},ExpressionUUID->"c295f4ad-f5cf-4b84-9723-\
7e68c8b06eb1"],
Cell[BoxData[
InterpretationBox[Cell[TextData[{
StyleBox[
"Derivation of the sensitivity analysis for Model NG. How ", "Chapter",
StripOnInput->False],
StyleBox["d,k,\[Theta] ", "Chapter",
StripOnInput->False,
FontColor->RGBColor[1, 0, 0]],
StyleBox[" and will affect these optimal decisions:", "Chapter",
StripOnInput->False]
}], "Text",
CellChangeTimes->{{3.8612482456430283`*^9, 3.861248286696662*^9}, {
3.861313192952869*^9, 3.861313222945232*^9}},ExpressionUUID->
"01230cc9-50f6-4426-99f6-97e8a3e89589"],
TextCell[
Row[{
Style[
"Derivation of the sensitivity analysis for Model NG. How ", "Chapter"],
Style["d,k,\[Theta] ", "Chapter", FontColor -> RGBColor[1, 0, 0]],
Style[" and will affect these optimal decisions:", "Chapter"]}], "Text",
CellChangeTimes -> {{3.8612482456430283`*^9, 3.861248286696662*^9}, {
3.861313192952869*^9, 3.861313222945232*^9}}]]], "Output",
CellChangeTimes->{{3.861354951075582*^9, 3.8613549566182137`*^9}},
CellLabel->"Out[17]=",ExpressionUUID->"2b24f72e-49f1-4a2e-9dec-7f36ce55326f"]
}, Open ]],
Cell[BoxData[{
RowBox[{"e", ":=",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"16", " ", "kb"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{"p", ":=",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{"l", ":=",
FractionBox[
RowBox[{"p", "+",
RowBox[{"b", " ", "p"}], "+",
RowBox[{"d", " ", "p"}], "-",
SuperscriptBox["p", "2"], "-",
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"b", " ", "p", " ", "\[Alpha]"}], "-",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
"2"]}]]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"128", " ", "cs", " ", "kb"}], "-",
RowBox[{"128", " ", "csb", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "csb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{"Profitv", ":=",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{"CS", ":=",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}],
"2"]}]}], "\[IndentingNewLine]",
RowBox[{"SW", ":=",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"32", " ", "kb"}], "-",
RowBox[{"256", " ", "cs", " ", "kb"}], "-",
RowBox[{"256", " ", "csb", " ", "kb"}], "-",
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
RowBox[{"3", " ",
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"6", " ", "\[Alpha]"}], "-",
RowBox[{"80", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"48", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cs", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "csb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"24", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
RowBox[{"48", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"448", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"192", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"96", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"18", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"9", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.86135467339951*^9, 3.861354730785445*^9}, {
3.861354802807075*^9, 3.8613548227017097`*^9}, {3.8613551331748543`*^9,
3.861355152101324*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"fcd0bcce-a5b1-491b-8734-a07770779830"],
Cell[TextData[StyleBox["d", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9},ExpressionUUID->"d4ac5266-9360-4bdc-94e8-\
63da62fcee26"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861355487136073*^9, 3.861355503365728*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"36865790-2be2-483b-a593-5136f61dedf9"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861355504279214*^9},
CellLabel->"Out[32]=",ExpressionUUID->"a334d6d7-27a7-4bd0-878f-5d560ae0cdfb"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[33]:=",ExpressionUUID->"636bff0c-d9b4-4d08-8d23-a3f6365b5056"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{"1", "+", "b", "+", "d"}],
RowBox[{"8", " ", "kb"}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861356039390182*^9},
CellLabel->"Out[33]=",ExpressionUUID->"aad606bf-de63-41ec-9b2e-b814598ac81c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612485121834106`*^9, 3.861248535667307*^9}},
CellLabel->"In[34]:=",ExpressionUUID->"e8d42eeb-8727-4b59-a5d9-99197053dcd2"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Beta]"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8613555238742113`*^9},
CellLabel->"Out[34]=",ExpressionUUID->"21984930-68d0-4cf2-a50b-fcc964d95a7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Beta]"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[35]:=",ExpressionUUID->"63306ba9-13f5-4990-b14e-6f17f3bcdfbf"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Beta]"}],
RowBox[{"8", " ", "kb"}]]}]], "Output",
CellChangeTimes->{3.861355526182228*^9},
CellLabel->"Out[35]=",ExpressionUUID->"d1e754aa-0eca-4a09-b8d1-f5ae2efdaa05"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248538260623*^9, 3.86124854625562*^9}},
CellLabel->"In[36]:=",ExpressionUUID->"fa515dee-1843-4b60-befa-ef0b6991a5ad"],
Cell[BoxData[
FractionBox[
RowBox[{
FractionBox["1", "2"], "+",
FractionBox["b", "2"], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+",
FractionBox["d", "2"], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
FractionBox["\[Alpha]", "2"], "-",
FractionBox[
RowBox[{"b", " ", "\[Alpha]"}], "2"], "-",
FractionBox[
RowBox[{"d", " ", "\[Alpha]"}], "2"]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.861355540007183*^9},
CellLabel->"Out[36]=",ExpressionUUID->"8fae8c56-ea99-4a42-94bb-c4462c44a8d9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
FractionBox["1", "2"], "+",
FractionBox["b", "2"], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+",
FractionBox["d", "2"], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
FractionBox["\[Alpha]", "2"], "-",
FractionBox[
RowBox[{"b", " ", "\[Alpha]"}], "2"], "-",
FractionBox[
RowBox[{"d", " ", "\[Alpha]"}], "2"]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[37]:=",ExpressionUUID->"18b02d66-c536-4ba4-b9e3-ecdc73e1aea9"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "+", "b", "+", "d"}],
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}]]], "Output",
CellChangeTimes->{3.861355543180388*^9},
CellLabel->"Out[37]=",ExpressionUUID->"29ae2e5e-4101-46e2-a201-a3521481c783"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248565914627*^9, 3.86124856972899*^9}},
CellLabel->"In[38]:=",ExpressionUUID->"35f7871b-cb56-43c2-b6fc-2ae924678879"],
Cell[BoxData[
FractionBox["1", "2"]], "Output",
CellChangeTimes->{3.86135555854335*^9},
CellLabel->"Out[38]=",ExpressionUUID->"c67e7285-4c59-4e1d-b374-abcacef33d03"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248582790799*^9, 3.861248589982791*^9}},
CellLabel->"In[39]:=",ExpressionUUID->"162ea125-050b-4112-be23-fa9243139a38"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.861355567665118*^9},
CellLabel->"Out[39]=",ExpressionUUID->"460b490a-7307-483c-8a49-359ce7ad682c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%39", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[40]:=",ExpressionUUID->"5ee29e88-8ef9-4269-b8ae-00262d7f623b"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"32", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861355576800043*^9},
CellLabel->"Out[40]=",ExpressionUUID->"8191f1ff-9219-4d97-acee-e135d1a930e2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612485977999077`*^9, 3.86124862532718*^9}},
CellLabel->"In[41]:=",ExpressionUUID->"76f9204b-b496-4e0c-8e02-24ba19f308ba"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.86135558910231*^9},
CellLabel->"Out[41]=",ExpressionUUID->"0f596fbb-fcac-4d93-9cc3-7649db470d7f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%41", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[42]:=",ExpressionUUID->"679f06b7-2752-49ca-a039-37fe62076831"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"64", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861355591256983*^9},
CellLabel->"Out[42]=",ExpressionUUID->"cf416d9b-bf1b-4638-afcf-a0e5a959e4c9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612486502431192`*^9, 3.861248653478381*^9}},
CellLabel->"In[43]:=",ExpressionUUID->"34eec4d6-951e-480f-ae8c-513730cf92a9"],
Cell[BoxData[
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]], "Output",
CellChangeTimes->{3.861355606694087*^9},
CellLabel->"Out[43]=",ExpressionUUID->"700bf854-a1c7-417a-9d32-4676ad86ff11"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248637509153*^9, 3.8612486403131037`*^9}},
CellLabel->"In[44]:=",ExpressionUUID->"b3be08ac-ece4-4cba-a084-037c86afd90c"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"18", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"18", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"12", " ",
SuperscriptBox["b", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"36", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.861355615059842*^9},
CellLabel->"Out[44]=",ExpressionUUID->"cb03775d-29a9-4980-9e03-8dc3a4ba2227"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%44", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[45]:=",ExpressionUUID->"2d9c6b61-04c7-4af7-a75b-ac523513f7b2"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"64", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"16", " ", "kb"}], "+",
RowBox[{"3", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ", "\[Alpha]"}], "+",
RowBox[{"24", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ", "\[Theta]"}], "+",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",\
CellChangeTimes->{3.861355617255086*^9},
CellLabel->"Out[45]=",ExpressionUUID->"dab62930-88f5-486a-9366-2e1eb5dbfb8a"]
}, Open ]],
Cell[TextData[StyleBox["kb", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.861249011919739*^9, 3.861249013901259*^9}, {
3.8613556745513268`*^9,
3.8613556791992617`*^9}},ExpressionUUID->"ccc0f5bd-3182-4064-886f-\
7c9efd15dbb3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861249028324807*^9, 3.861249033275959*^9},
3.861355662277903*^9},
CellLabel->"In[47]:=",ExpressionUUID->"3b25e725-e688-46a8-9eff-3482f6494e89"],
Cell[BoxData[
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["kb", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.86135563250181*^9, 3.861355662931871*^9},
CellLabel->"Out[47]=",ExpressionUUID->"0c7fe123-2027-45a6-bacb-71294c7e408b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["kb", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[48]:=",ExpressionUUID->"d84108cd-485c-4e9e-9eba-f9dbbbdac1a4"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"1", "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox["kb", "2"]}]]}]], "Output",
CellChangeTimes->{3.861355664739793*^9},
CellLabel->"Out[48]=",ExpressionUUID->"e25bc7b6-4371-4a1c-af19-ab0797fd7819"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861249057645466*^9, 3.8612490686913433`*^9},
3.8613556848469763`*^9},
CellLabel->"In[49]:=",ExpressionUUID->"a5a95690-c04c-4c68-b172-1312e649e785"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "16"}], "+",
RowBox[{"8", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["kb", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"16", " ", "kb"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
")"}]}]}]}]], "Output",
CellChangeTimes->{3.861355685589377*^9},
CellLabel->"Out[49]=",ExpressionUUID->"375938f2-591f-42ba-87d5-88c557939a37"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "16"}], "+",
RowBox[{"8", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ",
SuperscriptBox["kb", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"16", " ", "kb"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[50]:=",ExpressionUUID->"93b76d8d-2552-4611-a525-a46c9f27b27e"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["kb", "2"]}]]], "Output",
CellChangeTimes->{3.8613556873077297`*^9},
CellLabel->"Out[50]=",ExpressionUUID->"ac826077-037f-4f9a-baf9-729672fa8225"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861249083926429*^9, 3.861249084910692*^9}, {
3.861249116522406*^9, 3.861249118236779*^9}, 3.861355701989264*^9},
CellLabel->"In[51]:=",ExpressionUUID->"7957b8f2-b2e0-4bdd-bbd1-25fda1331409"],
Cell[BoxData[
RowBox[{"-",
FractionBox["\[Alpha]",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output",
CellChangeTimes->{3.861355703105155*^9},
CellLabel->"Out[51]=",ExpressionUUID->"7faae952-4ad9-4b17-831f-ca887abc5836"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861249139095232*^9, 3.86124914379568*^9},
3.861355712484576*^9},
CellLabel->"In[52]:=",ExpressionUUID->"74a55e8c-b2da-4adc-ba34-03fe0a78787b"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861355713259906*^9},
CellLabel->"Out[52]=",ExpressionUUID->"3c5ebfbf-48b4-4af8-98e8-6f5af8e618d7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861249146429496*^9, 3.861249160423946*^9},
3.8613557232282877`*^9},
CellLabel->"In[53]:=",ExpressionUUID->"9229001f-aaf2-4b25-a697-2d56d1cce99f"],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "128"}], " ", "cs"}], "-",
RowBox[{"128", " ", "csb"}], "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "cs", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "csb", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "cs", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "csb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"64", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"128", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"128", " ", "cs", " ", "kb"}], "-",
RowBox[{"128", " ", "csb", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"256", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "csb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.8613557238378468`*^9},
CellLabel->"Out[53]=",ExpressionUUID->"61bcc719-a499-4150-a6d9-5e45e331d6d6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%53", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[54]:=",ExpressionUUID->"8148a72f-4ff2-46b1-bb02-c92435f1f973"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"128", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"6", " ", "d"}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861355726118887*^9},
CellLabel->"Out[54]=",ExpressionUUID->"228fd36a-c629-4e67-bb83-149e54e110cf"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861249240872067*^9, 3.861249247161824*^9}, {
3.8613542357816467`*^9, 3.861354236513658*^9}, 3.861355738295782*^9},
CellLabel->"In[55]:=",ExpressionUUID->"7ffa79f9-4233-4839-bd09-9ae9cb9c276f"],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "256"}], " ", "cv"}], "-",
RowBox[{"256", " ", "cvb"}], "+",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"32", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"32", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"384", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"64", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "kb"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"8", " ", "kb"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861355738899746*^9},
CellLabel->"Out[55]=",ExpressionUUID->"faf1b65f-8ca3-4a7e-b7f0-07407c72b2fe"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%55", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[56]:=",ExpressionUUID->"fdfbcbb6-ad9e-411c-8c6e-45062f92f221"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"192", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"6", " ", "d"}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8613557413406267`*^9},
CellLabel->"Out[56]=",ExpressionUUID->"7c267371-5de8-4c26-993f-850a2bae5a66"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"y1", ":=",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+", "b"}], ")"}], "2"]}], " ", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+",
RowBox[{"16", "\[Alpha]", " ", "kb",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+", "b"}], ")"}], "2"]}], " ", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"16", "\[Alpha]", " ", "kb"}]}], ")"}]}], "-",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"192", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"6", " ", "d"}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
")"}]}]}], "\[IndentingNewLine]", "y1"}], "Input",
CellChangeTimes->{{3.86183230218478*^9, 3.861832362196158*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"502df721-a551-4df8-857d-aa0fe26f7cf6"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"2", " ", "\[Alpha]"}], "-",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"192", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"6", " ", "d"}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+",
RowBox[{"16", " ", "kb", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8618323650574512`*^9},
CellLabel->"Out[2]=",ExpressionUUID->"899dc8d1-d941-4fd5-ba64-98bbce02e055"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%2", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[3]:=",ExpressionUUID->"9fb2c422-61f4-4c97-ab8e-e4b467c0c6a7"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861832367652074*^9},
CellLabel->"Out[3]=",ExpressionUUID->"5ec71b49-f565-4913-b363-295876dbc3c9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{
3.8612495232221518`*^9, {3.861251176934113*^9, 3.861251199247745*^9},
3.861355753133234*^9},
CellLabel->"In[57]:=",ExpressionUUID->"e04045c6-9ef1-4e41-aaab-78e59b313a01"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8613557537680483`*^9},
CellLabel->"Out[57]=",ExpressionUUID->"034a4146-f075-4c35-abd9-1fee709f9938"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861251202780447*^9, 3.861251207030128*^9},
3.8613557623609943`*^9},
CellLabel->"In[58]:=",ExpressionUUID->"8205945c-97fa-4543-812a-8967adb242b0"],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"32", "-",
RowBox[{"256", " ", "cs"}], "-",
RowBox[{"256", " ", "csb"}], "-",
RowBox[{"256", " ", "cv"}], "-",
RowBox[{"256", " ", "cvb"}], "-",
RowBox[{"80", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cs", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "csb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "\[Alpha]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cs", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "csb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{"256", " ", "\[Theta]"}], "+",
RowBox[{"448", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"192", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"32", " ", "kb"}], "-",
RowBox[{"256", " ", "cs", " ", "kb"}], "-",
RowBox[{"256", " ", "csb", " ", "kb"}], "-",
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
RowBox[{"3", " ",
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"6", " ", "\[Alpha]"}], "-",
RowBox[{"80", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"48", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cs", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "csb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "cvb", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"24", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
RowBox[{"48", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"448", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"192", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"96", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"18", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"9", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.8613557629062223`*^9},
CellLabel->"Out[58]=",ExpressionUUID->"695e5983-6353-4926-a375-16f88b7cea49"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%58", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[59]:=",ExpressionUUID->"2bb8d5c3-51d7-40b7-b71a-5d57ae266472"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"3", " ",
SuperscriptBox["b", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["b", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"6", " ", "\[Alpha]"}], "+",
RowBox[{"3", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"24", " ", "\[Theta]"}], "-",
RowBox[{"48", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"96", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"12", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"12", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"6", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"6", " ", "d"}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861355767583869*^9},
CellLabel->"Out[59]=",ExpressionUUID->"b5aee721-6953-41e0-9e68-5119e92b50df"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", Cell[TextData[StyleBox[
"\[Theta]", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.861249019985586*^9, 3.861249022197942*^9}},
ExpressionUUID->"09df329b-3060-469f-a48e-82b7c0abfc35"]}]], "Input",
CellChangeTimes->{{3.861355776296237*^9,
3.861355776814032*^9}},ExpressionUUID->"1ac28e4b-02b5-4173-97c8-\
e766532e74cb"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861251420607563*^9, 3.861251424437109*^9}},
CellLabel->"In[60]:=",ExpressionUUID->"cd39fc84-81ac-43e5-9c8f-908aade20032"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861355785635529*^9},
CellLabel->"Out[60]=",ExpressionUUID->"94d9c025-b709-48e9-9aaa-f9ffb06c30b8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[61]:=",ExpressionUUID->"dd7d0926-3589-4976-97ca-aa662d8f0b63"],
Cell[BoxData[
FractionBox["1",
RowBox[{"4", " ", "kb"}]]], "Output",
CellChangeTimes->{3.861355787897264*^9},
CellLabel->"Out[61]=",ExpressionUUID->"a8e3d87e-1fff-46be-9b8d-20b605831169"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861251434245288*^9, 3.861251440854623*^9}},
CellLabel->"In[62]:=",ExpressionUUID->"60a617ad-0fd2-45ee-b932-1b6e7fcc1bfb"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861355796803481*^9},
CellLabel->"Out[62]=",ExpressionUUID->"65ab2001-522e-42fc-af96-7fe894511a81"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[63]:=",ExpressionUUID->"9cdf4a82-8ff4-4a83-9038-fc2ed732c27d"],
Cell[BoxData[
RowBox[{"-",
FractionBox["\[Beta]",
RowBox[{"4", " ", "kb"}]]}]], "Output",
CellChangeTimes->{3.8613557987668037`*^9},
CellLabel->"Out[63]=",ExpressionUUID->"7a691ed0-e0b1-4ea2-82b4-c5cec906df7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861251449822323*^9, 3.861251461670189*^9}},
CellLabel->"In[64]:=",ExpressionUUID->"eab168fa-ed6a-4f19-be63-b14e260998cc"],
Cell[BoxData[
FractionBox["1",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861355808777335*^9},
CellLabel->"Out[64]=",ExpressionUUID->"d08121c4-4221-46fc-8aa7-bae92fe801b8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8612515165075274`*^9, 3.861251520397028*^9}},
CellLabel->"In[65]:=",ExpressionUUID->"d3b2150e-1bcd-44b9-a5e8-ffaebc8f786f"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8613558222039623`*^9},
CellLabel->"Out[65]=",ExpressionUUID->"e7002bfd-c86a-44ac-a829-bf97f10becf3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8612515253354683`*^9, 3.861251540210231*^9}},
CellLabel->"In[66]:=",ExpressionUUID->"2157f59d-9837-4c19-a10d-636b40b2e48d"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"64", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\
CellChangeTimes->{3.8613558451291237`*^9},
CellLabel->"Out[66]=",ExpressionUUID->"3be84402-78e3-4c93-afd8-e79b30e16504"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"64", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[67]:=",ExpressionUUID->"166caeb8-362b-4e2b-88e1-ab27dfe72b20"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.861355847863192*^9},
CellLabel->"Out[67]=",ExpressionUUID->"16345504-7962-4f80-9711-0aca4a65b29f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8613558844596786`*^9, 3.861355896949232*^9}},
CellLabel->"In[68]:=",ExpressionUUID->"85fe5016-4489-4d0f-9c79-e664dbe0f715"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"256", " ", "kb"}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"320", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\
CellChangeTimes->{3.8613558980435*^9},
CellLabel->"Out[68]=",ExpressionUUID->"f780ab0f-4176-42bb-bfdb-c1250480d0db"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"8", "-",
RowBox[{"256", " ", "kb"}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"320", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[69]:=",ExpressionUUID->"77105c8c-ed0f-4b33-88f9-d2b32447b7db"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"32", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"32", " ", "kb"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.8613559004660254`*^9},
CellLabel->"Out[69]=",ExpressionUUID->"2d47973c-6659-4f10-8330-c4c9ce6d2c09"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861355904022402*^9, 3.86135591695012*^9}},
CellLabel->"In[70]:=",ExpressionUUID->"2532da99-d443-46a9-a6ec-5aa407199e86"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861355917949387*^9},
CellLabel->"Out[70]=",ExpressionUUID->"52cf63ec-cc7f-42b6-90e8-234c7165ecdd"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861355919805997*^9, 3.861355926893667*^9}},
CellLabel->"In[71]:=",ExpressionUUID->"30b70b5e-e5b2-4397-b498-649ff3c97627"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"24", "-",
RowBox[{"256", " ", "kb"}], "+",
RowBox[{"24", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"48", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"24", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"48", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"48", " ", "\[Alpha]"}], "+",
RowBox[{"448", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"96", " ", "\[Theta]"}], "-",
RowBox[{"192", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"96", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\
CellChangeTimes->{3.86135592792306*^9},
CellLabel->"Out[71]=",ExpressionUUID->"85759b29-c7ab-4052-8726-baabf84db000"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "kb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"24", "-",
RowBox[{"256", " ", "kb"}], "+",
RowBox[{"24", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"48", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"24", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"48", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"48", " ", "\[Alpha]"}], "+",
RowBox[{"448", " ", "kb", " ", "\[Alpha]"}], "+",
RowBox[{"24", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"96", " ", "\[Theta]"}], "-",
RowBox[{"192", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"96", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[72]:=",ExpressionUUID->"a9635d32-84ff-4cc9-a58b-ffc8ee0c2245"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"32", " ", "kb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"32", " ", "kb"}], "+",
RowBox[{"3", " ",
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"6", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ", "\[Alpha]"}], "-",
RowBox[{"24", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ", "\[Theta]"}], "+",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.861355930978174*^9},
CellLabel->"Out[72]=",ExpressionUUID->"1a2f9063-ab2a-448f-b016-e51ead5070bc"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
StyleBox[".2", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["When", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["the", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["contract", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["launch", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["price", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["is", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["the", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["acceptal", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["price", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox["for", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
StyleBox["VM", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[":", "Chapter",
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}]}]}]], "Input",
CellChangeTimes->{{3.861681707830474*^9, 3.861681708192264*^9}, {
3.8616818081290207`*^9,
3.861681834804942*^9}},ExpressionUUID->"97a82ba9-0a05-49bb-bb6e-\
573d0620c955"],
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"kb", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv", "-",
"cvb"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "+", "b", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
"csb"}]}]}], "Input",
CellChangeTimes->{{3.860990220515719*^9, 3.86099032058632*^9}, {
3.861005206587309*^9, 3.861005231508071*^9}, {3.861005664789424*^9,
3.8610056974644327`*^9}, {3.861005732620328*^9, 3.861005738512261*^9}, {
3.8610522215142393`*^9, 3.861052221576477*^9}, {3.861053217212502*^9,
3.8610532211473427`*^9}, {3.861053508740391*^9, 3.861053513902051*^9}, {
3.861053550374921*^9, 3.861053555031969*^9}, {3.861053657633584*^9,
3.861053681512178*^9}, {3.861055518307404*^9, 3.861055554326591*^9},
3.8610557742472477`*^9, {3.861055919099469*^9, 3.8610559217328777`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"b2ec7bfc-6dc1-46ac-9d6a-e316302aa1ad"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "kb"}]]}]}], "Input",
CellChangeTimes->{{3.8610556977124453`*^9, 3.861055736241734*^9}, {
3.861055800959203*^9, 3.861055802354056*^9}, {3.861736480542513*^9,
3.861736481177373*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"5d90646b-150f-44a0-a219-b12c3fc5682c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"Profitv", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.8616818904846277`*^9, 3.861681906956009*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"b3578550-328b-44c4-b8fd-7204f3a6fd42"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
FractionBox["\[Theta]", "kb"], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "kb"], "-",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"cv", "+", "cvb", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cvb", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["kb"]]}],
RowBox[{
FractionBox["1", "kb"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "kb"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "kb"]}]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
FractionBox["\[Theta]", "kb"], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "kb"], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"cv", "+", "cvb", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cvb", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["kb"]]}],
RowBox[{
FractionBox["1", "kb"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "kb"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "kb"]}]]}], "}"}]}], "}"}]], "Output",\
CellChangeTimes->{3.861736492272715*^9},
CellLabel->"Out[7]=",ExpressionUUID->"bd05b796-3829-45ad-b7ef-2a994f2443e6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
FractionBox["\[Theta]", "kb"], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "kb"], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"cv", "+", "cvb", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "cvb", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["kb"]]}],
RowBox[{
FractionBox["1", "kb"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "kb"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "kb"]}]], "]"}]], "Input",
CellChangeTimes->{{3.861682275473695*^9, 3.86168232427803*^9}, {
3.861736508785391*^9, 3.861736509875758*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"aacdd317-5e4a-461d-b252-c61cb2d43d27"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.8617365111002493`*^9},
CellLabel->"Out[8]=",ExpressionUUID->"13e80679-c5e0-431f-b251-da6129d5fc8a"]
}, Open ]],
Cell[BoxData[
RowBox[{"l", ":=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Input",
CellChangeTimes->{{3.861736843149665*^9, 3.8617368488277807`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"ce1be964-e901-4f61-930d-85a9c86142e7"],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.8617368572172337`*^9},
CellLabel->"In[10]:=",ExpressionUUID->"461d5fe9-9a38-486d-a111-d00e2348c33f"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "kb"}]],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.8617368576557713`*^9},
CellLabel->"Out[10]=",ExpressionUUID->"f6d2e3fc-f2e3-4fbc-acb5-7ac4cb9d03e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "kb"}]],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[11]:=",ExpressionUUID->"5236f94f-c7cf-4a80-80a7-154701942461"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8617368608905573`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"e996849b-b59a-4143-8c5f-9cc526e0ac6b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["r"], "Input",
CellChangeTimes->{3.861736948480525*^9},
CellLabel->"In[12]:=",ExpressionUUID->"5dcaa0cc-5b77-4e8a-9db0-ba37d512be13"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "kb"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "\[Theta]", "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.8617369491174383`*^9},
CellLabel->"Out[12]=",ExpressionUUID->"a708ae7f-efbb-4050-993e-5719d0263817"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "kb"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb"}], "-", "\[Theta]", "-",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[13]:=",ExpressionUUID->"1ac60d9a-30ad-40c0-b3b9-7ff3341cd676"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861736951060532*^9},
CellLabel->"Out[13]=",ExpressionUUID->"fe949ff0-6b08-4af6-ab20-bfc10bbff3bb"]
}, Open ]],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.861737043302474*^9, 3.861737052257009*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"d4c7577b-d9be-4019-887e-a17b6e14dda8"],
Cell[BoxData[
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.861737054016695*^9, 3.861737059033628*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"b252de20-c628-4913-a573-b972ae30673d"],
Cell[BoxData[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d", "+", "b"}], "2"]}]], "Input",
CellChangeTimes->{{3.8617370620975847`*^9, 3.861737079966044*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"be59198a-7ae9-4d33-ac01-c4399e7bb068"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.861737081670052*^9, 3.86173708547757*^9}, {
3.861737120580894*^9, 3.86173712199349*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"fbb310dd-50ba-4c71-9c9e-87540f52d3a4"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "-",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
")"}]}], "-",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}], "+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.8617371228039017`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"3d3d6344-bf2d-438c-9be7-5b469384bc33"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%17", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[18]:=",ExpressionUUID->"17f26d6a-ce2b-44f1-a72c-246a173c0259"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}]}]], "Output",
CellChangeTimes->{3.861737128726554*^9},
CellLabel->"Out[18]=",ExpressionUUID->"80dd1941-c327-4f4d-8a85-e05ae186c74e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]",
" ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
"+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}],
")"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.861737137739292*^9, 3.861737145861573*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"2734a024-b714-4b46-86d8-9666e6b3ec26"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861737147905596*^9},
CellLabel->"Out[19]=",ExpressionUUID->"56b77ff4-37a3-4324-aa14-b76ba0ee2960"]
}, Open ]],
Cell[TextData[{
StyleBox["Derivation of the sensitivity analysis for Model NG. How ",
"Chapter"],
StyleBox["d,k,\[Theta] ", "Chapter",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" and will affect these optimal decisions:", "Chapter"]
}], "Text",
CellChangeTimes->{{3.8612482456430283`*^9, 3.861248286696662*^9}, {
3.861313192952869*^9,
3.861313222945232*^9}},ExpressionUUID->"85f9cb54-dd8a-4144-919e-\
db6775cb1996"],
Cell[BoxData[{
RowBox[{"l", ":=",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
"2"]]}], "\[IndentingNewLine]",
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d", "+", "b"}], "2"]}], "\[IndentingNewLine]",
RowBox[{"e", ":=",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
")"}]}]]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
")"}]}]]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"CS", ":=",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+", "b"}], ")"}],
"2"]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SW", ":=",
RowBox[{
RowBox[{"-", "cs"}], "-", "csb", "+",
RowBox[{
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "+", "b"}], ")"}], "2"]}]}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.861744572596211*^9, 3.861744604364624*^9}, {
3.861744644572977*^9,
3.86174480705926*^9}},ExpressionUUID->"18c181ff-b183-4f13-8289-\
5fb47c9b6d4c"],
Cell[TextData[StyleBox["d", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9},ExpressionUUID->"311e9972-2f49-44b9-94ae-\
c40d0dafa928"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861695456134532*^9, 3.86169545959162*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"0697031f-f113-4183-82c0-7ddaa585a57a"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8617448225779676`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"2965273d-b8d7-49e7-8b77-5abc48ee38a1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861744845472147*^9, 3.8617448519936113`*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"e9fa7a8a-e1e3-4c03-a0bb-5a747b95c166"],
Cell[BoxData[
FractionBox["1", "2"]], "Output",
CellChangeTimes->{3.86174485336444*^9},
CellLabel->"Out[18]=",ExpressionUUID->"f98429ca-11f6-43e6-ae20-f205dd47e670"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861744874602292*^9, 3.8617448785115757`*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"432acba8-bf4c-4def-a093-1c8cf72020be"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]}]}]], "Output",
CellChangeTimes->{3.861744879044697*^9},
CellLabel->"Out[19]=",ExpressionUUID->"003ec3c0-2c6a-4630-8a58-3a7e408d4426"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[20]:=",ExpressionUUID->"e5963afa-9815-45cd-80c0-3282bd513d1f"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"2", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861744881179736*^9},
CellLabel->"Out[20]=",ExpressionUUID->"1f37698f-a36a-4c34-b103-5a2ab171af51"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861745005182477*^9, 3.8617450080844393`*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"f2bd0b5e-f9da-45ae-a7e0-f7c96c0e05e9"],
Cell[BoxData[
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]], "Output",
CellChangeTimes->{3.861745008606542*^9},
CellLabel->"Out[21]=",ExpressionUUID->"ce9ad13f-1292-4869-b390-30aa9265823c"]
}, Open ]],
Cell[TextData[StyleBox["kb", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.861616017426148*^9, 3.861616018912632*^9},
3.861745095869121*^9},ExpressionUUID->"5ec6b820-c00b-4822-a1e2-\
1ec9ef337486"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.8617450617683153`*^9, 3.86174506488369*^9},
3.861745097815997*^9},
CellLabel->"In[23]:=",ExpressionUUID->"c03905fb-c07c-4434-b7fc-e4d498dc5694"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SqrtBox["kb"]}]], "-",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{"2", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861745065636195*^9, 3.8617450990098753`*^9},
CellLabel->"Out[23]=",ExpressionUUID->"39a67659-08b4-45ab-b1a8-3fb142603ea1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SqrtBox["kb"]}]], "-",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{"2", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[24]:=",ExpressionUUID->"fc36dd34-229a-4232-9845-43d00e0c0bf0"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"cvb", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}],
RowBox[{"2", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.861745100591271*^9},
CellLabel->"Out[24]=",ExpressionUUID->"c5ca76ab-ce1d-4a8f-ad9f-4a6d3954acf4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861745214908535*^9, 3.861745218202643*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"1eb6d4e0-109e-4936-853b-9d06c4222a60"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["kb"]}]]}], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861745218715928*^9},
CellLabel->"Out[25]=",ExpressionUUID->"3349dd95-10ad-4214-ada5-cf1fdd15497f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["kb"]}]]}], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}],
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[26]:=",ExpressionUUID->"724fd5c9-e567-4b89-9027-5c613fcc9da0"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cv", "+", "cvb", "-",
RowBox[{"cv", " ", "\[Alpha]"}], "-",
RowBox[{"cvb", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.861745220857687*^9},
CellLabel->"Out[26]=",ExpressionUUID->"5c345bc1-d331-4034-a536-bcc5d8916e39"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.861745320524662*^9, 3.861745323442819*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"de5531a0-841e-4786-930d-7d2d031ba06c"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["kb"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.861745323801879*^9},
CellLabel->"Out[27]=",ExpressionUUID->"47870d90-643d-4965-8303-092a9beba5f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["kb"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[28]:=",ExpressionUUID->"61bfd334-2733-4d2a-bf37-3cbd67ca89b3"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["kb"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.861745325993544*^9},
CellLabel->"Out[28]=",ExpressionUUID->"55bb34b0-46be-4da2-9a15-e0166aba5fdb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "kb"}], "]"}]], "Input",
CellChangeTimes->{{3.8616977887216*^9, 3.861697795991705*^9}, {
3.861745460374744*^9, 3.861745461066736*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"0624b405-8b89-410f-b5ea-721564e6cfec"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "-",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["kb"]]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["kb"]]}], ")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SqrtBox["kb"]}]]}], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}]}]], "Output",\
CellChangeTimes->{3.8617454614002047`*^9},
CellLabel->"Out[29]=",ExpressionUUID->"43978bda-7516-4345-a8d2-9667ac6cd75f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%29", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[30]:=",ExpressionUUID->"eabbe7de-395f-4c20-a3b4-2264234f8cb0"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"16", " ",
SuperscriptBox["kb", "2"], " ",
SuperscriptBox["\[Alpha]", "3"]}], "-", "\[Theta]", "-",
RowBox[{"2", " ", "b", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "b", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"2", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "b", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "b", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "b", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["b", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "b", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"8", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"8", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+",
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"8", " ",
SuperscriptBox["kb",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]], "Output",
CellChangeTimes->{3.861745463479477*^9},
CellLabel->"Out[30]=",ExpressionUUID->"2701462e-2ab3-481a-ba3e-bb59a6a0d081"]
}, Open ]],
Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.8616160220090647`*^9,
3.861616023208786*^9}},ExpressionUUID->"d4b7714d-d0ec-47ce-bc25-\
5bede3164055"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8617466050977983`*^9, 3.86174660879852*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"e044887e-29bf-4811-b9a8-012ef1f98ce8"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"1", "-", "\[Alpha]"}],
RowBox[{"2", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}]], "Output",
CellChangeTimes->{3.861746609619177*^9},
CellLabel->"Out[31]=",ExpressionUUID->"84962d6b-45da-49cc-b64b-9d3f1dfc1ff9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
FractionBox[
RowBox[{"1", "-", "\[Alpha]"}],
RowBox[{"2", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[32]:=",ExpressionUUID->"3dbac673-5c87-4ae5-8bf3-c89bb76bf26b"],
Cell[BoxData[
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.8617466255871267`*^9},
CellLabel->"Out[32]=",ExpressionUUID->"2f8af0b2-ed9f-4e85-a3e9-00a46136e3ff"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861746667394491*^9, 3.8617466703271627`*^9}},
CellLabel->"In[33]:=",ExpressionUUID->"35f7c0a1-4374-4651-9308-5092cb7eb58f"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.861746670962805*^9},
CellLabel->"Out[33]=",ExpressionUUID->"883b033c-88ff-4eeb-99c1-d3237860b9ed"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[34]:=",ExpressionUUID->"117c3fd2-1081-4be8-b5de-d499a5ff4afd"],
Cell[BoxData[
RowBox[{"-",
FractionBox["\[Beta]",
RowBox[{"2", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}]], "Output",
CellChangeTimes->{3.861746673520009*^9},
CellLabel->"Out[34]=",ExpressionUUID->"92155e93-f98a-46a4-bd9f-756358faccfb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.86174668943569*^9, 3.861746693662462*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"8db3824f-29c7-4fe8-8227-ed98ebb66586"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.861746694423976*^9},
CellLabel->"Out[35]=",ExpressionUUID->"61ad718f-84a7-4541-99b7-64950b2dd78b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[36]:=",ExpressionUUID->"b8fe003c-90d9-46d7-90f8-54d2993afd94"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.8617466966472816`*^9},
CellLabel->"Out[36]=",ExpressionUUID->"7e276a5b-5cb6-49a0-8b50-783ce7265aa4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861746932277059*^9, 3.8617469388680887`*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"1843a9f8-3613-4f05-a879-7358518eb2da"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]", "-",
FractionBox[
RowBox[{
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["kb"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8617469398759604`*^9},
CellLabel->"Out[37]=",ExpressionUUID->"117de74f-6382-429f-a6b0-3154beec8b02"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%37", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[38]:=",ExpressionUUID->"52836904-ec69-43d5-8145-84c3dfba8508"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "cvb"}], "-",
RowBox[{"2", " ", "d"}], "-",
SuperscriptBox["d", "2"], "+",
RowBox[{
SuperscriptBox["b", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "b", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"8", " ", "cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", "\[Alpha]",
"+",
RowBox[{"16", " ", "cvb", " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "d", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "cvb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"8", " ", "kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"12", " ", "\[Theta]"}], "+",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SqrtBox["kb"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"8", " ",
SqrtBox["kb"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"cvb", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"kb", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]], "Output",
CellChangeTimes->{3.861746942919076*^9},
CellLabel->"Out[38]=",ExpressionUUID->"789e09bf-5c6e-43d2-8094-8940b0bf1317"]
}, Open ]]
},
WindowSize->{606, 730},
WindowMargins->{{53, Automatic}, {Automatic, 24}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670813\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9d8602b4-0b32-4bb0-be6a-cb8b42a6ecd1"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2134, 60, 94, "Input",ExpressionUUID->"22622599-c667-43d6-aa15-f482797f3c8c"],
Cell[CellGroupData[{
Cell[2717, 84, 276, 5, 44, "Input",ExpressionUUID->"4f77d919-d1fa-4195-a1cd-8b20e64ed93e"],
Cell[2996, 91, 321, 8, 34, "Output",ExpressionUUID->"65a49743-94a7-4f7d-9fb4-24d51c415c98"]
}, Open ]],
Cell[CellGroupData[{
Cell[3354, 104, 256, 5, 44, "Input",ExpressionUUID->"50bfafe3-1c8a-4bf2-a0c4-bf869f977761"],
Cell[3613, 111, 423, 10, 52, "Output",ExpressionUUID->"68cdfb02-8974-4150-bb1f-e6557d78e4cf"]
}, Open ]],
Cell[4051, 124, 364, 8, 49, "Input",ExpressionUUID->"f13d121a-a5af-4e5d-ab7b-5262f346b76d"],
Cell[CellGroupData[{
Cell[4440, 136, 179, 2, 30, "Input",ExpressionUUID->"2c476e2b-46c0-4de5-aaa5-f1cbd9a777d6"],
Cell[4622, 140, 626, 18, 52, "Output",ExpressionUUID->"f004acfe-a386-40cd-ab03-80b7409d71f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[5285, 163, 606, 18, 62, "Input",ExpressionUUID->"0884bae7-2907-4ccf-a0ae-4c7cbb750cb2"],
Cell[5894, 183, 588, 17, 52, "Output",ExpressionUUID->"eba12880-9dd0-48a3-81d7-faf1358c3b61"]
}, Open ]],
Cell[CellGroupData[{
Cell[6519, 205, 254, 5, 44, "Input",ExpressionUUID->"1116407f-ee87-4be1-a41c-7c60cd82fb27"],
Cell[6776, 212, 511, 12, 52, "Output",ExpressionUUID->"7e763498-5076-4d27-87dd-2800d69cf5e2"]
}, Open ]],
Cell[7302, 227, 462, 11, 49, "Input",ExpressionUUID->"5148b263-f211-457c-90a7-a4a9f8e772e5"],
Cell[CellGroupData[{
Cell[7789, 242, 180, 2, 30, "Input",ExpressionUUID->"1f33de4e-3b07-4141-925f-1126b11f3336"],
Cell[7972, 246, 1341, 40, 92, "Output",ExpressionUUID->"fd7b9306-7d09-44ef-9f00-a09180d397ff"]
}, Open ]],
Cell[CellGroupData[{
Cell[9350, 291, 1351, 41, 105, "Input",ExpressionUUID->"8e5c315f-f266-4cec-a66a-c97fc1618a23"],
Cell[10704, 334, 687, 20, 52, "Output",ExpressionUUID->"6d52c2d1-bc5a-46eb-8700-3115eea6a5a7"]
}, Open ]],
Cell[CellGroupData[{
Cell[11428, 359, 226, 4, 44, "Input",ExpressionUUID->"69138082-5f1e-4aae-8d0e-3574dab93b58"],
Cell[11657, 365, 888, 27, 52, "Output",ExpressionUUID->"af48c0f3-d070-429b-9e66-59b9ecca51ba"]
}, Open ]],
Cell[CellGroupData[{
Cell[12582, 397, 259, 5, 44, "Input",ExpressionUUID->"7d1cc985-35c0-4a66-9008-4d61666adc19"],
Cell[12844, 404, 920, 24, 57, "Output",ExpressionUUID->"192bfb2f-77bd-4b5d-8a56-d362286d4c53"]
}, Open ]],
Cell[CellGroupData[{
Cell[13801, 433, 793, 22, 62, "Input",ExpressionUUID->"ceb7ea2e-0b05-450c-a1e0-f8a2728f1b3b"],
Cell[14597, 457, 410, 11, 52, "Output",ExpressionUUID->"e56d65e8-7660-4105-8927-343ce9cbe559"]
}, Open ]],
Cell[15022, 471, 259, 5, 44, "Input",ExpressionUUID->"7882acac-75a3-49c6-b071-506ddfcb652d"],
Cell[CellGroupData[{
Cell[15306, 480, 521, 15, 86, "Input",ExpressionUUID->"652c90e8-39fd-485c-9e5a-85b778036ad4"],
Cell[15830, 497, 336, 9, 50, "Output",ExpressionUUID->"602b47df-132e-465f-bc4e-5c01c542ed41"]
}, Open ]],
Cell[16181, 509, 805, 20, 54, "Input",ExpressionUUID->"415ea9f5-9eb0-480d-8c88-755564d619cd"],
Cell[CellGroupData[{
Cell[17011, 533, 150, 2, 30, "Input",ExpressionUUID->"a393655d-1721-4599-945e-32dedb5ed001"],
Cell[17164, 537, 1608, 47, 131, "Output",ExpressionUUID->"c61b3fff-1fc3-4505-97e7-8c530d3e6ae3"]
}, Open ]],
Cell[CellGroupData[{
Cell[18809, 589, 1671, 49, 211, "Input",ExpressionUUID->"6f9e11ba-cff0-4ba9-bb99-6b49e93e819f"],
Cell[20483, 640, 1213, 37, 79, "Output",ExpressionUUID->"a7854474-d40a-4812-bccf-14286ffe931a"]
}, Open ]],
Cell[CellGroupData[{
Cell[21733, 682, 147, 2, 30, "Input",ExpressionUUID->"a87f4dc9-0e9c-4c99-abf7-ddee58574d71"],
Cell[21883, 686, 3555, 101, 257, "Output",ExpressionUUID->"71edc607-3fb5-4065-a414-2d05eebe8a2d"]
}, Open ]],
Cell[CellGroupData[{
Cell[25475, 792, 163, 3, 44, "Input",ExpressionUUID->"44754003-ce44-4a6c-8527-0396d282ac7a"],
Cell[25641, 797, 1142, 34, 77, "Output",ExpressionUUID->"15a48fcd-d460-46b6-8750-4755869c30a9"]
}, Open ]],
Cell[CellGroupData[{
Cell[26820, 836, 150, 2, 30, "Input",ExpressionUUID->"9b2ca569-a8f5-4cc6-b9bb-8b42e90492c9"],
Cell[26973, 840, 3717, 103, 256, "Output",ExpressionUUID->"b281d954-1f6d-4d2c-ab52-1fa36e3c2ef8"]
}, Open ]],
Cell[CellGroupData[{
Cell[30727, 948, 163, 3, 44, "Input",ExpressionUUID->"f6d4f3c7-2e7a-4d4b-9d33-8b47f4d49684"],
Cell[30893, 953, 1218, 36, 77, "Output",ExpressionUUID->"ed39829c-34d0-49d8-8358-f58e01bfa02e"]
}, Open ]],
Cell[CellGroupData[{
Cell[32148, 994, 1422, 40, 145, "Input",ExpressionUUID->"eb83b968-87d7-4f6d-92e6-a62f08981d83"],
Cell[33573, 1036, 845, 22, 55, "Output",ExpressionUUID->"121cb83d-89df-40dd-890c-7471081ae143"]
}, Open ]],
Cell[34433, 1061, 1364, 39, 145, "Input",ExpressionUUID->"488bb8cc-7969-4b03-bf18-3c55542ee27b"],
Cell[35800, 1102, 850, 23, 76, "Input",ExpressionUUID->"4e7aeac6-447a-4a8e-96ca-1c5ddd12ed77"],
Cell[36653, 1127, 9746, 300, 327, "Text",ExpressionUUID->"b2fd4a2f-7dee-4417-8218-11580e5b4cb5"],
Cell[46402, 1429, 206, 4, 73, "Input",ExpressionUUID->"86801f2c-a9bd-4d09-bf56-715e2f51cd95"],
Cell[CellGroupData[{
Cell[46633, 1437, 176, 2, 30, "Input",ExpressionUUID->"10767379-1cd5-4766-9f9c-1e47138931dd"],
Cell[46812, 1441, 11130, 323, 714, "Output",ExpressionUUID->"bd0f93cd-8be9-4b1c-9fc1-a632b5afdf1f"]
}, Open ]],
Cell[CellGroupData[{
Cell[57979, 1769, 162, 3, 44, "Input",ExpressionUUID->"3cfc1947-7244-45f7-b4d8-00f1e53d67fc"],
Cell[58144, 1774, 4901, 137, 209, "Output",ExpressionUUID->"959ea299-8ab1-4805-a46c-846eae0666b7"]
}, Open ]],
Cell[CellGroupData[{
Cell[63082, 1916, 178, 2, 30, "Input",ExpressionUUID->"b265efd6-aae4-419e-be99-ebbb553a5e55"],
Cell[63263, 1920, 6671, 197, 418, "Output",ExpressionUUID->"f37e8123-fe7d-4bca-8b24-8388afc05d13"]
}, Open ]],
Cell[CellGroupData[{
Cell[69971, 2122, 163, 3, 44, "Input",ExpressionUUID->"08795263-6444-4283-aa48-028ae25b1e5c"],
Cell[70137, 2127, 5015, 141, 230, "Output",ExpressionUUID->"cf439fb9-9b7f-4f6a-8532-773ba8e9aa71"],
Cell[75155, 2270, 455, 13, 49, "Output",ExpressionUUID->"ac0f8e80-cd0c-4e51-8b1a-8364650179c0"]
}, Open ]],
Cell[CellGroupData[{
Cell[75647, 2288, 452, 14, 60, "Input",ExpressionUUID->"502314f7-34a4-422f-9101-13ceca22d6f6"],
Cell[76102, 2304, 275, 7, 51, "Output",ExpressionUUID->"30393d1a-7d8e-4f97-a169-11fd378799cc"]
}, Open ]],
Cell[76392, 2314, 176, 3, 30, "Input",ExpressionUUID->"b143a65a-1aab-40d7-9bce-0a9921c7b34b"],
Cell[CellGroupData[{
Cell[76593, 2321, 173, 2, 30, "Input",ExpressionUUID->"c282eb88-4593-41f5-bf02-6df8d950ea90"],
Cell[76769, 2325, 14752, 433, 919, "Output",ExpressionUUID->"1bc6690d-32f9-421b-84fa-b36de2748988"]
}, Open ]],
Cell[CellGroupData[{
Cell[91558, 2763, 163, 3, 44, "Input",ExpressionUUID->"a535688b-c2d4-47e4-89ee-ca45292d7c76"],
Cell[91724, 2768, 6153, 173, 251, "Output",ExpressionUUID->"bc389569-6f92-411f-bac2-6db94e76b624"]
}, Open ]],
Cell[CellGroupData[{
Cell[97914, 2946, 154, 3, 30, "Input",ExpressionUUID->"c295f4ad-f5cf-4b84-9723-7e68c8b06eb1"],
Cell[98071, 2951, 1105, 24, 159, "Output",ExpressionUUID->"2b24f72e-49f1-4a2e-9dec-7f36ce55326f"]
}, Open ]],
Cell[99191, 2978, 19712, 553, 1284, "Input",ExpressionUUID->"fcd0bcce-a5b1-491b-8734-a07770779830"],
Cell[118906, 3533, 150, 3, 59, "Text",ExpressionUUID->"d4ac5266-9360-4bdc-94e8-63da62fcee26"],
Cell[CellGroupData[{
Cell[119081, 3540, 222, 4, 44, "Input",ExpressionUUID->"36865790-2be2-483b-a593-5136f61dedf9"],
Cell[119306, 3546, 646, 20, 53, "Output",ExpressionUUID->"a334d6d7-27a7-4bd0-878f-5d560ae0cdfb"]
}, Open ]],
Cell[119967, 3569, 676, 21, 63, "Input",ExpressionUUID->"636bff0c-d9b4-4d08-8d23-a3f6365b5056"],
Cell[120646, 3592, 272, 7, 49, "Input",ExpressionUUID->"aad606bf-de63-41ec-9b2e-b814598ac81c"],
Cell[CellGroupData[{
Cell[120943, 3603, 224, 4, 44, "Input",ExpressionUUID->"e8d42eeb-8727-4b59-a5d9-99197053dcd2"],
Cell[121170, 3609, 753, 24, 53, "Output",ExpressionUUID->"21984930-68d0-4cf2-a50b-fcc964d95a7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[121960, 3638, 785, 25, 63, "Input",ExpressionUUID->"63306ba9-13f5-4990-b14e-6f17f3bcdfbf"],
Cell[122748, 3665, 303, 8, 52, "Output",ExpressionUUID->"d1e754aa-0eca-4a09-b8d1-f5ae2efdaa05"]
}, Open ]],
Cell[CellGroupData[{
Cell[123088, 3678, 221, 4, 44, "Input",ExpressionUUID->"fa515dee-1843-4b60-befa-ef0b6991a5ad"],
Cell[123312, 3684, 821, 26, 62, "Output",ExpressionUUID->"8fae8c56-ea99-4a42-94bb-c4462c44a8d9"]
}, Open ]],
Cell[CellGroupData[{
Cell[124170, 3715, 859, 28, 72, "Input",ExpressionUUID->"18b02d66-c536-4ba4-b9e3-ecdc73e1aea9"],
Cell[125032, 3745, 256, 6, 52, "Output",ExpressionUUID->"29ae2e5e-4101-46e2-a201-a3521481c783"]
}, Open ]],
Cell[CellGroupData[{
Cell[125325, 3756, 221, 4, 44, "Input",ExpressionUUID->"35f7871b-cb56-43c2-b6fc-2ae924678879"],
Cell[125549, 3762, 168, 3, 50, "Output",ExpressionUUID->"c67e7285-4c59-4e1d-b374-abcacef33d03"]
}, Open ]],
Cell[CellGroupData[{
Cell[125754, 3770, 228, 4, 44, "Input",ExpressionUUID->"162ea125-050b-4112-be23-fa9243139a38"],
Cell[125985, 3776, 3391, 104, 165, "Output",ExpressionUUID->"460b490a-7307-483c-8a49-359ce7ad682c"]
}, Open ]],
Cell[CellGroupData[{
Cell[129413, 3885, 163, 3, 44, "Input",ExpressionUUID->"5ee29e88-8ef9-4269-b8ae-00262d7f623b"],
Cell[129579, 3890, 1254, 38, 77, "Output",ExpressionUUID->"8191f1ff-9219-4d97-acee-e135d1a930e2"]
}, Open ]],
Cell[CellGroupData[{
Cell[130870, 3933, 229, 4, 44, "Input",ExpressionUUID->"76f9204b-b496-4e0c-8e02-24ba19f308ba"],
Cell[131102, 3939, 3445, 107, 163, "Output",ExpressionUUID->"0f596fbb-fcac-4d93-9cc3-7649db470d7f"]
}, Open ]],
Cell[CellGroupData[{
Cell[134584, 4051, 163, 3, 44, "Input",ExpressionUUID->"679f06b7-2752-49ca-a039-37fe62076831"],
Cell[134750, 4056, 1254, 38, 77, "Output",ExpressionUUID->"cf416d9b-bf1b-4638-afcf-a0e5a959e4c9"]
}, Open ]],
Cell[CellGroupData[{
Cell[136041, 4099, 225, 4, 44, "Input",ExpressionUUID->"34eec4d6-951e-480f-ae8c-513730cf92a9"],
Cell[136269, 4105, 249, 6, 50, "Output",ExpressionUUID->"700bf854-a1c7-417a-9d32-4676ad86ff11"]
}, Open ]],
Cell[CellGroupData[{
Cell[136555, 4116, 225, 4, 44, "Input",ExpressionUUID->"b3be08ac-ece4-4cba-a084-037c86afd90c"],
Cell[136783, 4122, 3936, 124, 165, "Output",ExpressionUUID->"cb03775d-29a9-4980-9e03-8dc3a4ba2227"]
}, Open ]],
Cell[CellGroupData[{
Cell[140756, 4251, 163, 3, 44, "Input",ExpressionUUID->"2d9c6b61-04c7-4af7-a75b-ac523513f7b2"],
Cell[140922, 4256, 1337, 40, 100, "Output",ExpressionUUID->"dab62930-88f5-486a-9366-2e1eb5dbfb8a"]
}, Open ]],
Cell[142274, 4299, 255, 5, 59, "Text",ExpressionUUID->"ccc0f5bd-3182-4064-886f-7c9efd15dbb3"],
Cell[CellGroupData[{
Cell[142554, 4308, 249, 5, 44, "Input",ExpressionUUID->"3b25e725-e688-46a8-9eff-3482f6494e89"],
Cell[142806, 4315, 1391, 42, 116, "Output",ExpressionUUID->"0c7fe123-2027-45a6-bacb-71294c7e408b"]
}, Open ]],
Cell[CellGroupData[{
Cell[144234, 4362, 1418, 43, 185, "Input",ExpressionUUID->"d84108cd-485c-4e9e-9eba-f9dbbbdac1a4"],
Cell[145655, 4407, 500, 14, 55, "Output",ExpressionUUID->"e25bc7b6-4371-4a1c-af19-ab0797fd7819"]
}, Open ]],
Cell[CellGroupData[{
Cell[146192, 4426, 253, 5, 44, "Input",ExpressionUUID->"a5a95690-c04c-4c68-b172-1312e649e785"],
Cell[146448, 4433, 1575, 48, 120, "Output",ExpressionUUID->"375938f2-591f-42ba-87d5-88c557939a37"]
}, Open ]],
Cell[CellGroupData[{
Cell[148060, 4486, 1637, 50, 189, "Input",ExpressionUUID->"93b76d8d-2552-4611-a525-a46c9f27b27e"],
Cell[149700, 4538, 543, 15, 57, "Output",ExpressionUUID->"ac826077-037f-4f9a-baf9-729672fa8225"]
}, Open ]],
Cell[CellGroupData[{
Cell[150280, 4558, 295, 5, 44, "Input",ExpressionUUID->"7957b8f2-b2e0-4bdd-bbd1-25fda1331409"],
Cell[150578, 4565, 299, 8, 51, "Output",ExpressionUUID->"7faae952-4ad9-4b17-831f-ca887abc5836"]
}, Open ]],
Cell[CellGroupData[{
Cell[150914, 4578, 248, 5, 44, "Input",ExpressionUUID->"74a55e8c-b2da-4adc-ba34-03fe0a78787b"],
Cell[151165, 4585, 149, 2, 34, "Output",ExpressionUUID->"3c5ebfbf-48b4-4af8-98e8-6f5af8e618d7"]
}, Open ]],
Cell[CellGroupData[{
Cell[151351, 4592, 257, 5, 44, "Input",ExpressionUUID->"9229001f-aaf2-4b25-a697-2d56d1cce99f"],
Cell[151611, 4599, 6785, 189, 338, "Output",ExpressionUUID->"61bcc719-a499-4150-a6d9-5e45e331d6d6"]
}, Open ]],
Cell[CellGroupData[{
Cell[158433, 4793, 163, 3, 44, "Input",ExpressionUUID->"8148a72f-4ff2-46b1-bb02-c92435f1f973"],
Cell[158599, 4798, 3265, 96, 144, "Output",ExpressionUUID->"228fd36a-c629-4e67-bb83-149e54e110cf"]
}, Open ]],
Cell[CellGroupData[{
Cell[161901, 4899, 303, 5, 44, "Input",ExpressionUUID->"7ffa79f9-4233-4839-bd09-9ae9cb9c276f"],
Cell[162207, 4906, 6945, 194, 338, "Output",ExpressionUUID->"faf1b65f-8ca3-4a7e-b7f0-07407c72b2fe"]
}, Open ]],
Cell[CellGroupData[{
Cell[169189, 5105, 163, 3, 44, "Input",ExpressionUUID->"fdfbcbb6-ad9e-411c-8c6e-45062f92f221"],
Cell[169355, 5110, 3268, 96, 144, "Output",ExpressionUUID->"7c267371-5de8-4c26-993f-850a2bae5a66"]
}, Open ]],
Cell[CellGroupData[{
Cell[172660, 5211, 4044, 115, 189, "Input",ExpressionUUID->"502df721-a551-4df8-857d-aa0fe26f7cf6"],
Cell[176707, 5328, 3628, 111, 170, "Output",ExpressionUUID->"899dc8d1-d941-4fd5-ba64-98bbce02e055"]
}, Open ]],
Cell[CellGroupData[{
Cell[180372, 5444, 161, 3, 44, "Input",ExpressionUUID->"9fb2c422-61f4-4c97-ab8e-e4b467c0c6a7"],
Cell[180536, 5449, 148, 2, 34, "Output",ExpressionUUID->"5ec71b49-f565-4913-b363-295876dbc3c9"]
}, Open ]],
Cell[CellGroupData[{
Cell[180721, 5456, 277, 6, 44, "Input",ExpressionUUID->"e04045c6-9ef1-4e41-aaab-78e59b313a01"],
Cell[181001, 5464, 151, 2, 34, "Output",ExpressionUUID->"034a4146-f075-4c35-abd9-1fee709f9938"]
}, Open ]],
Cell[CellGroupData[{
Cell[181189, 5471, 252, 5, 44, "Input",ExpressionUUID->"8205945c-97fa-4543-812a-8967adb242b0"],
Cell[181444, 5478, 8878, 245, 447, "Output",ExpressionUUID->"695e5983-6353-4926-a375-16f88b7cea49"]
}, Open ]],
Cell[CellGroupData[{
Cell[190359, 5728, 163, 3, 44, "Input",ExpressionUUID->"2bb8d5c3-51d7-40b7-b71a-5d57ae266472"],
Cell[190525, 5733, 3318, 97, 144, "Output",ExpressionUUID->"b5aee721-6953-41e0-9e68-5119e92b50df"]
}, Open ]],
Cell[193858, 5833, 397, 8, 84, "Input",ExpressionUUID->"1ac28e4b-02b5-4173-97c8-e766532e74cb"],
Cell[CellGroupData[{
Cell[194280, 5845, 229, 4, 44, "Input",ExpressionUUID->"cd39fc84-81ac-43e5-9c8f-908aade20032"],
Cell[194512, 5851, 354, 10, 52, "Output",ExpressionUUID->"94d9c025-b709-48e9-9aaa-f9ffb06c30b8"]
}, Open ]],
Cell[CellGroupData[{
Cell[194903, 5866, 374, 11, 62, "Input",ExpressionUUID->"dd7d0926-3589-4976-97ca-aa662d8f0b63"],
Cell[195280, 5879, 193, 4, 51, "Output",ExpressionUUID->"a8e3d87e-1fff-46be-9b8d-20b605831169"]
}, Open ]],
Cell[CellGroupData[{
Cell[195510, 5888, 229, 4, 44, "Input",ExpressionUUID->"60a617ad-0fd2-45ee-b932-1b6e7fcc1bfb"],
Cell[195742, 5894, 392, 11, 52, "Output",ExpressionUUID->"65ab2001-522e-42fc-af96-7fe894511a81"]
}, Open ]],
Cell[CellGroupData[{
Cell[196171, 5910, 413, 12, 62, "Input",ExpressionUUID->"9cdf4a82-8ff4-4a83-9038-fc2ed732c27d"],
Cell[196587, 5924, 220, 5, 51, "Output",ExpressionUUID->"7a691ed0-e0b1-4ea2-82b4-c5cec906df7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[196844, 5934, 229, 4, 44, "Input",ExpressionUUID->"eab168fa-ed6a-4f19-be63-b14e260998cc"],
Cell[197076, 5940, 269, 7, 52, "Output",ExpressionUUID->"d08121c4-4221-46fc-8aa7-bae92fe801b8"]
}, Open ]],
Cell[CellGroupData[{
Cell[197382, 5952, 231, 4, 44, "Input",ExpressionUUID->"d3b2150e-1bcd-44b9-a5e8-ffaebc8f786f"],
Cell[197616, 5958, 151, 2, 34, "Output",ExpressionUUID->"e7002bfd-c86a-44ac-a829-bf97f10becf3"]
}, Open ]],
Cell[CellGroupData[{
Cell[197804, 5965, 237, 4, 44, "Input",ExpressionUUID->"2157f59d-9837-4c19-a10d-636b40b2e48d"],
Cell[198044, 5971, 1924, 58, 123, "Output",ExpressionUUID->"3be84402-78e3-4c93-afd8-e79b30e16504"]
}, Open ]],
Cell[CellGroupData[{
Cell[200005, 6034, 1990, 59, 169, "Input",ExpressionUUID->"166caeb8-362b-4e2b-88e1-ab27dfe72b20"],
Cell[201998, 6095, 1140, 34, 77, "Output",ExpressionUUID->"16345504-7962-4f80-9711-0aca4a65b29f"]
}, Open ]],
Cell[CellGroupData[{
Cell[203175, 6134, 237, 4, 44, "Input",ExpressionUUID->"85fe5016-4489-4d0f-9c79-e664dbe0f715"],
Cell[203415, 6140, 1913, 57, 123, "Output",ExpressionUUID->"f780ab0f-4176-42bb-bfdb-c1250480d0db"]
}, Open ]],
Cell[CellGroupData[{
Cell[205365, 6202, 1982, 58, 169, "Input",ExpressionUUID->"77105c8c-ed0f-4b33-88f9-d2b32447b7db"],
Cell[207350, 6262, 1179, 35, 77, "Output",ExpressionUUID->"2d47973c-6659-4f10-8330-c4c9ce6d2c09"]
}, Open ]],
Cell[CellGroupData[{
Cell[208566, 6302, 229, 4, 44, "Input",ExpressionUUID->"2532da99-d443-46a9-a6ec-5aa407199e86"],
Cell[208798, 6308, 149, 2, 34, "Output",ExpressionUUID->"52cf63ec-cc7f-42b6-90e8-234c7165ecdd"]
}, Open ]],
Cell[CellGroupData[{
Cell[208984, 6315, 230, 4, 44, "Input",ExpressionUUID->"30b70b5e-e5b2-4397-b498-649ff3c97627"],
Cell[209217, 6321, 1604, 47, 123, "Output",ExpressionUUID->"85759b29-c7ab-4052-8726-baabf84db000"]
}, Open ]],
Cell[CellGroupData[{
Cell[210858, 6373, 1662, 48, 169, "Input",ExpressionUUID->"a9635d32-84ff-4cc9-a58b-ffc8ee0c2245"],
Cell[212523, 6423, 1225, 36, 77, "Output",ExpressionUUID->"1a2f9063-ab2a-448f-b016-e51ead5070bc"]
}, Open ]],
Cell[213763, 6462, 1886, 55, 148, "Input",ExpressionUUID->"97a82ba9-0a05-49bb-bb6e-573d0620c955"],
Cell[215652, 6519, 2134, 60, 94, "Input",ExpressionUUID->"b2ec7bfc-6dc1-46ac-9d6a-e316302aa1ad"],
Cell[217789, 6581, 682, 17, 90, "Input",ExpressionUUID->"5d90646b-150f-44a0-a219-b12c3fc5682c"],
Cell[CellGroupData[{
Cell[218496, 6602, 264, 5, 44, "Input",ExpressionUUID->"b3578550-328b-44c4-b8fd-7204f3a6fd42"],
Cell[218763, 6609, 2303, 63, 147, "Output",ExpressionUUID->"bd05b796-3829-45ad-b7ef-2a994f2443e6"]
}, Open ]],
Cell[CellGroupData[{
Cell[221103, 6677, 1171, 31, 90, "Input",ExpressionUUID->"aacdd317-5e4a-461d-b252-c61cb2d43d27"],
Cell[222277, 6710, 951, 28, 60, "Output",ExpressionUUID->"13e80679-c5e0-431f-b251-da6129d5fc8a"]
}, Open ]],
Cell[223243, 6741, 1023, 29, 82, "Input",ExpressionUUID->"ce1be964-e901-4f61-930d-85a9c86142e7"],
Cell[CellGroupData[{
Cell[224291, 6774, 150, 2, 30, "Input",ExpressionUUID->"461d5fe9-9a38-486d-a111-d00e2348c33f"],
Cell[224444, 6778, 2176, 64, 201, "Output",ExpressionUUID->"f6d2e3fc-f2e3-4fbc-acb5-7ac4cb9d03e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[226657, 6847, 2331, 68, 305, "Input",ExpressionUUID->"5236f94f-c7cf-4a80-80a7-154701942461"],
Cell[228991, 6917, 820, 26, 60, "Output",ExpressionUUID->"e996849b-b59a-4143-8c5f-9cc526e0ac6b"]
}, Open ]],
Cell[CellGroupData[{
Cell[229848, 6948, 148, 2, 30, "Input",ExpressionUUID->"5dcaa0cc-5b77-4e8a-9db0-ba37d512be13"],
Cell[229999, 6952, 2309, 67, 201, "Output",ExpressionUUID->"a708ae7f-efbb-4050-993e-5719d0263817"]
}, Open ]],
Cell[CellGroupData[{
Cell[232345, 7024, 2461, 70, 326, "Input",ExpressionUUID->"1ac60d9a-30ad-40c0-b3b9-7ff3341cd676"],
Cell[234809, 7096, 895, 28, 64, "Output",ExpressionUUID->"fe949ff0-6b08-4af6-ab20-bfc10bbff3bb"]
}, Open ]],
Cell[235719, 7127, 888, 27, 62, "Input",ExpressionUUID->"d4c7577b-d9be-4019-887e-a17b6e14dda8"],
Cell[236610, 7156, 967, 29, 64, "Input",ExpressionUUID->"b252de20-c628-4913-a573-b972ae30673d"],
Cell[237580, 7187, 252, 5, 48, "Input",ExpressionUUID->"be59198a-7ae9-4d33-ac01-c4399e7bb068"],
Cell[CellGroupData[{
Cell[237857, 7196, 225, 3, 30, "Input",ExpressionUUID->"fbb310dd-50ba-4c71-9c9e-87540f52d3a4"],
Cell[238085, 7201, 7443, 227, 489, "Output",ExpressionUUID->"3d3d6344-bf2d-438c-9be7-5b469384bc33"]
}, Open ]],
Cell[CellGroupData[{
Cell[245565, 7433, 163, 3, 44, "Input",ExpressionUUID->"17f26d6a-ce2b-44f1-a72c-246a173c0259"],
Cell[245731, 7438, 7339, 223, 473, "Output",ExpressionUUID->"80dd1941-c327-4f4d-8a85-e05ae186c74e"]
}, Open ]],
Cell[CellGroupData[{
Cell[253107, 7666, 4078, 123, 453, "Input",ExpressionUUID->"2734a024-b714-4b46-86d8-9666e6b3ec26"],
Cell[257188, 7791, 149, 2, 34, "Output",ExpressionUUID->"56b77ff4-37a3-4324-aa14-b76ba0ee2960"]
}, Open ]],
Cell[257352, 7796, 428, 10, 203, "Text",ExpressionUUID->"85f9cb54-dd8a-4144-919e-db6775cb1996"],
Cell[257783, 7808, 10084, 309, 929, "Input",ExpressionUUID->"18c181ff-b183-4f13-8289-5fb47c9b6d4c"],
Cell[267870, 8119, 150, 3, 59, "Text",ExpressionUUID->"311e9972-2f49-44b9-94ae-c40d0dafa928"],
Cell[CellGroupData[{
Cell[268045, 8126, 221, 4, 44, "Input",ExpressionUUID->"0697031f-f113-4183-82c0-7ddaa585a57a"],
Cell[268269, 8132, 151, 2, 34, "Output",ExpressionUUID->"2965273d-b8d7-49e7-8b77-5abc48ee38a1"]
}, Open ]],
Cell[CellGroupData[{
Cell[268457, 8139, 224, 4, 44, "Input",ExpressionUUID->"e9fa7a8a-e1e3-4c03-a0bb-5a747b95c166"],
Cell[268684, 8145, 168, 3, 50, "Output",ExpressionUUID->"f98429ca-11f6-43e6-ae20-f205dd47e670"]
}, Open ]],
Cell[CellGroupData[{
Cell[268889, 8153, 230, 4, 44, "Input",ExpressionUUID->"432acba8-bf4c-4def-a093-1c8cf72020be"],
Cell[269122, 8159, 1461, 46, 84, "Output",ExpressionUUID->"003ec3c0-2c6a-4630-8a58-3a7e408d4426"]
}, Open ]],
Cell[CellGroupData[{
Cell[270620, 8210, 1520, 48, 130, "Input",ExpressionUUID->"e5963afa-9815-45cd-80c0-3282bd513d1f"],
Cell[272143, 8260, 970, 30, 64, "Output",ExpressionUUID->"1f37698f-a36a-4c34-b103-5a2ab171af51"]
}, Open ]],
Cell[CellGroupData[{
Cell[273150, 8295, 225, 4, 44, "Input",ExpressionUUID->"f2bd0b5e-f9da-45ae-a7e0-f7c96c0e05e9"],
Cell[273378, 8301, 249, 6, 50, "Output",ExpressionUUID->"ce9ad13f-1292-4869-b390-30aa9265823c"]
}, Open ]],
Cell[273642, 8310, 223, 4, 59, "Text",ExpressionUUID->"5ec6b820-c00b-4822-a1e2-1ec9ef337486"],
Cell[CellGroupData[{
Cell[273890, 8318, 250, 5, 44, "Input",ExpressionUUID->"c03905fb-c07c-4434-b7fc-e4d498dc5694"],
Cell[274143, 8325, 1767, 56, 121, "Output",ExpressionUUID->"39a67659-08b4-45ab-b1a8-3fb142603ea1"]
}, Open ]],
Cell[CellGroupData[{
Cell[275947, 8386, 1809, 57, 142, "Input",ExpressionUUID->"fc36dd34-229a-4232-9845-43d00e0c0bf0"],
Cell[277759, 8445, 970, 30, 58, "Output",ExpressionUUID->"c5ca76ab-ce1d-4a8f-ad9f-4a6d3954acf4"]
}, Open ]],
Cell[CellGroupData[{
Cell[278766, 8480, 223, 4, 44, "Input",ExpressionUUID->"1eb6d4e0-109e-4936-853b-9d06c4222a60"],
Cell[278992, 8486, 1939, 61, 127, "Output",ExpressionUUID->"3349dd95-10ad-4214-ada5-cf1fdd15497f"]
}, Open ]],
Cell[CellGroupData[{
Cell[280968, 8552, 2010, 62, 148, "Input",ExpressionUUID->"724fd5c9-e567-4b89-9027-5c613fcc9da0"],
Cell[282981, 8616, 906, 26, 58, "Output",ExpressionUUID->"5c345bc1-d331-4034-a536-bcc5d8916e39"]
}, Open ]],
Cell[CellGroupData[{
Cell[283924, 8647, 223, 4, 44, "Input",ExpressionUUID->"de5531a0-841e-4786-930d-7d2d031ba06c"],
Cell[284150, 8653, 1450, 46, 73, "Output",ExpressionUUID->"47870d90-643d-4965-8303-092a9beba5f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[285637, 8704, 1506, 47, 120, "Input",ExpressionUUID->"61bfd334-2733-4d2a-bf37-3cbd67ca89b3"],
Cell[287146, 8753, 1450, 46, 73, "Output",ExpressionUUID->"55bb34b0-46be-4da2-9a15-e0166aba5fdb"]
}, Open ]],
Cell[CellGroupData[{
Cell[288633, 8804, 276, 5, 44, "Input",ExpressionUUID->"0624b405-8b89-410f-b5ea-721564e6cfec"],
Cell[288912, 8811, 8770, 268, 502, "Output",ExpressionUUID->"43978bda-7516-4345-a8d2-9667ac6cd75f"]
}, Open ]],
Cell[CellGroupData[{
Cell[297719, 9084, 163, 3, 44, "Input",ExpressionUUID->"eabbe7de-395f-4c20-a3b4-2264234f8cb0"],
Cell[297885, 9089, 5654, 155, 231, "Output",ExpressionUUID->"2701462e-2ab3-481a-ba3e-bb59a6a0d081"]
}, Open ]],
Cell[303554, 9247, 209, 4, 59, "Text",ExpressionUUID->"d4b7714d-d0ec-47ce-bc25-5bede3164055"],
Cell[CellGroupData[{
Cell[303788, 9255, 230, 4, 44, "Input",ExpressionUUID->"e044887e-29bf-4811-b9a8-012ef1f98ce8"],
Cell[304021, 9261, 838, 25, 57, "Output",ExpressionUUID->"84962d6b-45da-49cc-b64b-9d3f1dfc1ff9"]
}, Open ]],
Cell[CellGroupData[{
Cell[304896, 9291, 873, 26, 103, "Input",ExpressionUUID->"3dbac673-5c87-4ae5-8bf3-c89bb76bf26b"],
Cell[305772, 9319, 684, 20, 57, "Output",ExpressionUUID->"2f8af0b2-ed9f-4e85-a3e9-00a46136e3ff"]
}, Open ]],
Cell[CellGroupData[{
Cell[306493, 9344, 231, 4, 44, "Input",ExpressionUUID->"35f7c0a1-4374-4651-9308-5092cb7eb58f"],
Cell[306727, 9350, 854, 26, 57, "Output",ExpressionUUID->"883b033c-88ff-4eeb-99c1-d3237860b9ed"]
}, Open ]],
Cell[CellGroupData[{
Cell[307618, 9381, 890, 27, 70, "Input",ExpressionUUID->"117c3fd2-1081-4be8-b5de-d499a5ff4afd"],
Cell[308511, 9410, 723, 21, 57, "Output",ExpressionUUID->"92155e93-f98a-46a4-bd9f-756358faccfb"]
}, Open ]],
Cell[CellGroupData[{
Cell[309271, 9436, 228, 4, 44, "Input",ExpressionUUID->"8db3824f-29c7-4fe8-8227-ed98ebb66586"],
Cell[309502, 9442, 933, 29, 68, "Output",ExpressionUUID->"61ad718f-84a7-4541-99b7-64950b2dd78b"]
}, Open ]],
Cell[CellGroupData[{
Cell[310472, 9476, 972, 30, 81, "Input",ExpressionUUID->"b8fe003c-90d9-46d7-90f8-54d2993afd94"],
Cell[311447, 9508, 935, 29, 68, "Output",ExpressionUUID->"7e276a5b-5cb6-49a0-8b50-783ce7265aa4"]
}, Open ]],
Cell[CellGroupData[{
Cell[312419, 9542, 237, 4, 44, "Input",ExpressionUUID->"1843a9f8-3613-4f05-a879-7358518eb2da"],
Cell[312659, 9548, 5086, 155, 261, "Output",ExpressionUUID->"117de74f-6382-429f-a6b0-3154beec8b02"]
}, Open ]],
Cell[CellGroupData[{
Cell[317782, 9708, 163, 3, 44, "Input",ExpressionUUID->"52836904-ec69-43d5-8145-84c3dfba8508"],
Cell[317948, 9713, 2547, 75, 118, "Output",ExpressionUUID->"789e09bf-5c6e-43d2-8094-8940b0bf1317"]
}, Open ]]
}
]
*)
Reference in New Issue View Git Blame Copy Permalink