13259 lines
427 KiB
Mathematica
13259 lines
427 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[ 436994, 13250]
|
|
NotebookOptionsPosition[ 410498, 12807]
|
|
NotebookOutlinePosition[ 410905, 12824]
|
|
CellTagsIndexPosition[ 410862, 12821]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
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[{
|
|
RowBox[{"(",
|
|
RowBox[{"r", "-", "g"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]}], "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.861053217212502*^9,
|
|
3.8610532211473427`*^9}, {3.861053508740391*^9, 3.861053513902051*^9}, {
|
|
3.861053550374921*^9, 3.861053555031969*^9}, {3.861053657633584*^9,
|
|
3.861053681512178*^9}},
|
|
CellLabel->"In[5]:=",ExpressionUUID->"55fd3c7d-2ae3-4431-97c2-89dd2c71b531"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
|
|
CellLabel->"In[4]:=",ExpressionUUID->"1a7a2666-23ff-4ceb-b0f5-e63d73e33b9c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
|
|
CellChangeTimes->{{3.861053257091681*^9, 3.861053262497595*^9}, {
|
|
3.861053519646049*^9, 3.861053532766823*^9}, 3.861053702569044*^9},
|
|
CellLabel->"Out[4]=",ExpressionUUID->"d99a4e77-0a63-4988-8973-8ceb7c7705df"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
|
|
CellLabel->"In[5]:=",ExpressionUUID->"f2acc39c-1404-456c-9c7b-19ca4f03ce82"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"e", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.861053270987978*^9, 3.861053703799449*^9},
|
|
CellLabel->"Out[5]=",ExpressionUUID->"426e797e-9828-4852-b801-8763046346f6"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "k"}]]}]], "Input",
|
|
CellChangeTimes->{{3.8610532780811377`*^9, 3.86105327913593*^9}},
|
|
CellLabel->"In[6]:=",ExpressionUUID->"062854cd-c314-4f83-af07-ce9c604f2a51"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profiti"], "Input",
|
|
CellLabel->"In[7]:=",ExpressionUUID->"af6a0666-3e6c-4eab-a7b1-3775dd6058c3"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.86105328807652*^9, 3.8610535601993523`*^9,
|
|
3.8610537088490143`*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"f895fc3c-009f-43db-b798-648ed97ee12c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
|
|
CellLabel->"In[8]:=",ExpressionUUID->"672f9d18-7675-46f5-8ae7-656d988b1dfd"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"r", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "k"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.861053309862481*^9, 3.861053563199614*^9,
|
|
3.8610537109331627`*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"e9bb4c57-8f41-40bc-a49a-5970ed01dee5"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"r", ":=",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "k"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "k"}]]}]], "Input",
|
|
CellLabel->"In[9]:=",ExpressionUUID->"1ee75e90-2296-4bc0-9779-4d832b3cf576"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profits"], "Input",
|
|
CellLabel->"In[10]:=",ExpressionUUID->"edf978c2-19d2-4ea6-8ba1-4d33fde50c92"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[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"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861053336724321*^9, 3.861053577316752*^9,
|
|
3.861053716112112*^9},
|
|
CellLabel->"Out[10]=",ExpressionUUID->"81895db0-fea6-48be-a9a9-2daf063de6a2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[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"}]]}], ")"}]}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[11]:=",ExpressionUUID->"179e46c1-f2cc-49a6-91f7-a475450963d8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "k"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["l", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}],
|
|
"+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
|
")"}]}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.8610537188686132`*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"347969d1-ddf5-489d-9050-406953f32523"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"%", ",", "l"}], "]"}]], "Input",
|
|
CellLabel->"In[12]:=",ExpressionUUID->"1cc9076e-cb9b-403d-bdd1-e986237ccc85"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "l", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
|
CellChangeTimes->{3.861053348421033*^9, 3.861053603639591*^9,
|
|
3.86105372475484*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"3c67a87a-e964-41ca-83af-fc0cd0444ebb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
|
|
CellLabel->"In[13]:=",ExpressionUUID->"6613e4dd-fc6a-418d-8be4-82a2071cb7c4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"l", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"p", "+",
|
|
RowBox[{"d", " ", "p"}], "-",
|
|
SuperscriptBox["p", "2"], "-",
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "}"}],
|
|
"}"}]], "Output",
|
|
CellChangeTimes->{3.8610533593738337`*^9, 3.861053608512151*^9,
|
|
3.8610537264623404`*^9},
|
|
CellLabel->"Out[13]=",ExpressionUUID->"ce57cbbb-7158-4339-baf2-71a835a2ce68"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "k"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["l", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ",
|
|
"\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
|
|
")"}]}]}], ")"}]}], ",", "p"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8610533651732473`*^9, 3.861053378720413*^9},
|
|
3.861053621110057*^9, 3.861053739580958*^9},
|
|
CellLabel->"In[14]:=",ExpressionUUID->"c24b34c5-3a2f-449d-94cd-f2ed40d34ac8"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "p", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "\[Theta]"}], "-",
|
|
RowBox[{"p", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
|
CellChangeTimes->{
|
|
3.8610534044458103`*^9, {3.861053622629068*^9, 3.861053645076572*^9},
|
|
3.861053740803722*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"e39adbdc-797a-49ab-8654-b4d72882a87f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.86105342057023*^9, 3.8610534287547007`*^9}},
|
|
CellLabel->"In[15]:=",ExpressionUUID->"625b4c4c-cfdd-438b-b8d9-7a8d17bed66d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"p", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{
|
|
3.8610534293777723`*^9, {3.8610536260025187`*^9, 3.8610536496623363`*^9},
|
|
3.861053746886313*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"2a3da7b7-307b-4a5c-b668-860b9f91e5ec"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"l", ":=",
|
|
FractionBox[
|
|
RowBox[{"p", "+",
|
|
RowBox[{"d", " ", "p"}], "-",
|
|
SuperscriptBox["p", "2"], "-",
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
"2"]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"p", ":=",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"]}], "\[IndentingNewLine]", "l"}], "Input",
|
|
CellChangeTimes->{{3.861053772265349*^9, 3.861053791190922*^9}, {
|
|
3.861054094839044*^9, 3.861054095173009*^9}},
|
|
CellLabel->"In[22]:=",ExpressionUUID->"46bc50e9-ac81-4a8b-a6c7-8e29d025e840"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861054111707676*^9},
|
|
CellLabel->"Out[24]=",ExpressionUUID->"9383781d-9ca6-4247-928d-d96b4500d77d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[25]:=",ExpressionUUID->"5494c2f7-6b58-4435-86e0-4a25a6915b14"],
|
|
|
|
Cell[BoxData[
|
|
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", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{3.861054113591381*^9},
|
|
CellLabel->"Out[25]=",ExpressionUUID->"657e6bfc-ab96-4f45-84bd-03f411743995"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["e"], "Input",
|
|
CellChangeTimes->{3.8610537931944637`*^9},
|
|
CellLabel->"In[18]:=",ExpressionUUID->"fc0c29d8-21f0-488d-89c0-a10c349cbe16"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "k"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.861053793559709*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"ad2e3f56-9ac8-49ff-96b2-a7000ec081a5"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%18", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[19]:=",ExpressionUUID->"2a2e5e95-707d-42b1-8587-dd2e3d96d853"],
|
|
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
FontColor->RGBColor[1, 0, 0]]], "Input",
|
|
CellChangeTimes->{3.865107631899247*^9},
|
|
CellLabel->"Out[19]=",ExpressionUUID->"7b98acd2-167f-49d8-8e63-45f26b46b1e5"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["r"], "Input",
|
|
CellChangeTimes->{3.861053798734082*^9},
|
|
CellLabel->"In[20]:=",ExpressionUUID->"07640780-01d0-495a-b74b-f4473abc3487"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "k"}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "k"}], "-", "\[Theta]", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861053799422203*^9},
|
|
CellLabel->"Out[20]=",ExpressionUUID->"958f409e-7f35-405a-9c6b-1b0d4f4d2cbf"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%20", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[21]:=",ExpressionUUID->"81f9db75-f089-4664-9dc3-847f37d8f146"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861053801340972*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"ad6e1d7a-fd4f-43b7-8d26-797bb1d1351c"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "\[Equal]",
|
|
"0"}], ",", "\[Alpha]"}], "]"}], "\[IndentingNewLine]"}]], "Input",
|
|
CellChangeTimes->{{3.861054007644217*^9, 3.861054018245656*^9}, {
|
|
3.861054902157628*^9, 3.86105492591016*^9}},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"55cb19c7-f9bb-4e71-a37c-6d0ad9f9c1fe"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "-",
|
|
RowBox[{"16", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "-",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}],
|
|
"}"}], "\[IndentingNewLine]",
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Equal]", "0"}],
|
|
",", "\[Alpha]"}], "]"}]}], "Input",
|
|
CellChangeTimes->{{3.8610549723849173`*^9, 3.861054986674879*^9}},
|
|
CellLabel->"In[2]:=",ExpressionUUID->"16118d30-7c50-43d2-ba30-14bd8ac96264"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "-",
|
|
RowBox[{"16", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "-",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.861055000491314*^9},
|
|
CellLabel->"Out[2]=",ExpressionUUID->"8b7e1a2d-674c-4e3a-ae6e-9ea5619554ad"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"\[Alpha]", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.861055000498146*^9},
|
|
CellLabel->"Out[3]=",ExpressionUUID->"710bcb80-28d2-424c-82ee-cf5b09d34dd2"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[{
|
|
StyleBox["1. When the contract launch price is the optimal price for SA:\n",
|
|
"Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["\nWe solve this game by backward induction. By checking the \
|
|
Hessian matrix, we find that \[Pi]SA is jointly concave in p and l, when ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Alpha]", "<",
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
|
|
RowBox[{"8", " ", "k",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
|
|
"eb085465-3055-46a7-9146-d960a226571e"],
|
|
StyleBox[".in this paper, we consider the case with ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
" ",
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "-",
|
|
RowBox[{"16", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "-",
|
|
RowBox[{"8", " ", "k",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]], "<"}]],ExpressionUUID->
|
|
"835bfde2-cb06-4ffc-aba0-088717793721"],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Alpha]", "<",
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
|
|
RowBox[{"8", " ", "k",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
|
|
"17fe35ea-8493-4e32-a6d6-753128e5effa"],
|
|
", which is the common situation because it means launch successfully \
|
|
propability is above zero and below one.",
|
|
StyleBox["\ne = ",
|
|
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]",
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"e53298fb-dfb0-4c1e-8489-7f2904c8df68"],
|
|
StyleBox[", that ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
FractionBox["\[Psi]",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"2bed71fa-1616-426c-b4c3-762b0cbfba63"],
|
|
StyleBox[", where ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Psi]", "=",
|
|
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]"}]}],
|
|
StyleBox["=",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
RowBox[{
|
|
RowBox[{
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
SuperscriptBox[
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "d"}], ")"}],
|
|
FontColor->RGBColor[1, 0, 0]], "2"]}], "-",
|
|
RowBox[{"8", "\[Alpha]k",
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "4", "\[Theta]"}]}]}]}]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"49776d69-4fbd-4364-9518-63f7bc6a5ea2"],
|
|
StyleBox["\n\nr = ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Beta]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox["\[Psi]",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}], ")"}]}]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"5ec3f8f2-404c-4536-9f03-680cb099e852"],
|
|
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->
|
|
"5f130771-d3de-4941-8757-a4649cca2cda"],
|
|
StyleBox[",\nl = ",
|
|
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[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]],
|
|
CellChangeTimes->{
|
|
3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"d90d1b1b-9006-4cea-ae2d-a947585119e9"],
|
|
StyleBox[" = ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
StyleBox["\[Psi]",
|
|
FontColor->RGBColor[0, 0, 1]], "-",
|
|
RowBox[{"8", "\[Theta]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]],
|
|
CellChangeTimes->{
|
|
3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"44e8d26a-fde4-4460-943e-ded02b199409"]
|
|
}], "Text",
|
|
CellChangeTimes->{
|
|
3.861053834379322*^9, {3.861053871833085*^9, 3.861053885847558*^9}, {
|
|
3.861053996601655*^9, 3.861054068112754*^9}, {3.861054136147478*^9,
|
|
3.861054202840315*^9}, {3.861054401436378*^9, 3.861054409479253*^9}, {
|
|
3.8610550163752213`*^9, 3.8610550356686907`*^9}, {3.861681662207465*^9,
|
|
3.861681662531735*^9}, {3.861681741087111*^9,
|
|
3.8616817747970552`*^9}},ExpressionUUID->"2143614c-c3ce-4101-86b0-\
|
|
1320831aec67"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitv"], "Input",
|
|
CellChangeTimes->{{3.861353419196454*^9, 3.861353423918604*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"3f8b77b4-6f85-44fd-9f86-b7981374d3b8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cv"}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"],
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8613534247261057`*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"cd2f624c-addb-47a2-bdb7-734901923b0f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%8", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[9]:=",ExpressionUUID->"e70dfba0-e6b8-484e-9632-92e019efa6f7"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"256", " ", "cv", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "-",
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"192", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861353427788968*^9},
|
|
CellLabel->"Out[9]=",ExpressionUUID->"ca11a152-0ad6-4327-b403-30fbfe00b3e9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profits"], "Input",
|
|
CellChangeTimes->{{3.861353431491354*^9, 3.861353434527341*^9}},
|
|
CellLabel->"In[10]:=",ExpressionUUID->"813820e9-6a51-4692-9548-70b61d633772"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861353435091346*^9},
|
|
CellLabel->"Out[10]=",ExpressionUUID->"aefd998e-ebdb-4c36-9da6-5f9dd3bf0c8c"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%10", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[11]:=",ExpressionUUID->"e3727321-eab2-4c52-a48f-4387137a9c5f"],
|
|
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"128", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
FontColor->RGBColor[1, 0, 0]]], "Input",
|
|
CellChangeTimes->{3.865107921414369*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"455c0cc9-0af5-4347-9a08-4e148968e3cc"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"CS", ":=",
|
|
RowBox[{
|
|
FractionBox["1", "8"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}]}]], "Input",
|
|
CellChangeTimes->{{3.861353493890038*^9, 3.861353532162258*^9}},
|
|
CellLabel->"In[12]:=",ExpressionUUID->"45079712-60e6-48bc-bea8-cdb81844b220"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"SW", ":=",
|
|
RowBox[{"Profits", "+", "Profitv", "+", "CS"}]}]], "Input",
|
|
CellChangeTimes->{{3.86135353494991*^9, 3.8613535573792973`*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"ec4d27a4-c612-4690-ae14-f5ef0c50597c"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["SW"], "Input",
|
|
CellChangeTimes->{{3.861353560803957*^9, 3.8613535623481417`*^9}},
|
|
CellLabel->"In[14]:=",ExpressionUUID->"cb1060f5-09d1-4904-a27c-a324a93d5e7f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "cv", "+",
|
|
RowBox[{
|
|
FractionBox["1", "8"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"],
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861353562771101*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"15096e73-c132-4c14-b623-9c61540ee7d6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%14", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[15]:=",ExpressionUUID->"b2add1d5-795a-4595-b53c-4abca009bf8b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"12", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["g", "2"]}]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "-",
|
|
RowBox[{"16", " ", "cv", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"16", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"3", " ", "g", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "\[Theta]"}], "-",
|
|
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "g", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
"-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.861353566655361*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"0db542f0-a269-4a73-899a-163af2aa703e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"+",
|
|
FractionBox["1", "8"]}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"],
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "\[Alpha]",
|
|
" ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "\[Alpha]",
|
|
" ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}],
|
|
"]"}]], "Input",
|
|
CellChangeTimes->{{3.8616835691416273`*^9, 3.861683583519001*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"f3b530fb-b9e0-4336-9293-173d11ff059f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"12", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["g", "2"]}]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+",
|
|
RowBox[{"16", " ", "cs", " ", "g", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"16", " ", "\[Theta]"}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "-",
|
|
RowBox[{"3", " ", "g"}], "-",
|
|
RowBox[{"12", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "g", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.8616835846540527`*^9},
|
|
CellLabel->"Out[13]=",ExpressionUUID->"6fdbf553-3a0b-4a95-afd9-4e0460a33a42"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[{
|
|
StyleBox["Derivation of the sensitivity analysis for Model NG. How ",
|
|
"Chapter"],
|
|
StyleBox["d,k,\[Theta] ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" and will affect these optimal decisions:", "Chapter"]
|
|
}], "Text",
|
|
CellChangeTimes->{{3.8612482456430283`*^9, 3.861248286696662*^9}, {
|
|
3.861313192952869*^9,
|
|
3.861313222945232*^9}},ExpressionUUID->"6de44d36-1a9f-407a-8ca0-\
|
|
c6e05d0b2d96"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
|
|
")"}]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"r", ":=",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
|
|
")"}]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"l", ":=",
|
|
FractionBox[
|
|
RowBox[{"p", "+",
|
|
RowBox[{"d", " ", "p"}], "-",
|
|
SuperscriptBox["p", "2"], "-",
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
"2"]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"p", ":=",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profitv", ":=",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"256", " ", "cv", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "-",
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"192", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Profits", ":=",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"128", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "g", " ", "k", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"CS", ":=",
|
|
RowBox[{
|
|
FractionBox["1", "8"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"SW", ":=",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"12", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["g", "2"]}]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "-",
|
|
RowBox[{"16", " ", "cv", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"16", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"3", " ", "g", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "\[Theta]"}], "-",
|
|
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "g", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
"-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
|
|
CellChangeTimes->{{3.8613533191881237`*^9, 3.8613533536643343`*^9}, {
|
|
3.86135345230765*^9, 3.861353480004467*^9}, {3.861353512566572*^9,
|
|
3.86135351321592*^9}, {3.861353574636325*^9, 3.8613535775427094`*^9}},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"e5194063-fb56-4f74-b6b3-f1d67e6f6956"],
|
|
|
|
Cell[TextData[StyleBox["d", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9},ExpressionUUID->"cf454cf4-5b9f-44b6-96e4-\
|
|
c423ce4ff10d"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861353590774642*^9, 3.861353593876211*^9}},
|
|
CellLabel->"In[16]:=",ExpressionUUID->"550d00d2-bb1a-49c5-b8bd-130f4322ca39"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613535954975452`*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"76cd7e8c-669a-464c-8a8c-45a89cd5cd2b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[17]:=",ExpressionUUID->"8bc0f865-3930-43dd-ad0c-1a905e8b772b"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}],
|
|
RowBox[{"8", " ", "k"}]]], "Output",
|
|
CellChangeTimes->{3.8613535979991913`*^9},
|
|
CellLabel->"Out[17]=",ExpressionUUID->"d203b0ff-2b1d-4891-aac5-5374fb45dff9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8613536121054153`*^9, 3.861353616751729*^9}},
|
|
CellLabel->"In[18]:=",ExpressionUUID->"4bd7ceef-da59-4f6f-b35c-18eac6c56af3"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613536174231367`*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"0abc7e9a-073d-478b-bc48-1df7179ba03d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[19]:=",ExpressionUUID->"a33bb8fe-cfae-4005-89ef-db225cf8d236"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"8", " ", "k"}]]}]], "Output",
|
|
CellChangeTimes->{3.861353619447398*^9},
|
|
CellLabel->"Out[19]=",ExpressionUUID->"60450297-f20d-4bf6-8774-cc9e54cd789d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861353637969092*^9, 3.8613536424970903`*^9}},
|
|
CellLabel->"In[20]:=",ExpressionUUID->"4b05c590-f011-40e7-b1b1-351c210ae0ec"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{3.861353643710033*^9},
|
|
CellLabel->"Out[20]=",ExpressionUUID->"c38d7651-0373-420b-ba91-a31a2b9555c8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
|
|
|
|
NumberMarks->False,
|
|
CellLabel->"In[21]:=",ExpressionUUID->"f5fa0492-0741-4c08-9be8-09ce086963ec"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}],
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}]]], "Output",
|
|
CellChangeTimes->{3.861353646346902*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"2a807453-a6f3-4083-8e39-01776e2840d1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861353660832643*^9, 3.8613536690207243`*^9}},
|
|
CellLabel->"In[22]:=",ExpressionUUID->"eaa665c0-43a2-464c-a11b-2cb94fb46778"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["1", "2"]], "Output",
|
|
CellChangeTimes->{3.8613536704580812`*^9},
|
|
CellLabel->"Out[22]=",ExpressionUUID->"f574e767-8a0e-40da-ae8e-0c41ad3cb4c9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861353675367622*^9, 3.861353683467754*^9}},
|
|
CellLabel->"In[23]:=",ExpressionUUID->"cdf6521c-4281-428a-bc90-b36e3e6ee050"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "4"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
|
|
" ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.861353684099291*^9},
|
|
CellLabel->"Out[23]=",ExpressionUUID->"63ecc6b5-60c4-47bc-a466-4f718d08f0fb"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%23", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[24]:=",ExpressionUUID->"416d62ea-1630-4661-81cd-fc26c28e7ee2"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
StyleBox[
|
|
RowBox[{"8", " ", "g", " ", "k"}],
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["+",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"32", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Input",
|
|
CellChangeTimes->{3.861353720357052*^9},
|
|
CellLabel->"Out[24]=",ExpressionUUID->"a844b7e3-fed0-4f86-a6e2-f73364f29d90"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861353737085981*^9, 3.861353738420162*^9}},
|
|
CellLabel->"In[25]:=",ExpressionUUID->"5d594ada-da6c-4978-92fe-68335fb410c2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Theta]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.86135373957155*^9},
|
|
CellLabel->"Out[25]=",ExpressionUUID->"d3017130-8c5d-4568-82db-1f65ef990880"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%25", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[26]:=",ExpressionUUID->"2d7becb3-04bd-45d6-a5f6-173f1844dee5"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
|
|
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
StyleBox[
|
|
RowBox[{"1", "+", "g"}],
|
|
FontColor->RGBColor[1, 0, 0]], ")"}], " ", "k", " ", "\[Alpha]"}],
|
|
"-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"64", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Input",
|
|
CellChangeTimes->{3.8613537517881737`*^9},
|
|
CellLabel->"Out[26]=",ExpressionUUID->"0ad29fd8-4da4-4ea1-ada6-9c6d55f93d71"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"CS", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612486502431192`*^9, 3.861248653478381*^9}},
|
|
CellLabel->"In[27]:=",ExpressionUUID->"3f42152b-ffb1-4ab6-a2d3-e5e44b8f26ff"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "4"]], "Output",
|
|
CellChangeTimes->{3.8613537706211557`*^9},
|
|
CellLabel->"Out[27]=",ExpressionUUID->"8693630f-75eb-4e25-a5b4-0c8f91d25f5a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861248637509153*^9, 3.8612486403131037`*^9}},
|
|
CellLabel->"In[28]:=",ExpressionUUID->"a8a62fc7-b5db-41fb-a541-b0f40a046adb"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "4"], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Theta]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "4"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
|
|
" ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "2"], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+",
|
|
FractionBox["d", "2"], "+",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "-",
|
|
FractionBox["\[Alpha]", "2"], "-",
|
|
FractionBox[
|
|
RowBox[{"d", " ", "\[Alpha]"}], "2"]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.8613537800684032`*^9},
|
|
CellLabel->"Out[28]=",ExpressionUUID->"2cdb4f37-9c95-4318-b97a-60d2d4c3fe26"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%28", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[29]:=",ExpressionUUID->"2d767c24-657d-42b4-a00c-e79221c777b1"],
|
|
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"64", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"2", "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}],
|
|
")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
|
|
FontColor->RGBColor[1, 0, 0]]], "Input",
|
|
CellChangeTimes->{3.861353816954146*^9},
|
|
CellLabel->"Out[29]=",ExpressionUUID->"725a669f-0ada-4972-96ca-3a6b13bc3135"],
|
|
|
|
Cell[TextData[StyleBox["k", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9, {3.861249011919739*^9,
|
|
3.861249013901259*^9}},ExpressionUUID->"398b4578-cc32-4d08-89db-\
|
|
6cd377df0c95"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249028324807*^9, 3.861249033275959*^9}},
|
|
CellLabel->"In[30]:=",ExpressionUUID->"6aa9bb15-3fa3-4f9e-9e94-3ecc6ee5e3e6"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{3.861353831350944*^9},
|
|
CellLabel->"Out[30]=",ExpressionUUID->"15b4ee9c-ffd4-457c-927b-8e55dc5519b4"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[31]:=",ExpressionUUID->"f34d2087-3365-434e-b52c-a5a34c81e3b7"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
StyleBox[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"]}]]}],
|
|
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
|
|
StyleBox[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "k"}], "]"}],
|
|
FontColor->RGBColor[1, 0, 0]]}], "Input",
|
|
CellChangeTimes->{{3.86135384307349*^9, 3.86135385516286*^9}},
|
|
CellLabel->"In[32]:=",ExpressionUUID->"bcb15edc-4bc2-4a77-9b76-e3d22e152eb2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861353856154168*^9},
|
|
CellLabel->"Out[32]=",ExpressionUUID->"b99005ea-889c-4ca1-b416-7c05915c3e0e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "\[Alpha]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"2", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{3.86135385615812*^9},
|
|
CellLabel->"Out[33]=",ExpressionUUID->"e48a765a-71e9-4e32-9b7e-b4066d11932e"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "\[Alpha]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"2", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[34]:=",ExpressionUUID->"7f333e4d-46b8-4388-86b5-a9e1832bebab"],
|
|
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"]}]],
|
|
FontColor->RGBColor[1, 0, 0]]], "Input",
|
|
CellChangeTimes->{3.861353863703122*^9},
|
|
CellLabel->"Out[34]=",ExpressionUUID->"0fa1559b-3036-4944-9c32-6605aafec552"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861353867765656*^9, 3.861353872623465*^9}},
|
|
CellLabel->"In[35]:=",ExpressionUUID->"1a8a909f-f584-44bf-a589-2b2cb8729bff"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{3.861353873909151*^9},
|
|
CellLabel->"Out[35]=",ExpressionUUID->"bf6fe457-6b8b-402b-9b5a-e4d47fb621f4"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
|
|
|
|
NumberMarks->False,
|
|
CellLabel->"In[36]:=",ExpressionUUID->"fc2d6192-10b3-4396-b2b2-d08f7654fc3c"],
|
|
|
|
Cell[BoxData[
|
|
StyleBox[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
|
|
FontColor->RGBColor[1, 0, 0]]], "Input",
|
|
CellChangeTimes->{3.861353887124354*^9},
|
|
CellLabel->"Out[36]=",ExpressionUUID->"29e46bef-f7b1-409c-9ee9-890ac0253ba0"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8613539403694763`*^9, 3.861353944959594*^9}},
|
|
CellLabel->"In[37]:=",ExpressionUUID->"49500460-af10-4ca9-9b1c-d7685481f0f8"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861353946198331*^9},
|
|
CellLabel->"Out[37]=",ExpressionUUID->"5810e274-2b5b-4918-80af-09cab2901e6a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8613539547292*^9, 3.861353962241681*^9}},
|
|
CellLabel->"In[38]:=",ExpressionUUID->"b62da1b9-5f3c-4c19-97f4-4ca04ad68404"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "\[Alpha]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"2", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.8613539631979723`*^9},
|
|
CellLabel->"Out[38]=",ExpressionUUID->"57a65512-3944-419d-9a90-b46f7e14d0b9"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%38", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[39]:=",ExpressionUUID->"5faaf32d-7da4-4ff9-bf89-ea31dd4a57d9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox["1",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "64"}], " ",
|
|
StyleBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], "2"],
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[
|
|
SuperscriptBox["k", "2"],
|
|
FontColor->RGBColor[1, 0, 0]]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}],
|
|
")"}]}]], "Input",
|
|
CellChangeTimes->{3.861353978714225*^9},
|
|
CellLabel->"Out[39]=",ExpressionUUID->"68cad228-f1c3-4660-a3f8-9d505b5808c5"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"y2", ":=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-",
|
|
RowBox[{"8", " ", "k", " ", "\[Alpha]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+",
|
|
RowBox[{"16", "\[Alpha]", " ", "k",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-",
|
|
RowBox[{"8", " ", "k", " ", "\[Alpha]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "64"}], " ",
|
|
StyleBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], "2"],
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[
|
|
SuperscriptBox["k", "2"],
|
|
FontColor->RGBColor[1, 0, 0]]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}],
|
|
")"}]}]}], "\[IndentingNewLine]", "y2"}], "Input",
|
|
CellChangeTimes->{{3.861832202576578*^9, 3.861832235078733*^9}},
|
|
CellLabel->"In[22]:=",ExpressionUUID->"57138407-0bfa-4565-9b56-be09fba66ffc"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "+",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"16", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "-",
|
|
RowBox[{
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "64"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], "2"], " ",
|
|
SuperscriptBox["k", "2"]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}]], "Output",\
|
|
|
|
CellChangeTimes->{3.861832236080944*^9},
|
|
CellLabel->"Out[23]=",ExpressionUUID->"82a02212-0972-4145-b0d4-1bd33a1643cc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%23", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[24]:=",ExpressionUUID->"213ac6d8-7b47-45e9-95b9-4121ddbfe04b"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861832237742505*^9},
|
|
CellLabel->"Out[24]=",ExpressionUUID->"b57c7e9a-ceae-4a26-b031-fe5143ba8885"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8613539839347267`*^9, 3.861353992434057*^9}},
|
|
CellLabel->"In[40]:=",ExpressionUUID->"ea190eeb-734c-45cf-9738-10d4ae471c0d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"],
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861353993364915*^9},
|
|
CellLabel->"Out[40]=",ExpressionUUID->"074e8a40-7e00-4259-8e03-95a667a18aa5"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%40", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[41]:=",ExpressionUUID->"f07b7b5f-f2a2-4a40-b9f2-d68c698e20a4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
SuperscriptBox["g", "2"]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"\[Alpha]", "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}
|
|
]}]}]], "Output",
|
|
CellChangeTimes->{3.861353996095647*^9},
|
|
CellLabel->"Out[41]=",ExpressionUUID->"e01df94a-3d85-410a-9f38-1bec9df1e4a8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"y1", ":=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-",
|
|
RowBox[{"8", " ", "k", " ", "\[Alpha]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+",
|
|
RowBox[{"16", "\[Alpha]", " ", "k",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"]}], " ", "-",
|
|
RowBox[{"8", " ", "k", " ", "\[Alpha]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", "\[Alpha]", " ", "k"}]}], ")"}]}], "-",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
SuperscriptBox["g", "2"]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"\[Alpha]", "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}],
|
|
")"}]}]}], "\[IndentingNewLine]", "y1"}], "Input",
|
|
CellChangeTimes->{{3.861831761123672*^9, 3.861831823474901*^9}, {
|
|
3.861831860292506*^9, 3.861831863527515*^9}, {3.861831900790147*^9,
|
|
3.8618319443719387`*^9}, {3.861831980109166*^9, 3.861831986667197*^9}, {
|
|
3.861832100272862*^9, 3.861832107131427*^9}},
|
|
CellLabel->"In[19]:=",ExpressionUUID->"0e4326d0-dd5c-4b49-af7e-3ccc248ead81"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
SuperscriptBox["g", "2"]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "+",
|
|
RowBox[{"2", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"], "+",
|
|
RowBox[{"16", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"\[Alpha]", "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}],
|
|
"2"]}]], "Output",
|
|
CellChangeTimes->{
|
|
3.86183183119554*^9, 3.861831865417286*^9, {3.8618319026367064`*^9,
|
|
3.861831922314452*^9}, 3.861831957298853*^9, 3.861831991809099*^9,
|
|
3.861832108241859*^9},
|
|
CellLabel->"Out[20]=",ExpressionUUID->"cec7f8b9-fa26-4c1a-89fa-aae25c6d7d6d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%20", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[21]:=",ExpressionUUID->"54668963-aa10-4029-9fe1-391a0c332e1a"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861832109979171*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"bc137c7e-514b-497f-8675-e32e749ba22a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"CS", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861354032511303*^9, 3.861354037970663*^9}},
|
|
CellLabel->"In[42]:=",ExpressionUUID->"587eb989-5c51-42eb-9e1c-2ce5616d181a"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861354038632864*^9},
|
|
CellLabel->"Out[42]=",ExpressionUUID->"e4e40901-b6c0-43ce-add2-4e6cb7a050f6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "k"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861354040537871*^9, 3.8613540433942537`*^9}},
|
|
CellLabel->"In[43]:=",ExpressionUUID->"a08f0fc8-520c-466f-ac7a-bca91d71314b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], "2"],
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "\[Alpha]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"2", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"8", "-",
|
|
RowBox[{"8", " ", "g"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861354044144536*^9},
|
|
CellLabel->"Out[43]=",ExpressionUUID->"e6a9776f-7afe-446d-8918-e43c83677e36"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%43", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[44]:=",ExpressionUUID->"62c9690a-d64c-481b-ac14-d049de91c35c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"12", " ",
|
|
SuperscriptBox["d", "3"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-",
|
|
RowBox[{"2", " ", "g"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["g", "2"]}]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"12", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
|
|
RowBox[{"6", " ", "\[Alpha]", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
|
|
RowBox[{"6", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"\[Alpha]", "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861354047771679*^9},
|
|
CellLabel->"Out[44]=",ExpressionUUID->"2b1abee9-360d-4044-a946-72a7daf42631"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9, {3.861249019985586*^9,
|
|
3.861249022197942*^9}},ExpressionUUID->"1b14e7ff-49bb-4dce-8ade-\
|
|
c988a9245473"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861354068198099*^9, 3.861354074231593*^9}},
|
|
CellLabel->"In[45]:=",ExpressionUUID->"70970e28-798c-457d-bb81-efa6a0bc5c14"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613540751926603`*^9},
|
|
CellLabel->"Out[45]=",ExpressionUUID->"28243852-74fc-471b-86bb-bced4d930fcc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[46]:=",ExpressionUUID->"0d68f339-d23a-44f8-83a2-2c2544b89fe0"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["1",
|
|
RowBox[{"4", " ", "k"}]]], "Output",
|
|
CellChangeTimes->{3.861354077693679*^9},
|
|
CellLabel->"Out[46]=",ExpressionUUID->"d967861a-83eb-4aea-8688-ed75124e747b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861251434245288*^9, 3.861251440854623*^9}},
|
|
CellLabel->"In[47]:=",ExpressionUUID->"416165c8-b03d-4a65-afbb-7ad96c162560"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox["\[Beta]",
|
|
RowBox[{"4", " ", "k"}]]}]], "Output",
|
|
CellChangeTimes->{3.86135408748772*^9},
|
|
CellLabel->"Out[47]=",ExpressionUUID->"aba8e5ed-c111-42c3-86db-f811920ff036"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861251449822323*^9, 3.861251461670189*^9}},
|
|
CellLabel->"In[48]:=",ExpressionUUID->"bb32702c-625f-4c2b-8e80-2fbd441bf1ff"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861354095586369*^9},
|
|
CellLabel->"Out[48]=",ExpressionUUID->"df495768-6733-49ea-a93d-e8ec8848c72b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612515165075274`*^9, 3.861251520397028*^9}},
|
|
CellLabel->"In[49]:=",ExpressionUUID->"8ee8dded-5dd8-4b20-9e70-082422aa2f21"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.8613541079449863`*^9},
|
|
CellLabel->"Out[49]=",ExpressionUUID->"56531f31-e8b5-48bf-ba3e-2abd0acaf0f6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612515253354683`*^9, 3.861251540210231*^9}},
|
|
CellLabel->"In[50]:=",ExpressionUUID->"9ada0fa1-00e1-40d8-9ee9-e289424c3087"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["\[Alpha]",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{"4", " ", "k"}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{3.861354116221743*^9},
|
|
CellLabel->"Out[50]=",ExpressionUUID->"3105d690-d647-4f73-93f1-9fd5d9a50ebc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%50", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[51]:=",ExpressionUUID->"0b0ece08-c56d-4e49-9752-4bb7c9a199c5"],
|
|
|
|
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", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613541187426453`*^9},
|
|
CellLabel->"Out[51]=",ExpressionUUID->"b605331b-d890-4db8-96c8-800fde119437"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"CS", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8613541825452747`*^9, 3.861354186817088*^9}},
|
|
CellLabel->"In[52]:=",ExpressionUUID->"0fb77a65-9b0e-4f84-984c-d76140105b88"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.8613541879820127`*^9},
|
|
CellLabel->"Out[52]=",ExpressionUUID->"1936430e-9d32-4a29-a5b0-638a1c42cc9c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861354189584564*^9, 3.861354192714037*^9}},
|
|
CellLabel->"In[53]:=",ExpressionUUID->"7ebb7455-a275-4438-8a52-3ed6cd402d53"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Theta]"}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{"4", " ", "k"}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d"}], "2"], "+",
|
|
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", " ", "g", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], ")"}]}]}],
|
|
"-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
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]", "+",
|
|
RowBox[{"g", " ", "\[Alpha]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
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[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{3.861354193867628*^9},
|
|
CellLabel->"Out[53]=",ExpressionUUID->"adc4f297-730c-42f7-8188-1527b6d03ecf"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%53", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[54]:=",ExpressionUUID->"6d30cde9-a0fe-4da3-9e2f-ef995dc6cd9f"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"8", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"4", "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+", "g"}], ")"}], " ", "\[Alpha]"}]}], ")"}]}],
|
|
"+",
|
|
RowBox[{"3", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
RowBox[{"32", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861354197237681*^9},
|
|
CellLabel->"Out[54]=",ExpressionUUID->"75a5e559-d1b9-41d3-bd5b-b2687db99cbc"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[StyleBox["g", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9, {3.861249019985586*^9, 3.861249022197942*^9}, {
|
|
3.861773217824276*^9,
|
|
3.8617732191058064`*^9}},ExpressionUUID->"19dee3ef-b9ac-4566-b9da-\
|
|
e312d947091b"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861773221325624*^9, 3.86177322375537*^9}},
|
|
CellLabel->"In[9]:=",ExpressionUUID->"5d7e1862-8df1-4f58-ad07-eb5df67ce89e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox["\[Alpha]",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{3.861773224351654*^9},
|
|
CellLabel->"Out[9]=",ExpressionUUID->"a41e104d-0506-4960-ae1b-240e86d1a696"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.86177323317243*^9, 3.861773236125758*^9}},
|
|
CellLabel->"In[10]:=",ExpressionUUID->"0f72b0bb-e77a-4743-8e8e-ad7dedbdd627"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Beta]"}],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8617732367267933`*^9},
|
|
CellLabel->"Out[10]=",ExpressionUUID->"463e07ec-b3b1-4ca3-ae46-5dce9a993140"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861773238837881*^9, 3.861773251879117*^9}},
|
|
CellLabel->"In[11]:=",ExpressionUUID->"1f2226d6-edb2-44ec-a602-354319cfdbe7"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"k", " ", "\[Alpha]"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
|
|
CellChangeTimes->{3.86177325250294*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"fe335262-9fc7-4549-9e8b-f59d96273f79"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8617732602002563`*^9, 3.861773262582962*^9}},
|
|
CellLabel->"In[12]:=",ExpressionUUID->"51aa1fb5-f8b1-47ca-8dd3-dea504913172"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861773263127344*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"cfc83569-ff2b-4d68-a53b-c3120fa1d8be"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8617732644603558`*^9, 3.8617732714743013`*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"91343714-a691-4a9f-b31d-812c1366bc4e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"128", " ", "cs", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "d", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["d", "2"], " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\
|
|
|
|
CellChangeTimes->{3.861773272087201*^9},
|
|
CellLabel->"Out[13]=",ExpressionUUID->"58dfdadd-613e-4dec-828c-18ee1e4e22c9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"128", " ", "cs", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "d", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["d", "2"], " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[14]:=",ExpressionUUID->"de2fa53d-4388-4aa1-a6eb-e78f37cc2943"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861773274736067*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"900ff46a-61f5-42ba-bb57-1b03651c60c3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861773277829068*^9, 3.861773291817732*^9}},
|
|
CellLabel->"In[15]:=",ExpressionUUID->"54f0ec40-f8b1-4d7a-b294-0cc5999e92b4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "d", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["d", "2"], " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\
|
|
|
|
CellChangeTimes->{3.86177329254453*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"a613999b-2aff-4c0a-b478-8c78156b865b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "d", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["d", "2"], " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[16]:=",ExpressionUUID->"f670d3d2-2a17-4518-997c-e6d03a1734e2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
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", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "g"}], ")"}], " ", "k", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.8617733014368563`*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"8c380769-0c43-4d9d-b5c5-f0fa403574a9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861773306562605*^9, 3.861773313581609*^9}},
|
|
CellLabel->"In[17]:=",ExpressionUUID->"25f3675b-fab0-410f-9ed6-eb2c932d3e4d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "96"}], " ", "d", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"48", " ",
|
|
SuperscriptBox["d", "2"], " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+",
|
|
RowBox[{"6", " ", "g"}]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"16", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.861773314185585*^9},
|
|
CellLabel->"Out[17]=",ExpressionUUID->"31ed8424-621d-4755-98da-9be26bde4eb7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "96"}], " ", "d", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"48", " ",
|
|
SuperscriptBox["d", "2"], " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
|
|
|
|
RowBox[{"64", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+",
|
|
RowBox[{"6", " ", "g"}]}], ")"}], " ",
|
|
SuperscriptBox["k", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"16", " ", "k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"16", " ", "cs", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[18]:=",ExpressionUUID->"c56beaa8-6c54-4f50-b44a-cac8c9a988f6"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"8", " ", "k"}], "-",
|
|
RowBox[{"24", " ", "g", " ", "k"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861773316436969*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"a28169e3-ec8a-4bfd-b78e-3c903a8d70fe"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
RowBox[{
|
|
StyleBox[".2", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["When", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["the", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["contract", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["launch", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["price", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["is", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["the", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["acceptal", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["price", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["for", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[" ", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
RowBox[{
|
|
StyleBox["VM", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox[":", "Chapter",
|
|
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}]}]}]], "Input",
|
|
CellChangeTimes->{{3.861681707830474*^9, 3.861681708192264*^9}, {
|
|
3.8616818081290207`*^9,
|
|
3.861681834804942*^9}},ExpressionUUID->"78983380-eb6c-454d-8fe3-\
|
|
57374fe2677a"],
|
|
|
|
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[{
|
|
RowBox[{"(",
|
|
RowBox[{"r", "-", "g"}], ")"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]}], "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.861053217212502*^9,
|
|
3.8610532211473427`*^9}, {3.861053508740391*^9, 3.861053513902051*^9}, {
|
|
3.861053550374921*^9, 3.861053555031969*^9}, {3.861053657633584*^9,
|
|
3.861053681512178*^9}},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"1d339ec5-1990-4d2e-a561-6eca806bdc8e"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"r", ":=",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]}], "Input",
|
|
CellChangeTimes->{{3.86168432677932*^9, 3.861684327337453*^9}},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"2e339dc4-0781-44a4-b6f3-12cb4a0fe9b9"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"Profitv", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8616818904846277`*^9, 3.861681906956009*^9}},
|
|
CellLabel->"In[5]:=",ExpressionUUID->"35b3532f-11e2-4e17-b29d-6d8e29f904fd"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"l", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
|
|
FractionBox["\[Theta]", "k"], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"cv", "-",
|
|
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
SqrtBox["k"]]}],
|
|
RowBox[{
|
|
FractionBox["1", "k"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
|
|
FractionBox[
|
|
SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"l", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
|
|
FractionBox["\[Theta]", "k"], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "+",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"cv", "-",
|
|
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
SqrtBox["k"]]}],
|
|
RowBox[{
|
|
FractionBox["1", "k"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
|
|
FractionBox[
|
|
SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}]}], "}"}]], "Output",\
|
|
|
|
CellChangeTimes->{3.8616819077879143`*^9},
|
|
CellLabel->"Out[5]=",ExpressionUUID->"7c308161-9cb2-4d68-95d4-35606c30806a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
|
|
FractionBox["\[Theta]", "k"], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "+",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"cv", "-",
|
|
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
SqrtBox["k"]]}],
|
|
RowBox[{
|
|
FractionBox["1", "k"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
|
|
FractionBox[
|
|
SuperscriptBox["\[Alpha]", "2"], "k"]}]], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861682275473695*^9, 3.86168232427803*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"7fdb0ace-f368-49ca-a53d-b45d5364e71b"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
|
|
CellChangeTimes->{3.8616822910086203`*^9, 3.861682325183996*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"c77b91b1-2681-44da-82a8-e6dee7e31514"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"l", ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Input",
|
|
CellChangeTimes->{{3.861682331059888*^9, 3.861682341286317*^9}, {
|
|
3.8616825426661863`*^9, 3.86168254287246*^9}},
|
|
CellLabel->"In[6]:=",ExpressionUUID->"47b5c540-85e5-43fc-bbc9-394454d7104f"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["e"], "Input",
|
|
CellChangeTimes->{3.8616825271743603`*^9},
|
|
CellLabel->"In[11]:=",ExpressionUUID->"e70c54c6-0160-4bc9-ae3b-579bdeed1d1a"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
RowBox[{"2", " ", "k"}]]], "Output",
|
|
CellChangeTimes->{{3.8616825285287313`*^9, 3.861682545380088*^9}},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"09dbbfb5-f600-49e5-bb98-c8d24d70d585"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{"\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
RowBox[{"2", " ", "k"}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[12]:=",ExpressionUUID->"0b3aec12-e3fb-4b9f-8b59-7592f43dc1f7"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["k"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861682550717836*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"8fd581e0-9b09-49a3-aa27-d60c98bcc235"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["k"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Input",
|
|
CellChangeTimes->{{3.861685553693561*^9, 3.861685559506888*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"b16caaa0-1166-40eb-afaf-de7d11a35f93"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitv"], "Input",
|
|
CellChangeTimes->{{3.8616836030855503`*^9, 3.861683607663855*^9}},
|
|
CellLabel->"In[14]:=",ExpressionUUID->"c053e80c-bedf-43fb-b526-a80305074031"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cv"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "k", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
|
|
"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}], "2"],
|
|
|
|
RowBox[{"4", " ", "k"}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861683608178576*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"084b32f6-ea35-404b-a2d9-ccb42aa1bffb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%14", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[15]:=",ExpressionUUID->"40f666b5-611c-4953-ae11-c7a94064bd12"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861683609998825*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"70b79de1-023e-46aa-b127-a580d8713ac7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profits"], "Input",
|
|
CellChangeTimes->{{3.861683611154293*^9, 3.861683613642522*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"ff83f48a-9d76-4591-90eb-1e4f4bd74171"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["k"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
|
|
"+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["k"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}], "-",
|
|
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8616836140277*^9, 3.861685565312327*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"f12342cf-88f6-4716-88e2-7b11e697fa91"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%8", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[9]:=",ExpressionUUID->"74de262e-ae3a-4624-b58e-2f2ac41be457"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ", "p", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cs", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8616855684393597`*^9},
|
|
CellLabel->"Out[9]=",ExpressionUUID->"8b065b1e-7cf3-4d42-9244-520bad68841c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%16", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[17]:=",ExpressionUUID->"82f16ceb-3985-45c7-abc8-31e9b6182d1f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ", "p", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"cs", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+", "r"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861683616606441*^9},
|
|
CellLabel->"Out[17]=",ExpressionUUID->"c61238d4-369b-43e7-a817-4f2a75e816bc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["k"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["k"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"k", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|