1154 lines
41 KiB
Mathematica
1154 lines
41 KiB
Mathematica
|
(*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"]
|
||
|
|
}
|
||
|
|
]
|
||
|
|
*)
|
||
|
|
|