(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 41816, 1152] NotebookOptionsPosition[ 31965, 1004] NotebookOutlinePosition[ 32371, 1021] CellTagsIndexPosition[ 32328, 1018] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Profits", ":=", RowBox[{ RowBox[{"-", "\[Alpha]p"}], "+", RowBox[{"e", RowBox[{"(", RowBox[{"F", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs"}]}]], "Input", CellChangeTimes->{{3.846015218306656*^9, 3.846015248503848*^9}, { 3.846015319367432*^9, 3.8460153524606247`*^9}, {3.846142579473144*^9, 3.846142580448464*^9}, {3.84614464065667*^9, 3.84614467211998*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"3bb3da7d-bb03-45e8-97dd-2768c4a330b4"], 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[{"\t"}]}], "Input", CellChangeTimes->{{3.846015366863325*^9, 3.846015430269812*^9}, { 3.846015534863706*^9, 3.846015610340621*^9}, {3.8460157829827137`*^9, 3.846015784821113*^9}, 3.846015818648089*^9, {3.84614256928481*^9, 3.8461425706252337`*^9}, 3.846444958129034*^9},ExpressionUUID->"a0a05b1c-092f-45d3-958b-\ 6f6f6db87303"], Cell[CellGroupData[{ Cell[BoxData["Profitv"], "Input", CellChangeTimes->{{3.84601582542632*^9, 3.846015829832897*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"71ee1270-ea36-4acc-94db-dc48ffe86013"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cv"}], "-", RowBox[{ SuperscriptBox["e", "2"], " ", "k"}], "+", RowBox[{"e", " ", "p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p", " ", "\[Alpha]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "e"}], ")"}], " ", "\[Theta]"}]}]], "Output", CellChangeTimes->{3.846142647125669*^9, 3.8461442661628923`*^9}, CellLabel->"Out[3]=",ExpressionUUID->"fb7a45fd-5502-4a02-95dc-4f9d5769dcf9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846142638680594*^9, 3.846142638684915*^9}},ExpressionUUID->"140e314c-6402-4e91-b92c-\ 62c44f5ba43d"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846015837225103*^9, 3.846015841860371*^9}, 3.846142645171198*^9},ExpressionUUID->"11d5dc5f-343c-4251-ab18-\ 015232c9f2d1"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.84614264183855*^9, 3.846142641839746*^9}},ExpressionUUID->"3227026d-e675-4995-b271-\ ddbd4ca89536"], Cell[BoxData[""], "Input", CellChangeTimes->{3.8460158716523542`*^9}, NumberMarks->False,ExpressionUUID->"3bf5d625-4d78-454e-9335-fbe4dbbc1cd8"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846015874149228*^9, 3.8460158741500072`*^9}},ExpressionUUID->"2e6d6539-8fd8-49f3-a149-\ d4b553202033"], Cell[BoxData[""], "Input", CellChangeTimes->{3.8460158753977757`*^9}, NumberMarks->False,ExpressionUUID->"e672dd71-9de7-403a-b3cb-1f7ee65d291e"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.84601587745958*^9, 3.8460158774602327`*^9}},ExpressionUUID->"36da0a40-43e5-4609-aa01-\ e0614fe18963"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8460156703920107`*^9, 3.84601567234361*^9}, 3.846015774090412*^9, 3.846015817288226*^9},ExpressionUUID->"b8521a2a-4f73-40a5-81a7-\ c75332efc30b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profitv", ",", "e"}], "]"}]], "Input", CellChangeTimes->{{3.846015456586561*^9, 3.846015484511428*^9}, { 3.846015521663026*^9, 3.846015522941908*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"0a340e55-6c1b-4523-b674-8f04383e6aae"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output", CellChangeTimes->{3.846142675696553*^9, 3.846144270242647*^9}, CellLabel->"Out[4]=",ExpressionUUID->"2f9d4827-2466-42ea-b328-aee9496de6a0"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[5]:=",ExpressionUUID->"e7ac0d32-0d9c-4ddb-8805-edf4b70c1947"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846144289803026*^9, 3.846144289804228*^9}},ExpressionUUID->"23685e27-4f18-47e1-a3c3-\ 679abdc83add"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.84601591898872*^9, 3.846015926778664*^9}, 3.84614271936088*^9, 3.846144286576626*^9},ExpressionUUID->"4ab18add-3f2d-443d-a319-\ 9babf3d24ef3"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846144284016964*^9, 3.84614428401781*^9}},ExpressionUUID->"1cdb2b64-e9c2-4b95-9243-\ 7442ce4ed81c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846142735143051*^9, 3.846142757188724*^9}},ExpressionUUID->"84d0fa4f-5020-479c-be32-\ 3b0f78ad0170"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846015944313939*^9, 3.846015944314764*^9}},ExpressionUUID->"c94e3235-6b09-4229-9717-\ 8d6799594eed"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846015680445264*^9, 3.846015716042446*^9}},ExpressionUUID->"7e710fd3-19cb-4366-80ff-\ 3b1a7a9941d7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}], "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input", CellChangeTimes->{{3.8460156920793333`*^9, 3.846015720951009*^9}, { 3.84601591497917*^9, 3.846015915908428*^9}, {3.846142763647716*^9, 3.84614276487055*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"8a567ca0-a1ac-4491-98e9-8ea667215fbf"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"e", "\[Rule]", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.846015721841674*^9, 3.846015946247868*^9, {3.846142771257238*^9, 3.846142771438737*^9}, 3.846144296366516*^9}, CellLabel->"Out[5]=",ExpressionUUID->"44f7e200-e300-4b51-9c03-64e24a6923c3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846015984649746*^9, 3.846015993199431*^9}, 3.8461427867352448`*^9},ExpressionUUID->"e7b62be6-5781-4261-b4a0-\ bf2eac2671f3"], Cell[BoxData[ RowBox[{ RowBox[{"e", ":=", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.846015995653957*^9, {3.84614279592563*^9, 3.846142797157818*^9}, 3.8461443779348717`*^9}, CellLabel->"In[1]:=",ExpressionUUID->"5953ef85-9e41-4461-bb16-1276935d4ebe"], Cell[CellGroupData[{ Cell[BoxData["e"], "Input", CellChangeTimes->{3.8461428003601847`*^9}, CellLabel->"In[4]:=",ExpressionUUID->"1224bd5e-b956-4d8e-b5c7-1e3ddbaea5ae"], Cell[BoxData[ FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]], "Output", CellChangeTimes->{3.846142800813908*^9}, CellLabel->"Out[4]=",ExpressionUUID->"c3a93989-16e9-4206-a398-f8505c3f3b6a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846142789143209*^9, 3.846142789144176*^9}},ExpressionUUID->"7e50d72b-f53b-4c48-9e55-\ 6e2abc929de6"], 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"}]}]], "Input", CellChangeTimes->{{3.8461428765466633`*^9, 3.846142878243104*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"6ce9a3ec-f3de-4238-8734-7761b1796309"], Cell[CellGroupData[{ Cell[BoxData["Profitv"], "Input", CellChangeTimes->{{3.8461428948352747`*^9, 3.846142898603189*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"77bc76a0-8185-4c37-a3f9-52215cb07821"], 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.846142899857586*^9, 3.8461443881164103`*^9, 3.846144418571485*^9}, CellLabel->"Out[10]=",ExpressionUUID->"1622a0bd-bd7e-4548-81f0-b4a62d41883a"] }, Open ]], Cell[CellGroupData[{ 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[11]:=",ExpressionUUID->"2d9a44e2-4442-4374-9c13-5fe9e5aff212"], 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.8461444259251003`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"e0fa75f0-f8b3-4b1c-be5e-b73a2fcb1278"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", 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"}]], "]"}]], "Input", NumberMarks->False, CellLabel->"In[12]:=",ExpressionUUID->"6718b90f-3369-46c4-be33-de51cb97ca52"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"4", " ", "cv", " ", "k"}], "-", SuperscriptBox["p", "2"], "-", RowBox[{"4", " ", "k", " ", "p", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-", RowBox[{"2", " ", "p", " ", "\[Theta]"}], "+", RowBox[{"2", " ", "p", " ", "\[Alpha]", " ", "\[Theta]"}], "-", SuperscriptBox["\[Theta]", "2"]}], RowBox[{"4", " ", "k"}]]}]], "Output", CellChangeTimes->{3.8461444331244164`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"b30fa74f-1d19-499c-a6af-fbf5d52765be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", 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[10]:=",ExpressionUUID->"d3d34fad-0fe9-4ba7-89bb-0e5c1427c72a"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"4", " ", "cv", " ", "k"}], "-", SuperscriptBox["p", "2"], "-", RowBox[{"4", " ", "k", " ", "p", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-", RowBox[{"2", " ", "p", " ", "\[Theta]"}], "+", RowBox[{"2", " ", "p", " ", "\[Alpha]", " ", "\[Theta]"}], "-", SuperscriptBox["\[Theta]", "2"]}], RowBox[{"4", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846142980957177*^9}, CellLabel->"Out[10]=",ExpressionUUID->"f5d3a7f5-3622-4428-bcb8-d0f01c63a1d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"4", " ", "cv", " ", "k"}], "-", SuperscriptBox["p", "2"], "-", RowBox[{"4", " ", "k", " ", "p", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-", RowBox[{"2", " ", "p", " ", "\[Theta]"}], "+", RowBox[{"2", " ", "p", " ", "\[Alpha]", " ", "\[Theta]"}], "-", SuperscriptBox["\[Theta]", "2"]}], RowBox[{"4", " ", "k"}]]}], "]"}]], "Input", NumberMarks->False, CellLabel->"In[11]:=",ExpressionUUID->"1c07bab7-696d-496c-9e67-32e34fada675"], 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.8461429900191708`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"d2f27eec-b91b-43da-b796-dd841caa28e9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846142874291078*^9, 3.846142874292322*^9}},ExpressionUUID->"2a99f8c3-5841-44ee-abf9-\ d8e4892c2fed"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8460161193014793`*^9, 3.846016128984997*^9}, 3.84614287007652*^9},ExpressionUUID->"b557bb6c-b890-45db-99bc-\ c8a4213e5fe5"], Cell[BoxData[ RowBox[{"Profits", ":=", RowBox[{ RowBox[{"-", "\[Alpha]p"}], "+", RowBox[{"e", RowBox[{"(", RowBox[{"F", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs"}]}]], "Input", CellChangeTimes->{3.846144690588234*^9}, CellLabel->"In[3]:=",ExpressionUUID->"71317219-2b8e-4150-afcb-4a026e1387af"], Cell[CellGroupData[{ Cell[BoxData["Profits"], "Input", CellChangeTimes->{{3.846143208600382*^9, 3.8461432137195253`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"d0c3ff4c-457c-4e94-91b9-97d565dafc00"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "\[Alpha]p", "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.8461432145759287`*^9, 3.846144454302161*^9, 3.846144694580798*^9, 3.8461448939402943`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"293e1ea4-6448-47bb-837b-0177c38908b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"-", "cs"}], "-", "\[Alpha]p", "+", 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[19]:=",ExpressionUUID->"738d0308-2670-4388-ab5a-dc454ba74e94"], Cell[BoxData[ RowBox[{ RowBox[{"-", "cs"}], "-", "\[Alpha]p", "+", 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.846144802092416*^9}, CellLabel->"Out[19]=",ExpressionUUID->"b7eec91b-41ab-48f9-8fba-470eb5dbe77d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "\[Alpha]"}], "]"}]], "Input", CellChangeTimes->{{3.846143325987051*^9, 3.846143335827944*^9}, 3.846144815073926*^9, 3.846144904920103*^9}, CellLabel->"In[5]:=",ExpressionUUID->"f4d2d4eb-d0aa-44e5-b57b-e01491f19701"], Cell[BoxData[ RowBox[{ RowBox[{"-", 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.846144906075327*^9}, CellLabel->"Out[5]=",ExpressionUUID->"457cb7cd-c333-4cd6-9419-c096e68078f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", 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"}]]}], "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input", CellChangeTimes->{{3.8461449551639843`*^9, 3.846144970818346*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"206a138b-6073-4132-a914-77b794b4fafa"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "F"}], "+", RowBox[{"2", " ", "p"}], "+", "\[Theta]"}], RowBox[{"2", " ", "p"}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.846144972177985*^9}, CellLabel->"Out[6]=",ExpressionUUID->"0cf8a456-fc5a-46fd-8167-1838d9ff50ee"] }, Open ]], Cell[BoxData[{ RowBox[{"Profits", ":=", RowBox[{ RowBox[{"-", "\[Alpha]p"}], "+", RowBox[{"e", RowBox[{"(", RowBox[{"F", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-", "cs"}]}], "\[IndentingNewLine]", RowBox[{"e", ":=", FractionBox[ RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.846144845573925*^9, 3.8461461845232363`*^9, {3.846146216899713*^9, 3.846146235855206*^9}}, NumberMarks->False, CellLabel->"In[2]:=",ExpressionUUID->"0e063310-bff6-4e7d-b4e3-15ea22b5e71c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Profits", ",", "p"}], "]"}]], "Input", CellChangeTimes->{{3.846146241533012*^9, 3.846146250288913*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"053ff73b-e7ac-4366-b471-7cc21c01eea8"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}]], "Output", CellChangeTimes->{3.846146251236929*^9}, CellLabel->"Out[4]=",ExpressionUUID->"1573c1c8-5c88-4d90-97b0-397b8f8cc179"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input", CellChangeTimes->{{3.846146334941495*^9, 3.846146346417227*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"4524f4d7-9947-4004-958c-9da2f8f89903"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"p", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "F"}], "+", "\[Theta]"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.84614634729029*^9}, CellLabel->"Out[5]=",ExpressionUUID->"1d42ca24-16e2-48b6-8009-87b1adf0bae4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ 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"}]]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"F", "-", RowBox[{"p", " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"p", "-", RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], RowBox[{"2", " ", "k"}]]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "p"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.846146400270852*^9, 3.8461464551778107`*^9}, { 3.846146679292563*^9, 3.846146695603546*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"45f7ee41-2cf2-483d-8b8d-878c6f59f0fc"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "1"}], ",", RowBox[{"p", "\[Rule]", "0"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.8461467088405457`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"9886f4c0-283a-4020-88fa-7c1ad7971fb1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8461465057551737`*^9, 3.846146505756467*^9}},ExpressionUUID->"336f4d56-a6bc-422b-9495-\ ccd6a6054767"], Cell[CellGroupData[{ Cell[BoxData[""], "Input", CellChangeTimes->{3.846146517602367*^9}, NumberMarks->False,ExpressionUUID->"87a1a827-bed7-4822-a01f-939b99022c9f"], Cell[BoxData[ TemplateBox[{ "$RecursionLimit", "reclim2", "\"Recursion depth of \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) exceeded during \ evaluation of \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"F\\\"}], \\\"+\\\", \ \\\"\[Theta]\\\"}]\\).\"", 2, 2, 2, 34218317287900995641, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84614648583864*^9}, CellLabel-> "\:6b63\:5728\:8ba1\:7b97In[2]:=",ExpressionUUID->"8376e536-692e-4de3-8711-\ 361727f9577c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846146520015955*^9, 3.846146520016865*^9}},ExpressionUUID->"430f37b0-f311-412f-916e-\ 5ea604e9a676"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846144847950102*^9, 3.846144847951212*^9}},ExpressionUUID->"36663a8e-1f08-4005-bfbb-\ 24168aa89495"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846143434204487*^9, 3.846143447272414*^9}, 3.846144851220251*^9},ExpressionUUID->"6029b540-5e83-4eb5-a00e-\ c296394e6b4d"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846144853798615*^9, 3.846144853799918*^9}},ExpressionUUID->"a845c578-fa77-4ce5-83c4-\ 1fa8299d31fa"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846142866823349*^9, 3.846142866824836*^9}},ExpressionUUID->"9fad0a65-2ba8-4522-a42f-\ 675fc904a4de"], Cell[BoxData[""], "Input", CellChangeTimes->{3.84614286360419*^9}, NumberMarks->False,ExpressionUUID->"7ed7b0c2-9f2c-4795-811c-00950b85eb72"], Cell[BoxData[""], "Input", CellChangeTimes->{3.846016607133621*^9, 3.846142860794797*^9},ExpressionUUID->"dd5bab20-4fac-490e-9583-\ f373c25ab454"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016614064641*^9, 3.846016670988596*^9}, 3.846142857783739*^9},ExpressionUUID->"62fa6239-3ca5-4af4-8681-\ 8349b2c9d7e0"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016716553187*^9, 3.846016724939755*^9}, 3.846142855118805*^9},ExpressionUUID->"ceb83690-d99d-4b41-9f2f-\ 70e3444dc20a"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.84614285214482*^9, 3.846142852772003*^9}},ExpressionUUID->"2a15f4c7-7258-43ad-9747-\ f6c651a0e310"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016701374612*^9, 3.846016702324121*^9}, { 3.846016742409114*^9, 3.846016743259778*^9}, {3.8461428477812357`*^9, 3.846142849209222*^9}},ExpressionUUID->"1240cc78-595f-4e00-b456-\ 7365abbe6c6b"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.846016746131781*^9, {3.846142831966977*^9, 3.8461428449138517`*^9}},ExpressionUUID->"4b85e34a-efda-419f-a449-\ 927507b9e126"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016753048232*^9, 3.846016773857314*^9}},ExpressionUUID->"eaa61adc-d59f-43a9-a49e-\ 178d00d07ac6"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016649690462*^9, 3.846016649691337*^9}},ExpressionUUID->"95c64216-5fe5-4455-b0b9-\ 61777e2a04a8"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846017701382214*^9, 3.846017701383142*^9}},ExpressionUUID->"6f95b30f-8e7e-4c3c-9edb-\ c0c2b4a41f0f"], Cell[BoxData[""], "Input", CellChangeTimes->{3.8460176992469587`*^9}, NumberMarks->False,ExpressionUUID->"31f726ef-b11a-43fa-a0bd-78319243b995"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846017704084765*^9, 3.846017704085779*^9}},ExpressionUUID->"075dda5e-1741-4fb6-841b-\ cd4f4c3f6c4c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846017591012312*^9, 3.846017594163546*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"54f3896d-fc29-4562-b3bd-83138a9a95d3"], Cell[BoxData[""], "Input", CellChangeTimes->{3.846017583868177*^9}, NumberMarks->False,ExpressionUUID->"7b25b87a-bb5b-4552-b86e-a7fdf416fc78"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8460175819528627`*^9, 3.846017581953753*^9}},ExpressionUUID->"f276d2f7-d824-4833-a146-\ 6874e5837562"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016589841724*^9, 3.846016589842585*^9}},ExpressionUUID->"287e5101-50ac-46c8-b1ac-\ 053f0b80193d"], Cell[BoxData[""], "Input", CellChangeTimes->{3.8460165922891817`*^9}, NumberMarks->False,ExpressionUUID->"d7c19fe8-d709-47fe-b14a-69639d1630e7"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016598823448*^9, 3.846016598824512*^9}},ExpressionUUID->"bceac606-4783-4ede-9655-\ 7837c48724fc"], Cell[BoxData[""], "Input", CellChangeTimes->{3.846016595050538*^9}, NumberMarks->False,ExpressionUUID->"74cb7dc2-1f86-4d44-9ced-4e06db03bd46"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016596738965*^9, 3.846016596739897*^9}},ExpressionUUID->"29d503e3-1e16-40fb-8e7a-\ 4d05553df717"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8460165618546247`*^9, 3.846016561859408*^9}},ExpressionUUID->"4ae8f227-ec57-4460-81d9-\ 552986166846"], Cell[BoxData[""], "Input", CellChangeTimes->{3.8460165592080507`*^9}, NumberMarks->False,ExpressionUUID->"e31755ea-4e51-4410-bac1-9b3c866c4aab"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016556085349*^9, 3.8460165560862303`*^9}},ExpressionUUID->"f1902e02-50fa-4a19-b8e7-\ a055bd2f71aa"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{{3.846016496921628*^9, 3.846016539265564*^9}, 3.84601660519853*^9},ExpressionUUID->"c730a72e-1dc2-4b47-9a0e-\ 9174b6670a3b"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8460165360237627`*^9, 3.846016536024789*^9}},ExpressionUUID->"e85e937c-bbb4-4755-ab82-\ b8f8a21ad73c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016470336779*^9, 3.846016475798122*^9}, 3.846016566006571*^9},ExpressionUUID->"af17a3a2-842e-4297-9dd8-\ 04b760428994"], Cell[BoxData[""], "Input", CellChangeTimes->{3.84601652289954*^9, 3.846016567669478*^9},ExpressionUUID->"3c85075c-b71e-4b67-88e1-\ cf3c34c9a315"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.846016569941721*^9, 3.846016569942333*^9}},ExpressionUUID->"65cbec44-ed62-4805-9ecd-\ 6578b08381a0"] }, WindowSize->{808, 730}, WindowMargins->{{81, Automatic}, {1, Automatic}}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \ (2020\:5e743\:670813\:65e5)", StyleDefinitions->"Default.nb", ExpressionUUID->"de844c32-c4ce-4f5e-8397-33a8c6c5d1d1" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[400, 13, 566, 14, 30, "Input",ExpressionUUID->"3bb3da7d-bb03-45e8-97dd-2768c4a330b4"], Cell[969, 29, 747, 19, 52, "Input",ExpressionUUID->"a0a05b1c-092f-45d3-958b-6f6f6db87303"], Cell[CellGroupData[{ Cell[1741, 52, 176, 2, 30, "Input",ExpressionUUID->"71ee1270-ea36-4acc-94db-dc48ffe86013"], Cell[1920, 56, 489, 13, 34, "Output",ExpressionUUID->"fb7a45fd-5502-4a02-95dc-4f9d5769dcf9"] }, Open ]], Cell[2424, 72, 152, 3, 30, InheritFromParent,ExpressionUUID->"140e314c-6402-4e91-b92c-62c44f5ba43d"], Cell[2579, 77, 175, 3, 30, "Input",ExpressionUUID->"11d5dc5f-343c-4251-ab18-015232c9f2d1"], Cell[2757, 82, 151, 3, 30, InheritFromParent,ExpressionUUID->"3227026d-e675-4995-b271-ddbd4ca89536"], Cell[2911, 87, 146, 2, 30, "Input",ExpressionUUID->"3bf5d625-4d78-454e-9335-fbe4dbbc1cd8"], Cell[3060, 91, 154, 3, 30, "Input",ExpressionUUID->"2e6d6539-8fd8-49f3-a149-d4b553202033"], Cell[3217, 96, 146, 2, 30, "Input",ExpressionUUID->"e672dd71-9de7-403a-b3cb-1f7ee65d291e"], Cell[3366, 100, 153, 3, 30, "Input",ExpressionUUID->"36da0a40-43e5-4609-aa01-e0614fe18963"], Cell[3522, 105, 202, 4, 30, "Input",ExpressionUUID->"b8521a2a-4f73-40a5-81a7-c75332efc30b"], Cell[CellGroupData[{ Cell[3749, 113, 276, 5, 44, "Input",ExpressionUUID->"0a340e55-6c1b-4523-b674-8f04383e6aae"], Cell[4028, 120, 340, 8, 34, "Output",ExpressionUUID->"2f9d4827-2466-42ea-b328-aee9496de6a0"] }, Open ]], Cell[4383, 131, 339, 10, 44, "Input",ExpressionUUID->"e7ac0d32-0d9c-4ddb-8805-edf4b70c1947"], Cell[4725, 143, 152, 3, 30, InheritFromParent,ExpressionUUID->"23685e27-4f18-47e1-a3c3-679abdc83add"], Cell[4880, 148, 199, 4, 30, "Input",ExpressionUUID->"4ab18add-3f2d-443d-a319-9babf3d24ef3"], Cell[5082, 154, 151, 3, 30, InheritFromParent,ExpressionUUID->"1cdb2b64-e9c2-4b95-9243-7442ce4ed81c"], Cell[5236, 159, 152, 3, 30, "Input",ExpressionUUID->"84d0fa4f-5020-479c-be32-3b0f78ad0170"], Cell[5391, 164, 152, 3, 30, "Input",ExpressionUUID->"c94e3235-6b09-4229-9717-8d6799594eed"], Cell[5546, 169, 152, 3, 30, "Input",ExpressionUUID->"7e710fd3-19cb-4366-80ff-3b1a7a9941d7"], Cell[CellGroupData[{ Cell[5723, 176, 547, 14, 44, "Input",ExpressionUUID->"8a567ca0-a1ac-4491-98e9-8ea667215fbf"], Cell[6273, 192, 446, 11, 49, "Output",ExpressionUUID->"44f7e200-e300-4b51-9c03-64e24a6923c3"] }, Open ]], Cell[6734, 206, 177, 3, 30, "Input",ExpressionUUID->"e7b62be6-5781-4261-b4a0-bf2eac2671f3"], Cell[6914, 211, 404, 10, 68, "Input",ExpressionUUID->"5953ef85-9e41-4461-bb16-1276935d4ebe"], Cell[CellGroupData[{ Cell[7343, 225, 149, 2, 30, "Input",ExpressionUUID->"1224bd5e-b956-4d8e-b5c7-1e3ddbaea5ae"], Cell[7495, 229, 262, 6, 49, "Output",ExpressionUUID->"c3a93989-16e9-4206-a398-f8505c3f3b6a"] }, Open ]], Cell[7772, 238, 152, 3, 30, InheritFromParent,ExpressionUUID->"7e50d72b-f53b-4c48-9e55-6e2abc929de6"], Cell[7927, 243, 526, 14, 30, "Input",ExpressionUUID->"6ce9a3ec-f3de-4238-8734-7761b1796309"], Cell[CellGroupData[{ Cell[8478, 261, 180, 2, 30, "Input",ExpressionUUID->"77bc76a0-8185-4c37-a3f9-52215cb07821"], Cell[8661, 265, 919, 27, 53, "Output",ExpressionUUID->"1622a0bd-bd7e-4548-81f0-b4a62d41883a"] }, Open ]], Cell[CellGroupData[{ Cell[9617, 297, 906, 27, 63, "Input",ExpressionUUID->"2d9a44e2-4442-4374-9c13-5fe9e5aff212"], Cell[10526, 326, 777, 23, 53, "Output",ExpressionUUID->"e0fa75f0-f8b3-4b1c-be5e-b73a2fcb1278"] }, Open ]], Cell[CellGroupData[{ Cell[11340, 354, 806, 24, 63, "Input",ExpressionUUID->"6718b90f-3369-46c4-be33-de51cb97ca52"], Cell[12149, 380, 752, 18, 53, "Output",ExpressionUUID->"b30fa74f-1d19-499c-a6af-fbf5d52765be"] }, Open ]], Cell[CellGroupData[{ Cell[12938, 403, 904, 27, 63, "Input",ExpressionUUID->"d3d34fad-0fe9-4ba7-89bb-0e5c1427c72a"], Cell[13845, 432, 750, 18, 53, "Output",ExpressionUUID->"f5d3a7f5-3622-4428-bcb8-d0f01c63a1d4"] }, Open ]], Cell[CellGroupData[{ Cell[14632, 455, 778, 19, 63, "Input",ExpressionUUID->"1c07bab7-696d-496c-9e67-32e34fada675"], Cell[15413, 476, 777, 23, 53, "Output",ExpressionUUID->"d2f27eec-b91b-43da-b796-dd841caa28e9"] }, Open ]], Cell[16205, 502, 152, 3, 30, InheritFromParent,ExpressionUUID->"2a99f8c3-5841-44ee-abf9-d8e4892c2fed"], Cell[16360, 507, 176, 3, 30, "Input",ExpressionUUID->"b557bb6c-b890-45db-99bc-c8a4213e5fe5"], Cell[16539, 512, 397, 12, 30, "Input",ExpressionUUID->"71317219-2b8e-4150-afcb-4a026e1387af"], Cell[CellGroupData[{ Cell[16961, 528, 179, 2, 30, "Input",ExpressionUUID->"d0c3ff4c-457c-4e94-91b9-97d565dafc00"], Cell[17143, 532, 593, 16, 50, "Output",ExpressionUUID->"293e1ea4-6448-47bb-837b-0177c38908b3"] }, Open ]], Cell[CellGroupData[{ Cell[17773, 553, 546, 16, 60, "Input",ExpressionUUID->"738d0308-2670-4388-ab5a-dc454ba74e94"], Cell[18322, 571, 546, 16, 50, "Output",ExpressionUUID->"b7eec91b-41ab-48f9-8fba-470eb5dbe77d"] }, Open ]], Cell[CellGroupData[{ Cell[18905, 592, 282, 5, 44, "Input",ExpressionUUID->"f4d2d4eb-d0aa-44e5-b57b-e01491f19701"], Cell[19190, 599, 578, 18, 50, "Output",ExpressionUUID->"457cb7cd-c333-4cd6-9419-c096e68078f8"] }, Open ]], Cell[CellGroupData[{ Cell[19805, 622, 746, 22, 60, "Input",ExpressionUUID->"206a138b-6073-4132-a914-77b794b4fafa"], Cell[20554, 646, 371, 10, 53, "Output",ExpressionUUID->"0cf8a456-fc5a-46fd-8167-1838d9ff50ee"] }, Open ]], Cell[20940, 659, 689, 20, 89, "Input",ExpressionUUID->"0e063310-bff6-4e7d-b4e3-15ea22b5e71c"], Cell[CellGroupData[{ Cell[21654, 683, 227, 4, 44, "Input",ExpressionUUID->"053ff73b-e7ac-4366-b471-7cc21c01eea8"], Cell[21884, 689, 690, 22, 50, "Output",ExpressionUUID->"1573c1c8-5c88-4d90-97b0-397b8f8cc179"] }, Open ]], Cell[CellGroupData[{ Cell[22611, 716, 861, 26, 60, "Input",ExpressionUUID->"4524f4d7-9947-4004-958c-9da2f8f89903"], Cell[23475, 744, 415, 13, 52, "Output",ExpressionUUID->"1d42ca24-16e2-48b6-8009-87b1adf0bae4"] }, Open ]], Cell[CellGroupData[{ Cell[23927, 762, 1568, 46, 90, "Input",ExpressionUUID->"45f7ee41-2cf2-483d-8b8d-878c6f59f0fc"], Cell[25498, 810, 288, 7, 34, "Output",ExpressionUUID->"9886f4c0-283a-4020-88fa-7c1ad7971fb1"] }, Open ]], Cell[25801, 820, 154, 3, 30, InheritFromParent,ExpressionUUID->"336f4d56-a6bc-422b-9495-ccd6a6054767"], Cell[CellGroupData[{ Cell[25980, 827, 144, 2, 30, "Input",ExpressionUUID->"87a1a827-bed7-4822-a01f-939b99022c9f"], Cell[26127, 831, 472, 10, 24, "Message",ExpressionUUID->"8376e536-692e-4de3-8711-361727f9577c"] }, Open ]], Cell[26614, 844, 152, 3, 30, InheritFromParent,ExpressionUUID->"430f37b0-f311-412f-916e-5ea604e9a676"], Cell[26769, 849, 152, 3, 30, InheritFromParent,ExpressionUUID->"36663a8e-1f08-4005-bfbb-24168aa89495"], Cell[26924, 854, 175, 3, 30, "Input",ExpressionUUID->"6029b540-5e83-4eb5-a00e-c296394e6b4d"], Cell[27102, 859, 152, 3, 30, InheritFromParent,ExpressionUUID->"a845c578-fa77-4ce5-83c4-1fa8299d31fa"], Cell[27257, 864, 152, 3, 30, InheritFromParent,ExpressionUUID->"9fad0a65-2ba8-4522-a42f-675fc904a4de"], Cell[27412, 869, 143, 2, 30, "Input",ExpressionUUID->"7ed7b0c2-9f2c-4795-811c-00950b85eb72"], Cell[27558, 873, 150, 3, 30, "Input",ExpressionUUID->"dd5bab20-4fac-490e-9583-f373c25ab454"], Cell[27711, 878, 175, 3, 30, "Input",ExpressionUUID->"62fa6239-3ca5-4af4-8681-8349b2c9d7e0"], Cell[27889, 883, 175, 3, 30, "Input",ExpressionUUID->"ceb83690-d99d-4b41-9f2f-70e3444dc20a"], Cell[28067, 888, 151, 3, 30, InheritFromParent,ExpressionUUID->"2a15f4c7-7258-43ad-9747-f6c651a0e310"], Cell[28221, 893, 249, 4, 30, "Input",ExpressionUUID->"1240cc78-595f-4e00-b456-7365abbe6c6b"], Cell[28473, 899, 180, 4, 30, "Input",ExpressionUUID->"4b85e34a-efda-419f-a449-927507b9e126"], Cell[28656, 905, 152, 3, 30, "Input",ExpressionUUID->"eaa61adc-d59f-43a9-a49e-178d00d07ac6"], Cell[28811, 910, 152, 3, 30, "Input",ExpressionUUID->"95c64216-5fe5-4455-b0b9-61777e2a04a8"], Cell[28966, 915, 152, 3, 30, "Input",ExpressionUUID->"6f95b30f-8e7e-4c3c-9edb-c0c2b4a41f0f"], Cell[29121, 920, 146, 2, 30, "Input",ExpressionUUID->"31f726ef-b11a-43fa-a0bd-78319243b995"], Cell[29270, 924, 152, 3, 30, "Input",ExpressionUUID->"075dda5e-1741-4fb6-841b-cd4f4c3f6c4c"], Cell[29425, 929, 170, 2, 30, "Input",ExpressionUUID->"54f3896d-fc29-4562-b3bd-83138a9a95d3"], Cell[29598, 933, 144, 2, 30, "Input",ExpressionUUID->"7b25b87a-bb5b-4552-b86e-a7fdf416fc78"], Cell[29745, 937, 154, 3, 30, "Input",ExpressionUUID->"f276d2f7-d824-4833-a146-6874e5837562"], Cell[29902, 942, 152, 3, 30, "Input",ExpressionUUID->"287e5101-50ac-46c8-b1ac-053f0b80193d"], Cell[30057, 947, 146, 2, 30, "Input",ExpressionUUID->"d7c19fe8-d709-47fe-b14a-69639d1630e7"], Cell[30206, 951, 152, 3, 30, "Input",ExpressionUUID->"bceac606-4783-4ede-9655-7837c48724fc"], Cell[30361, 956, 144, 2, 30, "Input",ExpressionUUID->"74cb7dc2-1f86-4d44-9ced-4e06db03bd46"], Cell[30508, 960, 152, 3, 30, "Input",ExpressionUUID->"29d503e3-1e16-40fb-8e7a-4d05553df717"], Cell[30663, 965, 154, 3, 30, "Input",ExpressionUUID->"4ae8f227-ec57-4460-81d9-552986166846"], Cell[30820, 970, 146, 2, 30, "Input",ExpressionUUID->"e31755ea-4e51-4410-bac1-9b3c866c4aab"], Cell[30969, 974, 154, 3, 30, "Input",ExpressionUUID->"f1902e02-50fa-4a19-b8e7-a055bd2f71aa"], Cell[31126, 979, 193, 3, 52, "Input",ExpressionUUID->"c730a72e-1dc2-4b47-9a0e-9174b6670a3b"], Cell[31322, 984, 154, 3, 30, "Input",ExpressionUUID->"e85e937c-bbb4-4755-ab82-b8f8a21ad73c"], Cell[31479, 989, 175, 3, 30, "Input",ExpressionUUID->"af17a3a2-842e-4297-9dd8-04b760428994"], Cell[31657, 994, 149, 3, 30, "Input",ExpressionUUID->"3c85075c-b71e-4b67-88e1-cf3c34c9a315"], Cell[31809, 999, 152, 3, 30, "Input",ExpressionUUID->"65cbec44-ed62-4805-9ecd-6578b08381a0"] } ] *)