(* 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[ 436994, 13250] NotebookOptionsPosition[ 410498, 12807] NotebookOutlinePosition[ 410905, 12824] CellTagsIndexPosition[ 410862, 12821] 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[{"k", "*", RowBox[{"(", RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[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", "-", "p"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs", " ", "-", RowBox[{ RowBox[{"(", RowBox[{"r", "-", "g"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]}], "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}}, CellLabel->"In[5]:=",ExpressionUUID->"55fd3c7d-2ae3-4431-97c2-89dd2c71b531"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitv", ",", "e"}], "]"}]], "Input", CellLabel->"In[4]:=",ExpressionUUID->"1a7a2666-23ff-4ceb-b0f5-e63d73e33b9c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"l", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output", CellChangeTimes->{{3.861053257091681*^9, 3.861053262497595*^9}, { 3.861053519646049*^9, 3.861053532766823*^9}, 3.861053702569044*^9}, CellLabel->"Out[4]=",ExpressionUUID->"d99a4e77-0a63-4988-8973-8ceb7c7705df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input", CellLabel->"In[5]:=",ExpressionUUID->"f2acc39c-1404-456c-9c7b-19ca4f03ce82"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"e", "\[Rule]", FractionBox[ RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.861053270987978*^9, 3.861053703799449*^9}, CellLabel->"Out[5]=",ExpressionUUID->"426e797e-9828-4852-b801-8763046346f6"] }, Open ]], Cell[BoxData[ RowBox[{"e", ":=", FractionBox[ RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}]], "Input", CellChangeTimes->{{3.8610532780811377`*^9, 3.86105327913593*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"062854cd-c314-4f83-af07-ce9c604f2a51"], Cell[CellGroupData[{ Cell[BoxData["Profiti"], "Input", CellLabel->"In[7]:=",ExpressionUUID->"af6a0666-3e6c-4eab-a7b1-3775dd6058c3"], 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", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.86105328807652*^9, 3.8610535601993523`*^9, 3.8610537088490143`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"f895fc3c-009f-43db-b798-648ed97ee12c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input", CellLabel->"In[8]:=",ExpressionUUID->"672f9d18-7675-46f5-8ae7-656d988b1dfd"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"r", "\[Rule]", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "l", "+", RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.861053309862481*^9, 3.861053563199614*^9, 3.8610537109331627`*^9}, CellLabel->"Out[8]=",ExpressionUUID->"e9bb4c57-8f41-40bc-a49a-5970ed01dee5"] }, Open ]], Cell[BoxData[ RowBox[{"r", ":=", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "l", "+", RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Input", CellLabel->"In[9]:=",ExpressionUUID->"1ee75e90-2296-4bc0-9779-4d832b3cf576"], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellLabel->"In[10]:=",ExpressionUUID->"edf978c2-19d2-4ea6-8ba1-4d33fde50c92"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"l", " ", "\[Alpha]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "l", "+", RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-", RowBox[{"l", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861053336724321*^9, 3.861053577316752*^9, 3.861053716112112*^9}, CellLabel->"Out[10]=",ExpressionUUID->"81895db0-fea6-48be-a9a9-2daf063de6a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"l", " ", "\[Alpha]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "l", "+", RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-", RowBox[{"l", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[11]:=",ExpressionUUID->"179e46c1-f2cc-49a6-91f7-a475450963d8"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"(", RowBox[{ RowBox[{"2", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-", RowBox[{ SuperscriptBox["l", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p", " ", "\[Theta]"}], "+", RowBox[{"l", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.8610537188686132`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"347969d1-ddf5-489d-9050-406953f32523"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"%", ",", "l"}], "]"}]], "Input", CellLabel->"In[12]:=",ExpressionUUID->"1cc9076e-cb9b-403d-bdd1-e986237ccc85"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "l", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{3.861053348421033*^9, 3.861053603639591*^9, 3.86105372475484*^9}, CellLabel->"Out[12]=",ExpressionUUID->"3c67a87a-e964-41ca-83af-fc0cd0444ebb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input", CellLabel->"In[13]:=",ExpressionUUID->"6613e4dd-fc6a-418d-8be4-82a2071cb7c4"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"l", "\[Rule]", FractionBox[ RowBox[{"p", "+", RowBox[{"d", " ", "p"}], "-", SuperscriptBox["p", "2"], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"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.8610533593738337`*^9, 3.861053608512151*^9, 3.8610537264623404`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"ce57cbbb-7158-4339-baf2-71a835a2ce68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"(", RowBox[{ RowBox[{"2", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-", RowBox[{ SuperscriptBox["l", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p", " ", "\[Theta]"}], "+", RowBox[{"l", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], ",", "p"}], "]"}]], "Input", CellChangeTimes->{{3.8610533651732473`*^9, 3.861053378720413*^9}, 3.861053621110057*^9, 3.861053739580958*^9}, CellLabel->"In[14]:=",ExpressionUUID->"c24b34c5-3a2f-449d-94cd-f2ed40d34ac8"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"l", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "\[Theta]"}], "-", RowBox[{"p", " ", "\[Theta]"}]}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{ 3.8610534044458103`*^9, {3.861053622629068*^9, 3.861053645076572*^9}, 3.861053740803722*^9}, CellLabel->"Out[14]=",ExpressionUUID->"e39adbdc-797a-49ab-8654-b4d72882a87f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input", CellChangeTimes->{{3.86105342057023*^9, 3.8610534287547007`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"625b4c4c-cfdd-438b-b8d9-7a8d17bed66d"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"p", "\[Rule]", FractionBox[ RowBox[{"1", "+", "d"}], "2"]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.8610534293777723`*^9, {3.8610536260025187`*^9, 3.8610536496623363`*^9}, 3.861053746886313*^9}, CellLabel->"Out[15]=",ExpressionUUID->"2a3da7b7-307b-4a5c-b668-860b9f91e5ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"l", ":=", FractionBox[ RowBox[{"p", "+", RowBox[{"d", " ", "p"}], "-", SuperscriptBox["p", "2"], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"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[{"p", ":=", FractionBox[ RowBox[{"1", "+", "d"}], "2"]}], "\[IndentingNewLine]", "l"}], "Input", CellChangeTimes->{{3.861053772265349*^9, 3.861053791190922*^9}, { 3.861054094839044*^9, 3.861054095173009*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"46bc50e9-ac81-4a8b-a6c7-8e29d025e840"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output", CellChangeTimes->{3.861054111707676*^9}, CellLabel->"Out[24]=",ExpressionUUID->"9383781d-9ca6-4247-928d-d96b4500d77d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[25]:=",ExpressionUUID->"5494c2f7-6b58-4435-86e0-4a25a6915b14"], Cell[BoxData[ FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output", CellChangeTimes->{3.861054113591381*^9}, CellLabel->"Out[25]=",ExpressionUUID->"657e6bfc-ab96-4f45-84bd-03f411743995"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["e"], "Input", CellChangeTimes->{3.8610537931944637`*^9}, CellLabel->"In[18]:=",ExpressionUUID->"fc0c29d8-21f0-488d-89c0-a10c349cbe16"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"(", RowBox[{"\[Theta]", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.861053793559709*^9}, CellLabel->"Out[18]=",ExpressionUUID->"ad2e3f56-9ac8-49ff-96b2-a7000ec081a5"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", "%18", "]"}]], "Input", NumberMarks->False, CellLabel->"In[19]:=",ExpressionUUID->"2a2e5e95-707d-42b1-8587-dd2e3d96d853"], Cell[BoxData[ StyleBox[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], FontColor->RGBColor[1, 0, 0]]], "Input", CellChangeTimes->{3.865107631899247*^9}, CellLabel->"Out[19]=",ExpressionUUID->"7b98acd2-167f-49d8-8e63-45f26b46b1e5"], Cell[CellGroupData[{ Cell[BoxData["r"], "Input", CellChangeTimes->{3.861053798734082*^9}, CellLabel->"In[20]:=",ExpressionUUID->"07640780-01d0-495a-b74b-f4473abc3487"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "\[Theta]", "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861053799422203*^9}, CellLabel->"Out[20]=",ExpressionUUID->"958f409e-7f35-405a-9c6b-1b0d4f4d2cbf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%20", "]"}]], "Input", NumberMarks->False, CellLabel->"In[21]:=",ExpressionUUID->"81f9db75-f089-4664-9dc3-847f37d8f146"], Cell[BoxData[ FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.861053801340972*^9}, CellLabel->"Out[21]=",ExpressionUUID->"ad6e1d7a-fd4f-43b7-8d26-797bb1d1351c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.861054007644217*^9, 3.861054018245656*^9}, { 3.861054902157628*^9, 3.86105492591016*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"55cb19c7-f9bb-4e71-a37c-6d0ad9f9c1fe"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "-", RowBox[{"16", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "-", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]}], "Input", CellChangeTimes->{{3.8610549723849173`*^9, 3.861054986674879*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"16118d30-7c50-43d2-ba30-14bd8ac96264"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "-", RowBox[{"16", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "-", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.861055000491314*^9}, CellLabel->"Out[2]=",ExpressionUUID->"8b7e1a2d-674c-4e3a-ae6e-9ea5619554ad"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.861055000498146*^9}, CellLabel->"Out[3]=",ExpressionUUID->"710bcb80-28d2-424c-82ee-cf5b09d34dd2"] }, Open ]], Cell[TextData[{ StyleBox["1. When the contract launch price is the optimal price for SA:\n", "Chapter", FontColor->RGBColor[1, 0, 0]], StyleBox["\nWe 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"}], ")"}], "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], "+", RowBox[{"8", " ", "k", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID-> "eb085465-3055-46a7-9146-d960a226571e"], StyleBox[".in this paper, we consider the case with ", FontColor->RGBColor[1, 0, 0]], " ", Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], "-", RowBox[{"16", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], "-", RowBox[{"8", " ", "k", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}]], "<"}]],ExpressionUUID-> "835bfde2-cb06-4ffc-aba0-088717793721"], Cell[BoxData[ RowBox[{"\[Alpha]", "<", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], "+", RowBox[{"8", " ", "k", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID-> "17fe35ea-8493-4e32-a6d6-753128e5effa"], ", 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[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+", RowBox[{"8", " ", "k", " ", "\[Alpha]", StyleBox[ RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], FontColor->RGBColor[0, 0, 1]]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], CellChangeTimes->{3.861006836593441*^9}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "e53298fb-dfb0-4c1e-8489-7f2904c8df68"], StyleBox[", that ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FractionBox["\[Psi]", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]], CellChangeTimes->{3.861006836593441*^9}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "2bed71fa-1616-426c-b4c3-762b0cbfba63"], StyleBox[", where ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "-", RowBox[{"8", " ", "k", " ", "\[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[ StyleBox[ RowBox[{"(", RowBox[{"1", "-", "d"}], ")"}], FontColor->RGBColor[1, 0, 0]], "2"]}], "-", RowBox[{"8", "\[Alpha]k", StyleBox[ RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], FontColor->RGBColor[0, 0, 1]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "4", "\[Theta]"}]}]}]}]], CellChangeTimes->{3.861006836593441*^9}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "49776d69-4fbd-4364-9518-63f7bc6a5ea2"], StyleBox["\n\nr = ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{"\[Beta]", RowBox[{"(", RowBox[{"1", "-", FractionBox["\[Psi]", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}], ")"}]}]], CellChangeTimes->{3.861006836593441*^9}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "5ec3f8f2-404c-4536-9f03-680cb099e852"], StyleBox[",\np =", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FractionBox[ RowBox[{" ", RowBox[{"1", "+", "d"}]}], RowBox[{" ", "2"}]]], CellChangeTimes->{3.861006836593441*^9}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "5f130771-d3de-4941-8757-a4649cca2cda"], StyleBox[",\nl = ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], CellChangeTimes->{ 3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "d90d1b1b-9006-4cea-ae2d-a947585119e9"], StyleBox[" = ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FractionBox[ RowBox[{ StyleBox["\[Psi]", FontColor->RGBColor[0, 0, 1]], "-", RowBox[{"8", "\[Theta]", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]], CellChangeTimes->{ 3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}}, FontColor->RGBColor[1, 0, 0],ExpressionUUID-> "44e8d26a-fde4-4460-943e-ded02b199409"] }], "Text", CellChangeTimes->{ 3.861053834379322*^9, {3.861053871833085*^9, 3.861053885847558*^9}, { 3.861053996601655*^9, 3.861054068112754*^9}, {3.861054136147478*^9, 3.861054202840315*^9}, {3.861054401436378*^9, 3.861054409479253*^9}, { 3.8610550163752213`*^9, 3.8610550356686907`*^9}, {3.861681662207465*^9, 3.861681662531735*^9}, {3.861681741087111*^9, 3.8616817747970552`*^9}},ExpressionUUID->"2143614c-c3ce-4101-86b0-\ 1320831aec67"], Cell[CellGroupData[{ Cell[BoxData["Profitv"], "Input", CellChangeTimes->{{3.861353419196454*^9, 3.861353423918604*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"3f8b77b4-6f85-44fd-9f86-b7981374d3b8"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cv"}], "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"], RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.8613534247261057`*^9}, CellLabel->"Out[8]=",ExpressionUUID->"cd2f624c-addb-47a2-bdb7-734901923b0f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%8", "]"}]], "Input", NumberMarks->False, CellLabel->"In[9]:=",ExpressionUUID->"e70dfba0-e6b8-484e-9632-92e019efa6f7"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"256", " ", "cv", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"2", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "-", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", "g", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"192", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"8", " ", "\[Theta]"}], "-", RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-", RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-", RowBox[{"64", " ", "g", " ", "k", " ", 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", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-", 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", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.861353427788968*^9}, CellLabel->"Out[9]=",ExpressionUUID->"ca11a152-0ad6-4327-b403-30fbfe00b3e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.861353431491354*^9, 3.861353434527341*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"813820e9-6a51-4692-9548-70b61d633772"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861353435091346*^9}, CellLabel->"Out[10]=",ExpressionUUID->"aefd998e-ebdb-4c36-9da6-5f9dd3bf0c8c"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", "%10", "]"}]], "Input", NumberMarks->False, CellLabel->"In[11]:=",ExpressionUUID->"e3727321-eab2-4c52-a48f-4387137a9c5f"], Cell[BoxData[ StyleBox[ RowBox[{ FractionBox["1", RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"128", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "+", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", "g", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"8", " ", "\[Theta]"}], "-", RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", RowBox[{"64", " ", "g", " ", "k", " ", 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", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-", 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", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], FontColor->RGBColor[1, 0, 0]]], "Input", CellChangeTimes->{3.865107921414369*^9}, CellLabel->"Out[11]=",ExpressionUUID->"455c0cc9-0af5-4347-9a08-4e148968e3cc"], Cell[BoxData[ RowBox[{"CS", ":=", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}]}]], "Input", CellChangeTimes->{{3.861353493890038*^9, 3.861353532162258*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"45079712-60e6-48bc-bea8-cdb81844b220"], Cell[BoxData[ RowBox[{"SW", ":=", RowBox[{"Profits", "+", "Profitv", "+", "CS"}]}]], "Input", CellChangeTimes->{{3.86135353494991*^9, 3.8613535573792973`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"ec4d27a4-c612-4690-ae14-f5ef0c50597c"], Cell[CellGroupData[{ Cell[BoxData["SW"], "Input", CellChangeTimes->{{3.861353560803957*^9, 3.8613535623481417`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"cb1060f5-09d1-4904-a27c-a324a93d5e7f"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "+", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"], RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861353562771101*^9}, CellLabel->"Out[14]=",ExpressionUUID->"15096e73-c132-4c14-b623-9c61540ee7d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%14", "]"}]], "Input", NumberMarks->False, CellLabel->"In[15]:=",ExpressionUUID->"b2add1d5-795a-4595-b53c-4abca009bf8b"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ 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[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "g"}], "+", RowBox[{"3", " ", SuperscriptBox["g", "2"]}]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"16", " ", "cv", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"16", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"3", " ", "\[Alpha]"}], "-", RowBox[{"3", " ", "g", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "\[Theta]"}], "-", RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "g", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-", RowBox[{"4", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[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", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.861353566655361*^9}, CellLabel->"Out[15]=",ExpressionUUID->"0db542f0-a269-4a73-899a-163af2aa703e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"+", FractionBox["1", "8"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"], RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", 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]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8616835691416273`*^9, 3.861683583519001*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"f3b530fb-b9e0-4336-9293-173d11ff059f"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ 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[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "g"}], "+", RowBox[{"3", " ", SuperscriptBox["g", "2"]}]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-", RowBox[{"4", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[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", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"16", " ", "cs", " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"16", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", "g"}], "-", RowBox[{"12", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "g", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.8616835846540527`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"6fdbf553-3a0b-4a95-afd9-4e0460a33a42"] }, 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->"6de44d36-1a9f-407a-8ca0-\ c6e05d0b2d96"], Cell[BoxData[{ RowBox[{"e", ":=", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "\[IndentingNewLine]", RowBox[{"r", ":=", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "\[IndentingNewLine]", RowBox[{"l", ":=", FractionBox[ RowBox[{"p", "+", RowBox[{"d", " ", "p"}], "-", SuperscriptBox["p", "2"], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"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[{"p", ":=", FractionBox[ RowBox[{"1", "+", "d"}], "2"]}], "\[IndentingNewLine]", RowBox[{"Profitv", ":=", RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"256", " ", "cv", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"2", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "-", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", "g", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"192", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"8", " ", "\[Theta]"}], "-", RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-", RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-", RowBox[{"64", " ", "g", " ", "k", " ", 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", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-", 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", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Profits", ":=", RowBox[{ FractionBox["1", RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"128", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "+", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", "g", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"8", " ", "\[Theta]"}], "-", RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+", RowBox[{"64", " ", "g", " ", "k", " ", 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", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-", 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", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"CS", ":=", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SW", ":=", RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ 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[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "g"}], "+", RowBox[{"3", " ", SuperscriptBox["g", "2"]}]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"16", " ", "cv", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"16", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"3", " ", "\[Alpha]"}], "-", RowBox[{"3", " ", "g", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "\[Theta]"}], "-", RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "g", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-", RowBox[{"4", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[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", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.8613533191881237`*^9, 3.8613533536643343`*^9}, { 3.86135345230765*^9, 3.861353480004467*^9}, {3.861353512566572*^9, 3.86135351321592*^9}, {3.861353574636325*^9, 3.8613535775427094`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"e5194063-fb56-4f74-b6b3-f1d67e6f6956"], Cell[TextData[StyleBox["d", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9},ExpressionUUID->"cf454cf4-5b9f-44b6-96e4-\ c423ce4ff10d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"e", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861353590774642*^9, 3.861353593876211*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"550d00d2-bb1a-49c5-b8bd-130f4322ca39"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.8613535954975452`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"76cd7e8c-669a-464c-8a8c-45a89cd5cd2b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input", NumberMarks->False, CellLabel->"In[17]:=",ExpressionUUID->"8bc0f865-3930-43dd-ad0c-1a905e8b772b"], Cell[BoxData[ FractionBox[ RowBox[{"1", "+", "d"}], RowBox[{"8", " ", "k"}]]], "Output", CellChangeTimes->{3.8613535979991913`*^9}, CellLabel->"Out[17]=",ExpressionUUID->"d203b0ff-2b1d-4891-aac5-5374fb45dff9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"r", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.8613536121054153`*^9, 3.861353616751729*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"4bd7ceef-da59-4f6f-b35c-18eac6c56af3"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Beta]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.8613536174231367`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"0abc7e9a-073d-478b-bc48-1df7179ba03d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Beta]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input", NumberMarks->False, CellLabel->"In[19]:=",ExpressionUUID->"a33bb8fe-cfae-4005-89ef-db225cf8d236"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Beta]"}], RowBox[{"8", " ", "k"}]]}]], "Output", CellChangeTimes->{3.861353619447398*^9}, CellLabel->"Out[19]=",ExpressionUUID->"60450297-f20d-4bf6-8774-cc9e54cd789d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"l", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861353637969092*^9, 3.8613536424970903`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"4b05c590-f011-40e7-b1b1-351c210ae0ec"], Cell[BoxData[ FractionBox[ RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output", CellChangeTimes->{3.861353643710033*^9}, CellLabel->"Out[20]=",ExpressionUUID->"c38d7651-0373-420b-ba91-a31a2b9555c8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\ NumberMarks->False, CellLabel->"In[21]:=",ExpressionUUID->"f5fa0492-0741-4c08-9be8-09ce086963ec"], Cell[BoxData[ FractionBox[ RowBox[{"1", "+", "d"}], RowBox[{"4", "-", RowBox[{"4", " ", "\[Alpha]"}]}]]], "Output", CellChangeTimes->{3.861353646346902*^9}, CellLabel->"Out[21]=",ExpressionUUID->"2a807453-a6f3-4083-8e39-01776e2840d1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"p", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861353660832643*^9, 3.8613536690207243`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"eaa665c0-43a2-464c-a11b-2cb94fb46778"], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.8613536704580812`*^9}, CellLabel->"Out[22]=",ExpressionUUID->"f574e767-8a0e-40da-ae8e-0c41ad3cb4c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861353675367622*^9, 3.861353683467754*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"cdf6521c-4281-428a-bc90-b36e3e6ee050"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "4"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.861353684099291*^9}, CellLabel->"Out[23]=",ExpressionUUID->"63ecc6b5-60c4-47bc-a466-4f718d08f0fb"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", "%23", "]"}]], "Input", NumberMarks->False, CellLabel->"In[24]:=",ExpressionUUID->"416d62ea-1630-4661-81cd-fc26c28e7ee2"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", StyleBox[ RowBox[{"8", " ", "g", " ", "k"}], FontColor->RGBColor[1, 0, 0]], StyleBox["+", FontColor->RGBColor[1, 0, 0]], RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"32", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Input", CellChangeTimes->{3.861353720357052*^9}, CellLabel->"Out[24]=",ExpressionUUID->"a844b7e3-fed0-4f86-a6e2-f73364f29d90"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitv", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861353737085981*^9, 3.861353738420162*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"5d594ada-da6c-4978-92fe-68335fb410c2"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Theta]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "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]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.86135373957155*^9}, CellLabel->"Out[25]=",ExpressionUUID->"d3017130-8c5d-4568-82db-1f65ef990880"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", "%25", "]"}]], "Input", NumberMarks->False, CellLabel->"In[26]:=",ExpressionUUID->"2d7becb3-04bd-45d6-a5f6-173f1844dee5"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-", RowBox[{"8", " ", RowBox[{"(", StyleBox[ RowBox[{"1", "+", "g"}], FontColor->RGBColor[1, 0, 0]], ")"}], " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"64", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Input", CellChangeTimes->{3.8613537517881737`*^9}, CellLabel->"Out[26]=",ExpressionUUID->"0ad29fd8-4da4-4ea1-ada6-9c6d55f93d71"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"CS", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.8612486502431192`*^9, 3.861248653478381*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"3f42152b-ffb1-4ab6-a2d3-e5e44b8f26ff"], Cell[BoxData[ FractionBox[ RowBox[{"1", "+", "d"}], "4"]], "Output", CellChangeTimes->{3.8613537706211557`*^9}, CellLabel->"Out[27]=",ExpressionUUID->"8693630f-75eb-4e25-a5b4-0c8f91d25f5a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"SW", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861248637509153*^9, 3.8612486403131037`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"a8a62fc7-b5db-41fb-a541-b0f40a046adb"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "4"], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Theta]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "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]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "4"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", FractionBox["d", "2"], "+", FractionBox[ RowBox[{"1", "+", "d"}], "2"], "-", FractionBox["\[Alpha]", "2"], "-", FractionBox[ RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.8613537800684032`*^9}, CellLabel->"Out[28]=",ExpressionUUID->"2cdb4f37-9c95-4318-b97a-60d2d4c3fe26"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", "%28", "]"}]], "Input", NumberMarks->False, CellLabel->"In[29]:=",ExpressionUUID->"2d767c24-657d-42b4-a00c-e79221c777b1"], Cell[BoxData[ StyleBox[ RowBox[{ FractionBox["1", RowBox[{"64", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], FontColor->RGBColor[1, 0, 0]]], "Input", CellChangeTimes->{3.861353816954146*^9}, CellLabel->"Out[29]=",ExpressionUUID->"725a669f-0ada-4972-96ca-3a6b13bc3135"], Cell[TextData[StyleBox["k", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9, {3.861249011919739*^9, 3.861249013901259*^9}},ExpressionUUID->"398b4578-cc32-4d08-89db-\ 6cd377df0c95"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"e", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.861249028324807*^9, 3.861249033275959*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"6aa9bb15-3fa3-4f9e-9e94-3ecc6ee5e3e6"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.861353831350944*^9}, CellLabel->"Out[30]=",ExpressionUUID->"15b4ee9c-ffd4-457c-927b-8e55dc5519b4"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[31]:=",ExpressionUUID->"f34d2087-3365-434e-b52c-a5a34c81e3b7"], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{"-", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"]}]]}], FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[ RowBox[{"D", "[", RowBox[{"r", ",", "k"}], "]"}], FontColor->RGBColor[1, 0, 0]]}], "Input", CellChangeTimes->{{3.86135384307349*^9, 3.86135385516286*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"bcb15edc-4bc2-4a77-9b76-e3d22e152eb2"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"]}]]}]], "Output", CellChangeTimes->{3.861353856154168*^9}, CellLabel->"Out[32]=",ExpressionUUID->"b99005ea-889c-4ca1-b416-7c05915c3e0e"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}], RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.86135385615812*^9}, CellLabel->"Out[33]=",ExpressionUUID->"e48a765a-71e9-4e32-9b7e-b4066d11932e"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}], RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[34]:=",ExpressionUUID->"7f333e4d-46b8-4388-86b5-a9e1832bebab"], Cell[BoxData[ StyleBox[ FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"]}]], FontColor->RGBColor[1, 0, 0]]], "Input", CellChangeTimes->{3.861353863703122*^9}, CellLabel->"Out[34]=",ExpressionUUID->"0fa1559b-3036-4944-9c32-6605aafec552"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"l", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.861353867765656*^9, 3.861353872623465*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"1a8a909f-f584-44bf-a589-2b2cb8729bff"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output", CellChangeTimes->{3.861353873909151*^9}, CellLabel->"Out[35]=",ExpressionUUID->"bf6fe457-6b8b-402b-9b5a-e4d47fb621f4"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\ NumberMarks->False, CellLabel->"In[36]:=",ExpressionUUID->"fc2d6192-10b3-4396-b2b2-d08f7654fc3c"], Cell[BoxData[ StyleBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], FontColor->RGBColor[1, 0, 0]]], "Input", CellChangeTimes->{3.861353887124354*^9}, CellLabel->"Out[36]=",ExpressionUUID->"29e46bef-f7b1-409c-9ee9-890ac0253ba0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"p", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.8613539403694763`*^9, 3.861353944959594*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"49500460-af10-4ca9-9b1c-d7685481f0f8"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.861353946198331*^9}, CellLabel->"Out[37]=",ExpressionUUID->"5810e274-2b5b-4918-80af-09cab2901e6a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.8613539547292*^9, 3.861353962241681*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"b62da1b9-5f3c-4c19-97f4-4ca04ad68404"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "-", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}], RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.8613539631979723`*^9}, CellLabel->"Out[38]=",ExpressionUUID->"57a65512-3944-419d-9a90-b46f7e14d0b9"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", "%38", "]"}]], "Input", NumberMarks->False, CellLabel->"In[39]:=",ExpressionUUID->"5faaf32d-7da4-4ff9-bf89-ea31dd4a57d9"], Cell[BoxData[ RowBox[{"-", FractionBox["1", RowBox[{"128", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ 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", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-", RowBox[{"2", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "64"}], " ", StyleBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], "2"], FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox[ SuperscriptBox["k", "2"], FontColor->RGBColor[1, 0, 0]]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}], ")"}]}]], "Input", CellChangeTimes->{3.861353978714225*^9}, CellLabel->"Out[39]=",ExpressionUUID->"68cad228-f1c3-4660-a3f8-9d505b5808c5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"y2", ":=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+", RowBox[{"16", "\[Alpha]", " ", "k", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-", RowBox[{"(", RowBox[{ 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", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-", RowBox[{"2", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "64"}], " ", StyleBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], "2"], FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox[ SuperscriptBox["k", "2"], FontColor->RGBColor[1, 0, 0]]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "y2"}], "Input", CellChangeTimes->{{3.861832202576578*^9, 3.861832235078733*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"57138407-0bfa-4565-9b56-be09fba66ffc"], Cell[BoxData[ RowBox[{ RowBox[{ 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", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "+", RowBox[{"2", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "-", RowBox[{ SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "64"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], "2"], " ", SuperscriptBox["k", "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}]], "Output",\ CellChangeTimes->{3.861832236080944*^9}, CellLabel->"Out[23]=",ExpressionUUID->"82a02212-0972-4145-b0d4-1bd33a1643cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%23", "]"}]], "Input", NumberMarks->False, CellLabel->"In[24]:=",ExpressionUUID->"213ac6d8-7b47-45e9-95b9-4121ddbfe04b"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.861832237742505*^9}, CellLabel->"Out[24]=",ExpressionUUID->"b57c7e9a-ceae-4a26-b031-fe5143ba8885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitv", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.8613539839347267`*^9, 3.861353992434057*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"ea190eeb-734c-45cf-9738-10d4ae471c0d"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"32", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"], RowBox[{"256", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861353993364915*^9}, CellLabel->"Out[40]=",ExpressionUUID->"074e8a40-7e00-4259-8e03-95a667a18aa5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%40", "]"}]], "Input", NumberMarks->False, CellLabel->"In[41]:=",ExpressionUUID->"f07b7b5f-f2a2-4a40-b9f2-d68c698e20a4"], Cell[BoxData[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"256", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "g"}], "+", SuperscriptBox["g", "2"]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-", RowBox[{"2", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Alpha]", "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"} ]}]}]], "Output", CellChangeTimes->{3.861353996095647*^9}, CellLabel->"Out[41]=",ExpressionUUID->"e01df94a-3d85-410a-9f38-1bec9df1e4a8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"y1", ":=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+", RowBox[{"16", "\[Alpha]", " ", "k", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"16", "\[Alpha]", " ", "k"}]}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "g"}], "+", SuperscriptBox["g", "2"]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-", RowBox[{"2", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Alpha]", "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}], "\[IndentingNewLine]", "y1"}], "Input", CellChangeTimes->{{3.861831761123672*^9, 3.861831823474901*^9}, { 3.861831860292506*^9, 3.861831863527515*^9}, {3.861831900790147*^9, 3.8618319443719387`*^9}, {3.861831980109166*^9, 3.861831986667197*^9}, { 3.861832100272862*^9, 3.861832107131427*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"0e4326d0-dd5c-4b49-af7e-3ccc248ead81"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["d", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox["d", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "g"}], "+", SuperscriptBox["g", "2"]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"4", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "+", RowBox[{"2", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Alpha]", "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]], "Output", CellChangeTimes->{ 3.86183183119554*^9, 3.861831865417286*^9, {3.8618319026367064`*^9, 3.861831922314452*^9}, 3.861831957298853*^9, 3.861831991809099*^9, 3.861832108241859*^9}, CellLabel->"Out[20]=",ExpressionUUID->"cec7f8b9-fa26-4c1a-89fa-aae25c6d7d6d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%20", "]"}]], "Input", NumberMarks->False, CellLabel->"In[21]:=",ExpressionUUID->"54668963-aa10-4029-9fe1-391a0c332e1a"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.861832109979171*^9}, CellLabel->"Out[21]=",ExpressionUUID->"bc137c7e-514b-497f-8675-e32e749ba22a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"CS", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.861354032511303*^9, 3.861354037970663*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"587eb989-5c51-42eb-9e1c-2ce5616d181a"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.861354038632864*^9}, CellLabel->"Out[42]=",ExpressionUUID->"e4e40901-b6c0-43ce-add2-4e6cb7a050f6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"SW", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.861354040537871*^9, 3.8613540433942537`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"a08f0fc8-520c-466f-ac7a-bca91d71314b"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", RowBox[{ FractionBox["1", RowBox[{"32", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"], RowBox[{"256", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}], RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", SuperscriptBox["k", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.861354044144536*^9}, CellLabel->"Out[43]=",ExpressionUUID->"e6a9776f-7afe-446d-8918-e43c83677e36"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%43", "]"}]], "Input", NumberMarks->False, CellLabel->"In[44]:=",ExpressionUUID->"62c9690a-d64c-481b-ac14-d049de91c35c"], Cell[BoxData[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"256", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ 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[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "g"}], "+", RowBox[{"3", " ", SuperscriptBox["g", "2"]}]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"12", " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-", RowBox[{"6", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Alpha]", "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861354047771679*^9}, CellLabel->"Out[44]=",ExpressionUUID->"2b1abee9-360d-4044-a946-72a7daf42631"] }, Open ]], Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9, {3.861249019985586*^9, 3.861249022197942*^9}},ExpressionUUID->"1b14e7ff-49bb-4dce-8ade-\ c988a9245473"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.861354068198099*^9, 3.861354074231593*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"70970e28-798c-457d-bb81-efa6a0bc5c14"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.8613540751926603`*^9}, CellLabel->"Out[45]=",ExpressionUUID->"28243852-74fc-471b-86bb-bced4d930fcc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input", NumberMarks->False, CellLabel->"In[46]:=",ExpressionUUID->"0d68f339-d23a-44f8-83a2-2c2544b89fe0"], Cell[BoxData[ FractionBox["1", RowBox[{"4", " ", "k"}]]], "Output", CellChangeTimes->{3.861354077693679*^9}, CellLabel->"Out[46]=",ExpressionUUID->"d967861a-83eb-4aea-8688-ed75124e747b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.861251434245288*^9, 3.861251440854623*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"416165c8-b03d-4a65-afbb-7ad96c162560"], Cell[BoxData[ RowBox[{"-", FractionBox["\[Beta]", RowBox[{"4", " ", "k"}]]}]], "Output", CellChangeTimes->{3.86135408748772*^9}, CellLabel->"Out[47]=",ExpressionUUID->"aba8e5ed-c111-42c3-86db-f811920ff036"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.861251449822323*^9, 3.861251461670189*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"bb32702c-625f-4c2b-8e80-2fbd441bf1ff"], Cell[BoxData[ FractionBox["1", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.861354095586369*^9}, CellLabel->"Out[48]=",ExpressionUUID->"df495768-6733-49ea-a93d-e8ec8848c72b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"p", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.8612515165075274`*^9, 3.861251520397028*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"8ee8dded-5dd8-4b20-9e70-082422aa2f21"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.8613541079449863`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"56531f31-e8b5-48bf-ba3e-2abd0acaf0f6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.8612515253354683`*^9, 3.861251540210231*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"9ada0fa1-00e1-40d8-9ee9-e289424c3087"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["\[Alpha]", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "-", FractionBox[ 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]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}], RowBox[{"4", " ", "k"}]], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.861354116221743*^9}, CellLabel->"Out[50]=",ExpressionUUID->"3105d690-d647-4f73-93f1-9fd5d9a50ebc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%50", "]"}]], "Input", NumberMarks->False, CellLabel->"In[51]:=",ExpressionUUID->"0b0ece08-c56d-4e49-9752-4bb7c9a199c5"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.8613541187426453`*^9}, CellLabel->"Out[51]=",ExpressionUUID->"b605331b-d890-4db8-96c8-800fde119437"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"CS", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.8613541825452747`*^9, 3.861354186817088*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"0fb77a65-9b0e-4f84-984c-d76140105b88"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.8613541879820127`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"1936430e-9d32-4a29-a5b0-638a1c42cc9c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"SW", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.861354189584564*^9, 3.861354192714037*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"7ebb7455-a275-4438-8a52-3ed6cd402d53"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Theta]"}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}], RowBox[{"4", " ", "k"}]], "-", RowBox[{ FractionBox["1", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "d"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]", "+", RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.861354193867628*^9}, CellLabel->"Out[53]=",ExpressionUUID->"adc4f297-730c-42f7-8188-1527b6d03ecf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%53", "]"}]], "Input", NumberMarks->False, CellLabel->"In[54]:=",ExpressionUUID->"6d30cde9-a0fe-4da3-9e2f-ef995dc6cd9f"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"32", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.861354197237681*^9}, CellLabel->"Out[54]=",ExpressionUUID->"75a5e559-d1b9-41d3-bd5b-b2687db99cbc"] }, Open ]], Cell[TextData[StyleBox["g", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9, {3.861249019985586*^9, 3.861249022197942*^9}, { 3.861773217824276*^9, 3.8617732191058064`*^9}},ExpressionUUID->"19dee3ef-b9ac-4566-b9da-\ e312d947091b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"e", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.861773221325624*^9, 3.86177322375537*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"5d7e1862-8df1-4f58-ad07-eb5df67ce89e"], Cell[BoxData[ RowBox[{"-", FractionBox["\[Alpha]", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.861773224351654*^9}, CellLabel->"Out[9]=",ExpressionUUID->"a41e104d-0506-4960-ae1b-240e86d1a696"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"r", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.86177323317243*^9, 3.861773236125758*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"0f72b0bb-e77a-4743-8e8e-ad7dedbdd627"], Cell[BoxData[ FractionBox[ RowBox[{"\[Alpha]", " ", "\[Beta]"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.8617732367267933`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"463e07ec-b3b1-4ca3-ae46-5dce9a993140"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"l", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.861773238837881*^9, 3.861773251879117*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"1f2226d6-edb2-44ec-a602-354319cfdbe7"], Cell[BoxData[ FractionBox[ RowBox[{"k", " ", "\[Alpha]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output", CellChangeTimes->{3.86177325250294*^9}, CellLabel->"Out[11]=",ExpressionUUID->"fe335262-9fc7-4549-9e8b-f59d96273f79"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"p", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.8617732602002563`*^9, 3.861773262582962*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"51aa1fb5-f8b1-47ca-8dd3-dea504913172"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.861773263127344*^9}, CellLabel->"Out[12]=",ExpressionUUID->"cfc83569-ff2b-4d68-a53b-c3120fa1d8be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.8617732644603558`*^9, 3.8617732714743013`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"91343714-a691-4a9f-b31d-812c1366bc4e"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"128", " ", "cs", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"32", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"128", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\ CellChangeTimes->{3.861773272087201*^9}, CellLabel->"Out[13]=",ExpressionUUID->"58dfdadd-613e-4dec-828c-18ee1e4e22c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox["1", RowBox[{"128", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"128", " ", "cs", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"32", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"128", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[14]:=",ExpressionUUID->"de2fa53d-4388-4aa1-a6eb-e78f37cc2943"], Cell[BoxData[ RowBox[{"cs", "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"8", " ", "g", " ", "k"}], "-", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.861773274736067*^9}, CellLabel->"Out[14]=",ExpressionUUID->"900ff46a-61f5-42ba-bb57-1b03651c60c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitv", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.861773277829068*^9, 3.861773291817732*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"54f0ec40-f8b1-4d7a-b294-0cc5999e92b4"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"32", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\ CellChangeTimes->{3.86177329254453*^9}, CellLabel->"Out[15]=",ExpressionUUID->"a613999b-2aff-4c0a-b478-8c78156b865b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"32", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"16", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"128", " ", "g", " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"64", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[16]:=",ExpressionUUID->"f670d3d2-2a17-4518-997c-e6d03a1734e2"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"\[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", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.8617733014368563`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"8c380769-0c43-4d9d-b5c5-f0fa403574a9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"SW", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.861773306562605*^9, 3.861773313581609*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"25f3675b-fab0-410f-9ed6-eb2c932d3e4d"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "96"}], " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"48", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"6", " ", "g"}]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"16", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"3", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.861773314185585*^9}, CellLabel->"Out[17]=",ExpressionUUID->"31ed8424-621d-4755-98da-9be26bde4eb7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox["1", RowBox[{"256", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "96"}], " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"48", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"6", " ", "g"}]}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"16", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"3", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[18]:=",ExpressionUUID->"c56beaa8-6c54-4f50-b44a-cac8c9a988f6"], Cell[BoxData[ RowBox[{"cs", "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"8", " ", "k"}], "-", RowBox[{"24", " ", "g", " ", "k"}], "-", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.861773316436969*^9}, CellLabel->"Out[18]=",ExpressionUUID->"a28169e3-ec8a-4bfd-b78e-3c903a8d70fe"] }, 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->"78983380-eb6c-454d-8fe3-\ 57374fe2677a"], Cell[BoxData[{ RowBox[{"Profitv", ":=", RowBox[{ RowBox[{"\[Alpha]", " ", "l"}], "+", RowBox[{"e", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[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", "-", "p"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs", " ", "-", RowBox[{ RowBox[{"(", RowBox[{"r", "-", "g"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]}], "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}}, CellLabel->"In[1]:=",ExpressionUUID->"1d339ec5-1990-4d2e-a561-6eca806bdc8e"], Cell[BoxData[{ RowBox[{"e", ":=", FractionBox[ RowBox[{"l", "-", RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]", RowBox[{"r", ":=", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]}], "Input", CellChangeTimes->{{3.86168432677932*^9, 3.861684327337453*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"2e339dc4-0781-44a4-b6f3-12cb4a0fe9b9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Profitv", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input", CellChangeTimes->{{3.8616818904846277`*^9, 3.861681906956009*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"35b3532f-11e2-4e17-b29d-6d8e29f904fd"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"l", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-", FractionBox["\[Theta]", "k"], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "-", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"cv", "-", RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+", RowBox[{"cv", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], SqrtBox["k"]]}], RowBox[{ FractionBox["1", "k"], "-", FractionBox[ RowBox[{"2", " ", "\[Alpha]"}], "k"], "+", FractionBox[ SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"l", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-", FractionBox["\[Theta]", "k"], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "+", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"cv", "-", RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+", RowBox[{"cv", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], SqrtBox["k"]]}], RowBox[{ FractionBox["1", "k"], "-", FractionBox[ RowBox[{"2", " ", "\[Alpha]"}], "k"], "+", FractionBox[ SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.8616819077879143`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"7c308161-9cb2-4d68-95d4-35606c30806a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-", FractionBox["\[Theta]", "k"], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "+", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"cv", "-", RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+", RowBox[{"cv", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], SqrtBox["k"]]}], RowBox[{ FractionBox["1", "k"], "-", FractionBox[ RowBox[{"2", " ", "\[Alpha]"}], "k"], "+", FractionBox[ SuperscriptBox["\[Alpha]", "2"], "k"]}]], "]"}]], "Input", CellChangeTimes->{{3.861682275473695*^9, 3.86168232427803*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"7fdb0ace-f368-49ca-a53d-b45d5364e71b"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output", CellChangeTimes->{3.8616822910086203`*^9, 3.861682325183996*^9}, CellLabel->"Out[7]=",ExpressionUUID->"c77b91b1-2681-44da-82a8-e6dee7e31514"] }, Open ]], Cell[BoxData[ RowBox[{"l", ":=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Input", CellChangeTimes->{{3.861682331059888*^9, 3.861682341286317*^9}, { 3.8616825426661863`*^9, 3.86168254287246*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"47b5c540-85e5-43fc-bbc9-394454d7104f"], Cell[CellGroupData[{ Cell[BoxData["e"], "Input", CellChangeTimes->{3.8616825271743603`*^9}, CellLabel->"In[11]:=",ExpressionUUID->"e70c54c6-0160-4bc9-ae3b-579bdeed1d1a"], Cell[BoxData[ FractionBox[ RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{{3.8616825285287313`*^9, 3.861682545380088*^9}}, CellLabel->"Out[11]=",ExpressionUUID->"09dbbfb5-f600-49e5-bb98-c8d24d70d585"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", FractionBox[ RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], RowBox[{"2", " ", "k"}]], "]"}]], "Input", NumberMarks->False, CellLabel->"In[12]:=",ExpressionUUID->"0b3aec12-e3fb-4b9f-8b59-7592f43dc1f7"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.861682550717836*^9}, CellLabel->"Out[12]=",ExpressionUUID->"8fd581e0-9b09-49a3-aa27-d60c98bcc235"] }, Open ]], Cell[BoxData[ RowBox[{"e", ":=", FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Input", CellChangeTimes->{{3.861685553693561*^9, 3.861685559506888*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"b16caaa0-1166-40eb-afaf-de7d11a35f93"], Cell[CellGroupData[{ Cell[BoxData["Profitv"], "Input", CellChangeTimes->{{3.8616836030855503`*^9, 3.861683607663855*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"c053e80c-bedf-43fb-b526-a80305074031"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cv"}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}], "2"], RowBox[{"4", " ", "k"}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861683608178576*^9}, CellLabel->"Out[14]=",ExpressionUUID->"084b32f6-ea35-404b-a2d9-ccb42aa1bffb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%14", "]"}]], "Input", NumberMarks->False, CellLabel->"In[15]:=",ExpressionUUID->"40f666b5-611c-4953-ae11-c7a94064bd12"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.861683609998825*^9}, CellLabel->"Out[15]=",ExpressionUUID->"70b79de1-023e-46aa-b127-a580d8713ac7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.861683611154293*^9, 3.861683613642522*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"ff83f48a-9d76-4591-90eb-1e4f4bd74171"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.8616836140277*^9, 3.861685565312327*^9}, CellLabel->"Out[8]=",ExpressionUUID->"f12342cf-88f6-4716-88e2-7b11e697fa91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%8", "]"}]], "Input", NumberMarks->False, CellLabel->"In[9]:=",ExpressionUUID->"74de262e-ae3a-4624-b58e-2f2ac41be457"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.8616855684393597`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"8b065b1e-7cf3-4d42-9244-520bad68841c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%16", "]"}]], "Input", NumberMarks->False, CellLabel->"In[17]:=",ExpressionUUID->"82f16ceb-3985-45c7-abc8-31e9b6182d1f"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861683616606441*^9}, CellLabel->"Out[17]=",ExpressionUUID->"c61238d4-369b-43e7-a817-4f2a75e816bc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "cs"}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}], ",", "p"}], "]"}]], "Input", CellChangeTimes->{{3.8616842333975687`*^9, 3.861684263176339*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"7e720aae-e908-431a-9bbe-79008097d7f4"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{{3.8616842382332277`*^9, 3.8616842640624866`*^9}}, CellLabel->"Out[22]=",ExpressionUUID->"41a98462-c661-4d08-8973-4c25770910e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input", CellLabel->"In[23]:=",ExpressionUUID->"1fe65045-1534-4165-83ff-2a55fba26dc4"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"p", "\[Rule]", FractionBox[ RowBox[{"1", "+", "d"}], "2"]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.861684282989031*^9}, CellLabel->"Out[23]=",ExpressionUUID->"6d4bb144-da09-43ba-b239-16e830bbf0af"] }, Open ]], Cell[BoxData[ RowBox[{"p", ":=", FractionBox[ RowBox[{"1", "+", "d"}], "2"]}]], "Input", CellChangeTimes->{{3.861570916730033*^9, 3.8615709224476357`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"8e1d947b-37a0-4eb8-b531-bad3aa222587"], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.861684333315053*^9, 3.8616843370083103`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"8d51e187-4fe7-4c79-9741-88fe15bf67c3"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861684338022339*^9, 3.8616856068873568`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"04a0b6bc-dd6c-4984-9449-154a063c7da1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%11", "]"}]], "Input", NumberMarks->False, CellLabel->"In[12]:=",ExpressionUUID->"fec67697-6900-412d-8c29-154ec5c4e6af"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861685609735833*^9}, CellLabel->"Out[12]=",ExpressionUUID->"8fcf5a6c-0351-4688-b498-098b60ce4971"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.861685707149048*^9, 3.8616857084597692`*^9}, 3.861685870777515*^9}, NumberMarks->False, CellLabel->"In[14]:=",ExpressionUUID->"7cc08580-bca3-43b6-a604-c7894b971dba"], Cell[BoxData[ RowBox[{ RowBox[{"cs", " ", "g"}], "+", FractionBox[ RowBox[{"g", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.861684340922872*^9, 3.8616857096109743`*^9, 3.861685872165111*^9}, CellLabel->"Out[14]=",ExpressionUUID->"967c9d00-0c8e-44ce-aeed-e39c02a31b86"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["y"], "Input", CellChangeTimes->{3.8616875580997553`*^9}, CellLabel->"In[18]:=",ExpressionUUID->"5190d3dd-51ae-4d3a-94fc-c06339daf857"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.8616875587379827`*^9, 3.861687573687611*^9}}, CellLabel->"Out[18]=",ExpressionUUID->"2114b47d-a8eb-4712-b95b-99590592a1fc"] }, 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->"373eafe5-2e13-4556-8052-\ d7acaf88d170"], Cell[BoxData[{ RowBox[{"l", ":=", StyleBox[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", RowBox[{"p", ":=", FractionBox[ RowBox[{"1", "+", "d"}], "2"]}], "\[IndentingNewLine]", RowBox[{"e", ":=", FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "\[IndentingNewLine]", RowBox[{"r", ":=", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "\[IndentingNewLine]", RowBox[{ StyleBox["Profits", FontColor->RGBColor[1, 0, 0]], StyleBox[":=", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"-", "cs"}], "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{"CS", ":=", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], "2"]}]}], "\[IndentingNewLine]", RowBox[{"SW", ":=", RowBox[{ FractionBox["1", RowBox[{"8", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+", RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "d"}], "-", SuperscriptBox["d", "2"], "-", RowBox[{"16", " ", "cv", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"8", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"3", " ", "\[Alpha]"}], "+", RowBox[{"6", " ", "d", " ", "\[Alpha]"}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "+", RowBox[{"16", " ", "\[Theta]"}], "+", RowBox[{"8", " ", "g", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.861614941853983*^9, 3.8616149703323603`*^9}, { 3.861615025310981*^9, 3.861615064032671*^9}, {3.8616953495830803`*^9, 3.8616954034684687`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"ae33480f-50d4-4c54-839e-15edfd269bd1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8650563609318953`*^9, 3.865056374947138*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"910179dc-1c82-4db9-9cbc-f8a097663a25"], Cell[BoxData[ RowBox[{ RowBox[{"cs", " ", "g"}], "+", FractionBox[ RowBox[{"g", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.865056376454564*^9}, CellLabel->"Out[27]=",ExpressionUUID->"84c54ea7-3218-48a6-9a5a-ef9be5735a10"] }, Open ]], Cell[TextData[StyleBox["d", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9},ExpressionUUID->"5e9155ac-2249-4254-b80c-\ 5bf46705a04c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"e", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861695456134532*^9, 3.86169545959162*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"944f761b-e1b6-4680-9f93-46427cf6824b"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.8616954601310883`*^9}, CellLabel->"Out[43]=",ExpressionUUID->"ed5c0c38-a965-441e-893a-2ec0b0140525"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.861615151245542*^9, 3.861615158867182*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"138eb6d8-30d9-42ec-8546-fc1299c7607a"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.861695665791888*^9}, CellLabel->"Out[44]=",ExpressionUUID->"ff0793f4-e7b3-4db5-af67-2af0da2d4ecd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[45]:=",ExpressionUUID->"4ff07244-9aac-4d6d-baa0-4e5e21736179"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{"2", " ", SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.8616956674854307`*^9}, CellLabel->"Out[45]=",ExpressionUUID->"7c28b8dd-e70f-441a-8d6a-717057f5915c"] }, Open ]], Cell[TextData[StyleBox["k", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9, {3.861616017426148*^9, 3.861616018912632*^9}},ExpressionUUID->"405702cc-03dd-4485-b9c2-\ 53ea12b33a04"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"e", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.8616160280508327`*^9, 3.861616031936205*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"376a8fea-3415-477c-96ff-e04b93058926"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ FractionBox["\[Alpha]", RowBox[{"2", " ", SqrtBox["k"]}]], "-", FractionBox[ SuperscriptBox["\[Alpha]", "2"], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.861697465519651*^9, 3.8616974726642036`*^9}}, CellLabel->"Out[47]=",ExpressionUUID->"44d7744d-6cc8-4e0b-a9c5-06e9ce97c5c8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox[ RowBox[{ FractionBox["\[Alpha]", RowBox[{"2", " ", SqrtBox["k"]}]], "-", FractionBox[ SuperscriptBox["\[Alpha]", "2"], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{ RowBox[{ SqrtBox["k"], " ", "\[Alpha]"}], "-", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[48]:=",ExpressionUUID->"6d5c9f53-12a3-4bcf-9b4c-5b0812a1febb"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"cv", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output", CellChangeTimes->{3.8616974743850937`*^9}, CellLabel->"Out[48]=",ExpressionUUID->"2d1d93b9-93cd-49c0-8a82-5b2e16de37b7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "k"}], "]"}]], "Input", CellChangeTimes->{{3.8616977887216*^9, 3.861697795991705*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"a407301c-933a-449c-89c4-cc0176cfd825"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Alpha]"}], "-", FractionBox[ RowBox[{ SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "2"]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "-", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]], SqrtBox["k"]]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"\[Alpha]", " ", "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{ SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "2"]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]], SqrtBox["k"]]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "2"]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], SqrtBox["k"]]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["\[Alpha]", RowBox[{"2", " ", SqrtBox["k"]}]]}], "+", FractionBox[ SuperscriptBox["\[Alpha]", "2"], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-", RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{ SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "2"]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]], SqrtBox["k"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"2", " ", SqrtBox["k"]}]]}], "+", FractionBox[ SuperscriptBox["\[Alpha]", "2"], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", 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"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"2", " ", SqrtBox["k"]}]]}], "+", FractionBox[ SuperscriptBox["\[Alpha]", "2"], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.861697796859253*^9}, CellLabel->"Out[49]=",ExpressionUUID->"b71590e4-989a-4e11-b7dc-a21077d02800"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%49", "]"}]], "Input", NumberMarks->False, CellLabel->"In[50]:=",ExpressionUUID->"4e229334-4b6d-4264-aace-b4fc948e451c"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", "\[Theta]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["\[Alpha]", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+", RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"1", "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]], "Output", CellChangeTimes->{3.861697802536797*^9}, CellLabel->"Out[50]=",ExpressionUUID->"c9e7610c-80a5-4a1b-a088-61b2b80daeb0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.861698689843152*^9, 3.8616986963181753`*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"9d2afeee-9306-482b-ae6e-5e05628ae1ed"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"g", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", FractionBox["cv", RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], RowBox[{"4", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "\[Alpha]"}], RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "\[Alpha]"}], RowBox[{ SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"2", " ", SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "3"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"cv", " ", "\[Theta]"}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "\[Alpha]", " ", "\[Theta]"}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "+", FractionBox[ RowBox[{"cv", " ", "\[Alpha]"}], RowBox[{ SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"2", " ", SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "3"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.861698697549597*^9}, CellLabel->"Out[51]=",ExpressionUUID->"f778e9d1-d4a4-4ae4-9fcd-d04623f31342"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["cv", RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], RowBox[{"4", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "\[Alpha]"}], RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "\[Alpha]"}], RowBox[{ SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"2", " ", SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "3"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"cv", " ", "\[Theta]"}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"cv", " ", "\[Alpha]", " ", "\[Theta]"}], RowBox[{"2", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["k", RowBox[{"3", "/", "2"}]], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "+", FractionBox[ RowBox[{"cv", " ", "\[Alpha]"}], RowBox[{ SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "+", FractionBox[ RowBox[{"2", " ", SqrtBox["k"], " ", SuperscriptBox["\[Alpha]", "3"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Theta]"}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}], "]"}]], "Input", CellChangeTimes->{{3.861698717224671*^9, 3.861698732694488*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"ab223563-ba49-4ef0-9b20-6768f50f4241"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "16"}], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"8", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", "\[Theta]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "d"}], "+", SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-", RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+", RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"8", " ", "k", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"2", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-", RowBox[{"2", " ", SqrtBox["k"], " ", "\[Alpha]", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.861698733860951*^9}, CellLabel->"Out[52]=",ExpressionUUID->"3f6b3a66-0750-4672-9f08-860a96803cdd"] }, Open ]], Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9, {3.8616160220090647`*^9, 3.861616023208786*^9}},ExpressionUUID->"017785f6-a511-4d1b-a3ce-\ 4c69beb12959"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.8616999932022142`*^9, 3.8617000030266333`*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"04e0fb13-2a0d-4b32-a30e-91fdc8d6f487"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "-", FractionBox[ RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", FractionBox[ RowBox[{"\[Alpha]", " ", "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", FractionBox[ RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"4", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"4", " ", SqrtBox["k"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", "\[Alpha]"}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-", RowBox[{ RowBox[{"(", 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", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"8", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"8", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", FractionBox[ RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["k"]}], "+", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}], RowBox[{ SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"cs", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}], RowBox[{"2", " ", SqrtBox["k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}], RowBox[{"2", " ", SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}]], "Output", CellChangeTimes->{3.861700004143498*^9}, CellLabel->"Out[54]=",ExpressionUUID->"52c88cb2-b098-4b8e-a40e-0e9adcbd3a1b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%54", "]"}]], "Input", NumberMarks->False, CellLabel->"In[55]:=",ExpressionUUID->"20f1c703-e4ba-43b1-8e60-c22a222c9af0"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "d"}], "-", SuperscriptBox["d", "2"], "-", RowBox[{"8", " ", "cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", "\[Alpha]", "+", RowBox[{"2", " ", "d", " ", "\[Alpha]"}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-", RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"8", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", RowBox[{"8", " ", "k", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"12", " ", "\[Theta]"}], "+", RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+", RowBox[{"16", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+", RowBox[{"8", " ", "g", " ", SqrtBox["k"], " ", "\[Alpha]", " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}], "/", RowBox[{"(", RowBox[{"8", " ", SqrtBox["k"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]], "Output", CellChangeTimes->{3.8617000071995897`*^9}, CellLabel->"Out[55]=",ExpressionUUID->"b1ff08ce-d8d0-40a3-954e-47ade05e6070"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8616998115541067`*^9, 3.8616998192195253`*^9}, 3.861699967151093*^9},ExpressionUUID->"487c0e96-c401-4223-b3d7-\ 1faf6bec7871"], Cell[TextData[StyleBox["g", "Chapter"]], "Text", CellChangeTimes->{ 3.861248485984922*^9, {3.8616160220090647`*^9, 3.861616023208786*^9}, { 3.861770713654767*^9, 3.8617707146618567`*^9}},ExpressionUUID->"d990de25-6b37-4697-ae7e-\ 29c6770f3dac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.861771434484807*^9, 3.86177144143441*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"debfd25a-f4f7-42b0-ab2d-b244bf43696d"], Cell[BoxData[ RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.861771441865892*^9}, CellLabel->"Out[8]=",ExpressionUUID->"29e4d143-2ee1-4b71-baad-1f70f00fc86f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "]"}]], "Input",\ NumberMarks->False, CellLabel->"In[9]:=",ExpressionUUID->"58d12866-a26a-446a-8ec8-b745a655156c"], Cell[BoxData[ RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+", RowBox[{"2", " ", SqrtBox["k"], " ", SqrtBox[ RowBox[{ RowBox[{"cv", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"k", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.861771444057425*^9}, CellLabel->"Out[9]=",ExpressionUUID->"ba96ccc8-4dac-43d6-88fa-abb151075100"] }, Open ]] }, WindowSize->{730, 730}, WindowMargins->{{348, Automatic}, {Automatic, 2}}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \ (2020\:5e743\:670813\:65e5)", StyleDefinitions->"Default.nb", ExpressionUUID->"5f403bd8-d573-4ccd-981d-df6d0dd2ce21" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 2014, 59, 73, "Input",ExpressionUUID->"55fd3c7d-2ae3-4431-97c2-89dd2c71b531"], Cell[CellGroupData[{ Cell[2597, 83, 161, 3, 44, "Input",ExpressionUUID->"1a7a2666-23ff-4ceb-b0f5-e63d73e33b9c"], Cell[2761, 88, 414, 9, 34, "Output",ExpressionUUID->"d99a4e77-0a63-4988-8973-8ceb7c7705df"] }, Open ]], Cell[CellGroupData[{ Cell[3212, 102, 190, 4, 44, "Input",ExpressionUUID->"f2acc39c-1404-456c-9c7b-19ca4f03ce82"], Cell[3405, 108, 371, 9, 51, "Output",ExpressionUUID->"426e797e-9828-4852-b801-8763046346f6"] }, Open ]], Cell[3791, 120, 313, 7, 48, "Input",ExpressionUUID->"062854cd-c314-4f83-af07-ce9c604f2a51"], Cell[CellGroupData[{ Cell[4129, 131, 111, 1, 30, "Input",ExpressionUUID->"af6a0666-3e6c-4eab-a7b1-3775dd6058c3"], Cell[4243, 134, 627, 18, 51, "Output",ExpressionUUID->"f895fc3c-009f-43db-b798-648ed97ee12c"] }, Open ]], Cell[CellGroupData[{ Cell[4907, 157, 190, 4, 44, "Input",ExpressionUUID->"672f9d18-7675-46f5-8ae7-656d988b1dfd"], Cell[5100, 163, 500, 13, 51, "Output",ExpressionUUID->"e9bb4c57-8f41-40bc-a49a-5970ed01dee5"] }, Open ]], Cell[5615, 179, 342, 9, 48, "Input",ExpressionUUID->"1ee75e90-2296-4bc0-9779-4d832b3cf576"], Cell[CellGroupData[{ Cell[5982, 192, 112, 1, 30, "Input",ExpressionUUID->"edf978c2-19d2-4ea6-8ba1-4d33fde50c92"], Cell[6097, 195, 1416, 44, 90, "Output",ExpressionUUID->"81895db0-fea6-48be-a9a9-2daf063de6a2"] }, Open ]], Cell[CellGroupData[{ Cell[7550, 244, 1422, 44, 103, "Input",ExpressionUUID->"179e46c1-f2cc-49a6-91f7-a475450963d8"], Cell[8975, 290, 1422, 46, 74, "Output",ExpressionUUID->"347969d1-ddf5-489d-9050-406953f32523"] }, Open ]], Cell[CellGroupData[{ Cell[10434, 341, 156, 3, 44, "Input",ExpressionUUID->"1cc9076e-cb9b-403d-bdd1-e986237ccc85"], Cell[10593, 346, 986, 31, 53, "Output",ExpressionUUID->"3c67a87a-e964-41ca-83af-fc0cd0444ebb"] }, Open ]], Cell[CellGroupData[{ Cell[11616, 382, 191, 4, 44, "Input",ExpressionUUID->"6613e4dd-fc6a-418d-8be4-82a2071cb7c4"], Cell[11810, 388, 892, 23, 57, "Output",ExpressionUUID->"ce57cbbb-7158-4339-baf2-71a835a2ce68"] }, Open ]], Cell[CellGroupData[{ Cell[12739, 416, 1632, 49, 118, "Input",ExpressionUUID->"c24b34c5-3a2f-449d-94cd-f2ed40d34ac8"], Cell[14374, 467, 824, 25, 51, "Output",ExpressionUUID->"e39adbdc-797a-49ab-8654-b4d72882a87f"] }, Open ]], Cell[CellGroupData[{ Cell[15235, 497, 258, 5, 44, "Input",ExpressionUUID->"625b4c4c-cfdd-438b-b8d9-7a8d17bed66d"], Cell[15496, 504, 354, 9, 51, "Output",ExpressionUUID->"2a3da7b7-307b-4a5c-b668-860b9f91e5ec"] }, Open ]], Cell[CellGroupData[{ Cell[15887, 518, 958, 24, 119, "Input",ExpressionUUID->"46bc50e9-ac81-4a8b-a6c7-8e29d025e840"], Cell[16848, 544, 1280, 39, 94, "Output",ExpressionUUID->"9383781d-9ca6-4247-928d-d96b4500d77d"] }, Open ]], Cell[CellGroupData[{ Cell[18165, 588, 1323, 39, 174, "Input",ExpressionUUID->"5494c2f7-6b58-4435-86e0-4a25a6915b14"], Cell[19491, 629, 892, 28, 57, "Output",ExpressionUUID->"657e6bfc-ab96-4f45-84bd-03f411743995"] }, Open ]], Cell[CellGroupData[{ Cell[20420, 662, 150, 2, 30, "Input",ExpressionUUID->"fc0c29d8-21f0-488d-89c0-a10c349cbe16"], Cell[20573, 666, 2826, 83, 183, "Output",ExpressionUUID->"ad2e3f56-9ac8-49ff-96b2-a7000ec081a5"] }, Open ]], Cell[23414, 752, 163, 3, 44, "Input",ExpressionUUID->"2a2e5e95-707d-42b1-8587-dd2e3d96d853"], Cell[23580, 757, 893, 27, 52, "Input",ExpressionUUID->"7b98acd2-167f-49d8-8e63-45f26b46b1e5"], Cell[CellGroupData[{ Cell[24498, 788, 148, 2, 30, "Input",ExpressionUUID->"07640780-01d0-495a-b74b-f4473abc3487"], Cell[24649, 792, 2969, 85, 182, "Output",ExpressionUUID->"958f409e-7f35-405a-9c6b-1b0d4f4d2cbf"] }, Open ]], Cell[CellGroupData[{ Cell[27655, 882, 163, 3, 44, "Input",ExpressionUUID->"81f9db75-f089-4664-9dc3-847f37d8f146"], Cell[27821, 887, 1033, 32, 56, "Output",ExpressionUUID->"ad6e1d7a-fd4f-43b7-8d26-797bb1d1351c"] }, Open ]], Cell[28869, 922, 1174, 32, 91, "Input",ExpressionUUID->"55cb19c7-f9bb-4e71-a37c-6d0ad9f9c1fe"], Cell[CellGroupData[{ Cell[30068, 958, 1546, 45, 113, "Input",ExpressionUUID->"16118d30-7c50-43d2-ba30-14bd8ac96264"], Cell[31617, 1005, 645, 17, 57, "Output",ExpressionUUID->"8b7e1a2d-674c-4e3a-ae6e-9ea5619554ad"], Cell[32265, 1024, 607, 16, 57, "Output",ExpressionUUID->"710bcb80-28d2-424c-82ee-cf5b09d34dd2"] }, Open ]], Cell[32887, 1043, 7435, 228, 440, "Text",ExpressionUUID->"2143614c-c3ce-4101-86b0-1320831aec67"], Cell[CellGroupData[{ Cell[40347, 1275, 177, 2, 30, "Input",ExpressionUUID->"3f8b77b4-6f85-44fd-9f86-b7981374d3b8"], Cell[40527, 1279, 5048, 154, 295, "Output",ExpressionUUID->"cd2f624c-addb-47a2-bdb7-734901923b0f"] }, Open ]], Cell[CellGroupData[{ Cell[45612, 1438, 161, 3, 44, "Input",ExpressionUUID->"e70dfba0-e6b8-484e-9632-92e019efa6f7"], Cell[45776, 1443, 3555, 95, 165, "Output",ExpressionUUID->"ca11a152-0ad6-4327-b403-30fbfe00b3e9"] }, Open ]], Cell[CellGroupData[{ Cell[49368, 1543, 178, 2, 30, "Input",ExpressionUUID->"813820e9-6a51-4692-9548-70b61d633772"], Cell[49549, 1547, 8835, 263, 497, "Output",ExpressionUUID->"aefd998e-ebdb-4c36-9da6-5f9dd3bf0c8c"] }, Open ]], Cell[58399, 1813, 163, 3, 44, "Input",ExpressionUUID->"e3727321-eab2-4c52-a48f-4387137a9c5f"], Cell[58565, 1818, 3790, 102, 163, "Input",ExpressionUUID->"455c0cc9-0af5-4347-9a08-4e148968e3cc"], Cell[62358, 1922, 317, 8, 48, "Input",ExpressionUUID->"45079712-60e6-48bc-bea8-cdb81844b220"], Cell[62678, 1932, 243, 4, 30, "Input",ExpressionUUID->"ec4d27a4-c612-4690-ae14-f5ef0c50597c"], Cell[CellGroupData[{ Cell[62946, 1940, 175, 2, 30, "Input",ExpressionUUID->"cb1060f5-09d1-4904-a27c-a324a93d5e7f"], Cell[63124, 1944, 11361, 341, 630, "Output",ExpressionUUID->"15096e73-c132-4c14-b623-9c61540ee7d6"] }, Open ]], Cell[CellGroupData[{ Cell[74522, 2290, 163, 3, 44, "Input",ExpressionUUID->"b2add1d5-795a-4595-b53c-4abca009bf8b"], Cell[74688, 2295, 3530, 109, 144, "Output",ExpressionUUID->"0db542f0-a269-4a73-899a-163af2aa703e"] }, Open ]], Cell[CellGroupData[{ Cell[78255, 2409, 11449, 338, 787, "Input",ExpressionUUID->"f3b530fb-b9e0-4336-9293-173d11ff059f"], Cell[89707, 2749, 3307, 103, 121, "Output",ExpressionUUID->"6fdbf553-3a0b-4a95-afd9-4e0460a33a42"] }, Open ]], Cell[93029, 2855, 428, 10, 155, "Text",ExpressionUUID->"6de44d36-1a9f-407a-8ca0-c6e05d0b2d96"], Cell[93460, 2867, 13861, 393, 778, "Input",ExpressionUUID->"e5194063-fb56-4f74-b6b3-f1d67e6f6956"], Cell[107324, 3262, 150, 3, 59, "Text",ExpressionUUID->"cf454cf4-5b9f-44b6-96e4-c423ce4ff10d"], Cell[CellGroupData[{ Cell[107499, 3269, 222, 4, 44, "Input",ExpressionUUID->"550d00d2-bb1a-49c5-b8bd-130f4322ca39"], Cell[107724, 3275, 523, 16, 53, "Output",ExpressionUUID->"76cd7e8c-669a-464c-8a8c-45a89cd5cd2b"] }, Open ]], Cell[CellGroupData[{ Cell[108284, 3296, 547, 17, 63, "Input",ExpressionUUID->"8bc0f865-3930-43dd-ad0c-1a905e8b772b"], Cell[108834, 3315, 217, 5, 52, "Output",ExpressionUUID->"d203b0ff-2b1d-4891-aac5-5374fb45dff9"] }, Open ]], Cell[CellGroupData[{ Cell[109088, 3325, 224, 4, 44, "Input",ExpressionUUID->"4bd7ceef-da59-4f6f-b35c-18eac6c56af3"], Cell[109315, 3331, 620, 20, 53, "Output",ExpressionUUID->"0abc7e9a-073d-478b-bc48-1df7179ba03d"] }, Open ]], Cell[CellGroupData[{ Cell[109972, 3356, 648, 21, 63, "Input",ExpressionUUID->"a33bb8fe-cfae-4005-89ef-db225cf8d236"], Cell[110623, 3379, 292, 8, 52, "Output",ExpressionUUID->"60450297-f20d-4bf6-8774-cc9e54cd789d"] }, Open ]], Cell[CellGroupData[{ Cell[110952, 3392, 224, 4, 44, "Input",ExpressionUUID->"4b05c590-f011-40e7-b1b1-351c210ae0ec"], Cell[111179, 3398, 654, 21, 62, "Output",ExpressionUUID->"c38d7651-0373-420b-ba91-a31a2b9555c8"] }, Open ]], Cell[CellGroupData[{ Cell[111870, 3424, 687, 23, 72, "Input",ExpressionUUID->"f5fa0492-0741-4c08-9be8-09ce086963ec"], Cell[112560, 3449, 246, 6, 52, "Output",ExpressionUUID->"2a807453-a6f3-4083-8e39-01776e2840d1"] }, Open ]], Cell[CellGroupData[{ Cell[112843, 3460, 224, 4, 44, "Input",ExpressionUUID->"eaa665c0-43a2-464c-a11b-2cb94fb46778"], Cell[113070, 3466, 171, 3, 50, "Output",ExpressionUUID->"f574e767-8a0e-40da-ae8e-0c41ad3cb4c9"] }, Open ]], Cell[CellGroupData[{ Cell[113278, 3474, 228, 4, 44, "Input",ExpressionUUID->"cdf6521c-4281-428a-bc90-b36e3e6ee050"], Cell[113509, 3480, 12262, 381, 638, "Output",ExpressionUUID->"63ecc6b5-60c4-47bc-a466-4f718d08f0fb"] }, Open ]], Cell[125786, 3864, 163, 3, 44, "Input",ExpressionUUID->"416d62ea-1630-4661-81cd-fc26c28e7ee2"], Cell[125952, 3869, 1075, 33, 54, "Input",ExpressionUUID->"a844b7e3-fed0-4f86-a6e2-f73364f29d90"], Cell[CellGroupData[{ Cell[127052, 3906, 228, 4, 44, "Input",ExpressionUUID->"5d594ada-da6c-4978-92fe-68335fb410c2"], Cell[127283, 3912, 5326, 171, 245, "Output",ExpressionUUID->"d3017130-8c5d-4568-82db-1f65ef990880"] }, Open ]], Cell[132624, 4086, 163, 3, 44, "Input",ExpressionUUID->"2d7becb3-04bd-45d6-a5f6-173f1844dee5"], Cell[132790, 4091, 1002, 31, 54, "Input",ExpressionUUID->"0ad29fd8-4da4-4ea1-ada6-9c6d55f93d71"], Cell[CellGroupData[{ Cell[133817, 4126, 225, 4, 44, "Input",ExpressionUUID->"3f42152b-ffb1-4ab6-a2d3-e5e44b8f26ff"], Cell[134045, 4132, 194, 4, 51, "Output",ExpressionUUID->"8693630f-75eb-4e25-a5b4-0c8f91d25f5a"] }, Open ]], Cell[CellGroupData[{ Cell[134276, 4141, 225, 4, 44, "Input",ExpressionUUID->"a8a62fc7-b5db-41fb-a541-b0f40a046adb"], Cell[134504, 4147, 16224, 508, 807, "Output",ExpressionUUID->"2cdb4f37-9c95-4318-b97a-60d2d4c3fe26"] }, Open ]], Cell[150743, 4658, 163, 3, 44, "Input",ExpressionUUID->"2d767c24-657d-42b4-a00c-e79221c777b1"], Cell[150909, 4663, 1239, 39, 49, "Input",ExpressionUUID->"725a669f-0ada-4972-96ca-3a6b13bc3135"], Cell[152151, 4704, 200, 4, 59, "Text",ExpressionUUID->"398b4578-cc32-4d08-89db-6cd377df0c95"], Cell[CellGroupData[{ Cell[152376, 4712, 222, 4, 44, "Input",ExpressionUUID->"6aa9bb15-3fa3-4f9e-9e94-3ecc6ee5e3e6"], Cell[152601, 4718, 1143, 36, 56, "Output",ExpressionUUID->"15b4ee9c-ffd4-457c-927b-8e55dc5519b4"] }, Open ]], Cell[153759, 4757, 1189, 37, 67, "Input",ExpressionUUID->"f34d2087-3365-434e-b52c-a5a34c81e3b7"], Cell[CellGroupData[{ Cell[154973, 4798, 564, 16, 89, "Input",ExpressionUUID->"bcb15edc-4bc2-4a77-9b76-e3d22e152eb2"], Cell[155540, 4816, 365, 10, 55, "Output",ExpressionUUID->"b99005ea-889c-4ca1-b416-7c05915c3e0e"], Cell[155908, 4828, 1399, 44, 58, "Output",ExpressionUUID->"e48a765a-71e9-4e32-9b7e-b4066d11932e"] }, Open ]], Cell[157322, 4875, 1454, 45, 101, "Input",ExpressionUUID->"7f333e4d-46b8-4388-86b5-a9e1832bebab"], Cell[158779, 4922, 454, 13, 54, "Input",ExpressionUUID->"0fa1559b-3036-4944-9c32-6605aafec552"], Cell[CellGroupData[{ Cell[159258, 4939, 222, 4, 44, "Input",ExpressionUUID->"1a8a909f-f584-44bf-a589-2b2cb8729bff"], Cell[159483, 4945, 412, 12, 54, "Output",ExpressionUUID->"bf6fe457-6b8b-402b-9b5a-e4d47fb621f4"] }, Open ]], Cell[159910, 4960, 436, 14, 64, "Input",ExpressionUUID->"fc2d6192-10b3-4396-b2b2-d08f7654fc3c"], Cell[160349, 4976, 422, 13, 51, "Input",ExpressionUUID->"29e46bef-f7b1-409c-9ee9-890ac0253ba0"], Cell[CellGroupData[{ Cell[160796, 4993, 224, 4, 44, "Input",ExpressionUUID->"49500460-af10-4ca9-9b1c-d7685481f0f8"], Cell[161023, 4999, 149, 2, 34, "Output",ExpressionUUID->"5810e274-2b5b-4918-80af-09cab2901e6a"] }, Open ]], Cell[CellGroupData[{ Cell[161209, 5006, 226, 4, 44, "Input",ExpressionUUID->"b62da1b9-5f3c-4c19-97f4-4ca04ad68404"], Cell[161438, 5012, 14500, 439, 745, "Output",ExpressionUUID->"57a65512-3944-419d-9a90-b46f7e14d0b9"] }, Open ]], Cell[175953, 5454, 163, 3, 44, "Input",ExpressionUUID->"5faaf32d-7da4-4ff9-bf89-ea31dd4a57d9"], Cell[176119, 5459, 2224, 72, 100, "Input",ExpressionUUID->"68cad228-f1c3-4660-a3f8-9d505b5808c5"], Cell[CellGroupData[{ Cell[178368, 5535, 3189, 96, 124, "Input",ExpressionUUID->"57138407-0bfa-4565-9b56-be09fba66ffc"], Cell[181560, 5633, 2738, 88, 82, "Output",ExpressionUUID->"82a02212-0972-4145-b0d4-1bd33a1643cc"] }, Open ]], Cell[CellGroupData[{ Cell[184335, 5726, 163, 3, 44, "Input",ExpressionUUID->"213ac6d8-7b47-45e9-95b9-4121ddbfe04b"], Cell[184501, 5731, 149, 2, 34, "Output",ExpressionUUID->"b57c7e9a-ceae-4a26-b031-fe5143ba8885"] }, Open ]], Cell[CellGroupData[{ Cell[184687, 5738, 230, 4, 44, "Input",ExpressionUUID->"ea190eeb-734c-45cf-9738-10d4ae471c0d"], Cell[184920, 5744, 7906, 246, 454, "Output",ExpressionUUID->"074e8a40-7e00-4259-8e03-95a667a18aa5"] }, Open ]], Cell[CellGroupData[{ Cell[192863, 5995, 163, 3, 44, "Input",ExpressionUUID->"f07b7b5f-f2a2-4a40-b9f2-d68c698e20a4"], Cell[193029, 6000, 2068, 64, 102, "Output",ExpressionUUID->"e01df94a-3d85-410a-9f38-1bec9df1e4a8"] }, Open ]], Cell[CellGroupData[{ Cell[195134, 6069, 3195, 91, 124, "Input",ExpressionUUID->"0e4326d0-dd5c-4b49-af7e-3ccc248ead81"], Cell[198332, 6162, 2895, 89, 84, "Output",ExpressionUUID->"cec7f8b9-fa26-4c1a-89fa-aae25c6d7d6d"] }, Open ]], Cell[CellGroupData[{ Cell[201264, 6256, 163, 3, 44, "Input",ExpressionUUID->"54668963-aa10-4029-9fe1-391a0c332e1a"], Cell[201430, 6261, 149, 2, 34, "Output",ExpressionUUID->"bc137c7e-514b-497f-8675-e32e749ba22a"] }, Open ]], Cell[CellGroupData[{ Cell[201616, 6268, 223, 4, 44, "Input",ExpressionUUID->"587eb989-5c51-42eb-9e1c-2ce5616d181a"], Cell[201842, 6274, 149, 2, 34, "Output",ExpressionUUID->"e4e40901-b6c0-43ce-add2-4e6cb7a050f6"] }, Open ]], Cell[CellGroupData[{ Cell[202028, 6281, 225, 4, 44, "Input",ExpressionUUID->"a08f0fc8-520c-466f-ac7a-bca91d71314b"], Cell[202256, 6287, 19386, 588, 1023, "Output",ExpressionUUID->"e6a9776f-7afe-446d-8918-e43c83677e36"] }, Open ]], Cell[CellGroupData[{ Cell[221679, 6880, 163, 3, 44, "Input",ExpressionUUID->"62c9690a-d64c-481b-ac14-d049de91c35c"], Cell[221845, 6885, 2170, 67, 102, "Output",ExpressionUUID->"2b1abee9-360d-4044-a946-72a7daf42631"] }, Open ]], Cell[224030, 6955, 207, 4, 59, "Text",ExpressionUUID->"1b14e7ff-49bb-4dce-8ade-c988a9245473"], Cell[CellGroupData[{ Cell[224262, 6963, 229, 4, 44, "Input",ExpressionUUID->"70970e28-798c-457d-bb81-efa6a0bc5c14"], Cell[224494, 6969, 355, 10, 52, "Output",ExpressionUUID->"28243852-74fc-471b-86bb-bced4d930fcc"] }, Open ]], Cell[CellGroupData[{ Cell[224886, 6984, 373, 11, 62, "Input",ExpressionUUID->"0d68f339-d23a-44f8-83a2-2c2544b89fe0"], Cell[225262, 6997, 192, 4, 50, "Output",ExpressionUUID->"d967861a-83eb-4aea-8688-ed75124e747b"] }, Open ]], Cell[CellGroupData[{ Cell[225491, 7006, 229, 4, 44, "Input",ExpressionUUID->"416165c8-b03d-4a65-afbb-7ad96c162560"], Cell[225723, 7012, 216, 5, 50, "Output",ExpressionUUID->"aba8e5ed-c111-42c3-86db-f811920ff036"] }, Open ]], Cell[CellGroupData[{ Cell[225976, 7022, 229, 4, 44, "Input",ExpressionUUID->"bb32702c-625f-4c2b-8e80-2fbd441bf1ff"], Cell[226208, 7028, 269, 7, 52, "Output",ExpressionUUID->"df495768-6733-49ea-a93d-e8ec8848c72b"] }, Open ]], Cell[CellGroupData[{ Cell[226514, 7040, 231, 4, 44, "Input",ExpressionUUID->"8ee8dded-5dd8-4b20-9e70-082422aa2f21"], Cell[226748, 7046, 151, 2, 34, "Output",ExpressionUUID->"56531f31-e8b5-48bf-ba3e-2abd0acaf0f6"] }, Open ]], Cell[CellGroupData[{ Cell[226936, 7053, 237, 4, 44, "Input",ExpressionUUID->"9ada0fa1-00e1-40d8-9ee9-e289424c3087"], Cell[227176, 7059, 8871, 266, 509, "Output",ExpressionUUID->"3105d690-d647-4f73-93f1-9fd5d9a50ebc"] }, Open ]], Cell[CellGroupData[{ Cell[236084, 7330, 163, 3, 44, "Input",ExpressionUUID->"0b0ece08-c56d-4e49-9752-4bb7c9a199c5"], Cell[236250, 7335, 828, 24, 55, "Output",ExpressionUUID->"b605331b-d890-4db8-96c8-800fde119437"] }, Open ]], Cell[CellGroupData[{ Cell[237115, 7364, 232, 4, 44, "Input",ExpressionUUID->"0fb77a65-9b0e-4f84-984c-d76140105b88"], Cell[237350, 7370, 151, 2, 34, "Output",ExpressionUUID->"1936430e-9d32-4a29-a5b0-638a1c42cc9c"] }, Open ]], Cell[CellGroupData[{ Cell[237538, 7377, 230, 4, 44, "Input",ExpressionUUID->"7ebb7455-a275-4438-8a52-3ed6cd402d53"], Cell[237771, 7383, 11197, 340, 680, "Output",ExpressionUUID->"adc4f297-730c-42f7-8188-1527b6d03ecf"] }, Open ]], Cell[CellGroupData[{ Cell[249005, 7728, 163, 3, 44, "Input",ExpressionUUID->"6d30cde9-a0fe-4da3-9e2f-ef995dc6cd9f"], Cell[249171, 7733, 981, 32, 55, "Output",ExpressionUUID->"75a5e559-d1b9-41d3-bd5b-b2687db99cbc"] }, Open ]], Cell[250167, 7768, 252, 5, 59, "Text",ExpressionUUID->"19dee3ef-b9ac-4566-b9da-e312d947091b"], Cell[CellGroupData[{ Cell[250444, 7777, 220, 4, 44, "Input",ExpressionUUID->"5d7e1862-8df1-4f58-ad07-eb5df67ce89e"], Cell[250667, 7783, 297, 8, 49, "Output",ExpressionUUID->"a41e104d-0506-4960-ae1b-240e86d1a696"] }, Open ]], Cell[CellGroupData[{ Cell[251001, 7796, 221, 4, 44, "Input",ExpressionUUID->"0f72b0bb-e77a-4743-8e8e-ad7dedbdd627"], Cell[251225, 7802, 307, 8, 52, "Output",ExpressionUUID->"463e07ec-b3b1-4ca3-ae46-5dce9a993140"] }, Open ]], Cell[CellGroupData[{ Cell[251569, 7815, 222, 4, 44, "Input",ExpressionUUID->"1f2226d6-edb2-44ec-a602-354319cfdbe7"], Cell[251794, 7821, 299, 8, 55, "Output",ExpressionUUID->"fe335262-9fc7-4549-9e8b-f59d96273f79"] }, Open ]], Cell[CellGroupData[{ Cell[252130, 7834, 224, 4, 44, "Input",ExpressionUUID->"51aa1fb5-f8b1-47ca-8dd3-dea504913172"], Cell[252357, 7840, 149, 2, 34, "Output",ExpressionUUID->"cfc83569-ff2b-4d68-a53b-c3120fa1d8be"] }, Open ]], Cell[CellGroupData[{ Cell[252543, 7847, 232, 4, 44, "Input",ExpressionUUID->"91343714-a691-4a9f-b31d-812c1366bc4e"], Cell[252778, 7853, 1397, 38, 79, "Output",ExpressionUUID->"58dfdadd-613e-4dec-828c-18ee1e4e22c9"] }, Open ]], Cell[CellGroupData[{ Cell[254212, 7896, 1457, 41, 148, "Input",ExpressionUUID->"de2fa53d-4388-4aa1-a6eb-e78f37cc2943"], Cell[255672, 7939, 983, 29, 59, "Output",ExpressionUUID->"900ff46a-61f5-42ba-bb57-1b03651c60c3"] }, Open ]], Cell[CellGroupData[{ Cell[256692, 7973, 228, 4, 44, "Input",ExpressionUUID->"54f0ec40-f8b1-4d7a-b294-0cc5999e92b4"], Cell[256923, 7979, 1225, 33, 79, "Output",ExpressionUUID->"a613999b-2aff-4c0a-b478-8c78156b865b"] }, Open ]], Cell[CellGroupData[{ Cell[258185, 8017, 1281, 36, 148, "Input",ExpressionUUID->"f670d3d2-2a17-4518-997c-e6d03a1734e2"], Cell[259469, 8055, 951, 27, 59, "Output",ExpressionUUID->"8c380769-0c43-4d9d-b5c5-f0fa403574a9"] }, Open ]], Cell[CellGroupData[{ Cell[260457, 8087, 223, 4, 44, "Input",ExpressionUUID->"25f3675b-fab0-410f-9ed6-eb2c932d3e4d"], Cell[260683, 8093, 1365, 41, 79, "Output",ExpressionUUID->"31ed8424-621d-4755-98da-9be26bde4eb7"] }, Open ]], Cell[CellGroupData[{ Cell[262085, 8139, 1426, 44, 148, "Input",ExpressionUUID->"c56beaa8-6c54-4f50-b44a-cac8c9a988f6"], Cell[263514, 8185, 995, 29, 59, "Output",ExpressionUUID->"a28169e3-ec8a-4bfd-b78e-3c903a8d70fe"] }, Open ]], Cell[264524, 8217, 1886, 55, 152, "Input",ExpressionUUID->"78983380-eb6c-454d-8fe3-57374fe2677a"], Cell[266413, 8274, 2014, 59, 73, "Input",ExpressionUUID->"1d339ec5-1990-4d2e-a561-6eca806bdc8e"], Cell[268430, 8335, 963, 29, 107, "Input",ExpressionUUID->"2e339dc4-0781-44a4-b6f3-12cb4a0fe9b9"], Cell[CellGroupData[{ Cell[269418, 8368, 264, 5, 44, "Input",ExpressionUUID->"35b3532f-11e2-4e17-b29d-6d8e29f904fd"], Cell[269685, 8375, 1975, 57, 147, "Output",ExpressionUUID->"7c308161-9cb2-4d68-95d4-35606c30806a"] }, Open ]], Cell[CellGroupData[{ Cell[271697, 8437, 966, 27, 90, "Input",ExpressionUUID->"7fdb0ace-f368-49ca-a53d-b45d5364e71b"], Cell[272666, 8466, 866, 26, 60, "Output",ExpressionUUID->"c77b91b1-2681-44da-82a8-e6dee7e31514"] }, Open ]], Cell[273547, 8495, 962, 28, 59, "Input",ExpressionUUID->"47b5c540-85e5-43fc-bbc9-394454d7104f"], Cell[CellGroupData[{ Cell[274534, 8527, 150, 2, 30, "Input",ExpressionUUID->"e70c54c6-0160-4bc9-ae3b-579bdeed1d1a"], Cell[274687, 8531, 1852, 57, 69, "Output",ExpressionUUID->"09dbbfb5-f600-49e5-bb98-c8d24d70d585"] }, Open ]], Cell[CellGroupData[{ Cell[276576, 8593, 1886, 57, 116, "Input",ExpressionUUID->"0b3aec12-e3fb-4b9f-8b59-7592f43dc1f7"], Cell[278465, 8652, 660, 21, 60, "Output",ExpressionUUID->"8fd581e0-9b09-49a3-aa27-d60c98bcc235"] }, Open ]], Cell[279140, 8676, 724, 22, 62, "Input",ExpressionUUID->"b16caaa0-1166-40eb-afaf-de7d11a35f93"], Cell[CellGroupData[{ Cell[279889, 8702, 180, 2, 30, "Input",ExpressionUUID->"c053e80c-bedf-43fb-b526-a80305074031"], Cell[280072, 8706, 7656, 231, 382, "Output",ExpressionUUID->"084b32f6-ea35-404b-a2d9-ccb42aa1bffb"] }, Open ]], Cell[CellGroupData[{ Cell[287765, 8942, 163, 3, 44, "Input",ExpressionUUID->"40f666b5-611c-4953-ae11-c7a94064bd12"], Cell[287931, 8947, 149, 2, 34, "Output",ExpressionUUID->"70b79de1-023e-46aa-b127-a580d8713ac7"] }, Open ]], Cell[CellGroupData[{ Cell[288117, 8954, 177, 2, 30, "Input",ExpressionUUID->"ff83f48a-9d76-4591-90eb-1e4f4bd74171"], Cell[288297, 8958, 6152, 194, 409, "Output",ExpressionUUID->"f12342cf-88f6-4716-88e2-7b11e697fa91"] }, Open ]], Cell[CellGroupData[{ Cell[294486, 9157, 161, 3, 44, "Input",ExpressionUUID->"74de262e-ae3a-4624-b58e-2f2ac41be457"], Cell[294650, 9162, 5881, 185, 334, "Output",ExpressionUUID->"8b065b1e-7cf3-4d42-9244-520bad68841c"] }, Open ]], Cell[CellGroupData[{ Cell[300568, 9352, 163, 3, 44, "Input",ExpressionUUID->"82f16ceb-3985-45c7-abc8-31e9b6182d1f"], Cell[300734, 9357, 5218, 164, 272, "Output",ExpressionUUID->"c61238d4-369b-43e7-a817-4f2a75e816bc"] }, Open ]], Cell[CellGroupData[{ Cell[305989, 9526, 5500, 165, 332, "Input",ExpressionUUID->"7e720aae-e908-431a-9bbe-79008097d7f4"], Cell[311492, 9693, 1202, 38, 66, "Output",ExpressionUUID->"41a98462-c661-4d08-8973-4c25770910e4"] }, Open ]], Cell[CellGroupData[{ Cell[312731, 9736, 191, 4, 44, "Input",ExpressionUUID->"1fe65045-1534-4165-83ff-2a55fba26dc4"], Cell[312925, 9742, 273, 7, 51, "Output",ExpressionUUID->"6d4bb144-da09-43ba-b239-16e830bbf0af"] }, Open ]], Cell[313213, 9752, 242, 5, 48, "Input",ExpressionUUID->"8e1d947b-37a0-4eb8-b531-bad3aa222587"], Cell[CellGroupData[{ Cell[313480, 9761, 180, 2, 30, "Input",ExpressionUUID->"8d51e187-4fe7-4c79-9741-88fe15bf67c3"], Cell[313663, 9765, 6400, 202, 424, "Output",ExpressionUUID->"04a0b6bc-dd6c-4984-9449-154a063c7da1"] }, Open ]], Cell[CellGroupData[{ Cell[320100, 9972, 163, 3, 44, "Input",ExpressionUUID->"fec67697-6900-412d-8c29-154ec5c4e6af"], Cell[320266, 9977, 5919, 185, 334, "Output",ExpressionUUID->"8fcf5a6c-0351-4688-b498-098b60ce4971"] }, Open ]], Cell[CellGroupData[{ Cell[326222, 10167, 3665, 114, 263, "Input",ExpressionUUID->"7cc08580-bca3-43b6-a604-c7894b971dba"], Cell[329890, 10283, 1066, 31, 65, "Output",ExpressionUUID->"967c9d00-0c8e-44ce-aeed-e39c02a31b86"] }, Open ]], Cell[CellGroupData[{ Cell[330993, 10319, 150, 2, 30, "Input",ExpressionUUID->"5190d3dd-51ae-4d3a-94fc-c06339daf857"], Cell[331146, 10323, 175, 2, 34, "Output",ExpressionUUID->"2114b47d-a8eb-4712-b95b-99590592a1fc"] }, Open ]], Cell[331336, 10328, 428, 10, 155, "Text",ExpressionUUID->"373eafe5-2e13-4556-8052-d7acaf88d170"], Cell[331767, 10340, 11227, 350, 818, "Input",ExpressionUUID->"ae33480f-50d4-4c54-839e-15edfd269bd1"], Cell[CellGroupData[{ Cell[343019, 10694, 3618, 112, 263, "Input",ExpressionUUID->"910179dc-1c82-4db9-9cbc-f8a097663a25"], Cell[346640, 10808, 1017, 30, 65, "Output",ExpressionUUID->"84c54ea7-3218-48a6-9a5a-ef9be5735a10"] }, Open ]], Cell[347672, 10841, 150, 3, 59, "Text",ExpressionUUID->"5e9155ac-2249-4254-b80c-5bf46705a04c"], Cell[CellGroupData[{ Cell[347847, 10848, 221, 4, 44, "Input",ExpressionUUID->"944f761b-e1b6-4680-9f93-46427cf6824b"], Cell[348071, 10854, 151, 2, 34, "Output",ExpressionUUID->"ed5c0c38-a965-441e-893a-2ec0b0140525"] }, Open ]], Cell[CellGroupData[{ Cell[348259, 10861, 228, 4, 44, "Input",ExpressionUUID->"138eb6d8-30d9-42ec-8546-fc1299c7607a"], Cell[348490, 10867, 1127, 36, 66, "Output",ExpressionUUID->"ff0793f4-e7b3-4db5-af67-2af0da2d4ecd"] }, Open ]], Cell[CellGroupData[{ Cell[349654, 10908, 1176, 38, 78, "Input",ExpressionUUID->"4ff07244-9aac-4d6d-baa0-4e5e21736179"], Cell[350833, 10948, 794, 25, 64, "Output",ExpressionUUID->"7c28b8dd-e70f-441a-8d6a-717057f5915c"] }, Open ]], Cell[351642, 10976, 200, 4, 59, "Text",ExpressionUUID->"405702cc-03dd-4485-b9c2-53ea12b33a04"], Cell[CellGroupData[{ Cell[351867, 10984, 224, 4, 44, "Input",ExpressionUUID->"376a8fea-3415-477c-96ff-e04b93058926"], Cell[352094, 10990, 1433, 46, 70, "Output",ExpressionUUID->"44d7744d-6cc8-4e0b-a9c5-06e9ce97c5c8"] }, Open ]], Cell[CellGroupData[{ Cell[353564, 11041, 1463, 47, 84, "Input",ExpressionUUID->"6d5c9f53-12a3-4bcf-9b4c-5b0812a1febb"], Cell[355030, 11090, 699, 21, 57, "Output",ExpressionUUID->"2d1d93b9-93cd-49c0-8a82-5b2e16de37b7"] }, Open ]], Cell[CellGroupData[{ Cell[355766, 11116, 226, 4, 44, "Input",ExpressionUUID->"a407301c-933a-449c-89c4-cc0176cfd825"], Cell[355995, 11122, 16095, 506, 789, "Output",ExpressionUUID->"b71590e4-989a-4e11-b7dc-a21077d02800"] }, Open ]], Cell[CellGroupData[{ Cell[372127, 11633, 163, 3, 44, "Input",ExpressionUUID->"4e229334-4b6d-4264-aace-b4fc948e451c"], Cell[372293, 11638, 2804, 86, 122, "Output",ExpressionUUID->"c9e7610c-80a5-4a1b-a088-61b2b80daeb0"] }, Open ]], Cell[CellGroupData[{ Cell[375134, 11729, 259, 5, 44, "Input",ExpressionUUID->"9d2afeee-9306-482b-ae6e-5e05628ae1ed"], Cell[375396, 11736, 8510, 242, 448, "Output",ExpressionUUID->"f778e9d1-d4a4-4ae4-9fcd-d04623f31342"] }, Open ]], Cell[CellGroupData[{ Cell[383943, 11983, 7806, 233, 454, "Input",ExpressionUUID->"ab223563-ba49-4ef0-9b20-6768f50f4241"], Cell[391752, 12218, 2395, 72, 92, "Output",ExpressionUUID->"3f6b3a66-0750-4672-9f08-860a96803cdd"] }, Open ]], Cell[394162, 12293, 209, 4, 59, "Text",ExpressionUUID->"017785f6-a511-4d1b-a3ce-4c69beb12959"], Cell[CellGroupData[{ Cell[394396, 12301, 239, 4, 44, "Input",ExpressionUUID->"04e0fb13-2a0d-4b32-a30e-91fdc8d6f487"], Cell[394638, 12307, 9710, 304, 467, "Output",ExpressionUUID->"52c88cb2-b098-4b8e-a40e-0e9adcbd3a1b"] }, Open ]], Cell[CellGroupData[{ Cell[404385, 12616, 163, 3, 44, "Input",ExpressionUUID->"20f1c703-e4ba-43b1-8e60-c22a222c9af0"], Cell[404551, 12621, 2188, 63, 97, "Output",ExpressionUUID->"b1ff08ce-d8d0-40a3-954e-47ade05e6070"] }, Open ]], Cell[406754, 12687, 179, 3, 30, "Input",ExpressionUUID->"487c0e96-c401-4223-b3d7-1faf6bec7871"], Cell[406936, 12692, 254, 5, 59, "Text",ExpressionUUID->"d990de25-6b37-4697-ae7e-29c6770f3dac"], Cell[CellGroupData[{ Cell[407215, 12701, 226, 4, 44, "Input",ExpressionUUID->"debfd25a-f4f7-42b0-ab2d-b244bf43696d"], Cell[407444, 12707, 983, 29, 65, "Output",ExpressionUUID->"29e4d143-2ee1-4b71-baad-1f70f00fc86f"] }, Open ]], Cell[CellGroupData[{ Cell[408464, 12741, 1032, 32, 76, "Input",ExpressionUUID->"58d12866-a26a-446a-8ec8-b745a655156c"], Cell[409499, 12775, 983, 29, 88, "Output",ExpressionUUID->"ba96ccc8-4dac-43d6-88fa-abb151075100"] }, Open ]] } ] *)