(* 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[ 59894, 1773] NotebookOptionsPosition[ 50474, 1622] NotebookOutlinePosition[ 50882, 1639] CellTagsIndexPosition[ 50839, 1636] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "Benchmark \n", StyleBox["the basic payoff function", FontWeight->"Bold", FontVariations->{"Underline"->True}, FontColor->RGBColor[1, 0, 0]] }], "Text", CellChangeTimes->{{3.846401651571216*^9, 3.8464016711950502`*^9}},ExpressionUUID->"a394ee61-219a-465f-9032-\ 3c6473f7656f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Profits", ":=", RowBox[{ RowBox[{ RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+", RowBox[{"e", RowBox[{"(", RowBox[{"F", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs"}]}]}]], "Input", CellChangeTimes->{ 3.846209364611114*^9, {3.846401604050585*^9, 3.846401611274037*^9}, 3.846401676943778*^9}, CellLabel->"In[1]:=",ExpressionUUID->"2bfb7c61-f218-47cb-bc3a-cc716fbd3a9a"], Cell[BoxData[{ RowBox[{"Profitv", ":=", RowBox[{ RowBox[{"\[Alpha]", " ", "p"}], "+", RowBox[{"e", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]", RowBox[{"Profitc", ":=", RowBox[{"Profitv", "+", "Profits"}]}]}], "Input", CellChangeTimes->{{3.84620927121496*^9, 3.846209288008996*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"cf541492-4f89-47b7-bec4-8b99bee6fe45"], Cell[CellGroupData[{ Cell[BoxData["Profitc"], "Input", CellChangeTimes->{{3.846209290115368*^9, 3.846209292721463*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"298080fd-02c6-463c-b2fa-b5bd2c658e4d"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "-", RowBox[{ SuperscriptBox["e", "2"], " ", "k"}], "+", RowBox[{"e", " ", RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{"e", " ", "p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], " ", "\[Theta]"}]}]], "Output", CellChangeTimes->{3.846209293661014*^9, 3.84620937408396*^9, 3.8462094127941637`*^9, 3.846402078299246*^9}, CellLabel->"Out[6]=",ExpressionUUID->"48f4dc4f-8636-40e7-8cfb-e02dc9f238ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "-", RowBox[{ SuperscriptBox["e", "2"], " ", "k"}], "+", RowBox[{"e", " ", RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{"e", " ", "p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], " ", "\[Theta]"}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[8]:=",ExpressionUUID->"df9188b8-eb6f-4418-9b9b-e4cda66735f4"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "+", RowBox[{"e", " ", "F"}], "-", RowBox[{ SuperscriptBox["e", "2"], " ", "k"}], "-", "\[Theta]", "+", RowBox[{"e", " ", "\[Theta]"}]}]], "Output", CellChangeTimes->{3.846209421158983*^9, 3.846209500179124*^9, 3.846402094994486*^9}, CellLabel->"Out[8]=",ExpressionUUID->"31b4fb1a-7ab3-4993-8a5e-212c279b5f3d"] }, Open ]], Cell[TextData[StyleBox["the constraints", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.84640182143366*^9, 3.846401836615322*^9}, { 3.846401981709804*^9, 3.846401987660841*^9}},ExpressionUUID->"6bf959b9-8c17-40ee-9966-\ 670685a332b2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input", CellChangeTimes->{{3.846209427709444*^9, 3.846209470452969*^9}}, NumberMarks->False, CellLabel->"In[11]:=",ExpressionUUID->"d8ecedc2-135f-4b29-92f4-2205906a96ce"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"e", "\[Rule]", FractionBox[ RowBox[{"F", "+", "\[Theta]", "-", SqrtBox[ RowBox[{ SuperscriptBox["F", "2"], "-", RowBox[{"4", " ", "cs", " ", "k"}], "-", RowBox[{"4", " ", "cv", " ", "k"}], "+", RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+", SuperscriptBox["\[Theta]", "2"]}]]}], RowBox[{"2", " ", "k"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"e", "\[Rule]", FractionBox[ RowBox[{"F", "+", "\[Theta]", "+", SqrtBox[ RowBox[{ SuperscriptBox["F", "2"], "-", RowBox[{"4", " ", "cs", " ", "k"}], "-", RowBox[{"4", " ", "cv", " ", "k"}], "+", RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+", SuperscriptBox["\[Theta]", "2"]}]]}], RowBox[{"2", " ", "k"}]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.846209471439115*^9, 3.8462095036510077`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"9bb85643-254d-4cc6-8162-b2515e97ab70"] }, Open ]], Cell[TextData[StyleBox["The optimal of e", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.846402181452138*^9, 3.846402186568548*^9}},ExpressionUUID->"063032f8-5d03-45da-86ca-\ 08143ad79aaf"], Cell["the first derivative", "Text", CellChangeTimes->{{3.846402224118956*^9, 3.846402227767962*^9}, { 3.846402276470606*^9, 3.84640230134868*^9}},ExpressionUUID->"91c5ab85-b346-4a16-a28c-\ fb56a8def681"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitc", ",", "e"}], "]"}]], "Input", CellChangeTimes->{{3.846209445107024*^9, 3.846209445108041*^9}, { 3.846210150624776*^9, 3.846210165683264*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"39e70686-41a2-48d8-94a0-e90b73a34312"], Cell[BoxData[ RowBox[{"F", "-", RowBox[{"2", " ", "e", " ", "k"}], "+", "\[Theta]"}]], "Output", CellChangeTimes->{3.8462101782059593`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"3d953353-8df0-42ea-ba76-664c0b33d850"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"F", "-", RowBox[{"2", " ", "e", " ", "k"}], "+", "\[Theta]"}], "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input", CellChangeTimes->{{3.8462101839848547`*^9, 3.846210196704268*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"fd0a28a4-6f7b-469b-9474-7b920345061b"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"e", "\[Rule]", FractionBox[ RowBox[{"F", "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.8462101972245626`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"b77ddf0c-c3f8-4575-8ad1-7007f490de75"] }, Open ]], Cell[BoxData[ RowBox[{"e", ":=", "%"}]], "Input", CellChangeTimes->{{3.846210333093611*^9, 3.846210340548347*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"ae0b9c28-6033-447a-87a0-0643faa958d9"], Cell[BoxData[ RowBox[{"e", ":=", FractionBox[ RowBox[{"F", "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}]], "Input", CellChangeTimes->{ 3.846210342451517*^9, {3.8462105428968077`*^9, 3.846210549394449*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"795af23f-8f6d-41ed-ba5b-816331478426"], Cell[CellGroupData[{ Cell[BoxData["e"], "Input", CellChangeTimes->{3.846210551502446*^9}, CellLabel->"In[17]:=",ExpressionUUID->"852f0b4c-ec45-4749-8c89-b2775872f959"], Cell[BoxData[ FractionBox[ RowBox[{"F", "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{3.8462105523560543`*^9}, CellLabel->"Out[17]=",ExpressionUUID->"f203f777-23ad-4f8a-b409-4b65c0fdb6b4"] }, Open ]], Cell[TextData[StyleBox["the maximum profit of the centre supply chain at the \ optimal e", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.846402335618883*^9, 3.846402415286175*^9}},ExpressionUUID->"eb6dec94-996a-4be1-80e0-\ 2afd6cf29d1a"], Cell[CellGroupData[{ Cell[BoxData["Profitc"], "Input", CellChangeTimes->{{3.846210558376494*^9, 3.84621056128833*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"b75201a4-4683-4659-96ba-78f5f961bd82"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"F", "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"F", "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"], RowBox[{"4", " ", "k"}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"F", "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.846210561878027*^9}, CellLabel->"Out[18]=",ExpressionUUID->"0fc7675d-75be-439d-bbc7-7a991d47bada"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"F", "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"F", "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"F", "+", "\[Theta]"}], ")"}], "2"], RowBox[{"4", " ", "k"}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"F", "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[19]:=",ExpressionUUID->"759fc3fc-8258-4467-8a5b-87d667a06a1d"], Cell[BoxData[{ FractionBox[ RowBox[{ SuperscriptBox["F", "2"], "-", RowBox[{"4", " ", "cs", " ", "k"}], "-", RowBox[{"4", " ", "cv", " ", "k"}], "+", RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+", SuperscriptBox["\[Theta]", "2"]}], RowBox[{"4", " ", "k"}]], "\[IndentingNewLine]", RowBox[{"Profitv", ":=", RowBox[{ RowBox[{"\[Alpha]", " ", "p"}], "+", RowBox[{"e", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}]}], "Input", CellChangeTimes->{{3.84621070851558*^9, 3.846210708961096*^9}, { 3.8464024443220253`*^9, 3.846402455784593*^9}},ExpressionUUID->"dbfa5ba4-b44f-47e0-aabb-\ d5708db8f8bd"], Cell[TextData[StyleBox["the maximum profit of the vehicle manufacture at that \ e", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.846402481136752*^9, 3.8464025224167147`*^9}},ExpressionUUID->"f9e28cbe-8927-4996-b7ed-\ cd4a1a56df4f"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["F", "2"], "-", RowBox[{"4", " ", "cs", " ", "k"}], "-", RowBox[{"4", " ", "cv", " ", "k"}], "+", RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+", SuperscriptBox["\[Theta]", "2"]}], RowBox[{"4", " ", "k"}]]], "Output", CellChangeTimes->{3.846210712157743*^9}, CellLabel->"Out[1]=",ExpressionUUID->"8cd15dfc-c225-4300-9e05-77ec505f46fe"], Cell[TextData[{ StyleBox["The insurance model ", FontWeight->"Bold", FontVariations->{"Underline"->True}, FontColor->RGBColor[1, 0, 0]], "(satellite owner buy the insurance contract from the third party)\n" }], "Text", CellChangeTimes->{{3.846402609304088*^9, 3.846402693017057*^9}},ExpressionUUID->"89afe516-b491-4dd4-8625-\ 8723c5559ed6"], Cell[TextData[StyleBox["the vehicle manufacture ", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.846402702340436*^9, 3.846402716965856*^9}},ExpressionUUID->"973d4f70-5eea-4c9c-b49a-\ fd364b0ca384"], Cell[TextData[StyleBox["he decide the optimal e", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.846402725532193*^9, 3.846402734045746*^9}},ExpressionUUID->"7af213dd-c3a9-4467-83d9-\ cf434c2d02e5"], Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitv", ",", "e"}], "]"}]], "Input", CellChangeTimes->{{3.846210672779498*^9, 3.8462106800703382`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"6d39d5bf-5c31-4298-bb3b-da5c6e2ec73f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}], "\[Equal]", "0"}], ",", "e"}], "]"}]}], "Input", CellChangeTimes->{{3.846210726357864*^9, 3.846210739631092*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"f18e6606-cee0-4469-9bf1-ef357eb6ca94"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output", CellChangeTimes->{3.8462107406590967`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"f6e0b587-8a2c-4309-b45b-2a2ccac03309"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"e", "\[Rule]", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.846210740665861*^9}, CellLabel->"Out[5]=",ExpressionUUID->"217fa292-0d70-475d-87ea-b60d0eacefdf"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"e", ":=", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.846210808930048*^9, 3.846210827355659*^9}, 3.846444305601678*^9},ExpressionUUID->"c03d37e9-13af-4d58-986c-\ a9a9e580d405"], Cell[TextData[StyleBox["the maximum profit of vehicle manufacture", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.8464443125715714`*^9, 3.846444326486767*^9}},ExpressionUUID->"d6a2c1fa-d86f-474b-8194-\ c99d3604d623"], Cell[CellGroupData[{ Cell[BoxData["Profitv"], "Input", CellChangeTimes->{{3.846210831415937*^9, 3.846210833906035*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"27821968-234b-4c2b-936c-cc91c14bb866"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cv"}], "+", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"], RowBox[{"4", " ", "k"}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.8462108346429977`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"383177cd-89b2-4ead-b605-6f0d375fa126"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cv"}], "+", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"], RowBox[{"4", " ", "k"}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[8]:=",ExpressionUUID->"dac8529f-34ed-41f7-969a-982ec5fd389d"], Cell[BoxData[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+", RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k"}], "+", "\[Theta]"}], ")"}]}], "+", RowBox[{"2", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"4", " ", "k"}]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Profits", ":=", RowBox[{ RowBox[{ RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+", RowBox[{"e", RowBox[{"(", RowBox[{"F", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs"}]}]}], "Input", CellChangeTimes->{{3.8462112214769077`*^9, 3.8462112222266703`*^9}, 3.846444486242374*^9},ExpressionUUID->"2a603fd5-19b0-40c6-95c8-\ f17d51640b33"], Cell[TextData[StyleBox["the satellite owner", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.846444497476715*^9, 3.846444505341422*^9}},ExpressionUUID->"4f7bfbca-e368-4508-9064-\ 47ec5ab05120"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "cv", " ", "k"}], "+", RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k"}], "+", "\[Theta]"}], ")"}]}], "+", RowBox[{"2", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-", RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], RowBox[{"4", " ", "k"}]]], "Output", CellChangeTimes->{3.846211293770145*^9}, CellLabel->"Out[11]=",ExpressionUUID->"87fa8211-6a79-4289-8e6b-3e10c2bbf117"], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.846211296912982*^9, 3.8462113074114923`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"ef1cf120-e4fc-459f-80cd-15cc7f73b2f2"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.84621130840578*^9}, CellLabel->"Out[13]=",ExpressionUUID->"1b5fcf8e-fe2f-418e-b34d-58dccb24a1b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[14]:=",ExpressionUUID->"37cb7aee-21df-49fe-91bc-fbe71d22e873"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846211393216653*^9}, CellLabel->"Out[14]=",ExpressionUUID->"6920c596-334b-45ea-b7f3-bb8f30af746e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Profitcc", "=", RowBox[{"Profits", "+", "Profitv"}]}]], "Input", CellChangeTimes->{{3.8462114243960323`*^9, 3.846211441455559*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"c47286ce-dee1-4e47-b338-541904fcca07"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "cv", "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"], RowBox[{"4", " ", "k"}]], "-", RowBox[{"\[Theta]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.846211441909966*^9}, CellLabel->"Out[15]=",ExpressionUUID->"65cf33ee-4413-4cb8-9896-ff6226d2b3c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "Profitcc", "]"}]], "Input", NumberMarks->False, CellLabel->"In[16]:=",ExpressionUUID->"41f8c853-9fea-465e-ab21-74a85a5ab77b"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"4", " ", "cs", " ", "k"}], "+", RowBox[{"4", " ", "cv", " ", "k"}], "-", RowBox[{"2", " ", "F", " ", "p"}], "+", SuperscriptBox["p", "2"], "+", RowBox[{"2", " ", "F", " ", "p", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "+", RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"2", " ", "F", " ", "\[Theta]"}], "+", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-", SuperscriptBox["\[Theta]", "2"]}], RowBox[{"4", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846211445132003*^9}, CellLabel->"Out[16]=",ExpressionUUID->"6388adc7-827d-4b4d-98f8-116157867cd9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "\[Alpha]"}], "]"}]], "Input", CellChangeTimes->{{3.846211479315372*^9, 3.846211491648209*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"60354f74-9e9b-4d6a-925f-5d232d3ba9cd"], Cell[BoxData[ RowBox[{ RowBox[{"-", "p"}], "-", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846211492440243*^9}, CellLabel->"Out[17]=",ExpressionUUID->"4250285d-cdcc-4bda-9cd3-b8520b3f7c2a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "p"}], "-", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[18]:=",ExpressionUUID->"930640c8-e856-4261-a979-04f64bd6f508"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"F", "+", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "p"}], "+", RowBox[{"2", " ", "p", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846211507224461*^9}, CellLabel->"Out[18]=",ExpressionUUID->"9144eec3-2a5f-4381-b951-70d52d667c8d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"F", "+", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "p"}], "+", RowBox[{"2", " ", "p", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input", CellChangeTimes->{{3.846211557362887*^9, 3.8462115588732452`*^9}}, NumberMarks->False, CellLabel->"In[20]:=",ExpressionUUID->"8d2ab3af-7b23-4b4a-9d5b-f097f1a2660b"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "F"}], "-", RowBox[{"2", " ", "k"}], "+", RowBox[{"2", " ", "p"}], "+", "\[Theta]"}], RowBox[{"2", " ", "p"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.846211552237669*^9, 3.846211560135*^9}}, CellLabel->"Out[20]=",ExpressionUUID->"abda7002-aa36-481e-a03f-747853df6774"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8462281700560207`*^9, 3.8462281700593357`*^9}},ExpressionUUID->"2fd7c741-1d60-4247-af61-\ 8de8ec282dcb"], Cell[BoxData[""], "Input",ExpressionUUID->"062f418b-cf66-40db-860a-c26c58f16708"], Cell["\<\ 2\:20e3\:fe0f If the satellite owner buy insurance contract from the third \ party ( insurance company) \ \>", "Text", CellChangeTimes->{{3.8462280002133923`*^9, 3.8462281416359463`*^9}, { 3.846228175075988*^9, 3.846228184167919*^9}, {3.846228251287497*^9, 3.846228252133068*^9}, {3.846228287860087*^9, 3.846228289423696*^9}},ExpressionUUID->"cd5425fd-f620-4a0d-ab77-\ 34795e3e5118"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846211539203393*^9, 3.846211564235084*^9}},ExpressionUUID->"e78ec828-06a6-4e64-8a24-\ 70b7e1bc0784"], Cell[BoxData[{ RowBox[{"Profitv", ":=", RowBox[{ RowBox[{"\[Alpha]", " ", "p"}], "+", RowBox[{"e", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]", RowBox[{"Profits", ":=", RowBox[{ RowBox[{ RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+", RowBox[{"e", RowBox[{"(", RowBox[{"F", "-", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], " ", ")"}], "p"}], "-", "cs", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}], "p"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], " ", ")"}]}]}]}]}], "Input",\ CellChangeTimes->{{3.846228358050795*^9, 3.846228398093357*^9}, { 3.8462284687864103`*^9, 3.846228510512394*^9}, {3.846228588106646*^9, 3.846228629971093*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"257234fc-5265-4e8d-926d-e78f83e50443"], Cell[BoxData[ RowBox[{"e", ":=", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}]], "Input", CellLabel->"In[3]:=",ExpressionUUID->"32b811c9-dc2c-484e-a5ca-5ad1560c5715"], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.8462284054373198`*^9, 3.84622841275499*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"f8089042-13a8-419a-9012-fe063062b991"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.846228413826522*^9, 3.8462286360050907`*^9, 3.846229678015501*^9}, CellLabel->"Out[4]=",ExpressionUUID->"9986a3b5-7dea-46bb-a163-709da9033918"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[7]:=",ExpressionUUID->"78cfcd05-f486-4952-9ad7-1c328218e38c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846229727906583*^9, 3.846229728288123*^9}},ExpressionUUID->"a17efeb9-004c-4b1d-86dd-\ 796c0eaaa1ac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.846229698868548*^9, 3.84622969942836*^9}}, NumberMarks->False, CellLabel->"In[15]:=",ExpressionUUID->"a7a00d82-cd09-4a30-90c9-18e70093eb91"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "k", " ", "p", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}], ")"}]}], "+", RowBox[{"cs", " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846270322383416*^9}, CellLabel->"Out[15]=",ExpressionUUID->"eb0f31e5-a84b-4008-ad16-2645d99d042a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846229712269134*^9, 3.8462297127984*^9}},ExpressionUUID->"c408e455-e006-4167-965e-b842c93035ec"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], ",", "\[Alpha]"}], "]"}]], "Input", CellChangeTimes->{{3.846229578043709*^9, 3.846229592887637*^9}, 3.846229689563798*^9}, CellLabel->"In[5]:=",ExpressionUUID->"81b2a11d-2f75-4990-b789-644bbe1be0a4"], Cell[BoxData[ RowBox[{ RowBox[{"-", "p"}], "-", FractionBox[ RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.846229594337805*^9, 3.846229691413479*^9}, CellLabel->"Out[5]=",ExpressionUUID->"f161ef05-2b71-484b-a10c-139c5ce352de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "p"}], "-", FractionBox[ RowBox[{ SuperscriptBox["p", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[8]:=",ExpressionUUID->"d93bf413-01e3-42dd-8791-a438fb13dcb1"], Cell[BoxData[ FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"cs", "+", "p", "-", RowBox[{"F", " ", "p"}]}], ")"}]}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{3.846229753425674*^9}, CellLabel->"Out[8]=",ExpressionUUID->"fe048cdb-af2b-4808-b1d4-2f2bc79b5f4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "-", RowBox[{"p", " ", "\[Alpha]"}], "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], ",", "p"}], "]"}]], "Input", CellChangeTimes->{{3.846229815429246*^9, 3.846229819959741*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"5d31b662-efc8-4427-bf3f-daa29f371a22"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "-", "ri", "-", "\[Alpha]", "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.846229820545198*^9}, CellLabel->"Out[9]=",ExpressionUUID->"7a448af0-4939-4a3e-af08-651e10c83032"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "1"}], "-", "ri", "-", "\[Alpha]", "+", FractionBox[ RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"cs", "+", RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[10]:=",ExpressionUUID->"e3df6e80-b328-4ac2-aab7-3e8ba28f4263"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "+", RowBox[{"cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}], ")"}]}]}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{3.8462298243508368`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"8bffaefd-14a8-4134-90dd-fa98ce8050bc"] }, Open ]], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "+", RowBox[{"cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}], ")"}]}]}], RowBox[{"2", " ", "k"}]], "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",\ CellChangeTimes->{{3.846229954444889*^9, 3.846229955132103*^9}}, NumberMarks->False, CellLabel->"In[12]:=",ExpressionUUID->"b189bc4d-1eaa-4126-8dce-d9d79c08c0db"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"{", RowBox[{"{", RowBox[{"p", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}], "}"}], "\[IndentingNewLine]", RowBox[{"p", ":=", FractionBox[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]}], "Input", CellChangeTimes->{{3.846270407771462*^9, 3.846270416934596*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"5b0a48be-a43c-4710-8b22-10e94222a6e3"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"p", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.846270418048728*^9}, CellLabel->"Out[16]=",ExpressionUUID->"0e19f0e5-ff1e-4c7e-8832-10d04a242119"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.846270423884676*^9, 3.846270431007271*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"e5052858-4f1e-4e2a-832c-80b5958669c4"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+", RowBox[{ RowBox[{"(", RowBox[{"cs", "+", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"\[Theta]", "+", FractionBox[ RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-", FractionBox[ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "cs"}], "-", RowBox[{"2", " ", "k"}], "-", RowBox[{"2", " ", "k", " ", "ri"}], "+", RowBox[{"cs", " ", "\[Alpha]"}], "-", "\[Theta]", "+", RowBox[{"F", " ", "\[Theta]"}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.846270431833397*^9}, CellLabel->"Out[18]=",ExpressionUUID->"7fef729b-b561-41cb-8b78-98ee43d45f1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "%18", "]"}]], "Input", NumberMarks->False, CellLabel->"In[19]:=",ExpressionUUID->"ae89cb04-5d96-4624-9b6c-8c765df92233"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["cs", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{"2", " ", "cs", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", "\[Theta]"}]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "ri"}], ")"}]}], "+", "\[Theta]", "-", RowBox[{"F", " ", "\[Theta]"}]}], ")"}], "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "F"}], ")"}], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output", CellChangeTimes->{3.84627043546338*^9}, CellLabel->"Out[19]=",ExpressionUUID->"e802a41b-243d-456c-b971-eee2d8444209"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846211292005515*^9, 3.8462112920065517`*^9}},ExpressionUUID->"56c50794-b556-4cb8-8f04-\ 3d9feca3fc68"], Cell[BoxData[""], "Input", CellChangeTimes->{3.8462094427896013`*^9}, NumberMarks->False,ExpressionUUID->"b7fbd760-0acd-4880-bde4-d6b8b35c182c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846209385936804*^9, 3.846209386559058*^9}},ExpressionUUID->"189d545a-e782-47d0-af33-\ 62326445de52"] }, WindowSize->{808, 730}, WindowMargins->{{273, Automatic}, {10, Automatic}}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \ (2020\:5e743\:670813\:65e5)", StyleDefinitions->"Default.nb", ExpressionUUID->"1e5e1e12-c894-48de-a8ae-bc45ab1361cf" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 304, 9, 58, "Text",ExpressionUUID->"a394ee61-219a-465f-9032-3c6473f7656f"], Cell[865, 31, 542, 16, 52, "Input",ExpressionUUID->"2bfb7c61-f218-47cb-bc3a-cc716fbd3a9a"], Cell[1410, 49, 617, 16, 52, "Input",ExpressionUUID->"cf541492-4f89-47b7-bec4-8b99bee6fe45"], Cell[CellGroupData[{ Cell[2052, 69, 177, 2, 30, "Input",ExpressionUUID->"298080fd-02c6-463c-b2fa-b5bd2c658e4d"], Cell[2232, 73, 676, 19, 34, "Output",ExpressionUUID->"48f4dc4f-8636-40e7-8cfb-e02dc9f238ab"] }, Open ]], Cell[CellGroupData[{ Cell[2945, 97, 634, 19, 46, "Input",ExpressionUUID->"df9188b8-eb6f-4418-9b9b-e4cda66735f4"], Cell[3582, 118, 385, 9, 34, "Output",ExpressionUUID->"31b4fb1a-7ab3-4993-8a5e-212c279b5f3d"] }, Open ]], Cell[3982, 130, 256, 5, 35, "Text",ExpressionUUID->"6bf959b9-8c17-40ee-9966-670685a332b2"], Cell[CellGroupData[{ Cell[4263, 139, 278, 6, 44, "Input",ExpressionUUID->"d8ecedc2-135f-4b29-92f4-2205906a96ce"], Cell[4544, 147, 1180, 30, 99, "Output",ExpressionUUID->"9bb85643-254d-4cc6-8162-b2515e97ab70"] }, Open ]], Cell[5739, 180, 209, 4, 35, "Text",ExpressionUUID->"063032f8-5d03-45da-86ca-08143ad79aaf"], Cell[5951, 186, 210, 4, 35, "Text",ExpressionUUID->"91c5ab85-b346-4a16-a28c-fb56a8def681"], Cell[CellGroupData[{ Cell[6186, 194, 277, 5, 44, InheritFromParent,ExpressionUUID->"39e70686-41a2-48d8-94a0-e90b73a34312"], Cell[6466, 201, 223, 4, 34, "Output",ExpressionUUID->"3d953353-8df0-42ea-ba76-664c0b33d850"] }, Open ]], Cell[CellGroupData[{ Cell[6726, 210, 341, 8, 44, "Input",ExpressionUUID->"fd0a28a4-6f7b-469b-9474-7b920345061b"], Cell[7070, 220, 308, 8, 50, "Output",ExpressionUUID->"b77ddf0c-c3f8-4575-8ad1-7007f490de75"] }, Open ]], Cell[7393, 231, 195, 3, 30, "Input",ExpressionUUID->"ae0b9c28-6033-447a-87a0-0643faa958d9"], Cell[7591, 236, 298, 7, 47, "Input",ExpressionUUID->"795af23f-8f6d-41ed-ba5b-816331478426"], Cell[CellGroupData[{ Cell[7914, 247, 148, 2, 30, "Input",ExpressionUUID->"852f0b4c-ec45-4749-8c89-b2775872f959"], Cell[8065, 251, 224, 5, 50, "Output",ExpressionUUID->"f203f777-23ad-4f8a-b409-4b65c0fdb6b4"] }, Open ]], Cell[8304, 259, 257, 5, 35, "Text",ExpressionUUID->"eb6dec94-996a-4be1-80e0-2afd6cf29d1a"], Cell[CellGroupData[{ Cell[8586, 268, 177, 2, 30, "Input",ExpressionUUID->"b75201a4-4683-4659-96ba-78f5f961bd82"], Cell[8766, 272, 987, 32, 53, "Output",ExpressionUUID->"0fc7675d-75be-439d-bbc7-7a991d47bada"] }, Open ]], Cell[9768, 307, 1029, 33, 63, "Input",ExpressionUUID->"759fc3fc-8258-4467-8a5b-87d667a06a1d"], Cell[10800, 342, 901, 25, 73, InheritFromParent,ExpressionUUID->"dbfa5ba4-b44f-47e0-aabb-d5708db8f8bd"], Cell[11704, 369, 252, 5, 35, "Text",ExpressionUUID->"f9e28cbe-8927-4996-b7ed-cd4a1a56df4f"], Cell[11959, 376, 463, 11, 53, "Output",ExpressionUUID->"8cd15dfc-c225-4300-9e05-77ec505f46fe"], Cell[12425, 389, 352, 9, 58, "Text",ExpressionUUID->"89afe516-b491-4dd4-8625-8723c5559ed6"], Cell[12780, 400, 217, 4, 35, "Text",ExpressionUUID->"973d4f70-5eea-4c9c-b49a-fd364b0ca384"], Cell[13000, 406, 216, 4, 35, "Text",ExpressionUUID->"7af213dd-c3a9-4467-83d9-cf434c2d02e5"], Cell[13219, 412, 229, 4, 44, "Input",ExpressionUUID->"6d39d5bf-5c31-4298-bb3b-da5c6e2ec73f"], Cell[CellGroupData[{ Cell[13473, 420, 652, 19, 65, InheritFromParent,ExpressionUUID->"f18e6606-cee0-4469-9bf1-ef357eb6ca94"], Cell[14128, 441, 320, 8, 34, "Output",ExpressionUUID->"f6e0b587-8a2c-4309-b45b-2a2ccac03309"], Cell[14451, 451, 349, 9, 49, "Output",ExpressionUUID->"217fa292-0d70-475d-87ea-b60d0eacefdf"] }, Open ]], Cell[14815, 463, 357, 9, 68, "Input",ExpressionUUID->"c03d37e9-13af-4d58-986c-a9a9e580d405"], Cell[15175, 474, 236, 4, 35, "Text",ExpressionUUID->"d6a2c1fa-d86f-474b-8194-c99d3604d623"], Cell[CellGroupData[{ Cell[15436, 482, 177, 2, 30, "Input",ExpressionUUID->"27821968-234b-4c2b-936c-cc91c14bb866"], Cell[15616, 486, 871, 26, 53, "Output",ExpressionUUID->"383177cd-89b2-4ead-b605-6f0d375fa126"] }, Open ]], Cell[16502, 515, 905, 27, 63, "Input",ExpressionUUID->"dac8529f-34ed-41f7-969a-982ec5fd389d"], Cell[17410, 544, 1166, 36, 94, InheritFromParent,ExpressionUUID->"2a603fd5-19b0-40c6-95c8-f17d51640b33"], Cell[18579, 582, 212, 4, 35, "Text",ExpressionUUID->"4f7bfbca-e368-4508-9064-47ec5ab05120"], Cell[18794, 588, 775, 23, 53, "Output",ExpressionUUID->"87fa8211-6a79-4289-8e6b-3e10c2bbf117"], Cell[CellGroupData[{ Cell[19594, 615, 180, 2, 30, "Input",ExpressionUUID->"ef1cf120-e4fc-459f-80cd-15cc7f73b2f2"], Cell[19777, 619, 542, 16, 50, "Output",ExpressionUUID->"1b5fcf8e-fe2f-418e-b34d-58dccb24a1b5"] }, Open ]], Cell[CellGroupData[{ Cell[20356, 640, 569, 17, 60, "Input",ExpressionUUID->"37cb7aee-21df-49fe-91bc-fbe71d22e873"], Cell[20928, 659, 568, 17, 50, "Output",ExpressionUUID->"6920c596-334b-45ea-b7f3-bb8f30af746e"] }, Open ]], Cell[CellGroupData[{ Cell[21533, 681, 238, 4, 30, "Input",ExpressionUUID->"c47286ce-dee1-4e47-b338-541904fcca07"], Cell[21774, 687, 1164, 36, 53, "Output",ExpressionUUID->"65cf33ee-4413-4cb8-9896-ff6226d2b3c2"] }, Open ]], Cell[CellGroupData[{ Cell[22975, 728, 168, 3, 44, "Input",ExpressionUUID->"41f8c853-9fea-465e-ab21-74a85a5ab77b"], Cell[23146, 733, 772, 19, 53, "Output",ExpressionUUID->"6388adc7-827d-4b4d-98f8-116157867cd9"] }, Open ]], Cell[CellGroupData[{ Cell[23955, 757, 235, 4, 44, "Input",ExpressionUUID->"60354f74-9e9b-4d6a-925f-5d232d3ba9cd"], Cell[24193, 763, 581, 18, 50, "Output",ExpressionUUID->"4250285d-cdcc-4bda-9cd3-b8520b3f7c2a"] }, Open ]], Cell[CellGroupData[{ Cell[24811, 786, 609, 19, 60, "Input",ExpressionUUID->"930640c8-e856-4261-a979-04f64bd6f508"], Cell[25423, 807, 421, 11, 51, "Output",ExpressionUUID->"9144eec3-2a5f-4381-b951-70d52d667c8d"] }, Open ]], Cell[CellGroupData[{ Cell[25881, 823, 589, 16, 61, "Input",ExpressionUUID->"8d2ab3af-7b23-4b4a-9d5b-f097f1a2660b"], Cell[26473, 841, 430, 11, 54, "Output",ExpressionUUID->"abda7002-aa36-481e-a03f-747853df6774"] }, Open ]], Cell[26918, 855, 156, 3, 30, "Input",ExpressionUUID->"2fd7c741-1d60-4247-af61-8de8ec282dcb"], Cell[27077, 860, 81, 0, 30, "Input",ExpressionUUID->"062f418b-cf66-40db-860a-c26c58f16708"], Cell[27161, 862, 405, 10, 82, "Text",ExpressionUUID->"cd5425fd-f620-4a0d-ab77-34795e3e5118"], Cell[27569, 874, 152, 3, 30, "Input",ExpressionUUID->"e78ec828-06a6-4e64-8a24-70b7e1bc0784"], Cell[27724, 879, 1168, 36, 52, "Input",ExpressionUUID->"257234fc-5265-4e8d-926d-e78f83e50443"], Cell[28895, 917, 246, 6, 46, "Input",ExpressionUUID->"32b811c9-dc2c-484e-a5ca-5ad1560c5715"], Cell[CellGroupData[{ Cell[29166, 927, 178, 2, 30, "Input",ExpressionUUID->"f8089042-13a8-419a-9012-fe063062b991"], Cell[29347, 931, 927, 28, 50, "Output",ExpressionUUID->"9986a3b5-7dea-46bb-a163-709da9033918"] }, Open ]], Cell[30289, 962, 915, 28, 60, "Input",ExpressionUUID->"78cfcd05-f486-4952-9ad7-1c328218e38c"], Cell[31207, 992, 152, 3, 30, InheritFromParent,ExpressionUUID->"a17efeb9-004c-4b1d-86dd-796c0eaaa1ac"], Cell[CellGroupData[{ Cell[31384, 999, 981, 29, 60, "Input",ExpressionUUID->"a7a00d82-cd09-4a30-90c9-18e70093eb91"], Cell[32368, 1030, 773, 24, 51, "Output",ExpressionUUID->"eb0f31e5-a84b-4008-ad16-2645d99d042a"] }, Open ]], Cell[33156, 1057, 148, 2, 30, InheritFromParent,ExpressionUUID->"c408e455-e006-4167-965e-b842c93035ec"], Cell[CellGroupData[{ Cell[33329, 1063, 1037, 31, 60, "Input",ExpressionUUID->"81b2a11d-2f75-4990-b789-644bbe1be0a4"], Cell[34369, 1096, 953, 30, 53, "Output",ExpressionUUID->"f161ef05-2b71-484b-a10c-139c5ce352de"] }, Open ]], Cell[CellGroupData[{ Cell[35359, 1131, 971, 31, 63, "Input",ExpressionUUID->"d93bf413-01e3-42dd-8791-a438fb13dcb1"], Cell[36333, 1164, 300, 8, 50, "Output",ExpressionUUID->"fe048cdb-af2b-4808-b1d4-2f2bc79b5f4a"] }, Open ]], Cell[CellGroupData[{ Cell[36670, 1177, 1001, 29, 60, "Input",ExpressionUUID->"5d31b662-efc8-4427-bf3f-daa29f371a22"], Cell[37674, 1208, 1156, 36, 50, "Output",ExpressionUUID->"7a448af0-4939-4a3e-af08-651e10c83032"] }, Open ]], Cell[CellGroupData[{ Cell[38867, 1249, 1203, 37, 100, "Input",ExpressionUUID->"e3df6e80-b328-4ac2-aab7-3e8ba28f4263"], Cell[40073, 1288, 725, 24, 51, "Output",ExpressionUUID->"8bffaefd-14a8-4134-90dd-fa98ce8050bc"] }, Open ]], Cell[40813, 1315, 920, 29, 61, "Input",ExpressionUUID->"b189bc4d-1eaa-4126-8dce-d9d79c08c0db"], Cell[CellGroupData[{ Cell[41758, 1348, 1183, 35, 93, InheritFromParent,ExpressionUUID->"5b0a48be-a43c-4710-8b22-10e94222a6e3"], Cell[42944, 1385, 681, 20, 53, "Output",ExpressionUUID->"0e19f0e5-ff1e-4c7e-8832-10d04a242119"] }, Open ]], Cell[CellGroupData[{ Cell[43662, 1410, 178, 2, 30, "Input",ExpressionUUID->"e5052858-4f1e-4e2a-832c-80b5958669c4"], Cell[43843, 1414, 4787, 143, 168, "Output",ExpressionUUID->"7fef729b-b561-41cb-8b78-98ee43d45f1c"] }, Open ]], Cell[CellGroupData[{ Cell[48667, 1562, 163, 3, 44, "Input",ExpressionUUID->"ae89cb04-5d96-4624-9b6c-8c765df92233"], Cell[48833, 1567, 1164, 38, 55, "Output",ExpressionUUID->"e802a41b-243d-456c-b971-eee2d8444209"] }, Open ]], Cell[50012, 1608, 154, 3, 30, InheritFromParent,ExpressionUUID->"56c50794-b556-4cb8-8f04-3d9feca3fc68"], Cell[50169, 1613, 146, 2, 30, "Input",ExpressionUUID->"b7fbd760-0acd-4880-bde4-d6b8b35c182c"], Cell[50318, 1617, 152, 3, 30, InheritFromParent,ExpressionUUID->"189d545a-e782-47d0-af33-62326445de52"] } ] *) (* End of internal cache information *)