JingYiHan
/
IGB
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
IGB/relationship.nb

1482 lines
48 KiB
Mathematica
Raw Permalink Normal View History

with government
2022-06-13 21:16:40 +08:00
(* 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[ 48650, 1471]
NotebookOptionsPosition[ 43948, 1384]
NotebookOutlinePosition[ 44354, 1401]
CellTagsIndexPosition[ 44311, 1398]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[" SA consider VM\[CloseCurlyQuote]s profit", "Chapter",
CellChangeTimes->{{3.862034804048106*^9,
3.862034824638294*^9}},ExpressionUUID->"2e65fc16-cc6e-4389-b3f0-\
3fb2d9f00101"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.862034793098918*^9,
3.862034793215993*^9}},ExpressionUUID->"2218755e-a974-4127-92d3-\
6c31926247f0"],
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{"\[Gamma]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}], ")"}]}]}]}]}], "Input",\
CellChangeTimes->{{3.860990220515719*^9, 3.86099032058632*^9}, {
3.861005206587309*^9, 3.861005231508071*^9}, {3.861005664789424*^9,
3.8610056974644327`*^9}, {3.861005732620328*^9, 3.861005738512261*^9}, {
3.8610522215142393`*^9, 3.861052221576477*^9}, {3.862034832787148*^9,
3.862034879001143*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"b704aa11-2632-4779-ac96-c70d534026af"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8620348679241734`*^9,
3.862034874306559*^9}},ExpressionUUID->"d2cc8e8d-c043-4338-8b2e-\
911863136994"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]}], "Input",
CellChangeTimes->{{3.862034893799357*^9, 3.862034894704894*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"f34c05d1-9052-46ce-91e3-e6c0d105577f"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.8620349004929867`*^9, 3.8620349059739428`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"5b488dc1-7c15-4d22-9dc0-1783feecd30c"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "+",
RowBox[{"\[Gamma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"l", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.862034906492909*^9},
CellLabel->"Out[9]=",ExpressionUUID->"c95d8f78-69cf-49f1-bfcb-e4a07fb41b48"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.862034911632719*^9, 3.862034918918302*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"d38598b8-e289-4e50-8ff3-5fd9de996788"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-",
RowBox[{"2", " ", "p"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.862034920041997*^9},
CellLabel->"Out[10]=",ExpressionUUID->"b57b9ca7-2564-4572-b4a6-55c2a57a6a59"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.86203493390486*^9, 3.8620349403373632`*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"3428dd7f-a03d-437d-b957-5935affc58b0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.862034941451756*^9},
CellLabel->"Out[11]=",ExpressionUUID->"6556ae81-20d5-4cce-9f33-0d9bfb1e7355"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.86203494499975*^9, 3.86203495489454*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"7f872ec2-4caf-4abf-96c0-8e058e99a8f3"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-", "\[Alpha]", "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{"\[Gamma]", " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"l", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}],
RowBox[{"2", " ", "k"}]], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.862034955423951*^9},
CellLabel->"Out[12]=",ExpressionUUID->"f151f5bb-ad33-4aa3-8d1b-babd254a6e80"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.862034958124793*^9, 3.862034964323094*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"e2e34a53-d5ba-4cd9-9752-0825b295d655"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-", "p"}], "-",
RowBox[{"d", " ", "p"}], "+",
SuperscriptBox["p", "2"], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "-",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Gamma]"}], "+",
"\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"\[Gamma]", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.862034971460043*^9},
CellLabel->"Out[13]=",ExpressionUUID->"97198f92-d4d8-4bef-a2c6-fecc823666b7"]
}, Open ]],
Cell[BoxData[
RowBox[{"l", ":=",
FractionBox[
RowBox[{
RowBox[{"-", "p"}], "-",
RowBox[{"d", " ", "p"}], "+",
SuperscriptBox["p", "2"], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"p", " ", "\[Alpha]"}], "+",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "-",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Gamma]"}], "+",
"\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"\[Gamma]", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.8620350011823483`*^9, 3.862035002354514*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"d97ecf0e-dfb5-41fc-8429-1b34a26fc894"],
Cell[BoxData[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}]], "Input",
CellChangeTimes->{{3.862034985450152*^9, 3.8620349872074842`*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"a272a324-42cb-4be9-b506-0c7b0abcb1c8"],
Cell[CellGroupData[{
Cell[BoxData["l"], "Input",
CellChangeTimes->{3.862034989502761*^9},
CellLabel->"In[17]:=",ExpressionUUID->"b1dfe795-fe1b-44f6-8f6e-eaac801cf033"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Gamma]"}], "+",
"\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"\[Gamma]", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ", "\[Gamma]", " ", "\[Theta]"}]}],
")"}]}]], "Output",
CellChangeTimes->{{3.862034990098361*^9, 3.862035007896963*^9}},
CellLabel->"Out[17]=",ExpressionUUID->"32a3aa43-9da5-401e-b6d3-f5d8ac8d603d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]", " ", "\[Gamma]"}], "+",
"\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"\[Gamma]", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ", "\[Gamma]", " ", "\[Theta]"}]}], ")"}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[18]:=",ExpressionUUID->"4901b00c-eb26-4d92-bbca-5bb9f85ffe1b"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.862035011189673*^9},
CellLabel->"Out[18]=",ExpressionUUID->"d65d5c1b-b841-451f-a7a9-10d81890d6c4"]
}, Open ]],
Cell[BoxData[
RowBox[{"l", ":=",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.8620350465060043`*^9, 3.862035051768537*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"10e6d67a-1345-48a7-8088-750ea6bd29c2"],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.862035053450572*^9},
CellLabel->"In[20]:=",ExpressionUUID->"71917841-9435-4519-94d4-573936e3ac30"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}],
"-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]}], ")"}]}]], "Output",\
CellChangeTimes->{3.862035053811034*^9},
CellLabel->"Out[20]=",ExpressionUUID->"45437145-17b0-4241-97b7-c26d7e8920c8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%20", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[21]:=",ExpressionUUID->"fb1ebb62-e683-4ab1-8ede-c4ee19810a52"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.862035056204571*^9},
CellLabel->"Out[21]=",ExpressionUUID->"a3cce2c0-7719-42cc-a46f-58bbc31c9655"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["r"], "Input",
CellChangeTimes->{3.862035057887642*^9},
CellLabel->"In[22]:=",ExpressionUUID->"ce32a112-e8f0-416a-89f7-353bb2104add"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "\[Theta]", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}],
"-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}],
"-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.862035058338107*^9},
CellLabel->"Out[22]=",ExpressionUUID->"255cac60-2254-476e-bfa3-aa041eae7052"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%22", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[23]:=",ExpressionUUID->"64de8332-46cd-45e6-9566-cd699dd6576b"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]", "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8620350606426888`*^9},
CellLabel->"Out[23]=",ExpressionUUID->"fcd4855f-05b5-46f6-9d11-0c1f75991896"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[CapitalDelta]e", ":=",
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
StyleBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]}]}]], "Input",
CellChangeTimes->{{3.862035304440555*^9, 3.862035341989423*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"7480f2b3-442f-4e32-b5a0-bed33bac3002"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]e"], "Input",
CellChangeTimes->{{3.86203497497585*^9, 3.862034978428474*^9},
3.862035348365735*^9},
CellLabel->"In[25]:=",ExpressionUUID->"635094f0-bf20-468c-a051-32f256be628e"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8620353491395063`*^9},
CellLabel->"Out[25]=",ExpressionUUID->"6e5212e6-778b-416a-bf4b-c6e85bc6facb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[26]:=",ExpressionUUID->"fa4b81ee-8ae8-44f4-9f0e-cc3a55bbdc07"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Gamma]", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8620353511756268`*^9},
CellLabel->"Out[26]=",ExpressionUUID->"6e2f0995-49a5-462b-8e75-5f02bdfb76cf"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[CapitalDelta]l", ":=",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]}]], "Input",
CellChangeTimes->{{3.8620354874980173`*^9, 3.862035505430895*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"a949397d-1899-412c-b67b-9d427e3063d0"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]l"], "Input",
CellLabel->"In[28]:=",ExpressionUUID->"7e5d9a91-41e4-4330-8297-412b0094303f"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.862035515229753*^9},
CellLabel->"Out[28]=",ExpressionUUID->"b703c95f-61b8-4c23-9d0b-4dce218ec578"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[29]:=",ExpressionUUID->"d35dc5ad-3bf9-4dd5-a916-49068fc9214d"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Gamma]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.862035516812772*^9},
CellLabel->"Out[29]=",ExpressionUUID->"7045aeda-019d-4098-916c-ba9c1c032726"]
}, Open ]],
Cell[TextData[{
StyleBox["if SA want to build relationship with VM that she considers the VM\
\[CloseCurlyQuote]s profit when she fix the price: \ne = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"a6a6db40-2128-4f17-8bca-b78474ebd9f7"],
StyleBox[", \nr = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]", "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"5fd8c17d-8acd-49e6-bfe5-dea5da0e4e2e"],
StyleBox[",\np =",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{" ",
RowBox[{"1", "+", "d"}]}],
RowBox[{" ", "2"}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"84adf5cd-9f8e-4361-8f88-a6e955906a4e"],
StyleBox[",\nl = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Gamma]", " ", "\[Theta]"}]}],
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Gamma]"}], ")"}]}]]],
CellChangeTimes->{{3.8620350465060043`*^9, 3.862035051768537*^9}},
ExpressionUUID->"ad3723f1-eede-4afa-8115-d6561437062a"],
"\n"
}], "Text",
CellChangeTimes->{{3.861009692047521*^9, 3.861009970618803*^9}, {
3.8610146917386093`*^9, 3.86101473542562*^9}, 3.861015513181675*^9, {
3.861037373492426*^9, 3.861037390517971*^9}, {3.861049486872294*^9,
3.8610495011126842`*^9}, {3.861050047437174*^9, 3.861050218217928*^9}, {
3.861050499519471*^9, 3.861050525589243*^9}, {3.861050598208932*^9,
3.861050874278306*^9}, {3.8610568139647493`*^9, 3.861056814425272*^9}, {
3.861646571771052*^9, 3.861646577572209*^9}, {3.861646620560968*^9,
3.861646623077684*^9}, {3.862035068361205*^9, 3.862035125930134*^9}, {
3.862035453275461*^9, 3.862035470459155*^9}, {3.862035660933704*^9,
3.862035661331773*^9}},ExpressionUUID->"dbd25efc-498b-45bb-9d9a-\
e1be1c6fdd44"]
}, Open ]]
},
WindowSize->{808, 730},
WindowMargins->{{Automatic, 44}, {6, Automatic}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670813\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4c751faf-a5fd-4dea-8465-90924cf5e12f"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 186, 3, 69, "Chapter",ExpressionUUID->"2e65fc16-cc6e-4389-b3f0-3fb2d9f00101"],
Cell[769, 27, 206, 4, 73, "Input",ExpressionUUID->"2218755e-a974-4127-92d3-6c31926247f0"],
Cell[978, 33, 2237, 69, 94, "Input",ExpressionUUID->"b704aa11-2632-4779-ac96-c70d534026af"],
Cell[3218, 104, 154, 3, 30, "Input",ExpressionUUID->"d2cc8e8d-c043-4338-8b2e-911863136994"],
Cell[3375, 109, 579, 15, 88, "Input",ExpressionUUID->"f34c05d1-9052-46ce-91e3-e6c0d105577f"],
Cell[CellGroupData[{
Cell[3979, 128, 181, 2, 30, "Input",ExpressionUUID->"5b488dc1-7c15-4d22-9dc0-1783feecd30c"],
Cell[4163, 132, 2124, 65, 97, "Output",ExpressionUUID->"c95d8f78-69cf-49f1-bfcb-e4a07fb41b48"]
}, Open ]],
Cell[CellGroupData[{
Cell[6324, 202, 222, 4, 44, "Input",ExpressionUUID->"d38598b8-e289-4e50-8ff3-5fd9de996788"],
Cell[6549, 208, 399, 11, 51, "Output",ExpressionUUID->"b57b9ca7-2564-4572-b4a6-55c2a57a6a59"]
}, Open ]],
Cell[CellGroupData[{
Cell[6985, 224, 258, 5, 44, "Input",ExpressionUUID->"3428dd7f-a03d-437d-b957-5935affc58b0"],
Cell[7246, 231, 273, 7, 51, "Output",ExpressionUUID->"6556ae81-20d5-4cce-9f33-0d9bfb1e7355"]
}, Open ]],
Cell[CellGroupData[{
Cell[7556, 243, 226, 4, 44, "Input",ExpressionUUID->"7f872ec2-4caf-4abf-96c0-8e058e99a8f3"],
Cell[7785, 249, 2206, 70, 97, "Output",ExpressionUUID->"f151f5bb-ad33-4aa3-8d1b-babd254a6e80"]
}, Open ]],
Cell[CellGroupData[{
Cell[10028, 324, 257, 5, 44, "Input",ExpressionUUID->"e2e34a53-d5ba-4cd9-9752-0825b295d655"],
Cell[10288, 331, 1082, 29, 57, "Output",ExpressionUUID->"97198f92-d4d8-4bef-a2c6-fecc823666b7"]
}, Open ]],
Cell[11385, 363, 1006, 26, 54, "Input",ExpressionUUID->"d97ecf0e-dfb5-41fc-8429-1b34a26fc894"],
Cell[12394, 391, 242, 5, 48, "Input",ExpressionUUID->"a272a324-42cb-4be9-b506-0c7b0abcb1c8"],
Cell[CellGroupData[{
Cell[12661, 400, 148, 2, 30, "Input",ExpressionUUID->"b1dfe795-fe1b-44f6-8f6e-eaac801cf033"],
Cell[12812, 404, 1586, 48, 93, "Output",ExpressionUUID->"32a3aa43-9da5-401e-b6d3-f5d8ac8d603d"]
}, Open ]],
Cell[CellGroupData[{
Cell[14435, 457, 1618, 49, 142, "Input",ExpressionUUID->"4901b00c-eb26-4d92-bbca-5bb9f85ffe1b"],
Cell[16056, 508, 1085, 32, 57, "Output",ExpressionUUID->"d65d5c1b-b841-451f-a7a9-10d81890d6c4"]
}, Open ]],
Cell[17156, 543, 1163, 33, 54, "Input",ExpressionUUID->"10e6d67a-1345-48a7-8088-750ea6bd29c2"],
Cell[CellGroupData[{
Cell[18344, 580, 148, 2, 30, "Input",ExpressionUUID->"71917841-9435-4519-94d4-573936e3ac30"],
Cell[18495, 584, 2449, 72, 107, "Output",ExpressionUUID->"45437145-17b0-4241-97b7-c26d7e8920c8"]
}, Open ]],
Cell[CellGroupData[{
Cell[20981, 661, 163, 3, 44, "Input",ExpressionUUID->"fb1ebb62-e683-4ab1-8ede-c4ee19810a52"],
Cell[21147, 666, 968, 30, 55, "Output",ExpressionUUID->"a3cce2c0-7719-42cc-a46f-58bbc31c9655"]
}, Open ]],
Cell[CellGroupData[{
Cell[22152, 701, 148, 2, 30, "Input",ExpressionUUID->"ce32a112-e8f0-416a-89f7-353bb2104add"],
Cell[22303, 705, 2599, 76, 107, "Output",ExpressionUUID->"255cac60-2254-476e-bfa3-aa041eae7052"]
}, Open ]],
Cell[CellGroupData[{
Cell[24939, 786, 163, 3, 44, "Input",ExpressionUUID->"64de8332-46cd-45e6-9566-cd699dd6576b"],
Cell[25105, 791, 1076, 34, 56, "Output",ExpressionUUID->"fcd4855f-05b5-46f6-9d11-0c1f75991896"]
}, Open ]],
Cell[26196, 828, 1807, 53, 97, "Input",ExpressionUUID->"7480f2b3-442f-4e32-b5a0-bed33bac3002"],
Cell[CellGroupData[{
Cell[28028, 885, 212, 3, 30, "Input",ExpressionUUID->"635094f0-bf20-468c-a051-32f256be628e"],
Cell[28243, 890, 1633, 50, 99, "Output",ExpressionUUID->"6e5212e6-778b-416a-bf4b-c6e85bc6facb"]
}, Open ]],
Cell[CellGroupData[{
Cell[29913, 945, 1697, 52, 112, "Input",ExpressionUUID->"fa4b81ee-8ae8-44f4-9f0e-cc3a55bbdc07"],
Cell[31613, 999, 960, 29, 56, "Output",ExpressionUUID->"6e2f0995-49a5-462b-8e75-5f02bdfb76cf"]
}, Open ]],
Cell[32588, 1031, 1940, 59, 102, "Input",ExpressionUUID->"a949397d-1899-412c-b67b-9d427e3063d0"],
Cell[CellGroupData[{
Cell[34553, 1094, 121, 1, 30, "Input",ExpressionUUID->"7e5d9a91-41e4-4330-8297-412b0094303f"],
Cell[34677, 1097, 1811, 56, 104, "Output",ExpressionUUID->"b703c95f-61b8-4c23-9d0b-4dce218ec578"]
}, Open ]],
Cell[CellGroupData[{
Cell[36525, 1158, 1892, 60, 117, "Input",ExpressionUUID->"d35dc5ad-3bf9-4dd5-a916-49068fc9214d"],
Cell[38420, 1220, 935, 28, 59, "Output",ExpressionUUID->"7045aeda-019d-4098-916c-ba9c1c032726"]
}, Open ]],
Cell[39370, 1251, 4562, 130, 188, "Text",ExpressionUUID->"dbd25efc-498b-45bb-9d9a-e1be1c6fdd44"]
}, Open ]]
}
]
*)
(* End of internal cache information *)