(* 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 *)