13012 lines
431 KiB
Mathematica
13012 lines
431 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[ 441093, 13003]
|
|
NotebookOptionsPosition[ 414756, 12555]
|
|
NotebookOutlinePosition[ 415164, 12572]
|
|
CellTagsIndexPosition[ 415121, 12569]
|
|
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[{"kb", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv", "-",
|
|
"cvb"}]}], "\[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", "+", "b", "-", "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"}], ")"}]}], "-",
|
|
"csb"}]}]}], "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}, {3.861055518307404*^9, 3.861055554326591*^9},
|
|
3.8610557742472477`*^9, {3.861055919099469*^9, 3.8610559217328777`*^9}, {
|
|
3.861057966952702*^9, 3.8610579706934757`*^9}},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"0a8450bf-6e8c-477c-887b-bec43298eb05"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861057987270919*^9, 3.861057996855096*^9}},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"f618d3c9-0aa9-469d-b6d8-716b016bda56"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "e", " ", "kb"}], "+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
|
|
CellChangeTimes->{3.8610579978342543`*^9},
|
|
CellLabel->"Out[4]=",ExpressionUUID->"e7a25d41-b28c-49ee-8685-a4b8cafc98d2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
|
|
CellLabel->"In[5]:=",ExpressionUUID->"eee8ae12-b33f-48b4-aafb-27e66fd27ca5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"e", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.86105801512379*^9},
|
|
CellLabel->"Out[5]=",ExpressionUUID->"6d07e6d5-3143-4777-8cd5-1805e7053d97"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}]], "Input",
|
|
CellChangeTimes->{{3.861058020918169*^9, 3.861058025580061*^9}},
|
|
CellLabel->"In[6]:=",ExpressionUUID->"c9e24fb0-b49e-41cb-a348-68790e778ba0"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profiti"], "Input",
|
|
CellChangeTimes->{{3.861058028666112*^9, 3.861058029933641*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"f6fc5614-3497-405e-9d07-2a5111ddaf3e"],
|
|
|
|
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", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861058030403159*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"8c32312e-03a9-4798-959f-8b0ae18329b7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861058031921524*^9, 3.8610580366692657`*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"bc84b579-b197-40fb-9257-3201590407ff"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"r", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.861058036976218*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"0854fa23-853a-423b-bf50-7a7581fefa89"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"r", ":=",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}]], "Input",
|
|
CellChangeTimes->{{3.861058045966938*^9, 3.861058051095303*^9}},
|
|
CellLabel->"In[9]:=",ExpressionUUID->"ed831bca-9180-4815-9958-8d7e47e8c290"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profits"], "Input",
|
|
CellChangeTimes->{{3.861058053661334*^9, 3.861058058417302*^9}},
|
|
CellLabel->"In[10]:=",ExpressionUUID->"277be849-4ca2-4b68-b8b4-608c66c3ba06"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861058058829356*^9},
|
|
CellLabel->"Out[10]=",ExpressionUUID->"d14d60cb-df6a-4fa8-a501-2ff8794f188d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
|
|
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], ")"}]}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[11]:=",ExpressionUUID->"76ff4277-0df5-45cb-b233-0ee5553ca8f9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "cs", " ", "kb"}], "-",
|
|
RowBox[{"2", " ", "csb", " ", "kb"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "l", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "+",
|
|
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb"}], "+", "l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}]}],
|
|
")"}]}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861058061843617*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"e9ff30df-af47-4de6-8941-3db047733d02"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"%", ",", "l"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861058064401333*^9, 3.861058075870428*^9}},
|
|
CellLabel->"In[12]:=",ExpressionUUID->"2f2b8316-8c7a-46a4-aa71-e50cab5a89be"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}], "+",
|
|
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}], "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb"}], "+", "l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}]}],
|
|
")"}]}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861058076640563*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"afe6c91a-5425-45ff-b78e-6dcb20c8be58"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8610580781225967`*^9, 3.861058083369733*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"5e4d266f-5548-4d69-97c4-db287c6e3686"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"l", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"p", "+",
|
|
RowBox[{"b", " ", "p"}], "+",
|
|
RowBox[{"d", " ", "p"}], "-",
|
|
SuperscriptBox["p", "2"], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"b", " ", "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.86105808392807*^9},
|
|
CellLabel->"Out[13]=",ExpressionUUID->"0b8f6ba0-32f9-4f27-8c4a-e12e01b6d299"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "cs", " ", "kb"}], "-",
|
|
RowBox[{"2", " ", "csb", " ", "kb"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "l", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d", "-", "p"}], ")"}], " ", "p"}],
|
|
"+",
|
|
RowBox[{"l", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb"}], "+", "l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}]}],
|
|
")"}]}]}], ")"}]}], ",", "p"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861058106969984*^9, 3.861058117082728*^9}},
|
|
CellLabel->"In[14]:=",ExpressionUUID->"1e50a26d-cfcd-4808-ab72-4a1d99cf542e"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d", "-",
|
|
RowBox[{"2", " ", "p"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]], "Output",
|
|
CellChangeTimes->{3.861058118234249*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"2fd3106e-4b4c-4db1-baf0-bea023ca193c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861058120413207*^9, 3.861058124909651*^9}},
|
|
CellLabel->"In[15]:=",ExpressionUUID->"629550b9-4baa-4a9c-84a5-0653d7b26e88"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"p", "\[Rule]",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{3.861058125445621*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"89faddc8-454b-485d-b11e-2a00a7431458"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"p", ":=",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->{{3.861058128365158*^9, 3.861058134777886*^9}},
|
|
CellLabel->"In[16]:=",ExpressionUUID->"69e35faa-1d8f-43f3-9905-8393992fa34c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"l", ":=",
|
|
FractionBox[
|
|
RowBox[{"p", "+",
|
|
RowBox[{"b", " ", "p"}], "+",
|
|
RowBox[{"d", " ", "p"}], "-",
|
|
SuperscriptBox["p", "2"], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"p", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"b", " ", "p", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Input",
|
|
CellChangeTimes->{{3.8610581387289886`*^9, 3.861058146001137*^9}},
|
|
CellLabel->"In[17]:=",ExpressionUUID->"91e1c1b6-2eb5-4195-bdeb-08dc5471c7fb"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["l"], "Input",
|
|
CellChangeTimes->{3.861058148459506*^9},
|
|
CellLabel->"In[18]:=",ExpressionUUID->"5daab8fa-45cd-4612-a2c0-142689f21227"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861058149019717*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"b7d34ab2-89f1-425f-815c-9d81a4c70c6b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}],
|
|
"-",
|
|
RowBox[{"2", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"2", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[19]:=",ExpressionUUID->"29b1a8fc-dd6b-42fe-9a7c-5d37c3f01e4f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861058151451569*^9},
|
|
CellLabel->"Out[19]=",ExpressionUUID->"dbabfd02-264f-4a03-ad14-1a3c309695ee"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"l", ":=",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]}]], "Input",
|
|
CellChangeTimes->{{3.861058176699623*^9, 3.861058186237854*^9}},
|
|
CellLabel->"In[20]:=",ExpressionUUID->"d60e137b-825a-47c4-881b-d20e6d03232b"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["e"], "Input",
|
|
CellChangeTimes->{3.8610581884988937`*^9},
|
|
CellLabel->"In[21]:=",ExpressionUUID->"a0f6d5d4-e9a8-489b-8238-6ebab316ef24"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"\[Theta]", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.8610581888729467`*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"4d4498b9-9dc6-44fa-aa81-293253bcb752"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%21", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[22]:=",ExpressionUUID->"7bebfa6f-1306-4e02-a571-6e28d43002d1"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861058191571783*^9},
|
|
CellLabel->"Out[22]=",ExpressionUUID->"2cb6be2d-2638-4c5f-b8c0-34d35bff31ec"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["r"], "Input",
|
|
CellChangeTimes->{3.861058193545129*^9},
|
|
CellLabel->"In[23]:=",ExpressionUUID->"ffac8ee2-5c1d-498a-b7e3-b065f986559a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"2", " ", "kb"}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "-", "\[Theta]", "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861058194235092*^9},
|
|
CellLabel->"Out[23]=",ExpressionUUID->"4c2900c4-7ac0-4254-b7fa-c4d3dc0f771d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%23", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[24]:=",ExpressionUUID->"2a2be239-6fb2-4dff-bcd8-712be0f80b2c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
|
|
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861058196612452*^9},
|
|
CellLabel->"Out[24]=",ExpressionUUID->"9df3bd3d-ce9b-4d3a-87f4-12edec3cd8b3"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
|
|
CellChangeTimes->{{3.861058218021414*^9,
|
|
3.861058218195327*^9}},ExpressionUUID->"25ab59ef-27a4-4368-8cb8-\
|
|
9991b11e587d"],
|
|
|
|
Cell[TextData[{
|
|
StyleBox["We 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", "+",
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "+",
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "+",
|
|
RowBox[{"8", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
|
|
"fda65be3-0c90-4fd7-b9df-61b16090868d"],
|
|
StyleBox[".in this paper, we consider the case with ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
" ",
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "+",
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "-",
|
|
RowBox[{"16", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "+",
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]]}], ")"}], "2"], "-",
|
|
RowBox[{"8", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]], "<"}]],ExpressionUUID->
|
|
"547d526f-449d-4d91-839e-bf50b72059de"],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Alpha]", "<",
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
|
|
RowBox[{"8", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
|
|
"ddaee437-e9e5-4a37-9411-a1ceac1c538e"],
|
|
", 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"}], "+",
|
|
StyleBox[
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
|
|
FontColor->RGBColor[0, 0, 1]], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
StyleBox[
|
|
RowBox[{"+", "2"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ",
|
|
StyleBox["g",
|
|
FontColor->RGBColor[0, 1, 0]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 1, 0]], "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]],ExpressionUUID->
|
|
"13bafa05-5d0b-4d3c-9f0e-ba12cbad4d75"],
|
|
StyleBox[", that ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
FractionBox["\[Lambda]",
|
|
RowBox[{"16", " ",
|
|
StyleBox["kb",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"dc1bb7a4-e686-45d5-971a-bc68899a2950"],
|
|
StyleBox[", where ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Lambda]", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
StyleBox[
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["-",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
|
|
FontColor->RGBColor[0, 0, 1]], "-", "\[Alpha]", "-",
|
|
RowBox[{"8", " ", "kb", " ", "\[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[
|
|
RowBox[{
|
|
StyleBox["(",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
RowBox[{
|
|
StyleBox["1",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["+",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["d",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
StyleBox["+",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]]}],
|
|
StyleBox[")",
|
|
FontColor->RGBColor[1, 0, 0]]}], "2"]}], "-",
|
|
RowBox[{"8",
|
|
StyleBox[
|
|
RowBox[{"\[Alpha]",
|
|
StyleBox["kb",
|
|
FontColor->RGBColor[0, 0, 1]]}]],
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}],
|
|
FontColor->RGBColor[0, 1, 0]]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "4", "\[Theta]"}]}]}]}]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"a48e71c6-fae7-4892-86d6-4bc125b51bf9"],
|
|
StyleBox["\n\nr = ",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
RowBox[{"\[Beta]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox["\[Lambda]",
|
|
RowBox[{"16", " ",
|
|
StyleBox["kb",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}], ")"}]}]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"7de16597-d384-4f3c-93e2-7298cb57807e"],
|
|
StyleBox[",\np =",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{" ",
|
|
RowBox[{"1", "+", "d", "+",
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]]}]}],
|
|
RowBox[{" ", "2"}]]],
|
|
CellChangeTimes->{3.861006836593441*^9},
|
|
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
|
|
"c6d47d4f-d771-4b3d-bd60-a29ccd47b0b2"],
|
|
StyleBox[",",
|
|
FontColor->RGBColor[1, 0, 0]],
|
|
"\nl=",
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
StyleBox[
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}],
|
|
FontColor->RGBColor[0, 0, 1]], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
StyleBox[
|
|
RowBox[{"-", "2"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox["b",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
FontColor->RGBColor[0, 0, 1]]}], "-", "\[Alpha]", "-",
|
|
RowBox[{"8", " ",
|
|
StyleBox["kb",
|
|
FontColor->RGBColor[0, 0, 1]],
|
|
StyleBox[" ",
|
|
FontColor->RGBColor[0, 0, 1]], "\[Alpha]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "g"}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "=",
|
|
FractionBox[
|
|
RowBox[{"\[Lambda]", "-",
|
|
RowBox[{"8", "\[Theta]",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]}]],
|
|
CellChangeTimes->{3.861056106035079*^9},ExpressionUUID->
|
|
"5610f13f-a995-4d81-8ccd-ec5fcae6d682"]
|
|
}], "Text",
|
|
CellChangeTimes->{
|
|
3.861058222961648*^9, {3.8610582762459297`*^9, 3.861058281363036*^9}, {
|
|
3.8610583438468943`*^9, 3.8610584042656612`*^9}, {3.8610584343329487`*^9,
|
|
3.861058504623004*^9}},ExpressionUUID->"66f87bcd-c228-4576-95b8-\
|
|
b9322660b621"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.8610583521907473`*^9,
|
|
3.861058372882812*^9}},ExpressionUUID->"be3bd97c-743c-4105-9583-\
|
|
40587042696b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
|
|
CellChangeTimes->{{3.861356413274641*^9,
|
|
3.861356413468384*^9}},ExpressionUUID->"f0a2ec39-f847-47f4-a186-\
|
|
5a343655ebe0"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
|
|
")"}]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"r", ":=",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
|
|
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"l", ":=",
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"p", ":=",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}],
|
|
")"}]}]}], "\[IndentingNewLine]", "Profits"}], "Input",
|
|
CellChangeTimes->{{3.8613564760910473`*^9, 3.8613565742785263`*^9}},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"f30730d2-9a2e-4755-b78b-54f23884e421"],
|
|
|
|
Cell[BoxData["Profits"], "Output",
|
|
CellChangeTimes->{3.861356577865189*^9, 3.861776362424734*^9},
|
|
CellLabel->"Out[5]=",ExpressionUUID->"6f834412-ec7b-4328-8813-ba38797027f0"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%13", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[14]:=",ExpressionUUID->"b29e0715-9f98-4a9f-9243-00d53f468372"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"128", " ", "cs", " ", "kb"}], "-",
|
|
RowBox[{"128", " ", "csb", " ", "kb"}], "+",
|
|
RowBox[{"128", " ", "cs", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
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", " ",
|
|
SuperscriptBox["b", "3"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"256", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"256", " ", "cs", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "+",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "cs", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "cs", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "kb", " ",
|
|
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"}], ")"}], " ", "kb"}], "-",
|
|
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"}], ")"}], " ", "kb"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "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", " ", "kb"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"8", " ", "kb"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.861356582099206*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"cc1200a1-a121-4ae9-a26a-5f6f2c87fc81"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Profits", ":=",
|
|
StyleBox[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"128", " ", "cs", " ", "kb"}], "-",
|
|
RowBox[{"128", " ", "csb", " ", "kb"}], "+",
|
|
RowBox[{"128", " ", "cs", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
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", " ",
|
|
SuperscriptBox["b", "3"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"256", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"16", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"256", " ", "cs", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "+",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "cs", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"16", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "cs", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "kb", " ",
|
|
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"}], ")"}], " ", "kb"}], "-",
|
|
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"}], ")"}], " ", "kb"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "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", " ", "kb"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"8", " ", "kb"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
|
|
FontColor->RGBColor[1, 0, 0]]}]], "Input",
|
|
CellChangeTimes->{{3.861776389155067*^9, 3.861776400030258*^9}},
|
|
CellLabel->"In[6]:=",ExpressionUUID->"6382a681-a1d3-463a-87e8-688bdca31b73"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profitv"], "Input",
|
|
CellChangeTimes->{{3.861356584375238*^9, 3.861356587813238*^9}},
|
|
CellLabel->"In[15]:=",ExpressionUUID->"38db2e26-d462-4de2-a518-4badb76a5848"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cv"}], "-", "cvb", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
|
|
RowBox[{"256", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356588348482*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"cd8ddd19-d241-48a3-8bba-f59bba9bd78f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%15", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[16]:=",ExpressionUUID->"a5383fac-ce9e-4ce6-baa3-615b076ad4f9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1", "256"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "256"}], " ", "cv"}], "-",
|
|
RowBox[{"256", " ", "cvb"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"16", " ", "\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"16", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"-",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.8613565910574427`*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"d50621de-27a2-4549-bdab-80f7df53e212"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Profitv", ":=",
|
|
RowBox[{
|
|
FractionBox["1", "256"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "256"}], " ", "cv"}], "-",
|
|
RowBox[{"256", " ", "cvb"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "32", " ",
|
|
"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "16", " ",
|
|
"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"16", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"-",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"]}]}],
|
|
")"}]}]}]], "Input",
|
|
CellChangeTimes->{{3.8617764180999327`*^9, 3.861776429544183*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"8f9b3669-e75f-421a-9677-68d06941dee9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"CS", ":=",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d", "+", "b", "-", "p"}], ")"}], "2"]}]}]], "Input",
|
|
CellChangeTimes->{{3.861356595981249*^9, 3.86135662427566*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"468b6f87-2585-4b79-a8ae-c09f7e451f58"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["CS"], "Input",
|
|
CellChangeTimes->{{3.861356626325097*^9, 3.8613566266247263`*^9}},
|
|
CellLabel->"In[18]:=",ExpressionUUID->"05f7334e-8205-422e-a76e-a392464982c5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}], ")"}],
|
|
"2"]}]], "Output",
|
|
CellChangeTimes->{3.861356627230669*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"bfe251d1-872a-44da-8cb5-6d16f31e8e34"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}], ")"}],
|
|
"2"]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[19]:=",ExpressionUUID->"120ef1fb-5d71-47ee-950c-de40d92b0167"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1", "8"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], "2"]}]], "Output",
|
|
CellChangeTimes->{3.861356629202142*^9},
|
|
CellLabel->"Out[19]=",ExpressionUUID->"049542f8-d4bc-4c30-abba-ca0e5cdb2841"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"SW", ":=",
|
|
RowBox[{"Profits", "+", "Profitv", "+", "CS"}]}]], "Input",
|
|
CellChangeTimes->{{3.861356630920244*^9, 3.861356646186103*^9}},
|
|
CellLabel->"In[9]:=",ExpressionUUID->"3a01fee7-aaa1-4ad3-82b6-e49f6bdbd517"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["SW"], "Input",
|
|
CellChangeTimes->{{3.8613566493966618`*^9, 3.86135665009851*^9}},
|
|
CellLabel->"In[21]:=",ExpressionUUID->"9118ad90-d7cf-49ba-8d4e-70a746218ae5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-", "cv", "-", "cvb", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}], ")"}],
|
|
"2"]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
|
|
RowBox[{"256", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8613566505702457`*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"2c10e0b3-2a40-41f3-a278-f14221e95750"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%21", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[22]:=",ExpressionUUID->"038e56d4-906f-4111-98bb-b6445609ae92"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"32", " ", "kb"}], "-",
|
|
RowBox[{"256", " ", "cs", " ", "kb"}], "-",
|
|
RowBox[{"256", " ", "csb", " ", "kb"}], "-",
|
|
RowBox[{"256", " ", "cv", " ", "kb"}], "-",
|
|
RowBox[{"256", " ", "cvb", " ", "kb"}], "+",
|
|
RowBox[{"256", " ", "cs", " ", "g", " ", "kb"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["b", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
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[{"12", " ",
|
|
SuperscriptBox["b", "3"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"6", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"80", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"512", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"512", " ", "csb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"512", " ", "cv", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"512", " ", "cvb", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"48", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"512", " ", "cs", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"48", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"256", " ", "cs", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"256", " ", "csb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"256", " ", "cv", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"256", " ", "cvb", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"48", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"256", " ", "cs", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"192", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"24", " ", "\[Theta]"}], "-",
|
|
RowBox[{"256", " ", "kb", " ", "\[Theta]"}], "-",
|
|
RowBox[{"48", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"448", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
|
|
RowBox[{"64", " ", "g", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
"+",
|
|
RowBox[{"24", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
|
|
RowBox[{"192", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "g", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"48", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"96", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"48", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"4", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "kb", " ",
|
|
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[{"4", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"8", " ", "kb", " ",
|
|
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", " ", "kb", " ",
|
|
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[{"2", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"18", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"9", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"8", " ", "kb", " ",
|
|
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.861356654186152*^9},
|
|
CellLabel->"Out[22]=",ExpressionUUID->"724c09a7-4ae2-45e0-983e-518e3434d601"]
|
|
}, 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->"8cb27f4e-3380-430b-aa45-\
|
|
4fc4bc613c10"],
|
|
|
|
Cell[TextData[StyleBox["d", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9},ExpressionUUID->"ee33dc93-4357-4f47-8ba0-\
|
|
5da45a2ccad1"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612484996040707`*^9, 3.861248503353421*^9}},
|
|
CellLabel->"In[23]:=",ExpressionUUID->"e4614b99-6dc2-404e-b449-988cccb1300c"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861356710859501*^9},
|
|
CellLabel->"Out[23]=",ExpressionUUID->"0c7110ed-789f-4c22-9be7-8ab77182587c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[24]:=",ExpressionUUID->"eb74d6e5-de8c-4050-9889-0dc99d679570"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "+", "b", "+", "d"}],
|
|
RowBox[{"8", " ", "kb"}]]], "Output",
|
|
CellChangeTimes->{3.861356713069686*^9},
|
|
CellLabel->"Out[24]=",ExpressionUUID->"d48e1c9f-bd94-4daa-8ecb-0f9b4e17330a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612485121834106`*^9, 3.861248535667307*^9}},
|
|
CellLabel->"In[25]:=",ExpressionUUID->"108f69e4-e8fe-4b04-a3c6-b11602754ae3"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613567230261993`*^9},
|
|
CellLabel->"Out[25]=",ExpressionUUID->"b9d0335a-1326-447d-b2b7-ddad2fc68dee"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[26]:=",ExpressionUUID->"ed859008-4ff8-44a8-a38a-b64162ee9756"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"8", " ", "kb"}]]}]], "Output",
|
|
CellChangeTimes->{3.861356725008906*^9},
|
|
CellLabel->"Out[26]=",ExpressionUUID->"b87658bc-0081-4b65-a787-e5d7c8ff88bc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8613567318549147`*^9, 3.8613567379311943`*^9}},
|
|
CellLabel->"In[27]:=",ExpressionUUID->"b181bf78-048d-49f8-8869-ce5c0d8b44b5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861356739027619*^9},
|
|
CellLabel->"Out[27]=",ExpressionUUID->"96a91f89-fd51-4e5f-801e-b895ea1cfa4b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[28]:=",ExpressionUUID->"f4b3e99b-9ee2-4be6-b451-43c3d488d26c"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "+", "b", "+", "d"}],
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}]]], "Output",
|
|
CellChangeTimes->{3.861356740917602*^9},
|
|
CellLabel->"Out[28]=",ExpressionUUID->"be144fa6-7037-4f0e-864e-6d484fdc859e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861248565914627*^9, 3.86124856972899*^9}},
|
|
CellLabel->"In[29]:=",ExpressionUUID->"c47430ec-1a79-4b36-a94b-543b596ae522"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["1", "2"]], "Output",
|
|
CellChangeTimes->{3.861356752087037*^9},
|
|
CellLabel->"Out[29]=",ExpressionUUID->"811e519f-ed2e-46fe-aa11-8d0c2aee9088"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861248582790799*^9, 3.861248589982791*^9}},
|
|
CellLabel->"In[30]:=",ExpressionUUID->"8c418bea-9d64-42cf-92d8-ff0dc556080f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Alpha]"}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
|
|
" ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Alpha]", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356765780061*^9},
|
|
CellLabel->"Out[30]=",ExpressionUUID->"926612ea-7e0a-41ea-a3da-72b81ad44cc2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%30", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[31]:=",ExpressionUUID->"aec2cdef-a04c-4e9f-a42d-7fca8c43a0b0"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8613567687350607`*^9},
|
|
CellLabel->"Out[31]=",ExpressionUUID->"d94ee271-7b79-4cf8-882d-2a58e7ef6f99"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612485977999077`*^9, 3.86124862532718*^9}},
|
|
CellLabel->"In[32]:=",ExpressionUUID->"24573da4-d0b0-4bff-b60e-9a487e22f76b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Alpha]"}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Theta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356780756176*^9},
|
|
CellLabel->"Out[32]=",ExpressionUUID->"0d74f5e5-9c86-41a5-9b8c-483aa5a55274"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%32", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[33]:=",ExpressionUUID->"a724888e-d30f-4952-bdba-3609d2fb501a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"64", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
|
|
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356783511971*^9},
|
|
CellLabel->"Out[33]=",ExpressionUUID->"3035dac8-5689-400a-a9b6-c277d3334ec2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"CS", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612486502431192`*^9, 3.861248653478381*^9}},
|
|
CellLabel->"In[34]:=",ExpressionUUID->"92643d81-d6a9-4ce3-a7fc-955daebbeb93"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.861356797460235*^9},
|
|
CellLabel->"Out[34]=",ExpressionUUID->"e2ee970a-129a-40d6-8a26-a8f03b008da4"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[35]:=",ExpressionUUID->"f0dd76ec-d913-4d3f-beb7-5cbff9f4f9ee"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861356802797509*^9},
|
|
CellLabel->"Out[35]=",ExpressionUUID->"fb71cb07-fb67-4e5f-8470-0bf8856708b6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "d"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861248637509153*^9, 3.8612486403131037`*^9}},
|
|
CellLabel->"In[36]:=",ExpressionUUID->"21e89bba-37e9-4161-8c6c-36a1a793808a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Theta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "4"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}],
|
|
" ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
|
|
"\[Alpha]", " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356811207056*^9},
|
|
CellLabel->"Out[36]=",ExpressionUUID->"0c73d5a3-0e20-4754-8d17-3b25d3ad88cb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%36", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[37]:=",ExpressionUUID->"fdc27e4a-df62-421a-8596-84a1c652757b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"64", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "-",
|
|
RowBox[{"16", " ", "kb"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"6", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"24", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"24", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"12", " ", "\[Theta]"}], "+",
|
|
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",\
|
|
|
|
CellChangeTimes->{3.8613568151732397`*^9},
|
|
CellLabel->"Out[37]=",ExpressionUUID->"8943f793-efb9-4084-b74d-2d85737534f1"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[StyleBox["kb", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9, {3.861249011919739*^9, 3.861249013901259*^9},
|
|
3.86135684025345*^9},ExpressionUUID->"9ae6a133-42cd-492f-a991-\
|
|
70591e145960"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249028324807*^9, 3.861249033275959*^9},
|
|
3.8613568428544903`*^9},
|
|
CellLabel->"In[39]:=",ExpressionUUID->"dfd94792-43eb-449b-bdc1-cefddd655b8a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{{3.8613568356321697`*^9, 3.8613568450958967`*^9}},
|
|
CellLabel->"Out[39]=",ExpressionUUID->"e22f94a0-f450-4fa8-90d1-35ebb20f352b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[40]:=",ExpressionUUID->"4b6d19b7-3fb2-4f23-94c6-594451cc2b59"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
SuperscriptBox["b", "2"], "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861356847178754*^9},
|
|
CellLabel->"Out[40]=",ExpressionUUID->"2d91e554-6885-4e00-a912-ae408dfcfb31"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249057645466*^9, 3.8612490686913433`*^9},
|
|
3.861356865269322*^9},
|
|
CellLabel->"In[41]:=",ExpressionUUID->"138377f0-287a-41fa-b48a-47344661fe4c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], "+",
|
|
RowBox[{"8", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356866860017*^9},
|
|
CellLabel->"Out[41]=",ExpressionUUID->"757b4211-9d0e-48ba-a65a-e290ff0b1c6e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], "+",
|
|
RowBox[{"8", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[42]:=",ExpressionUUID->"14ac3325-b4f6-489f-b870-48d3a565ff75"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
SuperscriptBox["b", "2"], "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"]}]]], "Output",
|
|
CellChangeTimes->{3.861356868669469*^9},
|
|
CellLabel->"Out[42]=",ExpressionUUID->"5520162e-a87a-4d6f-a3ee-e1b7e2ef9633"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249083926429*^9, 3.861249084910692*^9}, {
|
|
3.861249116522406*^9, 3.861249118236779*^9}, 3.861356898263054*^9},
|
|
CellLabel->"In[44]:=",ExpressionUUID->"1b7e518f-7abd-4b10-900f-1bdc7ec7481d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{{3.8613568932304897`*^9, 3.8613568990671673`*^9}},
|
|
CellLabel->"Out[44]=",ExpressionUUID->"e25e3352-8284-4e6b-8399-00e855fe7486"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[45]:=",ExpressionUUID->"89e180d3-9a1a-4194-aaf6-41a88a7925d9"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "g"}], ")"}], " ", "\[Alpha]"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
|
|
CellChangeTimes->{3.861356900939838*^9},
|
|
CellLabel->"Out[45]=",ExpressionUUID->"2d80c545-d9d8-459e-816b-f7e7e9d6fff3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249139095232*^9, 3.86124914379568*^9},
|
|
3.8613569159604673`*^9},
|
|
CellLabel->"In[46]:=",ExpressionUUID->"df85ca8b-8290-4367-9069-c7557eb6d17b"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861356916688549*^9},
|
|
CellLabel->"Out[46]=",ExpressionUUID->"402a39ad-0fbe-40ce-af8a-8b512714225e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249146429496*^9, 3.861249160423946*^9}, {
|
|
3.8613569249144783`*^9, 3.861356925839871*^9}},
|
|
CellLabel->"In[47]:=",ExpressionUUID->"9c3aceb2-4b93-41af-a538-126ae2b4e030"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], "+",
|
|
RowBox[{"8", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861356926681034*^9},
|
|
CellLabel->"Out[47]=",ExpressionUUID->"637949ee-0ca7-44e5-a7e8-79e111945205"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%47", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[48]:=",ExpressionUUID->"65349b47-2b79-45d8-99a6-acb99266a65e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
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", " ",
|
|
SuperscriptBox["b", "3"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "-",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"6", " ", "d"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356930742072*^9},
|
|
CellLabel->"Out[48]=",ExpressionUUID->"f902d2ee-4217-482d-85b4-6905f46a1984"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861249240872067*^9, 3.861249247161824*^9}, {
|
|
3.8613542357816467`*^9, 3.861354236513658*^9}, 3.861356942891773*^9},
|
|
CellLabel->"In[49]:=",ExpressionUUID->"5365007e-b2eb-45b0-adf3-a826831873a1"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356946215921*^9},
|
|
CellLabel->"Out[49]=",ExpressionUUID->"84683115-a667-4cec-9f28-316dd947bce2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%49", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[50]:=",ExpressionUUID->"e271987f-927a-4064-94bc-03a8f48df5cd"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
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", " ",
|
|
SuperscriptBox["b", "3"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"2", " ", "\[Alpha]"}], "+",
|
|
SuperscriptBox["\[Alpha]", "2"], "+",
|
|
RowBox[{"192", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"8", " ", "\[Theta]"}], "-",
|
|
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"32", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"4", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"4", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"6", " ", "d"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356948952585*^9},
|
|
CellLabel->"Out[50]=",ExpressionUUID->"11c40b45-fdcf-4cfc-b90e-045b1dc1b85c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"CS", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861356956656288*^9, 3.8613569638113956`*^9}},
|
|
CellLabel->"In[51]:=",ExpressionUUID->"7d4dc407-6e0f-41e5-9b9e-793f7b9c0be8"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861356964837748*^9},
|
|
CellLabel->"Out[51]=",ExpressionUUID->"46faedf2-fa11-4b4b-91ac-3d67c7ca36b3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "kb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861356966334242*^9, 3.861356972801148*^9}},
|
|
CellLabel->"In[52]:=",ExpressionUUID->"95e6c968-2c11-451a-ba86-d5113d6933b1"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], "+",
|
|
RowBox[{"8", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
RowBox[{"\[Theta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861356973946504*^9},
|
|
CellLabel->"Out[52]=",ExpressionUUID->"07023f6f-ffaf-4c2f-afc8-7350a347b4b8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%52", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[53]:=",ExpressionUUID->"6b5757d6-13a8-464d-802f-b828391253ca"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"256", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["b", "4"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
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[{"12", " ",
|
|
SuperscriptBox["b", "3"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
|
|
RowBox[{"6", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"64", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"192", " ",
|
|
SuperscriptBox["g", "2"], " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"24", " ", "\[Theta]"}], "-",
|
|
RowBox[{"48", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"24", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
|
|
RowBox[{"48", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "-",
|
|
RowBox[{"96", " ", "\[Alpha]", " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"48", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ",
|
|
SuperscriptBox["\[Theta]", "2"]}], "+",
|
|
RowBox[{"12", " ", "d", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"6", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"12", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "d"}], "+",
|
|
SuperscriptBox["d", "2"], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{"6", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"3", "+",
|
|
RowBox[{"6", " ", "d"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"]}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.861356978012838*^9},
|
|
CellLabel->"Out[53]=",ExpressionUUID->"7333578d-849c-439b-a8e8-968cb7776a5e"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9, {3.861249019985586*^9,
|
|
3.861249022197942*^9}},ExpressionUUID->"30c28278-3621-4d8b-b72e-\
|
|
7777b6681f41"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861251420607563*^9, 3.861251424437109*^9}},
|
|
CellLabel->"In[54]:=",ExpressionUUID->"e434c703-5beb-44d2-9df6-c127eac52c99"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861357000229702*^9},
|
|
CellLabel->"Out[54]=",ExpressionUUID->"fefe0912-8cb4-4f29-a838-8da1518f5ce1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[55]:=",ExpressionUUID->"313ea049-40a4-4f47-833f-d2d470bd48a8"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["1",
|
|
RowBox[{"4", " ", "kb"}]]], "Output",
|
|
CellChangeTimes->{3.861357001911058*^9},
|
|
CellLabel->"Out[55]=",ExpressionUUID->"3afa6a5a-2eb2-4be9-b128-99c74735f681"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861251434245288*^9, 3.861251440854623*^9}},
|
|
CellLabel->"In[56]:=",ExpressionUUID->"80376a85-0a02-4c6d-9065-712956e333d4"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861357010452581*^9},
|
|
CellLabel->"Out[56]=",ExpressionUUID->"0943f56c-761e-4339-a3bb-b34cd3dfccd6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[57]:=",ExpressionUUID->"c924c106-a9a9-40bc-acc0-a405b228fe93"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox["\[Beta]",
|
|
RowBox[{"4", " ", "kb"}]]}]], "Output",
|
|
CellChangeTimes->{3.861357012733891*^9},
|
|
CellLabel->"Out[57]=",ExpressionUUID->"a414b21a-9428-4c89-8c7d-ebe82e9fda4b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861251449822323*^9, 3.861251461670189*^9}},
|
|
CellLabel->"In[58]:=",ExpressionUUID->"a3feacfa-6b93-4a2c-bfd3-be19c32fcafa"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861357025548023*^9},
|
|
CellLabel->"Out[58]=",ExpressionUUID->"d5d95d6b-1bf9-4e2f-8d0e-abbaff79b9fa"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[59]:=",ExpressionUUID->"a14c064b-f1aa-44c6-856e-41b691290726"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["1",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613570278199787`*^9},
|
|
CellLabel->"Out[59]=",ExpressionUUID->"83c1c847-c0d9-4299-acfb-eef94327b42f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"p", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612515165075274`*^9, 3.861251520397028*^9}},
|
|
CellLabel->"In[60]:=",ExpressionUUID->"72350bbd-76e5-4044-83f9-7457269db1c8"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861357042859969*^9},
|
|
CellLabel->"Out[60]=",ExpressionUUID->"7e85be8a-452f-4694-87a2-67b1f23a7686"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8612515253354683`*^9, 3.861251540210231*^9}},
|
|
CellLabel->"In[61]:=",ExpressionUUID->"da7e988e-5d81-46ba-90d7-6c72cd11adb6"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861357052131181*^9},
|
|
CellLabel->"Out[61]=",ExpressionUUID->"bcf6eb60-a921-4a62-8140-bf7ff0935e08"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%61", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[62]:=",ExpressionUUID->"cca424de-3e4e-411b-8e1d-2a9382df8d05"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861357057587598*^9},
|
|
CellLabel->"Out[62]=",ExpressionUUID->"1b3c3069-d3d8-4928-aceb-2a07c0e96f3d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861357070330974*^9, 3.8613570882152*^9}},
|
|
CellLabel->"In[63]:=",ExpressionUUID->"88bd2559-feff-4788-a4ac-f4482f06c619"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]"}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Theta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
")"}]}]}]}]], "Output",
|
|
CellChangeTimes->{3.861357089210452*^9},
|
|
CellLabel->"Out[63]=",ExpressionUUID->"fbfdc2c0-425f-45e8-9d91-956d915a13f4"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%63", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[64]:=",ExpressionUUID->"43b952e8-fe8d-4df8-9ee4-c509326b898b"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{"32", " ", "kb"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"32", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.8613570920805693`*^9},
|
|
CellLabel->"Out[64]=",ExpressionUUID->"be50bb19-eca4-41c2-b8ad-d58295ffd01e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"CS", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861357116050982*^9, 3.8613571262955103`*^9}},
|
|
CellLabel->"In[65]:=",ExpressionUUID->"5b39a827-041f-46f0-a18b-58566c746080"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.861357127290946*^9},
|
|
CellLabel->"Out[65]=",ExpressionUUID->"c438b8a4-cdd9-41f3-bf1c-a6101c9a4d07"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "\[Theta]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.86135712920049*^9, 3.86135713595024*^9}},
|
|
CellLabel->"In[66]:=",ExpressionUUID->"02b72cc7-0d41-4ed0-9192-7484db5bb387"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Theta]"}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}]}],
|
|
")"}]}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"16", " ", "kb"}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"4", "-",
|
|
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Alpha]", " ",
|
|
"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
|
|
RowBox[{"16", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861357144922401*^9},
|
|
CellLabel->"Out[66]=",ExpressionUUID->"dbec397d-0c71-4874-b173-1d2cd17bfb83"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%66", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[67]:=",ExpressionUUID->"1cbce003-d1d9-44df-99ce-38044914034d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"32", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"32", " ", "kb"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"6", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"24", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"12", " ", "\[Theta]"}], "+",
|
|
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{3.861357148116478*^9},
|
|
CellLabel->"Out[67]=",ExpressionUUID->"65063cda-dbf6-4163-926e-32a70052fcdd"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[StyleBox["g", "Chapter"]], "Text",
|
|
CellChangeTimes->{
|
|
3.861248485984922*^9, {3.861249019985586*^9, 3.861249022197942*^9}, {
|
|
3.861776466632141*^9,
|
|
3.861776468009016*^9}},ExpressionUUID->"516de55e-a4f7-4b21-be43-\
|
|
1face100cf3e"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"e", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861776470343877*^9, 3.861776474089851*^9}},
|
|
CellLabel->"In[10]:=",ExpressionUUID->"42cdea6a-eea4-416b-bdae-6a2de84a1ca4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox["\[Alpha]",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
|
|
CellChangeTimes->{3.861776474463516*^9},
|
|
CellLabel->"Out[10]=",ExpressionUUID->"8abe4da2-a1cc-41a6-a09e-69b346d3cde7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"r", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861776493734522*^9, 3.861776495444421*^9}},
|
|
CellLabel->"In[11]:=",ExpressionUUID->"a6a9258b-8f46-49c5-9c69-b290f1cdbcf4"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Beta]"}],
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
|
|
CellChangeTimes->{3.861776495779801*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"a85fc90c-4fda-435e-a381-7fae08a60f25"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"l", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861776530826879*^9, 3.861776533786303*^9}},
|
|
CellLabel->"In[12]:=",ExpressionUUID->"069bd203-bb19-4101-8afd-388f8917d0bb"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"kb", " ", "\[Alpha]"}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
|
|
CellChangeTimes->{3.861776534166314*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"339a14a5-ba71-4d95-b2b0-7bd6d6130b77"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profitv", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861776639480749*^9, 3.86177664538519*^9}},
|
|
CellLabel->"In[13]:=",ExpressionUUID->"ff270b0f-e08c-4021-932b-10b2b551321c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1", "256"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"256", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"128", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}]], "-",
|
|
FractionBox[
|
|
RowBox[{"16", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
")"}]}]], "Output",
|
|
CellChangeTimes->{3.861776645863413*^9},
|
|
CellLabel->"Out[13]=",ExpressionUUID->"6523108d-b8ba-45e0-9b05-5b1c6c37ce35"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1", "256"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"256", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"128", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}]], "-",
|
|
FractionBox[
|
|
RowBox[{"16", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}],
|
|
"]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[14]:=",ExpressionUUID->"49f871eb-809c-4c6d-96cc-b0b48eac5cc2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"4", " ", "\[Theta]"}], "+",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861776648022336*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"268e642e-e7b7-408f-8119-4ec5ee92131d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"Profits", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861776974557291*^9, 3.861776980253496*^9}},
|
|
CellLabel->"In[15]:=",ExpressionUUID->"4c965650-4014-4bda-b168-e1668e4283ae"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"128", " ", "cs", " ", "kb"}], "+",
|
|
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["b", "2"], " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "d", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["d", "2"], " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"32", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "cs", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}]], "Output",\
|
|
|
|
CellChangeTimes->{3.861776981201847*^9},
|
|
CellLabel->"Out[15]=",ExpressionUUID->"2f804e15-f52c-4cc5-8ced-1ef397a9f2bc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%15", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[16]:=",ExpressionUUID->"38deeb00-8699-48bf-89eb-26f31ef4438d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"8", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861776983024893*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"21619674-945e-4dd4-9e25-3bbdc31e6aae"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"D", "[",
|
|
RowBox[{"SW", ",", "g"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8617772335929213`*^9, 3.861777236663371*^9}},
|
|
CellLabel->"In[17]:=",ExpressionUUID->"fcad5ba0-0a22-4c88-9ea5-d76b55406fb0"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"128", " ", "kb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"128", " ", "cs", " ", "kb"}], "+",
|
|
RowBox[{"16", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"256", " ", "cs", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["b", "2"], " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"32", " ", "d", " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox["d", "2"], " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"32", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ", "kb", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
|
|
|
|
RowBox[{"16", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "cs", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"128", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"128", " ", "g", " ",
|
|
SuperscriptBox["kb", "2"], " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "-",
|
|
RowBox[{"64", " ", "kb", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"64", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["1", "256"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"256", " ", "kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
|
|
FractionBox[
|
|
RowBox[{"128", " ", "\[Alpha]", " ", "\[Theta]"}],
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}]], "-",
|
|
FractionBox[
|
|
RowBox[{"16", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"2", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
|
|
"+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"8", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8617772375113783`*^9},
|
|
CellLabel->"Out[17]=",ExpressionUUID->"762d948f-5de1-4d6a-9857-70d479c53f9f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "%17", "]"}]], "Input",
|
|
NumberMarks->False,
|
|
CellLabel->"In[18]:=",ExpressionUUID->"dc711243-3b07-45dd-9b5f-9093a5385cc7"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"cs", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "3"}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["b", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"6", " ", "d", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["d", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"6", " ", "b", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
|
|
RowBox[{"3", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"8", " ", "kb", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"24", " ", "g", " ", "kb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"4", " ", "\[Theta]"}], "-",
|
|
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
|
|
RowBox[{"16", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{3.861777239723465*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"f8787228-afb9-41b2-8ad2-d16001277b4c"]
|
|
}, 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->"b5565c34-045e-477e-8b48-\
|
|
5fac22b612bd"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"Profitv", ":=",
|
|
RowBox[{
|
|
RowBox[{"\[Alpha]", " ", "l"}], "+",
|
|
RowBox[{"e", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
|
|
RowBox[{"kb", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv", "-",
|
|
"cvb"}]}], "\[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", "+", "b", "-", "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"}], ")"}]}], "-",
|
|
"csb"}]}]}], "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}, {3.861055518307404*^9, 3.861055554326591*^9},
|
|
3.8610557742472477`*^9, {3.861055919099469*^9, 3.8610559217328777`*^9}, {
|
|
3.8617525978023376`*^9, 3.8617526158068647`*^9}},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"2a6e0546-da13-41ba-905b-bd319021b314"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{"l", "-",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
|
|
RowBox[{"2", " ", "kb"}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"r", ":=",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "kb"}], "-", "l", "+",
|
|
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
|
|
RowBox[{"2", " ", "kb"}]]}]}], "Input",
|
|
CellChangeTimes->{{3.8610556977124453`*^9, 3.861055736241734*^9}, {
|
|
3.861055800959203*^9, 3.861055802354056*^9}, {3.861736480542513*^9,
|
|
3.861736481177373*^9}},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"b0520696-7957-4fb1-8851-3423cd0f42bf"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{
|
|
RowBox[{"Profitv", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8616818904846277`*^9, 3.861681906956009*^9}},
|
|
CellLabel->"In[6]:=",ExpressionUUID->"ee5616e8-16d7-435f-9bed-b26c1a75f5b1"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"l", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
|
|
FractionBox["\[Theta]", "kb"], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "kb"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"cv", "+", "cvb", "-",
|
|
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
SqrtBox["kb"]]}],
|
|
RowBox[{
|
|
FractionBox["1", "kb"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}], "kb"], "+",
|
|
FractionBox[
|
|
SuperscriptBox["\[Alpha]", "2"], "kb"]}]]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"l", "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
|
|
FractionBox["\[Theta]", "kb"], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "kb"], "+",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"cv", "+", "cvb", "-",
|
|
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
SqrtBox["kb"]]}],
|
|
RowBox[{
|
|
FractionBox["1", "kb"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}], "kb"], "+",
|
|
FractionBox[
|
|
SuperscriptBox["\[Alpha]", "2"], "kb"]}]]}], "}"}]}], "}"}]], "Output",\
|
|
|
|
CellChangeTimes->{3.8617526466884947`*^9},
|
|
CellLabel->"Out[6]=",ExpressionUUID->"8ecfcd63-c39e-4711-8cef-d759e41d3ed8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
|
|
FractionBox["\[Theta]", "kb"], "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "kb"], "+",
|
|
FractionBox[
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
RowBox[{"cv", "+", "cvb", "-",
|
|
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "-",
|
|
RowBox[{"2", " ", "cvb", " ", "\[Alpha]"}], "+",
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
SqrtBox["kb"]]}],
|
|
RowBox[{
|
|
FractionBox["1", "kb"], "-",
|
|
FractionBox[
|
|
RowBox[{"2", " ", "\[Alpha]"}], "kb"], "+",
|
|
FractionBox[
|
|
SuperscriptBox["\[Alpha]", "2"], "kb"]}]], "]"}]], "Input",
|
|
CellChangeTimes->{{3.861752649398416*^9, 3.8617526550953617`*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"b151cd83-dec8-474f-9f74-3f0893b2e78c"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
|
|
CellChangeTimes->{3.861752655692037*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"240c4761-754c-4bb4-8ec4-fe25ffca9914"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{"l", ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
|
|
"2"]]}], "\[IndentingNewLine]",
|
|
RowBox[{"e", ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
|
|
")"}]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"r", ":=",
|
|
FractionBox[
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
SqrtBox["kb"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
|
|
")"}]}]]}], "\[IndentingNewLine]",
|
|
RowBox[{"p", ":=",
|
|
FractionBox[
|
|
RowBox[{"1", "+", "d", "+", "b"}], "2"]}]}], "Input",
|
|
CellChangeTimes->{{3.861752673013567*^9, 3.861752704984498*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"ff6986f0-fc80-4523-bb98-e8b72f711a68"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["Profits"], "Input",
|
|
CellChangeTimes->{{3.861752706879302*^9, 3.861752709175581*^9}},
|
|
CellLabel->"In[12]:=",ExpressionUUID->"c542bd62-67dd-45f5-b3d2-541603c54ef4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "cs"}], "-", "csb", "-",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
|
|
"+",
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
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["kb"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
|
|
")"}]}]}]], "Output",
|
|
CellChangeTimes->{3.8617527100250187`*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"9b747a81-feed-4c65-a6ee-d391d8303b5b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"\[Beta]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
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["kb"]}], "+",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"cs", "+",
|
|
FractionBox[
|
|
RowBox[{"\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]",
|
|
"+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
|
|
"]"}]], "Input",
|
|
CellChangeTimes->{{3.861752764528617*^9, 3.861752765736408*^9}},
|
|
NumberMarks->False,
|
|
CellLabel->"In[14]:=",ExpressionUUID->"55b1c7df-47cf-415f-8ea2-0b469fa93ada"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"cs", " ", "g"}], "+",
|
|
FractionBox[
|
|
RowBox[{"g", " ", "\[Alpha]", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], " ", "kb", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SqrtBox["kb"], " ",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output",
|
|
CellChangeTimes->{3.861752713249011*^9, 3.861752766518169*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"e1e72ed0-a1c0-4be2-9d32-f51812371af7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{
|
|
SqrtBox["kb"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox["kb"], " ", "\[Alpha]"}], "-",
|
|
SqrtBox[
|
|
RowBox[{
|
|
RowBox[{"cv", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"cvb", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
|
|
RowBox[{"kb", " ",
|
|
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
|
|
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+", "d"}], ")"}], " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+", "b", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "-", "b", "-", "d"}], ")"}]}], "+", "d"}],
|
|
")"}]}], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
|
|