3952 lines
141 KiB
Mathematica
3952 lines
141 KiB
Mathematica
|
(* 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[ 144040, 3943]
|
||
|
|
NotebookOptionsPosition[ 124922, 3643]
|
||
|
|
NotebookOutlinePosition[ 125369, 3661]
|
||
|
|
CellTagsIndexPosition[ 125326, 3658]
|
||
|
|
WindowFrame->Normal*)
|
||
|
|
|
||
|
|
(* Beginning of Notebook Content *)
|
||
|
|
Notebook[{
|
||
|
|
Cell["\<\
|
||
|
|
Basic Model
|
||
|
|
\
|
||
|
|
\>", "Text",
|
||
|
|
CellChangeTimes->{{3.846535984490662*^9,
|
||
|
|
3.846535998405435*^9}},ExpressionUUID->"88149d14-1940-4d50-a331-\
|
||
|
|
6c39144cf1e0"],
|
||
|
|
|
||
|
|
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",
|
||
|
|
CellLabel->"In[1]:=",ExpressionUUID->"887c03d9-14ac-4323-8bf0-ee4446f30342"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Profits", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
|
||
|
|
RowBox[{"e",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-",
|
||
|
|
"cs"}]}]], "Input",
|
||
|
|
CellChangeTimes->{3.846536854010676*^9},
|
||
|
|
CellLabel->"In[2]:=",ExpressionUUID->"ab083342-577c-4656-8143-bcce7c721fa6"],
|
||
|
|
|
||
|
|
Cell[TextData[{
|
||
|
|
StyleBox["Optimal e",
|
||
|
|
FontColor->RGBColor[1, 0, 0]],
|
||
|
|
"\n"
|
||
|
|
}], "Text",
|
||
|
|
CellChangeTimes->{{3.846536070383237*^9,
|
||
|
|
3.846536072016327*^9}},ExpressionUUID->"dd3501b9-8a78-4d3b-928f-\
|
||
|
|
35af537957b0"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
|
||
|
|
CellLabel->"In[3]:=",ExpressionUUID->"228017d1-48b8-47d2-9924-01b1a07ca8af"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846536088620317*^9, 3.846536878349188*^9,
|
||
|
|
3.846819435337447*^9},
|
||
|
|
CellLabel->"Out[3]=",ExpressionUUID->"a03b94d0-a46b-4edd-955d-c5aa5e389a50"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}], "\[Equal]",
|
||
|
|
"0"}], ",", "e"}], "]"}]], "Input",
|
||
|
|
CellLabel->"In[4]:=",ExpressionUUID->"2d4552d0-22da-46bf-aea7-a383970087d8"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"e", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}], "\[IndentingNewLine]"}]], \
|
||
|
|
"Input",
|
||
|
|
CellChangeTimes->{{3.846819526181683*^9,
|
||
|
|
3.846819533114544*^9}},ExpressionUUID->"831e5dd9-d497-474b-82cb-\
|
||
|
|
c4885c55c4cc"],
|
||
|
|
|
||
|
|
Cell[TextData[StyleBox["the breakeven of insurance company",
|
||
|
|
FontColor->RGBColor[1, 0, 0]]], "Text",
|
||
|
|
CellChangeTimes->{{3.846819443203999*^9,
|
||
|
|
3.846819457369639*^9}},ExpressionUUID->"e5e4d1f3-0119-4f59-b354-\
|
||
|
|
b0af5732c838"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Profiti", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"r",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.8468194751479893`*^9, 3.846819510230877*^9}},
|
||
|
|
CellLabel->"In[7]:=",ExpressionUUID->"ff6b00cf-9384-44b7-a16a-8c56d5f59c61"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"r", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{{3.846819511825795*^9, 3.846819541110244*^9}},
|
||
|
|
CellLabel->"Out[7]=",ExpressionUUID->"cfb1f1a7-67a0-4df3-ac57-808c21215fa7"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "Profiti", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[8]:=",ExpressionUUID->"07539c5f-ecb8-482e-af64-5658eebf4ddf"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"r", "-", "\[Beta]"}], ")"}]}], "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846819545139987*^9},
|
||
|
|
CellLabel->"Out[8]=",ExpressionUUID->"ba8fa183-e22b-4dca-bbc1-d6ff4f713677"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.84681969255449*^9, 3.846819700022492*^9}},
|
||
|
|
CellLabel->"In[9]:=",ExpressionUUID->"a3a3e9b9-cc91-44b8-8bd3-64137ac46b68"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"r", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846819701188225*^9},
|
||
|
|
CellLabel->"Out[9]=",ExpressionUUID->"ade9b380-f348-4895-b11c-a340762d32cf"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465361560389442`*^9, 3.846536156115282*^9}, {
|
||
|
|
3.846536884095088*^9,
|
||
|
|
3.8465368871763773`*^9}},ExpressionUUID->"846a4207-4fd0-4d9a-accf-\
|
||
|
|
d5c50e7d12c5"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"e", ":=",
|
||
|
|
FormBox[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "p"}],
|
||
|
|
RowBox[{"2", " ", "k"}]],
|
||
|
|
TraditionalForm]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846536250481976*^9, 3.846536256115622*^9}},
|
||
|
|
CellLabel->"In[6]:=",ExpressionUUID->"881eb2d6-614f-4099-a5a1-f31b84754669"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.846536261654269*^9, 3.846536266370331*^9}},
|
||
|
|
CellLabel->"In[6]:=",ExpressionUUID->"0ee46df4-e504-4a46-a4dc-e91a510b8469"],
|
||
|
|
|
||
|
|
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.846536267149044*^9, 3.846536906250978*^9},
|
||
|
|
CellLabel->"Out[6]=",ExpressionUUID->"4e85b555-b12a-4012-bfaf-6622494a4b64"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[TextData[StyleBox["Optimal a",
|
||
|
|
FontColor->RGBColor[1, 0, 0]]], "Text",
|
||
|
|
CellChangeTimes->{{3.846536276563113*^9,
|
||
|
|
3.846536282320259*^9}},ExpressionUUID->"a3e623e6-f214-4458-98a2-\
|
||
|
|
330f95967371"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"Profits", ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846536269792304*^9, 3.8465363371590853`*^9}},
|
||
|
|
CellLabel->"In[10]:=",ExpressionUUID->"b4224e3d-0197-48e1-9090-f9f401994b54"],
|
||
|
|
|
||
|
|
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.846536339455461*^9, 3.846536911468644*^9,
|
||
|
|
3.8465369667577553`*^9},
|
||
|
|
CellLabel->"Out[10]=",ExpressionUUID->"2298773e-6b5c-41e6-943f-d39ae90d0096"]
|
||
|
|
}, 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[11]:=",ExpressionUUID->"26d765e8-f933-4ac9-9535-eeb00c86a2e9"],
|
||
|
|
|
||
|
|
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.846536978725464*^9},
|
||
|
|
CellLabel->"Out[11]=",ExpressionUUID->"bfc15b37-e20a-46a3-90e5-d011af279ea3"]
|
||
|
|
}, 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.8465363788433104`*^9, 3.84653640169312*^9}, {
|
||
|
|
3.846536477424024*^9, 3.846536477843495*^9}, 3.8465370154013977`*^9},
|
||
|
|
CellLabel->"In[12]:=",ExpressionUUID->"e7bfaf5f-7ecf-470b-ac96-8eb1eb3ef0e9"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], "}"}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.84653647995811*^9, 3.846536924683457*^9,
|
||
|
|
3.846536956141035*^9, 3.846537017581379*^9},
|
||
|
|
CellLabel->"Out[12]=",ExpressionUUID->"62c53a08-88b1-4e96-b2f2-2a71218a5b03"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"\[Alpha]", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846536515352498*^9, 3.8465365197332373`*^9}, {
|
||
|
|
3.846537039421904*^9, 3.8465370407367897`*^9}},
|
||
|
|
CellLabel->"In[13]:=",ExpressionUUID->"3bdd4a38-5a16-439a-9c6c-22268bfe9452"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.846536523178487*^9, 3.8465365250569553`*^9}},
|
||
|
|
CellLabel->"In[14]:=",ExpressionUUID->"0faccfc3-ab32-4b45-a024-7c883e1850c1"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846536559394546*^9, 3.846537045131261*^9},
|
||
|
|
CellLabel->"Out[14]=",ExpressionUUID->"8784aa4f-2ff2-4fb8-84b1-afe938cd7ff3"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[15]:=",ExpressionUUID->"70a2f243-ea17-49fe-aa63-c656cf2db25c"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}],
|
||
|
|
RowBox[{"8", " ", "k"}]], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Factor", "[", "%", "]"}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.846537090997854*^9, 3.8465370960111027`*^9}},
|
||
|
|
CellLabel->"In[16]:=",ExpressionUUID->"c5c2c81e-6ca8-46f3-9fbf-a0e5bdf69e07"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}],
|
||
|
|
RowBox[{"8", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846537097018372*^9},
|
||
|
|
CellLabel->"Out[16]=",ExpressionUUID->"944c8c1a-1886-42e4-b72d-b21703778a7e"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}],
|
||
|
|
RowBox[{"8", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846537097025791*^9},
|
||
|
|
CellLabel->"Out[17]=",ExpressionUUID->"9299091e-da05-48ea-b455-2c3700c4f962"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[TextData[StyleBox["Profit",
|
||
|
|
FontColor->RGBColor[1, 0, 0]]], "Text",
|
||
|
|
CellChangeTimes->{{3.846536586435648*^9,
|
||
|
|
3.846536619469329*^9}},ExpressionUUID->"5459e5ed-e607-45b7-9f12-\
|
||
|
|
fbe29c8832ce"],
|
||
|
|
|
||
|
|
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",
|
||
|
|
CellLabel->"In[18]:=",ExpressionUUID->"1618411f-f107-4287-be47-01b4e0073bae"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Profits", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
|
||
|
|
RowBox[{"e",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-",
|
||
|
|
"cs"}]}]], "Input",
|
||
|
|
CellChangeTimes->{3.846536849794606*^9},
|
||
|
|
CellLabel->"In[19]:=",ExpressionUUID->"c25ee6ca-5bfb-4874-b163-7ddd89393129"],
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{"e", ":=",
|
||
|
|
FormBox[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "p"}],
|
||
|
|
RowBox[{"2", " ", "k"}]],
|
||
|
|
TraditionalForm]}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"\[Alpha]", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.8465366429134903`*^9, 3.846536662945819*^9}, {
|
||
|
|
3.8465371242287703`*^9, 3.8465371255216093`*^9}},
|
||
|
|
CellLabel->"In[22]:=",ExpressionUUID->"f0ad7c99-e4e0-4126-9b89-e6e15acdc0d1"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["e"], "Input",
|
||
|
|
CellChangeTimes->{3.846536820661045*^9},
|
||
|
|
CellLabel->"In[24]:=",ExpressionUUID->"06a52d71-746a-4c18-bf65-2e2c6872a240"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+", "\[Theta]"}],
|
||
|
|
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846536821228407*^9, 3.8465371287736073`*^9},
|
||
|
|
CellLabel->"Out[24]=",ExpressionUUID->"8050d35f-926f-43b8-9c7a-3b6f78371118"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[25]:=",ExpressionUUID->"785441a5-f79a-4699-ad61-27f6a2129f6e"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"4", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.8465371386471663`*^9},
|
||
|
|
CellLabel->"Out[25]=",ExpressionUUID->"4d257c15-6bfd-4a14-b851-7b4318f1ec24"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["\[Alpha]"], "Input",
|
||
|
|
CellChangeTimes->{{3.8465368250182667`*^9, 3.846536825550365*^9}},
|
||
|
|
CellLabel->"In[8]:=",ExpressionUUID->"173f7ae0-48a8-4796-98c9-1937ef6155f0"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
GraphicsBox[
|
||
|
|
TagBox[RasterBox[CompressedData["
|
||
|
|
1:eJztnXlsFccZwP1sfODnmyuFVByODRLBjkhamgABHziADYRURImNCJAA4Y+A
|
||
|
|
5DRUVBgVKkHVNAKUQBRHDS1HQiGRkj8COGCgAQkKSgzYQGynhhLOcBUkTsN8
|
||
|
|
3Zk93s759vl6z95dab07M9/M7/vmffPt8Z5nBs5e+NLc6KioqLcTtD8vzfp9
|
||
|
|
Xnn5rMW/TdMS0xa8PX/egjlvTFjwuznz5pT/ZnaMlvmitn+i7d20HSQbEmTY
|
||
|
|
8xBiZbkM44j4tgQ5Ht+dfK4UqXUTtSYBK7I9vmv5Asem/dquW3CSLIMbE2bK
|
||
|
|
47uWL6+NFGXiYkQRkLiadCx5fDfxaT2YIGgbFGx45H1YYg+pKNfb47uZj+hT
|
||
|
|
VVAVFFJVjITsHkAvltvm8d3Al7WJaAn6EJBG8kK7HliHI0eOwKZNm7R9I2za
|
||
|
|
vAk2a8eNJK3tmzcbx43kePfu3Tbni2x0av+1q9egtrYWbhO9Op4fbvvbns/4
|
||
|
|
uWCzSag3ZX2AsrIy8EVFQVSUD6LIkd99xvHy5cttzrcSXIbY/ob6epj9+usw
|
||
|
|
eMgQiPZpupHdB9nZ2bBx40b+PqmN+QIJ9dYZ+TY356qb/SsqC8IJ+DyC0ull
|
||
|
|
ln+NGjXK2kfj40gjrR1Hasfr16+3Od/RpcNgbN26FZKTk61xEBcXB6kpqbYx
|
||
|
|
4oO5c+e2G58u63j7VXx8Ldq//wBs1q5RNd/XwP3790PmS3VB3MCQti3SnR9X
|
||
|
|
erzDn1lO7jChLu3N5wQl/IMHD1r+9eyzz8L27dvhzu3bpKyhoQEK8vOt8h07
|
||
|
|
drQ53ywLl/0yPh6LI0aMgHhtDCb6/dCnTx/SBykpKfDpp5+GyEdUkrt+U0ck
|
||
|
|
ypTaxYqVlU3X/W5YroDQ/nwRUsZfsfLPsGDBW3D/wQOuxZv/uwmPPfYYsWX+
|
||
|
|
/Pmt5jc3N8N3330HjQ2N8Ii5dofLfrb0j8uWkfuMN+e9CSdPnIRHjx6RwosX
|
||
|
|
L0JpaSnpi1WrVjnmI7aQOYpME/aBzCxbjhXvcoYFSjqQL0q3lP/qq69AlPY5
|
||
|
|
jH5uVEh83AepqSmwYcMGqKurgxdemACJiYl6/NTaS0tNg/LycuKLKn5H2v/a
|
||
|
|
jBlEx6+++krKnzlzJol7+L48FD6fh+hzgfOqRqZoM/0uNzfHEGsf/vHjx+HK
|
||
|
|
lStCHRB10nJ+YUEBsWXKlBcF9eRbQWEhiRs5w3IgPj5Of5aK9pF7SftzVX5+
|
||
|
|
nhZTHkr5PIkXEPVDqPZ/+eWXRJ9P/vaJkn/hwnnNnnh4772/yo13xJfIS3UU
|
||
|
|
lNoGEz7T/c5H+rw9+YO1582169ZyfHu11vDv3LkDCQndyefx7rvvyrUT8AsL
|
||
|
|
x1nPJQndu8PqVas139Cf3U+dOgXDnx5uPe9v2fJPIZ/XSlyalZUFa9euhZba
|
||
|
|
/+BBM2nj5ZdfdsTPfeopmGd71lL1P0dF3EnQzWod6QTu1bSRnl6qxzscs0eN
|
||
|
|
HAkjjf052/nM12a2mp+VlW30Nyugrk8n5PzFixfrz7ixsVBf3+DYfnws1OId
|
||
|
|
rvvLxx+HY8eOcaQb129AihH7nnnmGakOwuYZPn7fQ/qhhfa///77RI/jhp7B
|
||
|
|
+MXFk2D8hPFK+9VtUFdwI+KaTqryB1XcBigtK7O9hwhcU6zdp8XC3NxW8wdn
|
||
|
|
2/0O0aWIG32CFuT8fXv3QnR0DLkXq1haIbVVlIfPCgt0vyspKZHy586dQ2Je
|
||
|
|
XHyC7kfQsv7PHoz74QO6NAT7i4tLoFfvXrC7eo+274Y91dVQvXs3VGvp6j3V
|
||
|
|
+l5t7Nr586NHwbRp05T2i/miizcSHfRze54yPOmFZdP198YZGT3I9xVk3xTY
|
||
|
|
8fcXX3/9dav52dlMvHMcO9X2NzU1wS/69SN+8+STQ+HevftCvqrdcSTe+aBk
|
||
|
|
ksjvdLk1a9ZYY/H8+XOsGgHpIP2v98O6YMoJ9cSn/fv3hyR/ovZ5ZUBGegY5
|
||
|
|
pmfoxx49tHMrrwcpx2Nxmfbcq2xXgkV0Enbt2gUVFUv1XRvfFRUVsLQCH5eQ
|
||
|
|
8yUVeh4uu37jhjKWl5WVEr/LyckR95WAr1RW274h+ul8osuSCu15MRWKior0
|
||
|
|
fENfXHbjxnW6dgj8M2fOQP8B/Ykv9OvbF06fbuJkVP5nxpFxxnW2GMc7CX/9
|
||
|
|
39dbfoefedUt6tuu3bss+0279X4YZ9mPP7OlpB9uBLX/1q1b/PtJBb/maA2R
|
||
|
|
/+LzLxxIs/n8Vln5EYzNy4e8vLGQNzYP8rTnrLyx+ZBv5OHnrjxynqc901xQ
|
||
|
|
tkY9zzIyqshv6czdJyD4+ONKi6/v+RAXFwuZT2QG8g0ddf3ENxsq/n/P/gQD
|
||
|
|
Bw4guqdnpENd7YkgteStFRYWkOfZkpJiaY0/LV9OWNHR0dozzG2l/eZWWVlp
|
||
|
|
2U8+K83muLh4yMzMtOzXy8fCxYsXIJj9P/74I9Fh3769jvgLFy4kz7Pnz/Nt
|
||
|
|
05uo/5GwTZl+rOZIJmi0WzZ9uv48m5ML7ckn15cPmOssd3vkjF9fXw8DBug+
|
||
|
|
l5aWBgcPHQrK5wsD7RYUjNOvs5bf8fwJEyaQa9agQYOA3ULp/8D9Ruj2P2i+
|
||
|
|
DzExMbB+/fqg/KtXr5Lr7juLFkmUE/GDWaH6LsVZtpkuNX4XYF1n24mfxdzf
|
||
|
|
0T3sLOJj6uHDR6Bnzx7EB3r37gM1NTWO+DL78XFcof7e7/kxYwW/ewM4pPm1
|
||
|
|
eY2dNWs2tKb/sd+t0+7vWmp/ZuYT8MYbryv52IaJE4uhV69ecOvmTWHbIj45
|
||
|
|
M33RXoN792L7y/my1QBDQ1Re4PuKHFqvNuZnZw/mxrlqE/F37tip3VP7ib49
|
||
|
|
tT79l3a9aWpqgvqGBmiob4SGxgbyXW1DQz2c++knR/bjzXyPgvfRo0eTdynI
|
||
|
|
MGFn1U7Nz3uS67A/MRHOnzvXIvvNRHZ2FhP3nduPM1euWAHdusUQm0X8hw8f
|
||
|
|
wqJF70CMdj/w2WefObLfsTI2oj2Ht58po8r1kzLj9yi5tu/J2oOfRcb5Wo4f
|
||
|
|
OFV3Rm1tHcR266b8vZb1HkjzkaIXiii+zH684fco7PsjHCvwfaOZHxPTDSo/
|
||
|
|
+qjF9lvxLst2nQ3Bfl0OafeWd8k9Bn6G37OnOhC30CM4fOQIjPjVryE1LRWq
|
||
|
|
vqlybD/PN98TMSKGDqxtonbY+lRM1fYZM2Yo3oe2HR/fY+vXRNZ3VT0e4O//
|
||
|
|
9lviT3j32X3PR79zNM/xM6MT+/FWYMS7qVNfgnUfrtPui3pSPozHzIH9+1tl
|
||
|
|
v7l9rD0Tfm/cG4Riv73py5cuW98J9uzVE54ePhySk5PI78Lw79dOnTwl5Qfr
|
||
|
|
f5Fb6mm+nlRxRdcE0gydvTy4gG9eZydPnmzl1Z04AVVV38Cli5fanU8VOrQf
|
||
|
|
38OdOHmS/NZpzeo1cODAAeP34K3k2xhsNSQuZmTt0mJBcXh3H9+Md/r3Fe6z
|
||
|
|
X7mpfBepBIM3bQopf/3ahflmvJs4qVgu1IXtDwjZfBSxzQZpBTGnsv83sHHs
|
||
|
|
fo8gkO8WfoH5PZkW79xoP+LypU0C9STvyKFVG6usu/iFxvu7SfbvyVxkv70B
|
||
|
|
R9GSy7IPGtoWxFQQmScN3V2c/632rLxt2zaoOXY0LHxRc+HgE28WDAERUqSr
|
||
|
|
zP3FXi1uweO7kc/kccEUUQcpCUkTYjHESnl8V/GdljN68mNEMGgMGxzFcY/v
|
||
|
|
Sr7r5l/z+OHlCxyb9mu7bsFJsgxuTJgpj+9avrw2UpSJizvT/GseP7x8d8+/
|
||
|
|
5vEjbf67pKQkfU9OguSkZCudnOTXjskkHx9xmV/L95vyfq3Mr6WT/VZ9qy1D
|
||
|
|
zq+1kZyk18eySYas30z7kzx+J+dHyvx3IobHdyufiXOCjY+nkk1Zn0PyrXt8
|
||
|
|
9/Ftbs5Vj7D51zx+5+dL24nA+dc8flfiIyrJiiLqiESZUgWkYoI47/HdxUds
|
||
|
|
IXMUNS3UQaCrPCeQ9vju5vN5iD4XOC9dO+ggoEuRx/f4alm5hJrVXvPPefzO
|
||
|
|
z+dqIe7EsU7k/49BPf+bqn44+deu6etT3Ll9Jyx8PuEefqAIUWJ6xDWdVKWP
|
||
|
|
Km4HhlZr5p9rSz5Zn2L2bBgyZAhZlyLK2PH/2eP1KR7ZxmVXtD9y+EhwikQH
|
||
|
|
SoXgodrp2Ok4/tZtWyE5Jdn6H2z8f8hpqSnU//Hr61N0Tfsjio+Ydh3oyMkr
|
||
|
|
Yznv++Hgm+tT+Mz1KXZsh9t4fQqtGM8Fkl8gWZ+ijfhSWZf0P58vrmHVQayw
|
||
|
|
rJaTWIyEuR3FX7lyBbz11gJ4QK1PoW94XqPA+hRvtprf/BCvT/E9NDY2krlF
|
||
|
|
RDJu63/OY4O0KR8PzuZ/Q1z7kcl/tfQV4nd4ru9Q+HhtGDzP5oZ/6OtTjB8/
|
||
|
|
HvyJ3a35m1NT06G8/G1obn6g5Ifb/vbnB2ul5fOvsWnE/Y1cvn6t9cGUKZND
|
||
|
|
4pvzAeC51vD8l2ROKc3fUpj1KfLyC/Q1bySNhdv+9uaTM9MX7TW4dy+2v5wv
|
||
|
|
Ww0wNCTVjZKMMP7du3cgQfMZH1mf4i8h8QuN+QCwbyUkxJP1KX6+8jMp/gGv
|
||
|
|
TzF8uHXvuGXLloi0v6P5QmVsRHsOz2fKqHK7PdKKEcNfvPgPxC9iY+PIPLOh
|
||
|
|
8M35PMn6FEePWfLmpq9PkRR8fQrX9D8yPRQ4aemLQLodtj4VU/maQn3Dzd+7
|
||
|
|
bx+ZvxLPRbfEXJ8iBL5svic7H7+fwTExXouH9vutSLC/I/kit2R5UhlpXVGa
|
||
|
|
obPhOcz8pv80QT9jfYqhQ4fC/Xv3Quab19mS4hJBuS60Zs3qwPoUF85HjP0d
|
||
|
|
zmcYIgnVa2pESYsFxXE5cvhnTp8m64Tge7q+fftCk5ZuCV+fd8enz7sj4eM5
|
||
|
|
0rn1KVzZ/3J1uDRSCQZv2hRS/vq1g/lnz56FgYMG6utTpGdAXW0dJ++UT19n
|
||
|
|
xdvyZcvJdTwmOoassRfUiC7Y/5SPIrbZIK0g5pSVpwaNzrH7PYJAfrj49fU/
|
||
|
|
wIAB/ck8xnjtV/v6FC3hk/V4fIbfSfgTxk8kvjkgcxCE2/5w8kVOSrt4QENn
|
||
|
|
Dq3aWGXDxz/878Nk3n58Xezdpze1PkVL+eb7uzFjxgg/tkOHAt/RzZo5i4e1
|
||
|
|
kh98i5z+dxQtuSz7oKFtQUwFkXnS0N1B/B1VO8FPrU+xD5qamqDRWJNCP+r7
|
||
|
|
ObyOhEN+gbHeos++PgWW0JxwZ1WV4edR0D3Jr7cbJvvD3f/EmwVDQIQU6Spz
|
||
|
|
f7FXi1voaH5dbS3ExnYTr0nq81F5+Po7rqjIMd++Loq5BgFZnyI9XV+bgKxP
|
||
|
|
EUPWfQuX/WwL4eEzeVwwRdRBSkLShFgMsVIdx8dzblq+4ROsg2tbr8JaF8Uh
|
||
|
|
31xPe+rUqcb6FD0Mf9N9EK9PsR+vTxFG+82TsPKdljN68mNEMGgMGxzF8S7C
|
||
|
|
t9anmDJFr4MeGetTVMGlS5eoGu3Bp047Qf93+PxnXZRv+t2kkklh4UtAkccX
|
||
|
|
ODbt13bdgpNkGdyYMFNdjF9ovkcpFrw3doH9ofDltZGiTFzM/XpBVE06ljo/
|
||
|
|
v8D4XUCx+f2sy+wPhe/u+dfall9of28cBr5wi2g+ok9VQVVQSFUxErJ7AL1Y
|
||
|
|
bltn5pP1KbZ+DkdrjrrSfud8WZuIlqAPAWkkL7Trwdw1WEeP71Y+4+eCzSah
|
||
|
|
3pT1OSTfusd3H9/m5lx12++YHdCFzSrnvPL4ruNL20HcwJC2zWUyIVoqqOoL
|
||
|
|
j9/F+YhKsqKIOiJRplQBqZggznt8d/ERW8gcRU0LdRDoKs8JpD2+u/l8HqLP
|
||
|
|
Bc5L1w46COhS5PE9vlpWLqFmRfL8ax4/vHyuFuJOHOuEkE6Q/tubpEmP725+
|
||
|
|
oAhRYnrENZ1UpY8qbgeGluqJ3uO7g/9/SPx+Rw==
|
||
|
|
"], {{0, 40.}, {79., 0}}, {0,
|
||
|
|
255},
|
||
|
|
ColorFunction->RGBColor,
|
||
|
|
ImageResolution->144],
|
||
|
|
BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
|
||
|
|
Selectable->False],
|
||
|
|
DefaultBaseStyle->"ImageGraphics",
|
||
|
|
ImageSizeRaw->{79., 40.},
|
||
|
|
PlotRange->{{0, 79.}, {0, 40.}}]], "Output",
|
||
|
|
CellChangeTimes->{3.846536826424662*^9},
|
||
|
|
CellLabel->"Out[8]=",ExpressionUUID->"54730e85-4415-4a95-ac38-f77c53e3e657"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.846536677669713*^9, 3.846536680328548*^9}, {
|
||
|
|
3.84653679276537*^9, 3.846536793844863*^9}, {3.846536834986656*^9,
|
||
|
|
3.846536837042934*^9}},
|
||
|
|
CellLabel->"In[26]:=",ExpressionUUID->"d2f78ded-2cc9-4887-a5df-ba9fb4d0bcdd"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Output",
|
||
|
|
CellChangeTimes->{3.8465368374878483`*^9, 3.84653715920395*^9},
|
||
|
|
CellLabel->"Out[26]=",ExpressionUUID->"a2cb4342-04b4-497e-a28e-0385e3eca082"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[27]:=",ExpressionUUID->"45c33c05-2d3e-4356-bf79-bf4fd92d41f3"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}],
|
||
|
|
RowBox[{"8", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846537161256836*^9},
|
||
|
|
CellLabel->"Out[27]=",ExpressionUUID->"dc565482-8de6-4ab8-a798-19a7db5ad27c"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profitv"], "Input",
|
||
|
|
CellChangeTimes->{{3.846536711457856*^9, 3.846536716871997*^9}, {
|
||
|
|
3.84653677090038*^9, 3.846536773964375*^9}, {3.846537172276259*^9,
|
||
|
|
3.8465371747780447`*^9}},
|
||
|
|
CellLabel->"In[28]:=",ExpressionUUID->"603e60e6-873a-49ac-b6bf-e977b231220c"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cv"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}], ")"}]}], "-",
|
||
|
|
FractionBox[
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], "2"],
|
||
|
|
RowBox[{"4", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "-",
|
||
|
|
RowBox[{"\[Theta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846537175389929*^9},
|
||
|
|
CellLabel->"Out[28]=",ExpressionUUID->"9ddc9a97-9183-47c4-b621-d4435b26e780"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cv"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}], ")"}]}], "-",
|
||
|
|
FractionBox[
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], "2"],
|
||
|
|
RowBox[{"4", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "-",
|
||
|
|
RowBox[{"\[Theta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "-", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[29]:=",ExpressionUUID->"8c720d37-00d3-49e8-9f50-c209f6913949"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"16", " ", "cv", " ", "k"}], "-",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "-",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "+",
|
||
|
|
RowBox[{"16", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}],
|
||
|
|
RowBox[{"16", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846537178003066*^9},
|
||
|
|
CellLabel->"Out[29]=",ExpressionUUID->"586add8d-b790-4523-9234-929f68a2e78a"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[TextData[StyleBox["Insurance Model",
|
||
|
|
FontColor->RGBColor[1, 0, 0]]], "Text",
|
||
|
|
CellChangeTimes->{{3.846537290007017*^9,
|
||
|
|
3.846537293500519*^9}},ExpressionUUID->"f2450ce6-c45a-4100-9829-\
|
||
|
|
cfa830bcbef1"],
|
||
|
|
|
||
|
|
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[{"Profiti", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"r",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-",
|
||
|
|
RowBox[{"\[Beta]",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "e"}], ")"}],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.846537333334669*^9, 3.846537334807583*^9}, {
|
||
|
|
3.846538136843462*^9, 3.8465381622678337`*^9}, {3.846538368410698*^9,
|
||
|
|
3.84653836878587*^9}, {3.8465389446023893`*^9, 3.8465389486866302`*^9}},
|
||
|
|
CellLabel->"In[1]:=",ExpressionUUID->"c8a16a58-c7fb-43f1-a376-ae5062a9e0f3"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Profits", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
|
||
|
|
RowBox[{"e",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-",
|
||
|
|
RowBox[{"r",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-", "cs", "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "e"}], ")"}],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}],
|
||
|
|
"\[IndentingNewLine]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846537354551845*^9, 3.8465373808872633`*^9}, {
|
||
|
|
3.84653813005853*^9, 3.846538135111216*^9}, {3.846538879266057*^9,
|
||
|
|
3.846538888448881*^9}, {3.846538934295512*^9, 3.846538942566218*^9}},
|
||
|
|
CellLabel->"In[3]:=",ExpressionUUID->"eef1b5bf-187e-4c1c-a57b-7c7e416b3670"],
|
||
|
|
|
||
|
|
Cell[TextData[StyleBox["Optimal e",
|
||
|
|
FontColor->RGBColor[1, 0, 0]]], "Text",
|
||
|
|
CellChangeTimes->{{3.846537414368281*^9,
|
||
|
|
3.846537418286862*^9}},ExpressionUUID->"509d11dc-75e8-4cf8-87a9-\
|
||
|
|
136dfe74066e"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846537422647358*^9, 3.8465374309470663`*^9}},
|
||
|
|
CellLabel->"In[4]:=",ExpressionUUID->"0ac5022f-b6b0-4bd1-b30c-193a8946ecfe"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846537431337264*^9, 3.846538054193959*^9,
|
||
|
|
3.8465381809438066`*^9, 3.84653873850259*^9, 3.846538914721953*^9,
|
||
|
|
3.846539535385503*^9},
|
||
|
|
CellLabel->"Out[4]=",ExpressionUUID->"b36fee77-3b42-4d02-8683-a35a29e23731"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.8465374359347887`*^9, 3.84653744319718*^9}},
|
||
|
|
CellLabel->"In[7]:=",ExpressionUUID->"6ac56f85-a1c8-4800-8f8f-51cbff366755"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"e", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846537443570705*^9, 3.846538056955853*^9,
|
||
|
|
3.846538184306095*^9, 3.846538741361114*^9, 3.846538916866088*^9},
|
||
|
|
CellLabel->"Out[7]=",ExpressionUUID->"446cc1b3-88e1-4d24-80fe-10f017c1eb0f"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"e", ":=",
|
||
|
|
FormBox[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "p"}],
|
||
|
|
RowBox[{"2", " ", "k"}]],
|
||
|
|
TraditionalForm]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.8465374598468513`*^9, 3.8465374636027613`*^9},
|
||
|
|
3.846537943458269*^9},
|
||
|
|
CellLabel->"In[1]:=",ExpressionUUID->"e5e0e945-5ae7-4125-955b-fc265b35da5e"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"r", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846819981967142*^9, 3.846819985137355*^9}},
|
||
|
|
CellLabel->"In[2]:=",ExpressionUUID->"41d198ba-ddd7-4d67-91e1-c34fd46e8c66"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Profits", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
|
||
|
|
RowBox[{"e",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-",
|
||
|
|
RowBox[{"r",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-", "cs", "+",
|
||
|
|
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "e"}], ")"}],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}],
|
||
|
|
"\[IndentingNewLine]"}]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846820027740901*^9, 3.846820035270544*^9}},
|
||
|
|
CellLabel->"In[3]:=",ExpressionUUID->"8752f1e9-5383-4f9b-9fcf-c08ebd86e646"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.8468200429780817`*^9, 3.846820046310217*^9}},
|
||
|
|
CellLabel->"In[4]:=",ExpressionUUID->"12999f00-207d-4cf4-9680-699acf42de49"],
|
||
|
|
|
||
|
|
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"}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846820047335149*^9},
|
||
|
|
CellLabel->"Out[4]=",ExpressionUUID->"7bd38fda-abf4-480d-aee0-6c3bcf26d2f0"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
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"}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[5]:=",ExpressionUUID->"49364352-059c-4ee8-9b23-b5a3cf317455"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"%", ",", "p"}], "]"}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.846820722380982*^9, 3.846820733555428*^9}},
|
||
|
|
CellLabel->"In[6]:=",ExpressionUUID->"2ff5a8e9-e1b4-4e15-aba7-b7d4f425d777"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846820734356188*^9},
|
||
|
|
CellLabel->"Out[6]=",ExpressionUUID->"14bd98d0-7511-4c91-b3f9-94e379b4f66f"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846820734389613*^9},
|
||
|
|
CellLabel->"Out[7]=",ExpressionUUID->"bf8c6eab-3487-4218-9e3e-d5b9c96b1911"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846820741458708*^9, 3.846820748082016*^9}},
|
||
|
|
CellLabel->"In[8]:=",ExpressionUUID->"af527bc5-b6f9-499a-bbc5-ab65d59273d8"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"p", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "}"}],
|
||
|
|
"}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.8468207493195543`*^9},
|
||
|
|
CellLabel->"Out[8]=",ExpressionUUID->"8a2d3c84-fbc7-4328-84b2-a8fce3cfdc02"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846820820794923*^9, 3.8468208471260977`*^9}},
|
||
|
|
CellLabel->"In[9]:=",ExpressionUUID->"7c4c9b52-121c-4684-8148-eb58908c27ca"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], " ", "p"}], "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}],
|
||
|
|
")"}]}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.8468208481548986`*^9},
|
||
|
|
CellLabel->"Out[9]=",ExpressionUUID->"1fc1d606-854f-45a2-9568-adc46b80aec3"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846820854711504*^9, 3.846820863165291*^9}},
|
||
|
|
CellLabel->"In[10]:=",ExpressionUUID->"32598e5c-ec9c-4cb0-af64-d07e0b8ac2ee"],
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "-",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "p"}]]}], "}"}], "}"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"p", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.8468209290111933`*^9, 3.84682099268498*^9}, {
|
||
|
|
3.846821051190875*^9, 3.846821087104978*^9}, {3.846821176100851*^9,
|
||
|
|
3.846821195602059*^9}},
|
||
|
|
CellLabel->"In[1]:=",ExpressionUUID->"61b784e9-e487-4f85-bb4a-6af1010e3523"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"e", ":=",
|
||
|
|
FormBox[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "p"}],
|
||
|
|
RowBox[{"2", " ", "k"}]],
|
||
|
|
TraditionalForm]}]], "Input",
|
||
|
|
CellLabel->"In[3]:=",ExpressionUUID->"e30cf5c1-de87-417f-b550-b7446ecc7aa9"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"r", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Input",
|
||
|
|
CellLabel->"In[4]:=",ExpressionUUID->"380f60d1-4c46-4110-8c83-76e417fda899"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{"Profits", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
|
||
|
|
RowBox[{"e",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-",
|
||
|
|
RowBox[{"r",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-", "cs", "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "e"}], ")"}],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}],
|
||
|
|
")"}]}]}]}], "\[IndentingNewLine]", "Profits"}], "Input",
|
||
|
|
CellChangeTimes->{{3.846821265689818*^9, 3.846821271850088*^9}},
|
||
|
|
CellLabel->"In[7]:=",ExpressionUUID->"e47d17de-dc4e-4104-89bf-5a43dad3ef1b"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Alpha]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
|
||
|
|
" ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"\[Theta]", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Alpha]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Alpha]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
|
||
|
|
" ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Alpha]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Theta]", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"\[Alpha]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.8468212724334297`*^9},
|
||
|
|
CellLabel->"Out[8]=",ExpressionUUID->"e915df60-de3d-4c13-958a-5e448c4a8126"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "%8", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[9]:=",ExpressionUUID->"df8e6c64-60f1-4d20-937b-b42c03a872fa"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
")"}]}], "+",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}],
|
||
|
|
RowBox[{"8", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846821274682845*^9},
|
||
|
|
CellLabel->"Out[9]=",ExpressionUUID->"cd6b48d6-11ce-46f2-8919-f6221b953dfe"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
")"}]}], "+",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}],
|
||
|
|
RowBox[{"8", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], ",",
|
||
|
|
"\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.8468212521761417`*^9, 3.846821259012125*^9}, {
|
||
|
|
3.8468212969038773`*^9, 3.846821306240526*^9}},
|
||
|
|
CellLabel->"In[12]:=",ExpressionUUID->"0e041e2e-3bef-4746-a039-6bdf33415661"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"8", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox["F", "2"], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"16", " ", "cs", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k"}], "+", "\[Theta]"}], ")"}]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
")"}]}], "+",
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
")"}]}], "+",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}],
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846821315631693*^9},
|
||
|
|
CellLabel->"Out[12]=",ExpressionUUID->"70536385-f49d-4e3c-87eb-d4b3b71732d1"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "%12", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[13]:=",ExpressionUUID->"a0489245-9c4f-48a6-8e26-ac86582eed4d"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"F", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846821317827537*^9},
|
||
|
|
CellLabel->"Out[13]=",ExpressionUUID->"fa7b1a38-e174-483b-b950-e60fec801913"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846821331436146*^9, 3.846821342610861*^9}},
|
||
|
|
CellLabel->"In[14]:=",ExpressionUUID->"8f55da89-f1a3-4cfc-a9c4-2dc001b691d6"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-", "\[Theta]"}],
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}]]}], "}"}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846821358354609*^9},
|
||
|
|
CellLabel->"Out[14]=",ExpressionUUID->"31cbc0ee-f3b2-433e-ad95-3886151d920b"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"\[Alpha]", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-", "\[Theta]"}],
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}]]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846821405981732*^9, 3.846821408432712*^9}},
|
||
|
|
CellLabel->"In[16]:=",ExpressionUUID->"bf153cf9-a649-4da1-b19e-2f86441930c1"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["p"], "Input",
|
||
|
|
CellChangeTimes->{3.8468213858380423`*^9},
|
||
|
|
CellLabel->"In[17]:=",ExpressionUUID->"4cb7decd-804c-428e-a027-bdc5e227e9cb"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-", "\[Theta]"}], ")"}]}],
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-", "\[Theta]"}], ")"}]}],
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}]], "-", "\[Theta]", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-", "\[Theta]"}], ")"}], " ", "\[Theta]"}],
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}]]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "-", "\[Theta]"}],
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]"}]]}], ")"}],
|
||
|
|
"2"]}]]], "Output",
|
||
|
|
CellChangeTimes->{{3.846821387833836*^9, 3.84682141222103*^9}},
|
||
|
|
CellLabel->"Out[17]=",ExpressionUUID->"b141d355-2ce0-4434-9ea7-26d50b131043"],
|
||
|
|
|
||
|
|
Cell[BoxData["0"], "Output",
|
||
|
|
CellChangeTimes->{3.846821413996945*^9},
|
||
|
|
CellLabel->"Out[18]=",ExpressionUUID->"e57e40a9-10d6-487b-82d9-4ea0b4eee1a6"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8468211629746513`*^9,
|
||
|
|
3.846821162976123*^9}},ExpressionUUID->"bfa5a467-6530-434b-8ff2-\
|
||
|
|
4c1beb7c5f9b"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846821164557199*^9,
|
||
|
|
3.846821164560018*^9}},ExpressionUUID->"f12b5f29-0304-4b61-8e4b-\
|
||
|
|
00db2e314447"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846821103590863*^9,
|
||
|
|
3.846821103592067*^9}},ExpressionUUID->"3b2c1918-37cb-463f-a0f8-\
|
||
|
|
40b2ff729387"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
TemplateBox[{
|
||
|
|
"$RecursionLimit", "reclim2",
|
||
|
|
"\"Recursion depth of \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) exceeded during \
|
||
|
|
evaluation of \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \\\"F\\\"}], \\\"-\\\", \
|
||
|
|
RowBox[{\\\"2\\\", \\\" \\\", \\\"k\\\"}], \\\"+\\\", RowBox[{\\\"2\\\", \\\" \
|
||
|
|
\\\", \\\"p\\\"}], \\\"+\\\", \\\"\[Theta]\\\"}]\\).\"", 2, 6, 5,
|
||
|
|
34222738040910710887, "Local"},
|
||
|
|
"MessageTemplate"]], "Message", "MSG",
|
||
|
|
CellChangeTimes->{3.846821056684923*^9, 3.846821089224597*^9},
|
||
|
|
CellLabel->
|
||
|
|
"\:6b63\:5728\:8ba1\:7b97In[5]:=",ExpressionUUID->"d8d8cbc1-e3f9-4ac1-a8c6-\
|
||
|
|
6508cb53b302"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8468211009633713`*^9,
|
||
|
|
3.846821100964506*^9}},ExpressionUUID->"ad7a7db0-0a5c-4fdf-af98-\
|
||
|
|
6c971f9fb10a"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846821046047433*^9,
|
||
|
|
3.846821046051126*^9}},ExpressionUUID->"54400895-95ce-48d4-8d8e-\
|
||
|
|
a6efddd87d08"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
TemplateBox[{
|
||
|
|
"$RecursionLimit", "reclim2",
|
||
|
|
"\"Recursion depth of \\!\\(\\*RowBox[{\\\"1024\\\"}]\\) exceeded during \
|
||
|
|
evaluation of \\!\\(\\*RowBox[{\\\"F\\\", \\\"-\\\", RowBox[{\\\"F\\\", \\\" \
|
||
|
|
\\\", \\\"\[Alpha]\\\"}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"k\\\", \
|
||
|
|
\\\" \\\", \\\"\[Alpha]\\\"}], \\\"-\\\", \\\"\[Theta]\\\", \\\"+\\\", \
|
||
|
|
RowBox[{\\\"\[Alpha]\\\", \\\" \\\", \\\"\[Theta]\\\"}]}]\\).\"", 2, 2, 1,
|
||
|
|
34222738040910710887, "Local"},
|
||
|
|
"MessageTemplate"]], "Message", "MSG",
|
||
|
|
GeneratedCell->False,
|
||
|
|
CellAutoOverwrite->False,
|
||
|
|
CellChangeTimes->{
|
||
|
|
3.84682099426458*^9, 3.846821031333646*^9, {3.846821095882298*^9,
|
||
|
|
3.84682109719466*^9}},ExpressionUUID->"faa6cc09-7567-4461-98c6-\
|
||
|
|
b84d813d862d"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846821040475936*^9,
|
||
|
|
3.84682104047707*^9}},ExpressionUUID->"15e319c1-c1d3-449d-955c-\
|
||
|
|
9213778695f6"],
|
||
|
|
|
||
|
|
Cell["Optimal \[Alpha]", "Text",
|
||
|
|
CellChangeTimes->{{3.846537591094715*^9, 3.846537595051195*^9}, {
|
||
|
|
3.846537733513912*^9,
|
||
|
|
3.8465377369239817`*^9}},ExpressionUUID->"fb226a9d-c063-4ebe-ab40-\
|
||
|
|
7cc637a4db1a"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.846537740139475*^9, 3.846537746462007*^9}},
|
||
|
|
CellLabel->"In[6]:=",ExpressionUUID->"67adc948-d4c9-4173-96cf-7115dc8dbbdc"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"r", " ",
|
||
|
|
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"}]], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{{3.846537947541877*^9, 3.846537952306979*^9},
|
||
|
|
3.8465380695052843`*^9, 3.846538537471569*^9, 3.8465387630754967`*^9,
|
||
|
|
3.846538992355124*^9, 3.84653919382309*^9, 3.846539570466185*^9},
|
||
|
|
CellLabel->"Out[6]=",ExpressionUUID->"ce726aa0-7f3f-47ee-abeb-edbf931f1115"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"r", " ",
|
||
|
|
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"}]], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[7]:=",ExpressionUUID->"43661970-715e-499f-9774-21eaf3e4bcde"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"r", " ",
|
||
|
|
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"}]], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.84653957528529*^9},
|
||
|
|
CellLabel->"Out[7]=",ExpressionUUID->"ba9f05a0-b224-4df1-ace0-776f0ca803a8"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"Profits", ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.84653775737827*^9, 3.846537762166931*^9}, {
|
||
|
|
3.846538100598855*^9, 3.8465381013901787`*^9}, {3.8465385708485527`*^9,
|
||
|
|
3.846538574945712*^9}},
|
||
|
|
CellLabel->"In[8]:=",ExpressionUUID->"dbbb0ade-e2e3-41cd-acdf-19e55bd2040f"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "p"}], "-",
|
||
|
|
RowBox[{"p", " ", "r"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846538001856124*^9, 3.846538102686171*^9,
|
||
|
|
3.846538576093095*^9, 3.846538770234627*^9, 3.846539026105794*^9,
|
||
|
|
3.84653920720907*^9, 3.846539586558732*^9},
|
||
|
|
CellLabel->"Out[8]=",ExpressionUUID->"69944615-4516-408b-b1cf-57689ba2effc"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "p"}], "-",
|
||
|
|
RowBox[{"p", " ", "r"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[9]:=",ExpressionUUID->"98571ebb-8f05-4b6d-a8a4-93c2f520365f"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "F"}], "+",
|
||
|
|
RowBox[{"2", " ", "p"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "+", "r", "-", "\[Beta]"}], ")"}]}], "+",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Alpha]", " ", "\[Beta]"}], "+",
|
||
|
|
"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846539598595235*^9},
|
||
|
|
CellLabel->"Out[9]=",ExpressionUUID->"fc4ead7d-2d3e-474d-9b50-9daf9ff212a7"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537898993843*^9, 3.846537901031777*^9},
|
||
|
|
3.8465380092050953`*^9},ExpressionUUID->"40fb2d69-18bb-47df-8f68-\
|
||
|
|
b45e5225fc14"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846537772129882*^9, 3.8465377809728537`*^9}, {
|
||
|
|
3.846537908805842*^9, 3.846537909874536*^9}, {3.846538014803108*^9,
|
||
|
|
3.846538018569347*^9}, {3.846538820763879*^9, 3.846538821729541*^9}, {
|
||
|
|
3.846539057670697*^9, 3.846539059125618*^9}},
|
||
|
|
CellLabel->"In[10]:=",ExpressionUUID->"542e113a-a0bf-4939-8754-d6fef3ee6d01"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], "}"}],
|
||
|
|
"}"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"\[Alpha]", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.846539757191717*^9, 3.846539768411496*^9}},
|
||
|
|
CellLabel->"In[2]:=",ExpressionUUID->"7d6b09ee-8b13-442f-9a07-abd389fe6a65"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], "}"}],
|
||
|
|
"}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846539769702654*^9, 3.846541014944241*^9},
|
||
|
|
CellLabel->"Out[2]=",ExpressionUUID->"916de0ac-d611-4b96-a7fe-c3b3e1e95986"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["e"], "Input",
|
||
|
|
CellChangeTimes->{3.84654101760599*^9},
|
||
|
|
CellLabel->"In[4]:=",ExpressionUUID->"35d3cd9a-1f07-4211-9445-5531efa81276"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846541018672386*^9},
|
||
|
|
CellLabel->"Out[4]=",ExpressionUUID->"457410c5-fa4a-4f59-bf41-cb4d46d45b3c"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[5]:=",ExpressionUUID->"e8f3f0fc-9276-42e8-bf60-178b595d7bb9"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"4", " ", "k"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Beta]"}]}]]], "Output",
|
||
|
|
CellChangeTimes->{3.84654102138407*^9},
|
||
|
|
CellLabel->"Out[5]=",ExpressionUUID->"89bd7267-3fc1-4c3b-b613-36f51566d49f"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profitv"], "Input",
|
||
|
|
CellChangeTimes->{{3.846538626525086*^9, 3.846538629953847*^9}},
|
||
|
|
CellLabel->"In[16]:=",ExpressionUUID->"15f0e205-3190-4dfd-a7ee-17d191ec0e93"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cv"}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], "2"],
|
||
|
|
RowBox[{"4", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "-",
|
||
|
|
RowBox[{"\[Theta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.8465397839372263`*^9},
|
||
|
|
CellLabel->"Out[16]=",ExpressionUUID->"0e65a47a-032b-445b-a375-68bd5390af2c"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "%16", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[17]:=",ExpressionUUID->"8c247d85-4c80-40c4-bfb7-57800ab69f41"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"16", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], "2"]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "+",
|
||
|
|
RowBox[{"16", " ", "k", " ", "p"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "r"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["r", "2"]}], "-",
|
||
|
|
RowBox[{"16", " ", "cv", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"24", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"28", " ", "k", " ", "p", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "r", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "r", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ", "r", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["cs", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"12", " ", "k", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["p", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "r", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"8", " ", "k", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "r", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
||
|
|
RowBox[{"2", " ", "\[Beta]", " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "r", "+", "\[Beta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846539786698444*^9},
|
||
|
|
CellLabel->"Out[17]=",ExpressionUUID->"6faec2a3-61a9-4593-9872-991ef8b9f458"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.846539892595077*^9, 3.846539896779059*^9}},
|
||
|
|
CellLabel->"In[18]:=",ExpressionUUID->"88987b19-7aed-4abe-84a8-c903b81da816"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]], "-",
|
||
|
|
RowBox[{"r", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}]}], "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "r"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}]}]}],
|
||
|
|
")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846539897674659*^9},
|
||
|
|
CellLabel->"Out[18]=",ExpressionUUID->"c88cf312-ad1a-45b9-80c4-36d91c8a75a9"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "%18", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[19]:=",ExpressionUUID->"01a35251-5333-4fe6-9de6-acdf4332d47b"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"8", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "r"}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p", " ", "r"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["r", "2"]}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "+", "r", "-", "\[Beta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], "+", "\[Beta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"12", " ", "k", " ", "p", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "r", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ", "r", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["cs", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["p", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "r", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"8", " ", "k", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "r", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
||
|
|
RowBox[{"2", " ", "\[Beta]", " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
")"}]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "+", "r", "-", "\[Beta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}]}],
|
||
|
|
")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846539900729933*^9},
|
||
|
|
CellLabel->"Out[19]=",ExpressionUUID->"9bf071b0-2d0f-4a8f-ba8b-d6c47779ee7d"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465399314913187`*^9,
|
||
|
|
3.8465399345830584`*^9}},ExpressionUUID->"aac10ff4-494b-4f69-a88c-\
|
||
|
|
12f8d5f262bf"],
|
||
|
|
|
||
|
|
Cell[TextData[{
|
||
|
|
StyleBox["Block chain",
|
||
|
|
FontColor->RGBColor[1, 0, 0]],
|
||
|
|
"\n"
|
||
|
|
}], "Text",
|
||
|
|
CellChangeTimes->{{3.846539941372456*^9, 3.84653995560294*^9}, {
|
||
|
|
3.846540323901919*^9,
|
||
|
|
3.84654033007788*^9}},ExpressionUUID->"69e9e9de-8e02-47c2-a5ce-\
|
||
|
|
5d944dfad278"],
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{"Profitv", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+",
|
||
|
|
RowBox[{"eb", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}], "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "eb"}], ")"}], "\[Theta]"}], "-",
|
||
|
|
RowBox[{"k", "*",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"eb", "*", "eb"}], ")"}]}], "-", "cv", "-",
|
||
|
|
"cb"}]}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Profits", ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "\[Alpha]"}], " ", "p"}], "+",
|
||
|
|
RowBox[{"eb",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p"}]}], ")"}]}], "-",
|
||
|
|
RowBox[{"rb",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}], "-", "cs", "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "eb"}], ")"}],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Alpha]", " ", "p"}], "+", "cs"}], ")"}]}]}]}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.846537333334669*^9, 3.846537334807583*^9}, {
|
||
|
|
3.846538136843462*^9, 3.8465381622678337`*^9}, {3.846538368410698*^9,
|
||
|
|
3.84653836878587*^9}, {3.8465389446023893`*^9, 3.8465389486866302`*^9}, {
|
||
|
|
3.8465403417247133`*^9, 3.846540394312958*^9}, {3.846540441582058*^9,
|
||
|
|
3.8465404480810003`*^9}, 3.846540607918838*^9},
|
||
|
|
CellLabel->"In[11]:=",ExpressionUUID->"d9ae15e1-ff39-477b-9ce2-3aee469cc4a0"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"Profitv", ",", "eb"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.84654045342173*^9, 3.8465404680263433`*^9}},
|
||
|
|
CellLabel->"In[5]:=",ExpressionUUID->"f72a4df8-5f7d-48f7-8799-55a34ab5c9d2"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], " ", "eb", " ", "k"}], "+",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
|
||
|
|
CellChangeTimes->{3.8465404686537952`*^9, 3.846540515931375*^9},
|
||
|
|
CellLabel->"Out[5]=",ExpressionUUID->"b2714824-2897-4c2c-a326-4824af714e2b"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "eb"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.8465404875614367`*^9, 3.8465405251872997`*^9}},
|
||
|
|
CellLabel->"In[6]:=",ExpressionUUID->"c18801f2-092d-4252-9553-961991a8a31d"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"eb", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540525624682*^9},
|
||
|
|
CellLabel->"Out[6]=",ExpressionUUID->"487f9ac8-e055-46ea-841d-f6ab654fe791"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"eb", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846540551898*^9, 3.846540567089303*^9}},
|
||
|
|
CellLabel->"In[7]:=",ExpressionUUID->"478b7236-7dea-4f3c-9903-9b58f47b4415"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.846540569319394*^9, 3.846540572511381*^9}},
|
||
|
|
CellLabel->"In[13]:=",ExpressionUUID->"b843ec60-40e7-4d78-94d5-b8724ee2eaec"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
||
|
|
RowBox[{"rb", " ",
|
||
|
|
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"}]], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540573118333*^9, 3.846540619689108*^9},
|
||
|
|
CellLabel->"Out[13]=",ExpressionUUID->"3c01d21a-1086-4919-92de-31802d728c64"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"D", "[",
|
||
|
|
RowBox[{"%", ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.84654057500454*^9, 3.8465405789985237`*^9}},
|
||
|
|
CellLabel->"In[14]:=",ExpressionUUID->"98974420-f478-46b4-b3f7-6e7f907cb497"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "p"}], "-",
|
||
|
|
RowBox[{"p", " ", "rb"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "-",
|
||
|
|
RowBox[{"p", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540579991098*^9, 3.8465406230279913`*^9},
|
||
|
|
CellLabel->"Out[14]=",ExpressionUUID->"08328fd9-917a-4b0c-a079-570e5e6771c8"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Solve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846540582725955*^9, 3.846540590078484*^9}},
|
||
|
|
CellLabel->"In[15]:=",ExpressionUUID->"184146d0-998a-4d29-969b-2038a46003c9"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], "}"}],
|
||
|
|
"}"}]], "Output",
|
||
|
|
CellChangeTimes->{3.8465405908442307`*^9, 3.846540625306553*^9},
|
||
|
|
CellLabel->"Out[15]=",ExpressionUUID->"a4815e69-91e2-4908-a4eb-5b8ce4ba25fa"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"\[Alpha]", ":=",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}]], "Input",
|
||
|
|
CellChangeTimes->{{3.846540845132092*^9, 3.846540853991012*^9}},
|
||
|
|
CellLabel->"In[16]:=",ExpressionUUID->"a809f847-b1fa-429d-b1c1-320339198442"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["eb"], "Input",
|
||
|
|
CellChangeTimes->{{3.846540856052163*^9, 3.846540864277875*^9}},
|
||
|
|
CellLabel->"In[18]:=",ExpressionUUID->"417bae3a-3646-457c-b957-3420e1e0ff61"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
||
|
|
CellChangeTimes->{{3.846540856423229*^9, 3.846540864707534*^9}},
|
||
|
|
CellLabel->"Out[18]=",ExpressionUUID->"d8a6228e-ffef-455d-b091-1cfb714c8742"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[19]:=",ExpressionUUID->"4f6deceb-f4c6-4b17-9c1c-5d5854cfdce5"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"4", " ", "k"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Beta]"}]}]]], "Output",
|
||
|
|
CellChangeTimes->{3.846540868138627*^9},
|
||
|
|
CellLabel->"Out[19]=",ExpressionUUID->"87dc6853-72d5-489b-b803-e2c6f3282f2a"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profitv"], "Input",
|
||
|
|
CellChangeTimes->{{3.846540924464014*^9, 3.846540926487893*^9}},
|
||
|
|
CellLabel->"In[20]:=",ExpressionUUID->"31afcdd2-9838-4cf4-be55-292e539753f9"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cb"}], "-", "cv", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]], "-",
|
||
|
|
FractionBox[
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], "2"],
|
||
|
|
RowBox[{"4", " ", "k"}]], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]], "-",
|
||
|
|
RowBox[{"\[Theta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540928938903*^9},
|
||
|
|
CellLabel->"Out[20]=",ExpressionUUID->"35208df4-d733-4d49-a8c6-1b12b60f0f59"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Factor", "[", "%20", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[21]:=",ExpressionUUID->"baad2ded-24e1-4c11-a0ae-804dfe3aeb20"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"16", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], "2"]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-",
|
||
|
|
SuperscriptBox["F", "2"]}], "+",
|
||
|
|
RowBox[{"16", " ", "cb", " ", "k"}], "+",
|
||
|
|
RowBox[{"16", " ", "cv", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "+",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"16", " ", "k", " ", "p"}], "-",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k", " ", "rb"}], "+",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb"}], "-",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["rb", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "F", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"32", " ", "cb", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"32", " ", "cv", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"24", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"28", " ", "k", " ", "p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "rb", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ", "rb", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["cs", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"16", " ", "cb", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"16", " ", "cv", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"12", " ", "k", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["p", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "cs", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "-",
|
||
|
|
SuperscriptBox["\[Theta]", "2"], "+",
|
||
|
|
RowBox[{"2", " ", "\[Beta]", " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540931594551*^9},
|
||
|
|
CellLabel->"Out[21]=",ExpressionUUID->"76ca95f6-19bf-441f-92d6-630553d5ea53"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "%21", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[22]:=",ExpressionUUID->"6dfbe981-d39b-4e7a-934b-c6b0e165865b"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"16", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], "2"]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"16", " ", "cv", " ", "k"}], "-",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "+",
|
||
|
|
RowBox[{"16", " ", "k", " ", "p"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["rb", "2"]}], "-",
|
||
|
|
RowBox[{"16", " ", "cb", " ", "k", " ",
|
||
|
|
SuperscriptBox[
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], "2"]}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"32", " ", "cv", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"24", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"28", " ", "k", " ", "p", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["cs", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"16", " ", "cv", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"12", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"12", " ", "k", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["p", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"8", " ", "k", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
|
||
|
|
RowBox[{"2", " ", "cs", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
||
|
|
RowBox[{"2", " ", "\[Beta]", " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "rb", "+", "\[Beta]"}], ")"}]}], "+",
|
||
|
|
"\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.8465409338576927`*^9},
|
||
|
|
CellLabel->"Out[22]=",ExpressionUUID->"72fab97c-3c3b-476f-8bdf-5fea6866d597"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData["Profits"], "Input",
|
||
|
|
CellChangeTimes->{{3.8465409503012037`*^9, 3.846540954291366*^9}},
|
||
|
|
CellLabel->"In[23]:=",ExpressionUUID->"d9399de1-a9fc-4afe-b077-85f9c7e0de97"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "cs"}], "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]], "-",
|
||
|
|
RowBox[{"rb", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}]}], "+",
|
||
|
|
RowBox[{"\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"cs", "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}], "+",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"p", "+", "\[Theta]", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"F", "-",
|
||
|
|
RowBox[{"p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
FractionBox[
|
||
|
|
RowBox[{"F", "+",
|
||
|
|
RowBox[{"2", " ", "k"}], "-",
|
||
|
|
RowBox[{"2", " ", "p"}], "+",
|
||
|
|
RowBox[{"2", " ", "k", " ", "rb"}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "k", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "-", "\[Theta]", "+",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}],
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]]}], ")"}]}]}],
|
||
|
|
")"}]}],
|
||
|
|
RowBox[{"2", " ", "k"}]]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540954956749*^9},
|
||
|
|
CellLabel->"Out[23]=",ExpressionUUID->"ccd162c2-787e-4b20-af23-8d05d6f61663"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Simplify", "[", "%23", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[24]:=",ExpressionUUID->"15627d1a-9d0b-42bd-b404-68f2cba9096b"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"8", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "+",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb"}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p", " ", "rb"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["rb", "2"]}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "+", "rb", "-", "\[Beta]"}], ")"}], " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "2"}], "+", "\[Beta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"12", " ", "k", " ", "p", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["cs", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["p", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"8", " ", "k", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
||
|
|
RowBox[{"2", " ", "\[Beta]", " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], " ", "\[Theta]"}]}],
|
||
|
|
")"}]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"1", "+", "rb", "-", "\[Beta]"}], ")"}]}], "-",
|
||
|
|
RowBox[{"cs", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"p", " ", "\[Beta]"}], "+", "\[Theta]", "-",
|
||
|
|
RowBox[{"\[Beta]", " ", "\[Theta]"}]}], ")"}]}]}],
|
||
|
|
")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.846540957972886*^9},
|
||
|
|
CellLabel->"Out[24]=",ExpressionUUID->"181f0613-1299-4588-8d79-4b1fa68c4f81"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Factor", "[", "%24", "]"}]], "Input",
|
||
|
|
NumberMarks->False,
|
||
|
|
CellLabel->"In[25]:=",ExpressionUUID->"83445ccb-1857-4630-b4b3-904b9e442c4a"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{
|
||
|
|
FractionBox["1",
|
||
|
|
RowBox[{"8", " ", "k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}]}]],
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["F", "2"], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"]}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p"}], "-",
|
||
|
|
RowBox[{"8", " ", "cs", " ", "k", " ", "rb"}], "+",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k", " ", "rb"}], "+",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb"}], "-",
|
||
|
|
RowBox[{"8", " ", "k", " ", "p", " ", "rb"}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["rb", "2"]}], "-",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "F", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"12", " ", "cs", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "F", " ", "k", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "F", " ", "p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"12", " ", "k", " ", "p", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ", "rb", " ", "\[Beta]"}], "-",
|
||
|
|
RowBox[{"8", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ", "rb", " ", "\[Beta]"}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["cs", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "cs", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"4", " ",
|
||
|
|
SuperscriptBox["k", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["p", "2"], " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"]}], "+",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "cs", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "F", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"8", " ", "k", " ", "\[Beta]", " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"2", " ", "p", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"4", " ", "k", " ", "rb", " ", "\[Beta]", " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "cs", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "-",
|
||
|
|
RowBox[{"4", " ", "k", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
RowBox[{"2", " ", "p", " ",
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ", "\[Theta]"}], "+",
|
||
|
|
SuperscriptBox["\[Theta]", "2"], "-",
|
||
|
|
RowBox[{"2", " ", "\[Beta]", " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
||
|
|
RowBox[{
|
||
|
|
SuperscriptBox["\[Beta]", "2"], " ",
|
||
|
|
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}]], "Output",
|
||
|
|
CellChangeTimes->{3.84654096084236*^9},
|
||
|
|
CellLabel->"Out[25]=",ExpressionUUID->"3017bb3d-3c34-4b6a-a2c2-7b62ae626df0"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537602514443*^9, 3.846537634215119*^9},
|
||
|
|
3.846537716440543*^9},ExpressionUUID->"05effea5-100d-4148-b5a1-\
|
||
|
|
85a03ad5c4eb"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537610306696*^9, 3.8465376162218447`*^9},
|
||
|
|
3.8465377070807047`*^9},ExpressionUUID->"42323150-3c57-4b59-836a-\
|
||
|
|
db2b3dfb0574"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537705882586*^9,
|
||
|
|
3.846537705883918*^9}},ExpressionUUID->"b2a2ab7a-3c23-4e5c-b42e-\
|
||
|
|
44650f6a6bbe"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{3.8465377028851433`*^9},
|
||
|
|
NumberMarks->False,ExpressionUUID->"45b32136-6fbc-48f0-b4be-7ee0110d141f"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465377013268538`*^9,
|
||
|
|
3.846537701328177*^9}},ExpressionUUID->"e5ee6322-008c-4b17-950d-\
|
||
|
|
6a58a9d20750"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{3.846537699452113*^9},
|
||
|
|
NumberMarks->False,ExpressionUUID->"cfacc1d4-a0d2-4244-a1f4-596cc0e1aa84"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465376973120403`*^9,
|
||
|
|
3.8465376973126583`*^9}},ExpressionUUID->"b6a5f2d1-009f-466e-b765-\
|
||
|
|
a5f5d06e093d"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537470408169*^9, 3.846537481057173*^9}, {
|
||
|
|
3.846537582592525*^9,
|
||
|
|
3.8465375856075277`*^9}},ExpressionUUID->"2633dd0d-a2b9-4126-9995-\
|
||
|
|
8cdd875a6ed3"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465375625505447`*^9,
|
||
|
|
3.846537562552252*^9}},ExpressionUUID->"325ae6f6-5799-45cc-be55-\
|
||
|
|
d15820da6496"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{3.846537560167521*^9},
|
||
|
|
NumberMarks->False,ExpressionUUID->"5d031c5d-28f6-477e-bd2d-953238cbaae7"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537557664792*^9,
|
||
|
|
3.846537557666696*^9}},ExpressionUUID->"0d0cbf8b-83fe-415f-a8a4-\
|
||
|
|
b30ef80afd6b"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537521769968*^9,
|
||
|
|
3.846537551613035*^9}},ExpressionUUID->"00b89c89-addf-4c4a-9cca-\
|
||
|
|
e30e38e1845f"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846537549744602*^9,
|
||
|
|
3.846537549819791*^9}},ExpressionUUID->"b7f70344-8ff0-4852-a989-\
|
||
|
|
fe84ad6e5809"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465375301473827`*^9,
|
||
|
|
3.846537564263575*^9}},ExpressionUUID->"b69c871e-9164-44ac-b5b1-\
|
||
|
|
b30737776c15"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465375653326597`*^9,
|
||
|
|
3.8465375653332977`*^9}},ExpressionUUID->"684a35de-dc39-4dc2-b65a-\
|
||
|
|
26ff98428f3f"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.84653740557331*^9,
|
||
|
|
3.846537407847415*^9}},ExpressionUUID->"18b26366-03ea-493c-a4a5-\
|
||
|
|
d0865f2757b2"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846536778602003*^9,
|
||
|
|
3.84653677948416*^9}},ExpressionUUID->"8a047095-20af-440b-9362-\
|
||
|
|
ab96e7e7100b"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{3.8465367829594507`*^9},
|
||
|
|
NumberMarks->False,ExpressionUUID->"b6df1546-eb94-42b9-8775-47862afb223d"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846536785056573*^9,
|
||
|
|
3.8465367850581284`*^9}},ExpressionUUID->"4d90c295-3325-4362-a00e-\
|
||
|
|
0e0e12653c6e"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.846536682886218*^9, 3.846536685270018*^9}, {
|
||
|
|
3.846536790497167*^9,
|
||
|
|
3.846536792123879*^9}},ExpressionUUID->"801ac8ab-e90c-4a87-b228-\
|
||
|
|
84367b720ffd"],
|
||
|
|
|
||
|
|
Cell[BoxData[""], "Input",
|
||
|
|
CellChangeTimes->{{3.8465367873160553`*^9,
|
||
|
|
3.846536789316128*^9}},ExpressionUUID->"f2f33b89-2e98-446d-a21f-\
|
||
|
|
e7f5274c1792"]
|
||
|
|
},
|
||
|
|
WindowSize->{665, 182},
|
||
|
|
WindowMargins->{{Automatic, 199}, {1, Automatic}},
|
||
|
|
TaggingRules->{"TryRealOnly" -> False},
|
||
|
|
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
|
||
|
|
(2020\:5e743\:670813\:65e5)",
|
||
|
|
StyleDefinitions->"Default.nb",
|
||
|
|
ExpressionUUID->"1a2dfd49-2f82-43a7-9354-3bc71a976bd9"
|
||
|
|
]
|
||
|
|
(* End of Notebook Content *)
|
||
|
|
|
||
|
|
(* Internal cache information *)
|
||
|
|
(*CellTagsOutline
|
||
|
|
CellTagsIndex->{}
|
||
|
|
*)
|
||
|
|
(*CellTagsIndex
|
||
|
|
CellTagsIndex->{}
|
||
|
|
*)
|
||
|
|
(*NotebookFileOutline
|
||
|
|
Notebook[{
|
||
|
|
Cell[558, 20, 162, 6, 58, "Text",ExpressionUUID->"88149d14-1940-4d50-a331-6c39144cf1e0"],
|
||
|
|
Cell[723, 28, 458, 13, 30, "Input",ExpressionUUID->"887c03d9-14ac-4323-8bf0-ee4446f30342"],
|
||
|
|
Cell[1184, 43, 421, 13, 30, "Input",ExpressionUUID->"ab083342-577c-4656-8143-bcce7c721fa6"],
|
||
|
|
Cell[1608, 58, 215, 7, 58, "Text",ExpressionUUID->"dd3501b9-8a78-4d3b-928f-35af537957b0"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[1848, 69, 161, 3, 44, "Input",ExpressionUUID->"228017d1-48b8-47d2-9924-01b1a07ca8af"],
|
||
|
|
Cell[2012, 74, 365, 9, 34, "Output",ExpressionUUID->"a03b94d0-a46b-4edd-955d-c5aa5e389a50"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[2392, 86, 383, 11, 44, "Input",ExpressionUUID->"2d4552d0-22da-46bf-aea7-a383970087d8"],
|
||
|
|
Cell[2778, 99, 398, 12, 68, InheritFromParent,ExpressionUUID->"831e5dd9-d497-474b-82cb-c4885c55c4cc"],
|
||
|
|
Cell[3179, 113, 227, 4, 35, "Text",ExpressionUUID->"e5e4d1f3-0119-4f59-b354-b0af5732c838"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[3431, 121, 496, 14, 30, "Input",ExpressionUUID->"ff6b00cf-9384-44b7-a16a-8c56d5f59c61"],
|
||
|
|
Cell[3930, 137, 601, 17, 49, "Output",ExpressionUUID->"cfb1f1a7-67a0-4df3-ac57-808c21215fa7"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[4568, 159, 166, 3, 44, "Input",ExpressionUUID->"07539c5f-ecb8-482e-af64-5658eebf4ddf"],
|
||
|
|
Cell[4737, 164, 583, 17, 51, "Output",ExpressionUUID->"ba8fa183-e22b-4dca-bbc1-d6ff4f713677"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[5357, 186, 255, 5, 44, "Input",ExpressionUUID->"a3a3e9b9-cc91-44b8-8bd3-64137ac46b68"],
|
||
|
|
Cell[5615, 193, 484, 12, 51, "Output",ExpressionUUID->"ade9b380-f348-4895-b11c-a340762d32cf"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[6114, 208, 205, 4, 30, InheritFromParent,ExpressionUUID->"846a4207-4fd0-4d9a-accf-d5c50e7d12c5"],
|
||
|
|
Cell[6322, 214, 348, 9, 46, "Input",ExpressionUUID->"881eb2d6-614f-4099-a5a1-f31b84754669"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[6695, 227, 177, 2, 30, "Input",ExpressionUUID->"0ee46df4-e504-4a46-a4dc-e91a510b8469"],
|
||
|
|
Cell[6875, 231, 564, 16, 50, "Output",ExpressionUUID->"4e85b555-b12a-4012-bfaf-6622494a4b64"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[7454, 250, 202, 4, 35, "Text",ExpressionUUID->"a3e623e6-f214-4458-98a2-330f95967371"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[7681, 258, 237, 4, 44, "Input",ExpressionUUID->"b4224e3d-0197-48e1-9090-f9f401994b54"],
|
||
|
|
Cell[7921, 264, 630, 19, 50, "Output",ExpressionUUID->"2298773e-6b5c-41e6-943f-d39ae90d0096"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[8588, 288, 609, 19, 60, "Input",ExpressionUUID->"26d765e8-f933-4ac9-9535-eeb00c86a2e9"],
|
||
|
|
Cell[9200, 309, 421, 11, 51, "Output",ExpressionUUID->"bfc15b37-e20a-46a3-90e5-d011af279ea3"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[9658, 325, 641, 16, 61, "Input",ExpressionUUID->"e7bfaf5f-7ecf-470b-ac96-8eb1eb3ef0e9"],
|
||
|
|
Cell[10302, 343, 477, 12, 54, "Output",ExpressionUUID->"62c53a08-88b1-4e96-b2f2-2a71218a5b03"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[10794, 358, 421, 10, 51, "Input",ExpressionUUID->"3bdd4a38-5a16-439a-9c6c-22268bfe9452"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[11240, 372, 180, 2, 30, "Input",ExpressionUUID->"0faccfc3-ab32-4b45-a024-7c883e1850c1"],
|
||
|
|
Cell[11423, 376, 1079, 33, 61, "Output",ExpressionUUID->"8784aa4f-2ff2-4fb8-84b1-afe938cd7ff3"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[12517, 412, 1100, 34, 70, "Input",ExpressionUUID->"70a2f243-ea17-49fe-aa63-c656cf2db25c"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[13642, 450, 654, 15, 87, InheritFromParent,ExpressionUUID->"c5c2c81e-6ca8-46f3-9fbf-a0e5bdf69e07"],
|
||
|
|
Cell[14299, 467, 567, 14, 54, "Output",ExpressionUUID->"944c8c1a-1886-42e4-b72d-b21703778a7e"],
|
||
|
|
Cell[14869, 483, 567, 14, 54, "Output",ExpressionUUID->"9299091e-da05-48ea-b455-2c3700c4f962"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[15451, 500, 199, 4, 35, "Text",ExpressionUUID->"5459e5ed-e607-45b7-9f12-fbe29c8832ce"],
|
||
|
|
Cell[15653, 506, 459, 13, 30, "Input",ExpressionUUID->"1618411f-f107-4287-be47-01b4e0073bae"],
|
||
|
|
Cell[16115, 521, 422, 13, 30, "Input",ExpressionUUID->"c25ee6ca-5bfb-4874-b163-7ddd89393129"],
|
||
|
|
Cell[16540, 536, 630, 17, 89, "Input",ExpressionUUID->"f0ad7c99-e4e0-4126-9b89-e6e15acdc0d1"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[17195, 557, 148, 2, 30, "Input",ExpressionUUID->"06a52d71-746a-4c18-bf65-2e2c6872a240"],
|
||
|
|
Cell[17346, 561, 438, 12, 57, "Output",ExpressionUUID->"8050d35f-926f-43b8-9c7a-3b6f78371118"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[17821, 578, 432, 12, 67, "Input",ExpressionUUID->"785441a5-f79a-4699-ad61-27f6a2129f6e"],
|
||
|
|
Cell[18256, 592, 258, 6, 51, "Output",ExpressionUUID->"4d257c15-6bfd-4a14-b851-7b4318f1ec24"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[18551, 603, 180, 2, 30, "Input",ExpressionUUID->"173f7ae0-48a8-4796-98c9-1937ef6155f0"],
|
||
|
|
Cell[18734, 607, 6329, 109, 57, "Output",ExpressionUUID->"54730e85-4415-4a95-ac38-f77c53e3e657"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[25100, 721, 275, 4, 30, "Input",ExpressionUUID->"d2f78ded-2cc9-4887-a5df-ba9fb4d0bcdd"],
|
||
|
|
Cell[25378, 727, 1080, 33, 61, "Output",ExpressionUUID->"a2cb4342-04b4-497e-a28e-0385e3eca082"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[26495, 765, 1100, 34, 70, "Input",ExpressionUUID->"45c33c05-2d3e-4356-bf79-bf4fd92d41f3"],
|
||
|
|
Cell[27598, 801, 567, 14, 54, "Output",ExpressionUUID->"dc565482-8de6-4ab8-a798-19a7db5ad27c"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[28202, 820, 277, 4, 30, InheritFromParent,ExpressionUUID->"603e60e6-873a-49ac-b6bf-e977b231220c"],
|
||
|
|
Cell[28482, 826, 1733, 56, 116, "Output",ExpressionUUID->"9ddc9a97-9183-47c4-b621-d4435b26e780"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[30252, 887, 1799, 57, 131, "Input",ExpressionUUID->"8c720d37-00d3-49e8-9f50-c209f6913949"],
|
||
|
|
Cell[32054, 946, 571, 14, 54, "Output",ExpressionUUID->"586add8d-b790-4523-9234-929f68a2e78a"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[32640, 963, 208, 4, 35, "Text",ExpressionUUID->"f2450ce6-c45a-4100-9829-cfa830bcbef1"],
|
||
|
|
Cell[32851, 969, 1027, 28, 52, "Input",ExpressionUUID->"c8a16a58-c7fb-43f1-a376-ae5062a9e0f3"],
|
||
|
|
Cell[33881, 999, 941, 26, 52, "Input",ExpressionUUID->"eef1b5bf-187e-4c1c-a57b-7c7e416b3670"],
|
||
|
|
Cell[34825, 1027, 202, 4, 35, "Text",ExpressionUUID->"509d11dc-75e8-4cf8-87a9-136dfe74066e"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[35052, 1035, 229, 4, 44, "Input",ExpressionUUID->"0ac5022f-b6b0-4bd1-b30c-193a8946ecfe"],
|
||
|
|
Cell[35284, 1041, 435, 10, 34, "Output",ExpressionUUID->"b36fee77-3b42-4d02-8683-a35a29e23731"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[35756, 1056, 257, 5, 44, "Input",ExpressionUUID->"6ac56f85-a1c8-4800-8f8f-51cbff366755"],
|
||
|
|
Cell[36016, 1063, 440, 10, 49, "Output",ExpressionUUID->"446cc1b3-88e1-4d24-80fe-10f017c1eb0f"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[36471, 1076, 378, 10, 46, "Input",ExpressionUUID->"e5e0e945-5ae7-4125-955b-fc265b35da5e"],
|
||
|
|
Cell[36852, 1088, 441, 10, 48, "Input",ExpressionUUID->"41d198ba-ddd7-4d67-91e1-c34fd46e8c66"],
|
||
|
|
Cell[37296, 1100, 859, 26, 73, "Input",ExpressionUUID->"8752f1e9-5383-4f9b-9fcf-c08ebd86e646"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[38180, 1130, 179, 2, 30, "Input",ExpressionUUID->"12999f00-207d-4cf4-9680-699acf42de49"],
|
||
|
|
Cell[38362, 1134, 1255, 38, 89, "Output",ExpressionUUID->"7bd38fda-abf4-480d-aee0-6c3bcf26d2f0"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[39632, 1175, 1303, 39, 101, "Input",ExpressionUUID->"49364352-059c-4ee8-9b23-b5a3cf317455"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[40960, 1218, 843, 23, 88, InheritFromParent,ExpressionUUID->"2ff5a8e9-e1b4-4e15-aba7-b7d4f425d777"],
|
||
|
|
Cell[41806, 1243, 740, 21, 55, "Output",ExpressionUUID->"14bd98d0-7511-4c91-b3f9-94e379b4f66f"],
|
||
|
|
Cell[42549, 1266, 555, 15, 53, "Output",ExpressionUUID->"bf8c6eab-3487-4218-9e3e-d5b9c96b1911"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[43141, 1286, 256, 5, 44, "Input",ExpressionUUID->"af527bc5-b6f9-499a-bbc5-ab65d59273d8"],
|
||
|
|
Cell[43400, 1293, 576, 16, 55, "Output",ExpressionUUID->"8a2d3c84-fbc7-4328-84b2-a8fce3cfdc02"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[44013, 1314, 860, 23, 65, "Input",ExpressionUUID->"7c4c9b52-121c-4684-8148-eb58908c27ca"],
|
||
|
|
Cell[44876, 1339, 511, 16, 51, "Output",ExpressionUUID->"1fc1d606-854f-45a2-9568-adc46b80aec3"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[45402, 1358, 264, 5, 44, "Input",ExpressionUUID->"32598e5c-ec9c-4cb0-af64-d07e0b8ac2ee"],
|
||
|
|
Cell[45669, 1365, 911, 24, 96, InheritFromParent,ExpressionUUID->"61b784e9-e487-4f85-bb4a-6af1010e3523"],
|
||
|
|
Cell[46583, 1391, 282, 8, 46, "Input",ExpressionUUID->"e30cf5c1-de87-417f-b550-b7446ecc7aa9"],
|
||
|
|
Cell[46868, 1401, 375, 9, 48, "Input",ExpressionUUID->"380f60d1-4c46-4110-8c83-76e417fda899"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[47268, 1414, 780, 23, 52, "Input",ExpressionUUID->"e47d17de-dc4e-4104-89bf-5a43dad3ef1b"],
|
||
|
|
Cell[48051, 1439, 5219, 148, 184, "Output",ExpressionUUID->"e915df60-de3d-4c13-958a-5e448c4a8126"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[53307, 1592, 161, 3, 44, "Input",ExpressionUUID->"df8e6c64-60f1-4d20-937b-b42c03a872fa"],
|
||
|
|
Cell[53471, 1597, 1188, 37, 57, "Output",ExpressionUUID->"cd6b48d6-11ce-46f2-8919-f6221b953dfe"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[54696, 1639, 1396, 41, 67, "Input",ExpressionUUID->"0e041e2e-3bef-4746-a039-6bdf33415661"],
|
||
|
|
Cell[56095, 1682, 2584, 80, 124, "Output",ExpressionUUID->"70536385-f49d-4e3c-87eb-d4b3b71732d1"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[58716, 1767, 163, 3, 44, "Input",ExpressionUUID->"a0489245-9c4f-48a6-8e26-ac86582eed4d"],
|
||
|
|
Cell[58882, 1772, 523, 15, 55, "Output",ExpressionUUID->"fa7b1a38-e174-483b-b950-e60fec801913"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[59442, 1792, 264, 5, 44, "Input",ExpressionUUID->"8f55da89-f1a3-4cfc-a9c4-2dc001b691d6"],
|
||
|
|
Cell[59709, 1799, 357, 9, 51, "Output",ExpressionUUID->"31cbc0ee-f3b2-433e-ad95-3886151d920b"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[60081, 1811, 320, 7, 48, "Input",ExpressionUUID->"bf153cf9-a649-4da1-b19e-2f86441930c1"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[60426, 1822, 150, 2, 30, "Input",ExpressionUUID->"4cb7decd-804c-428e-a027-bdc5e227e9cb"],
|
||
|
|
Cell[60579, 1826, 1054, 32, 72, "Output",ExpressionUUID->"b141d355-2ce0-4434-9ea7-26d50b131043"],
|
||
|
|
Cell[61636, 1860, 149, 2, 34, "Output",ExpressionUUID->"e57e40a9-10d6-487b-82d9-4ea0b4eee1a6"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[61800, 1865, 154, 3, 30, InheritFromParent,ExpressionUUID->"bfa5a467-6530-434b-8ff2-4c1beb7c5f9b"],
|
||
|
|
Cell[61957, 1870, 152, 3, 30, InheritFromParent,ExpressionUUID->"f12b5f29-0304-4b61-8e4b-00db2e314447"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[62134, 1877, 152, 3, 30, InheritFromParent,ExpressionUUID->"3b2c1918-37cb-463f-a0f8-40b2ff729387"],
|
||
|
|
Cell[62289, 1882, 609, 12, 24, "Message",ExpressionUUID->"d8d8cbc1-e3f9-4ac1-a8c6-6508cb53b302"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[62913, 1897, 154, 3, 30, InheritFromParent,ExpressionUUID->"ad7a7db0-0a5c-4fdf-af98-6c971f9fb10a"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[63092, 1904, 152, 3, 30, InheritFromParent,ExpressionUUID->"54400895-95ce-48d4-8d8e-a6efddd87d08"],
|
||
|
|
Cell[63247, 1909, 745, 15, 24, "Message",ExpressionUUID->"faa6cc09-7567-4461-98c6-b84d813d862d"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[64007, 1927, 151, 3, 30, InheritFromParent,ExpressionUUID->"15e319c1-c1d3-449d-955c-9213778695f6"],
|
||
|
|
Cell[64161, 1932, 209, 4, 35, "Text",ExpressionUUID->"fb226a9d-c063-4ebe-ab40-7cc637a4db1a"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[64395, 1940, 177, 2, 30, "Input",ExpressionUUID->"67adc948-d4c9-4173-96cf-7115dc8dbbdc"],
|
||
|
|
Cell[64575, 1944, 1136, 32, 50, "Output",ExpressionUUID->"ce726aa0-7f3f-47ee-abeb-edbf931f1115"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[65748, 1981, 1009, 31, 60, "Input",ExpressionUUID->"43661970-715e-499f-9774-21eaf3e4bcde"],
|
||
|
|
Cell[66760, 2014, 993, 31, 50, "Output",ExpressionUUID->"ba9f05a0-b224-4df1-ace0-776f0ca803a8"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[67790, 2050, 335, 6, 44, "Input",ExpressionUUID->"dbbb0ade-e2e3-41cd-acdf-19e55bd2040f"],
|
||
|
|
Cell[68128, 2058, 1159, 34, 50, "Output",ExpressionUUID->"69944615-4516-408b-b1cf-57689ba2effc"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[69324, 2097, 1064, 33, 60, "Input",ExpressionUUID->"98571ebb-8f05-4b6d-a8a4-93c2f520365f"],
|
||
|
|
Cell[70391, 2132, 706, 18, 51, "Output",ExpressionUUID->"fc4ead7d-2d3e-474d-9b50-9daf9ff212a7"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[71112, 2153, 177, 3, 30, InheritFromParent,ExpressionUUID->"40fb2d69-18bb-47df-8f68-b45e5225fc14"],
|
||
|
|
Cell[71292, 2158, 459, 8, 44, "Input",ExpressionUUID->"542e113a-a0bf-4939-8754-d6fef3ee6d01"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[71776, 2170, 1266, 33, 95, InheritFromParent,ExpressionUUID->"7d6b09ee-8b13-442f-9a07-abd389fe6a65"],
|
||
|
|
Cell[73045, 2205, 743, 19, 54, "Output",ExpressionUUID->"916de0ac-d611-4b96-a7fe-c3b3e1e95986"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[73825, 2229, 146, 2, 30, "Input",ExpressionUUID->"35d3cd9a-1f07-4211-9445-5531efa81276"],
|
||
|
|
Cell[73974, 2233, 696, 18, 60, "Output",ExpressionUUID->"457410c5-fa4a-4f59-bf41-cb4d46d45b3c"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[74707, 2256, 724, 19, 71, "Input",ExpressionUUID->"e8f3f0fc-9276-42e8-bf60-178b595d7bb9"],
|
||
|
|
Cell[75434, 2277, 540, 13, 76, "Output",ExpressionUUID->"89bd7267-3fc1-4c3b-b613-36f51566d49f"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[76011, 2295, 178, 2, 30, "Input",ExpressionUUID->"15f0e205-3190-4dfd-a7ee-17d191ec0e93"],
|
||
|
|
Cell[76192, 2299, 3223, 87, 177, "Output",ExpressionUUID->"0e65a47a-032b-445b-a375-68bd5390af2c"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[79452, 2391, 163, 3, 44, "Input",ExpressionUUID->"8c247d85-4c80-40c4-bfb7-57800ab69f41"],
|
||
|
|
Cell[79618, 2396, 3169, 78, 144, "Output",ExpressionUUID->"6faec2a3-61a9-4593-9872-991ef8b9f458"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[82824, 2479, 178, 2, 30, "Input",ExpressionUUID->"88987b19-7aed-4abe-84a8-c903b81da816"],
|
||
|
|
Cell[83005, 2483, 3812, 104, 209, "Output",ExpressionUUID->"c88cf312-ad1a-45b9-80c4-36d91c8a75a9"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[86854, 2592, 163, 3, 44, "Input",ExpressionUUID->"01a35251-5333-4fe6-9de6-acdf4332d47b"],
|
||
|
|
Cell[87020, 2597, 3086, 79, 121, "Output",ExpressionUUID->"9bf071b0-2d0f-4a8f-ba8b-d6c47779ee7d"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[90121, 2679, 156, 3, 30, "Input",ExpressionUUID->"aac10ff4-494b-4f69-a88c-12f8d5f262bf"],
|
||
|
|
Cell[90280, 2684, 264, 8, 58, "Text",ExpressionUUID->"69e9e9de-8e02-47c2-a5ce-5d944dfad278"],
|
||
|
|
Cell[90547, 2694, 1421, 39, 52, "Input",ExpressionUUID->"d9ae15e1-ff39-477b-9ce2-3aee469cc4a0"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[91993, 2737, 229, 4, 44, "Input",ExpressionUUID->"f72a4df8-5f7d-48f7-8799-55a34ab5c9d2"],
|
||
|
|
Cell[92225, 2743, 343, 8, 34, "Output",ExpressionUUID->"b2714824-2897-4c2c-a326-4824af714e2b"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[92605, 2756, 261, 5, 44, "Input",ExpressionUUID->"c18801f2-092d-4252-9553-961991a8a31d"],
|
||
|
|
Cell[92869, 2763, 350, 9, 49, "Output",ExpressionUUID->"487f9ac8-e055-46ea-841d-f6ab654fe791"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[93234, 2775, 310, 7, 46, "Input",ExpressionUUID->"478b7236-7dea-4f3c-9903-9b58f47b4415"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[93569, 2786, 178, 2, 30, "Input",ExpressionUUID->"b843ec60-40e7-4d78-94d5-b8724ee2eaec"],
|
||
|
|
Cell[93750, 2790, 993, 30, 50, "Output",ExpressionUUID->"3c01d21a-1086-4919-92de-31802d728c64"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[94780, 2825, 230, 4, 44, "Input",ExpressionUUID->"98974420-f478-46b4-b3f7-6e7f907cb497"],
|
||
|
|
Cell[95013, 2831, 1048, 32, 50, "Output",ExpressionUUID->"08328fd9-917a-4b0c-a079-570e5e6771c8"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[96098, 2868, 264, 5, 44, "Input",ExpressionUUID->"184146d0-998a-4d29-969b-2038a46003c9"],
|
||
|
|
Cell[96365, 2875, 747, 19, 54, "Output",ExpressionUUID->"a4815e69-91e2-4908-a4eb-5b8ce4ba25fa"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[97127, 2897, 665, 16, 51, "Input",ExpressionUUID->"a809f847-b1fa-429d-b1c1-320339198442"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[97817, 2917, 173, 2, 30, "Input",ExpressionUUID->"417bae3a-3646-457c-b957-3420e1e0ff61"],
|
||
|
|
Cell[97993, 2921, 722, 18, 60, "Output",ExpressionUUID->"d8a6228e-ffef-455d-b091-1cfb714c8742"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[98752, 2944, 726, 19, 71, "Input",ExpressionUUID->"4f6deceb-f4c6-4b17-9c1c-5d5854cfdce5"],
|
||
|
|
Cell[99481, 2965, 543, 13, 53, "Output",ExpressionUUID->"87dc6853-72d5-489b-b803-e2c6f3282f2a"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[100061, 2983, 178, 2, 30, "Input",ExpressionUUID->"31afcdd2-9838-4cf4-be55-292e539753f9"],
|
||
|
|
Cell[100242, 2987, 3237, 87, 178, "Output",ExpressionUUID->"35208df4-d733-4d49-a8c6-1b12b60f0f59"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[103516, 3079, 161, 3, 44, "Input",ExpressionUUID->"baad2ded-24e1-4c11-a0ae-804dfe3aeb20"],
|
||
|
|
Cell[103680, 3084, 3509, 78, 144, "Output",ExpressionUUID->"76ca95f6-19bf-441f-92d6-630553d5ea53"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[107226, 3167, 163, 3, 44, "Input",ExpressionUUID->"6dfbe981-d39b-4e7a-934b-c6b0e165865b"],
|
||
|
|
Cell[107392, 3172, 3384, 83, 144, "Output",ExpressionUUID->"72fab97c-3c3b-476f-8bdf-5fea6866d597"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[110813, 3260, 180, 2, 30, "Input",ExpressionUUID->"d9399de1-a9fc-4afe-b077-85f9c7e0de97"],
|
||
|
|
Cell[110996, 3264, 3819, 104, 209, "Output",ExpressionUUID->"ccd162c2-787e-4b20-af23-8d05d6f61663"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[114852, 3373, 163, 3, 44, "Input",ExpressionUUID->"15627d1a-9d0b-42bd-b404-68f2cba9096b"],
|
||
|
|
Cell[115018, 3378, 3089, 78, 121, "Output",ExpressionUUID->"181f0613-1299-4588-8d79-4b1fa68c4f81"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[118144, 3461, 161, 3, 44, "Input",ExpressionUUID->"83445ccb-1857-4630-b4b3-904b9e442c4a"],
|
||
|
|
Cell[118308, 3466, 3205, 71, 142, "Output",ExpressionUUID->"3017bb3d-3c34-4b6a-a2c2-7b62ae626df0"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[121528, 3540, 175, 3, 30, "Input",ExpressionUUID->"05effea5-100d-4148-b5a1-85a03ad5c4eb"],
|
||
|
|
Cell[121706, 3545, 179, 3, 30, "Input",ExpressionUUID->"42323150-3c57-4b59-836a-db2b3dfb0574"],
|
||
|
|
Cell[121888, 3550, 152, 3, 30, InheritFromParent,ExpressionUUID->"b2a2ab7a-3c23-4e5c-b42e-44650f6a6bbe"],
|
||
|
|
Cell[122043, 3555, 146, 2, 30, "Input",ExpressionUUID->"45b32136-6fbc-48f0-b4be-7ee0110d141f"],
|
||
|
|
Cell[122192, 3559, 154, 3, 30, InheritFromParent,ExpressionUUID->"e5ee6322-008c-4b17-950d-6a58a9d20750"],
|
||
|
|
Cell[122349, 3564, 144, 2, 30, "Input",ExpressionUUID->"cfacc1d4-a0d2-4244-a1f4-596cc0e1aa84"],
|
||
|
|
Cell[122496, 3568, 156, 3, 30, InheritFromParent,ExpressionUUID->"b6a5f2d1-009f-466e-b765-a5f5d06e093d"],
|
||
|
|
Cell[122655, 3573, 203, 4, 30, "Input",ExpressionUUID->"2633dd0d-a2b9-4126-9995-8cdd875a6ed3"],
|
||
|
|
Cell[122861, 3579, 154, 3, 30, InheritFromParent,ExpressionUUID->"325ae6f6-5799-45cc-be55-d15820da6496"],
|
||
|
|
Cell[123018, 3584, 144, 2, 30, "Input",ExpressionUUID->"5d031c5d-28f6-477e-bd2d-953238cbaae7"],
|
||
|
|
Cell[123165, 3588, 152, 3, 30, InheritFromParent,ExpressionUUID->"0d0cbf8b-83fe-415f-a8a4-b30ef80afd6b"],
|
||
|
|
Cell[123320, 3593, 152, 3, 30, "Input",ExpressionUUID->"00b89c89-addf-4c4a-9cca-e30e38e1845f"],
|
||
|
|
Cell[123475, 3598, 152, 3, 30, InheritFromParent,ExpressionUUID->"b7f70344-8ff0-4852-a989-fe84ad6e5809"],
|
||
|
|
Cell[123630, 3603, 154, 3, 30, "Input",ExpressionUUID->"b69c871e-9164-44ac-b5b1-b30737776c15"],
|
||
|
|
Cell[123787, 3608, 156, 3, 30, InheritFromParent,ExpressionUUID->"684a35de-dc39-4dc2-b65a-26ff98428f3f"],
|
||
|
|
Cell[123946, 3613, 151, 3, 30, "Input",ExpressionUUID->"18b26366-03ea-493c-a4a5-d0865f2757b2"],
|
||
|
|
Cell[124100, 3618, 151, 3, 30, InheritFromParent,ExpressionUUID->"8a047095-20af-440b-9362-ab96e7e7100b"],
|
||
|
|
Cell[124254, 3623, 146, 2, 30, "Input",ExpressionUUID->"b6df1546-eb94-42b9-8775-47862afb223d"],
|
||
|
|
Cell[124403, 3627, 154, 3, 30, InheritFromParent,ExpressionUUID->"4d90c295-3325-4362-a00e-0e0e12653c6e"],
|
||
|
|
Cell[124560, 3632, 201, 4, 30, "Input",ExpressionUUID->"801ac8ab-e90c-4a87-b228-84367b720ffd"],
|
||
|
|
Cell[124764, 3638, 154, 3, 30, InheritFromParent,ExpressionUUID->"f2f33b89-2e98-446d-a21f-e7f5274c1792"]
|
||
|
|
}
|
||
|
|
]
|
||
|
|
*)
|
||
|
|
|