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

19915 lines
700 KiB
Mathematica
Raw Permalink Normal View History

with government
2022-06-13 21:16:40 +08:00
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 716339, 19906]
NotebookOptionsPosition[ 668555, 19135]
NotebookOutlinePosition[ 669001, 19153]
CellTagsIndexPosition[ 668958, 19150]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.860990220515719*^9, 3.86099032058632*^9}, {
3.861005206587309*^9, 3.861005231508071*^9}, {3.861005664789424*^9,
3.8610056974644327`*^9}, {3.861005732620328*^9, 3.861005738512261*^9}, {
3.8610522215142393`*^9,
3.861052221576477*^9}},ExpressionUUID->"9b1ff1e1-b0bd-4ceb-afad-\
056862778cb9"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "e"}], "]"}]], "Input",
CellLabel->"In[10]:=",ExpressionUUID->"0916fa0d-5acf-45f7-80e1-da28ca0ce138"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "e", " ", "k"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], "+", "\[Theta]"}]], "Output",
CellChangeTimes->{3.8609907836266937`*^9, 3.861005256017157*^9,
3.861005743431966*^9},
CellLabel->"Out[10]=",ExpressionUUID->"cbf25dd5-6765-472a-8ba5-284fa1c78d4f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "e"}], "]"}]], "Input",
CellLabel->"In[11]:=",ExpressionUUID->"c2d2b708-1962-403a-9501-c11ab2b438cd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"e", "\[Rule]",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.860990792988496*^9, 3.8610052587260923`*^9,
3.861005748033424*^9},
CellLabel->"Out[11]=",ExpressionUUID->"a66cdcf2-8923-42de-be01-14da1ee68fdd"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.860990795200965*^9, 3.86099081051818*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"0e218da7-3ffd-4283-8006-71376bd11634"],
Cell[CellGroupData[{
Cell[BoxData["Profiti"], "Input",
CellChangeTimes->{{3.86099134432825*^9, 3.860991350605761*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"ac8d9888-0218-46a2-9fc9-8311f8f91361"],
Cell[BoxData[
RowBox[{
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.860991353161104*^9, 3.861005264394766*^9,
3.861005753913632*^9},
CellLabel->"Out[13]=",ExpressionUUID->"56be1d8c-f246-4bd1-b90d-26a1a5e081cc"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
CellChangeTimes->{{3.860991354869533*^9, 3.860991367597555*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"aa6d5515-f712-4a6c-b3fc-6b61d38f02fa"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"r", "\[Rule]",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.8609913686284943`*^9, 3.8610052675080223`*^9,
3.861005758949162*^9},
CellLabel->"Out[14]=",ExpressionUUID->"4e826110-8891-4727-8ea4-2596ecab3923"]
}, Open ]],
Cell[BoxData[
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]], "Input",
CellChangeTimes->{{3.860991370515032*^9, 3.860991377111232*^9},
3.861005278517428*^9},
CellLabel->"In[5]:=",ExpressionUUID->"940d8488-3380-4532-8521-ce44499369cc"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.860990816841292*^9, 3.86099082413631*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"a07474e2-1e4a-4faa-a6ab-2dd82c968d95"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "T", "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.86099082754914*^9, 3.8609913826781473`*^9,
3.861005281526499*^9, 3.8610057670072412`*^9},
CellLabel->"Out[16]=",ExpressionUUID->"f1cf3f2a-11f5-4b0e-beb0-b5650e26d4e4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "-", "T", "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[17]:=",ExpressionUUID->"41d10151-f8c1-48da-a673-ed5926a27fd0"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "-",
RowBox[{"2", " ", "k", " ", "T"}], "-",
RowBox[{
SuperscriptBox["l", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"p", " ", "\[Theta]"}], "+",
RowBox[{"d", " ", "p", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Theta]"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.861005770956181*^9},
CellLabel->"Out[17]=",ExpressionUUID->"8f337b7b-ccfa-476c-ba18-ed8adee38e70"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.860990869876053*^9, 3.860990876581368*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"acf6b17a-9e15-46e0-8950-e2d82d091535"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "l", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.860990877294742*^9, 3.860991393314773*^9,
3.8610052976603394`*^9, 3.861005778444293*^9},
CellLabel->"Out[18]=",ExpressionUUID->"0cbaa66e-5c45-496a-97b1-ee9c3379f7e8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.860990879372666*^9, 3.86099088562234*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"b20f039e-de49-4a77-b3f8-b3bf3c12f5db"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{"p", "+",
RowBox[{"d", " ", "p"}], "-",
SuperscriptBox["p", "2"], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.860990886545782*^9, 3.860991416646934*^9,
3.861005356406536*^9, 3.861006767456324*^9},
CellLabel->"Out[19]=",ExpressionUUID->"ff499522-b4df-4f26-9955-24d04fc6f86c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "-",
RowBox[{"2", " ", "k", " ", "T"}], "-",
RowBox[{
SuperscriptBox["l", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"p", " ", "\[Theta]"}], "+",
RowBox[{"d", " ", "p", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Theta]"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}]}],
RowBox[{"2", " ", "k"}]], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.86099111333202*^9, 3.8609911205503387`*^9}, {
3.860991178001834*^9, 3.8609911801308603`*^9}, 3.8609914388851013`*^9,
3.861006787291636*^9},
CellLabel->"In[20]:=",ExpressionUUID->"c183db7a-640f-4310-a003-816bcd3c554b"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+",
"\[Theta]", "+",
RowBox[{"d", " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "p", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{
3.860991121064426*^9, 3.860991182392013*^9, 3.860991441612234*^9, {
3.861005488578039*^9, 3.861005505768484*^9}, 3.861006789732863*^9},
CellLabel->"Out[20]=",ExpressionUUID->"546c5e95-afc4-4f0e-9efc-9e5ce6d5a94a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.8609911246697817`*^9, 3.8609911343463383`*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"8c9fd7b3-9553-428e-a610-321535ad62e5"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}], "}"}], "}"}]], "Output",
CellChangeTimes->{{3.860991130406232*^9, 3.860991135159834*^9},
3.860991185964155*^9, 3.860991446096364*^9, 3.861005509910507*^9,
3.861006794194623*^9},
CellLabel->"Out[21]=",ExpressionUUID->"a7c736a2-807e-40bc-b1a0-cc1561fe5a15"]
}, Open ]],
Cell[BoxData[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}]], "Input",
CellChangeTimes->{{3.8609911950269623`*^9, 3.8609912022963963`*^9}, {
3.86100680305468*^9, 3.8610068039696608`*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"69f5aba2-f116-4470-98dd-3df30ac42156"],
Cell[BoxData[
RowBox[{"l", ":=",
FractionBox[
RowBox[{"p", "+",
RowBox[{"d", " ", "p"}], "-",
SuperscriptBox["p", "2"], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"p", " ", "\[Alpha]"}], "-",
RowBox[{"d", " ", "p", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Input",
CellChangeTimes->{{3.860991206837636*^9, 3.860991217607095*^9},
3.8609914661773167`*^9, 3.861006818479383*^9},
CellLabel->"In[23]:=",ExpressionUUID->"503042d7-0933-43bc-8187-b145d58c1b77"],
Cell[CellGroupData[{
Cell[BoxData["l"], "Input",
CellChangeTimes->{3.860991219688991*^9},
CellLabel->"In[24]:=",ExpressionUUID->"9bc18756-2cd2-406e-a8a4-f6da7908edef"],
Cell[BoxData[
FractionBox[
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "2"], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.860991220294455*^9, 3.860991470422721*^9,
3.8610068241426487`*^9},
CellLabel->"Out[24]=",ExpressionUUID->"a1c29e61-51c9-4fce-b516-7ef18f3f8f44"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "2"], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[25]:=",ExpressionUUID->"1ea12e19-a218-4cf9-9af3-93f5f2c84cb7"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.861006826898918*^9},
CellLabel->"Out[25]=",ExpressionUUID->"2e00c2ad-d916-4704-8958-2674389561ef"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
StyleBox["e",
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.860991637597129*^9},
CellLabel->"In[26]:=",ExpressionUUID->"860e2f93-3891-48e2-997b-2d4887e7af7a"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "2"], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "2"], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
")"}]}]], "Output",
CellChangeTimes->{3.860991638222054*^9, 3.861006833307907*^9},
CellLabel->"Out[26]=",ExpressionUUID->"3c3d877a-6ce6-4ce6-b0f1-8a94831c959f"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[", "%26", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[27]:=",ExpressionUUID->"87d7b1ea-6ac1-4a21-8f0e-2956d5e28f82"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861037044332157*^9},
CellLabel->"Out[27]=",ExpressionUUID->"4272f22e-9fa0-4f1f-b27f-0ff30d377aec"],
Cell[CellGroupData[{
Cell[BoxData["r"], "Input",
CellChangeTimes->{3.860991914851184*^9},
CellLabel->"In[28]:=",ExpressionUUID->"bdd9d1fb-ab21-4d22-964a-21e0ca8f4f89"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "\[Theta]", "-",
FractionBox[
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "2"], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "2"], "+",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "-",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
FractionBox["1", "2"], " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]", "+",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.860991915571686*^9, 3.861006847963684*^9},
CellLabel->"Out[28]=",ExpressionUUID->"117ab196-e948-41b5-a53d-d850a1b3aa1d"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[", "%28", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[29]:=",ExpressionUUID->"e3bf0a6a-d46d-4ab9-a80f-ebf0ad09d7d8"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861037079575061*^9},
CellLabel->"Out[29]=",ExpressionUUID->"2e34ba05-fb01-40b4-8185-42391ac5b1ef"],
Cell[TextData[{
"Checking the Hessian matrix, we can find that \[CapitalPi]s is concave in p \
and l if k > a2n/2, because the Hessian matrix is H = \
\:20d2\:20d2\:20d2\:20d2 ,and the determinant is ",
Cell[BoxData[
RowBox[{"(",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]}], ")"}]],
CellChangeTimes->{3.860993272501844*^9},ExpressionUUID->
"2a1f8901-256a-489c-9ef1-29f5517548c4"],
"*",
Cell[BoxData[
RowBox[{"(",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], "k"]}], ")"}]],
CellChangeTimes->{3.860993352654038*^9},ExpressionUUID->
"a73eba36-c285-41bb-98c2-0d611194bd80"],
"- ",
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "d"}], ")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"2", " ", "k"}]]}], ")"}], "*",
RowBox[{"(",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "d"}], ")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]],
CellChangeTimes->{3.86099345452247*^9},ExpressionUUID->
"4498d2c8-c3c4-4c8d-9d3f-465003446545"],
"\.00*() a2n).\n\.00 2nan an \.00 k \:20d2\:20d2\:20d2\:20d2 and the \
determinant is n(2k \.00 a2n)."
}], "Text",
CellChangeTimes->{{3.860993104571259*^9, 3.860993109187604*^9}, {
3.8609931782729*^9, 3.860993212702623*^9}, {3.860993407447626*^9,
3.860993436605858*^9}, {3.860993476433345*^9,
3.860993540073736*^9}},ExpressionUUID->"c7389807-8bfb-4218-94bf-\
b33ba2a88c42"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.860993246962769*^9, 3.860993249233708*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"de91555e-1693-4281-a47e-13d385f4b651"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "T", "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8609932504162903`*^9, 3.861006900871039*^9},
CellLabel->"Out[6]=",ExpressionUUID->"bc7e84fd-b7c2-4412-ab24-6b92553b7985"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "-", "T", "-",
RowBox[{"l", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "+",
RowBox[{
RowBox[{"(",
RowBox[{"cs", "+",
RowBox[{"l", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[7]:=",ExpressionUUID->"522fcb2e-18c6-4fd9-b88e-6c9875ecfdc3"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "-",
RowBox[{"2", " ", "k", " ", "T"}], "-",
RowBox[{
SuperscriptBox["l", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"p", " ", "\[Theta]"}], "+",
RowBox[{"d", " ", "p", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Theta]"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.861006903815864*^9},
CellLabel->"Out[7]=",ExpressionUUID->"5cd725e9-6608-43c8-9abe-fb8abe2f2a93"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.860993256438313*^9, 3.860993262462647*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"3925205b-24f8-4022-8d3f-0e86fa3d23ee"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+",
"\[Theta]", "+",
RowBox[{"d", " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "p", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.8609932641057043`*^9, 3.861006911518331*^9},
CellLabel->"Out[8]=",ExpressionUUID->"52527f6f-9dad-4be6-958f-05a1a89aa4bf"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.860993267507472*^9, 3.8609932718059883`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"9039b7ce-76bb-4770-9144-7b2e9eb188b0"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.860993272501844*^9, 3.861006917358201*^9},
CellLabel->"Out[9]=",ExpressionUUID->"fde362f0-9c67-4f64-b2a8-9b457e822152"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "cs", " ", "k"}], "-",
RowBox[{"2", " ", "k", " ", "T"}], "-",
RowBox[{
SuperscriptBox["l", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"p", " ", "\[Theta]"}], "+",
RowBox[{"d", " ", "p", " ", "\[Theta]"}], "-",
RowBox[{
SuperscriptBox["p", "2"], " ", "\[Theta]"}], "+",
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
")"}]}]}],
RowBox[{"2", " ", "k"}]], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.86099332414207*^9, 3.860993341713059*^9},
3.861006984856126*^9},
CellLabel->"In[10]:=",ExpressionUUID->"9df4d4bf-ebc7-474d-8405-05117ca0943a"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "l", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.860993344752898*^9, 3.861006988182518*^9},
CellLabel->"Out[10]=",ExpressionUUID->"027e9395-17d5-4101-aa0c-de812559a0dd"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.860993347541943*^9, 3.86099335109171*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"a7a6dd15-fc98-4490-9023-3b32401d598b"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], "k"]}]], "Output",
CellChangeTimes->{3.860993352654038*^9, 3.861006991933138*^9},
CellLabel->"Out[11]=",ExpressionUUID->"f54deb8c-4322-4cd2-ae3b-f5e242f9375a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+",
"\[Theta]", "+",
RowBox[{"d", " ", "\[Theta]"}], "-",
RowBox[{"2", " ", "p", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.8609934417876863`*^9, 3.860993453551107*^9},
3.861007017916369*^9},
CellLabel->"In[12]:=",ExpressionUUID->"62795d71-4bff-4da4-b0a4-a26aefb2481f"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.86099345452247*^9, 3.86100702043248*^9},
CellLabel->"Out[12]=",ExpressionUUID->"96de3ca2-6fb3-4ad7-b3a5-17588f931f27"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[Phi]", ":=",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"2", " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "\[Theta]"}]}],
RowBox[{"2", " ", "k"}]], " ", "*",
RowBox[{"(",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], "k"]}], ")"}]}],
"-",
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"2", " ", "k"}]], ")"}], "2"]}]}]], "Input",
CellChangeTimes->{{3.86099355282222*^9, 3.860993627413877*^9}, {
3.8610071061336327`*^9, 3.8610071224333477`*^9}, 3.8610071791832848`*^9,
3.861007242801075*^9, {3.8610496104909077`*^9, 3.86104961348217*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"c26b0c41-1cdc-4fab-b61c-ee62c2aaa64d"],
Cell[CellGroupData[{
Cell[BoxData["\[Phi]"], "Input",
CellChangeTimes->{{3.8609936313977213`*^9, 3.860993636098834*^9}, {
3.8610496153384323`*^9, 3.861049616046295*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"6ecff7c3-93d6-46f5-ae9c-7f01f7e84423"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], "2"],
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}]]}], "-",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["k", "2"]}]]}]], "Output",
CellChangeTimes->{3.8609936379866343`*^9, 3.861007131668215*^9,
3.861007189250392*^9, 3.861007248368124*^9},
CellLabel->"Out[20]=",ExpressionUUID->"22dc3d63-2568-4083-8c31-8f98edca112f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], "2"],
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}]]}], "-",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["k", "2"]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[21]:=",ExpressionUUID->"d56a95a1-b6a5-4045-bb96-11844e522b2b"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"4", " ", "p"}]}], ")"}]}], "-",
RowBox[{"4", " ", "p"}], "+",
RowBox[{"4", " ",
SuperscriptBox["p", "2"]}], "+",
RowBox[{"4", " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}]]}]], "Output",
CellChangeTimes->{3.8610072529597178`*^9},
CellLabel->"Out[21]=",ExpressionUUID->"e27c21b3-1bd1-4075-90eb-b36a65d9f54a"]
}, Open ]],
Cell[BoxData[
RowBox[{"y", ":=",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"4", " ", "p"}]}], ")"}]}], "-",
RowBox[{"4", " ", "p"}], "+",
RowBox[{"4", " ",
SuperscriptBox["p", "2"]}], "+",
RowBox[{"4", " ", "l", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}]]}]}]], "Input",
CellChangeTimes->{{3.861004780162203*^9, 3.861004788811515*^9},
3.861007432412084*^9},
CellLabel->"In[3]:=",ExpressionUUID->"1a637675-cf20-4a7b-8e45-c31548979a56"],
Cell[BoxData[
StyleBox[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellLabel->"In[2]:=",ExpressionUUID->"df20baf4-c4d4-416e-82de-c6fb2078a3fe"],
Cell[BoxData[
StyleBox[
RowBox[{"l", ":=",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{
3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"c88a447a-73a3-40ef-bfdf-678279c850cb"],
Cell[CellGroupData[{
Cell[BoxData["y"], "Input",
CellChangeTimes->{3.861007532799769*^9},
CellLabel->"In[4]:=",ExpressionUUID->"92212f3c-774a-4cb7-b173-5f1f326dd473"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}]}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}]]}]], "Output",
CellChangeTimes->{3.861007533508607*^9},
CellLabel->"Out[4]=",ExpressionUUID->"c6358b8a-7021-4888-8b41-0f33a51ae798"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}]}]}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["k", "2"]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[5]:=",ExpressionUUID->"befe8589-4871-4976-ad45-b00d984d045e"],
Cell[BoxData[
FractionBox[
RowBox[{
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]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox["k", "2"]}]]], "Output",
CellChangeTimes->{3.8610075356309147`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"9d877aba-a73f-4725-8514-1b3d8b1848fb"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861049679905232*^9, 3.861049690311792*^9},
3.8610497725702868`*^9},ExpressionUUID->"ad320c06-a2a6-4ee4-9732-\
8062fbf74e05"],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "\[Equal]",
"0"}], ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861049693507827*^9, 3.861049706556479*^9}, {
3.861049767616055*^9, 3.8610497680623693`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"8129c5c9-6a45-4737-b6f6-249cc8cfe9c3"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}],
"}"}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"1", "-",
StyleBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]}],
StyleBox["\[Equal]",
FontColor->RGBColor[1, 0, 0]], "0"}],
StyleBox[",",
FontColor->RGBColor[1, 0, 0]],
StyleBox["\[Alpha]",
FontColor->RGBColor[1, 0, 0]]}],
StyleBox["]",
FontColor->RGBColor[1, 0, 0]]}]}], "Input",
CellChangeTimes->{{3.861050353876773*^9, 3.86105037283679*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"a65a5d8b-95f8-4f10-9ab9-3ad9ff4a2de3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861050373611215*^9},
CellLabel->"Out[5]=",ExpressionUUID->"4572f45d-2236-460e-a7bb-f0a772b765c3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861050373658909*^9},
CellLabel->"Out[6]=",ExpressionUUID->"f55ce82d-6653-48fc-89ec-b3bd1eaeaf33"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"y", "==",
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]}], ",", "y"}], "]"}]], "Input",
CellChangeTimes->{{3.8610504421897287`*^9, 3.861050481870442*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"fd75f1b0-729c-474e-9162-f5949ca6b41e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"y", "\[Rule]",
FractionBox[
RowBox[{"128", " ",
SuperscriptBox["k", "2"]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]]}], "}"}], "}"}]], "Output",\
CellChangeTimes->{{3.8610504639548492`*^9, 3.861050484039011*^9}},
CellLabel->"Out[8]=",ExpressionUUID->"782a7a17-550b-4934-b0c2-6ae2f61d8dc2"]
}, Open ]],
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"}], ")"}], "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
"c991bc8b-2585-4d54-b1f7-a5cce1465eee"],
StyleBox[".in this paper, we consider the case with ",
FontColor->RGBColor[1, 0, 0]],
" ",
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "-",
RowBox[{"16", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "<"}]],ExpressionUUID->
"a473aae2-42cb-4a34-86ba-e3c613f42dc6"],
Cell[BoxData[
RowBox[{"\[Alpha]", "<",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]],ExpressionUUID->
"d57cc3af-dce1-4cc9-98bd-cd10074f9790"],
", which is the common situation because it means launch successfully \
propability is above zero and below one.",
StyleBox["\ne = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"92ff3a26-795a-4721-8ca4-083daf8b02e5"],
StyleBox[", that ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox["\[Phi]",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"cfcb2a80-ad46-4e1d-911c-e36f53722054"],
StyleBox[", where ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
RowBox[{"\[Phi]", "=",
RowBox[{
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
StyleBox["=",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
RowBox[{
StyleBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
FontColor->RGBColor[1, 0, 0]],
SuperscriptBox[
StyleBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}],
FontColor->RGBColor[1, 0, 0]], "2"]}], "-",
RowBox[{"8", "\[Alpha]k"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "4", "\[Theta]"}]}]}]}]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"0f6a95cd-3719-43b5-9f64-a3bacd6301a9"],
StyleBox["\n\nr = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
RowBox[{"\[Beta]",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox["\[Phi]",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]]}], ")"}]}]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"d1ed6f9d-5886-44d9-9a8c-45b1d8ae9598"],
StyleBox[",\np =",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{" ",
RowBox[{"1", "+", "d"}]}],
RowBox[{" ", "2"}]]],
CellChangeTimes->{3.861006836593441*^9},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"d04d869d-bdaa-42d2-8b9a-b6caf2575538"],
StyleBox[",\nl = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]],
CellChangeTimes->{
3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"3f316a97-1545-4a3e-8153-edbf5b68a476"],
StyleBox[" = ",
FontColor->RGBColor[1, 0, 0]],
Cell[BoxData[
FractionBox[
RowBox[{"\[Phi]", "-",
RowBox[{"8", "\[Theta]",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}]]],
CellChangeTimes->{
3.8610051649431353`*^9, {3.8610075180671883`*^9, 3.861007519575964*^9}},
FontColor->RGBColor[1, 0, 0],ExpressionUUID->
"9b0ea85a-ecfb-4ce7-bb26-0a8a0ca49dd6"],
"\n"
}], "Text",
CellChangeTimes->{{3.861009692047521*^9, 3.861009970618803*^9}, {
3.8610146917386093`*^9, 3.86101473542562*^9}, 3.861015513181675*^9, {
3.861037373492426*^9, 3.861037390517971*^9}, {3.861049486872294*^9,
3.8610495011126842`*^9}, {3.861050047437174*^9, 3.861050218217928*^9}, {
3.861050499519471*^9, 3.861050525589243*^9}, {3.861050598208932*^9,
3.861050874278306*^9}, {3.8610568139647493`*^9, 3.861056814425272*^9}, {
3.861646571771052*^9, 3.861646577572209*^9}, {3.861646620560968*^9,
3.861646623077684*^9}},ExpressionUUID->"c1302d94-3429-4fdc-a790-\
1c9d3622ab29"],
Cell["\<\
Note that in our analysis, we only discuss the case when the vehicle\
\[CloseCurlyQuote]s profit is positive and the effort level is less than the \
upper bound.F is bounded above by \:0304 F(or the vehicle manufacture will \
quit the launch project)\
\>", "Text",
CellChangeTimes->{{3.8610718361466427`*^9, 3.861071854374961*^9},
3.861072130760911*^9, {3.8610722162807302`*^9,
3.861072241082871*^9}},ExpressionUUID->"6de8c4f0-feb4-4db9-bee5-\
bfb29f46eabd"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.86100977243436*^9, 3.861009783550511*^9}, {
3.861009992267336*^9,
3.86100999249021*^9}},ExpressionUUID->"24000ddd-8a2b-46d3-9637-\
c2d079c46c28"],
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
"T"}]}]}], "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}},
CellLabel->"In[1]:=",ExpressionUUID->"08ff1af5-4775-4dfc-baa5-5ff41a6a28ef"],
Cell[BoxData[
RowBox[{"e", ":=",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}]], "Input",
CellLabel->"In[4]:=",ExpressionUUID->"5a1e15ee-6c80-4be7-8d1e-9c96017e5932"],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.861014902389183*^9, 3.861014906235647*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"285bea43-c0c5-4e6c-b6a8-5796dd8c93a7"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "+",
RowBox[{"l", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"l", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}], "2"],
RowBox[{"4", " ", "k"}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861014910555517*^9},
CellLabel->"Out[5]=",ExpressionUUID->"488f9cb2-5e4c-4f9c-864a-d6d015928004"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "l"}], "]"}]], "Input",
CellChangeTimes->{{3.861014913371456*^9, 3.861014930310166*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"0d0bef37-eb09-4832-a63d-34602aa6255d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
FractionBox["\[Theta]", "k"], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "-",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"cv", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["k"]]}],
RowBox[{
FractionBox["1", "k"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"l", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
FractionBox["\[Theta]", "k"], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"cv", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["k"]]}],
RowBox[{
FractionBox["1", "k"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "k"]}]]}], "}"}]}], "}"}]], "Output",\
CellChangeTimes->{3.861014967678299*^9},
CellLabel->"Out[6]=",ExpressionUUID->"830bb23f-16b2-4e78-ade0-d0d46ceb89c4"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "-",
FractionBox["\[Theta]", "k"], "+",
FractionBox[
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "k"], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"cv", "-",
RowBox[{"2", " ", "cv", " ", "\[Alpha]"}], "+",
RowBox[{"cv", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["k"]]}],
RowBox[{
FractionBox["1", "k"], "-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}], "k"], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"], "k"]}]], "]"}]], "Input",
CellChangeTimes->{{3.861015331111792*^9, 3.8610153432594013`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"9a31314b-e518-445c-823b-d40bb2220501"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861075668104657*^9},
CellLabel->"Out[9]=",ExpressionUUID->"7e1d8e02-f3f6-49ca-9e1f-cd7422b8c292"],
Cell[BoxData[
RowBox[{"z", ":=",
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]}]], "Input",
CellChangeTimes->{{3.861035373318025*^9, 3.861035393001047*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"79eb1dba-b6cd-4634-81ed-71d835456bc8"],
Cell[CellGroupData[{
Cell[BoxData["z"], "Input",
CellChangeTimes->{3.86107092078062*^9},
CellLabel->"In[26]:=",ExpressionUUID->"a245dfab-7973-42db-baa2-916fc2893131"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output",
CellChangeTimes->{3.8610709213762827`*^9},
CellLabel->"Out[26]=",ExpressionUUID->"1e73404a-4664-4486-8ee1-26f616ae8e7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[27]:=",ExpressionUUID->"88f25877-5a56-4e82-97a3-1428b7a18c5e"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.861070928694892*^9},
CellLabel->"Out[27]=",ExpressionUUID->"81d6d446-58a5-46ba-b4c8-839319313815"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.861058898441525*^9, 3.8610588986392736`*^9}, {
3.8610715413533697`*^9, 3.861071552055292*^9}, 3.861396670045827*^9},
CellLabel->"In[28]:=",ExpressionUUID->"e5aa0f4e-9e37-4fff-8f39-c0d019aa74c9"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"16", " ", "d", " ", "k"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ", "cv", " ",
SuperscriptBox["k", "3"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"16", " ", "d", " ", "k"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ", "cv", " ",
SuperscriptBox["k", "3"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}]}], "}"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"t", ":=",
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"16", " ", "d", " ", "k"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ", "cv", " ",
SuperscriptBox["k", "3"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}],
")"}]}]}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.861075537556633*^9, 3.861075603101592*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"d9231e8a-4ed5-4775-8997-39d60c35e2ae"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"16", " ", "d", " ", "k"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ", "cv", " ",
SuperscriptBox["k", "3"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"16", " ", "d", " ", "k"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ", "cv", " ",
SuperscriptBox["k", "3"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.8610756039214907`*^9},
CellLabel->"Out[29]=",ExpressionUUID->"9e9d7120-c797-45b4-a6c6-4de09ae52cde"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["t"], "Input",
CellChangeTimes->{3.861075614369947*^9},
CellLabel->"In[31]:=",ExpressionUUID->"9e619c21-6ecb-472d-8ec9-d12f085553c7"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"16", " ", "d", " ", "k"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ", "cv", " ",
SuperscriptBox["k", "3"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"256", " ", "cv", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861075615473407*^9},
CellLabel->"Out[31]=",ExpressionUUID->"1943f0f5-857e-493e-897d-a0e218b7c2f3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%31", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[32]:=",ExpressionUUID->"174614ba-e754-46c4-8fd2-f4b01a6b886f"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"6", "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"16", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"32", " ", "cv"}], "+",
RowBox[{"20", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
RowBox[{"-",
SuperscriptBox["k", "2"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"4", " ", "d"}], "-",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "-",
SuperscriptBox["d", "4"], "+",
RowBox[{"192", " ", "cv", " ", "k"}], "+",
RowBox[{"192", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"16", " ", "cv"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"6", "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"32", " ", "k"}], "+",
RowBox[{"16", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861075618738953*^9},
CellLabel->"Out[32]=",ExpressionUUID->"1558bb38-bc4b-450e-a3e6-5a272149cbce"]
}, Open ]],
Cell[BoxData[
RowBox[{"lVA", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]}]], "Input",
CellChangeTimes->{{3.861396717847611*^9, 3.861396735688648*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"a614fb5e-cfae-4744-8e1a-b24ff4d02006"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"lVA", ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861396740770249*^9, 3.8613967475268497`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"d79151c4-61c8-436b-b243-9783fac05a76"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]]}]], "Output",
CellChangeTimes->{3.861396748494952*^9},
CellLabel->"Out[2]=",ExpressionUUID->"b1eec5d8-c14e-48ef-a46a-92f969ba9fe5"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]]}], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[3]:=",ExpressionUUID->"f1bb60b3-3452-4a1f-8a26-c4a610b5638e"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]]}]], "Output",
CellChangeTimes->{3.8613967510645742`*^9},
CellLabel->"Out[3]=",ExpressionUUID->"87a9622b-427e-4433-9e57-aa841b06d03d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{"k", ":=", "0.1"}], "\[IndentingNewLine]",
RowBox[{"\[Theta]", ":=", "0.5"}], "\[IndentingNewLine]",
RowBox[{"d", ":=", "0.9"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]], ",",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "0", ",", "0.1"}], "}"}],
RowBox[{"{",
RowBox[{"cv", ",", "0.1", ",", "1"}], "}"}]}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.861399707805132*^9, 3.861399805776429*^9}, {
3.861400397232751*^9, 3.8614004918539467`*^9}, {3.86140052283626*^9,
3.861400523315295*^9}, 3.861400746321278*^9, {3.861400782286933*^9,
3.861400784313192*^9}, {3.861400861694117*^9, 3.86140086290296*^9}, {
3.861400902282329*^9, 3.8614009033402147`*^9}, {3.861400949980198*^9,
3.861400950217373*^9}, {3.861400981369939*^9, 3.8614009945657377`*^9}, {
3.861401584786989*^9, 3.861401607613597*^9}, {3.861401773265387*^9,
3.861401791814101*^9}, {3.861401831369917*^9, 3.861401847382269*^9}, {
3.861401890422976*^9, 3.861401893864531*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"b220bdfe-c554-4f51-a146-1fb592dbb8f8"],
Cell[BoxData[
TemplateBox[{
"Plot", "itraw",
"\"Raw object \\!\\(\\*RowBox[{\\\"cv\\\", \\\" \\\", \
\\\"\[Alpha]\\\"}]\\) cannot be used as an iterator.\"", 2, 13, 3,
34318295027489456643, "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.8614018709427547`*^9, 3.861401897458885*^9}},
CellLabel->
"\:6b63\:5728\:8ba1\:7b97In[10]:=",ExpressionUUID->"4886e8ce-d5c3-4b56-8ba7-\
2f2e40cc2786"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot3D", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{"cv", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.861416855600828*^9, 3.861416882242066*^9}, {
3.8614169147473383`*^9, 3.861416947855599*^9}, {3.8614169827460546`*^9,
3.861416983246314*^9}, {3.8614170621479187`*^9, 3.8614170803789597`*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"42fab355-0d81-4f98-8e18-70eece043b12"],
Cell[BoxData[
Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1vHlcTfv3+H+a5zSYMkuDkpBEhvaRxElFpowVIVNJpjIVmSkUQlGoUJIG
pwkVRbPmwWme53meztfbfa21f78ej8/95z7u8/G6e6/93Ke1916v12vN3n9i
80FeBoNxXoDB4Pv771c7AiNuqZ3SSVF/UhPQ56ETVdByM00wMPaous4zRVYo
BXxK1mud4DkfYj/UF3EVWN+R33A60iS/KyhWIXr84gjrVOSRM27F1wR9jM1I
VA5TYGUjv2yQ/DBO+lPsHfXENGtOPnIvXzkZ3fJPsfoe+2vZ1hzkzM4EnsbE
kFgexv/+KUdud870ieSv0Fjz8Ix7CqxK5HqFVXHLG8Jivx5+Icdyq0a+IVej
xG/x59ip04/7W3Nqke93+Pa1IZgd65C1fLGbQgPy46LhRbOPRcYWXBeJY1s3
IW8+5eCZcC46dsnyQkMOuwX58sIixz/tX2IftvoXcbltyJ+qtN5h8MfFgmfe
aBeuzd/r1oss8uqp+UyBZ+CfRlgppoNsCjwD/9b12DBUNZICz8C3JyvP23Uh
igLPwFdGsXzvdkRT4Bm4hqJCop/7Fwo8A686ss363JFvFHgGPnhk81YTnTgK
PANflPuowuV4PAWege+wOald/fM7BZ4xzurHMt7bEyjwDFxk7TLNdco/KfAM
PG3TdIsu/SQKPAPXXi5ltvhnCgWega+aHRqwrCOdAs/5+zMpm7/nz9OddUlm
STJ6Bt6ovDyx0TUFPQP/qKTdkyqZhp6BH83cJzAxJh09A/+wOPPQI8/f6Bn4
gYrfm9qKM9Ez8KUbYu0bpLLRM/DtopMbJ57MQc/AvVLyNr8QzEPPwHPTk1O/
F+ejZ+AvzQ7NlOcpQs/AeW6Nu2fqzEHPwEdfaR1dfqoUPQPfear+SGFLOXoG
LuA53t5roBI9b+tudnRT6KDe3Tyh5fc1Gz0DnxRrlMNIy0HPwC3MI4N+DeSi
Z+CWznqb3Azz0TPwWUvbTxunFqBn4DXrZYJ9LhehZ+DXJDa57z/JQc/A2y1T
c5khJegZuLvuxoQo5XL0DJzS4G9hf6pAz8DjvpgwbztVoWfgyqaK6k/8atAz
8MpLOzc7q9WjZzxvDLtGY1ITegYeHXQxsfFsK3qmIjrKrDm9lNLLH29XaBWi
Z+Ajk/PjP3kXoWfgw+1XX+VqctAzcOcB1rfUkWL0DPzuwpayn/xl6Bn4md4+
kc2B5egZ+MzEZ4MVPJXoGfjydSc+uT6oQs/AZ7d8L0w8UIOegWeLXFz34H4d
ega+WvdhUbZiI3oG7msTeqxcpwU9A78yPPyy7Ww7egbep2g/yOPRiZ6BR90o
yrub3o2eVc73Uiy3YaqtnFkvp1GCnoH3Ke0/L9dRip6BT03dq1dyqhw9A5fn
3Ji+90EFegb+ZvfStpzcSvQMvNfnS2Mdqxo9Ay/bkrTs62ANegZuab7fI6Wn
Dj0DX3v5RnatUSN6Bh4W8eHjiakt6Bn4rnX3Mu112tEz8KCBy5+8DTrRM/DJ
wX2V++O60TNwtcP+GabP+tAz8JzhndsvvB5Ez3dejmx0U+Bhrn5kszOjthw9
A3cXOL86uLUCPQNfEv+7VHVyFXoGrlnw9ErzkWr0DLz8AW/+ieYa9Ax8lfT1
Nd4BdegZ+J46xvbg0Ab0jMfJ3XJhw6Rm9Ax8pM8iUL6jFT0Dd7wwmrVnYQd6
Bn5xVHqgcl0XegYukmIi+rigBz0D/2Ch/3S0qx8943EYUVqpf72CZ+ARaT7S
1ooMJnjm/vuHj2lv4jlcKVGFnoHzr3HQnLCyGj0D79tU3HLhYQ16Bs4IWL9f
fGIdegZ+NuVSaU9OPXoGnqmpVXissBE9A7drD8r8rtmCnoHz/vvvdvQMfEVf
n9GlDx3oGfj4uWdLr4R3oWfgny+d3CO/uBc943knzr0jyRpAz8Az2ooq+GRH
0DPw+0WFRxLjGUzwDPy/5yAvej69j/eTNUeQaVU1PlpoQg16Bl51eJ1TnFUt
egau2ac9U66uDj0Dv7RVSN3QqwE9Azf36dXSdm9Cz8A7zns57eG0oGfgns3X
Ep/qtaNn4Eov18yeVNyBnoEbbtA7n/izCz0Dj2ty7u+c3ouegV9dnZHuwDeA
noGfrZ+ie+jVMHoGXho6a86G+wwmeAb+I2rSn4olfOgZeKi3jVh7oQB6bvjO
b8FhizDXywZPW8ZTh56Bt3R/Eq85W4+egecEG+09OaMRPQPXrKHcTXmb0TNw
Wac1O+QXtqJn4HYbn39I3tOOnoFbRQ4uU+Z0oGfg/scMns5504Wegb9ZeJLy
TulBz8DrnzV9jz/Rj56Bq3ltiPOOGULPwN8qSfD4VXLRM/AXx38Gl93lRc/A
f3s8Dsv0E0DPwM19k16uiRRGz2YKQlIsN3GmzEvtVt38evQMvNZXsc3RuhE9
A19usbEjdEUzegY+cPXkvQeGregZ+KXp7ct8TdvRM/DBuUuVW2M60DPw2ZGj
3XcsutAz8GTel0ps0x70DPxYdljCq+g+9IzHeW3Ad/rDIHoGfrf84uqSvaPo
Gfhli+9262/yMMEzXleO93CkIz96Bh7jkSb4VloYPQMXfy+v4eEhhp5z/h1v
HNPT9o+AokcjegY+GH14X7hxM3oGnrqGf7uqbit6Bm7ytvnXUqodPQNP15o7
UeVOB3oGPpXH3UtQogs9A981/wE7Mb8bPQMXeispVj3Ui56BT1+s/rzl6QB6
Bi7POrJIIX8YPQNXvz7dVOYsgwmegYu29pvtkeVDz3hdppd36x8TRM/ADV5e
WeLgIIqegf/3/iyJnn27BJa5KUgzz+pf8Fqj34yegecxX3wXmt6KnoGve3Oz
kprSjp6Bv10SvmSfUQd6Bt7i/DZ8SkgnegZ+c5Fq42uTbvQM3CZHYNNFqhc9
Az+Zm6R38GE/egY+TVHRbr3VEHoGnhupUvm0dRQ9Aw+w1zWVDudBz8CdqXJn
nSf86Bn4n0lX1VqNhdEz8H1iHoO7SsTRM3B+nf4JLn5S6Nn83+9chnlghuom
95oW9AzcSECl8vafNvQMfPJorJmtaAd6Bi4Y2Hy6yaQTPQOfrn3MKiS9Cz0D
3zE0pUbibg96Bu4pUucl7tWHnoEvmL6/+b3cIHoGXuv2TGSR8gh6Bu7hqsET
eIHBBM/AW7a2P/Rr4EXPwK/YiT68KyWInoHnZwQUSM4TRc/AazytT5qvGoee
ge9i+pVpTZBBz1O2CddzubLMH9F5M8POtqFn4A3jS87bJ7SjZ+BDrD57107a
M/BLKjO2pxl1oWfg764rLe0s70bPwAs+vu3bE92LnoHPX5K15EVLP3oG/nCR
qX/D4yH0DPyg/4LklqJR9Ay845VLZa49D3oGXjKS/+jkJH70DPxzeOf931eF
0DPw+/UXfblcMfSMfnysXdPSpNAz8CvKZW7Gjn+ve95rBwVWI7X7sLCjLecn
peysFODv7kcJltsKstyakav3+q7zef6WsnxEuVtzWpGHLx49GyIUQBmcy2nm
cuuoZu/UMjeFCipx772FWlezKTg+cHbMh5RHW3Lx+MB32V1veXAqH48PfEmP
9+C5pkI8Tpxinvf//j8r9rc7biGVeBzgd/eUlZzLq8bjANf5fP/w1rV1VE2U
YJoS6zXGv0hQ6WrowGP8XgMeOD3GoPXSY3zfAD5u+cKAjrv++P4MvHrFgHnY
93d4XqiL8pY9f7h8/zesl8L4DW03Kds/gVTzv/eSGrxeA3fdmKyuTMxv6M3E
pXNvWBY+r4GPpCS1Ju/LwTiBv7j5yEVyZx7GCZySjPul7ltAuUpq5bCtq9DP
ZIkglYpuDsYD/Mee0CezPUvx/gLvnim5xaS4HOMBfjP6mrDj1wqMB3gNL3vl
2agqjAd4U6Kndgl/LZ43ZVvbAgajm1pnGBK+ObIGzwv8wAEjdub0evw9ABe6
ljN/UV8j3t8vX4QuKrBkmXYHNo1zfd+G9xc4d5aseHZwK94v4HcNtCVeP5Vm
Aoe/lxHOxSjP1X/zFjk+3F/P+sohplsg1uHhulT1tIxOLy/B+wh8xXzjI2ni
5cghfp6f0VPel9SiT+AFi/N9xC404HVBPIxn3xlRK9rxuxjivxF/IUEsXYb5
J9NjkQrLjZJMHLl0isOmkq7f13/McI09v/oUm23dhvx4x9GcKb9fxcL4JmFh
DTdfWeZGQRGbrQ/aKBgPfOXMW+Mfu9P5GY4zfW3m6uZgFzw++En60RstOC8W
jw/x1w4f3Czb04bxw/G37lw+wXOWLMYPx1GN4gambwjEvyM4r/t9k51r2D44
7wDHado5wytQlo4fzqu91efSUJMMU/z8CXEexiesq/P1eF5LLWBTxppipxiM
ODxvYO5Sxg3xoFjgMH55L+8Hz9II6klgqTmDkYTjD75ZGXJR/WMscKzby4Us
nToSSZ2Q3qnEYGTi+D87XezCDgfHAofxrPjIOjutaEo2/fs0BiMXx7OO181e
ZP4pFjiMj3zlabvNNYb6K0GWwSjE8QL2/JIf5EJigcP4vWcXLpgi8pXarfdE
hMEoxvG1uqaPJGtDYv/7/i9DfpLMQ8F4OI6CaWxuceA3CsYDHyDzKdklmkNc
bgUeR8XQbUVPQlgscBjfcKN540/9eMo35kgvl1uF49dPmDlRrCI8FjiMT193
/o2x7Xfq7LOXHVxuDY63n3qHtWk2OxY4jJ+4bC5PVNwPaj3kE7je1VGp110i
YoHD+I/jreZ06SSS3w09XzYobVZZuiAqFjiMt1X5mKDc9ZNq1lhVxeXS82gj
9x6OF50YEwscxiuKPTf/UZtEfZOyK+Vy6fm1BjmDaxpGX2OBY/znfIUezUul
4HcL8xTrmrS+BFum4O8W+Mgh7fc5H1Px9wn8x4PN1Pkp6fg7BC7GK6e1LTAD
f2/AA/lPzLBfnIm/K+CFMal/WlSy8PcDfIplo1Lbymz8PQDfRuZ94L4Dd5P5
dr05JxfvO86/pN+z1rbKx/sL3OSdmMXlxYV4H4EbdUXnrdT9g/cL+NdFZt6G
L4rxvgBXXvyCf4dRGfoHbtgf1LRpQQV6hnkKlf4Q8yUBOegZuHHE9L5tH3PR
M86D9GzcciM9Dz0DX733+f52sQL0DDx55IuBi00hegYuHj17rslQEXoGvsne
cbdZFAc9A28l8z7gGfjoLAWNoKEy9Ax8S2/+63PGFegZeMa78fueZ1eiZ+Cd
t1dEjHOvRs/AA2sipy54WouegW9IX7h0QV09egae6xBcoeLchJ5hnuJ1svuM
q3ZF6Bnnd6I93t/9/Qc9A9+03VH2xOZi9Axc6PHUjSyeUvQMXH2pTY5DVRl6
xvmdo7MEexkV6Bn4/jNbH0YsrkTPwLXJvA94Bm5pH9mlo1qDnnEe53t6YAl/
HXoGPsEoudJhfgN6Bm5b+Or1ztAm9Az8mq7LoKNPK3oGXvyTs6R7tB09A5fY
XL0kp6QTPcM8hdbo9FvaUaXoGfjiF27yIkvK0TPwmWcmqQUpVqBn4Punmt94
qlGJnoG/3nbbOsaiCj0D/+RC6UxnV6Nn4MaPPatnLK9Fz3h8Mu8DnoFbDc7e
UMXbiJ6Bb1d5c07icDN6Bi49Y2GtxbI29Az8qs915j29DvSM80erjlclaXWh
Z5w/2ls13edsD3oG/u2PF3VxsA89wzzFEQ97hbD0CvQM3HDz+b7U9Er0DLzb
xqV6TVMVegYuGp4+T31eDXoGzntF1jvevRY9A08QVFj/Rq0ePQMXWxv4R5fb
gJ6Bl5J5H/AM/OkW88S6x63oGfjLocbOI9/b0TPOKwUdDZBy7ETPwJnVITxf
7nejZ+DOV128V/L2oWfgXsJVsSGcAfQM/Imswfh0kRH0DPMUOdcutRhPrEbP
wM+7OFPyK2vQM3AvYR+t7ddq0TPOvyy3nMXz9/cGnoGbdspPe/24AT0Dj5iz
9cmVE03oGbilxtOzqq4wv1KGnIfM+4Bn4Fv6l/m2nO1Az8CLPbdHO2l0oWfg
HqsWz/df04OegUunGJ6a/K0PPQPv+CV6NyV8ED0Df1G+8aXiglH0DDzGxGdD
nDAPvifjPM7kK1ZHVtWiZ+A+Wy716d6sQ8/Ar5icF97ZX4+egdsMXg797tGI
noFvy35kp2/TjJ7xONlLf2TdaEXPwNO+Dz+4da4dPQNXJPM+4Bm4/xKF4BO3
u9Az8Fd83U+Vb/WgZ+Cm+7JXWbX0oWfgA4+6hWyzB9Ez8OOm79fs2DSKnoE/
Ol2a2b6MhwmegV9+ouuz5g4feoZ5isjITzYL1tejZ+ByV5RYruEN6Bn4AmkB
qsKwCT3j/EtofM9KuRb0DPxV04vID3Pa0DPw4COh4/Z9aUfPwDM+Vicoje9E
z8D9yLwPeAbOu+NeSvD1HvQM/DFXXN7hZx96Br7Jc90VNcdB9Az80L4PFvK/
R9Az8LRrOnbrmhhM8Izjl0a3797Mh56Bmw0MSc0UFkTPOE+hILzx6fJG9Az8
YEfCQqWkJvQMvOOznt2qGy3oGedHSuc6Nl9qQ8/AU+MNOqmSdvQM/If4+10T
FDvRM/AzrzR223p3oWfgSWTeBzzj+Mkdm/Rs+tAzcI1W31PctgH0DHyWiGrK
tqFh9Azc4nDc7am7GUzwjPNNx8742/nyomecF+Of56h5QAA9A6/YuVT84FVh
9AzzFB87es98//t8Ac/APfaVFBomtqBn4A+PqjzPe9uGnoGPOyF64lN1O3oG
HqD7YO7KqZ3oGbiqoYzlWccu9AzcdXjmlSNTe9AzcEEy7wOegT9bbXDYcO0A
egbu7fz8br7gMHoGXrXvuGO1JRc9A3+uLbY7IoEHPQO/0hMwfetWfvQMXEyF
K51jI4SegWsyrlgpD4iiZ5inuM1TtGpBZQt6Bj4r0S7h1cc29Az8x2Vntuaf
dvQMPKV4fs8qbgd6Bi54PTLJyKgLPQNnTHm1Ri69Gz0Dd1n80ibqdi96Bm5L
5n3AM3ABTwfxe+JD6Bl4tfvcnwnio+gZuJRZh9O6EgYTPAMfv+dhi7IiH3oG
7tM+zdJpSAA9A4/YKmRx204EPeP8lPb3cpljEugZ5ils5zaMa/JsQ8/AV87c
5qz4ox09A5/f6Gk4vaADPQOX7pxnkzGuCz0D75rtMjH8dDd6Bl4/KuFuNK4X
PQMXP56vH9fUh57xvGTeBzwj9+1UdEocRs84bzVdbr8/D4MJnoHfVX3vacXg
Rc/Awy0vPZx8iR8947zV4xupF58LoWfg469OHX19Qgw9Az+/TGUFD2cceoZ6
XduZ7V7rX7ejZ+DsL7YDwm870DPwD48XzHmc2omegbuZvtY3n9SNnoHL9Wyn
zrv1oGfgx6U0hOav60PPwCO7K3746w6gZ5x/IfM+4Bl4skeunvXJUfQMnKku
ZVnSQ3sGvv/CUFbvVD70DFy/6IDbrHQB9Axc/pa/R/wiEfQM/M/lR7yHDtG/
W5cddzfy/L3ut6VF3D2eoehzUt8tb3eFLGq79rI3M5cGoc/V8yTKNrilUTbz
Al5YFvqiz81k/sJri9jNRUs80KelH9/MxwrxlE9jX1HUrYPosy7hvzqt7rW+
JOOlj7B+KHW5/oIDx59SPdVWuHDIPxZ8dkX9V+9qHFM/dCLxG1wbODdR8Qv6
FCHxGy/o8BNaGIH5YQ6J39tovW+9fQjmYU0S/0qp0ADfl374HTFN47dVhHUN
ZXfZ4udxzyT0Y8GTcZ/BqKYip2l2WDb+Qj9+mWkRLLdKqpuKWtQ27Rf93kXm
WeaKa3zzUfuJfnaVPhoXaV1G1XV2zlwgnYh+Ki+6mRu4FVPXFxvVZsf+wN/b
sakPgovZRVSxxe7BI6rf8feWQepUxmPqaRNI/BVL475+PJKDfnaR+Iu7RfLm
bMlBPy9J/LI3NuQq9mWjh/7dzbIR1u3UfjF2eVZNNnrQvFmwMcK6jbp+r2PK
Yokc9OCwPf8cg9FKmd1W/PRKIwc9fCPzHe/uZ8Yc35qDHnh7cn65KTRR9k2/
Xk2xzUEP+gnZbRx2A2XVfGK2+NUc+rvVPWuSIqueWp/BPNB9LQc9mJA6Uv2Y
elc3iT/xc3r327BS9KBO4o+P/HNFObAMPdiR+LtMPOqNd5Wjh8oZHafcFP6+
B+gf2XTiRyF6uHajXSjCuoe66tsT5L2rCD0otbZ5ctjd1Gdz2WUGw0XoIZnM
4/QUTX764d0f9HDsa+sPBVYXxZr64IGrOQc9SCi2mrLcOqmlz547NcwsRg/B
91qarDkdlFcJT8vOumL0sILUebTG1KNKSfyRa/tUV7tXo4crJP7Rgk/+zz/X
0H8vJP5YVsPX0By6jidC4jFdxD1fdbwJvxM/kHhi1569HFzXjN7SKnpyrDlD
VMk2ybivcnR9yYbVY+WmMETVa/FOipxQht6kQrqH2NaDlEL+Fyn58eXoLWxy
930Oe4BapKZeV/y+nK6XOnXNYTAGqBscxowlRhXora+uM0KB1U+lS3zIU+PS
dbxnGzs3sNz6qAOFGpLmcXQdT5HUbczH1JeSSPwWHmsyVpxtQG/HSPyiazW0
E+c3oTcJEn9h8aWZLXNaMM8Ek/gTnq+bfntvG36/mJD4tXwTtFKb2tFzF4n/
gGldwG2qEz0/IfGnWHQrnnzahZ53bx55ppDMYLZnZ/QNOtP1JTXBkSq2NYP5
c8Lh7WsW0vWl0ajh+SwZBjMg9HWKf0slen7B6W9jW3MpBjvB4dC3Krpeuqbf
mcMepWIcc9UZftXouSKgbxKDMUq5hLokyvnWoGdnmb5ABdYINfxDjmfjN7qO
d4vUbYrH1Jd2kfhrFSreRUjT9aV5JP6DH36f41Wn60vDJP4Lr46lyVztQM/P
SfxBwidaBMW60PNKEr9+3JF1c1K60XMpif8wX33fcHgvenYi8W/I0Ja7FdyP
njPDuCw3Xz6mWsukncezqtDzayuuuwKLjznj24/vSe+q0fOpqdwSdgsvM2zz
UGbBkxr0rPd7VJnlxsvM3SS2sONlLXqe4Dx6kqPFy9zRmre9NaEOPddqjcZY
c3iYwqzfSnMlGtBzROOIAMOJh2mTwjy282Ijeh4hdRvGmPrSbxK/z5LW3fuX
0fUlHxK/+Fe9L9f9OtHzSRJ/yZ4b6ydv7kbPuiR+O9EX8fbre9GzLIlfrVDB
s9SlHz1Xk/ipJbPfVkwaQs9sEr+CUF1L4Te6jqc/gXeQ6yjI7K3J+n1tuIZ+
P0nm0XNTEGTOTbmtsGO4Fj3XX+RxVUgWYKou7pugM5muL0Ut5ClkWwsw1f28
015vbaDrpdUMeZaMAPO1IWv3F3Yjet79lHGcw+Zn1k1v0nuh14ye1QwZbOvd
/MxGuQadhQKt6NmO1G0UxtSX9Ej8FfFDKc1GdH1pAonfq7Xc5TEPXV+qJfH3
LJXILRag60sRJH6pxfob9Y4OoOdbJH6lRyG2s7WH0fNOEn/ophP5i49w0bMq
id/YTexbwAG6jhd9lj/AercI84vd3v3vRen60j1V/m4uV5g5aYa4UuJCur60
t5RPx81XmNkd+FV5ln0jelZ347ulwBJmrjuquGZpbRNdL13Ll81uEWL+Lkvn
87zSgp4zB3insdyEmIciO4cnb25Dz6+CeA9xtISYF7xKZh79RNfx6kjdxndM
fSmKxG9yOXBFhiFdX7pD4tf5Gf/p6lq6vrSbxM+Nsui57DOAntVI/JLh1lbj
Tg2j5xESf8RrxaBf6Vz0nEHin9C86mZzLl3H8yHxSxUEyajX0nW8hYWCuzha
4szQ7Pzu3r/HBc889wR9rTliTKtEZXtHA7q+lE0JtnIdxZgpsgl/9GKa0fOb
f9+hYsyJUg94M3e00vXStwJXFZJFmZa/WKLXJtD1pbW7BdLY1qJMryNho1HT
O9DzxHECE1kyosyQ2cETowzoOt4eUrf5Naa+pE7if+CnxA1ZSteXuHf/i//b
2q3Zo6fo+lImiV/kkGCnmwJdX3pF4ndVr988+SAXPduR+F3EpNoi/Xnw+2UN
id+s7+Z1kxa6jjeexN+ubeUscoCu4/lqi4iyZMYx9xbwLvYva0LPZ1uEt3LY
kkwZL8MvXEO6vrTulfBL692SzOWPD+YermlFz5P/xSXBVLi48OOyHXR9qeHf
ehIJZoGG0Yz3uzvQc/S/9TYSTOmjEmK+V+k63l1boZ/sFnHm8Oe4Sb05dB0v
i9RtBMbUl96Q+KXmfwn8KUXXl06T+E82rXiy5v4Qel5L4l9dNctG99Eoep4I
8QdzHBVn0/WlOhK/cIlwwK89fOg5ksR/U79QVGWUruPdIfGffv768sZSuo7n
ki6wl9Mrxcyo5T+24QNdXzrz7z5KMd+/UWwWX0HXl8yuCLy19pRi6tiEhCRc
pOtL+v/urxTz5QQDHRV7ur60YIlAB5eSYmZ3v0vsfUTX8Sb/u+9SzI+fT4j4
FtF1PEa2yFmF5HHMFbqm7+SM6TreG1hvPKa+dI/Eb7pNt4ZTNEh7JvFbFqhK
qT8bQc97SfwzWOneIfZ0fQni31Z52XruDV70rE7iD9srLh4mQteXJpH4ja/p
OacKCaPn0az/4h902Lg1aIsYel4/KrjE7YAM087olBzPYbq+9F8+kWEG+VtS
Z+7S9SW5UEFHBREZ5owkwRlil+j60n95Rpq5L+K+8W2XTvTceFAwmR0kzQzP
zK7N+07X8f7LP9LMu1ZF21cp9KDnGDlBWdZmaabvnod836PpOp4Zqduojakv
rSPxT7jAfXDuEV1fWkDiV5q57eVmdy56nkzijxJ6qZjwkgc9M0j8bmeUThtX
0nW8BhL/qiWGb8Q/CqLnLBJ/Xv+XS3dERdFzNImf7/z8LSM/6XoI7wJhCVa2
LHNV8bgZ927R9SVYP6b0dHTiypN0fSm3UsiUc1aWubRoV9Ht03R9CdbdbX8q
km/zjK7j+T0RemU9VZapW3Pl68lauo7n8u/vS4aZdnt9VIglXcc7ayDUxI2V
YT6VnKCzfmo/epYj9RzXMfUliH9lz2OjmtV0famRxJ95bHrq9Vi6vpRD4p+1
1WG60Fe6jhdD4k+/1vFguRZdX/Il8ceZbZtsaiCMnu+R+F2aeg+HCIrjeD1S
/2mvnvjEItmRzvOkDtPj3ijHOy8Mn6cBpC7U32nUVr/1Ba6PWkTqOe9cBe08
53/D95nAS//Vi6S9+EKCToXi+ih/UheSGTf8YvbnRMyHlbBulqxDBt5LeCbh
EKchqc/seHzr8lM+moeSOkmBjcCF6zPzMf5cUrcxkEgxvr4hC7kNqbfoiJYG
Hjz1B+M3I/UcEdnW1YvWZiKfS+o2hwKuvXjtXYbnHez+r06SMPCg6OmZCuQ3
SL3ihdnTU+42VXheHVI/idp+6fYdoUrkuqTuoWM97emIUy2e9xqpqySscTsS
4VyJfJTUTwQHj+vHyDfi+/lpUq+T3PN5hsvu13i/YD3ztKeN/etl3+JxgOc5
RNd0yr6n51WJZ7ntt/fud85ADuuTq3UnJIfPycL7BTxhzP0CfiM2TFZ+Ui5e
L/CB4XtfN9bmYTzAB4Xsx/P0FuDfy2bi7ZJ1zGDW4SKMR5LUqXT3lkW+0izB
eNikrtVM1j/jekLCBwiHOGHdr/XShQEup+n7ApwdbCBxbl01xgn8a/wOgaGt
tfR3GakXHTn8zNRCtQbPm0jqS3vIumjgvwk/TDjEY0WOk9BfZ53yugH5fFL/
CdPZMDLtNr0uC/LSxBK7FoOMNozzDOHjrQuM1KZLYb7lJ3lp091ZrfFcmkNd
OvDEop0MVWnMw7iuMr8zaAs3ENd5ggfvdydjAjyK0QPw+cUfDsYOluL1Au8i
/nFdKPEQHrDY+B1PLX2/CN8/xg/w/gWPUpSf0vvUoH5e92BiSdaOUFxPDlxy
2HiKaUII7kMBvuqFYW7UxjDchwKcaRxwW2pfOO5DAZ6w4+Z0+YefcR8K8P5j
K1Pm1rBxHwpwixl21F3LSNyHAvyWQaKT2vho3IcC3Lj/bWcm4wvuQwH+UKn8
3fMl33BdOvAlTKtHaRZxuC4d+PehCQs/cOLRD9TJfUs0JS6k/EQ/wOceOfXw
nm8i+gF+3vPS6hNSSegHuMM2m+SYC8noB3j9Xr/4cplU9AM8ZntxCKckDf0A
l3iZLO9Sm4F+gHO3Ttvl6ZWJfjCezs3RNzuz0A9wlVsCPjaXc3C9OnDTJ9HV
66fQ+/rPk/zceFnstuGuLPQA3CT+QtR520z0ALy400W0yiwbPQDXUJnv3nY1
Bz0AV1DbW7wyLRc9AB+/P2re6Op89AD8bcJOlSUtBegB+Hb5pGmLiorQA56X
OqU5Z3wxXi9wtv+Zwy3K9N8F/L2INj9MKfycj9cLvM5N7kS7Qx5eL3D1dy+U
jScV4vUCP6WzTmiBXxFeL/D8MJsA0cMcvF7g9VOu7Ht9tASvF3hF6mo99+gy
vF7gzy4edfHQrMDrBf5n0u0M6mcl3nfgwjOYz+f4VON+FuB2MSrrF7k0434W
4OXx79lG0vS+DOCprRu8nPg70ZspqQOveCkqtOwlB70B1/Do5H4c/we9Ae9U
X1bYaFqC3oAbWsjOrzEoQ2/Ab1d89DaKL0dvwA+xV+ukCFaiN+Bvlzct0nSs
Qm/ADWxFla9r1aA34PfXHNfSWFmH3oALbVCX5PdtwHwCvHnU8sDlG82YT4Af
ifsopPfXF3gGfp57vvC8TCd6Bp56WUS18lw3egbOFybif3CkFz1Xk3ov76Y1
ZhMmlqNn4Lmddc8Hd9B9ToC/Xj8Y0D6tAj0DV951tzdOvxI9A++c21gf/bwK
PQMX/toaN0G+Bj0D/2Y/MS6qvhY9A//+xSxTdbQePQMPm/Y16fPZJvQM/MYv
htr3463oGficz0G7chgd6Bl4QlCXYMn8LvQM/NLuDZms9B70DJwpGfguvKAf
PQMfrHIXcRcfRs+RpK67uqWIu3tZJfJRUpfmI/03wD+Mr5uX2/JpXgVyGH+O
9PGA+wLj528JYWyzojmM7x3TxwPGu2R9vGQbW40cxnPf///7e8B4mX5pDwtW
LXIYf2ZM3w8YH7xkav4OKZrD+N9j+oHA+Mu3tid2yNMcxp8c0ycExuvtahDb
/6gZOYyHdaTwO4Hxqfl276dfbkMO45eP6SsC46VPupyqcKI5jJcd028Exu9v
vVRj4EdzGB8+pg8JjH/sbrg8YS3N8XrH9CeB8fez7VeXnaM5jE8b07cExv+e
uEO1aiHNYbzrmH4mMN5J/8RopyPNYTw/6XMCv1uo5yv5pk/cIF+Lv0/gc0MO
ys/JpfvJAD+mK+lw0IvucwJczfG+5rUNdJ8T4K+u16VuWkH3OcHxofePjZ6n
+5wAl1QvKzIZR/c5Ab5PdeqqRz50nxPgyXHRpy86031OgLMW6+YlZPbgfQQu
9P51mc37frxfwDVdp23YrUX3OQF+ecWf4YfGdJ8T4DEl4wzN6njRM/Cp5nzP
BC4JoGeo2zc8fNIwtauO7ptE+MabwvxqN+h+MsAD4pOMPB800P2RCBeI74jK
PdxE90ciXGF9+7j6Wy10fyTCuwxuZvHy0H1OgJ9aO93L+Qzd5wT42shb5y0W
0X1OgBv2KWa8Y9F9ToDv/WgiZczpo/sjEe609sOaJxJ0nxPgch6bTLbJ0H1O
gKuNet2LFqf7nAA3mKU1kitC9zkBrjGnM8qGIYyeoT5fV6n9RyCkAT0DFwjw
KzNTovvJAJf5lrEz2rYJPQNPrxtVj7FtQc/AK0+vnfs8tg09Az9kutKBuYzu
cwJ8+bJLrtczOtEz8KkBOou4Yd3oGXhsXnS2D4PucwJclKs0LyRvAD0Drzkk
ukhw3wh6Bu7S1bRUvI2B++iBLzHKcFyXwIeegcf3ebzVUhFCz8BZdeV/CpxF
0TPU4VsXrJs7xawJPQPfJiQ6GMZuQM/AebLfv2nVaUHPwNMOK0o6HWxDz1jn
V733trad7icDXGRCzb7zBzrRM/Avdr+2vZtK9zkBXrc1f3K6Ct3nBPh33pPB
v/7mAfAM3Kdn5xTD+CH0DPxkD6eP4cdFz8DXvC05vNmIFz0DfzNh3AfHMwLo
GThjqvKMB2tF0DNwi8DfQ0whCfQM9XZV62I/2eFm9Aw8NW775cxlTegZePaB
d+aiI3Q/GeCfLk4yuelL95MBHtnlEfKjn+4nA1w3LFA7/gbdTwa4z4ZpC0XN
etAzcAn7cKdu9z70DJyTrhq4UX8QPQPnOxXStdF7BD0Dv2Axr8+khe4nA/zJ
h99qJ33pfjLAr8aWsfxmCaFn4AvfHilrMRNDz8DHT62/e/HGOPQMdfWORU4G
h+/RfRqB2w4fuj3pI923B/hg1GMew+10Pxngo5uvJjq70v1kgC87uWMfs5/u
J4PHsax9N+JN95MB3j9Lx9LnCd1PBri3UrDN2S66nwzwe0zep7oFdD8Z4PUP
l6km2XLRM/CotpaDZ3noPifAV6ep/srqpvvJAPdYa2jam0j3kwHuGGw4ec8Z
CfQM/Olly1vneKTR82lST2t5ZLR/njDdzwS4e52g/Gllup8J8Jw/Mg+tTtJ9
Y4AHvd5/Ra6d7hsD/OfD47/6PtF9Y4CLbeT/pPOT7hsDPCrWp2oRi+4bA3zL
tnuvbu2l+8YA5+nYu2qTJ903BriIqpGM+Tg+9Ak88XydVK4O3TcGuKjM2o4P
B+m+McC9N3H8a2/RfWOAvyn/M1ltjQzzkqtdlJtCPNaptITlxs22DKN6zIOa
FVgpyOWXiUcYng2nIv6t08pCrsp4l3Ph3WfK7srD9wosuv628pz+YP8om1Jv
VP9hzfmDfPwtq1VMp0gqh8zLAD9M1qku+rfOgK6zyQgeFa83+0bd188ez3Kj
62w3Bk9kP7CPo1oGfV5Zc+qRZ2/NCzHvi6c2BJ9Q/189GnjqgchOW9cf1HtL
nRi2dQtyyQuCdze5JlKCkyXWc9htyFUunvE4OCGJShTQ93dTSMb61c8pXun+
JsmU97G4424KWcibZl5xm1KdQu3O3XuDw85DvlIk3vrp+zRq0qohbwXWH+T2
Z360ZAdmUH6kfgu8iqw75bNd5qzw97sKeJf91haHwVxq3795xHrklZ1GpT95
C6jYwjwva04j8sKPJ59bWRZR0118VdwUWpBfUwss91Euxj4PwF88PnBmx4ky
yoPM30H9ypysU7357R6L5ZaJ/KbDZFVFu1xqjbKqpZtCHnLqXChzU3Eexb3/
6yKHXYS8b9h8V4RDAWVP6szAB8g60nwj68sKrHrkcS05t19LVlKavCvFWG6N
yNce9vtiLFVNubFFn1pzmpEbauZ51x6spVqPFim4KdD1tz1dKdwo6QbKFvpI
kPpSH1lfqvZvXWMucgEZW72BB8VUfaX7TjeFIuRuDfKbNeJLsX8O1tOqfd+s
CaL7ogBfbbfL102tg5pA5jeh3nKLrMPMWmKhxXIrRH5J7saKKe8rqWmkrg58
JVn3eF6k4LQCqxl55bXiT/lzuqjCr348LLdW5Hfymy9u9Oyhosj8KdQfHpD1
h62w3oxwW7Kuz7BOzFaB1UrXNzTTLSMTB6gD/0dd4v3/UU+Y/X/UDdLG1AdO
k/rArTF1gAxSB9Ab871vS773Gf/Hd73Z//H9/mXMd7oM+U6fMuZ7PIx8j9uP
+e62Jd/d+f/H97Xm//EdHUfmceA7eh5Zv/dgzHc0H/mOtid5GL77PpRXvIo8
WUe1kzwMXLSbR6lzSgMVTvIw8IcVFl7ufE2ULcnDwMt8d3w4sbyFUiN5GLj/
geDcyTlt1EKSb4HPt9ZYk3C/h3Il+Rb4Zp2q38939lPNJN/i92nMwcQXOUOU
Acm3wOunm7/tlGYw35F8C/z6vs7ibT68TH6Sb4E31a6IENUSYMaRfAvfZaFH
dHpvDjVSXiTfAp93JjxdTayF2kHyLXBqpl/m8Ik2ajzJt/j9++z3YNLMDoqX
5FXgEp92umpuHaQsSF4FvtN6leYf1VHqG8mrwK+qT743/hIPcxrJq8AfmNlv
XGDBz7QneRV4+BGv+YGmQsxrJH/Cd1DalAMzbFpbKSbJn8Bfzh7HuvCtnRom
+RN4iVSRgzzVSeWSPAn80ftfK2KUGUwNkieBR+6e6Lo5hZf5gORJ4PfWqepf
5AowW0ieBP7we9D35j0izLkkH8J3BOt+/NFtoR1UNcmHwOcGVrXuZHVR/qSv
FPCq3bOs1g3wMflJngQ+PUpK7tlFIeY+kieBh79WqF2vJ8ZMJfkQ3qt7x5XG
dlLd1DmS94D/fq48STJfmJlP8h7wY4uaHk4Q/hsvyWPw3vih/keg9ydJ/HuE
53ut5H/rH9pIPoTnoCpZhwD5EHin9TKrR5YlmJ/h+eJB1hVAfgZeXj0SvTyw
BvMz8JyzRUJp2vVUwr8F5lcxnicBiXtl00KwjgF8OSPqdc+LH1ivA34k9u6X
LJ9ErDMDr5o06vxQI4nKm5C10k2hBuN3XXhjjUF9Dr634zxd4YAwc1cefocC
v6xy/OsDuwKMB3jao5oLCrVFGA/wc+eT0ttiiyneZV6r3RSq8HqnHjsSf12s
hLJoPprBtqaf+yGlN9+Gp5XheYEHVzRnXYuoxPMC962YcVU7vxrPC3yb82tf
O1YdVT7yn094v60M7uI+3E5/fwEXNlfgyk9upURI/gFerysaKN0rzYT3czi+
TtrRTxoJpegN+DTpcd4xDeVU4+a0YrZ1Gfqf72kqa6IZTe24u5obaR2Ifvpy
b/xqffuTyvF7GmXNKUVuZmblf/hCJrVOyPMIh12BXNMvYG5cWhb1Qt635gTH
H8/b++bG0Cm5LIoKX7ezmP0V+eQ5rln1E7OpmP4DTxRYpcgD/ujLzNpWRH35
t066gh4/SS1d6iKHmlLz+wCHTd+v9sof2/gzS6gq6NtG3mc2Z8oPB6jnU5Vc
+7QI6xh6HnPH4eijTgXUEZNzcjacn/R8nxoPO3mokPLdsOgUh12CfNRfbMTb
t5xauMtK/3/rS4C7bHw0O2xGJfbZA77Yv0bAj1NFbX2dfSDG2hPfc85Ix+Yb
f/lDXd8QQLkrRCHvUj5+PHxXMbW8b1wOh52IvH9wYozB/FIqJMlA0IaTgXx7
+TzFmTPLKZd/+y5KkA+MHliyc1U15eucHm7Noef1yoaWfr0/qRZ/58AnPxu8
tfZvXobfOc4PxkxMflTfSH3z0d7NYdchD+Tfdc9z3N88Qfq2wXvX5cAWyabi
UmquByfUhsNG3vjt6drTFuWU6It391huCchnu36Q3XeygnK2qYrlsNORuyX5
pe57W0mNzLw/wLbOQS6abJCgL1pNnelIVmO5FSOfpXksufxKHSUXtHgOy42e
X7sjsN/LJ7yBOvdvHT89v3ZqWvUNz83NmGeA89++Q123b6M0UryT2dZ1yAXf
jZTG+nZQDy7bbP/f+iHg1jm2R/u6u6h3JB/C+5Jc42/NcyYVVEKluJKBWzhy
rrFggbBlJVWku1o/wvoHcqNSnXF1HlWUyfiLDiy3NOSeZ5YEze+rpqrtdudb
c+h5q70CrO1tt2spn3/7YQqQy89X/Vy1u57aS9YZArcl+0fu5T97qMCi55uk
d1iZX+E2U413Ds/437o3nDdZlHxo3N/30vXU0kBrDj1/lMgxdP6c2UH5/1t3
W4f8fLzmMWHhbor/XW4C25qeD4rL0K3hje2l9u95Y8Jh0/M+/SlhM9sFBimu
w3/rguA9qpvsB6kneQm4lYjS0fJTHZQByUvwfnKnXSTS+mUdtR767RA+nuxr
yCT5Cnil2LMqp9ROSp/kK+A8aTVLRzK6KUeSr+C9Yr26NqPmb35fSPIV8ME+
95iarEbqAfneBP6LrOePJHkM6+Q/nVwYIt1UNMljwEs3iJ/OXtRLTSZ5DLjr
pCLthIJ+6hfJY/C+4ayW9fbC/96TSB7DOnP3I/k802bKguQx4EdNHzGl97ZS
x8n3I3B5su7dh+Q34A+DBZ2WqvdQ6iS/AW+bcqjcxL6PukfyG9aNXSSH9q8f
pBpJP0/g2vnfdximjVC8JO/Be07Q5TfiuxqaqFMk7wE3XvDLvzyhhVpA8h5w
j2wRM8uqNiqA5D3gItGh5c0qHZQU+T4FnknWk98i+RA491jN3fiVvdRrkg+B
G0yMCFHx7acYJB8CX3VdLU/i2RBlRvIhcPV3W3yqDLlUDMmHGM/d2jp5Xl7m
BZIP4f1NmV07f9u8FkqK5EPgb9u28YxO+fsd5fVfPgSuWTPrl+q7duocyYfA
r/TO1j3T0kH1kXwIPGFfgpOHVRcVTr6Xgd8m67ptSJ4EXlQzLUJIq4+aSPIk
cBH+kSWF7AHSp4auo06ZsyR/Q+owlU3yJPAb0RuiKrcwmAtJngQ+9Vx4zYJU
XqYLyZPAN1VlP7UbEmAGkHwI7y2uHCn51vntVCrJh8Cv/Ags4WzuoPRIPgS+
vXaxUdqbTqqU5EPgv3/ZFenP6yb7AwuQu3xf9Nu8r4faBn2ECHcj665vk3wI
3DhjyCo0ZJCqI/kQ+HCSyGyn8hFqLcmHwM9Pe5szp43BfEPyIfAyn09ZKRf/
ft+TfAh8Wby97PkMQaY5yYfAVUs2zSqfLMYUIOPhfWzQMy0ruDeesiTjgQ9v
eHCv/OMPajHxD+9dC80GlD/E51EPiX/gf2abzTvbVIDPcXhfUhYyNza/XkEp
wbpfEs8ksv7zC/QvIlyarP+E9fMQz6nbv79NWBWG6+eBf/luFSsvH47r54Ev
1l+hrzLtM66fB756dVFD03w2vX6ecIWv6zVf7IrA9fPAvcWK/dv9InGdPHCr
MX0DsO5aZnd2s/A3XC8KXLBEadrr8XG4XhS4i+0yv1mseFwvCry+NLH4+eXv
uL4XuPJ743tJoz/QA36/CHjcnT4tGT0An3JTcXDwWAp6AP5wcZjHytJU9IDr
LcVyEwvPpaMH4LnpMx2f6vzG68X66pg+AFhfrS3nbf2ci9cL/Ma7Oc7a+/Px
eoFPFJhz045ViNc1tr4K1wV8HJ+zn5FuLl4X8PROldALJ/LwuoCvyEny/fgt
H68L+KkFtzsWLinE+IH3k7orxA/c7rxcMyOF7lsI7+G9Y/bjA3eIbnvxVb+Y
7qNL+Ere7J2NE0rpfrnwPv+Es2zmuHK67yvhKpvqzix/0UL3d4XztkzonPH/
2V8G7883x+xnBz7zTcJDrl0lnhf4xIvfSh5/q8L7Anz5mH3lwL8EHZKNTKL3
lQPf28F9LlhE70+B99j7Y/Z3A7fJj9MzWlJH7/Ml/PiY/dTAd89eeYNtPIDr
yaFOmD2mXx9whzH9+oB7junXh3XRMf36gG8f068POHtMvz54/zxB3oeBw/j9
Y/r4AR+7zxr45jF9/IBzxvTxA/5kTB8/4FJj+vgBbx/Txw+415g+fnBdyqRO
i/s7yPho0t8P/MN7dZUrn2v6arqPH/BIL+P9fkH0Pmvg0xWFogb16T5+wJ9E
XBcym0j38cN1QSLzPp5Sovv4Aaf4Tf1W67ajN+AzHI66l+rR+6aBl797MEXb
h943jeuRhpPkDtrTffmAq44EGBrVjKA3XNc04hGwtJ+B+xSAn41eLhO34u/9
gf6c5LtAcI7TArFYeh808NOup6ZFOzbT+82h3htmYGt3sZXuz0n4woPems8t
6D57wP+sEJrr/LGD7qtJeEJwUEZkI71/GXi0qET15Nl0fzxcB7XK4vlMZ7o/
HvCepAfpWjm89H5PwouueO2ac1yACdeF63zWsGdPek3vO8Z1OGaX0g8fpPcd
A1+w4uMHq1f0vmP8fpkd0n1UogvjBz7FVJLPIoreFwy8cPTlMS1xuu8ccPnL
O3l/vOPH+HFdUxRvUPczISbEietJtLqjBq7Q+3aBy1kcmNuYT+/bBd6x2nSW
oQXdpxR49Mf7ygau9P5Z4Hvr7u8XdxDEeIA3XlTapJMowoTzwndBtKe8+1Je
uk8a8NjAcON173rw9wncfPjAJaYevW8UODPvUaJfsxgTjgPv1Yed50tsraXz
MHBZQ+HKERlJJuQxeD+5TfaJQH6G57tx0d5GzaifmPfG7puAvAc8P/Vyx5uy
LDwOPH+fld/mD9bLwjwPnF/WtbpWne4TjvVPsh8Bjg9c5eZuK7sKDh4fnqfT
FHu3SzzKp/v2A2fwnSxOLaD78xPe+Wmz6BylIjwv8KdkXwD2qyf8Z82GN3u8
Kum+9IRPr5TZVL2qGuOB52m5cZKlyEkOxoPr9vsNy191FmM8wOW+rr96y7sU
8wnwn7L6Ba5UOcYJnEXW4UOcwLMy9pkE8tRhnMCL+JzsTOQaMJ8AjxPxslZ0
bcK/R+Caqi91vtq14nXBc1z3nG6KQXcZXhfw6CkLbk8rpftFA1foniogXUy/
dwEPrZd2cuyn+0UDDz8Zs6ZhWTVeL/B4sh4erhd43tMdq0PnNeH1AlfR7us2
j2rB6wWedVF75I5ZO14v8GdbB58kK3fi3zvwyY2xmcFrutEDPE8nORZWmk+q
RA+4Trt6t1zvtCr0gHW8I2/KfzGr0QPwlVNLmmfcovs5Az/t937RhQG6nzPw
2rcOETVe9egHuC5ZHw5+gB/SOPmjUr4N/QBf2OHwqFWGfr7gcV7kP7Evpvs2
A08L+rCoaYTOh3j87tj102/QfZuBt824GpbsMIjextbxIH7gFmTdMvbNJs+j
5aszMxOS6ui+2YRPIHU8OA5wPbIuF/tXE+5fIcC3RbyH7udDnheh/torN12l
+3IA33H/7doCQbovB/AkUseD8+Lzi6xThfMCnzGStzckphf9A484sP7OYTX6
fRieF+ODVW5pzKP7VwBXs5xZtS+1GeMB/sOzv0vNm+5fAXwOqeNBnMBryTpP
iBPXl67/uOLo3n6ME/in1eF3CvjpvhPABWfcdnLQHcX44XlU+uZo9OxEur8r
8JdXr1SqObVi/MDf3aG2L9em+0IAH5x3XnTDFrovBPAsUseD6wIuTtZVYt8S
wk2L9R0+dtL9NIA7BVUa8WbS/VqBU+IJZYtU6D4PwBX7K+ambePF/arwPPXr
jEm8b9KK1wt8jcM6nr2ydH8G4HJeJvqmU+n+DMDHp5S+stSn+zMAd4g4ffOd
J92fAfgdUscDD8BfkHWP4AH4GfZ2jRsX6X6quH7y+FLJble6nyrwmXle9z+o
0n0YgGfXcxbGONN9GIDvnVHncsuO7scCdaHxpF6EfcIJjxD20lcpp/0AH5T7
fvhZL+0H+Kvdc25padB9FYDviyztf/Gc/m4FvkNvnr+jNt1XAfiTMX0VMB6y
vhH7hBP+/FDN14Ihun8FjnfUe7lhNt1XAfhbrsC02Up0XwXg/cd2Se8LpPuj
AjcpnFUzJY/ujwo8Q+v2YtUYuj8qcNkx+6zh/a2GzPs3j5n3nzum/wBwjdNO
U75Ll+B1wftV2EL/GUdml2KeB/54TJ8B4GdcwzYvP1CDx8f6oaO57YNnddT/
A/7Ip48=
"], {{
{RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
GrayLevel[1], 3],
StyleBox[GraphicsGroup3DBox[
TagBox[{Polygon3DBox[CompressedData["
1:eJwtmXfgVmMfxp/n3PdB2pPqlZaMJC1KKe0pSYr2HqJJRUlGdmmbhTQQiZK2
rFS2MitEiBDxRjLez/Ve54/T99P9O895znPOfX+/1/e6K/Uf2XlEksvlXuef
QPyJWJx4OJ/LTYEfhzfAN8JPwBvhG+Cl8Hr4Nng5/Ap8E/wkvAkeAz8AL4dH
wffBT8H94Dvg+fDt8DPwq3B3+EZ4HnwFPBNeAveH74QXwMPgGfBieDR8P/w0
fB38KLwavhZ+BH4ePgD/DX9GPI7//wM34Did/zcldmWsKtwQvhiuAp8Hd4L/
zZnL8lDOYLwZ3I3xOnA7uC88AX4YXgXXi7nc+/CLnF+d8ebwZYzXhtvCfeBa
cBu4N3wHvAJ+Db4TfhbeAhfmyHPkOJ5m/APwO3gWvA5+G54Br4HfhBfC2/Ub
4dXwHvgQvBh+E94Lz4TXwm/B98AvwG/A8+CN8PvwI/BWeDf8MPw6vAt+FN4G
74HvhTfBO+Dp8Gp4O/w8vBv+BW4L94PHwavgXfDP8AvwZ/Cv8BL4LfhLeCn8
NvwV/AT8Lvw1vBz+EP4efhJ+D/4Gfhx+B94HPwN/BB+AV8Afwz/Aa+Ev4P/C
a+DP4d/gdXAh+Cx4U/A1F/HenmX8E/hH3Wfw87yX8fmMvwZ/wvh5cGd4CNwM
vhweCV8MD4Unw6fwmWLwQcYu4RgOT2H8IXglvA1+IHvXr8MPws/BW+Hf9Ls5
ynOUYLyq5irjh4nfcpzEUZzxKsT6jBeFK8HnwCXhUzRf4WJwZfhceA78FPwS
fDf8GLwWvgteCK+BB8AT4RnwQHgSPBMeBF8Pz4IHw5Ph2fAQ+AZ4DjwVng8/
l72jl+CP4GXwy/DH2dzW2nwBng0vgzfD0+BF8Dr4MXg9/K44+pk/x3uIHDXg
D4j7Oed3XZ/4Hccfuj6xPEctuBWfPQ4uA1eFj4FLwSfDBzW/OIpoWTFekHgm
4z9pDnIU5jiW8dLESoyncEk9c7gQxy+abxxNGb+MOIKxCnBduC18ElwHbgNH
uITeIxyyXFoWPqK/wf8hNmD8Yngw/Efeebcc8U99N1yB+Jfmvu5T980JjbTG
iUeVDziq61pcpzaxtT5LPMJxhua91or+rrXNOYeI7+l3c5yo/Mf5R/WM4Ir6
Lo5j4crKO5xzvK6jHMhRAD5NuVPPF65G/D3//9NyJ2a5Wnn7XngBvAX+FL4f
3qx3B5+fOu9fwQNoAF8ED4Ybp87vw+ELUuf3q+CmqWvGCPhc+EJ4IHwe3Ake
AjdLXQNGwu1S157xcEO4s9YkfGHqGnMd3Dx1TRoFd0hdt66FX+Q4Af6UZ9uE
8aHwlYy1gMfDo+HxcBn4AnhJ9Dt7ifMfj35nr8DLop/Ra/AT0c/3VXhp9Lt/
GV4c/ew2wydynJtzfWrP9W/l+hP4+2lwQ/hSuC7cTvkUbgRfDg+LrkmqKapR
bVPX5nGMt0xdk8bArVLXwrFw69Q1+2r4LLg53AOuCbeAe8I14Avg7nAduA3c
F64Ft4J7w2fDLeFecMfUNWwifFHqejAJHpM6/86HR6fOvw/Bo1LXgAfhi1PX
sMlwp9Q16Xq4Ntwa7gO/wFFIeZ/feibjTZRzGTsDPh/uBp8M14A7wPXg9nB/
+By4AzwAbpNax1wD14c7woPgU+H6cBf4dLgR3BWuBp+r/A1XgevCneDK8Nnw
RXAluCbcEa4K19N6hk+Bz1GdgKvDjZUv4PuIL/KudvLu10fn6I/4XRujc/0n
8Mmai3pHfC4hVuT8upz/TuLctZG4I3GNeIm4ILpWHEk836+Dp3P+6ZpDcAjO
P6oR9Rj/IbH++ULrm+NUuFHe869VzvOxIuMt4e6MV0o83gPemTifvKLrRWvF
cdxnWWITxi/hnLP03JVLuU5hxmvCzRkvnXi8fVb7VCM+hCsqz+u9cJ0ixLMZ
b8F4zeh1cQ7x+8Q57VPlLY7GcGfOqcrf3tJv5rNV4De0luFyWqOc04VzKjO+
TWsqm9dDGJ+U9zwaDE/M+50PgCfkPacGwtfCl/IbxsN/EJ+Nzulvwn241iL4
bsY2RdfdxsQujM9VHoSfi64fb3H+yug69Db8VHQ+3QJviK7lH8Oro/Pyu/Cq
6Dr0Drw8ulZthZ+OzsuvwxdxXK0cT1wXrQM+DJ6b3Ri/Uu9C+QO+Aj5N8xce
CFfTnIX75z33+8JX5z1PB8HXwV9Ea5ojXPNUzXfGB0jbwBfC/eAfE+eeLxOv
j57wqLznfm94TN5rohc8Ou/11Acem/d67QIPy3sNdYWHw30TP/NpcB/NL/hu
uLfmCHwXvD1x3WsKnxqtibYHv2vVxN3wZs4pB9fgnK2J6+EFea8v1fA3OKco
/y+o35Fzn6MafUI2FrVWVOei6+e24Pl2IKu/mm+qy3vgNxPX52bK74nXY03l
/cSfrZX3etmfaZjq0ffzvnoK5Z1clt+if9cO+DS4QnafNaKvvzO4/mhddOCa
taN7Ft1Dreg+Rb99S+JnUidbX99mny2W6Zif+f/Z0T3QLsY/SXwPTbRe4NZw
T/hzuD7cES7CUYJjb87Pp2T2jL5NrAHeTqzF0rzzzt7E17+I/9flu17V/RCf
YnwnvD977gWz51wi+47js2trXDLkWz5zWVbvVPemMDZXcyn63lSvlc/U16mn
Kp5371SA45vE+v/rLE+uJz4T/T1B2iV7Fnom+7J7KZp9b4HsOrnsmenZFc3O
LZVpQf1d37cj5/sukl2zTMZ7s3NK593Llc6uqfOfjNZb9Yl/E09g7JS8e4cf
svlYJLtWyL6zUHYPBYM1p+rFw9E1YYVqevA6Vc06mrgHaSBtknhuqw5oTmhu
qMYU4KgGN2Ts+WjdfJ7me3CObaPcE3xvDZXDVJ9UL6LnuuakakAaXKfOj16T
msPK6Y9E16g1xEej68ZaYiliPc5pp98UfA9NpL+Ca0Sr6D5cc1v5XX245rby
e/HgGtFc9RM+S3lA+S+41jSLnnOae8r7qkfqF6TZFkbXkM3EMsH30FJzM1rH
t5CWUGT88rz78zZZfuuV97pQ3TyJz54Pt9bngmtfW91zcI46rN8RnIelo6oE
X1P6ZFu0L9BemiG4zl4ozRBcZ6UlqgV/lzTGmdIg8FA9b8Y75KxDagePS6vU
CM7n/9cbwflZOuTt6H5VGlJasj/j47lOneDcK+1UN7hGSJ/UDK4R0kInB9fQ
dnDn4LopvX1BcG6XDmwcnNulA5sF53ZpthbBNUW68aOYeQHERoz3yFlznhdc
L6Q52wTfmzRbp+C6rL6gY3A9kk67HL4iZz3fIbhGqxdoF1y7pfHqBdcR6cPj
g3sx1dYCwf2RtNZxwX2iauW9wV7WDdJmwZ7VlOgavkE5Oe86/4beO/x4sPdy
l66ful+VBpgX7I9Jx86Fl+SsgZcG+y13wg+qfsM3wQ8Fe2U3w3OCPTTp3mNT
9+rSD2uDfZv74TXB93AfvJK/fwof5H6eDL7PaYwvC/ZwpsNPB+vMGfAzwVpL
ffny4F5spvJwsIdzD7wq2OeZAz8f7P/MhdcF+zMPwBuC/RZp+PXBXo00/MZg
r0Y6f3WwRzQPXhzsL90OLwn2qe6AF8HPw7fCjwV7R7fBw7m/m/Qb+V094DH6
LHwlfLOeAzwZngsvg2VWTtU9wD3hsbo+3CuxLrozby9xtK4Pd4VH6JlL18FX
6V3AXeAr4RvhbvBI+Ja8a84oeCp8PTxHzxBeGdzbzuaeJzE+G36C8ZvhB+EV
8KbEHkNteENiX+Fs+OFgz0f6d36w53kL11kQ7AFOha/ib7foHM6/Bp4GL4TH
wdPhx+CJ8Cz48bw9T3mkS+GR8K16R/BY+C74EfhqzVP4UfgW+CH42by9FXks
s/jee4L9Gfk004O9U/V09YN9re+JDTiGwQe0hoL9ve+I/yb2qaRvZWLIg5J2
bRjsff1AbB/8Tn9Vfgp+X78Rmwe/l4PEpsHv5Sfl1OD38qNyYfC7+IXYNvid
HlLdT+yDSWO3DH53PxP/Tux9Saur/5Eeka4uHezH7iWWDPZ+PyeWCvZ1v1Be
z/SL/KXGeesi+Uu/JPaC1O//kWlL6fAjmd6TPv8rcZ+lOvtbYg9Kvf+viT0l
+QOHE3sv8gd+h8vm3AtUz/ua8mdGpvZwte7K69kx/hWxUrBftI94W7DvrX7/
9mCPXb7H1GCPXX2uvATlnJelS1L7dPIWxgV77/JMxsO35+yxDIWvzdmfGRns
58jXGRGsu+TJHIr2/uSNyCO5h/FFXH9IcO8pD2dasB8uv6VcsE/+JfFujgU5
+y3yVMQr+ewZjHeH9+tdBXtr3xBPD/ZXv9WcyVvvycOvHOzBfk08lNjfk6/y
c2LPTb5Kn2yeKAccjV4/8nCuD75neSOTg/cR5I3cELyOtJ4mBO81yCO6VXUi
Z89kRGqPWzn5kuDe5HfVpdTesfJeudQ9krTBA8F+Znn4xDTrq+HSWc8srVIq
dU8rDVM2zfptabDUfZd0RfnUPZv0WOHMF5CuK5DaUz4JLpjab60AF896aemx
kql7b+mr2dzPKu6nHDwz2HM+Eb4r2B8+Qboo65+lr2Zk+Uo54c/ofFSc+Eu0
F1yA+GuWu48nHonONcWIv0Xn7oLEYqm9AOnGw9G5uzDxj+g8VZR4Z7AnXAae
FeyTl4WPS+2P/wc+JrV3rOf5e3S+K0L8b5Y3CxEfyeqdcmzR1B6HtOvBaF/7
WOI30bn+X879Oro2/AN/EO07KYfsjPa7lJdOSt0/Swvti64ffzNeIbU+k5bb
H123ZO4WSq3ppe0PRPeugfhDdE8bid9F16088fvoupUQX4vef9J62RK9L6W1
/3r0fpXW/ivRXrPy2BvRe0taI29G70tpHb0V7S8rP/8Y3VenxJ+ivf5jiO9F
e4DKzz9He/3HEd+N3ttQnn8/2htUHn452mtWnnwp2nNX/twavTem9XhCmmlo
xrZH73VpLe+I9gyV20uk7gHkmawI3n+RPgmp9yQ0Jw9nfaH6SvXU8p3kP6nf
UU+tvvym4L2MkvCUrH5p/ar3lz8mn0y1eJ/yv2p+cA3VvO0GT4D/JPYI3u/4
i9gzeL9D77dX8H6H5kbv4P0OzRn1+/IB9iTu8dVff5C471aP/yHxxuC9lRJ8
16gstyiXjg3WEpqrVwfrGa2Fa+B5Oc/nq1LvmUnvjQ6u9Vpf3YP3aI6qlgZr
D62vicE1XetOXoc8kF2JfRJ5FLulKThnMVyac24O3nMpBU8K3rvRur4uWMNo
Paap92aUK/pmtUC5tH+wHtO8Xai5mHP++Tdan+n6jwbv+2jNyk+Qt6g9WPWD
qqfyPP6J1lW6h7+jtZTe41/R+kbP7dngvVTlNO0HfcX4IO4rpt7HUn7Ip9Y0
yl3aNJEOUw6RpyHPUN6hfH15E9ovkqchv0A+qDwK+VfysaTTvsrZZx0QrMG0
Hq8I1lFaL1cG6zGtkeHBmkr5RPuJX+bsL/QL1rHKAwODNarWvjxs7b9oH0Ye
iHwF/Z59iT0DeRTqT1Xj5G2oX5ZHJK9osOp9zut3ULDGUw4pkrqHV8/+TvS+
lHTaJ9H7BdJIl6TeM1Zf0z313oz0ds/Ue73S5J1T7w2rD+qRet9Xuv3S1HvD
6lm6pfavpVeHpN6XlQYenHp/WhrystT7PdKxXVPvE6vHuTz1Hqo0/8DU+7vq
Qfqn3vdVDzIg9Z6uepY90f68+ujPo/d65MHujt4Dkuf5abTPLz25K9rnl54c
mno/WL3MZ9F7TKrRFVP7oeq1+6Xee1av9GH0Hoe0Za/U+9zq1/qm3jtXb9U7
9f66+r5hqfeY1R99Fd0/KG98Gb3Xq7U5NvV71Z7ycPi5xPvI/wOlofzi
"]],
Polygon3DBox[CompressedData["
1:eJwtmnfgllMfxu8zHimbMksSkjQpQklGZRSViJYGKk3JnskuJHuVlazMeCW0
Za+KNJCGlfG+VsR7fVz3H+f3O9d9zn0/z33G93td13nq9B3WeWgsiuJ2/cn6
/2gqioX6P1m4Z6Uopgq/KfyAcC/hv/W/uvAm+v+cbvhO5e5QFGN1rb/6viR8
qHB94Umq/0eljfA+PFP1x9TnLdUf0v299bxndK2F2uvo2l+6NkXtb3Cv6j3U
PlLtNwo/rD5HCj+s9vnC96n9FOFJws8K3y28qfAjwguE7xc+VfgM3X+G8MW6
/yDhN9VeS7ip8NNq26h+2wlX9P9Z4WvV/pjwFcJHq/81wlOFLxfuIDxcfa7j
+br/cOHDhZsIHym8vfBq4QmqX6xrPXTvYcKNVD9c16qr/RvhO1Ufo2t91T4a
rPpTwc8/V/gu4WnBn99WuLHwEcI1Kh6jbYVz9NhV0zP2EN5WeKbw2So3CT+i
/kep/9Vqf1T4MrW3F16j9lvUdomu9VTbWJUpql+q9nZqH6r2a4TvVZ/DhKcL
t1K9nq5F9f1H/WqoXkX/n1fbMMaM+VCftur/uHA91XfQtV/UZ53w7cKXC/fR
/ZNVnlP9HrVVVf87hR8XvkV4E+GfhUcIX6V7PtW99wu/Lnyn2k9W+z+69rLa
HtK1MWr7S/hF4cm8o/A0lfdVn6r+/dX/Av2frvZJvKPanlJ5j3Wu6/3U/pvu
f1ztt+raKLXdp/Ka6neo/SS1nyo8RPhE4a/Ud4PKM+p/j65dqLZfWdPCE4XP
Fv5FeKrwLcIjhQ9U6a56W93/PmtZ+Gnha4U76vnj+E7CVwsfK3yO+twh/GTw
fG0Ufkn1B1iD6vs3e0r4Qdao8H+FpwjfLDxceFD03LMGhiXP2Y6qbxY9l6fo
/21qv0zXejP2Km+zv3S9jz7vQeF5zL9wd+EnhN9hPQmfJvyk8LvCU4T7CtfX
M38W3lz4RdVfUPsS1q/wmWqfkDxX44QrwlWS9/pWwi+r//PCi1n/wmeo/Tnh
Rby/8OnCVYXrCm8j/Ir6byq8u/DWwjOE/6fyqN5ngq6NSP4OrYX3LvzdvmTM
hS8QPlntVwg/qfocXTtRz78r+/1WCQ8Tvjv7/b4SHi58b/Z6WiM8kvWaPV5f
Cg8Vvi07Xq4QHiR8e3a8XCk8WPjW7Hi2XHig8B3Z8e8L4SHC92Svx9XCI4Rv
yY5vnwWPRw/2sfBGld31zj+p/QFdGyd8lt5nYna8WxY83uOEXxH+MHg+J2TP
59Lg8dxZ9xwsvIeeNV9t41VmCn8UPL83Cr8q/HHw/F7PfhN+Lzj+X8t6FH4n
OD7/IDxJ9et1bZCefQ37UfW3g+PvZdnx9DXhLsJXsUaE3wxeXz8KT1b9Bl0b
rPvXZ8dWYuxA4auFp6v+VnC8v471L/xucH5qLPy78A56n9dU3073NBOuKTxb
+JLs+DdT/U9Q/0uz4/mrwp2Ft1X/psK7qP8stV2k8ojwDLV3UvtOaj9IuK7a
56mtuvB+wrWE5whfnB0/X1H/48k3yfHwNLW3Er4pO54sCo43Y7L3+1zhbsKt
hHcTbi68TcVrhrXzucpZFa9Z1m5nPe/gimPQzWq7qHBsIscMVb1bdO75mvih
9iv4DuwHlU9VfyZ6fQ7J3vvEgDYVx/CWwTmE2L6K/CF8ofApuncU8Vv1J4Lz
A3PC3PRV39bCh6i9tvD+at+64hx6QPAe3VhyhAOD9zDc4VDhvVQ/RNe2U/8z
hQcRm4Pf71vyn+pX6lo/crnwAMZWeDfyZXJ8HB6dny7Mju3EeOLpxcRw4XPV
fgTxn/Uk/ILajxP+Xvge1a/StQHqe3N2flkcnC+uFJ4mPC84/o/Njtfzg/PP
dN3zifDT0fv5/OzPez44fpNj+D7nR+ff85Lz+4jo/Hh+cn4fGc0fLkn+fudF
85uhyXznTMZKeJCef77w+OD1NDh7PRDTGH9iPLF+YPR8EtOZ3+7Ch1Q8J8wN
a6yith9UX6/yLHOj8kF0/N5JpQE5X2Vf1b9hj6rtM93TUvWOuv66Prut/jcU
/pY9rvat1N5a9R2j+Q1cr4Hw1ypv6Fpj4ZrET5XZwvsJ76r6OsZUeBvdfyif
H81v2I9thHeO5lMUuBV7lLZdhLsE37Or8HL4mPAo4U7CK4SvFz5H+AThZfAT
4bOFj4Mb6Lk/qL4lMUD131SqqV7o/5Pqu7Oe3zn4nWomc1m46x8qnzIe8CNy
gfAxam+o+i7Eb5XX1b6j7j9G11oQk9TeSPUtyBcqL/P+utaP9a96feZGuL9w
K+F9hA9I5qtthBsKtxA+XfhQ4X2Fmwj3ET5QuJ5wM+G+wgcL710xB16iz5xV
mBvDsT4Rnl2Ye90VvdZZ83CrlXqfG4RHC3cRbq4yQPXW6teg4nc4kr1XvluT
4LFbRcyL5nhwvY26vjnxUuVY1Q9gTSQX8led6LYN0Wsx6v8WwiE5HlQV3rJi
vgLXrMbaYv6FjxCuzecIL4VTMZfB8f6j5PXGukNrLFW5OphDdkjmG/DzLaPj
a4vs77a98LnCDwl/ILyWNVLxd9qBWFz4u66Izr0HlJ+ZeI9gDg4X30/3z2Vt
6NoA3fulrv3DZ6v00rXFar8SbiF8pL7Lh8RfuAFzlhwDDyn59RbCP8OT+Gxd
e1R9fxTW5eJ34Uey34FcAYfi3T5X+9+qt1fpGTxm8G84H2P5U6nr/tC1KaoE
tb8ezLmvg7/Cw4n9uvZE9nxuSqwO5vLr479bo/hN+GHh/8LThf8UnprN2eEG
cAS4PJwd7j5W5RPVF6mMCc5Rh/P+yfuJfYVWRIehx9aqzNWzP9a1K4I592Fw
dV1bX3gPsd42Z42qXh0dpM/eveL35v3rJY8he69G9NgS89BPW0THwpoqXYNj
TO3kmIU2ow+xbDc4f8m59kzWSMzdSdHa6XvGJzgmfqH6R7p2Obmad0qOYWg1
1hyxrU7J4doJ7yVcS/hE4mzhfPYN4xmsl4kvtdV+SvCe20Pt3+laleA1v1L1
b0vM8+CD8APWUpdorntddK4iZ6E1sp73RrBGvln4TfUZQm4rx+uOZD51czQf
uj2Z390UzZduStYe17MOK34G2uOGWD5bzzsdbsUeR9skx5rH1b5ZGa9oayn8
DtxXZSi5VNf2TtYscJXB0VoGzUTuHxKtpeCEaOkB0VwRjgn36R/NPdHQxP6e
0dr6vWytTwwllv7O91A96P9T2RptrDCmB9oNDo0WPr3k1miIMcJnRWsLNCFc
YVi0VkTDXaLnn1lY292WzHdvjOZ/E5P56vho/niicFf2qe77glibrD+uUvsx
FbfxrBOi+/CdGZvDot9lNfuPuKOyRvU/4COq360+F/B+2V4BnAJuAWdjLXYt
udz4ZD5zTTT/gROSC3tEc8V7k/k+/g98lDXBXmoavVbuTtYTtwp3VXt94aOF
9xN+O3vPs/cnRPN73nGcvs+5hd+dOSYWNouee9Y8a79+NLdjzbQV3id6LbFG
zgnOcayde5L1yW3Reg0Pgdx7arS3AEck1/eK5o54UOSy3tHeFHuoq3DDcm/V
Fe4ivK/wrhXvyW7CjaP3Ku/P3mgSHVuIAScKN4qODWhwtP1F0doczwHteWG0
F7FM//8snJP+5U8qGwrHPPgQc4bWGVXOZQPhHsL7C9fV8zsF641/yvjSkBik
enPV91B7I+Fewi2E90T/CPdmrQvvVfH4wpX3jo41cKSOxJ5o7oQGXxjswaDN
iYGdiAXRsbFjGdv+LuMNHOg4YmE0NyIGLFCfZwrHhuW8d2HOCB8kPzYv+eaG
MgaQW8mxxAbWzLBgT4S19DH7rDCHgh++y7ypntVnreqPRWtvNDjeziLiQmFO
Sb5YzD4unEPgk3B61l6faK6PXkHL9IvWlp9E60X8AXyCD7K1BxqkVbL/x94a
Q9Kr2GPB27k42ntZQhwonK/xxfCA0OLnRHtD7EG08NnRe/Mj4prwzoX5IZ4V
XtMl0V4Wn4E2RiPz2eRkvKUro3P1B8m5ge+Kt0GOrl/md3I3ObhOsCdHbobD
wuPh83BbOAncZJ7wg9njuaTkg8zHWypfqf4TY6L2FcncHo6/ZbLmmV/O9/0l
f1xQ5hP4JZppcck3mR9iLJyY9yX2LkzmvuTwvbI5FuvhQ9Z0tuexupzfmcke
y5pyvbzKfCdrBTRDVn1ZsrZgjzUt+R/agjWxb7Zmm1fmv/tKvgE3Z401UPvH
yVyDNdMw2+PB68GDeSU5BqLNiZnExi7l/MCXiHXLk7URa76Z7v+BdVZ4ze6Z
7ZHAh2YU9s4fIwYJb893UN9pwjOix4SxmSt8stoPF66R7EnPjObXeNV4HO+W
/ApvHs8F74WcjVeOx4LXQs7G+8ZTwVshB+Hl4ZngnZCj8M7xdPB28CTw8vAk
FpV6AG8UzwjviJiLN0jMxSvDsyAWL9T3O0O4s/DuyZ4R3hE5BK8QDwovCs8L
LxAPCy8LjwqvDw8KLwqPC6/vh2RuCOeD+/2YzLfgjHDH9clcEI4F1/q93N9o
FrTLb2W8R/Oh/X4p+QCaD+33a5kf0IhoRTRK3WCOC9etVrHf8mY5X9+U+RgO
Qf59O9nL4IwCv/2dZC8DjwOv491k7wSPA68DTnpwsKaBq36rMrAwZ4A7/ATn
KawJ0Abfl/kaTYA2+C6Zz11axqajGGPhDuxb+HeZ/9A4aJ3/lfkcTYo2XVPy
Bzjev1yvYq8Rz/I/yZ4l3iWe58vJnifeJ57njGTPCV8AfwAvam1yrIazkb/x
PPAy8TzxQvCUVpTjh9f0gvocJLynMMJlHWuwcMwn9q9OXjtwRvJ90xIfROwX
/rp8XzgAXOCrZP6IBwRfQCPuGaw50Y6sQfZOg+i1yTNGBz+DZ69SOYZ8EOx3
flnyl97Bfh4aBa3CnLRL1iSzomMGsQNNOSc6xhBr6MOcLCnvxXPBS7u8sBeD
R4NXg0eDF4jnw9kInhleEJ4VZyt4hHhZ+PWcj8CB4cJ4Qvif5BByCR4PXg85
jFwGh8PLmlSY2+E54T3hIXGW8O8ZWbAnhLeEB8V5AOcDeFOch3BeAGeBu3Dm
9FTJHznr4sxpWskvyUev6h07CO8vvFmyx4bXNrmwvkBvcP6CRoAP4BEtjfZL
8I7wsG4N9qTwtjaonFeYI8IVR1XsyZCDamdr8nXClWCtfl7FHIqYv7vwBRVz
DnLUHuTbijkXMbku3LFijkCM3y17PeOl4rm/pM/+NZhjkN7RtpyxcNaCR8dZ
2eiKOQU5p062p3JmMGfEa8FTQ9/iL+C1wSG7B3sUcEs8x4eCPTy8SM44Pwjm
0Jx9wvmfC/YM0QL7C58b7OG0T+bYs4M1Atyb/L2KLxvsNbyXvLfwbPFu8WTx
ZvFEOctrLDwimDO2Tr6HewNzmD2mjC0cCO/8NfWpFqwxyMdowFdLPoI2RNPg
beOho3UOFL4w2JM6Plkj4q3jqaMdmZ93os8YmpXz81Y0p21azufCaI7ZRHit
ykTdf6lwr2T9DreCYzXKXkOspQ1lf+ZnQTTfbFjO97xovk3+byl8UbD+66x7
UzIXwuOsX66316L5Yj30lvAFwZ5XR/VtLnxesEd3tHAL4fODPbpjkzl2/2CO
DffGgyM2EaPQK3h2xF5iMFqumfCoYD1zhHBT4bODOXvbZA7fL5iDw+0bCQ8P
1gQHCTcRHhnM+dskn98R+8kBaCH2ELrxj3Jv4RGeFaxh8A458yaXkdO6ln3o
203lpGTPnVxDzsFL2K/i2Ev8JM6hYTkL4YwDbYtnOTBYU+Fl4hEODtZQeId4
mIOCNRPeJjkA7rNpdG6A06wq7MEy/kdl+zV4hviDcLAV5JJobnZCtv7oG6x/
qmXHLmIYfsFm2XqMM0D0OhxyJXs9mlviedUKPuPHC+uSPdbMIXNJTvxM+Pno
XFlR+9WFzwjQD38n+wOc6XO+crzKscKnBes1OOrn5NZo7vpP8lrmjB2/qHv2
2DAnzE2vMv+fHL32T84eK8aQseyXvfZYc6y9IeXzzlD/n9W2SXZuIEegZ15P
9iLxJPHnds3m1nBstBf+PlwcDfJhtP5BT+A5fR3tb+It4SnhLeFfov/xuPC6
0DtoJWIGcRnOsEz4hWgucUr2WmPNs/Z3zNYGaAS0Imdq+F1tCvv3VbL1L2eG
+DfE5KWFOQexetNsPcWZIH4PMYnY9FW0duifvRfZs+zdqsLjC5+J4t/gh7Yr
3wfvDPOT3EqOxS/I2X4Ov1nBH9gu28/ijB09Xz37vJozdvTe9fp+9xJbyRn6
vG7ZuYA9wF5oxvcsnL84T3g/ebzQhpy3b5udG8mR+ANbZedWciz68Njs3IHn
hz+BJkDbcm6CVjgu2wvEk/zXmxQ+tXCMIFZsKXxb4d8w4E9tk/19+Y0CenTr
bD2JZ4TfcFHyeI3Gp8j+zUj74DNNfkvSKXv88FTxP7bP1j5oILQqHvQuwWsO
b3pAduwkJ5AbembnHmIWsWvzbP3MbyLw807Pzh3EaGJ1yvbjOPPDv4nZ/h+/
kcHPC9l+HGea+FWscdY6/jz5+6TsWETMIfbsIPxEYY8b/UyMIdbAMYj9fyX7
h5xx4o/1yI615ExyJxx4ufD0aG68RbZe5zce+IU1+A6Ff4OCfodPcF6wdWH9
1zHbO8bzxU9qk53L2DtwG+aUucXvuE/1WcmxiTFlbP9M5npwPvzczcp8v100
F/s0mYsxZ8zdJ8lz1y749xHM6bPBa4C53pjsn3JmzNlxzWztjwfAWRFrelbw
mLHW+U3FUcHnbfzWYp3qVZl7+kT/ZoPzOPxtzh+IycRmPCa8qnZqb1X4DA2/
aEnyeTzP5Nm1VOYUPpPibKprdi4lh5JLOdPhnIXzFvjJ4uTvwmfy2V+UfP+k
4PP3+WV+xxPBG5mX7I1wBsL5xRvJY40ngTeBBq8i/FewNp+T7J3UDj5vmVvm
KzwVvJXZyb93I4eQSxYkx1M8FryWztnvTg4nl7fPPjvkjBK/rUY5X7tGa/2V
yf4nMZHY+Hmy/9kt+PcKVeDDwf7BXclnXkcHn3lwFkYOeDB4D5Mb8As4QyFm
3K96h+yzUc448PN4BnM7MfrZrBHWCnPCb2t6Z3MROApcBf6OB0hOeCBbI6GV
8HD5LQRjztjznfktRMvstc8e4OysVzZXgePAdfpkcx84Bdxip2zvkTMJzg/g
iHgpcHq4I2PAWDBG/JYDzojXA8eHS6Lh0HJoOH7L0jebO8PZ4G5HZ+caxhf/
c5fsscST4awKjQ9+sNT+O6v9+cKeKN7owdnakvXDWRqcE+6JBoG7wjHxmtAY
cE84KF4SmgFuemT2XHEGzHkpHAGuAIfB62WNsdZYU5z1/R8AOyHz
"]],
Polygon3DBox[CompressedData["
1:eJwt13X8VtUZAPCXN1CUGTQoIILMQFCQRlCkFAQFRLpTukFKupEOKSlFBQxA
wWDOZpgDFAyMuTlzihgbM76P9/fH87nn+Z7nvu/Nc84t13No6yHpVCp1WORE
vmwq1RnMzZdKjZL3zKRSadaFzWOjWS9WlE1mD7GVbAYrxqazR9g6No91ZNex
iawvq8Has/rsTtabXcNuZdXZcNaZXcFuYdewYawTq8S+FA3ZUNaR1ZbXFXVE
Z/WN9P3d9utM0q7ipOprNxAdeAM2wb597FudFWIT2Ha2jE1lN4sWore+m/W9
b3utvJ7opH0De8u2jaipPdK+Xe1bWX9bVouNYt1YFdaa1WAjWBd2JftGNGZX
Ob7rtK8XhdVNZA+oW65uGmvJqrCB7DZ2CfsqkxxD5Vxy3nH+RdRNYg+qW6Fu
OkuxTmwOGyntwVqxq9gg1o5VjHNlV7IBrA0rH9eAVWZ3sLasAvuPaMKu9r8N
4xjEVHXL2V/VPRe1+oazsWy3/DFxWn6bqMvGyseI1+Xvx33z263kB/VdzJqK
S7R7sBb6Ssf5sbNYPVYxnlE2gHVgK+Jaic/kN4o/s17ylurKqGvGKrKe7GZ2
YfwnK8Dqsjpir/xPIl6EtfJZ6kbF88PKsg6svXghjkMMZKvl09UNV1eQDWb3
sJlsJDubDWJr2Aw2gp3DhrJ1bDYbHc8Au4h1ZI1YMTaYDWDb2N1sCPuvvKD2
k7ZPiQ1q7hA9tNerm6Ovv7qBrGf0s7msH6vFfpFfIiqIB+N5FueoaySvEu++
undFcfa5yM9rxjmI/vKt8i3ipLyJKMc6yRvbt7j9Toqb2DXufzPtG8VbcW3i
fRTfq7vcfrVFOursW5adjvsa19/2BlaZ5bdfSbaA7Wdb2dJMciz90sn9jvve
wH8VYH3ZMvkUdYPVnc9Gs81sEZvIzmOj2Ca2kE1gZ7DebAmbxAay+qwIu4nd
KA7Ii4sZ7FH5enXz1fVnrdkiNp51YCXYfLYvrhVbwtqxemwc68mqsjNZH7aU
TWaD2O1xT9h41otVY6XYQvYk28aWsTYxnoh++m7R96HtuWKk9r3qFqi7U/8w
NoLtYmvYODaEDWM72Co2lo1md7Gn2f1sJsuybmwBG8v6sBzrzhaycawvG8Wm
xPPI7mOz2Fg2jR1gD7A5bAybyp5h29lsNpKNZ3vZRjaZ5We92GI2kd3BhrLh
bCdbzcbEuMNKsbbxDLDzWYZ1ZfNjfGG92Qg2ju1hG9gk9kWMtWwI68Bqyb+L
cYJV8zw10W4qPhe1WV91rdVdLZ/i95aw19g+tordxZay19l+tprNYuvZ8Rgz
2FbWI8andDL2xRgY78kENpe9KH9Y3SJ1d7I57AW2iy1kk9li9ip7gq1k49is
dDLmxtibziVjbB3WT95fXMpmsw3sXfmL9t1i30nsbnaIPc6Ws4lsEftbjIds
BZvDNrL32EtsG7uQrWWvsN1sE7uALWPPsh3sHvZcjFnyC/Ml64qT+p9n/5OX
EfnZ93Ge7LT8InEGOxVzCftZXirfH1NY6js2Q2O17ZF4J9n6vHH8zHQypsXY
do4/Ks3WsYPyPeo2q5vJ1rCj7C9sQ97YXiadvOPxrhfPJXPZipjb5W/G8bDp
bBU7LH/GvuvsO42tjHGNPc3WsnlsE/uAvcLuZ83ZFelk7og5pIzf+zevxrrL
m8eYKF+k7j72CXuVPcTms83sRMyNbDtbwLayj9iH4iy/dze7n/1D/pq6HeoW
s+3s05hn2U62hD3A/sneYLvYKvYY+4YdZ0/EGM4uZb1ZK1aWLWTb2MfsEHsw
7/mbmU7m95jnmzuWuezeWC/JX1Z3n7rPRFXWLa4zu0y+VN3OmGfYEfYYW8Z2
sS/YUbabLWcPsy/Z22wPW8EeYV+xd9hedg97nJ1k78ccyVayR9nX7Bh7nK1h
e9l37D22n61me9i37F22L2++/L/8YlFeFHRuZdhD6o7Jn1f3qLp1bB87xU6w
p/Pu0ZZ08vzEc9Qtl5xfnOeOuE9iS4wPYr/2D3Ev9T2jZi17IuZK9gF7ij0r
fpKXELGk+1Z/87hPopf6FvF+2n4iL699i7q66krlrZHas5lslqjnWH6NOYlN
lw9V1yXvOa2UTsaMGDsOxvnztmyqfLC6TvJfxG1sGhvCOsvHq50d7zbbyRaw
32I+i3eWDWNd5W/GmohdxkqyjPxtcS6rEdeanRljhriVTWYDWDv5OzF/s5px
P1iBGB8yyfxXxzm1jeOK6yRasdq5ZI6MufK4KBQWY4R9z5Y3jvdfdM8m4/7b
tqejXvsudYPUdZRfx4uxFqxGrO/lrXhL0Ue7Zbzvtg1E0bgv6qqrKxjnEMcn
+maTYzqRTdZEsTbqqd08xmTbhqKkdhv71rfvufqPsXeyyZwRa6rj2eT7IL4T
umaTNfiRbLL+jnV4N+2mMb5FnSih3drvXev3ztP/bSbpr5pLzjvOP76H4ruo
Szb5Djlse0x+vnYt+1aw71nyN8QZrBwrlkr98RB+n0mOv3oueQ7jeTwiKum+
PuYZfRdlk7VU4XSyxo61diH1Fdk36t6I9YDYKP+Xfa/W7hprLn2Xyo+KK7Ub
xlgS/6/uo5h/tJuyavqKyD+M+Yc1YVVZYfkJUU/71hgTY37IJt8kY9LJGjbW
so0cyweZ5F2Jd+aQvvJqDrEysf6KuYKVZR+z0trNYt7WV1R+BT+lfSSefbEp
m6xvY517OOawWI/JP1V7mXY7+zbUV07+Qyb5rqyZS56leKZ+zCTPU61c8tzE
83Mqk7zfNXLJ92h8l74mcqy03yvi937VfineuZjvY05gP8U4wyqkk2sQ1+IC
+YviV3lFUYD9qP/lGFRsL2dna/4ccwS73PZ2dgO7WP66yB/XgxVlv6WT74P4
TvginmWxWf6KunzalfIl3yvx3fIqy9pewAqzX7S3xrWJ/4r5jB1Q8zuDLvGs
"]]},
Annotation[#, "Charting`Private`Tag$6801#1"]& ]],
Lighting->{{"Ambient",
RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
"Directional",
RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001],
ImageScaled[{0, 2, 2}]}, {"Directional",
RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001],
ImageScaled[{2, 2, 2}]}, {"Directional",
RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001],
ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {
{GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0jkvZ2EUB+AXf+vgbxsR+5KICCKikfAJqBQEnUJQUAl6Wy/oBb2EWsEn
wIyxzKDB2NdK47lR/O5zzk3uPe89uVWD491jCSGEWclXRHXc5YFPiSHk8JMV
TEkKoYk57GAZu9jAAbZH92VU3cdpDnOBk1zhHDe4xG2ucY+tMbPN/SkH+lym
y40c6v/zF2/5m3c84j3/8IHHfOSTnKifecoXnvGVf/nGf3znOT94wSvfmaQu
lEt9HjNkxxn39Zvc5Sq3uMh1znCZE5znEKfYyx4ZUbexn/XsZAnbmc1GxljO
Ont4YYG58WjXfGYLs9nMLDYxM9o9f0Tvjc4aPR/tjbVMYw2rJVVdyRSWM5ml
NC4U0/hQRCsI1y6xhO//4Qv5+Ds8
"]]},
{GrayLevel[0.2],
Line3DBox[{751, 1061, 502, 750, 1189, 960, 752, 1190, 961, 753, 1191,
962, 754, 1192, 963, 755, 1193, 964, 756, 1194, 1080, 1292, 757, 1195,
965, 758, 1196, 966, 759, 1197, 967, 760, 1198, 968, 761, 1182, 1199,
969, 1062, 1183, 1200, 970, 1063, 1396, 1055, 971, 1064}],
Line3DBox[{763, 1081, 1293, 762, 515, 764, 1201, 972, 765, 1202, 973,
766, 1203, 974, 767, 1204, 975, 768, 1205, 1082, 1294, 769, 1083,
1295, 770, 1206, 976, 771, 1065, 1207, 977, 1066, 1184, 1208, 978,
1067, 1185, 1209, 979, 1068, 1397, 1056, 980, 1069, 1398, 1057, 981,
772}], Line3DBox[{774, 1084, 1296, 773, 1085, 1297, 775, 1210, 982,
776, 1211, 983, 777, 1212, 984, 778, 1213, 985, 779, 1214, 1086, 1298,
780, 1087, 1299, 781, 1070, 1088, 1399, 1078, 1071, 1215, 986, 1079,
1186, 1216, 987, 1072, 1400, 1058, 988, 1073, 1401, 1059, 989, 1074,
1402, 1060, 990, 782}],
Line3DBox[{784, 1089, 1300, 783, 1090, 1301, 785, 1091, 1302, 786,
1217, 991, 787, 1218, 992, 788, 1219, 993, 789, 1220, 1092, 1303, 790,
1093, 1304, 791, 1094, 1305, 792, 253, 747, 263, 748, 254, 264, 749,
255, 793, 1221, 994, 794, 1222, 995, 795}],
Line3DBox[{797, 1095, 1306, 796, 1096, 1307, 798, 1097, 1308, 799,
1098, 1309, 800, 1223, 996, 801, 1224, 997, 802, 1225, 1099, 1310,
803, 1100, 1311, 804, 1101, 1312, 805, 1102, 1313, 806, 1103, 1314,
807, 1226, 998, 808, 1227, 999, 809, 1228, 1000, 810}],
Line3DBox[{812, 1104, 1315, 811, 1105, 1316, 813, 1106, 1317, 814,
1107, 1318, 815, 1108, 1319, 816, 1229, 1001, 817, 1230, 1109, 1320,
818, 1110, 1321, 819, 1111, 1322, 820, 1112, 1323, 821, 1113, 1324,
822, 1114, 1325, 823, 1231, 1002, 824, 1232, 1003, 825}],
Line3DBox[{829, 1233, 1004, 827, 1234, 1005, 831, 1235, 1006, 833,
1236, 1007, 835, 1237, 1008, 837, 1238, 1009, 839, 1240, 1241, 1010,
841, 1242, 1011, 843, 1243, 1012, 845, 1244, 1013, 847, 1245, 1014,
849, 1246, 1015, 851, 1247, 1016, 853, 1249, 1018, 855}],
Line3DBox[{854, 1017, 1248, 852, 1338, 1127, 850, 1337, 1126, 848,
1336, 1125, 846, 1335, 1124, 844, 1334, 1123, 842, 1333, 1122, 840,
1332, 1121, 1239, 838, 1331, 1120, 836, 1330, 1119, 834, 1329, 1118,
832, 1328, 1117, 830, 1327, 1116, 826, 1326, 1115, 828}],
Line3DBox[{857, 1128, 1339, 856, 1250, 1019, 858, 1251, 1020, 859,
1252, 1021, 860, 1253, 1022, 861, 1254, 1023, 862, 1255, 1129, 1340,
863, 602, 864, 1256, 1024, 865, 1257, 1025, 866, 1258, 1026, 867,
1259, 1027, 868, 1260, 1028, 869, 1261, 1029, 870}],
Line3DBox[{872, 1130, 1341, 871, 1131, 1342, 873, 1262, 1030, 874,
1263, 1031, 875, 1264, 1032, 876, 1265, 1033, 877, 1266, 1132, 1343,
878, 1133, 1344, 879, 618, 880, 1267, 1034, 881, 1268, 1035, 882,
1269, 1036, 883, 1270, 1037, 884, 1271, 1038, 885}],
Line3DBox[{887, 1134, 1345, 886, 1135, 1346, 888, 1136, 1347, 889,
1272, 1039, 890, 1273, 1040, 891, 1274, 1041, 892, 1275, 1137, 1348,
893, 1138, 1349, 894, 1139, 1350, 895, 634, 896, 1276, 1042, 897,
1277, 1043, 898, 1278, 1044, 899, 1279, 1045, 900}],
Line3DBox[{902, 1140, 1351, 901, 1141, 1352, 903, 1142, 1353, 904,
1143, 1354, 905, 1280, 1046, 906, 1281, 1047, 907, 1282, 1144, 1355,
908, 1145, 1356, 909, 1146, 1357, 910, 1147, 1358, 911, 650, 912,
1283, 1048, 913, 1284, 1049, 914, 1285, 1050, 915}],
Line3DBox[{917, 1148, 1359, 916, 1149, 1360, 918, 1150, 1361, 919,
1151, 1362, 920, 1152, 1363, 921, 1286, 1051, 922, 1287, 1153, 1364,
923, 1154, 1365, 924, 1155, 1366, 925, 1156, 1367, 926, 1157, 1368,
927, 666, 928, 1288, 1052, 929, 1289, 1053, 930}],
Line3DBox[{932, 1158, 1369, 931, 1159, 1370, 933, 1160, 1371, 934,
1161, 1372, 935, 1162, 1373, 936, 1163, 1374, 937, 1290, 1164, 1375,
938, 1165, 1376, 939, 1166, 1377, 940, 1167, 1378, 941, 1168, 1379,
942, 1169, 1380, 943, 682, 944, 1291, 1054, 945}],
Line3DBox[{959, 1077, 1395, 1188, 958, 1394, 1181, 957, 1393, 1180,
956, 1392, 1179, 955, 1391, 1178, 954, 1390, 1177, 953, 1389, 1176,
952, 1388, 1387, 1175, 951, 1386, 1174, 950, 1385, 1173, 949, 1384,
1172, 948, 1383, 1171, 947, 1382, 1170, 946, 1187, 1381, 1075,
1076}]},
{GrayLevel[0.2],
Line3DBox[{280, 503, 1189, 281, 515, 309, 1297, 526, 324, 1301, 537,
339, 1307, 550, 354, 1316, 565, 369, 1327, 580, 1234, 384, 595, 1250,
399, 1342, 610, 414, 1346, 625, 429, 1352, 640, 444, 1360, 655, 459,
1370, 670, 474, 1382, 685, 489}],
Line3DBox[{282, 504, 1190, 283, 516, 1201, 310, 527, 1210, 325, 1302,
538, 340, 1308, 551, 355, 1317, 566, 370, 1328, 581, 1235, 385, 596,
1251, 400, 611, 1262, 415, 1347, 626, 430, 1353, 641, 445, 1361, 656,
460, 1371, 671, 475, 1383, 686, 490}],
Line3DBox[{284, 505, 1191, 285, 517, 1202, 311, 528, 1211, 326, 539,
1217, 341, 1309, 552, 356, 1318, 567, 371, 1329, 582, 1236, 386, 597,
1252, 401, 612, 1263, 416, 627, 1272, 431, 1354, 642, 446, 1362, 657,
461, 1372, 672, 476, 1384, 687, 491}],
Line3DBox[{286, 506, 1192, 287, 518, 1203, 312, 529, 1212, 327, 540,
1218, 342, 553, 1223, 357, 1319, 568, 372, 1330, 583, 1237, 387, 598,
1253, 402, 613, 1264, 417, 628, 1273, 432, 643, 1280, 447, 1363, 658,
462, 1373, 673, 477, 1385, 688, 492}],
Line3DBox[{288, 507, 1193, 289, 519, 1204, 313, 530, 1213, 328, 541,
1219, 343, 554, 1224, 358, 569, 1229, 373, 1331, 584, 1238, 388, 599,
1254, 403, 614, 1265, 418, 629, 1274, 433, 644, 1281, 448, 659, 1286,
463, 1374, 674, 478, 1386, 689, 493}],
Line3DBox[{290, 508, 1194, 292, 520, 1205, 314, 531, 1214, 329, 542,
1220, 344, 555, 1225, 359, 570, 1230, 374, 585, 1239, 1240, 389, 600,
1255, 404, 615, 1266, 419, 630, 1275, 434, 645, 1282, 449, 660, 1287,
464, 675, 1290, 479, 1387, 690, 494}],
Line3DBox[{294, 510, 1195, 295, 1295, 522, 316, 1299, 533, 331, 1304,
544, 346, 1311, 557, 361, 1321, 572, 376, 1333, 587, 1242, 391, 602,
406, 1344, 617, 421, 1349, 632, 436, 1356, 647, 451, 1365, 662, 466,
1376, 677, 481, 1389, 692, 496}],
Line3DBox[{296, 511, 1196, 297, 523, 1206, 317, 727, 744, 1399, 534,
332, 1305, 545, 347, 1312, 558, 362, 1322, 573, 377, 1334, 588, 1243,
392, 603, 1256, 407, 618, 422, 1350, 633, 437, 1357, 648, 452, 1366,
663, 467, 1377, 678, 482, 1390, 693, 497}],
Line3DBox[{298, 512, 1197, 299, 721, 722, 524, 1207, 318, 728, 745,
535, 1215, 333, 734, 747, 546, 348, 1313, 559, 363, 1323, 574, 378,
1335, 589, 1244, 393, 604, 1257, 408, 619, 1267, 423, 634, 438, 1358,
649, 453, 1367, 664, 468, 1378, 679, 483, 1391, 694, 498}],
Line3DBox[{300, 513, 1198, 301, 704, 723, 705, 1208, 319, 729, 746,
730, 1216, 334, 735, 748, 736, 349, 1314, 560, 364, 1324, 575, 379,
1336, 590, 1245, 394, 605, 1258, 409, 620, 1268, 424, 635, 1276, 439,
650, 454, 1368, 665, 469, 1379, 680, 484, 1392, 695, 499}],
Line3DBox[{302, 698, 699, 1199, 303, 706, 724, 707, 1209, 320, 712,
731, 1400, 713, 335, 737, 749, 738, 350, 561, 1226, 365, 1325, 576,
380, 1337, 591, 1246, 395, 606, 1259, 410, 621, 1269, 425, 636, 1277,
440, 651, 1283, 455, 666, 470, 1380, 681, 485, 1393, 696, 500}],
Line3DBox[{304, 700, 719, 701, 1200, 305, 708, 725, 1397, 709, 321,
714, 732, 1401, 715, 336, 547, 1221, 351, 562, 1227, 366, 577, 1231,
381, 1338, 592, 1247, 396, 607, 1260, 411, 622, 1270, 426, 637, 1278,
441, 652, 1284, 456, 667, 1288, 471, 682, 486, 1394, 697, 501}],
Line3DBox[{306, 702, 720, 1396, 703, 307, 710, 726, 1398, 711, 322,
716, 733, 1402, 717, 337, 548, 1222, 352, 563, 1228, 367, 578, 1232,
382, 593, 1248, 1249, 397, 608, 1261, 412, 623, 1271, 427, 638, 1279,
442, 653, 1285, 457, 668, 1289, 472, 683, 1291, 487, 1395, 740, 741,
742}], Line3DBox[{488, 684, 739, 1381, 473, 669, 1369, 458, 654, 1359,
443, 639, 1351, 428, 624, 1345, 413, 609, 1341, 398, 594, 1339, 383,
1233, 579, 1326, 368, 564, 1315, 353, 549, 1306, 338, 536, 1300, 323,
525, 1296, 308, 514, 1293, 279, 502, 718, 743}],
Line3DBox[{495, 691, 1388, 480, 676, 1375, 465, 661, 1364, 450, 646,
1355, 435, 631, 1348, 420, 616, 1343, 405, 601, 1340, 390, 1241, 586,
1332, 375, 571, 1320, 360, 556, 1310, 345, 543, 1303, 330, 532, 1298,
315, 521, 1294, 293, 509, 1292, 291}]}, {}, {}}},
VertexNormals->CompressedData["
1:eJxku3k0FdD392/IUCRDyVhmokGRoeKQJhIVigYNZjJmpqJSaSRRoVJmIso8
bfM8zzN3nu8lKiEe38/P8/2t9Xn+eq911l1n3bXvPnuf/XqfK3vT87wDBxsb
WzAXGxvnmir57SozOZaARuMv9F3dMQoHBjlvxGkw0NPcf9IeAR+QAP9NT3Xa
KASNZ+9z2sBApfYnXh+Z+4RoXxJJexvGwFquJUOzm44kNvaVP735GZWUX/L/
mjMO/wJ2KB2KoyN/R+6w3pUvKFg97a9q2gQInR3meWpFRwpT7KULwylIV6y4
7WbeJKS5GYRxbKYjISXmSdeVNLRjLI51unMK4ibx3vrlNORPyQ9+FpaJ5s5a
m24Nn4Y82ZDkMFsaKjhcsvGo/1fkne3ueEoZA1EZoW/j5qloc1DseaOVb2hj
qLAkGsPAV8HmktxgKjIk1huck/2OnI8vDWZ9xIIl6qyQYFCQR0SujD4UoEzx
69q+t3GQ6iPwd/YEBUVMWB/J4yxBLcdURb9dxkPrpYXnd8LJaGOzW+HY3grk
ofa+zNuGAN9kTaSPxZCQ1oHrvaurLLRb/xm1X0IDaO1Y/gEJDTT2Se6tvEE2
vF4+xH46ox8ch1WZx/SYKDXHbLtyfQ4USyabxCUNAPvhp++ubGGi4W3sfg3m
eXBsU1PM6dxBSFXUSY8YZSARSeN3yTP5MJhKWi3uG4IC779Tjh8YiPJ7+HBU
xw+Qrbx83kJkBGJMKr7YXGAgW8xUE/dsIQhRp37meo6Ch3svrw0nA4WlHlY4
6lQCv6vP7LeijQFh+UIE6zMdZUcP/UH65RDt/Tf31ZMJEP+Z91BxHx0tKKRs
9Y+ogn5+4Q28xlNg2Yzq/NNpCHvXxdRfqQZwTzCsd3HToCSqqzDKTUPScZVC
Cefq4H52kGnRewyc/V77/OcpKirXPq5a0NwAIg5fGc7ZWLDe5pcf5UJB7R9S
32MimyEn84wTthEH2rojAo0OZOR93uN1yqM2qHl9RtMMj4c7M6o503ok9KC0
eXUtzhC7+lrHgudXVcHQNds11d/z6IvNwo4agCfDrWV3e2BImyTgHsJEDYZG
h4QGauFStgXv6Vu90HGRZrHjFBPZxhobzLXUQ8neqB9nvfpgtzIU1WxiouTz
42RV3iaw/JW+XfxFPyS2EX2Hqhlo2bT+Z15CCzjvStWdrh+AFJE+OXUnBpIR
EphPjG6HYS0961fiQ9BjWLGv/i8dfYzx6TL/0wW7+LOyzj0fBvGAgM1Rt+mo
ICJ52pLeA6SG3zmzUqNQj0kQi+ykoaJHWEOLHf1AMGrVWmoegxsbJNoHOGlI
/GzKu+pXg7Ap3NGk9ukE3IoxV3/PT0UdGZ0m5ZojcJxDPqrRegoEznC/6sOR
Ud5T9Gh4ZgwEOrRFT8ZMw7/XjYmrkSS0GMiWxvVqEgbmn3665YsBH6c4Yewm
Ihqq3xd7/so0qEqg+PvmWFi5mOrAHoFHVdvm/hNnfc1MsbOW+KpEI029NdX3
lMjAKMS2wqP4eBfTpE7QOV/MuWTDRBVPi/+dsewAhr+BWLBiN3xzm41/tY2J
OHE/VwSOdEO1VsTvos09QJtQuBJQw0DZuyO39vP0An6o3GV8Yy+MZehfcbJh
oAefD9003NYP4UGaSnoSfUCOCFkiD9HRm2YdZqTbIFiTTWNX9fqhXGiXpboW
HW06E6RbvGUt7zdSfHx8BkDEPpUse4uGXC85+m/mGIcxnQu2pt8HIWpygqPN
i4pEu2ysVA5NAUvw5g21X0Nw9YnuqarDFCRWjZ9YOosBjyFyr4z6CJTcEBxn
NpHQjy/XnE7w4uCMsThXvfUo9Krm88eIEVE+F+WXcjIeuhKvq2BvjUF0+VA+
uwEezTQM3HD8RYCvlzs+9YWNw5af/j6+TljU3GhpHltLhD0X8PW6AxOASeEU
1BmcRm9vLv4nzg76hvqcXaNVHlRvjzXV32B6OLXhSQ9wNQam/LNsA2ZzcgWZ
nYmqJ2e8Oy/1wcp9zMJYczvoyM4a/UtmoIS5hq1etwZAO/5ac/bFTjh7dAtT
cR8Dbbud/WGpfgg4DvyqaFntAs+WauKuD3TUPJTpFeA6Clw3S+JCJ7thu0QT
3p5IQ7uy+zPark2Atvu43ce6HnDdcQePZach4bg32uznpuFDbP3AaEYvnCVZ
qrMRKehbr3WFlTAWWA8QQzyiDyaP/9m8EElG5WmqVlwkHCwZSL1yPtMPyiH3
rg6RieiRYMleszICkKvrLo/96QejPx32XNwEtE9dpfe3Jwm8bqjPdIQPwO5T
reljP7GI0JYw/pJIhk9qOSKViwNg9O82YaVvGhVEBdHrFijQnPSYVhI7CGWS
vNr1bRMoNf/+4XRfKoh7GuatNK3VyQfO3aW8Y4ijcuZ/4oy67lx/YS9OrCr9
J164pvotYXglD/MBsFAMs6EUNoOM3ot/5CcM9KTwPfnm3SGQknp48eB8CyhI
NUYM8jOQVOqi/p25EbjcelWU52gb7N5sqXLSh446+83qbv0YB+c3/VpO8e3Q
qTGQ8zSfhlrfnpn1hSnQsBbKFv3VAcU2+Y5QQ0VR32oi/SMxwDseLVh5vAv+
PO0j+L2noOmzJSJSZ3Hwqel44aDe2jlKOlShpE5GbePaT5eUCGCQPdwbW9MN
PMKeG1vDiAi1+MLfRSKEtsdOVSj0wDOueJE3L/DoXK42ofEHGQTPSdwLvNkD
/zbd11C3x6JOzZGt0tpUsGrSFOcI7wFsfOK0iuw0KnYb5Hl4iwYjgfs8ryb0
gA41iq6LG0OV0Se5DPToIHM529blZw+gV8nvFlSHkb7wkf2aj+jwZmLXUvC2
Prg8478FhgcQoWX+P/ncfXZRhzyDrRp/wH15TfWxRD6ftMxh4LxaU/XoRSMk
tI1G6S3TEcF47Gq8zBgYDsdK3o1vgkYeIcrp63RkzJIOPTo5Af5ED6mMr80Q
+rv6/NJHGurL3PQg2nsaBL/zV6ZXtAANV1bB+EZFerHnPuzehgWZi44VQ9AK
Xe/CCgyfUpDU5v4vz/twIFHroSKe0Qa8Ru/MOhTJKGNL5rHDnwnguU9lIdm+
HfwV0sL07xDRwxMufNbuJOhW2F7yEd8O2ucaQiWj8eiWp4d8lRwFLnBL1ypJ
dUCTGXOnqBsWWTb2lbNlUwHR9T/95esA/NzmM1Ey04igIE31+UkDio6zUktb
O9j/LWu4mzaGvJ6/ap2l0uFFqIdyzvt2+OdxtZxxfQjtqHNZSotkwC9yyflb
S+2w+5nGKU5SH+q5KzvQX8QAkrahC1O2C4x5vt8KnO1BovHCy/8T5wWlH9fq
3ERBsYTtyZoiUtK/iozkMbA54lC8r6IeJo++C3xiT0eUO/cDN56dhEtd7SS5
Dw3gwvqrwJVJQxuyjdhefpoGk9cG5ILgRhhu0Xxzr5aKzFhp7FZaWMjkOvdE
1bQJ/kjlMCoyKOjLMeWlSSIOfN1eEP9xNcMRrpKlGQsymlg4RbVNJ8CLzoTP
Z+ObQcIrRftWFRFpGv+ztXQhwfyxcYf7i83waf8OU3YSHsn6n7thJUEBkf9o
C7wU+8db3YdFH0jCSo5pVEhI3vApe74Ztm9eGlN8M40MpdnoD5doMCn/wCAs
uhlGCJX7bj8YR8c1fV35NzNgw4/Szyc3N4Otj/XDF/+GkO1JMUFMPwNy9nEe
uZHaBJOe8/YVlD6E488TnTZnwoaxYrul4SYwNSwQfp/XjUQKun3FPJjA3hx5
1HGkBa7qiEazsXUi3SXGf+pGfgCzcC8nucrBQQyzpvqPvj211DCeBDHZ9+NP
9tRB6buQ+qgmGtrYPRGU/WIaHqf9GKeT6iDhlwCbAJOK3rzZJ/JsKxbsnikt
HHxXD/cvPu64SKAgFvF6yVABDnAW/CMqBxvgYqr4EHsaGRXt6cp64kiA27+O
aob8aIBnd9z9BVRJiObGMPaXJgEHV+xkDXcj3D/PudrnQUBCM6ZJVS1k0KMz
zJ3lGyFXoCXGKACH5p3u9rnZUCG9iW5Uw94IjqJtmnNnMIiWY1ZjVk4DNm7G
u8nPDdAwl2qwhX8SyX3XumaApYMIV25m/ZYGECr3tKvwHUFGxz2EHJoYIKrP
qxvvXA/2TaLNDaIDyJjtb+RGVybM3zrw0YBQB8YCGaK3DvcgNtMNuR/bmJAQ
xaRkLdbBcWme6pXgduSvZVQchmGCWnOl5tueBngbLPDx4N0WNOwQ+Z8439SL
PhXZsVJF/826t6b6GndfFwafn4Yi7sH3H/tqQP/ppqYju2hIJTb5J28zBlT0
3t1LuFUL5zfTnTk1qSh3z+renxdwUKw/pu33uxa+fcP7d/FTkINNCmlqAQ8m
gdt2CTnXwdM9x0YCc0jIZntANy6ZCNJujl82F9eB/iLq2C1MRLolqjmPTMhg
4PREbmG4DhpI98TOHsYjcdrnka5xCjR9lB4811AHNqXSTXb7sEjeWtzJyYQG
bqZWXZqBdcD/vmgkYGEKiThcxt+KoEPU1zFrtV+18PauvsVX9zFk91TmF38E
A46/HhVcNq4Fs4xlkuncIHqu876+4AQTpIW5F31e14Bmjp6Kd30v0qN8VxHv
YIIiqaq4h70GircncZwx7ETZo0eYx6VYAMPBO7U5amB/vl2XaU4zErpvWG+w
hwXV7EJ9/t9q4UyYt8rexQbUq/ti5X/qRuaZG9TDh/lg50NLySOH+ZD17kv0
A9cxkHFIZcIppRoU5y7+VHtORT8f5k7KTWDhGMxOpsvUwGS/1tTIHQpaSdVj
vPTAg4134im1pzWAYbXZ8R4ho+6ZoLTX/ETQbjWruDZcA7tatiqI1hKRktLI
CsdXEjxQz5mV5agFU/rVK54CBMS363TDvD4FAl4cGBZYrYFl4wfnDBVw6ISB
tKtGERU0L7XNX2upgRMbqLcn+DGorOKF4TNOOmj9/fqZ53oNpJT/pFrmTSCt
4zJa5lIM0DVTVstsroZOr4e/3bRH0L9Pe66oLzFg1yTruKtQNdw4tbdKC9OP
ImO84j4mMWHkm+jmhvQqYIYBKRHbjVTeyBpfFWLB33nRiOCQSpgO01ORILQi
85fJQfjzLBD90cxXcLUSrBFfvWx2A8qfYxV1XGdBvF/gkKFmNQyJ2FiK7atD
i1jCf/rg9t22TgZketWu15YJa6pPH3frwJ3DQgxnmViHOgDLT+WZ5E8KcmWy
KWj24mC3yWny5gUAUv/mi/YdZDRHnyvkv0mA6ZWUz0Em1cCpt7e1yJeEKmZO
tDgsEEGwcbWUGVIN/wbrs4QIBJSt32TjGkkGiYzzIYlPqkFi5O7Ehp149PJw
2aUrPFTYzDaRtsm1Gq702o1IqmCRywPrh6fsaXCPmFj4VaoaPshAehnfNHrE
M1Su/4YOww6a87NHAZj2TfqjhWPI/uxpPcdXDChJ/MDnvFIJ8qdStJashtDQ
ZEOhqgUTTkatuOk9roB8KeGkJ0p9aPpr+NeNWCYkjkun1vOVw97bFLtNOZ1o
XDHt5W9DFvi2CjRJT5SC4NCTHRvVmtHQ6sRjuSAWSP6pcgrKKIUMGeUwZVSH
+svl9VcfsuCh9iNPI5cKiNFrGTvJqEb65//8J84+QgoZOlnTVeQxscY11T8b
jaXIqOHgYcvDqTyLStiMS11QvUJBLa3PE0uy1/JWB/NraKYSbkko/MuTJ6O0
+23cG7WJoLQ5fyTqehXIqaDSz8VEZPi4uPFUHQnCx/L4f72pgsv5nLLvRAmI
y+wNw/0YBXhUPwyIhFeBQV9Cs5ARDmG99V5Z5FAh4smG11aSVcB+0IQt4hgG
pW3wELs/S4Oakp8vpK5XwrLXxzuPzCdRSEVdowYPA378MTcWsKwAN54G7k/L
I+iF/yurn2QGXPwmfDyPqxws6m7WOpUOIJLHYIVuHBNyPtbE/3lZCvmFGxQ6
83pQwbboFYIwCyajrgTfES8B14Qd7dzi7cgIwokvHFhQLDzz4xqjCJLqP+0c
p63lrelJ7u9vWHBzeL/8ufQi4OvLixU6VoN6MiY4JT6xQJem7nxHoRTKJwoj
nitVodVhg//E+c+jJv7AF5xwdBdj35oiya/unqtMHKSY/4y4lVEOHXcFRPna
yGjD5mHLcHcCZJM0kj/JVsC9z7qHjMNJ6MYD01aNn0R4M3Cp/4dbBWgq+X/5
u4GIlg2ERKd8yIBpuvE6IrgCLso0hB+5gEfJV39yJeIosKd/t1q0UQXUWSra
Hg7Coq68v4UyOjSYlXooLlBdDqeOhYhQ/adR5hfj22EOdCB5R2lwsMrgRNSE
A2fZOMIfdOKk2zFgHqcl3DdYCrqaWXt4goeRk335Ruw+JgS91fx+8FEJ5Mmn
HWRY9qOhp74Yp1Ym2PVKZRluK4b6nkXTee9uNEJNi9LTYQF/w3sx3cxCGCwi
bTlKb0EhkuG8x8NYcEoH7+B4vwDc6vfcus5Xj0ZSjuK2ZLKg41dm4MzeAlDH
hlZX6wNqYiTUXPvOgpMfopxnPIrgPn/jsLVwOboaS/1PnFWP3m1s2EOtkpF4
8WtN9Z/nLegqJeHh6FU1OVAug7+f8+x2IjKKvpvH2yZBBM3Lq8cM7peBi534
9FUiEfHF/ivweUuC2dqk1sWvZSAx6/A7+goBDTRHTpbxUcBurn3qzocysHbY
bICScahwf6+69C0qxBA8C26dLoOKD2XafwCDRjp8yWdyaLBorddv8r0UeIl4
SmzQFMreE/lwuoEOtFW9aqG+EjhxQHSRaD6GhMUUTOAbA44wTvMcLCyG4fwN
3w0Uh9DzVZrLP2cmWP1OmZZ2KoLNcrsjPXb0oTcO80s1c0yYW3oTOr+yFh+V
gxaBVZ0oTDP84BUrFpT4RfwS//gD5EPjCvSFmtHoCvvu2rW8fXxgamXb3e+Q
2PJalcuvFrH99eXyKWHB+G2RY4Yy32HLXvG4/pAKFHOjdSehmgVquvo4jV0F
ML+Ss3lPSAl6xR32P30QzT9LOaRfxAdPML631hRtlH8j6OufAm9pB8wSK3DA
o13IP6NMQUtJ535c9UyHmV96b5wG8fC+p4AxoEdG51sbwkTZsmGqQ9Ogf4UA
f1NfxpjtJaEX4ZJp92J7gbDxlfbXoxiIvFfjwnGagh4HYNvUyvohfTm66M1p
LGhr97uf3ElG701jbj+cGoSCnqKznmvzn4fH58dfOomozVv621zrMJwqzrjY
egoPN5yz2abcCEjtk1Kz3wUshEjQS3QFpoDD9aHvDjkCira02aP8DAen97fv
iz8yvXb+Yg//uo1D930wxQMaeMg/ZqARzIcBOSlh9qCNWLSa+CLrc20kCA8J
R4/YD0GmJs97l2YGGuuOaewreQJXPvDJXGUNwqcsnMTJKQaqvDz1vQeTCoMn
65vvncTDuwv78kyKyUjHhOzfKJcJXt4xg6vOBLivw1jkKCehbvG/W21LqpC/
2YfMuWkCeBVkRNbxkpAEN/t/8nwsfhsfdyw39FjlaKwp0okqC+B93Q1qNKGa
PfrTYNH5Ne/faSp62+wVffllD8TlCpa6wDTYo8ozk90U9I3TQEcrtQ9yKnRU
hZswENZ2KOhSGRnJutxPLugagCKp8c6tXVh4vLn4cmMwCSlLvzBwwAxB/nN3
+/hOHMTWqe7KkiYixfJA0XCvMfjpO5v9KXkUpJtfn329Nu/IpNYVBD+bhG/2
JRtqlcdhVqCBr+4iGZk2XJY+MjoNhx6JCt74MgFfJEUTNbqJSEv9VhbtAwZ+
p/g9ZtpMgqdF4Vv1ZQJK17ju6PEPC+PXrC4W1kxBsd63ylcn8WiObG5p/xsH
amLfRI5/nIblnRWb6/KwiDkbHebwAQ+PpywiuHyGQPbd8zG1UAIabLHvMDIh
AvVXpwOP7jA8XTra5RqOQ9s4OS0LvpMAM82S+bwwDItVE56UcAwa0skaEeYh
AH17h8CqVDnw6z7j68SQkC8LY1BnjIerXXuvq+DK4HJwW6/rQzJ6Uq+XHrBW
r7qSRBZv7i8Fl3JXu35UjnIrDS/65LPgXsCQsMxqMdzT31PFu1SK9BSXKsKt
EtFlz2faBx+MQq7MY6M3UgxUGFy7wfnvOBiKWOzVchyDydrVpps8FKR17EBm
meA0+LzMyBomjoM2tw3+cDwJ2SLzyaagtfNzsfrSzeEhMP2zfD7gPh5ZB0y0
128kwWfXAP+9b4dBKSlauPouFi3qBHqnXCHA7B35L6culYHlqfr8gXck1DHz
/3HLC1pF8T9TcFVGm7mr1lT/1MDWmU/+YcjiWNe5D2v75FVXL7c+XfueV1Pc
b8d9QYmc/97PmxOB5+HpS8lkIlqcishM7cND//2F8udJZXDAdxv3tCAZNTcJ
9wzHscC7S+za//QvgaOeJX72lWi7jcjb3Qph6GbnSYdz14eBJiuUaxDHQLFv
jnq9E6xGOosmTTQlIuDuXvEoqSQi7Ab5op0reHjW6SBkcLQMEsL9HoUySOj3
mf/wEzTqarJyxxpXNdErKHvXGqc/GSgziG9NQK8Yny47nR2FoTMT7roqDNTj
9Z/5FIy3tgqU2pKrlp+/O7Sm+v4XuC+G+uFBwO37gtHDMhg+Ebc3/gYZ9Xmz
TV5JYMHPjQ3uhp3l4DAZG5FYW4Ek33vX1t/OAb52i4kv4QMw+MvTTmcbE+0Y
C1+6bfkJfVJskx14OQbaH7SYzhN0pDxx1eYX+RuYm3e+3+w2CFt9dJ4vkhjI
/O739xZjSehMzOmawgvjcP9wquz+r3RkMcHX9NgyHybZJwwWHYZAr2UyIr+A
gXholMwx9S9IRpk4o6E6AXkM7tcq/nSk9vBAtPPUd+hISo+m3R6GaMddkpeD
GUiWT+LdYF4y8ugfo5/bNAmCnsEnUw7RUdm75UcooQBEzya6eMWNQODF+BcN
2mvxR/0Rz2+monCPqxZ7FiYhr0Tmz8gCDXV8bfVje1UENoKxwdu7RiF+c8Kn
xzQ6+rFdLXnYLB0BUdCO/dcUvG2mjg5/oyG/dR9qft2Hyv+/PlQdJdO/tgTO
H3/efWXnOJz+JKewEENHWf/lp0is+ynP4rvGmrd/RR/fSdqkC2Ng5fIbyS0c
NORVce3OFukq8K2X07ojNAXVIB+PLaEh0etVub1S31BWsbhoTC4G4qaEnyS/
pyLGw7PFO3KrwXZSain90jSELiu1/dlHQ9fCuFSXLfORzC6sG9EKCyO1b64y
5ajIk+Nhidf9WjC8U1ocqouBkkvcHR+iqehpDpcFl/cPZJ//4FDLRhykVixK
sSVQEFsO/4VPL+uh/Bqvypg8Fr5eP7NPYoyCdnDpyjD/FqJjz1Rf+7XhoNRN
/tqWFTLKr9ybstDbCK/cN/nrbcfBn+s3HypuoiCRZ6/opVtKES2Oe0YxEQ8J
i0f4FE6SkeffNi+mSQtgxqoWi7bgge5Vk/Zamoxu7TCvzeupQLjXp7kzQwhw
r8DoO4c3Cfl7tRd94xqEe2aCnRyieHjd9PP2dWsiOtV7K9/1Yy0sRDwXLzTr
hahdc7lFZkwUZVd5ZsW0HvY87JV9ta8PeF6Z8N+RYCLZCJXq0/sb4YPVeyiR
6wfBoLGCPRMMdN711NeP55uhfsd+r7hdA1A+SaoefcNAHD3bEvtLWqHwUj7W
4fhaH+S24d2FGOi7m5uU6K0OKPC+v0E0YAh6r1Cv6I/Q0Wm1kkt7DnXDsKym
piAMwx/0pPj7tf/X92lY9322MDmN6ob7gLu5/7zHmzHonCh3ldpBQ24Erdub
fg0A213N2btSE7B3a0jHddO1efz5/IHktbov3ZKhyPttEl6M7FXYcIGCdO/M
ikTGjUJSV+l+Sblp4CizSrQ4REbU1KwnajPjUK3hRuanToME6JY++EdEnOe8
EsKlpiCU+8TY7FcMmAsr9b/MJiCBy5tuht7AQYvdETa5+WkgxhQdKVnFovwU
lxf5y+1Q4Ks8/GdTN2hKjkY772Ci97+JTaPfumDzzuAvXP3d0A1hZPkhBmqf
VTHivdIDT58QTVnZPfDCGLMlOJyBoMrowZ0tffDx69DVv697IbTi46iEBANF
RR+XIfzuBz2DBfXhJ31wEHtBYcMHOtqZpe+3RXQIvGXcmLee98Ol2r+NAVx0
NCJwuuew5wj475I5FZgwAG+KX7N4zGjIed33GV33faLXfR+B3eytGwYmYWAH
YcGwcwheqjmx0ewo6DOHv5kCcRpMGaonnuDX+ubng4UsZTL6l3Pj7JAjFgzV
Jy/sYY5AcU98vksVEZ1Qq5xLGMHBeUTXlCCPQmTMbzsfdQJ6eHT1l60iAWJS
zX53DI/B9CD7L1o0DrW2hu+MVCXCIblPoueHx0E+f1Y7ZQMW2Q1+njlRSIaI
YZmBvQujUG/U/5nLexIdfgnpgzJ9MG5u29UR3w4sXYmQ3XkMVFyitr2c3A+q
lEXswnwHXM+I1bh4hoFy+9pHeQmD8EThxtmAm12w/5KVw50BOlJFCaGp4iMg
W23P8vHqhqzEcftZIzpquj89zRs5Bgkvg/w2aPXAkZVH8ydiaOhyIvGrnsYk
2Cpv/5S20gPvD7iWBFVSEfnE92mLp9OwzSSm4XtDLwgG/546XfH/+j7T674P
/9vWqu25a3P3rapnwlr9oHOmn525g4RalAP2L54igGQ+l3xmdz8kPQ29b3if
gHoCD5iVdhNhQ1jzzJfzA+D4w7XmWBUOtZ+gZp5XJ8MxdYETfbUDUDmxdGU3
CYO0rs0kCZ2jwMJbMe7tOoNAWxjQ4peeRsL6RjuPiVNhJ1dG/GfcIOwZH9td
JDWB/voSFm8VkSEypGTb8OgolKY3th54PInea+TIsekOQZoz0flXewt0GVls
mV+7t8ztPNpnd3EE+l/6NfayWqEpRoumH09Hg/hdL5/kjEHwExz/Dcl2OPbk
7RR9iYbiwgJuvT4yCd9NDgQ1mXSAw7M5oYAjNLRwp/Cb61qfqHuKX9we0Ale
H1V18VZUNC/8yN7qHwZcNzjISbztgoTMSqEjRylo47N/tmnPcVCoujOn0Lwb
TFPdVE8vk1Drf/k+vOu+T7Kumm5RLRE4V+T/cEn0gFzySSJXJx6pOdfsYxmT
QZcgOap4oQe2CeaYs2axKD65qNAzmwLHun+O2QT1gNFXvwPL/6aR7ECH6OYh
KuCySvU/RPdA1H5H9lSxSZT7paxXtYoGX/kWslSreuBLkoDa5fBRdCpx5+e0
s3S48eGZA+NwL2x9OS138+0QIn7lrxEzZ4Crptrvh8RuGHm2t3Hcug/dy/Cu
u907Crsvze0MC2oCOa4HGi986ei7bs5ItPoEbF/1q3vp0gxbFvzE5rtp6Jm0
l5tZ/RTU7OC+xm/TAolXtexl+GlobLOIZPRxDOhPUxXiDFvBjdeS4iJDRfa1
i4qWgAV2vQM6LIk2iGM9azzBS0HepZ42Q2v3W9NDyWJ7xtqgsf4jiwtIqOev
vGzvOAGy0rP5Lga0g1luzOKgIRE9+C/fR2fd99l4+YpFMpMMSrTyZwfFOuBH
c6VsfT4WfbmRePfTGSo4C50Q1NjWAZuEk9rUiqYRCr5mie7QACMclVdBaQdp
Tm51f8cJVC79Wv7dbTo85Dqe8bW4HUK3zVyVfDKCJnjtc67vYkCANceVgzXt
oC6S4Oe2bRA19SgkDcQygPrp9XNWRAc8NGpLO+jahyQqFezTjzAhcywmU96v
Dfp9Dd94pnUhjjeFBv5LEyCv/4+7OLwB0rV6f16uoaFxqR+Xe45OQ8jbzXHY
Y43AYXT/Nu8KFb2Pm5ms/ISBmG1ipqpsTeDBO6hivI2KylpzeW4I4eCj6ADH
469NcCppLHSJnYIWXlxS93yNh9Dnt5lvDZsht46dWL8Wz0KbZqQrSQSjhy/C
dhY1A35JZ+rXaSLaIawf0fCZBA5Dd7Rn2Frgx1fxy5/S8Ejmv3yfV+u+T9kB
56txAVRg7SAG0peaIczYdFPPxDRizz0xh8+iQU4SYb9PbjNcC9tnkZE/gYR3
qbOqsunwyKqv6rxRM+irK9rfKRhBDkP33l/xY0DEF1kv/HgTBCxNONN/DyDH
O7cV73IxocQxCfe9rAm+HKp0Hy/sRbxbFUxkrJnQMfqIN9WmGc5zC9v2HutG
c77XwwOwDPicJaFXNdUBoSP8z/FWPajyxVKc0o1p4OoWKrftqQPt2aPbj26i
oYpTL9+hAgxQRNk1mt3rIV2Yivm0i4q2zr22E5PEwY24uW7icj2YW8hbTMpQ
0Nez0bG/ovDgZCywsyKgAQSeuioO0kjIakg38K8AEd4O8EQ9GGyA5F0nTjQ8
JqLrDoo4reck8B7gqbMVaoScroI4rXk8CikQtpFbIYPl5UbDS7KNMLhr7u4f
DRya+y/fx2nd93le791UE00DE0uFrD/fGuB2GraX6/MkagGJq/OJdFieZnXE
ajfAyWeVF75/HEVpLf/kTf0ZcKTtbUVOVj0cqW6fragcRBHBNXGJUkyox+P3
Ru5au2cdzRuKUetDpwQe/KqLYsK19+ZjX5l1UJMY6GUh3Y2ulDq1p/WsfT5H
+0iDVz0ov3ErPFPRhkrD31oOhTJh2+IzsY5TLdC+mjra/rQD6fm2Gm2Nx4B4
zX5+w0u1kBXG6dpgQUXW30PdCfNYUE3/GJM5UAuafj5do9YUFLzWQqds8dBa
53ppo0EdHPUViPTTJKMQk013+XoJEOGMQoZf18E3jc6bWbi1Pt6+vevZCRL8
C+U+cLapDqSJFV0eDgR0LeLA0tx3MmjG6LgqD9WBvav1U5dyHBI9dTrhNz8V
DD5x/IysrIOkuoDYXCrmf32fW+u+j+C673M0PPhzynU6fMhaFDDhqQP9c/L3
YtnHkVCsrIGJMQNmOkO3OwTUgtKHuQdntg0jk6bBan8OJmxRpCtjRmpA8qNy
7JJ1P8o5HUW1fsGE8AMbsreZ1sDWgBvH/ea7Uc61V4eT6UwQzhoSX+aogcPN
MoKhau3onCz9ypIMC/RnLka0uNfAbpee/Gm2ZhRoJhd60JYFfjOB16IcquHv
t8YRLuM65L9pw9NruVh4xe7ylSRUAxWbRyS7kyhodfTsDkl+PGSZadj4eNfA
wSsqcT0vyYjnUvlfK18CmEcIcj2rrAGDXA1BcQsSyjCwckHTRPCotsZfmqmB
Q6RC6c10AiJliXaFniTDv7YGpLuhFlDDJXTqEh4lJDwUyUuiQHWf8fGb8zWg
G6b70/AzFi1zY6ZPYamweLVGqGNt/4SQHztbmqZR6X/5Punrvo/i10DT3CU6
2O9Ovr1hohpOvZidK2seQclzN1+eaWIAs3G+5pxhNRxbzbZ893cAlUrs3PLU
kQm7+Lz2LekCPDVRtwmx70Uki0u5/ONM+HO8tT5+axVQ3l/JVLPuRIUmu8Ne
qrHgUsSJrCHvSsiLSMrJmGlGNbP8W+susMAKkq81y1TBwSX/+pv8DUglYPv4
ZAQLdHeU7dzkVgFxS7Hc7r3V6FnJ0KOdyTjobqZrF0wDyNmmCmnMkZFbHUNn
HxsBfB8pBoToVIO9sIDL0Y61+9K/s0bH7YgQpxhS3OBWDbUjwzc07xJRnXrt
CaEGEjjfsmLuiqgG+gaRS6VcBDR7RnJopzQFXAx/H9oeVg0y2NVDOAcccqwU
2RJ2kwplNcV7d9pUg6lS/+OkZAyKaYvw+fScBjKnDvOlCFSDWA3dcvbF1P/6
PqPrvs/Pdd+n48duPUsfBuyXi826tKsKjOZ46kdwQ+jw/N62GsW1vJX9JO5G
rgCZhhNmdZr9KGkxSXdTHhOuqt6wMflQDmNmb0xDGrvRxtG/VWVbWfAn8P2W
ev8ySNfhu+Tj0Ybq5pY5RK3X4nk6YPvL1lK4KLeX9N6iER3vovN4hbKA8jRN
cd66DKYGR+qxWbUoed8HmdzPLHD3vvcqlVgCbW7nBVqzK9EMA1/3PRQPij7R
3uWTlRD5OdNh9TQZ3VDLG/UfJICpfsy/upNV4LjvkRPvNhK6rhRdvPMACbDh
Hoy+iCpwGt9lfaCIgMTULjxUekKGGZ6f01ejqkAyp/rJVXU8mstOKTjZTYGP
+DynI9er4N9BZ/fRR1h0409ojTYHDXBegrWtM5VwNCtgRzFMowVf3OEgUTrs
0RtInTOohBJb1uEXTRMoeN33KVj3fTzWfR+s3DlHcicDLlbv+xO4vxzMx/2t
PY0GUWSXUaCKBxO4u1evurFKIUf0l+18QS/6EcRdaU9iQm+QbpRcRgnE8TZH
hA51Iud6Ua8c/bXzvvPZ/ImIYhBJSME4bWhBfkKYwAeBLLA5yruPt78INj6P
uFe7px5NcEhEvn3LgjwUM9R3ohii462LuUuqEdFDRbe4kAU7SU5Zj3mKwHy3
LaHZtQy55fE29uoTwDJ+THRBpAI2bhXRqs8mIesQ5x+uMUQ4YzC7vPdKBbwx
lzC95UhEHpevn9xHJIHP4vvlg0EV4P7N1QW/iEfLpLLUhH0UsFDfUfrHrgKK
Hd2Xxd1wKN6hsbTdiQpkqdybvNsrQFqqp+FGOQZdtPlRq/OYBk81B689f1UO
TU+FHHQIU4jmjLHxe0wHX8ZvD47OMjjnwbZRUfP/931+r/s+euu+zzjlbYi7
GBPyyiQnfuWXQOaZWxaLo/1IUuLmlsY0JhBurXC23i6GrSRVrOOtHqRqrjbM
IcyCRXmO5yMaRUCX2ukw/Kwd+bO+ewWu1VVBnwrBM9sLgbq1Ee/1rxEVZP0d
LIliQZBx68ERuwIwXezNe25Xi4arokfTslmQ/PmUtRQUQP/rG9lEjSrEsBYS
v1/Pgp/jXNF2aT/g6YZnf32KitHkq0PMFhoBOg9wG5ICy0CJIf76mQgJcRW+
/9l4iATGQvlKKqllcHsL5/tLNWvz+30Hy6YHZNiu9nj0eHoZ3O3e0FZ/Go9e
/go2OldNgTPWw5sW1/ahb05Nai/AoqCjxNVVMhUe3yM3nREtgz64O/mGHYMS
eaMNt/2hQRXWhtF+pxRCHFpf7bw9iQqadat2EejQYPZDavta3O5VTtwOah9F
Quu+j9667zO27vuoKH+4WmXBBF2HhXDT10WwbF62PSKpD3FTGVqDfWt1eEVY
j3qpEOR/7FELO9uNdj39cytAgwVKbtqn1RQKwJfZUnL/TSta1b02KhzAgmxR
gwtnt/wAhUWu4LvHGtAJXX9QT2ZBjZiq2P3L38HmdrATdboaXS+JXmwtY8Ge
4AvHPn/5Dj7Lc/2TIeWoZbKePDeTvnYe0IEDIoNwslO8umSVgf413Lsc2ZUC
mKRDX043DAFBpnH1Ry4D8RODqT7+SeB3LETL22YEpHoiOxyuMlCBRJaAyLE4
KNo/HebAHIU2akeYERcDmezOubB87T4ka1onqIePw177GRxKoyMzoe6GO49C
UO2EQIKIwCTgCvgOmhrQ0behk+kH0uOR6qUUsUtRU2Dc02x7qI+Gotf5Ycx/
8UPdkSymmHIpvPF+k6LyYgrw7PYDZZk0hPuYcs9UvwgCJ3OeOLZMQ5HUhkdk
cRoS1DJ2tUPfgV0zJr64FQMGL2Db8j0qCm8lSkslZQK6Zyp8pBkLHNFFb1vH
KOin2KH90xfW+qu5i++tol7oexhvxXWaidTMXjo1BtbAUrWCuxpHPyhkf/JO
2MpEDun35CtDaiAH0yQ0c3MAZqJczsUMMZD9WED+kkUN7D01YeU7Mghu/i+1
LGLW1oPC/HR+VsMTKT1NPsdhiPMUyTI+yUDLoi8V1Y2qIeHczzMuvKOwX3/j
qZmfdOSqHIzNvFYFiwpcQtdgDEKlSbN1sXSUs87TKOs8rXGdp5kIFXscDuuF
e2u/aq3wOAjKOaY8O0RDr6W6ejyZvTAFHG/UFCZhl0YKx5F3VMQZlIll1PWC
6t3YsAzZafgbcfta6QoF8R02U3ftaQNKQfyrkfPd8N1WQ99OiYlMvoRxtm3v
APgQKOvi2gODj5W7OmkMlFiE+2dr1wmdc49Ca9/1Ao1jj6JnJgNF5sL+ia9d
oNPWbU2b6gOvtIcZwbYMZNUq+VvSrxuSSAYvfxsOQGqcFKf2JgbqyJUNuM7T
A66qm/Rmq9fyEytydSmbjo5rtBmcedQDYRWbjGtth+GslWqYmBEd2a3zrol1
3vV6nXdZMDKfPk+dAHG3okaf08Pw0jtpu83ave7Gl+tGdeJToO4Z2P71zwjk
SMTbuzaQkWukfeWK3jTYb0l9zFszBhZ+N/gV+0jo1gUJB9OEtbjNzm4p5emA
uLQPvfVVDHRVhpqZUtMHrULWxg8nOuGwz5PjV7wZqL656snFpX7oPrfzy9db
3dBl/u3cETEGsrENPyJxchCifWKPy93rAcwL/7SpfDrCtVs+6P0yBGzRwe8y
0nvhqV5OXf4ROtIPl+di4x+BC+rlm/NIfWC1ECS2UkRDO31u8vSFjcLc2I4M
B4MBcFcwMczbQUM56zxqdp1HYdZ5lLOOQfhWbRxonRPpaknvh0TD63+9XEhI
9MNW/StmePh7LqT2ff8A7FZJWbm0n4gwA3sOltgQ4IvcdhO9lUFgsh/FXMLg
EW+1X+YJdRKsZr9nT/cZA+OQ+vS+oxj0yEX808AOPBjl8DfuD5sGEvPjdc4k
LHrwPlC3oXYQvuSeTB6RbwVfT9Fq930MdFuuhP2W5TDsxtPvd2e3QdQW2feS
TXQU6xc5VLVhFJ7fbdHpN+sAmX1aKl/O0NEFhbn8M31joNF+YCpscxeIZE48
vFtNQ+r7XzydrZpYm3PNlyi3u2GHQU/kbykauixaQdVunAKZ01u/uXr0wNGG
ZJXFa1S08Mrzz5b5aUje8ODyim8vfBM5fHQ8goJa1vnS0XW+tGmdL9HuGr57
50qEINeu6m/BPXBvsip/qzgBRa1oh4++J4EZj3RyjnovqDthTl2IxyE87+xp
jywyeLHVOZWReuFOwf3ZP1uw6KKPfcL21xQIhw3sKll9YM31guEWOY029M/P
KB+jwnSq+d0bL/vhj5IzNfbQJBL045li/0qF2JtTMR9rB+DxrUd/E6bGkI9S
4IXkHBqkvT1GpGkNwPj+vyKN0sNIy1XlCrfrKASkCvLL1jRBW4rW7UORa/X2
xR9rP7NxiOXf8rGOqwUyR0YXHnHQkbtDUO3IhUkoSJ1ODLjUCph9mRXCDjQk
tjf7+YrBNNzfPnr5VmUbPO36ZhWTQ0UQdDSpyREDvvIH3+ardcCZfUumj4Yp
yMETc0wtAQsXk220+pM6YUt93gd5LBmVfce6KY7jAF87aazG1w0yniPKZo0k
FL7Ol3rX+ZLuOl+SVzp3JieXDA+K+dlrizrA+Vf/x1e/scjISf2TSj8FSNe9
75/x7YTlWqm0JWMMckl7aO42QAVzSm/SvHIXfBmw6vy7fwq16DxzTc+igd2f
OkEXWhdgDlXUh9DG0MPAc+P2JnS489b1sHHI2u97Tb/w6q9hRDufkx6VQoep
k5Fdftd64FtK9LXU5EHkRyzQFTBnAKE0MySd2A2x7sWuK9Z96EP15jDNTxNQ
wZP6XayqAeiWlZFKQ7T/+f8Vn1/1FKSbUnHbWxphMCHp3Jf9NCQX53R7gQMD
iHJQI2W0Cb59L/MKXatLL94+0zbXwoLf3TpFeVYzOKfFj4tFUVDGk7BpcgAO
vOZ3R+eyt0LjOW6uoedkJBepGp9QjwctnmCDPr42uDDQd26vHQm53CxROCG2
lp9hsRHXudrhyeqgxdwWItq5zpe2rfOlqHW+NEjZv1/YmAr417z2aqEt0OZd
FKEogUG531wE/S/QwOZpS/LZ+hY49yaPfCl7EvkLSiW6HaGDfEqeptVqCzwQ
+Vx0THUMnbz4QeXnLzpYLe7avse4FegprmdUh4ZQFe/e4at3GJD0+6H/5Hgr
TAZtLCgm9aNld76zs2tz6IGPh/b2abdD+1hIxv28XrSptMh4B4sOYewbU/CU
HrD19EhTTutHL07qUSx1piG4Nn5VnKseVsf3XfCRoaGtau1a6rYY2OhLid87
VQ96zaXGD65SkWUs62XEGyxs7tc4fqCkARqj7Tg1QijIcP7e34JhHAgW3E64
+6wRVn7hbm7xJyOxeF5ZCWUCOM0vLOhbNIGowKLYXxMScr9fJcsZQoSIhi9y
jrzN4NqwnOP+h4DAByk/7yRBmzv1+tSXZhAG1wvCwXj0c50vZa7zJef/+67Y
FzHveNKA8aol+8P2RjjnxUrD8k6hWlXNLdI31uZ0t8BvINIIN9zVH/zzGEMb
cVa8rqoMeKP8Tv8jZyN8sKA1atOH0KPrrynUZgaocV6NUlpbL7S/YVOb2o8I
Y2b2EoeYMGZ5cqHxdCNMVSWRj3X2oNuH83WDApgQ9b0/5I1NE8jZxbypdOtC
DXpysb7/w/HufFbon+qAEYsaI5ZVD8q4uylp0g8D8m8Pqcs8rgW/gB/jGBcq
UklzuvYuEwuXzWpxM9p1YP5BZSf9GQU9as3T3ULDAadLzX0qpg78Dt3Yzb+W
n/oqv5kxWgTwGn4Q/vdePVxP1Pe87ERCEqeuLF97TATrm0Mq8vwN0HadSMyQ
JKI3Wf773w+RwMbf58i3ew1r9WyXBD4dj74OLAyclqHApwTG/aS+Boi6ckOv
lR+H5Nb5ksc6XxJa50seidsqf52gg7R34+LLy3XAf6HSPfzSOLrypLBtSpoB
/vtku68o18GR3bQWwbph9PegAE61gwF12SYOCpRaWAilKxwyH0B9oaPPbSyZ
wLkY43q7vBbSj5XZVcv2IquGxDHVH0ywvcU1tdC3ti7c0fOmpxPJU9uydhKZ
UOXsqq+RWQetjnF/E8dbkT9nfPqIPAswsmwYB9U6ONCrlRZv34iyhT88VHmJ
heIDr3dq6daA+VHpm5FFFLSlQ3IfRysOHN+9mr3YVAPRNKOtN6vJqDW4tN9Y
kAC/Nuu73zaphfFtkaqENBLSvucY4XGFCMrpEi8DK2uhDR5Z/HYiIupZU2Z/
BgkMpxN+1UvUwSI5cCySg4BSfG/I/GSSYey3V5PPlTpgBV813hGAQ/2efzg8
lKmwTXmry+/QOmC/qMHv2oz5X76ks86XMtb50uBdsBMi00H3RHekilwNZC2I
vfu9dRSdDZh+zJ/OgBmrLZ5JXdUw8JLHzfHZILq3UxI4DJjg45ZxNsCvGtCr
xZBN+/qQsgjnEHktntMS9Hm93dUw4Y4p+byzG91+fLiWcwMLtK1V/+xWrIbd
u24wd25uQ6lPhUom9rJg73jxhQdr++P58DuGzJrQ6+wuXZ21efMODy7XxaEa
bD61uEydqkMd9L5a20c4mNzdfEdQpHptfj+ceIGXguYTlUbnGvBg64iPFX9Y
DR41h3zoyyRkuMUa58tPhJgq+b1apGrYW/6rIb+DiEpXIu5lWpLA4d+hmCTt
GvC7ZPrmdhABObpUJ95+R4ZrcucKznnVwI++Xbut2fDI/Z3NBc4eCsRN57y1
f762ntdNvWCPRYzX5mek/1CBL0H5ceXjGnA2Ou7UlTmNItb50th/8SXRZBln
kbU5Xcd8ymU5oQr2q7UHP1AcRo6nLs8YbGZC2/Bu/bCeSqhT5jWRyetHkd0u
Gt4xTFjx2nfj71IFuA9PPBbx7EE0QZZi/B8moH8ZJM1TFdDeSeTYtNKOSHv9
mUuHWXD0x6BT7pYKWLokeqx0YzOiq3z5eOc6C0Q/z/6Ik62EYRmjYNvQeiQr
NaI7FcGCMr/H+1ZcK2CSbCjq1FuNdJ0fC8zdxIPN18yiAKkq0CpPCPK4TkbL
lLbRX18IkL53llzVsbb+pYbn7dG1umq5Uu9OJELA8zb369cAtGScVw6wE9Ez
bNymQmUyXNY7oP+jGSBFRjR7NQGPaKfC0O3rFJDPu+r2lG1tHnogFHZiKw5d
j1msJUZS4dWU75Lt2vrH8LzdJ90xKLwx+8WxDzRo2fdZkq0WwChNTtzGZup/
+VLROl/yXOdLxR8XJYdqGeAzxLv3XnQ5KPE8HrYOHURfjLQzVC4z4W3ZzsNZ
eWVw+3jRzMkdfagnq3o2o4cJX4Q3zWs3lwLPYuVjn7kudHizkvqiCguMOv2C
y9hKwWM2yKfvbCuaPH/y7oIdCxJSL+wyzi6BavYov6C4BuSccvafzwMWlN5x
5VJ8Ugrcgo9GMjRrEcaEHvb1MwtmaSQGhlgCL38K7OX+WokeX7jb8W2tT4Ud
EfE8cLoCaofMK9yBhB5dIovnOhAh0E8l/nlfBdBPv/3YGk1E4b9/mo4lk4Cn
adXuj24lUC7XGHoaElBOSWDUxXEynBl4x+jwr4TjHEnKbF04NLr9d3YLLxWs
21UkJ+5XQsxhnYa2I1gk6PVRukSOBpmR/zQ1rCtB5kb7IZlX02g4gkv+jzwd
DrF3N+rOVcC8Tubdg+8n/pcv/VnnS/rrfCmmZW92mQATdiTuMdLiLIWqNunD
KfwDiPpoV1v9WyZom/KVTG0rATsFVwPFph4k7f9dUZGdBW+bHX69ly+GKOJ9
tbQ7HYjjxxYJxhkWtATeu77pXBGcTXfqfrqtGd0XvIa1DGcB00Z631dSIVAu
OkoWRtUhrWfmYg2JLDDhf9CR974Irlh6UXOtqlFAc5t3SSELHNL3uFryFMGz
3Xbdsa5lSKGNc8/8IAGW9xwcOpZVBtSM1dEbSiRka2T0alWIBJ4nfE35BctB
Y6oo+AmVgBLnSyi2xmQ4H/+plnW+HE70PRJhe7l2H7gw9WcpgAI2GgnF0rfK
4abPJns/IRzi4PPYl/6WCiyvaOtyq3LIx//U3B6IQVekzn6z+EID2QUbKXe+
cvj97kuo0Msp1ENq/Bv5mg4v597MH39WBmY+uXQJvvH/5Uv663xpfJ0vBbyd
NBg8zQS7syctC4aKYOuH2HHl9j5EmLQ80NrEBOfHlmcs8IXQ+/pz4+VP3ehG
lOEROaW1vN0GjwSZBSAnv+lapH0bGscO9mu4skDwTEg6l2gB/DwrEGGo0Yhu
lqpwurxlwX3xMUvsxx8wfkU6PmyqBq2NYjUvv7GAz1+bObynABJOHFa48rIS
QegIB4P2AOqO7Y43yceBZphf6wcdCrL91ndt6t13KH9w07AzDAcuQTdP2xhR
kJkv5cvn9Hco7wU9QCYND0/7ad0KnmTEq+Du+ymkCur+VbmcuIoHtz353hZ2
ZCTq+yS+uDMfTXf0Y3qiCPDT0MX/QiQJSfcH/Oqwa4SlF3aiSzoEYHxiHHQw
JqG76++QievvkJ+tv0N+v76O+6/3yb4HGrZjzXvhmq2gVZMHFuLEzf60hq3d
w70SbgZGDUJrupm2DR4DCub+GQqcZBTjbGB7LLkHnoiafk/8iIPaQeau7fkk
tIu86Q930yhk9J4nHnfHgtT8xOnlICI64TVhdvd1NwyuXjy4tRMPzVk95Owx
IgIIslxsmwQ1HeurY4NYQLJ7lHOb8aiuwVE8xBgD0Tp3luLSp+BJlI7olRYC
iv8luquVgYWM3+7pD3ZPQrn3VNw+Jh7pkzhuVgdg4MG59FF/4jTsctW7HN+N
RyqSP5wvNq3N6fn15g6PJ+HteNZHpXksorhsi7l2GQPeucHzPLxYuOnUvpgx
g0P7rAoI9opEkHm+TCxnTsJgC8eqoAoGZT7hDUzHvUabf4XUMPhHITrW9//U
debRVP37/zdFUUQZ0kAZmksUobyRyBxNRJEGKc2JFIlMZUiZkyIRkXkeXuZ5
OOZ5PPOcSmUov/O9d3/uXctv3b/ea+3VqnX2eZ/3fr2e+/F69HCLOhM9EXiQ
N/cpGSaqM7xNQwkQ4W+lN+9OQRWUkqgnsanga0FZ2xzCqRMt9FarRJNRoajV
HpHiNjh17jr+RuwERMjlxZSfoKFLjmc6rnTiQE6r/Wzt+QlwE1hv82k3DQUt
4cn/+R6/aOTo2Lv0wONIqT2DO6aggz/Z8LU+Bf3ik3c0teoDxyaN71ar8WDl
VZ10XYGM9p06n2u6YQBc7knvDmfiwdLBQz9rmoj+JJxkBvEPQp0DSf/qphF4
Q7zwQ32SiiS4tCbeHxqFfXEhjU1zIwDnexqfcvbDUYx/1sL45xSMf7bArh9Y
wkXXn0++T9nGqatrj6XJT43Baf8/lyytiWiLltTOX3p48FxxU8pIZAI6VaY1
7o/hkcMWt9rV/ATIVF+j21s8AZrCL5M1/KfQ55zCQHcNAjjLbtoWsGcAFgha
pNaPRNSJcdFsjIsOxbjoAew6EbseiF23K5BvL/lNgvigSxcr3w+CSwsp1kR9
CsnVblbm4uE8L5z1vnprDsAP7td6m6wmkd+ixwPhk0Q46Le8On2iFL53yvpF
xZCRzctHGYey2NC67H3LW5lCMD994nzLxlK0XaLm4Y1SNugvXznrfT0f8nfH
LX7cVYwu97dGapaz4a/3nTncpnwwCBgVNBkuQnK/vPkX9rxFMw8tyeqdQ5CK
U7j2SJCJomSynn8/MALzBUW7x5cNw+BTw5RxKyoSOzVdzpweg4pjcgGOViOw
bz5JRHb7/8+lJ2H3/4hEXPrpXgKUL7Q8DwvqB/I5+/A3WkTUi90fKnZ/grD7
81owrEsvkAx18U5eGyYHYB2/vmFx1SQiVmRedFL/BLfSLG6Xm/VBqfhD94c/
mOhv2s0vhn8+QvVcAi1Rsxfwc2cu8GxjobA1CfZPXqXBG6chf5/T/RBx+R5F
pJKJgu8Q//BoZ0BymMO6v/cHoKixZHmjDxMtP/Vp/Ni2LNhX0Dobnj4Ium6d
7PVaTES5ELctk5YNN9a6rulZHIJT0/xSSkwGUo/NUFWezoVJac1tJ+6MgAhJ
wrU6hIE82l7SdxkUQPHHG66BvGPQ37ibtE6WgSqnDx0RmC0CPp/Vt72LxmGj
Vd+5ubd0tJDuyX9mTRkcEh7wy2mcAEfp8KspfHRUKqt548d7AI2Lh/vG6jnn
hHDFIP9xGuo3eJgR3V0F0Cz6AvVOwUOvFfO8j6lILnKHrzinPptaJ9iwX6sb
6gSDJwN1WOjn9qSSyg3lMBxVEyhq2gVBjf2e9++ykGxCxqm05Cp4OrPwovNo
D5z0WSYdI8BCD497Dq9/UQOM13Ik8yu9MCgeYeNZzURdFMewgsI6EBxxSJVN
7IO5tztwPreY6PjMCx66WiO86y87FTTfDwsnEp8hISZqTZyNKJdsAfKZb/ft
7g8C0chU514YA2WvXnngsUM78D58cvfKqmGYGxg6vbBARz+v/1Vdt7oTkquD
P3+pG4EX1Ddp0wZ09H2Kfix4WzeUumyviYwZgzprgUM7nGmoT5f+L/5cNKH5
C7GaWvHJat0oZ9UaDzPcVXitCc7yB+3awtcJet2JVi17WSjL+mGZ86oGMI+3
neyVx0GYzJrXkc4sdJtK6xeTaYVPszaas786YWf0qs5yIhPpBaw4ufVgBwzc
PXV4hrsbfm1wkyA8Z6IRlwgHY4dO+NqSmHlMrgecJnadKpFmooa6cO6bTt1g
/FHZycq2F9Lsfu+MCmWgM1asCb/CXjh/Ls1gW3ofaJy5HvRmio4uZxxZ/cB8
AHqXF4a/ExmA38s1tjGF6KjicrZpy+5h0Jx86tfpNQh3NynNhfLSUPbiv+cN
V/HlrTTnmqh4bee6nbNqBb7V86cv64TbjmYu4i/bIfdIXzNuiomybQsy7w20
w996CdO7i63gkZcr+k2Z8/0+k8EzB7pg7rPpRIMsDhRZRNXEJ0w0e9I9pZvR
A8fKw/avF+yE/euFRZT4mEiQ/0lz4bF+cM9VpKnydsH3S4+GZ5wYqJCwqYI0
PQgpmiVKTSu6wTc4KHltKh3VSPPszaSOwLKtNYet1vUAv1T5r7giGrIu8+mX
Ep+ANv/oiuIdvSD6rSXKL5SK1DRDx/Z0TkLQ1A6Swv4+0JT5btyuSEF8Oy4m
z0fjYfsc/snQjn7A7y5T2OlBQuaXnK+vW0OBvWOLInKpg5C+9nnElpIJZCQt
eK81nwJ/H8vab6YPgckR7g0T7mPoW4jOxqqoxoq9/tss49+TwEe6152zojvn
H700pveAnpVwgGF5C/ymN8iUcfbzg5OVX+JmuoBRFrMm2rYZRmy4xdQHmIiq
MXDupFw/nNmr/JK2vw0Ie0MHEjjngKjrWUeFpEGw+aJxP7WyHW5XdYKCMQO9
s/5isu7uCBiubl3uvBsHusc/xG/1oiPnxUOttsHjYPuU9pW1gAOjvrQKFx8a
qrmzLNaHUz+MPhJclt3QCUf3T58v4jxnpUVcHg3r4sHj6NHV6s+6YEFxh6RD
Jxkl3/7gZLWOCGtm04W4OL+P9i8ppjOiJOS69SM5lkCCn0EH8U1p3cC8I8fw
WUtANvOtra3/xxVoh/0UW9UDEjaT4mGsSXR+tfyPcDIVDh5SSo1z6IG//mMv
1V+Ooz1bSm3mJ2iQX/WOXI/vgZaj7X5uFcNI5WLCjvvH6DAQ/7OgXISzn6/s
iaZuGUTJxxT+7SvYqc48QOODhi+dYqo0PjTUwutq6DQAJZdoM2r2TXCUr6/H
ncA5J7194iq39oHeiXtXKnY3wjFL7wiJq0xU3JHmYDI9BM69+PKad83gS5vr
LtJmIDuCYeTDmlFQ6LWP6iG1QG17Iu3rfTqanaS0Nd2agDfKfcJhu9pg9aaW
WwfdaOhV0FXb+zJT8LyEu1jhUjtsZrQnX9ChIoODsuqlFDwkXMIVNj7ugO5r
JmZxjWSU7RZ+qa2c0484SZ1N3YcD3KdUz52CJBScXarIeE6GoW+7ao/54CBV
5v5mUUECqt940XjDQSrUhQ8pfM7EgYz1oCupfxJNXzZRSUmnwaXHM4a3K3Ag
3Z5HUJIbRxV1dgkZXXR4jiaqs1pwcDLn+M2fjUPIy6J0xj+SATySC50sqU7I
pfsS5zb1I7vafYEL/QwgGe3OJqt1wd2ybkMufA/6Lfj6X+fA6q1xLtJ+fyou
Gn9J46xacauf0Ov8h6F0BB2esGmAROtEn1QjBqJg/g2bJf6Nrzu/lA2uGAQh
ZanX+0/Wg8izhlA7GgORMI/H2SUej5277o/OGY+Bm3tHUIFjI3wh1G3HP/uv
x8ME83gMYh6PN2a4HpXPE/AykT64+3YTzLrq2Ge+pCFTzO+RtsTvoTt+elXu
8SnYdKTB8um1Zkg5bptneJmKEjDvh8sS70dcmXpNkggBqCtKGK+OtcCJ27GD
HXPk//hAQjEfyHrMB2K3K6R2+wgR7H0WY3tmW8BLn1vM2YSEVDBPyAzmCXmP
eUJeCf7+Lf+RDOtUZsO+32iFMRvBTnOb/3Kka5dwpOyDtQbPT1HhxeqjtcMx
rYB0Yi+R9k2hOMwrEod5RaQwr0hzbKrc3X4aDK95Nan0pBUst+8/dKh1/D++
kQnMNzKE+UZy/GbiRaUY4Ndi801ftRUIFg/dYlSGkT7mIRHAPCT2mIck2M+6
xkKQCbHvo2b2/WmBV0l6CoXf+/7jJ8nE/CTjmJ/k3fxKvotJTLBrlND4Y8X5
vF6S8U+e/tdbwo95S0wxb0mp0a7W5x1MkJp10Ml3b4edFr9CrcM70VrMZ8KH
+UzsMZ9Jbc7duf/bt5+jf5Dvf5KGhZ/jki6fpJEG5jkRd/u356QN85ycjtwR
EXphAmr2BT4xl6mFoNLr6k78nPNT4tOP2zOj0PjOUfu3XQ3E8OPZq0boCBoy
ZTNIk3DxfKO2Y28tKKgO75bgoaFry9uu/vbFw9e0b1vFHtaB85o9Ci8aKOjB
Vt3RQjUi2AoJZsz9rYND4sXiQcfJSManf73gVxIYzD4oeXq2HioIn9tWxBKR
JBBn973j1OfHs1Z8flIPy3X5dG8m45Ewv6mYnAoNzO0PWStfqYfr1MjMiieT
6M5LH2nzWDqIvhf3815VD+PzPXXn74whm7TQmO/1DBC4XiUg97QOqgfs02b6
B1FSht9y72wmSPyIYO0aq4WipCeUxPu9aPbjn4YkKxaYPDNPX3++Fros8l6z
wzrRtj1fVuiXsyBV3mrXftdaqEox5+2VakNSyyV3yvawYD9h5tmJE/VQI5L4
1UKkGcm0xf7rPucdmxIUur9QQWkS0OKsWhrmOd6n3CfBO6/tz6XWauBWyVAd
u0hDK+9vny0UmAB9P00iaUc1vMyLUxSwpKPpn6KqdwXwcNn97Sk++xpQdFUp
c9SjomYeh8fKqQQYfjQYED9SA682KIcqMDn9pu8pvQ2nOf1OUq/DK7VaiPki
mZ9nTULWe4cv8nFTwLaR0U65XAvBBlKs7EACqkrrLWPFUKHm29zUGc7nVZf7
KlnsPYXUN4RcWLuaDvds8NeWbaiF6wapNl0WE2ikUbut4iQD+ge6Dr5PqIHc
DAV3ackRlFfCd0rwPGf/t74f8F2ohsuVVZJ8Ef3ITav1tu02FigqRXydOlYN
hxauEWatu5FTxPa5uHwWtO0ZTb9WWgUNu9gzf8w7kHXFu6zDK9jw+P6jwtnK
Krh1jnn7U0ITSo7o77q4ng2/JS+t++xWA89r122fG65H+iGX5/9vnz/d0Cex
SV8KAmzddDkrWvfrr4jSgynwH702JBxfBfbNX5Z511BRQI6Afd/8BCSf+7ST
JFEFJ3pfPTZrpKHPdXT9MU4fKtfjuKlnTTUQvpLuVL6gIPZMMm9IMhHOHTR6
73yrGnZ7Jyl0ricjkPNlPDMiQy58qTuYUg19hzwf6N0hIqquTew8gQIFStID
gjnVcLJii5lGCB4FlNE+OF+hQZb/jn1rA6shRnrx6S/3SdRNevO5C+ggaOX8
QpXzvZ9XUlzUDR5Dpvy2VWZEBvy+Pm11PLYKyupL85RWDSGd1desDXBMSM56
N32NXAlH153Fc6f2IvX+8EpxLxZQgag3u7MS5Gwt981HdaKKMzql1b9ZYDFq
FP98L0Dqy00iEdtaUWlWqocBYkOx2NhFyY0AgvhRjfDWehS2fflhczM28Dp8
E6ZvqQKvTQFiLZq1aEXgv5+DUa91VnO7/Kk4tbD/KGfVuvgg3j/UCg/uRP9I
6dBKSLLgDm1QpKL9wkd2Ng5OwgXbiCJRmUpYFadzRV2bhjK/q1LOUgmwRv38
jl30Sli+TsLj1SAZ8e7Bq2T5kGB/nZa42M4quGOQeKHuJAl9aA7Cr9hAAc3w
6COW+lWwJax3aDiKgJzdx64HJ1GBQUk69PhAFUx/+LRTOWUKOYLxtURhOqQ7
QxrxeyXE69WvUwyeQIfHjs8dMGVAgcGTvmdPK0Gq6cG5G3kjiJe3PWz5GSaI
LT+tLN8E0KpmbJ9hMIAq+nY/2MvZt/u8L99ZeboCpr2OE57z9SBK5vaw7dUs
oP1WEQ0eKoOv+fkjXBtxCL8rvdl6Bxtky1aeoKSXwpl6+5KEgCb0IKt++5sr
bOiTkH37xqcU7h5yvuvvUov41HJvud9jQ9he/Pu7ThUwdUFW0Fe4GtnUs/91
n9GPKv9DTaQKn6DCLM6q5bJv1R9PeQL4JojEu6kCKF2L7ksMoSCpCvy3nx+m
ID/0pPSUZwU4xY38Liqhoh85x2Wrcoig+vyEsX81wI8PIea5e8ho54Git05H
yUB5J5EhIFgJK3npcU+jiWhgbP7ZCxwFzjllC2kKV0LtKcWRU214ZHem2jVe
nwaGcftJK3AAetHh7+93T6Itcv6BmpzzNvQYTxbXdgDlW65mcTfG0eqog9pH
KhnwZl3zx+M7KmA+64sgEh1GjJJOuzrOeTvFZ6dEmSyDW5JU/vHSPuSSfVNw
1pkF5u9Z2qXX/i9nHhloiu1CCUO78wg/WPDoyiZ92+liGOkj/hQqaEOdIZ8i
ys3Z8GhLfkFwTRF40mSupJ1oQMr2gg59PmwQDGn1PhFQBIlr9b1Un1YjAfux
WYVQNrCCE/ib9pbC2gPWXws0KxHXh/Z/3WcpBeUK4/HvFeJjtEnOquV0Ts70
8wgB4tWTX4BHOQx1VjamzZPRPtNL0362eNiiF5n0jFoGcrfT2+8epCK+BJbI
5SskcI2nvlhPKAfbJ90LgS9IaF3kmulWNhkGRj6clBWpgIFsj3whTp1DqCvX
HHemAu/CzM0H38qhtMrRS0oUj/wEhYifcTToP/DlirpvORxQDD/hLzqJjqj5
vNgowoBpSaEal9oyeE06RWqhjaJX2cFGzE1MWHtUfZdefinsnbxbcC9uEJma
DOPk55nwqL2ZT+NKCfDhx1Pe2vcie5OYjo8fWFCu1Z878LUI/BWE7phd6ETL
aNkXAzawQfiMtUKyRyGsHGWfXxfSgq56Zbi5ObPBO/JeaKtlAfhLx+aQ7tWh
GXJ83UIMG65GbC61XVEAXacDE7mGKxEtzvz6piTOn5e8EqbjWgRfvxSyvlwo
RwIKj/51n4Xil135acIFR+osfTgrUlr+p/C6DxEefbM9uZxVCkYhN5qVb5KR
RYD7dzkBTn0oIIQO7C8D7vuCwfu+ElGmyo5GAz8KkMbrgw+jMpARM3i7QZuA
8khPJeZ/UKE2Mah1kq8Mbr9XrTBymEK2+7hl1hjQgaXDEvngyfndKXw50mM3
gcQepRp232GAl0BVSP3nEtjnYfWVP3gESXf9uJx0gwn+mTa7el8Vw2yMSFiC
+QBqNg9epa7Ggpv0U/KPdYtAQvdyL9rTg35FaVuVdbDAduOWwMiuAog5ZCaV
a45DLX3+rtyHOOek7dweumM+vDlTuGwhqwkdTQipZnqzwURf4yFDJw9+XnfA
JQ3UoAOHL0uKfmZDeNGHiq3MXJA7IJbqSqpA5aw7dkfz2FA1w+VuoFgA0d8O
C/lCCdLf9W8PwPXbQfMvX1AqNgV83hr2gqJ1ny/nkl5RGvCP7/O7odEPwnM5
Z53rmOjTI6bc6msZ0Fa/2VX4zABYyIY6twUy0fe6zexFlAVwgL/9ZdAgiJls
UqHqca7fM1rRsywHPrg3p7uNDkHHbOwo7QcDlbeSRjpW58HwbX/bkyYjwKdg
mxUdxUAWGKf6egmnOpfy+csngzK4eHnt+gPZE7A5J1fsjBgdqfxdcJEaBSj0
brY2yJgE3jjxOxvtaWjHG73ewZ9VQBbMWVQunoI3+euL1odS0aTi9ci/xTWg
YNuo/qIDD9kDbb0GSRREmP7mUrqzHq7adWSUswkw7h/HTAohI+XXjarTTizY
KgFWc5daYPDuWwXaWCuKVnCrsjpdA0+pe/MIG3rB8itVoqKTic5uqpRjudfB
NsFbMhcs+8BbJ/LM06dM9C6LkUSYboDqnuJJSlI/7AwLZMTKMtHn3BmhMw3N
8NvhfJ+lxCAoBKw8OJ3GQLEYdzqGcafbMO40ha636srXHug18PmWsDgON9sM
A/s5/Rez64INnOqHFWIZ849+T4CzSu96Lk8K6slZpbOpbBAUpW5uvPJ1EiK3
4v5q7yCjBBTytIA0DHNnjf/+nZyCVSFCWq8riGhk+lbGNKffsR1+fKfp7ADw
fY6+erRoEL39H5zqRoOYBEkKDoyu9vjWZ3WDVj0vUU2biYoUQmLQaBdEfzpt
LzfRA/76Nqvx5QwklfTuppdkLzxI/UFEin2gVDjq+2c9A93CONILGEd6HONI
FQM6eIp6J+FkyTtBWflROP2qTfmLGglt9/v9SPMYHixXTlLK3cfAe4V+5yZP
Anp6c5XOagcCGM7idpwbG4fZVXLi+J4p5EEgj8V/pcBmyXfPK54Pg8b6g97b
FUbR2f/Bl64duMoT3DYAF8O1Y0o8ukCL11LGjJeB9GRuwcGEYeiSBxN1/24Y
2Otj9HE7HX0wvVApdpYCoSruQ8ZmQ4AjJ1eOi0ygqvtnHg4U1qApsNYP/EWA
jvUDTwPTyEhlCYe5EeMwf/iPUqTdJ+CE5mh3vnYnfNYWWWUmSEMCGPc4gnGP
TIx7TC9OwQE3HRg8FbiSU73w5JjTGwXiEFK99Nw8vIIJW3HXUNLuDlizOv1r
ZlEnuorxh6cx/lAY4w+ZGNc3inF9qRjXd8Fe2v0rF4tTh0kQRQzaIG28+QF3
NQ6Rl3hBry3xghpjecIQlicszQ1+Y7nB0nzgMJYPjGA5QMiSHOB/9fv/q6//
X/279pI+fWSJF/SfftxhiRc0C+u7p5Z4Qf/pr82w/vqfPpoX66MvYH00H8bv
BWP8njPG7/3TR6/l+vavPnqt14Z/9dE1tPf+dcWTUNml17GzrBYOzazI499C
Qyg+3671FB7Wn+15yutQB7XUeJ47LArK3Lxl66ZlRDDdodQfR6+Dkfp76aef
kJGZcT/btowE3C2b9r40qYeuY8vVjTuJSPDKn0/GzhQ4nL/Td8CtHsR5ttxf
QcKjsPWs+v5EBuf36fcz4VUd3JEvs2TfHUKmGu4N2yKYcCOMlC/xvRZSU+5a
Kgj2IcVLNefM9FjQufd46N2btdAjH5fuL9mFLC9vPziexYJSDQ/88N1aaI2V
PHmF1oac3pxS2d3JqR8cd3dOrakH/FnTWMPHzWjz42yZj3Q2cnLv7/r9IgWe
vZz9uevEZ7RTZkWysD4BbMoevDtZUgPdfxLfyhyhoAWn3PFxNhGSaa2P2Btr
YWXpvQ1PgYRcLluOdsWS4YyhNZ19phbUZgv3Zy4S0Mc6F5cMNSo8PGGe8ZHT
n9auiivOF8CjhN1pl8x+MWHkWn0d1bUaRiJ4K6+69qCqLRbmR1+z4Oipj8Uy
E1VgorNzW2QiDh2Arh+1nHpSQ21izWx5Few9Rtp/W74FRf05Mf9Ngg3DvZ0Q
xlsD3zYkiYvENaB5qaeP+FlsiPgWkacklAyLGQxiUmUqspCRs9HIIYE57fuC
0stqKL+bv3hjDQnZe+y8WWROAd7TfG3Z6dUQ/ezlTaY+Ad2xSN/ye5AKJw7c
0dKMrobYZRVhBw2mkILuc4WqVhYwzp1aVZUIkNOzrOwArR2Vy5pWuimw4TuX
0mKLLMAKTbHIe+RGVC32ayX7GBtU+ncJu3pXgrEab0cBqkNHhoUrNKbY8BUv
/ywZpQMltki1LC4LORqvs4/g9KFVzDX5tYer4FVmzl7RJDwauN/ZeOEcDUze
5h9NF6+C84H6NhveT6I55X1G+w3ZsNLPU8cnohQsNn0lyok3oCBb/vX2Nzh9
4hzPpnZCGRQZyvduMK1BJ29b5PEPsCHzmrTeO5MsqD2/1o1gnItszuho7G+i
wfru6qQ34QAXbSsoXsKTaD7zfsKVADbMlV7kwrkWwwor+1TDzCrE/bhTta6D
U8/EH+On92RDWd/NHDWUj85OND0/38SG9PdFQyrkHDDT4jm8+nMB+tr9b/7h
zxL+QRLjEDIwDkEG4xCC3LfbD/eMQDZTmX6W06eiQ2q8bcuIKALjCjIxrqAc
4wqm1whq/txBgNl1bp/nvMdhlM3kyTqARx4V73B1owRQ/DHziidgAhRiaw/i
qiaRf8qHNQeFk8FmbznTwroXCkxmDIu2sBDjUVu9Nq4GfGevOvZN46F3zPf0
LX8K0glSydyuXw++1pa/M9YQgXorp2DamYz67iX9q65bjOa7zb16vuKVVNp7
zqrV+NHlalVUN1hLkfNvCY9Dj0bZ64cHaKiWPJCR49wLfx8jAxutCThL2B71
ypGKeD7bHuUa6odvMxqJ82qToHKT2mC7j4JYPOJ3DXWHoL4xcdvwnil4vVJw
jUE3CQml5uISHEagk3bhbNxGPBymh2i+vUBEc2aet99dGYHPyu/OXpkfBE/6
fvncl1SUWpQhJhI5DooSLwa33hwGs7REgTdqFHTTt8jg4uUpuEtU2h3zaRQC
vrocOh9ORDdSnm06V40HlcrkjXYLY/D94fJCrz48shCtMzLPIgDX27Yz5aqc
+ymmXL9Xewpd/a3xZe4AAVwducsn/ErhXO5PG3IYBeUMCFQ2LSPAcPh2fS3X
UuDpkzztXUxBcts0BqPm2MBjV+Geoh0D3zxGn8sff4MsosO3Hb4+BgoO416P
x4dAV+CYa0M5Bb1duW3hffcE7LXQTqsyHoHq5bAftMlI75zR7Q7nAhitO5Md
OjwK7emEoCM7GOiHh9XU20yA7uUeUX2LXVDFLfU034SFTkS3LHALtMO7vx+j
/FKGoHdvA96PUxeJV685Qh3FgWmsmO37MyOgtiIo/54zHZEnlpV2NDQCV2AN
reYzDhRta5eH6rFQnfTKxxaXW+B5j0fBs6hO0ON6Pdv5l4mGOkfOpMf2Q+yD
avn3Xv0g+Cc6ReAEHflc3uDC6zgEfr0wNUkdgBNP433LztLQfsPDV/kNR2G3
b6eHgsUQNOtSQq00qEhmw8o+5hkc7Hmv+LC8vA0SfdXoestZiNfSdFm6WBds
vHYm5e65Dig31tCdymAin7r1ZtWCPWA/0L6OGYIDN92ysazDTDR3+feZ8/9X
3RqYqFdH9ICH0AF3kQ009Kl/bzZJeBLahWvinr3vhVKmxcd9XRRERNUX8e1T
0Pf2bpJPfB+s5Qsa6uD8Th+GM6PamruBYnW9yGWgGVb/kDd484WJRqttPjuO
9IKMjMZhf+1WmM518v+hyUTZ/a3MNOUBkHhzo1Ojog3kfnY9WJ/BQD59L/o7
uoZAjLmhI8O0A+rkVGSm5ujI/17f+hmVKRhc9+DXoWVd4KG6xfJ0CQW5NmYj
bx4CHLkGqbcLuwDoezQWFTl1dbGhPk8XERZvs49HmXWDf41PfrUlEQnj1r1K
fE6GnVLj1dN13TD6zipvyhCPjq2v5d+6mgq+zq94ziv0gA59VMF42yQaFK5N
lm/qg/PMZL2c+42QG3K71vsoE2nXT92gbuT0VyN5+WmpTZCyzHIwupiBHKKn
TdqKh2E36/l3dVozsKYer3snxEDTJm6j+9+NASmhRVFYqRUKsrL0QlTo6KPj
JWARJ2DX9PuuO3faQFCisixqGw15d/Kp/r1MAMGfd1QX0ztgey7O7J41Gd04
aHFzQo0EHpK8ddd1cNDZsu/apiAiiop5+G37PBlupV86deQ5DnTjpj2Ln+JR
80ZldcVoKpBH+T+KZuEg7nmR9DeTSXSOwHNl8y8aSPM+dD8EOJi8HtQ6sXEM
JVd3HGfzMMAnWcqgcwQHDw80xiROD6L9y624WRcGYbD4/Gu3u/XA/+HV3S+9
DCRa/sBFhToMv0aN/9i4N0CqWGHdrn0MJHc9WDCgYAx0Pa2nH/o2wlmvVlLi
ZTqq+rQJeRMm4EZU4xrWiybYfG5KsfAaDWmMVgaygqbghdyaubfezXAnoUqu
X42KXizzaF5mSoBL35+Madq0wNXEw+3RdWR0DZsfccPmR/yx+ZEy4s8Fn1Ey
OJv6x0ncaYU+aV9KjxQBaYWXGdv5U4G2+XHKQngrnHa/8HY/YxKFaHtq3+Ci
g5sWb+oRl1b4ffB51lPdceTV8RSXqsqAWepyHbc9rXBtT8+e7vwhtEck7Y/j
RiYciSB8X+RvhYsSOybkQvsQr0iMrEYqE/jM2ttWxHL+3bpHvoIm3SgImwd5
jM2DcI/+ex5Ey7+GS5mXBqT+H4OljvXAy50VHFE/iZbtrs9fJjcJfVkDur/f
VwP1wSRvazwNbcXmGs5hcw0W2FzDsc/XrBn5NDjk8MlMcFctlFH2noibmkAV
lgcCb/EzgKeFivtUWQMvlWf5/Y6OolnTkhwx1iTQ6wu2Pb5aBWeC58z2KdBQ
zoW1szce4ME1wuh5G6EKPN7mPlzkoqJGjOf/ifH8YxjPf+O5f3C3Dh3e5gpt
aTWrBnfQqv4sO4Hu8p69cMKdAQPO0R3Hu6qApvcmkdEyjARixQ4kujNh00Bf
5oPdVfB8b1pf7/l+lHwkzCQwfgpwO9SOd52sBG47fuDJoyK95vO+pxQJEACW
DYKllcDuFDE7+pSC3iSGfysoJUJxkJLflRVVQHgQmi+7jowKMe79Csa9u2Lc
e4a13GvdbDrsbfS63VtWCVOSzOjomTGkNnvtnHQvp88K+VqwXLUSIuWi7F4H
DyHqa5dkyWomJL4wP9QtAdC+NvuNo2of2vs4wWKDKwvmlJWJju/K4eiKkboa
2S7E980uIPYgHq4fi19ZWlkBvMbuWUrGVBRiZOuqX0GA7ZWJcx5XAc6KvWg4
upKCytawiIJmJPCUPvjyzjiAydYL+zuiSehFp7NgLGffvvLcrO0oVAnBpFuT
9WwComE8uQLGk8djPPnYDY0XDkIMeLK7nOHXXgFF56UOGQyMolXCAkr3OPtT
rmbB5UZ+OVxSlvpx8Mkg4o4PUFSZY4LEfMWkkm0ZZMyrK8Yf7kVN8SsOFCSw
IOXnQnIlvgQy17PYp7U7UVP5c21VKTaoT5Czjj0rhtdON2dKr7agv/tZv8oA
D2fvOrkurCyHZZfH9l+jUdDee+wGPV0i3BT8SDgUWQ4prYeFjidwzuHF1K09
LSTQXNU3+JhVDnc+qtiUyZNQoOTYnj8WFFj/R/ls2PIK2GvEl/T+PgGJBf2h
P2ukgoPK/K/fA+Ug/SuKLRYxhUQwrvszxnVvwbjuwvYKpu4pBrx039q92rcM
BM4+5A+ZHEGHruKN588wYVkx/1DylVIwC+4REI8eQEffdDstKLJAbS750mnh
EuD+9PGLyvUeJGJ1MvhwDQsyyTU+fDFFsK/7vcP1Zzi0XcHa3XMfG56s0v4r
qloI1s//uipJNaPLh/88vuLGhn2TUjZyqAA864gXf1vXooaKhjUv84nA9RPn
9upnKYgcXFx8g8joR73AqoyDZAgmPxhoPFAG3vIJdbmlRDS4wrYtO58Ckpfv
mWceLIPYK381jfkJaKtVZEKxLA3M6/UCXWdKIdxt1O6Y/BRSKzmMmm7QQc3r
kZcJ53NZ13/zMJWZQB0Yd/0K465PY9w1wTNC5ac/E6gpyq7l14uhRm4nFXX2
IxHjay+1jVkwkW/1zU+yCPzHzshzFXWjdIvrHwXHWPBB2UD0V0oBXLxNcahp
6UDhqvWizkfZUBb9MJyglw+5L22tQ/82olT+nPO6nPrfcL0JX7lqHqy+d1dG
x7IGzffUNZxN59RvWre5nPfkwaHrjXdirlQgUlwNn1NSFZgyvVyEf0/BRG2V
6YFLVJR92GSXM7kG5hu+aWSJE0DqK92HfZWC8r6vPvGQ1Qtap+w/hHlOgHhW
/Fv5LVSk/SRV+fGFAdAJD3C85zYJG+S9tIYnyKh5mMt28eokjHJ/xNn2jkD0
hHudXzIJ+WP8pybGf35bwn82LuE/3y6jj4mcS4M5M7YJXqofVm07+0O3lYnc
g74LisamQ6J5wWEh4QEYWVzvFBjDRIv3X9tSpTMhwvP+ln3ig2CV7eyjZM9E
7y7Of3f8kQWxeLX9nXuHIOH3uucKMkwkNjNxRtg/B97FNozctBuG820jAQqc
5ynErEzeZZwH7cH72wI+jsAIMetVvtf/n8cSsTy2bs8l2saOUrg1Lqyw+fUE
hKbpM8oV6ci36Un7isYKMMioiyhynoTXzA4toZc0ZDlVViwnWAU3/PquPLWc
Aqcny2/I4KnozLNzeaWnqyFj4za1NG08jL7i+2mjQEX8tVzLHh2rhX43r84o
DQLIGXu3nTtKQadljugFCNcA8f6bTYdme+B2YjqeNsREU9q2sVW9tUBcv/fm
Rr4+iNrsEvA6ion0VOQhpaceeOIKfyvJ9wO7LGAu5RgTle5+6dUp2gS8dWe+
Jp0dgJg7v7r66QzEl6Y2JxHeAmUNWo+MPw3CqHPYU3tPBorG8tjRJXmsZry8
W15sD6g5dZuK1o4DfZXdz8hWKqoNC9+2+kMfXE2Q/by8bALcb388/RtHQYNG
eMviogFwrRZaNhI5CRtTP9ydziX/z3z1SGzcJvJHHOw/2flyXUg3rOJ+ft7b
nIl++bw1oh3tgsDyKiV1Tv3MH0IyK8czkLq0wmFv8R5QksC78X7phXZx0YOW
Dgwk0B/4iSLZB/vNjmn69v/f/w+ot6uhno5uLsldLbDcNVPs0qfkd5Pw6MXl
kdmFEeixiDtrc4v0P/PS8/b9l5qdB8DMKHfA3a4LegVDfz3eyEDyg/hna5qH
YCg3307TsBuoN3HSJtfoaHngfIyZ3Sh0FJh7qqv3wNZEnkPOr2jo6vLjzFJV
CjQLaTDaFwaBmLNjJuzyBHok/9dimwoJGIO90vt8x8BeguV36+gkUsZy1GdL
5tlndPNzYjh9bO9+9wDPHZ0wJnDL9pAKDYWnUIPDCyYhsjaHXDLSCUPK9t/m
13P2G5avDmP56jSWrxaG9Rye/0mDyYzdmX/39sJAY8TDjt3DqGVYbteRPQyA
/Tn6fDw9MFXlbe/V2IeuYPnqqSX5KjGHa23kVgKUPN7VYxPRAToU0HIII/8n
dx3BctfPWO6qL51zg36PCUhk6oD+fRyohgVNrRjqQtyYr0/+f/j6PDBfH+8S
X18E5uu7hfn6ijFf37v/4evzxHx9mZivLw/z9ekt8fX9r3p4I+bxu4J5/PKW
ePzWLpmz/sfjN415/LyXePy+YB4/+yUevwDM44eWePz8MY+f2xKPXwnm8fuw
xOPXgXn8TmAePyEsp/XEclobLKf9x++XhPn9PDC/3w3/q1rmgZOwjqt+KjK5
FnpDjjzPO0JDz9x1kCtrCtbLXZyI1KyD+kt7/Y8hKtq2ze+0xUUCvA6zaZUp
r4NfFq+b8MIUJIaf2aI/SYThX3Zvz8jVw7OwUT/vTBJyuSWy65MdGaTzLXHy
V+oB/+qMhYksEfU/Ekpe3UOB00x1hd2e9aAS7hIRdhGP6vmf3j76hAFKMw8n
Bj7WgUh+vK+owDDKDODLvXeOCZLutgfnN9ZB0eqN6+lb+lHWOmRsspwFzXss
q2zec/qFtV2rfJ93I0Pfsa+KXiwQX26rvftqLTRez75reh+HnOutXzlz6pZc
4cFH95i1MHu12fjY2Va0BTdx6dRVFmxQNn45P90EToUv9zIM2lFB3fuQYVEC
xLo1GCuk14ASj9d+iVsU5DIT+rfuGREqeF/K9a+oBV9dL0UeTh+940y15+Qc
p99kpBZ+N6yFw1HVo2sziUgxY1FL4DoF6mvGD6VeroWSZweG1YQ4++oXrzar
mQrXeqoWHM7UguxK2oFsrSmUolAmeXCcCWMrRLaRQqrhh35ItdWfHiR2tfOP
1R0WUDqkFVfzVUO8zV2XSy860aGn6lSjPhaQtzT4WJdXAentUfVTmm0ozmUX
7yZhNng7kXfm7qqGDudKx8szjWjnM/O522ZsqAtqoEYoVcFg1AMX2q5adLw0
NvizBwlueqtsv/G8GmJTP+7UMyQhnX3ipSwKGc7JHfEZ/FwNrs52Os1AQOSO
i+0Dx6hgwtevsDu1Gohrudt/rsSjgjhtzbjXNKAJ5UVd96wGT3cd2S+qk+j6
baeRPRUsENmaANUNAI7RWbFldR3ogZsg0lzLhvaTDF3rrQA+Txpe6R9oRr7X
6n6fOsKG2RduRbcmAHaP782f312PymJ404Jd2HCkUP9kjHEFyH90cOKarEJX
GxqcT+RSQJx+vtJbuwqUy7cuFE/i0UlhlXtqPDS4Vy8Sd0uxCnQs4/2iOfXh
ER+dnMMH6WCkXuraQKoEtbXHudUNJ5AhV/RwvQ4b+leuzXvzphT0waVXI6cB
GXtRjKWvsWGLz7ip+f4yMPLv17k8WYMWVhex1V+xYc29+2+8qCUwzv1spcM0
oJNbcxNN4mmAG/ZU3Z4KUHfDxeL18Um0Q/knMbSSDu/Pqm6LFAJwMk6fMCSP
oYzs+nqmHxuumDwfXLatGLLn22yMZqoQP0XkZVIKG1w3lDv9WlsEEDMoubui
DIUOWm54rMyA0xKf6tZ8LAMlB6GRZ1dGkdTn14OsQjZwJemIX83KB+k1N681
C5QgT2xOpGjJnAi983OTyACAcBjOh0umGyQdGirkDVgoC5ub4MLmJuaxuYnJ
EDfy9V84MFG7sTw4ZAQO6gyNorN0FHTXlfBmfxOo7vgm9JmEAwnj0r4aVRYK
PanUfv5DCzw52GScXtgJ9Y+CWvx+Mv8zj9CDzSPMYfMII3VzB1MYQ7BFTObX
TbNBWJiwEy+TpSF1o6axyCEcpFzXjAu1aYd1e54EGTOYyOXDDo3lD7rALPOI
5ceODmDO7Br6GclETwauB9460gMPyNyv2zNwcNVy5zG/vcz/zAW0YnMBYthc
AKXuyXLfhElwhNcXvUT6QJB19IqAJQUtFP913XwADwHydggR++Ch7m47NQIJ
bRr8rjae3QPDlVnPCkJboMUw6s+Lx0zU9/SqvFhCH3Tb4Xa/6m4FV2Wyzo1V
TKRRdSJDvGEAFmUzPZQU22G/mPTeQD8GuqXyi99OcRicuUd8xJ51QKGBLXVi
io7WYRz+Y4zD/4Nx+AGX/T2pUwR4F/6eb59YN7SPEaV3G5FQlB8t9psbCboL
rXnU/Lshu7+ERzmCgDocw509vpHhbEX0HwK+G2jZ/pE3KqdQzTbvrIBDVJjf
eK4kQbkHLl3iWtU8NYHUXhz+el5+AFg2YX7H1ZvAxtBks+gMA9mK1q69e3oI
ZMamlbzMmkEvZDJ31ImBuiJbo1dVjsCqC9/IBU4tIJ72Yos35/lOSO7wX7Qf
B6FoysdU31aoVPm19slPGtr8VWF8THoS+r7cfSP9pg2ET23ylueloawlPHwn
xsMfdyhqOnySDBvwQ9NWD3FwqJtXL8mYgMpzfGmJnRTAnfthI8CpNy83bzBs
c5xClsbv7zAUaBC24e9fs2IcSB7dOKNzZwLtoknX/tWlAy7Az3iuFgdHLj1X
s+IbRaUsF2bqBgZYhpt6+ZJxsH1nRaqB+yBSoXeNENWHwfO9kaSwZgOIqZ4M
327HQJ2b+FR5343CzFONlaIKjTBHOlF8v5COFmMsPnlsmICUQ48KXVY1wZy7
o9kMk4as9OKuGnlPwuHgdOc6ZhM47HutuOUPFcU03h8w+sN5zt5759xa3gyR
Oz5/zx2noK93/Tc98idApYPfj/57LWDxYurxZU7dFbaEDx/H+PD8w2O7ZbZQ
gSorFegW2Qp/nwX8WnTjPEdOrza/84gGm6NnrvkHtsJsOaXF9fEEuvmp4nh9
Eh2oU9xcjada4a3f5pf2MyPISih8k3gEA5iizPvsDa1w7mZxVOqGQdSmNfqX
cZQJw14VTUayrTAaa4jXze5F3cYxEgqZTLhhIqa0ebwVPk01HfVb9d8c7xGW
43FhOd6qJdyyM8Ytr9jGE9hgNgl2rumNDQXVsKkeN+P69L85ni2W4x3HcryD
S7hcZ4zL9fBoffN3NwM0H8UccsyuAfa1/r5PX0aQSO3CorDhFIjofVt7NagK
jh9kfbMlUBHrp+jfsWQ8HNhqX1Lxowr2fZL/pT9EQU1LcrxRLMf7h1MVwjjV
Cxinap4zkOBczQBtmqmXU0YVzLmkC2UmDiGPUf+dU1FMUPnyysZXogriTbjH
Hdv6UJC+1ckHO/DAFxa8YcirEk54v/8eYkRF11fs3ekbQAAXN4WAD92VsPNe
0Pj2PRRkLUU6d4JFhFm+WHszsSrojQy5/YXyX3+F45IcbynnuQHjPG/aUrd8
VGNC5Md+z9/fADImQu8zBweQUVn2mts/Od+v0L4dJYUV0BOMszPd1IuEN1rs
+/ycBckP13+YvVkOYYNvCfrvO1G10aIHZQYPYlvSXBplANj3jp/myacg0zOb
c1ZbEiGG9niVxHuALUO7frsGkNGTMe7zJ3NI0L4QYGDzE2B5j3FhiAoJ0Zvn
Cw6LUIC2LKPly8pK2PrgY1t0wX+9EP/keG+xHE8E4yrjMK7yL8ZVPqjsFHWN
YEKAhUXJg1Xl4J/z3kzfqB9dmGDODGqzQGhNvia5tRR40qOkGlK70YEhQV/n
WhaAxrYMgWclUKMicbDcGIdaUilHuOTZQKS3VZidLwbRnQkU0+hm5Pb8e+iv
DAI8Xq82wO9cDhcz1zVYyFOQ+E9dk9f8JJD8VReo3FoO6XoGVulUEpL9cvcO
nVP3/nw/1+TGXQGxskmGdf5EJKyfWnw/hwJOj1oV+nkroM/R0mJoEY908VPH
hH9SIfbVolg95+8Jn/+9PuTUf/0M/+R4m7EcLwzjHsUx7lEF4x5PKHbx+E8y
IeNgEM78VQlQtCxM6bReRDEsOmnwmAXLnDPsGyyKIdKuhbvvchcSq/lU2z/N
gpcrXMz6VhYBafSdsIlpO/qQdPP2BX02nO60uKtGLwDJPv09K4Ib0YrPO1nO
nmxIrFb2e6RaAMveSWqvratBvlhepIHlRT+wvOh+pPz5gk8keGk2J7hGoQx0
ht44/7YgoZSS2QalOTJ8J27hCtEqAz8HmzpdIgEJ915M6tGhgpt4AllBsQw+
ST8SaD6JR+I3rrn1cvqs4jdKpZl9peBBcKri/jiJtmry8ODC6ZAk0X7Dz7QU
gtnqylnF//UqhGH53nEs3/uHbwzA+MY/GN/ol5KaPy3DgpZFfWfrm0Wgu/q1
8dW8HiQFtqKX0lnwZdfUZZN9haDgdIJgZNSJVI5Szq+XYIOF/wqNim/5cO2P
gerg8VZUs7P6750LbOi+V2bJ058Hl8kl3YzmeiQdtMp/llMfhmcsOBzYkgcH
YiSkg9SqUbxCYMvbDDasX5MS9vhBHvQdKVaXnyz/T85WjOVsh7CcjYW991/A
3vuzsPf+a7H3/unYe39Z7L3/PXHu25ZxI+AoK/tWUhMPpqQ0hRoVIrJWD+y3
SRuFT4PVu3ieDoHZmI2yrigVhWM8wBeMBwCMBxjKkNvotZwAzm9jP3w6PQ5t
rrmjr6/j0devt3LrgNMPBtJ7ZywmQGlcJmmPxBT6f0IWaWo=
"]], {}},
Axes->True,
AxesLabel->{None, None, None},
AxesOrigin->{Automatic, Automatic, Automatic},
BoxRatios->{1, 1, 0.4},
DisplayFunction->Identity,
FaceGrids->None,
FaceGridsStyle->Automatic,
ImageSize->{340.41519793807174`, 245.11491706471534`},
ImageSizeRaw->Automatic,
Method->{"DefaultBoundaryStyle" -> Directive[
GrayLevel[0.3]],
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" ->
"Globe"},
PlotRange->{{0, 1}, {0, 5}, {-0.12512213500697267`, 4.874323172445544}},
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02],
Scaled[0.02]},
Ticks->{Automatic, Automatic, Automatic},
ViewPoint->{1.091467582073603, -2.7851623482327224`, 1.5816349804140093`},
ViewVertical->{-0.17054575643643488`, 0.4351916880345737,
0.8840375216172347}]], "Output",
CellChangeTimes->{
3.861416887696465*^9, {3.861416917953816*^9, 3.861416949296577*^9},
3.8614169842062273`*^9, {3.8614170636837397`*^9, 3.861417082197019*^9}},
CellLabel->"Out[24]=",ExpressionUUID->"e594a1e0-d83a-4c28-a9dd-be4f94a4c402"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861416871649959*^9,
3.861416885032555*^9}},ExpressionUUID->"76afd07f-9f0b-4263-bd89-\
41a7fead6928"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8614008720259123`*^9, 3.861400872540223*^9}, {
3.861401609422661*^9,
3.861401609572174*^9}},ExpressionUUID->"e24fd1c0-2a70-4cd6-8acd-\
384ceb378ef6"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"cv", ":=", "1"}], "\[IndentingNewLine]",
RowBox[{"k", ":=", "0.1"}], "\[IndentingNewLine]",
RowBox[{"\[Theta]", ":=", "0.5"}], "\[IndentingNewLine]",
RowBox[{"d", ":=", "0.9"}], "\[IndentingNewLine]",
RowBox[{"y2", ":=",
RowBox[{"Plot", "[",
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "0", ",", "0.1"}], "}"}]}],
"]"}]}], "\[IndentingNewLine]", "y2"}], "Input",
CellChangeTimes->{{3.861400549601458*^9, 3.861400550174944*^9}, {
3.861400581475932*^9, 3.8614005821097603`*^9}, {3.861400629532473*^9,
3.861400668321875*^9}, {3.86140078729107*^9, 3.86140078888688*^9}, {
3.861400877561783*^9, 3.861400906868182*^9}, {3.8614009466327953`*^9,
3.8614009470045967`*^9}, {3.861401778331698*^9, 3.861401778958543*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"16ae2118-271a-4af0-b508-e160116a17ba"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV0Hk41HkcB3A76NAUMWEm7dJOZSuyLG2RdyNdm0pqqR5FkZF0EFbl6Bx5
dnIk1ExSgxxNs0auXz1kkrbfd1whVJQtVumw2Igc+9s/Ps/7ef33fn/M9h52
28fS0NDYyNz/KeuhQmpizBypOIln/AMaAaxZFQUcDbjesdufy3jQ+Hh+PEcP
YaZNoZWMHTLl5lEcUzwg+vFDjF+9q/IN5ViBbZKu8qqkoRQ3sII4KxGU3Dff
6iEN3svWJ4c4rsgeDeyvr6JRO8mTOsjxhmOXrVifpsH5a+OOC6ojOGE0ojm3
nkaQtfSNdlc4EnMWFVHNNL4N+f1j3eGTYG2LEVi10xgJ2jMhrzyLpxlxA9ad
NBQ/zDCW1pzHTJtdFWU9NDy0GtdwLS9giY5RclMfDel5I0NOWQKC1gUakC80
ht5bsfnlF7FCoEpaO8H08XafHtFzCVMw0u06iSDRujuxrS8F0cU3LF+zCY6k
VQZp916GbLNyYosBAeHKPcOMpEgQfe+/kUegNzBBenlpkNm6FdWbEjxp93JW
rk+Hyi/B79UCgpb8c+I5Jddh+ybMp9qSwMEssfTv4huYL092FNgS7JLM7dla
LcO1j32LBQ4En1X7d62uy4Duh+7+x04EG/rtmp93Z4JdxYp9sZ7Asjc3YtvX
LPjG9lpUuxKIJA2+bqM3kaq3ON/Zg+DqplNu/+rnwMwi7Ora3QTmyq5TPKNc
+A+57WvwJXDq6H3JN8xDTnqwvf0BAq7xSUHjwlvoNhycZhlMIByv6tK2kMOw
O06dE05w9GNifJvzbYgc6xbcjiZg52oKUz0UaGINLY0XEfAMFp1s9vgDqhPH
tg6LCQacAuva7PKR5T1+6kMSwaXGtOiE0nxkXrF4JJQQRPwiW1O8VAmdJHVD
xXWCyqr9egqVEk91Rbtl2QSrjdlfhU4F0LExW8hWEMw7HPR2oKYAbI7u8Fgh
wco05aDA9Q5c1D7c8HsEMuXD2az6OxBHbWmqUxH4EMmqSzsLUduo3al4TOB1
d4P47YtC2BSvjjasI7iruN8yw78I62ceatdqJvCMnbQ8u68It5z5nvVtBMvs
zcu+CS6GX2TIbf4bgpA+9irLsWJ4lS7pH39H0BNV/c4kugTDk2+a7/2HILt/
d3bkeAli1LVlskFmT0ChMP98KaxnmR7wH2P+c7dzXdZUClnLTu8p0VRjLFKL
1zWNQlxpgKiRcYeA/54/g0LJFJNbvYxv0j4XMvUp7J1oHVigpYbNs9dPMmZT
+BJ+7/Rlxi5fOnbKLCic+dEk5Zi2GpF27YHpWygMg5tkP1kN75HRFa+2UlDk
TVd6MHYuN9H9zp2CxVe69ihjnTWeyms7KRhYSabKGaf8+uJzmg+FHbzLESZT
1FCEPIu6GkqhMUxz+xjjxJ+HN7f9RiHjUXAwd6oaIaPGZibHKajP5YptGS8/
u71SGkUh9KeDFQcZ/5nUMlkaQ+HbMy7zXjLO8xhqfR5LgYocXDHCOG62UR5P
TMFRLnQ31FFjW4a7iySBgkNMumgT46XCsDnPL1Jo4ftdC2DMW5TyiZtMIbV1
oEjEeOxT0f0dqRSmSdfVyBh3FDxNuHKFQrmvb2c54/8AmLde0A==
"]]},
Annotation[#, "Charting`Private`Tag$1289#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0.20125000020663267`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 0.1}, {0.20125000020663267`, 0.2112654318996529}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.861400884021166*^9, 3.8614009073990173`*^9},
3.861400953715242*^9, 3.861401779738702*^9, 3.861417905940116*^9},
CellLabel->"Out[6]=",ExpressionUUID->"1cbb1765-aaa4-490f-bf11-ee63019a8837"]
}, Open ]],
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"y1", ",", "y2"}], "]"}]], "Input",
CellChangeTimes->{{3.861400798375617*^9, 3.861400802539956*^9}, {
3.8614009259409857`*^9, 3.8614009698337717`*^9}},
CellLabel->
"In[120]:=",ExpressionUUID->"335f493b-576e-43e7-8ab1-e5fa03353f35"],
Cell[BoxData[""], "Input",
CellChangeTimes->{
3.8614005474980307`*^9},ExpressionUUID->"dcfe7364-1920-474f-b418-\
34e014ac8060"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861399690301133*^9,
3.861399727563951*^9}},ExpressionUUID->"1b67bcc4-adc2-466e-960f-\
834dd249e45c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "+", "\[Theta]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "-", "\[Theta]"}],
")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]]}], "\[Equal]",
"0"}], ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861399427732259*^9, 3.861399444583796*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"ff0d07a0-60a2-4bf9-88df-f46f94f464ca"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"cv", "-", "k", "+", "\[Theta]"}],
RowBox[{"cv", "+", "k"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861399449664218*^9},
CellLabel->"Out[1]=",ExpressionUUID->"8b2b0bd8-0a99-4390-9682-ca01282f5f70"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"\[Alpha]", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"16", "k"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"lVA", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]", "lVA", \
"\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.86139668896729*^9, 3.861396689771758*^9}, {
3.8613968637893248`*^9, 3.861396888909636*^9}, {3.8614173539018803`*^9,
3.861417375441017*^9}, 3.861417507360353*^9},
CellLabel->"In[3]:=",ExpressionUUID->"1fc996b0-9b01-4d7b-b0c2-4826e78cbbfa"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "+",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}]}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{"\[Theta]", "+",
FractionBox[
RowBox[{"k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "2"]}]}],
")"}]}]}]}], ")"}], "/",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "2"]}]], "Output",
CellChangeTimes->{{3.861396876709031*^9, 3.861396889582664*^9}, {
3.8614173642972727`*^9, 3.861417377712644*^9}},
CellLabel->"Out[5]=",ExpressionUUID->"179532c7-bfa3-41d8-8f1e-af95d58f4758"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%5", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[6]:=",ExpressionUUID->"61de81c9-97d0-42a0-8864-90ce1c15a019"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"32", " ",
SuperscriptBox["k", "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
RowBox[{"256", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"32", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "cv"}], "-",
RowBox[{"6", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"16", " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"6", "-",
RowBox[{"32", " ", "k"}], "+",
RowBox[{"16", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"64", " ", "k"}], "+",
RowBox[{"32", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], ")"}],
"/",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861417381504526*^9},
CellLabel->"Out[6]=",ExpressionUUID->"b289a37a-0995-4289-93ab-71f2c683402a"]
}, Open ]],
Cell[BoxData[{
RowBox[{"l", ":=",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
"2"]}]]}], "\[IndentingNewLine]",
RowBox[{"lVA", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]}]}], "Input",
CellChangeTimes->{{3.8614174088192873`*^9, 3.861417410978079*^9}, {
3.8614175340801353`*^9, 3.8614175344130917`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"58f465af-1f7d-48e3-b3c1-16de01a087f5"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"lVA", "-", "l"}], "\[Equal]", "0"}], ",", "cv"}], "]"}]], "Input",\
CellChangeTimes->{{3.861417426110504*^9, 3.861417437637724*^9}, {
3.861418918392651*^9, 3.8614189205683413`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"7f1807ea-4998-4108-a577-ed6a2b753450"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"cv", "\[Rule]",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{{3.86141893574301*^9, 3.861418954128228*^9}},
CellLabel->"Out[3]=",ExpressionUUID->"5de7947e-c1ee-4c76-a5c0-5b3dd97e17c7"]
}, Open ]],
Cell[BoxData[
RowBox[{"cv", ":=",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.8614874230795593`*^9, 3.861487435422769*^9}},
CellLabel->"In[28]:=",ExpressionUUID->"a827c4fc-7eeb-497c-934f-ddf4041fa2f1"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"\[Alpha]", ":=", "0.2"}], "\[IndentingNewLine]", "cv"}], "Input",
CellChangeTimes->{{3.861487443503809*^9, 3.861487481118368*^9}, {
3.861514974546321*^9, 3.861514976266283*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"ac23f933-b1e9-497d-b62d-3c75fb6db2ef"],
Cell[BoxData["0.7578124999999998`"], "Output",
CellChangeTimes->{{3.861487470392701*^9, 3.861487481795195*^9},
3.861514977512382*^9},
CellLabel->"Out[10]=",ExpressionUUID->"ca52a898-c941-4a04-b79a-02fbf59714c3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"k", ":=", "0.1"}], "\[IndentingNewLine]",
RowBox[{"\[Theta]", ":=", "0.3"}], "\[IndentingNewLine]",
RowBox[{"d", ":=", "1"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "0", ",", "0.2"}], "}"}]}], "]"}],
"\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8614189955725527`*^9, 3.861418996018321*^9}, {
3.861487182049677*^9, 3.861487251297333*^9}, {3.861487307011697*^9,
3.861487308053637*^9}, {3.861514797938443*^9, 3.861514799335848*^9}, {
3.86151491054069*^9, 3.861514948848721*^9}, {3.86151498949264*^9,
3.861514989874597*^9}, {3.861517634399661*^9, 3.8615176414507427`*^9}, {
3.8615177050553913`*^9, 3.8615177052285557`*^9}, {3.861517805010333*^9,
3.8615178063036137`*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"c3b4e641-b15a-4941-8520-fad1b4589307"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwd13k4VV0XAHCZyxgyyywKocyyEKJCxiRJKGVMafIVlTcUMuQlSaKkTJnK
UNx7zrmGK4mUFCmiLsJLhVR8e/fXfX7PPcM6a++91t6KfuEuB9nZ2Nj4V7Cx
4d+C8frI5/G65seMLTdt2sSCIPY19CoxYQiwPxpkgDwnGVWRIqYAXLnB+cbI
ZndL1aPFdGB0rkXQAvnDWHPACTEL8GgX+rITuTLpJXuE2C54kzWSfAhZerCv
O0zMF9QmwmuykTu5vetDxY6Cs1eN/zKy2JDDnmTiPDCFr//p28yCCL2cT1yj
CWB4yCX+tj4L1kYmTr4IT4XQCJECXwMWLEYcWC6lMqAjf+KHpiELyjUEJXOe
X4eJNomGL8i7OXtspbRzwcD8U22ZEQtyEiTExRpvw8j9YzHBxiyYn9DhV2kq
AL+5fHtJExSPr4fA2fG7kBLwYaQTOU3vS9rAzD0Q5aujIk1ZcDSXiuCavg+y
jwymRMxY0C5V6n1SogQmdIaD65GFvy23T0uXQXilSY/TFhZ0v99vXWn/ELo+
6jlMIr+puJQkV1sBVFyezEVzlD/FtLrPjytBqqojhQdYsO+G0rhrRxW84ljn
mo78gziyz+ZFNbj1bhcWtGDBjlmD3ndfakBh7XxRMrL29IOzbr8eweF8u/Wc
liyIu/EywOX3Y+jNWXshBPmm4wWX7yJ1IJ/xqLAXWb1y9IK0RD0MPgtg22TF
AquP04Mq4g0QEdLCG48sJXnesmf9E2g2vFj9DjlwqXmUS+sp0GdcrihuZcHx
ybSUAetG2BGpp3sImf8BR2DW7iao9PlXIR+5xvaw//W9TTBkZvsV23ukY3/2
/iYQ742uLUAuk8/0zAlsggbO+J13kR0z1bfnnWqCnUMzR4uQU2MdtIqymmAd
l9qdMmRRn6xvj980AUOqpLQeWVp0w/ne3TTIfGnm3IU82lbIr+1Ng9wBQYFu
5IpohexLvjRYG+fUhr1tfE3V5iM0CD0mu6UHOZJgG0mPosGbZ8PyvcjPw3u3
OeXS4NpukfZ+5PMdF4TahmnAJx5b8Rl5x8XfOfJfaOAfzOP1BVnc6JT6qQka
bN60wM7C33MnxFLtOw0EXq11HUMObSwxJtnpwBEe/XUC+UZGZrCCGB1K7p3i
mEH+ZhXyYsCADq0ZvcQissFKrVufjOgwnU04/kI+/WIyZNyEDgPy6/uxl/aG
r1owp4NM5PHZ38i8J47ZiG6jw6H7o9LLyLJFp5/Y76aDTbKpK4c1C6z5LhU9
PkVH9207wIcc121zsvEMHTIcW95jM7O4bRj/o0PmNH0PP7KjSsJwdwwdjNk1
dgkge25JlJuMp0NiJ2kghBwSnnZN+TodEpSFJ0SQM3pyY1Lr6PAmqHhaCvno
aL14cgMdUnQD9kgj75h/XXb5KR0aV+aS2OwyggMX6XTwf5x4TQY5wi/a6EQb
HVaf3rtRDr9/xmdmTx8ddJ3rHBWQeYUU/JUX6HCpjFNTDXlEwWxRfpEOtvsu
XcKm6Xmmyf6mw4q9sYPYJz1SaWvYCMjhmb+6Dnk0l02Wl5cA+awnY+rIpObQ
q68SBGhIlcVtQD67vcD2sSEBtwuf79NBPnKYqTpoTIDUrEAZtkfcf5zcZgQE
Q9UvbB3SnHK3IOB7ulqWLn6+cT/8sCNgSeppix6OX0PMeLMXAbaxV3j1kU23
mUp6e6N4jNgdsdUP+s3H+hDg1zqQjs2eX/Gox48A5XUN0gbItZIOeseDCVjB
ElU2RFbgjdtQdZYADs1N4sbIAmplq95FE1BNvXDGXtz6amzFBfQ+vs4k7Fcx
SvedLxEQuH+azQT58nyTykwyASbC1BD27Od5OZ08AtWxW5fMkD9wyv/ZnU+A
KYdDLXaHku1AzB0CuD29Wdj3fDJuvCgioNXqpt0WZK9eHYnwCgJaBPJWmCNT
zUeEywkC7H/muQOyoJPYQgVFgHh7cRS2Z1/Th+pmAupoGnnYX8dFH9YzCfjR
H/sZW0y4yaG5mwBOjaIwC2Sf7MP6bT0EuEY4p2DfVxKVe/aaAE3/8IfYZvqH
v3a9RfFwcU9hB3iJJA4MEdD1780AS+TyT0+PffhEwLszw+exF0ICvYZHCWhM
zLmJnRTzVIM1RsDqX4deYtfcPdT2bYaAevcDhlbIS1qrK+a+EbBnztwJ2672
SdbPHwSU26Ucwh5gCgcu/yRgJyP+GjbndAMXHzsJ1/17P2M7nj44KcBJgvng
tkXs6yuEXwtzk7Dq6gaBrciaYgfviq8iocbRXhf7ZK5QkhQ/Ce4WsVbYdLWG
47KCJDxU3+iK7WYstFVJhAS2vIFj2LfI+vWqYiRUCwxewGbtCBBRFychdbNz
KvZZn/ohLWkSNEKSSrBbvvgzdWRJuLbPrQ5bOEKwctNaEqLbkhnYd2P9zxsr
kaDU4daPPcUveNhMhYQom+FRbKPMOidQIyHl58dp7Ivy/oZW6iSU9+36id1x
X0DeZj26v0eX3RpZXK+O206TBL23sauwfZ/4TW3XJkG+31YE+/vz2sZdeiSU
XJNXwDbf7VfoupmEZ+v11bATPvInexiQ8DL6yQbsl0dqI/cYkbAYU6WDLfvt
gLe3CQkX10rrYx86y2+934yEgu2zRtgVXLUb/MxRvN9NzLAXrx4QPWhBwj/8
382xbST5fwVaofxflLPE/m11yothS4L/yIet2NWhw/UKO0gw0V76a0GO62OO
DiR0Zwn9ddB1B6lzTiRMN536e3+LFod9iTMJR1IMAFuRqjv91pUE3h87/r7/
rGfYfR4PEnL6a//G1zep3KfvScJn7ajN2Jtj3/IEeJHw+F36RuwUyRTDdG+U
j/YV67HHy6wD6T7o+vEWZWzbrYuZU77of7VhWeyCvoctsv4kaAe5rsH+E3pw
bvtBlL/b0gLYnhwyamcCUXyPDTmxa653uRcdIaE4s3gRj18wZfqII4yEhYNp
f8e7xXNmRPcoyocm1ztspal7Yr7HSNgU0vkc+62kSOTTk2j+cR+oxt5c3npn
/DQJpUbrC7FTt57rkfwfCXfT7TKxt4Wx9E7EkMAX+s9J7EdU04xWAlov5+e0
/87HPZGK3ldIOFF7SAY7ZErD+UoSWi/HN/BgK0v9W/E5lYRLalUDeD2lhQWH
52WTkGhZFYP9lUMx73kOCZO+jL/r0y67t/NXLgnKB9Y7YC9TltqeBSRMVM5I
YIdKSU4Kl5Bwzj24EK//tvLnslBGgqqZdDy2inXsztCHJCjslz2M3R82VcKs
JuEWj7Q6tj2DEXTxKQkG+Qt5uP6ohkewvj0nQWpYJxzXs8HwYoU/L0jo+dZm
h5159JMn90s036yYitjcx9yZkr0k2Luxv8T1kxVpXLxlkIQ1oW4bsEujVoTE
T5Ggk3+EwPU34H8md1P/I2Em41wattzZ4wPZsyTEPV7wxb56bnRn6RwJoqCy
ZIocfp6p1b2E5lOCoy62XlzatLQQBeeFhqJwfxiPa1+nspqC/qH9lth34jl8
tUQp6Omy5sEWu3yiCyQo+EOzSDNCnkvcUxkgT8EX9uVc3I/q0xSPl2+kIH11
3A3cvyxyK+csd1GwP99GHvfD9DGbeQsXCiymx3pwv/yk/24e3CgosViIx47r
ZP+5xZOCa6UuUxtx/Vh2/WXsS8HN97+rtfF89Ztb1j1Kgb6tpLImcsQ605VK
qRT4fJhPwf2dPP5ipWI6BUa0p7rYYnT/VQoZFMynj71URa7zTOJbe52Cmp4o
Ueyly+8FpG9TwGSdSVZGvvI1RkSkggLerv4AvL8oqGTIsHdR8Lmo/jbev3Ct
CgjQfEkBce2JKvZhP44yj1cUxCnzFksia4tamZf0UdDVd75CArkhkubrNkSB
nMVUzRpcrwwbCu/NUjCmdi9nNe7vTQ837ljDgKvzsx94kQ+KO50+IcGA+CR5
R+y2sCl6nhQDWoUznvDg8ZTXcvkux4CpFLcMbmTpC8WRuWoM2Melu4UTj6d1
Yf20IQNcH1iH4P2ef/uNrRleDMjduAV+ICtdbczI9maASVhC/nfkYeePo7d8
GPDguw4Htt9b1YQHfgyYT81mzGKzKjqaghjQI9gK/2Fzt7qPRTHA2j1WAu9X
D1h9CzTPYcAfJ/adH5H3N+xIYvUzIDJArrkNWefKGVWpQfS8iejJVmR2r6Im
+48M+LEsswb77k/2meIRBuiE8/o1I48bNbiHTjLAqrdolkA+WasuP7vEgFHp
r1MNyEk1XFW/FJthY/yISylyQzntjeDhZmgu20slIau02xnrBzWDQEBjUyJy
ymj3jb0hzRD3e2/9FeQA2ZF99482g/hpp9IEZMErvCOWZ5ohcY3A5X/w9x10
/i/ySjNsonXKnUXmk/3E21/aDIVfmNVB+HxymdukaKYZxgzik2yQjU3VG1cc
a4HO+Ked8+j8EznDv1X7TwuUXN3blYk8Ht0xJhvTCvnvVyxtRC6a9Sk6t9QK
GT5B3jR0vqKCagIrEtog+FJmgiGydMOIXeFKJvh4mOeXoPPan3Oc0qN8TJhx
VRB9gPzRUmVCRZAJVbf+xN5Dvsf0T74rwoSoGw/88pE3vR3uviPDhMR8SjQL
eefCR68CLSasvvbJ+iLyOYP3IXnOTNB2nR7ajey7+HvLB1cmmAr81nNHtm6S
FZL3YMJldrZYF+RVtt6Vt7yYkCwzKe+AnOne/yPXnwmLYZ4OVsjlkW+jb55g
wmy7x0lN5DSjn04Dp5gg1NH6WAM58rekomwUE1R/as2pIZv840nlRDPhtcvb
CEXk1mtveHLimRATcN9bHLl493zfu8tMaFSlZYgiX5WRKJZOYkLDyvZnwshu
dzx23khlwnTNEwM+ZMPAk3Lv0plQZFwQxIssvSFzSupfJoh5n83lwvmbekTb
k8WEyUX7F+w4f1WvU7OzmTD8fRUbG/L/Afbm/sQ=
"]]},
Annotation[#, "Charting`Private`Tag$4665#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0.7562500001020409},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 0.2}, {0.7562500001020409, 0.7583333328233899}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.861487221714999*^9, 3.861487252238912*^9},
3.861487309223229*^9, 3.8615148975570507`*^9, 3.861514949885268*^9,
3.861514995506112*^9, 3.861517645110321*^9, 3.8615177073890953`*^9,
3.861517808838882*^9},
CellLabel->"Out[26]=",ExpressionUUID->"1fd60b7f-35dd-4499-8c25-b523f89d1978"]
}, Open ]],
Cell[BoxData[{
RowBox[{"cv", ":=",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{"\[Alpha]", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"16", "k"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.861521295437593*^9, 3.861521314259212*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"577a5129-b80e-4d63-bc21-e66d53fe5569"],
Cell[CellGroupData[{
Cell[BoxData["cv"], "Input",
CellChangeTimes->{{3.861521316802693*^9, 3.861521317059231*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"fa92f3b6-c22d-4044-a2a1-dd9811c086d1"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ", "d", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"64", " ", "k", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"320", " ", "k", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Theta]", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "2"]}],
")"}]}]], "Output",
CellChangeTimes->{3.8615213258170757`*^9},
CellLabel->"Out[4]=",ExpressionUUID->"81c4832c-272a-4e05-8884-94571727aad2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%4", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[5]:=",ExpressionUUID->"0b04f4bc-eda7-4097-bddf-ecccaf062ae3"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ", "k"}], "-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]], "+",
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861521328882679*^9},
CellLabel->"Out[5]=",ExpressionUUID->"8f7a812a-37da-43dd-bbfd-e69cbc0c66aa"]
}, Open ]],
Cell[BoxData[{
RowBox[{"cv", ":=",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{"\[Alpha]", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.861521295437593*^9, 3.861521314259212*^9}, {
3.861521409776247*^9, 3.86152141302846*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"cb62ea5c-30bf-4b2c-8b5f-81803a8a11c9"],
Cell[CellGroupData[{
Cell[BoxData["cv"], "Input",
CellChangeTimes->{{3.861521417052134*^9, 3.86152141729725*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"60e26d6a-d018-414e-9788-3015dd6e84ca"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ", "d", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"64", " ", "k", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"320", " ", "k", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Theta]", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "2"]}],
")"}]}]], "Output",
CellChangeTimes->{3.861521418750589*^9},
CellLabel->"Out[3]=",ExpressionUUID->"97f6b281-019b-426e-b030-007f384a05d9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%3", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[4]:=",ExpressionUUID->"01ed183d-bf35-43f4-8ede-4e8812b84e5f"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.861521421542676*^9},
CellLabel->"Out[4]=",ExpressionUUID->"c624610d-5b33-425d-8ef8-77e2d0a80045"]
}, Open ]],
Cell[BoxData[
RowBox[{"cv", ":=",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}]], "Input",
CellLabel->"In[1]:=",ExpressionUUID->"33dc3bf5-26f4-4bf0-9ccc-e9be9844afa4"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"cv", ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861530395257043*^9, 3.8615303993814774`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"9bdf7fff-2758-4f9f-b99a-f5122ee9c7c3"],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "-",
RowBox[{"8", " ", "d"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"]}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"]}], "+",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"32", " ", "d", " ", "k"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "+",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "-",
RowBox[{"32", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"64", " ", "d", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"32", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"384", " ",
SuperscriptBox["k", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"128", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"32", " ", "d", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861530400566358*^9},
CellLabel->"Out[2]=",ExpressionUUID->"7045e9cb-113f-4d5c-bcbc-22d820310041"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%2", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[3]:=",ExpressionUUID->"39a375dd-654a-4efc-a7a5-4c1e5135ac49"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"24", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"12", " ", "\[Theta]"}], "-",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]]], "Output",
CellChangeTimes->{3.861530404216773*^9},
CellLabel->"Out[3]=",ExpressionUUID->"959ae577-9e9f-469c-9f5a-58aedd536471"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.8615304098461533`*^9, 3.861530411497663*^9}, {
3.861530458820723*^9, 3.861530465661858*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"0e7d1d7b-8d9c-4c6c-aa7d-f8f5b6031947"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.861530470773432*^9},
CellLabel->"Out[4]=",ExpressionUUID->"3680c070-3cc4-4789-8d46-ba01297c1868"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[Alpha]3", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}]], "Input",
CellChangeTimes->{{3.8615305416760063`*^9, 3.861530555460079*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"d0fb5407-31b1-4a55-9df3-886ab2aecc99"],
Cell[BoxData[
RowBox[{"\[Alpha]1", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Input",
CellChangeTimes->{{3.861530557765175*^9, 3.86153057869878*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"8eeb6dd0-d272-4dfc-8445-98b95ce575c4"],
Cell[BoxData[
RowBox[{"\[Alpha]2", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"16", "k"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Input",
CellChangeTimes->{{3.861530583270834*^9, 3.861530598811123*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"bcaa07d5-428c-406e-a5ec-2ffecc8245da"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"\[CapitalDelta]\[Alpha]1", ":=",
RowBox[{
"\[Alpha]1", "-",
"\[Alpha]3"}]}], "\[IndentingNewLine]", "\[CapitalDelta]\[Alpha]1"}], \
"Input",
CellChangeTimes->{{3.861530604596233*^9, 3.8615306411968307`*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"648dd0a2-d2fb-4d7b-b6b8-d0e3683ed267"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Output",
CellChangeTimes->{3.861530641678986*^9},
CellLabel->"Out[10]=",ExpressionUUID->"cc00311e-1099-4d37-8259-93f15c33c6c6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[11]:=",ExpressionUUID->"7d823d26-b684-4204-94a3-af4d94d38247"],
Cell[BoxData[
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]]], "Output",
CellChangeTimes->{3.861530643649867*^9},
CellLabel->"Out[11]=",ExpressionUUID->"f03e7b81-5dc1-48b6-a2e2-25aa606d3d29"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[CapitalDelta]\[Alpha]2", ":=",
RowBox[{"\[Alpha]3", "-", "\[Alpha]2"}]}]], "Input",
CellChangeTimes->{{3.86153065056989*^9, 3.861530662127572*^9}, {
3.861530782149753*^9, 3.861530785744176*^9}, {3.861530891995854*^9,
3.8615308967084417`*^9}},ExpressionUUID->"c859cba9-e08a-4fbe-b3cb-\
de11dd6982fc"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]\[Alpha]2"], "Input",
CellChangeTimes->{{3.86153066544969*^9, 3.861530665706986*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"7e29359d-6a42-4428-a7c2-5ee306af14b5"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Output",
CellChangeTimes->{3.861530666130233*^9, 3.86153078908683*^9},
CellLabel->"Out[16]=",ExpressionUUID->"f082410c-0f31-4650-b6ab-db51b40e8b44"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[17]:=",ExpressionUUID->"8e9daf56-1f8e-4dbe-b11d-ae9598391c66"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"24", " ", "k"}], "+",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8615307906550617`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"a12b9d7c-caff-4ca4-b979-4c7c8315f428"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"24", " ", "k"}], "+",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]]}], "]"}]], "Input",
CellChangeTimes->{{3.861558566067367*^9, 3.8615585668519993`*^9}},
NumberMarks->False,
CellLabel->"In[9]:=",ExpressionUUID->"7341dd07-0f7f-4355-bcc0-fb2f9a2acf5b"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"24", " ", "k"}], "+",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861530668214924*^9, 3.861558568121323*^9},
CellLabel->"Out[9]=",ExpressionUUID->"f4a38f79-2f7a-4930-b554-19ff1f5b7c8d"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[CapitalDelta]\[Alpha]3", ":=",
RowBox[{"\[Alpha]2", "-", "\[Alpha]3"}]}]], "Input",
CellChangeTimes->{{3.8615581573021193`*^9, 3.861558166121229*^9}, {
3.8615582256451893`*^9, 3.86155823226621*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"355f4013-4679-492e-a2ee-dc65975a9a52"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]\[Alpha]3"], "Input",
CellChangeTimes->{{3.861558259260542*^9, 3.861558262204969*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"f8d8f4f9-9820-4290-b7d3-24800ecde33e"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Output",
CellChangeTimes->{3.8615582628168993`*^9},
CellLabel->"Out[6]=",ExpressionUUID->"ff57d17f-24f5-4d44-b944-cf81e8da6649"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[7]:=",ExpressionUUID->"517531a3-eb35-4dcf-a78a-3ecaebc908a6"],
Cell[BoxData[
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"24", " ", "k"}], "+",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]]], "Output",
CellChangeTimes->{3.861558265328322*^9},
CellLabel->"Out[7]=",ExpressionUUID->"148e954f-9a54-4fa7-8acb-a5ba7bb73d0c"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[Alpha]", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}]], "Input",
CellChangeTimes->{{3.861530992450626*^9, 3.861531003376402*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"7023d85a-233f-4f31-9204-192676ddf108"],
Cell[CellGroupData[{
Cell[BoxData["cv"], "Input",
CellChangeTimes->{{3.861531025128315*^9, 3.861531025543375*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"e355e724-5708-4e0a-8b3a-2f6479aea01d"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"], " ", "\[Theta]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"], " ", "\[Theta]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"], " ", "\[Theta]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"64", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"], " ", "\[Theta]"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ", "\[Theta]"}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ", "\[Theta]"}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ", "\[Theta]"}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"320", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ", "\[Theta]"}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"], " ",
SuperscriptBox["\[Theta]", "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"32", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], " ",
SuperscriptBox["\[Theta]", "2"]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"12", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"24", " ", "k"}], "-",
RowBox[{"12", " ", "\[Theta]"}]}]]}], ")"}], "2"]}],
")"}]}]], "Output",
CellChangeTimes->{3.861531026446148*^9, 3.861531303746393*^9},
CellLabel->"Out[11]=",ExpressionUUID->"dc8bcb47-d2c7-4abd-baf3-98bfc77314d1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%11", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[12]:=",ExpressionUUID->"6fee4629-9bf2-408d-9958-bdce3c34d490"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"192", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}]}],
RowBox[{"192", " ", "k"}]]], "Output",
CellChangeTimes->{3.861531307904427*^9},
CellLabel->"Out[12]=",ExpressionUUID->"f27a040c-29b5-4994-9b67-bd5de6b63f89"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[Alpha]", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Input",
CellChangeTimes->{{3.861531167408614*^9, 3.861531185180051*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"face1d5d-e46b-415f-bdf4-5b6e369bc655"],
Cell[CellGroupData[{
Cell[BoxData["cv"], "Input",
CellChangeTimes->{{3.861531209422228*^9, 3.861531209679214*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"423dd578-cbad-4cc0-a57c-b45ea56b6b8b"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ", "d", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"64", " ", "k", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"320", " ", "k", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Theta]", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "2"]}],
")"}]}]], "Output",
CellChangeTimes->{3.8615312101408587`*^9},
CellLabel->"Out[3]=",ExpressionUUID->"e28c1298-68f0-4fa8-ac15-d06445b1297c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%3", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[4]:=",ExpressionUUID->"7b5272df-dabb-4bba-8912-60f8d1d7a472"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.861531212954945*^9},
CellLabel->"Out[4]=",ExpressionUUID->"9a3b4af7-9b45-4f90-ac58-cba61ae710f4"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[Alpha]", ":=",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}], "-",
RowBox[{"16", "k"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}]], "Input",
CellChangeTimes->{{3.8615312464438753`*^9, 3.861531258836277*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"95b9c451-956a-46c3-a812-21f5afc16069"],
Cell[CellGroupData[{
Cell[BoxData["cv"], "Input",
CellChangeTimes->{{3.861531260573277*^9, 3.861531260825624*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"1331e5f9-8869-4801-a208-7dd3e9d0f0d4"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ", "d", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"64", " ", "k", " ", "\[Theta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ", "d", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"8", " ",
SuperscriptBox["d", "3"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["d", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"32", " ", "d", " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ", "d", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "+",
FractionBox[
RowBox[{"320", " ", "k", " ", "\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]], "-",
FractionBox[
RowBox[{"32", " ",
SuperscriptBox["\[Theta]", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "/",
RowBox[{"(",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"16", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}]]}], ")"}], "2"]}],
")"}]}]], "Output",
CellChangeTimes->{3.861531261229085*^9},
CellLabel->"Out[6]=",ExpressionUUID->"2473448e-573d-4196-8f0a-504be23ae8c5"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%6", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[7]:=",ExpressionUUID->"8ace79a0-47eb-4f68-8d2f-2288e7dfe1e3"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ", "k"}], "-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]], "+",
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861531264811578*^9},
CellLabel->"Out[7]=",ExpressionUUID->"875632e0-ed4c-4bf3-8e26-aaa4c192aaea"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Factor", "[",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ", "k"}], "-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]], "+",
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[8]:=",ExpressionUUID->"fe79fe2b-4194-4356-8e53-970735bbed1a"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k"}], "-",
RowBox[{"4", " ", "d", " ", "k"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"24", " ",
SuperscriptBox["k", "2"]}], "+", "\[Theta]", "+",
RowBox[{"2", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Theta]", "2"]}]}],
RowBox[{"8", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.8615312686702127`*^9},
CellLabel->"Out[8]=",ExpressionUUID->"ea390b66-c0a9-4249-9c1c-af23d4510221"]
}, Open ]],
Cell[BoxData[
RowBox[{"y", ":=",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "^", "4"}]}]], "Input",
CellChangeTimes->{{3.8615314608574953`*^9, 3.861531469338395*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"3f13236d-6366-402e-8019-6d38a279dbaa"],
Cell[CellGroupData[{
Cell[BoxData["y"], "Input",
CellChangeTimes->{3.861531471547741*^9},
CellLabel->"In[14]:=",ExpressionUUID->"e1075a4b-ef2c-448c-9fbe-bf4c7d3064d4"],
Cell[BoxData[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "4"]], "Output",
CellChangeTimes->{3.861531472231223*^9},
CellLabel->"Out[14]=",ExpressionUUID->"82ad9472-11b9-47d3-a9f4-b4e9fe8bb3be"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Expand", "[",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "4"], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[15]:=",ExpressionUUID->"7f578bd3-d4ca-4367-85b7-cb0db5690e55"],
Cell[BoxData[
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"]}]], "Output",
CellChangeTimes->{3.8615314742329206`*^9},
CellLabel->"Out[15]=",ExpressionUUID->"9f0e7346-4146-403a-b6fa-be780ebbac16"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[CapitalDelta]y", ":=",
RowBox[{
FractionBox[
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"192", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}]}],
RowBox[{"192", " ", "k"}]], "-",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ", "k"}], "-",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]], "+",
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.861558965154812*^9, 3.861559005928815*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"b00a9c4b-9e68-4c9c-83cf-ad24c2458eec"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]y"], "Input",
CellChangeTimes->{{3.861559007911137*^9, 3.861559009732246*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"aca679cc-6619-47c3-80a5-1e316baa492a"],
Cell[BoxData[
RowBox[{
RowBox[{"3", " ", "k"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"2", " ", "d"}], "-",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}], "+",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"192", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}]}],
RowBox[{"192", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.86155901032478*^9},
CellLabel->"Out[12]=",ExpressionUUID->"86412744-7390-4ce5-9169-9fc6fcb0619f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"3", " ", "k"}], "+",
RowBox[{
FractionBox["1", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"2", " ", "d"}], "-",
SuperscriptBox["d", "2"], "-",
RowBox[{"8", " ", "\[Theta]"}]}], ")"}]}], "+",
FractionBox[
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"8", " ", "k"}]], "+",
FractionBox[
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"192", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["\[Theta]", "2"]}]}],
RowBox[{"192", " ", "k"}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[13]:=",ExpressionUUID->"56d67d9b-37a3-4770-b999-7199713b08e5"],
Cell[BoxData[
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "-",
RowBox[{"24", " ", "k"}], "+",
RowBox[{"12", " ", "\[Theta]"}]}], ")"}], "2"],
RowBox[{"192", " ", "k"}]]], "Output",
CellChangeTimes->{3.861559013271296*^9},
CellLabel->"Out[13]=",ExpressionUUID->"e6a8dc58-a69a-4051-8d0a-4670e54703c4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"cv", "\[Equal]", "0"}], ",", "\[Alpha]"}], "]"}]], "Input",
CellChangeTimes->{{3.861563369333746*^9, 3.8615633754497128`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"d52abdd9-2272-43ce-a8cc-e63dab3d5bbf"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"16", " ", "d", " ", "k"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"16", " ", "k"}], "-",
RowBox[{"32", " ", "d", " ", "k"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"16", " ", "d", " ", "k"}], "-",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "k"}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"160", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SqrtBox[
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox["k", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "3"], " ", "\[Theta]"}], "+",
RowBox[{"48", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}]}]]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "d"}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"]}], "+",
SuperscriptBox["d", "4"], "-",
RowBox[{"16", " ", "k"}], "-",
RowBox[{"32", " ", "d", " ", "k"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ", "k"}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"16", " ", "d", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["d", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.861563377239328*^9},
CellLabel->"Out[2]=",ExpressionUUID->"967d5eea-e1c1-4a0e-853d-e4174c406fa1"]
}, Open ]],
Cell[CellGroupData[{
Cell["1. The optimal launch price is the l*", "Subtitle",
CellChangeTimes->{{3.8610589165333443`*^9, 3.861058933840816*^9}, {
3.861070562370598*^9, 3.861070563386878*^9}, {3.861070639456759*^9,
3.861070648326538*^9}},ExpressionUUID->"b8b56881-106e-4c0e-85ac-\
d48d353f5905"],
Cell[BoxData[{
RowBox[{"e", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]",
StyleBox[
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
StyleBox[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
StyleBox[
RowBox[{"l", ":=",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
FontColor->RGBColor[1, 0, 0]]}], "Input",
CellChangeTimes->{{3.861070593268805*^9, 3.8610705964404907`*^9}, {
3.861076706214625*^9, 3.861076743211787*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"c5ecdf58-761b-499f-8129-bea055e10c33"],
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"CS", ":=",
RowBox[{
FractionBox["1", "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}],
"2"]}]}], "\[IndentingNewLine]",
RowBox[{"SW", ":=",
RowBox[{"Profits", "+", "Profitv", "+", "CS"}]}]}], "Input",
CellChangeTimes->{{3.860990220515719*^9, 3.86099032058632*^9}, {
3.861005206587309*^9, 3.861005231508071*^9}, {3.861005664789424*^9,
3.8610056974644327`*^9}, {3.861005732620328*^9, 3.861005738512261*^9}, {
3.8610522215142393`*^9, 3.861052221576477*^9}, {3.861224046012218*^9,
3.861224075669673*^9}, {3.8612241459395514`*^9, 3.8612241665868597`*^9}, {
3.861656278564436*^9, 3.8616562791233683`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"4a7748bd-485d-4b23-b1b0-e56968b92755"],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.8610767705187473`*^9, 3.861076774327302*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"37c7be6f-095a-45bd-8e2c-ad231b9858e6"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
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]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861076802691935*^9, 3.8612241096797743`*^9},
CellLabel->"Out[21]=",ExpressionUUID->"e1a12acc-1f14-4879-8710-ad01c235211e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%21", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[22]:=",ExpressionUUID->"6d377311-bced-423a-97e3-6c0074dffe2d"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.8612241138681297`*^9},
CellLabel->"Out[22]=",ExpressionUUID->"eb205508-0f31-44a2-bc58-efa0da607b44"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.861076810195798*^9, 3.86107681614697*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"c4cae4f8-0031-4c3e-a8cd-fca6b7cfbe3d"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}]}],
"+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861076816760024*^9},
CellLabel->"Out[10]=",ExpressionUUID->"db72edac-e3ad-41e2-b79b-977612ff22aa"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%10", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[11]:=",ExpressionUUID->"8ab5e88b-bd09-4a23-8728-6061085d9b42"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.8610768198672123`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"27e44f8d-c4c0-4a92-b18d-d3de8478962a"]
}, Open ]],
Cell[BoxData[
RowBox[{"\[CapitalDelta]", ":=",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}]], "Input",
CellChangeTimes->{{3.861219813004006*^9, 3.861219917010412*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"866f1cd1-dbeb-4421-8a25-20f28f1deb1e"],
Cell[CellGroupData[{
Cell[BoxData["\[CapitalDelta]"], "Input",
CellChangeTimes->{{3.861219924233046*^9, 3.8612199306259537`*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"d358fbf4-aba0-4bb0-b389-fefe29c59d8d"],
Cell[BoxData[
RowBox[{
RowBox[{"128", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"32", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"32", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"256", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861219932081254*^9},
CellLabel->"Out[8]=",ExpressionUUID->"0745acc3-3490-45cb-a7b7-384cd1d653a4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"128", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"32", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"32", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "+",
RowBox[{"256", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
"]"}]], "Input",
CellChangeTimes->{{3.861225776862068*^9, 3.861225791098472*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"6830a5ed-7dbd-4670-90c4-f6d2e161f333"],
Cell[BoxData[
RowBox[{"32", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"8", " ", "cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", "\[Alpha]",
"+",
RowBox[{"2", " ", "d", " ", "\[Alpha]"}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"2", " ", "d", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"8", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"8", " ", "\[Theta]"}], "+",
RowBox[{"8", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.8612257924113197`*^9},
CellLabel->"Out[32]=",ExpressionUUID->"ea4b1f9b-6766-4e98-bb26-99a1abab8f02"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["CS"], "Input",
CellChangeTimes->{{3.861224131647581*^9, 3.861224132719386*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"141a7eb7-9867-4c7a-ae04-dd974e22f5ce"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}],
"2"]}]], "Output",
CellChangeTimes->{3.861224133100835*^9},
CellLabel->"Out[23]=",ExpressionUUID->"46959103-25a9-4320-b9dd-7a242737d7ca"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}], "2"]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[24]:=",ExpressionUUID->"a9105223-ffe4-48df-849a-10738483c4a1"],
Cell[BoxData[
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}]], "Output",
CellChangeTimes->{3.861224136794606*^9},
CellLabel->"Out[24]=",ExpressionUUID->"d77f119a-5cb6-4e8f-a954-069e0d441aa3"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["SW"], "Input",
CellChangeTimes->{{3.861224187646796*^9, 3.8612241886226387`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"69cbe0ac-0d0d-406c-adec-564a49d27427"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-", "cv", "+",
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}], "2"]}],
"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861224188968668*^9, 3.861656021782848*^9,
3.861656297206756*^9},
CellLabel->"Out[10]=",ExpressionUUID->"8647430a-5883-4433-8ebd-d676dfeb7d77"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[", "%10", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[11]:=",ExpressionUUID->"fd935801-2834-4540-977e-e4a0d557f4e6"],
Cell[BoxData[
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"64", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"16", " ", "cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"16", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"3", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "\[Theta]"}], "+",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8616563110261908`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"0d0423a0-7cf2-4dc7-b11e-2e4451622961"],
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->"a6b42914-d553-4756-a327-\
ef7982bad193"],
Cell[BoxData[{
RowBox[{"e", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]",
StyleBox[
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
StyleBox[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
StyleBox[
RowBox[{"l", ":=",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]",
RowBox[{
StyleBox["Profitv",
FontColor->RGBColor[1, 0, 0]],
StyleBox[":=",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}], "\[IndentingNewLine]",
RowBox[{"CS", ":=",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}]}], "\[IndentingNewLine]",
RowBox[{"SW", ":=",
StyleBox[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"64", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"16", " ", "cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"16", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"3", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "\[Theta]"}], "+",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.861070593268805*^9, 3.8610705964404907`*^9}, {
3.861076706214625*^9, 3.861076743211787*^9}, {3.861248360981872*^9,
3.8612484256681137`*^9},
3.861656333297286*^9},ExpressionUUID->"f9f0cff8-bc78-401e-87d4-\
3c797dfe3eb9"],
Cell[TextData[StyleBox["d", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9},ExpressionUUID->"ee952a53-50ce-42ed-a4e7-\
ca7e220a6539"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612484996040707`*^9, 3.861248503353421*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"69a65153-c9e2-4cfd-b354-28bed5654457"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861248504828435*^9},
CellLabel->"Out[13]=",ExpressionUUID->"26894b98-126c-4973-b370-94f0c04bdaf6"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[24]:=",ExpressionUUID->"023c70d7-64d8-4784-8253-840d87e35992"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{"1", "+", "d"}],
RowBox[{"8", " ", "k"}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861313851171811*^9},
CellLabel->"Out[24]=",ExpressionUUID->"8217a8ed-4f36-4837-9c9a-c79196a5dd4b"],
Cell["", "Text",ExpressionUUID->"0788eebd-cee6-4d5b-87c5-72a176f1aaa3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612485121834106`*^9, 3.861248535667307*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"96b1bf9d-23f3-4de7-a81d-2907acd63259"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Beta]"}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.86124853641638*^9},
CellLabel->"Out[14]=",ExpressionUUID->"a58c3144-e05d-4db3-838d-e732bbd51101"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Beta]"}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[25]:=",ExpressionUUID->"ac06a368-b8e4-436c-975a-7e776aef2b79"],
Cell[BoxData[
StyleBox[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Beta]"}],
RowBox[{"8", " ", "k"}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861313860723648*^9},
CellLabel->"Out[25]=",ExpressionUUID->"ec4069c4-3680-4aa4-819c-86367990de8f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248538260623*^9, 3.86124854625562*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"cf0a8f5c-a860-4217-baa7-fdd12ea7d8f0"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
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.861248547344269*^9},
CellLabel->"Out[15]=",ExpressionUUID->"60c04f1f-8c82-4a3e-9b47-b4a2ec031500"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
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[26]:=",ExpressionUUID->"2415ce9b-8dd2-4826-a4ac-46ff5d320e77"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "+", "d"}],
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}]]], "Output",
CellChangeTimes->{3.8612487531839437`*^9},
CellLabel->"Out[26]=",ExpressionUUID->"b3da5b01-aa6b-4a4f-a54a-786677763113"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248565914627*^9, 3.86124856972899*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"fff6de1b-a044-4acf-a797-cd75be6930a1"],
Cell[BoxData[
FractionBox["1", "2"]], "Output",
CellChangeTimes->{3.861248570453371*^9},
CellLabel->"Out[16]=",ExpressionUUID->"3ddba1ef-8548-4829-8a04-508bf81a9069"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248582790799*^9, 3.861248589982791*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"18d91f82-d7d4-43d6-843c-6dffd47b894b"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.861248591498719*^9},
CellLabel->"Out[17]=",ExpressionUUID->"7d16c553-f218-45d1-b7fd-22bf98a9a567"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[18]:=",ExpressionUUID->"b4a598f5-24a4-4461-8176-7a1520b8b36f"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"32", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861248595207423*^9},
CellLabel->"Out[18]=",ExpressionUUID->"e9b768c9-451d-49cc-8ca4-6c44623bdc74"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861248611066916*^9,
3.8612486274681664`*^9}},ExpressionUUID->"c7ed4019-1053-45bb-bfbd-\
9715ce6cf684"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612485977999077`*^9, 3.86124862532718*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"3cbd4576-01f7-42af-ba56-f7690c7eef92"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.8612486315611153`*^9},
CellLabel->"Out[19]=",ExpressionUUID->"4391225d-06a4-4bbc-b701-de4306c73122"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[29]:=",ExpressionUUID->"eba819fb-cb62-4218-a424-becf55bffd78"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"64", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8612489084274597`*^9},
CellLabel->"Out[29]=",ExpressionUUID->"8102b6bd-db7d-4fad-8fae-112efcb78d4e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.8612486502431192`*^9, 3.861248653478381*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"8aa961c8-0989-4cb3-9763-022a2146fe23"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "+", "d"}], "4"]], "Output",
CellChangeTimes->{3.861248653955451*^9},
CellLabel->"Out[23]=",ExpressionUUID->"7c2a9d35-261d-4e3f-8afc-91d129ab6f73"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861248637509153*^9, 3.8612486403131037`*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"6c073c03-ea3f-4bed-a21e-24f1e9f88f74"],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Theta]"}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
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]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"1", "+", "d"}], "4"], "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
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[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Alpha]", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Alpha]", " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861248640835294*^9, 3.86165634235812*^9},
CellLabel->"Out[12]=",ExpressionUUID->"8123159f-8e70-4d07-9ef8-119d3e503c9c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%12", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[13]:=",ExpressionUUID->"a36e177e-a22d-4d76-a1ef-1a0cb9ebaf34"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"64", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8616563454020157`*^9},
CellLabel->"Out[13]=",ExpressionUUID->"e4e2590f-b1d2-47cd-8eee-4183f5acfb17"]
}, Open ]],
Cell[TextData[StyleBox["k", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.861249011919739*^9,
3.861249013901259*^9}},ExpressionUUID->"1d0007e7-e4cb-4076-93b9-\
0728b2939734"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861249028324807*^9, 3.861249033275959*^9}},
CellLabel->"In[30]:=",ExpressionUUID->"dcd3787c-9369-4e84-8bc8-55e60ebfc7da"],
Cell[BoxData[
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861249034007008*^9},
CellLabel->"Out[30]=",ExpressionUUID->"c6f44525-99bb-48e7-8f01-9b48629a36a1"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[31]:=",ExpressionUUID->"9ee10b26-735a-4db8-b2a5-abed8b5171df"],
Cell[BoxData[
StyleBox[
RowBox[{"-",
FractionBox[
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"]}]]}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861314476646325*^9},
CellLabel->"Out[31]=",ExpressionUUID->"a830923f-2642-4b57-bf3f-3c31fd7b160f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861249057645466*^9, 3.8612490686913433`*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"a5f4d57f-e8aa-4be3-aec5-b65bfd6f067b"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8612490700925817`*^9},
CellLabel->"Out[32]=",ExpressionUUID->"614f544f-cc26-475e-82fe-5581e830680e"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[33]:=",ExpressionUUID->"92745e94-c60b-4f89-9f03-9bcef5e3f967"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"]}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861314490512*^9},
CellLabel->"Out[33]=",ExpressionUUID->"0624274e-a21b-44d1-9cb6-5b2cafb706d0"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861249083926429*^9, 3.861249084910692*^9}, {
3.861249116522406*^9, 3.861249118236779*^9}},
CellLabel->"In[34]:=",ExpressionUUID->"b1bb9c3d-616a-4d05-a1c2-6a692110f7ee"],
Cell[BoxData[
RowBox[{"-",
FractionBox["\[Alpha]",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}]], "Output",
CellChangeTimes->{3.8612491194273767`*^9},
CellLabel->"Out[34]=",ExpressionUUID->"8b47ee6c-a2f4-47a4-8654-9eba6133d425"]
}, Open ]],
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861249139095232*^9, 3.86124914379568*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"7426c866-163a-4c75-8700-640819c82720"],
Cell[BoxData[
StyleBox["0",
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.86131458186971*^9},
CellLabel->"Out[35]=",ExpressionUUID->"25f1ee49-6322-441a-833b-451ef92dd206"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861249146429496*^9, 3.861249160423946*^9}},
CellLabel->"In[36]:=",ExpressionUUID->"00a934dc-83ee-4289-8ca5-436539b3e02c"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "128"}], " ", "cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"32", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"128", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"64", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
RowBox[{
FractionBox["1",
RowBox[{"128", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"128", " ", "cs", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "+",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"64", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861249161915367*^9},
CellLabel->"Out[36]=",ExpressionUUID->"1345a549-cb9a-4814-a3dd-459fd4da3a54"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%36", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[37]:=",ExpressionUUID->"85cdecaa-dded-497f-ad14-3a76241ce494"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"128", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
RowBox[{"2", " ", "\[Alpha]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "64"}], " ",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861249164608931*^9},
CellLabel->"Out[37]=",ExpressionUUID->"591b1a59-47cf-4725-844c-589248bbb1d8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861249240872067*^9, 3.861249247161824*^9}, {
3.8613542357816467`*^9, 3.861354236513658*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"97601ac0-c8c4-4e1a-aa0f-72d501ad19ca"],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "256"}], " ", "cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"16", " ", "\[Alpha]"}], "-",
RowBox[{"32", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"384", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"256", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"64", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"256", " ", "cv", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"2", " ", "\[Alpha]"}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]"}], "+",
SuperscriptBox["\[Alpha]", "2"], "-",
RowBox[{"16", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"192", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"8", " ", "\[Theta]"}], "-",
RowBox[{"256", " ", "k", " ", "\[Theta]"}], "-",
RowBox[{"16", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"32", " ", "\[Alpha]", " ",
SuperscriptBox["\[Theta]", "2"]}], "+",
RowBox[{"16", " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SuperscriptBox["\[Theta]", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"8", " ", "k"}], "-",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.861249248831606*^9, 3.861354238279234*^9},
CellLabel->"Out[9]=",ExpressionUUID->"42af41d5-f904-4251-84b1-4d4445ce547c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%9", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[10]:=",ExpressionUUID->"f4685538-8477-4bfb-b9b0-fa02e0216a4f"],
Cell[BoxData[
RowBox[{"-",
RowBox[{
FractionBox["1",
RowBox[{"256", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"4", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"], "-",
RowBox[{"2", " ", "\[Alpha]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"192", " ",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.8613542406711903`*^9},
CellLabel->"Out[10]=",ExpressionUUID->"be88100d-d977-43a7-8dcd-b8fb1ac00e22"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{
3.8612495232221518`*^9, {3.861251176934113*^9, 3.861251199247745*^9}},
CellLabel->"In[40]:=",ExpressionUUID->"85463e01-557c-4198-9260-3d72a8955f6c"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861251201238977*^9},
CellLabel->"Out[40]=",ExpressionUUID->"9bcbc918-7320-4c00-8e8d-1e082dac3593"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861251202780447*^9, 3.861251207030128*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"c25f5e66-8866-4511-858e-c2414e17a2da"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], "2"],
RowBox[{"256", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\[Alpha]",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}], "-",
FractionBox[
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\[Alpha]",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "+",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.86125120786901*^9, 3.861656533433646*^9},
CellLabel->"Out[14]=",ExpressionUUID->"67c311e0-d403-435b-bb3a-746e05c1860e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%14", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[15]:=",ExpressionUUID->"08b10875-cb82-4233-bacd-68a789676ccc"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["d", "3"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"12", " ", "d", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "-",
RowBox[{"6", " ", "\[Alpha]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}], "+",
RowBox[{"6", " ",
SuperscriptBox["d", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"64", " ",
SuperscriptBox["k", "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], "2"]}]}], ")"}]}]}],
RowBox[{"256", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.861656536034999*^9},
CellLabel->"Out[15]=",ExpressionUUID->"a297019c-310a-4eaa-b891-ead5e2b8aaef"]
}, Open ]],
Cell["", "Text",
CellChangeTimes->{{3.861248991264493*^9,
3.861248992389608*^9}},ExpressionUUID->"2bb3fe37-0fa7-4472-b5e6-\
bdb7849ee539"],
Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.861249019985586*^9,
3.861249022197942*^9}},ExpressionUUID->"bfc41cf0-0eb8-49cd-bc5e-\
d1b9c1850f2f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861251420607563*^9, 3.861251424437109*^9}},
CellLabel->"In[44]:=",ExpressionUUID->"3387fdb6-ff0c-4ac1-8493-8e9e539ef0a3"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861251425623124*^9},
CellLabel->"Out[44]=",ExpressionUUID->"c07dbebf-811f-4bce-b30e-7a3b21ab6b5b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[45]:=",ExpressionUUID->"fbbe098d-f090-4c89-a70a-c3cbb5cc8a83"],
Cell[BoxData[
FractionBox["1",
RowBox[{"4", " ", "k"}]]], "Output",
CellChangeTimes->{3.861251430329212*^9},
CellLabel->"Out[45]=",ExpressionUUID->"ad22f6bf-8b0f-4cc0-ac01-930c14ce38f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861251434245288*^9, 3.861251440854623*^9}},
CellLabel->"In[46]:=",ExpressionUUID->"38c37fd2-df0c-43d8-a452-39779d2d82fe"],
Cell[BoxData[
RowBox[{"-",
FractionBox["\[Beta]",
RowBox[{"4", " ", "k"}]]}]], "Output",
CellChangeTimes->{3.861251441941697*^9},
CellLabel->"Out[46]=",ExpressionUUID->"451eae0e-9a85-48eb-b8e2-c36006dd415c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861251449822323*^9, 3.861251461670189*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"3f9e23a0-daa0-4e7c-ade1-0f90a1de98da"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.861251463178893*^9},
CellLabel->"Out[47]=",ExpressionUUID->"9d1214f1-9e41-4251-afa8-fbcdf1b87b71"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Cancel", "[",
FractionBox[
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[48]:=",ExpressionUUID->"afedf418-3c09-4cf3-a030-1e648eb8783b"],
Cell[BoxData[
FractionBox["1",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8612514686723213`*^9},
CellLabel->"Out[48]=",ExpressionUUID->"f2d4c640-1586-4fd7-a210-a7a6e91e327f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8612515165075274`*^9, 3.861251520397028*^9}},
CellLabel->"In[52]:=",ExpressionUUID->"63d1833b-6d86-4384-8811-33068cf18c89"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861251522461022*^9},
CellLabel->"Out[52]=",ExpressionUUID->"e718d504-cdde-452d-b2a6-fdf8076a9ead"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8612515253354683`*^9, 3.861251540210231*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"bc5995a3-b199-4f3e-9203-377a55e09d49"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"4", " ", "k"}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861251540915588*^9, 3.861656051882421*^9},
CellLabel->"Out[27]=",ExpressionUUID->"f014ddac-321e-4a4d-8b81-99f4d1feef83"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%27", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[28]:=",ExpressionUUID->"82fc3b33-e433-48f5-9007-9f22fd91843c"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8616560547888412`*^9},
CellLabel->"Out[28]=",ExpressionUUID->"b45038e0-c795-4c02-9bb8-bf277c8f0561"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{"8", "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[54]:=",ExpressionUUID->"82542bfb-6f51-445b-94da-13eb10f5725e"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8612515447918653`*^9},
CellLabel->"Out[54]=",ExpressionUUID->"79f5dba8-f169-48c4-9d56-012bc4341b4d"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861251658864468*^9, 3.8612516794706583`*^9},
3.8616560891446*^9},ExpressionUUID->"a8d50fb7-7969-4aae-81bd-101d3f4a4554"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861656085751542*^9,
3.861656085752844*^9}},ExpressionUUID->"6efda303-e23b-404b-8548-\
018a42706b8d"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861251566912211*^9, 3.861251571515809*^9},
3.8616560829978848`*^9},ExpressionUUID->"f06251b9-8d9e-488c-b863-\
35fe595143e5"],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.861656081393684*^9},
NumberMarks->False,ExpressionUUID->"eef7b7ca-bbf1-4101-b823-e9b5690ae4cb"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8616560784488564`*^9,
3.861656078460415*^9}},ExpressionUUID->"19430f10-f6de-447a-b676-\
a0af59622c35"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profitv", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.86165508041678*^9, 3.861655086179716*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"34908f79-51e1-4802-8c8e-6cdf0d4f6f6c"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Theta]"}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]]}]], "Output",
CellChangeTimes->{3.8616550872700863`*^9, 3.861656091142171*^9},
CellLabel->"Out[29]=",ExpressionUUID->"8274db6b-aec7-4f41-98d3-e7c64c3b69ca"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%29", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[30]:=",ExpressionUUID->"15718839-8417-4f0b-a9c2-e1e5f1847536"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"32", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.86165609300771*^9},
CellLabel->"Out[30]=",ExpressionUUID->"07a25120-2947-4553-bf24-76c012aa07d0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{"8", "-",
RowBox[{"256", " ", "k"}], "-",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"320", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}],
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[10]:=",ExpressionUUID->"b6107486-a44f-471e-b0e5-7d8648b7fb40"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"32", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.8616550893473186`*^9},
CellLabel->"Out[10]=",ExpressionUUID->"1efb6b82-0dd2-4ce3-8287-6627ef56c586"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8616551019932127`*^9, 3.8616551062074833`*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"93d007f4-3e9e-45fc-953b-51e188afcbc5"],
Cell[BoxData[
FractionBox[
RowBox[{"8", "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.861655106948539*^9},
CellLabel->"Out[11]=",ExpressionUUID->"fec9cea1-fb2a-4d30-9662-62e40e38e36d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{"8", "-",
RowBox[{"16", " ", "\[Alpha]"}], "+",
RowBox[{"64", " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{"8", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"64", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+",
RowBox[{"4", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"32", " ", "\[Theta]"}], "-",
RowBox[{"64", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"32", " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[12]:=",ExpressionUUID->"61a201f2-0a57-4f60-9a20-0e7be91f7ae8"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861655108885878*^9},
CellLabel->"Out[12]=",ExpressionUUID->"dadf978f-8460-4ab2-af23-7eca09b64b1e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8613542527752123`*^9, 3.861354258162972*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"ccc77ea3-08d4-43a6-b52b-aeeea2b9d407"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8613542588907146`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"1dd7a22e-c35f-4305-ac3c-56b7a060d845"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861354260107828*^9, 3.861354264417783*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"cfa15e3f-3cb8-45ef-afd1-b7617274042b"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "1"}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Theta]"}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"128", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"4", " ", "k"}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}]}], ")"}], " ", "\[Beta]", " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
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[{
RowBox[{"-", "1"}], "-",
RowBox[{"8", " ", "k"}], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}], ")"}]}],
RowBox[{"16", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.861354265621859*^9, 3.86165557286944*^9,
3.8616560996156187`*^9, 3.861656550087966*^9},
CellLabel->"Out[16]=",ExpressionUUID->"ae28084c-a9df-4bd5-95de-3d09a48a2f0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%16", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[17]:=",ExpressionUUID->"02164966-d820-4a5e-aa11-5833e095d9a9"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"6", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}]}],
RowBox[{"32", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861656552878586*^9},
CellLabel->"Out[17]=",ExpressionUUID->"b6e3d1e9-2721-4b8d-a75f-7ec3c83e6992"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.86165655939732*^9},
NumberMarks->False,ExpressionUUID->"6bf7a771-7a38-463c-bed4-cc6ad36d0c3d"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.86165656099063*^9,
3.861656560991721*^9}},ExpressionUUID->"4bcdf3a6-3882-4362-a909-\
2565fe6e0aa9"],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.86165656280525*^9},
NumberMarks->False,ExpressionUUID->"d1c316ab-cf9e-44eb-8fcd-ae713d9f5408"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861656564482335*^9,
3.861656564483108*^9}},ExpressionUUID->"57560928-8951-405f-b74b-\
a6723a27aa93"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8616558454094276`*^9, 3.861655912601131*^9},
3.861656159553298*^9},ExpressionUUID->"807db283-0a69-428f-8d39-\
c87415b9a17e"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.8616561664832277`*^9, 3.861656202071899*^9},
3.861656567079185*^9},ExpressionUUID->"14db7fcf-70b2-4aaa-9bb7-\
925e94f2e8c5"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861656572259571*^9,
3.861656572261093*^9}},ExpressionUUID->"1545ab07-fa9d-4081-b9f8-\
fcad1bd8925c"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861656576191558*^9, 3.8616565806813917`*^9}},
NumberMarks->False,ExpressionUUID->"b043537c-c76c-4c8a-8898-f8f33842f1c2"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861656577043282*^9,
3.861656579861546*^9}},ExpressionUUID->"647bc4a4-375d-401a-a45c-\
93f57e76459a"]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"2. The optimal launch price is the ",
Cell[BoxData[
FormBox[
SuperscriptBox["l", "VA"], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"b8303fe0-8000-4920-a80a-1689fbd43301"]
}], "Subtitle",
CellChangeTimes->{{3.8610589165333443`*^9, 3.861058933840816*^9}, {
3.861070562370598*^9, 3.861070563386878*^9}, {3.861070639456759*^9,
3.861070648326538*^9}, {3.8615646548667917`*^9,
3.861564680041161*^9}},ExpressionUUID->"e9c5ef90-e8ac-40ba-a99a-\
eb2ad6be194b"],
Cell[TextData[{
"when cv > ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"H", "(", "\[Alpha]", ")"}],
SubscriptBox["|",
RowBox[{
StyleBox["\[Alpha]",
FontVariations->{"Underline"->True}],
StyleBox[" ",
FontVariations->{"Underline"->True}], "<", " ", "\[Alpha]", " ", "<",
" ",
SubscriptBox["\[Alpha]", "0"], " "}]]}], TraditionalForm]],
ExpressionUUID->"07f6759e-befc-46b6-ac19-a2e57e40f5da"],
", where H(\[Alpha])= ",
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "4"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "*", "8",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "[",
RowBox[{
RowBox[{"2", "\[Alpha]k"}], "+",
RowBox[{"\[Theta]",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], "]"}]}], "+",
RowBox[{"16",
SuperscriptBox["\[Theta]", "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"]}], "-",
RowBox[{"192",
SuperscriptBox["\[Alpha]", "2"],
SuperscriptBox["k", "2"]}], "-",
RowBox[{"64", "\[Theta]k",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}],
RowBox[{"(",
RowBox[{"4", "-", "\[Alpha]"}], ")"}]}]}],
RowBox[{"256", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]],ExpressionUUID->
"193d8744-fe05-4afa-9f69-d70d705820d9"],
" ,\n",
StyleBox["\[Alpha]",
FontVariations->{"Underline"->True}],
" = ",
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"4", "\[Theta]"}], "-",
RowBox[{"16", "k"}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"4", "\[Theta]"}], "-",
RowBox[{"8", "k"}]}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"98c0ba12-efe1-46b7-9452-f7fc0410bf6f"],
" , ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["\[Alpha]", "0"], " ", "=", " ",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "4"], "+",
RowBox[{"8",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"],
RowBox[{"(",
RowBox[{"\[Theta]", "-", "k"}], ")"}]}], "+",
RowBox[{"16",
RowBox[{"\[Theta]", "(",
RowBox[{"\[Theta]", "-",
RowBox[{"10", "k"}]}], ")"}]}], "+",
RowBox[{"16", "k",
SqrtBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"], "+",
RowBox[{"48",
RowBox[{"\[Theta]", "(",
RowBox[{"\[Theta]", "-",
RowBox[{"4", "k"}]}], ")"}]}]}]]}]}],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "4"], "+",
RowBox[{"8",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"],
RowBox[{"(",
RowBox[{"\[Theta]", "-",
RowBox[{"2", "k"}]}], ")"}]}], "+",
RowBox[{"16",
RowBox[{"\[Theta]", "(",
RowBox[{"\[Theta]", "-",
RowBox[{"4", "k"}]}], ")"}]}], "-",
RowBox[{"192",
SuperscriptBox["k", "2"]}]}]]}], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"22964db3-f7ec-4bbd-8324-840966537e7a"],
", the optimal launch price is less than the VM acceptable price, so the \
price should be ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["l", "VA"], "="}], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"24d523b2-625e-428f-83fb-a1647a811c05"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]],
CellChangeTimes->{{3.8614174088192873`*^9, 3.861417410978079*^9}, {
3.8614175340801353`*^9, 3.8614175344130917`*^9}},ExpressionUUID->
"56c31fd6-57ad-4d21-a221-c7787d9e9f05"]
}], "Text",
CellChangeTimes->{{3.861564723092617*^9, 3.861564787464592*^9}, {
3.861564843783762*^9, 3.8615649454426947`*^9}, {3.861564976752981*^9,
3.861565151964555*^9}, {3.861565185831056*^9, 3.861565282133484*^9},
3.861565315040956*^9, {3.861566430719289*^9, 3.8615667105826674`*^9},
3.86156678814531*^9, {3.861597570391265*^9,
3.8615975737336206`*^9}},ExpressionUUID->"44e680c7-d41d-4e68-a180-\
35b724c765e7"],
Cell[BoxData[
RowBox[{"l", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]}]], "Input",
CellChangeTimes->{{3.861566821315288*^9, 3.861566823215467*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"75012582-daf3-49a4-ae41-fa2406f05157"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{"l", "-",
RowBox[{"l", " ", "\[Alpha]"}], "+", "\[Theta]"}],
RowBox[{"2", " ", "k"}]]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "l", "+",
RowBox[{"l", " ", "\[Alpha]"}], "-", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ", "k"}]]}]}], "Input",
CellChangeTimes->{{3.861566829402276*^9, 3.861566832986137*^9}, {
3.861566870300136*^9, 3.8615668864962187`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"5db29ac1-b4f2-43fe-94dd-a1287d276291"],
Cell[CellGroupData[{
Cell[BoxData["e"], "Input",
CellChangeTimes->{3.8615669017190123`*^9},
CellLabel->"In[4]:=",ExpressionUUID->"7f168cf1-fe58-463a-820c-46d37c6d41a6"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Theta]", "+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
RowBox[{"2", " ", "k"}]]], "Output",
CellChangeTimes->{3.86156690245098*^9},
CellLabel->"Out[4]=",ExpressionUUID->"8cd02036-7505-473e-a383-6ee39f1451df"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"(",
RowBox[{"\[Theta]", "+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[5]:=",ExpressionUUID->"190718ca-09a1-4042-8f11-c497f48d6efd"],
Cell[BoxData[
StyleBox[
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.8615731093431177`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"c643d8e7-409f-46ee-bdac-d1e2bebfed2d"],
Cell[CellGroupData[{
Cell[BoxData["r"], "Input",
CellChangeTimes->{3.861566906758807*^9},
CellLabel->"In[6]:=",ExpressionUUID->"f5fbc6f6-5446-4c13-8e14-6b52051cd6a9"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "\[Theta]", "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.8615669076040297`*^9},
CellLabel->"Out[6]=",ExpressionUUID->"2f4270f6-3ba2-4dad-a7af-6ad715b8782b"]
}, Open ]],
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1",
RowBox[{"2", " ", "k"}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-", "\[Theta]", "-",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[7]:=",ExpressionUUID->"734b91bc-8699-477a-b98d-d95988602a62"],
Cell[BoxData[
StyleBox[
RowBox[{
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], " "}],
FontColor->RGBColor[1, 0, 0]]], "Input",
CellChangeTimes->{3.861573116265006*^9,
3.861595443008216*^9},ExpressionUUID->"595832b1-43f7-422d-abf8-\
ed8e7b0447d3"],
Cell[BoxData[{
RowBox[{"e", ":=",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
")"}]}]]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]}], "Input",
CellChangeTimes->{{3.861566918814272*^9, 3.861566948822578*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"36d427ef-caa6-4f39-b86b-1a1af122796f"],
Cell[BoxData[
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]], "Input",
CellLabel->"In[4]:=",ExpressionUUID->"dea86999-641b-4587-a062-69199b16ebd5"],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.861566954967228*^9, 3.861566956804428*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"3a60a26d-e0cd-41ac-a9f0-c463f6bfbf10"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}], " ", "p"}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861566957626541*^9},
CellLabel->"Out[12]=",ExpressionUUID->"1a6c6132-9a08-475c-8ad2-ce4949fde4fc"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%12", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[13]:=",ExpressionUUID->"7da6bc78-a3ac-48f7-b0bb-9a4522614803"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "cs"}], " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SqrtBox["k"], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{
SqrtBox["k"], " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox["\[Alpha]", "2"], " ", "\[Theta]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "p", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+",
RowBox[{
SuperscriptBox["p", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+",
RowBox[{"4", " ", "k", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+",
RowBox[{"\[Theta]", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "-",
RowBox[{"\[Alpha]", " ", "\[Theta]", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{
SqrtBox["k"], " ", "\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.861566960561561*^9},
CellLabel->"Out[13]=",ExpressionUUID->"eee01d59-99c5-456b-8b67-db9812453628"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"%", ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.861566967713605*^9, 3.861566972651268*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"20b73ab4-289f-439d-b739-a7fa1a40afc7"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+",
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.861566973249908*^9},
CellLabel->"Out[14]=",ExpressionUUID->"d6c5b0d7-79fd-413a-971d-65423be67065"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"%", "\[Equal]", "0"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.861566975668458*^9, 3.861566983706202*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"fbbe1233-8904-410c-853f-82a93e39897c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"p", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]]}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.861566985057375*^9},
CellLabel->"Out[15]=",ExpressionUUID->"033688a6-32b1-4821-82cb-efe09d0f38c4"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861564700039432*^9, 3.861564711191585*^9}, {
3.8615666410102043`*^9,
3.861566642813486*^9}},ExpressionUUID->"3b2578d2-16f5-4e11-9b9c-\
6595cc701edc"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ", "\[Alpha]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "\[Alpha]"}],
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "]"}]], "Input",
CellChangeTimes->{{3.861566992421583*^9, 3.8615670018969507`*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"3e29da22-28cc-470b-9184-a532f2833796"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "+", "d"}], "2"]], "Output",
CellChangeTimes->{3.861567003087035*^9},
CellLabel->"Out[16]=",ExpressionUUID->"3793d00a-d1c2-41a0-bfdc-de5cd8c9fb1f"]
}, Open ]],
Cell[BoxData[
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}]], "Input",
CellChangeTimes->{{3.861570916730033*^9, 3.8615709224476357`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"cc3e21f2-6878-4ddc-b25c-360378a40473"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.861570923849173*^9,
3.861570927426106*^9}},ExpressionUUID->"19daf983-b65c-4798-a7f3-\
2a2cf8d69863"],
Cell[BoxData[{
RowBox[{"Profitv", ":=",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+",
RowBox[{"e", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Theta]"}], "-",
RowBox[{"k", "*",
RowBox[{"(",
RowBox[{"e", "*", "e"}], ")"}]}], "-", "cv"}]}], "\[IndentingNewLine]",
RowBox[{"Profiti", ":=",
RowBox[{
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}],
")"}]}]}]}], "\[IndentingNewLine]",
RowBox[{"Profits", ":=",
RowBox[{
RowBox[{
RowBox[{"-", "\[Alpha]"}], " ", "l"}], "+",
RowBox[{"e",
RowBox[{"(",
RowBox[{
RowBox[{"p",
RowBox[{"(",
RowBox[{"1", "+", "d", "-", "p"}], ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], "l"}]}], ")"}]}], "-", "cs",
" ", "-",
RowBox[{"r",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "e"}], ")"}], "\[Beta]",
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]", " ", "l"}], "+", "cs"}], ")"}]}]}]}]}], "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}},
CellLabel->"In[5]:=",ExpressionUUID->"1bd995cf-fe53-4975-884c-031d5a2b86c1"],
Cell[CellGroupData[{
Cell[BoxData["Profitv"], "Input",
CellChangeTimes->{{3.861570947772621*^9, 3.8615709512225847`*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"3d5ad1e0-0603-4fdc-ab71-fee312a8074b"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cv"}], "-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], "2"],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "-",
RowBox[{"\[Theta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861570951712372*^9},
CellLabel->"Out[21]=",ExpressionUUID->"3e5d30c2-c041-4ad9-9adb-9aefb175ba32"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%21", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[22]:=",ExpressionUUID->"3e4980a9-33e8-43be-a65b-626e854ac6d7"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8615709543872766`*^9},
CellLabel->"Out[22]=",ExpressionUUID->"55daa283-161c-4268-b807-958fbece41ef"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData["Profits"], "Input",
CellChangeTimes->{{3.8615709566865177`*^9, 3.8615709592321663`*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"ac8033c9-cccb-4ba3-9244-84f93a0ddc74"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861570959738825*^9},
CellLabel->"Out[23]=",ExpressionUUID->"67ad5c04-4568-4e1b-93b6-f7966a860a3c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%23", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[24]:=",ExpressionUUID->"2a02d81c-9270-48b8-83d7-597616f4df76"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
")"}]}]}]}]], "Output",
CellChangeTimes->{3.861570961968134*^9},
CellLabel->"Out[24]=",ExpressionUUID->"ed68752e-0d89-4b15-bc00-0dda1a6ad1a0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]",
" ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"]"}]], "Input",
CellChangeTimes->{{3.8615709732382936`*^9, 3.861570974147985*^9}, {
3.861572116467636*^9, 3.86157213778955*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"397a6d48-b468-497f-a39b-019d86f21eeb"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861572139157896*^9},
CellLabel->"Out[25]=",ExpressionUUID->"7a2ad8ac-6d27-47ae-b38f-5a36727a7ec4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "\[Beta]",
" ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}]}],
"]"}]], "Input",
CellChangeTimes->{{3.8615721438482523`*^9, 3.861572154791071*^9}},
CellLabel->"In[26]:=",ExpressionUUID->"fbe5b2df-825b-4696-8bda-86c9861adfac"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], "+",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
")"}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]],
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
")"}]}]}]}]], "Output",
CellChangeTimes->{3.86157215595749*^9},
CellLabel->"Out[26]=",ExpressionUUID->"63d85b3d-a925-445c-9d8b-79eaad1d3ecd"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"cs", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "3"]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
CellChangeTimes->{{3.861572166240993*^9, 3.8615721783620977`*^9}},
CellLabel->"In[27]:=",ExpressionUUID->"c2e0dfb5-1ec3-4772-898e-bc700c5b3653"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8615721798231363`*^9},
CellLabel->"Out[27]=",ExpressionUUID->"81209722-a589-4bec-822a-5d9c55c8b778"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"-", "cs"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]}],
"]"}]], "Input",
CellChangeTimes->{{3.861572276999435*^9, 3.8615722798467207`*^9}},
CellLabel->"In[28]:=",ExpressionUUID->"52c29598-3f9b-491d-b4cc-13bd4921e708"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.86157228231887*^9},
CellLabel->"Out[28]=",ExpressionUUID->"f6d55206-f34b-424c-b57c-18d5ee4fe30e"]
}, Open ]],
Cell[BoxData[
RowBox[{"CS", ":=",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}]}]], "Input",
CellChangeTimes->{{3.8616138975059*^9, 3.8616138989620256`*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"53c893b1-36dc-4674-b08f-63cc1d898014"],
Cell[BoxData[
RowBox[{"SW", ":=",
RowBox[{"CS", "+", "Profits"}]}]], "Input",
CellChangeTimes->{{3.8616139009282017`*^9, 3.861613911363092*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"915025c3-fae6-43f7-8bc6-b0218d1f4672"],
Cell[CellGroupData[{
Cell[BoxData["SW"], "Input",
CellChangeTimes->{{3.86161391367421*^9, 3.86161391419245*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"9f80812a-a3b5-44c3-b9fc-4b953e39e1d8"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "cs"}], "+",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}], "-",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "-", "d"}], ")"}]}], "+", "d"}], ")"}]}], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "+",
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{"cs", "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}],
"+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.861613914827169*^9},
CellLabel->"Out[31]=",ExpressionUUID->"b477caec-b779-4e4e-a66f-4fcdbb081bab"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%31", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[32]:=",ExpressionUUID->"8ef50adb-c4fc-4cc6-a9e4-e22ce49f4f28"],
Cell[BoxData[
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "16"}], " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"16", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"3", " ", "\[Alpha]"}], "-",
RowBox[{"6", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.8616139173249207`*^9},
CellLabel->"Out[32]=",ExpressionUUID->"22b39c01-ccad-49d8-8343-791f2d2959d0"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.8616148862162046`*^9,
3.861614918598853*^9},ExpressionUUID->"998999e6-722a-43b9-82c3-\
823077d849b0"],
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->"3bc7491c-6949-4610-ab76-\
a06be8fd363f"],
Cell[BoxData[{
RowBox[{"l", ":=",
StyleBox[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "k", " ", "\[Alpha]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Theta]"}], "+",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]],
FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]",
RowBox[{"p", ":=",
FractionBox[
RowBox[{"1", "+", "d"}], "2"]}], "\[IndentingNewLine]",
RowBox[{"e", ":=",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
")"}]}]]}], "\[IndentingNewLine]",
RowBox[{"r", ":=",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}],
")"}]}]]}], "\[IndentingNewLine]",
RowBox[{
StyleBox["Profits",
FontColor->RGBColor[1, 0, 0]],
StyleBox[":=",
FontColor->RGBColor[1, 0, 0]],
RowBox[{
RowBox[{"-", "cs"}], "+",
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k", " ", "\[Alpha]"}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}], "-",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}],
"2"]}]]}]}], "\[IndentingNewLine]",
RowBox[{"CS", ":=",
RowBox[{
FractionBox["1", "8"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], "2"]}]}], "\[IndentingNewLine]",
RowBox[{"SW", ":=",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "16"}], " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"8", " ", "cs", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"16", " ", "cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"3", " ", "\[Alpha]"}], "-",
RowBox[{"6", " ", "d", " ", "\[Alpha]"}], "-",
RowBox[{"3", " ",
SuperscriptBox["d", "2"], " ", "\[Alpha]"}], "-",
RowBox[{"16", " ", "\[Theta]"}]}], ")"}]}], "+",
RowBox[{"16", " ", "k", " ", "\[Alpha]", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
")"}]}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.861614941853983*^9, 3.8616149703323603`*^9}, {
3.861615025310981*^9, 3.861615064032671*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"0426ce1d-5c1a-4cd2-b9cc-e4cc57af3ecc"],
Cell[TextData[StyleBox["d", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9},ExpressionUUID->"80321340-eabe-4676-ad48-\
492f37419504"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615095217778*^9, 3.861615103025319*^9}},
CellLabel->"In[45]:=",ExpressionUUID->"70c865f9-a28b-4b3e-b8ac-0b0fc604d9d5"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861615103946781*^9},
CellLabel->"Out[45]=",ExpressionUUID->"2f91a863-7be5-4b72-abf1-ec75ded0d112"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615114499216*^9, 3.86161512255269*^9}},
CellLabel->"In[46]:=",ExpressionUUID->"a3774643-88de-457a-8b0f-a808ec1bae76"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.8616151237943373`*^9},
CellLabel->"Out[46]=",ExpressionUUID->"d4e7bda7-369a-4b57-a324-989afc8bdd6c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"p", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615127056259*^9, 3.861615133242508*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"86292d5a-0acd-41f2-8c0e-f838e2c308c5"],
Cell[BoxData[
FractionBox["1", "2"]], "Output",
CellChangeTimes->{3.861615134034356*^9},
CellLabel->"Out[47]=",ExpressionUUID->"5a73e300-92e2-4447-b8de-35bce951bfc7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615144113092*^9, 3.861615147419055*^9}},
CellLabel->"In[48]:=",ExpressionUUID->"e3485e9b-bf03-4fec-a4ea-79df7aa1580d"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.861615148074819*^9},
CellLabel->"Out[48]=",ExpressionUUID->"44ad4383-ef5a-452f-8ac1-d7d76647dd5d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615151245542*^9, 3.861615158867182*^9}},
CellLabel->"In[49]:=",ExpressionUUID->"ca95e630-50bb-4c19-8088-3231582c2c70"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.861615159776143*^9},
CellLabel->"Out[49]=",ExpressionUUID->"aa9fa98f-256e-4096-859b-c0e3f581cda5"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}],
"]"}]], "Input",
NumberMarks->False,
CellLabel->"In[50]:=",ExpressionUUID->"d177b030-b337-42bc-b2c7-22ed83b92633"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]], "Output",
CellChangeTimes->{3.861615162893663*^9},
CellLabel->"Out[50]=",ExpressionUUID->"cd957910-6ce6-41d9-b979-d37e6f3ea1f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"SW", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615168865446*^9, 3.8616151733357353`*^9}},
CellLabel->"In[51]:=",ExpressionUUID->"ee35aa6a-c9d7-4974-8ebd-09e39a4e49cb"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"2", " ", "d"}], "-",
RowBox[{"6", " ", "\[Alpha]"}], "-",
RowBox[{"6", " ", "d", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"2", " ", "d"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"8", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]], "Output",
CellChangeTimes->{3.861615174243331*^9},
CellLabel->"Out[51]=",ExpressionUUID->"75e6b457-e747-4ab1-8840-22b2514c4a83"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"2", " ", "d"}], "-",
RowBox[{"6", " ", "\[Alpha]"}], "-",
RowBox[{"6", " ", "d", " ", "\[Alpha]"}]}], ")"}]}], "-",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"2", " ", "d"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"8", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "]"}]], "Input",\
NumberMarks->False,
CellLabel->"In[52]:=",ExpressionUUID->"5a407ecd-e414-46f3-acb9-ffa2aece3af2"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+", "d"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"3", " ", "\[Alpha]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8616151768314257`*^9},
CellLabel->"Out[52]=",ExpressionUUID->"231429da-2ae6-4422-90a8-8461b285f4f7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"CS", ",", "d"}], "]"}]], "Input",
CellChangeTimes->{{3.861615178517118*^9, 3.861615181777174*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"cd64959e-8904-409d-aa65-f3eede8c318a"],
Cell[BoxData[
FractionBox[
RowBox[{"1", "+", "d"}], "4"]], "Output",
CellChangeTimes->{3.861615182408997*^9},
CellLabel->"Out[53]=",ExpressionUUID->"670762f8-3c62-40cf-92b2-5713b5064d7b"]
}, Open ]],
Cell[TextData[StyleBox["k", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.861616017426148*^9,
3.861616018912632*^9}},ExpressionUUID->"37a70b0c-5b0d-4f95-a51e-\
33669fa42717"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.8616160280508327`*^9, 3.861616031936205*^9}},
CellLabel->"In[54]:=",ExpressionUUID->"229b7274-1f1e-43fc-94d6-443531459555"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SqrtBox["k"]}]], "-",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8616160324202547`*^9},
CellLabel->"Out[54]=",ExpressionUUID->"62d6d311-5a2a-4a8e-aea3-fd69f2bc7053"]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SqrtBox["k"]}]], "-",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{
RowBox[{
SqrtBox["k"], " ", "\[Alpha]"}], "-",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[55]:=",ExpressionUUID->"c31149a3-7641-4835-a85a-451aae3daffe"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"cv", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-", "\[Theta]"}],
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.861616034691989*^9},
CellLabel->"Out[55]=",ExpressionUUID->"7f435e7f-a53d-4f8c-b75a-9e261cc5e374"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861616142004681*^9, 3.8616161456992807`*^9}},
CellLabel->"In[56]:=",ExpressionUUID->"dac80797-0449-4ba6-b43e-3532afc9bd9e"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["k"]}]]}], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}]], "Output",
CellChangeTimes->{3.8616161462102137`*^9},
CellLabel->"Out[56]=",ExpressionUUID->"43fb5076-e53c-44db-951d-ac696d729461"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["k"]}]]}], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}]}],
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]], "-",
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[57]:=",ExpressionUUID->"35a6e3c6-17e6-4c7c-8b76-e5ec08e31fc6"],
Cell[BoxData[
FractionBox[
RowBox[{"\[Beta]", " ",
RowBox[{"(",
RowBox[{"cv", "-",
RowBox[{"cv", " ", "\[Alpha]"}], "+", "\[Theta]"}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.8616161481643543`*^9},
CellLabel->"Out[57]=",ExpressionUUID->"8578311f-be0b-4e23-a085-e2f84ac69158"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{{3.861613944240302*^9, 3.861613982056644*^9}, {
3.8616162468639402`*^9, 3.861616259375862*^9}},
CellLabel->"In[58]:=",ExpressionUUID->"244380e3-8bda-4396-80d0-600aa30e8ccf"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["k"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.861616262260545*^9},
CellLabel->"Out[58]=",ExpressionUUID->"4d3eead8-afb4-4d03-9aff-d2bcbbbf7b07"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["k"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[59]:=",ExpressionUUID->"aa22682b-fbe6-40f2-a2b2-a4095cbeb9e5"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["k"]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.861616264266626*^9},
CellLabel->"Out[59]=",ExpressionUUID->"ce175eb6-5653-4ce8-94df-9e7bb75e5077"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "k"}], "]"}]], "Input",
CellChangeTimes->{
3.861616497772327*^9, {3.861616540473198*^9, 3.861616545835664*^9}},
CellLabel->"In[60]:=",ExpressionUUID->"5a7095cd-98c0-482d-b8fd-5a0a3724054c"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\[Alpha]"}], "-",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "-",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]],
SqrtBox["k"]]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox["\[Alpha]", "2"]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}],
SqrtBox["k"]]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\[Alpha]",
RowBox[{"2", " ",
SqrtBox["k"]}]]}], "+",
FractionBox[
SuperscriptBox["\[Alpha]", "2"],
RowBox[{"2", " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]", "-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}],
RowBox[{"8", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]]}]], "Output",
CellChangeTimes->{3.861616547715632*^9},
CellLabel->"Out[60]=",ExpressionUUID->"57c36258-a3e2-49ba-9763-00890cf80985"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%60", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[61]:=",ExpressionUUID->"69b0e273-6495-464a-aabe-840b1b21da19"],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"16", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[Alpha]", "3"]}], "-",
RowBox[{"8", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", "\[Alpha]", " ",
"\[Theta]"}], "-",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ", "\[Theta]",
" ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "d"}], "+",
SuperscriptBox["d", "2"], "+",
RowBox[{"4", " ", "\[Theta]"}]}], ")"}]}], "-",
RowBox[{"16", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox["\[Alpha]", "2"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], "+",
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"+",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}]}], ")"}]}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"8", " ",
SuperscriptBox["k",
RowBox[{"3", "/", "2"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]], "Output",
CellChangeTimes->{3.8616165505042553`*^9},
CellLabel->"Out[61]=",ExpressionUUID->"25acbd6a-16ee-4df1-8bb3-7e692c937165"]
}, Open ]],
Cell[TextData[StyleBox["\[Theta]", "Chapter"]], "Text",
CellChangeTimes->{
3.861248485984922*^9, {3.8616160220090647`*^9,
3.861616023208786*^9}},ExpressionUUID->"3d5504cf-45d5-4549-9793-\
c32bdfdf4283"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"e", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861652047094558*^9, 3.861652055909089*^9}},
CellLabel->"In[62]:=",ExpressionUUID->"f3b7a34f-d6d6-4321-ba8f-f731a378b190"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"1", "-", "\[Alpha]"}],
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}]], "Output",
CellChangeTimes->{3.861652056830763*^9},
CellLabel->"Out[62]=",ExpressionUUID->"66bc8fb3-3f69-424e-b02c-375b67623b0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"-",
FractionBox[
RowBox[{"1", "-", "\[Alpha]"}],
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[63]:=",ExpressionUUID->"7307b048-b054-48e0-9c18-321100918823"],
Cell[BoxData[
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.8616520591901493`*^9},
CellLabel->"Out[63]=",ExpressionUUID->"e4065f01-ffe5-44d6-a18b-338feea9b6af"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861652218376555*^9, 3.861652223855735*^9}},
CellLabel->"In[64]:=",ExpressionUUID->"127a4ba3-5ae2-4575-af1c-ddcf38901774"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.861652224322091*^9},
CellLabel->"Out[64]=",ExpressionUUID->"a754e7e9-5616-4365-a81f-4409c45ff4a0"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", "\[Beta]"}],
RowBox[{"2", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[65]:=",ExpressionUUID->"39c2b4dc-3a19-4ca6-88af-2e6bfdd473d4"],
Cell[BoxData[
RowBox[{"-",
FractionBox["\[Beta]",
RowBox[{"2", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]}]], "Output",
CellChangeTimes->{3.861652226470243*^9},
CellLabel->"Out[65]=",ExpressionUUID->"43c97a1d-8871-44ce-b262-590fee865459"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"l", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.8616522581110563`*^9, 3.861652262619917*^9}},
CellLabel->"In[66]:=",ExpressionUUID->"5c08510b-b9da-45e8-9c51-76b89b8b2e26"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.8616522636568604`*^9},
CellLabel->"Out[66]=",ExpressionUUID->"0e779bbb-23ad-4a39-80bf-63e69a6b3cca"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[67]:=",ExpressionUUID->"b26e75fb-60ce-4fd1-8027-f1c52b058201"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]", "+",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]]], "Output",
CellChangeTimes->{3.861652266390806*^9},
CellLabel->"Out[67]=",ExpressionUUID->"5ccf3f4a-4384-4325-a0e4-a15af10b7dbf"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{"Profits", ",", "\[Theta]"}], "]"}]], "Input",
CellChangeTimes->{{3.861657608514615*^9, 3.861657616957*^9}},
CellLabel->"In[17]:=",ExpressionUUID->"f24d2f3f-bb2f-43f7-9042-a6fbe71fe9e6"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Alpha]", " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]", "-",
FractionBox[
RowBox[{
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]], "-",
RowBox[{
FractionBox["1",
RowBox[{"4", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}]],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"4", " ", "\[Alpha]"}], "+",
FractionBox[
RowBox[{"4", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}]}],
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["k"]}], " ", "\[Alpha]"}], "+",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"4", " ", "\[Theta]"}], "+",
RowBox[{"4", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"8", " ",
SqrtBox["k"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}], ")"}]}]}]], "Output",
CellChangeTimes->{3.8616576178713217`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"ee80c792-f0be-4266-8a8d-0203cb16435c"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[", "%17", "]"}]], "Input",
NumberMarks->False,
CellLabel->"In[18]:=",ExpressionUUID->"7642d76a-f331-4f91-9af4-39e9e8a11297"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "d", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "+",
RowBox[{
SuperscriptBox["d", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}]}], "-",
RowBox[{"8", " ", "cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+", "\[Alpha]",
"-",
RowBox[{"8", " ", "k", " ", "\[Alpha]"}], "-",
RowBox[{"8", " ", "k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "-",
RowBox[{"12", " ", "\[Theta]"}], "+",
RowBox[{"12", " ", "\[Alpha]", " ", "\[Theta]"}], "+",
RowBox[{"16", " ",
SqrtBox["k"], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]}],
RowBox[{"8", " ",
SqrtBox["k"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ",
SqrtBox[
RowBox[{
RowBox[{"cv", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], "2"]}], "+",
RowBox[{"k", " ",
SuperscriptBox["\[Alpha]", "2"]}], "+", "\[Theta]", "-",
RowBox[{"\[Alpha]", " ", "\[Theta]"}]}]]}]]], "Output",
CellChangeTimes->{3.861657619705723*^9},
CellLabel->"Out[18]=",ExpressionUUID->"e364adeb-dc16-4e47-92c0-d48c235b85ec"],
Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{3.861699989537328*^9},
CellLabel->"Out[53]=",ExpressionUUID->"6120fcb5-1789-42b4-a459-a6f526621b4e"]
}, Open ]]
}, Open ]]
},
WindowSize->{608, 730},
WindowMargins->{{8, Automatic}, {Automatic, 20}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670813\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"eae04b31-0d45-4448-99bf-0f1807975d4e"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1750, 55, 94, "Input",ExpressionUUID->"9b1ff1e1-b0bd-4ceb-afad-056862778cb9"],
Cell[CellGroupData[{
Cell[2333, 79, 162, 3, 44, "Input",ExpressionUUID->"0916fa0d-5acf-45f7-80e1-da28ca0ce138"],
Cell[2498, 84, 368, 9, 34, "Output",ExpressionUUID->"cbf25dd5-6765-472a-8ba5-284fa1c78d4f"]
}, Open ]],
Cell[CellGroupData[{
Cell[2903, 98, 191, 4, 44, "Input",ExpressionUUID->"c2d2b708-1962-403a-9501-c11ab2b438cd"],
Cell[3097, 104, 399, 10, 51, "Output",ExpressionUUID->"a66cdcf2-8923-42de-be01-14da1ee68fdd"]
}, Open ]],
Cell[3511, 117, 351, 8, 71, "Input",ExpressionUUID->"0e218da7-3ffd-4283-8006-71376bd11634"],
Cell[CellGroupData[{
Cell[3887, 129, 177, 2, 30, "Input",ExpressionUUID->"ac8d9888-0218-46a2-9fc9-8311f8f91361"],
Cell[4067, 133, 625, 18, 51, "Output",ExpressionUUID->"56be1d8c-f246-4bd1-b90d-26a1a5e081cc"]
}, Open ]],
Cell[CellGroupData[{
Cell[4729, 156, 257, 5, 44, "Input",ExpressionUUID->"aa6d5515-f712-4a6c-b3fc-6b61d38f02fa"],
Cell[4989, 163, 503, 13, 51, "Output",ExpressionUUID->"4e826110-8891-4727-8ea4-2596ecab3923"]
}, Open ]],
Cell[5507, 179, 434, 11, 48, "Input",ExpressionUUID->"940d8488-3380-4532-8521-ce44499369cc"],
Cell[CellGroupData[{
Cell[5966, 194, 177, 2, 30, "Input",ExpressionUUID->"a07474e2-1e4a-4faa-a6ab-2dd82c968d95"],
Cell[6146, 198, 1350, 40, 90, "Output",ExpressionUUID->"f1cf3f2a-11f5-4b0e-beb0-b5650e26d4e4"]
}, Open ]],
Cell[CellGroupData[{
Cell[7533, 243, 1327, 40, 103, "Input",ExpressionUUID->"41d10151-f8c1-48da-a673-ed5926a27fd0"],
Cell[8863, 285, 1263, 39, 74, "Output",ExpressionUUID->"8f337b7b-ccfa-476c-ba18-ed8adee38e70"]
}, Open ]],
Cell[CellGroupData[{
Cell[10163, 329, 222, 4, 44, "Input",ExpressionUUID->"acf6b17a-9e15-46e0-8950-e2d82d091535"],
Cell[10388, 335, 928, 28, 53, "Output",ExpressionUUID->"0cbaa66e-5c45-496a-97b1-ee9c3379f7e8"]
}, Open ]],
Cell[CellGroupData[{
Cell[11353, 368, 256, 5, 44, "Input",ExpressionUUID->"b20f039e-de49-4a77-b3f8-b3bf3c12f5db"],
Cell[11612, 375, 846, 22, 57, "Output",ExpressionUUID->"ff499522-b4df-4f26-9955-24d04fc6f86c"]
}, Open ]],
Cell[CellGroupData[{
Cell[12495, 402, 1513, 43, 90, "Input",ExpressionUUID->"c183db7a-640f-4310-a003-816bcd3c554b"],
Cell[14011, 447, 836, 24, 51, "Output",ExpressionUUID->"546c5e95-afc4-4f0e-9efc-9e5ce6d5a94a"]
}, Open ]],
Cell[CellGroupData[{
Cell[14884, 476, 261, 5, 44, "Input",ExpressionUUID->"8c9fd7b3-9553-428e-a610-321535ad62e5"],
Cell[15148, 483, 393, 9, 51, "Output",ExpressionUUID->"a7c736a2-807e-40bc-b1a0-cc1561fe5a15"]
}, Open ]],
Cell[15556, 495, 294, 6, 48, "Input",ExpressionUUID->"69f5aba2-f116-4470-98dd-3df30ac42156"],
Cell[15853, 503, 765, 19, 54, "Input",ExpressionUUID->"503042d7-0933-43bc-8187-b145d58c1b77"],
Cell[CellGroupData[{
Cell[16643, 526, 148, 2, 30, "Input",ExpressionUUID->"9bc18756-2cd2-406e-a8a4-f6da7908edef"],
Cell[16794, 530, 1189, 36, 94, "Output",ExpressionUUID->"a1c29e61-51c9-4fce-b516-7ef18f3f8f44"]
}, Open ]],
Cell[CellGroupData[{
Cell[18020, 571, 1187, 37, 146, "Input",ExpressionUUID->"1ea12e19-a218-4cf9-9af3-93f5f2c84cb7"],
Cell[19210, 610, 800, 25, 57, "Output",ExpressionUUID->"2e00c2ad-d916-4704-8958-2674389561ef"]
}, Open ]],
Cell[CellGroupData[{
Cell[20047, 640, 192, 4, 30, "Input",ExpressionUUID->"860e2f93-3891-48e2-997b-2d4887e7af7a"],
Cell[20242, 646, 2595, 76, 182, "Output",ExpressionUUID->"3c3d877a-6ce6-4ce6-b0f1-8a94831c959f"]
}, Open ]],
Cell[22852, 725, 163, 3, 44, "Input",ExpressionUUID->"87d7b1ea-6ac1-4a21-8f0e-2956d5e28f82"],
Cell[23018, 730, 805, 23, 52, "Input",ExpressionUUID->"4272f22e-9fa0-4f1f-b27f-0ff30d377aec"],
Cell[CellGroupData[{
Cell[23848, 757, 148, 2, 30, "Input",ExpressionUUID->"bdd9d1fb-ab21-4d22-964a-21e0ca8f4f89"],
Cell[23999, 761, 2731, 78, 220, "Output",ExpressionUUID->"117ab196-e948-41b5-a53d-d850a1b3aa1d"]
}, Open ]],
Cell[26745, 842, 163, 3, 44, "Input",ExpressionUUID->"e3bf0a6a-d46d-4ab9-a80f-ebf0ad09d7d8"],
Cell[26911, 847, 1036, 32, 54, "Input",ExpressionUUID->"2e34ba05-fb01-40b4-8185-42391ac5b1ef"],
Cell[27950, 881, 2434, 75, 122, "Text",ExpressionUUID->"c7389807-8bfb-4218-94bf-b33ba2a88c42"],
Cell[CellGroupData[{
Cell[30409, 960, 177, 2, 30, "Input",ExpressionUUID->"de91555e-1693-4281-a47e-13d385f4b651"],
Cell[30589, 964, 1301, 39, 90, "Output",ExpressionUUID->"bc7e84fd-b7c2-4412-ab24-6b92553b7985"]
}, Open ]],
Cell[CellGroupData[{
Cell[31927, 1008, 1326, 40, 103, "Input",ExpressionUUID->"522fcb2e-18c6-4fd9-b88e-6c9875ecfdc3"],
Cell[33256, 1050, 1262, 39, 74, "Output",ExpressionUUID->"5cd725e9-6608-43c8-9abe-fb8abe2f2a93"]
}, Open ]],
Cell[CellGroupData[{
Cell[34555, 1094, 221, 4, 44, "Input",ExpressionUUID->"3925205b-24f8-4022-8d3f-0e86fa3d23ee"],
Cell[34779, 1100, 740, 22, 51, "Output",ExpressionUUID->"52527f6f-9dad-4be6-958f-05a1a89aa4bf"]
}, Open ]],
Cell[CellGroupData[{
Cell[35556, 1127, 223, 4, 44, "Input",ExpressionUUID->"9039b7ce-76bb-4770-9144-7b2e9eb188b0"],
Cell[35782, 1133, 381, 10, 51, "Output",ExpressionUUID->"fde362f0-9c67-4f64-b2a8-9b457e822152"]
}, Open ]],
Cell[CellGroupData[{
Cell[36200, 1148, 1435, 42, 90, "Input",ExpressionUUID->"9df4d4bf-ebc7-474d-8405-05117ca0943a"],
Cell[37638, 1192, 879, 27, 53, "Output",ExpressionUUID->"027e9395-17d5-4101-aa0c-de812559a0dd"]
}, Open ]],
Cell[CellGroupData[{
Cell[38554, 1224, 221, 4, 44, "Input",ExpressionUUID->"a7a6dd15-fc98-4490-9023-3b32401d598b"],
Cell[38778, 1230, 314, 8, 53, "Output",ExpressionUUID->"f54deb8c-4322-4cd2-ae3b-f5e242f9375a"]
}, Open ]],
Cell[CellGroupData[{
Cell[39129, 1243, 858, 25, 61, "Input",ExpressionUUID->"62795d71-4bff-4da4-b0a4-a26aefb2481f"],
Cell[39990, 1270, 526, 16, 51, "Output",ExpressionUUID->"96de3ca2-6fb3-4ad7-b3a5-17588f931f27"]
}, Open ]],
Cell[40531, 1289, 1296, 39, 53, "Input",ExpressionUUID->"c26b0c41-1cdc-4fab-b61c-ee62c2aaa64d"],
Cell[CellGroupData[{
Cell[41852, 1332, 230, 3, 30, "Input",ExpressionUUID->"6ecff7c3-93d6-46f5-ae9c-7f01f7e84423"],
Cell[42085, 1337, 1163, 37, 54, "Output",ExpressionUUID->"22dc3d63-2568-4083-8c31-8f98edca112f"]
}, Open ]],
Cell[CellGroupData[{
Cell[43285, 1379, 1138, 37, 111, "Input",ExpressionUUID->"d56a95a1-b6a5-4045-bb96-11844e522b2b"],
Cell[44426, 1418, 858, 26, 56, "Output",ExpressionUUID->"e27c21b3-1bd1-4075-90eb-b36a65d9f54a"]
}, Open ]],
Cell[45299, 1447, 951, 28, 53, "Input",ExpressionUUID->"1a637675-cf20-4a7b-8e45-c31548979a56"],
Cell[46253, 1477, 220, 6, 48, "Input",ExpressionUUID->"df20baf4-c4d4-416e-82de-c6fb2078a3fe"],
Cell[46476, 1485, 965, 29, 54, "Input",ExpressionUUID->"c88a447a-73a3-40ef-bfdf-678279c850cb"],
Cell[CellGroupData[{
Cell[47466, 1518, 147, 2, 30, "Input",ExpressionUUID->"92212f3c-774a-4cb7-b173-5f1f326dd473"],
Cell[47616, 1522, 1611, 49, 101, "Output",ExpressionUUID->"c6358b8a-7021-4888-8b41-0f33a51ae798"]
}, Open ]],
Cell[CellGroupData[{
Cell[49264, 1576, 1670, 50, 205, "Input",ExpressionUUID->"befe8589-4871-4976-ad45-b00d984d045e"],
Cell[50937, 1628, 839, 25, 57, "Output",ExpressionUUID->"9d877aba-a73f-4725-8514-1b3d8b1848fb"]
}, Open ]],
Cell[51791, 1656, 177, 3, 30, "Input",ExpressionUUID->"ad320c06-a2a6-4ee4-9732-8062fbf74e05"],
Cell[51971, 1661, 892, 24, 71, "Input",ExpressionUUID->"8129c5c9-6a45-4737-b6f6-249cc8cfe9c3"],
Cell[CellGroupData[{
Cell[52888, 1689, 1674, 50, 142, "Input",ExpressionUUID->"a65a5d8b-95f8-4f10-9ab9-3ad9ff4a2de3"],
Cell[54565, 1741, 560, 15, 55, "Output",ExpressionUUID->"4572f45d-2236-460e-a7bb-f0a772b765c3"],
Cell[55128, 1758, 598, 16, 55, "Output",ExpressionUUID->"f55ce82d-6653-48fc-89ec-b3bd1eaeaf33"]
}, Open ]],
Cell[CellGroupData[{
Cell[55763, 1779, 996, 27, 65, "Input",ExpressionUUID->"fd75f1b0-729c-474e-9162-f5949ca6b41e"],
Cell[56762, 1808, 774, 22, 60, "Output",ExpressionUUID->"782a7a17-550b-4934-b0c2-6ae2f61d8dc2"]
}, Open ]],
Cell[57551, 1833, 6904, 208, 364, "Text",ExpressionUUID->"c1302d94-3429-4fdc-a790-1c9d3622ab29"],
Cell[64458, 2043, 477, 9, 81, "Text",ExpressionUUID->"6de8c4f0-feb4-4db9-bee5-bfb29f46eabd"],
Cell[64938, 2054, 253, 5, 73, "Input",ExpressionUUID->"24000ddd-8a2b-46d3-9637-c2d079c46c28"],
Cell[65194, 2061, 1731, 54, 94, "Input",ExpressionUUID->"08ff1af5-4775-4dfc-baa5-5ff41a6a28ef"],
Cell[66928, 2117, 246, 6, 48, "Input",ExpressionUUID->"5a1e15ee-6c80-4be7-8d1e-9c96017e5932"],
Cell[CellGroupData[{
Cell[67199, 2127, 177, 2, 30, "Input",ExpressionUUID->"285bea43-c0c5-4e6c-b6a8-5796dd8c93a7"],
Cell[67379, 2131, 869, 26, 53, "Output",ExpressionUUID->"488f9cb2-5e4c-4f9c-864a-d6d015928004"]
}, Open ]],
Cell[CellGroupData[{
Cell[68285, 2162, 256, 5, 44, "Input",ExpressionUUID->"0d0bef37-eb09-4832-a63d-34602aa6255d"],
Cell[68544, 2169, 1973, 57, 147, "Output",ExpressionUUID->"830bb23f-16b2-4e78-ade0-d0d46ceb89c4"]
}, Open ]],
Cell[70532, 2229, 969, 27, 90, "Input",ExpressionUUID->"9a31314b-e518-445c-823b-d40bb2220501"],
Cell[71504, 2258, 909, 28, 59, "Input",ExpressionUUID->"7e1d8e02-f3f6-49ca-9e1f-cd7422b8c292"],
Cell[72416, 2288, 1663, 52, 109, "Input",ExpressionUUID->"79eb1dba-b6cd-4634-81ed-71d835456bc8"],
Cell[CellGroupData[{
Cell[74104, 2344, 147, 2, 30, "Input",ExpressionUUID->"a245dfab-7973-42db-baa2-916fc2893131"],
Cell[74254, 2348, 1565, 50, 107, "Output",ExpressionUUID->"1e73404a-4664-4486-8ee1-26f616ae8e7c"]
}, Open ]],
Cell[CellGroupData[{
Cell[75856, 2403, 1631, 53, 124, "Input",ExpressionUUID->"88f25877-5a56-4e82-97a3-1428b7a18c5e"],
Cell[77490, 2458, 1188, 35, 83, "Output",ExpressionUUID->"81d6d446-58a5-46ba-b4c8-839319313815"]
}, Open ]],
Cell[78693, 2496, 404, 8, 88, "Input",ExpressionUUID->"e5aa0f4e-9e37-4fff-8f39-c0d019aa74c9"],
Cell[CellGroupData[{
Cell[79122, 2508, 8700, 224, 552, "Input",ExpressionUUID->"d9231e8a-4ed5-4775-8997-39d60c35e2ae"],
Cell[87825, 2734, 5583, 143, 267, "Output",ExpressionUUID->"9e9d7120-c797-45b4-a6c6-4de09ae52cde"]
}, Open ]],
Cell[CellGroupData[{
Cell[93445, 2882, 148, 2, 30, "Input",ExpressionUUID->"9e619c21-6ecb-472d-8ec9-d12f085553c7"],
Cell[93596, 2886, 2910, 80, 180, "Output",ExpressionUUID->"1943f0f5-857e-493e-897d-a0e218b7c2f3"]
}, Open ]],
Cell[CellGroupData[{
Cell[96543, 2971, 163, 3, 44, "Input",ExpressionUUID->"174614ba-e754-46c4-8fd2-f4b01a6b886f"],
Cell[96709, 2976, 2804, 83, 153, "Output",ExpressionUUID->"1558bb38-bc4b-450e-a3e6-5a272149cbce"]
}, Open ]],
Cell[99528, 3062, 990, 30, 59, "Input",ExpressionUUID->"a614fb5e-cfae-4744-8e1a-b24ff4d02006"],
Cell[CellGroupData[{
Cell[100543, 3096, 232, 4, 44, "Input",ExpressionUUID->"d79151c4-61c8-436b-b243-9783fac05a76"],
Cell[100778, 3102, 1842, 58, 124, "Output",ExpressionUUID->"b1eec5d8-c14e-48ef-a46a-92f969ba9fe5"]
}, Open ]],
Cell[CellGroupData[{
Cell[102657, 3165, 1913, 60, 143, "Input",ExpressionUUID->"f1bb60b3-3452-4a1f-8a26-c4a610b5638e"],
Cell[104573, 3227, 1756, 54, 124, "Output",ExpressionUUID->"87a9622b-427e-4433-9e57-aa841b06d03d"]
}, Open ]],
Cell[CellGroupData[{
Cell[106366, 3286, 2051, 49, 191, "Input",ExpressionUUID->"b220bdfe-c554-4f51-a146-1fb592dbb8f8"],
Cell[108420, 3337, 427, 10, 24, "Message",ExpressionUUID->"4886e8ce-d5c3-4b56-8ba7-2f2e40cc2786"]
}, Open ]],
Cell[CellGroupData[{
Cell[108884, 3352, 1268, 35, 105, "Input",ExpressionUUID->"42fab355-0d81-4f98-8e18-70eece043b12"],
Cell[110155, 3389, 90658, 1484, 262, "Output",ExpressionUUID->"e594a1e0-d83a-4c28-a9dd-be4f94a4c402"]
}, Open ]],
Cell[200828, 4876, 152, 3, 30, "Input",ExpressionUUID->"76afd07f-9f0b-4263-bd89-41a7fead6928"],
Cell[200983, 4881, 203, 4, 30, "Input",ExpressionUUID->"e24fd1c0-2a70-4cd6-8acd-384ceb378ef6"],
Cell[CellGroupData[{
Cell[201211, 4889, 1585, 39, 206, "Input",ExpressionUUID->"16ae2118-271a-4af0-b508-e160116a17ba"],
Cell[202799, 4930, 3512, 75, 231, "Output",ExpressionUUID->"1cbb1765-aaa4-490f-bf11-ee63019a8837"]
}, Open ]],
Cell[206326, 5008, 284, 6, 44, "Input",ExpressionUUID->"335f493b-576e-43e7-8ab1-e5fa03353f35"],
Cell[206613, 5016, 130, 3, 30, "Input",ExpressionUUID->"dcfe7364-1920-474f-b418-34e014ac8060"],
Cell[206746, 5021, 152, 3, 30, "Input",ExpressionUUID->"1b67bcc4-adc2-466e-960f-834dd249e45c"],
Cell[CellGroupData[{
Cell[206923, 5028, 2032, 58, 206, "Input",ExpressionUUID->"ff0d07a0-60a2-4bf9-88df-f46f94f464ca"],
Cell[208958, 5088, 324, 8, 52, "Output",ExpressionUUID->"8b2b0bd8-0a99-4390-9682-ca01282f5f70"]
}, Open ]],
Cell[CellGroupData[{
Cell[209319, 5101, 1630, 46, 173, "Input",ExpressionUUID->"1fc996b0-9b01-4d7b-b0c2-4826e78cbbfa"],
Cell[210952, 5149, 3616, 101, 212, "Output",ExpressionUUID->"179532c7-bfa3-41d8-8f1e-af95d58f4758"]
}, Open ]],
Cell[CellGroupData[{
Cell[214605, 5255, 161, 3, 44, "Input",ExpressionUUID->"61de81c9-97d0-42a0-8864-90ce1c15a019"],
Cell[214769, 5260, 2601, 73, 151, "Output",ExpressionUUID->"b289a37a-0995-4289-93ab-71f2c683402a"]
}, Open ]],
Cell[217385, 5336, 1778, 56, 109, "Input",ExpressionUUID->"58f465af-1f7d-48e3-b3c1-16de01a087f5"],
Cell[CellGroupData[{
Cell[219188, 5396, 337, 8, 44, "Input",ExpressionUUID->"7f1807ea-4998-4108-a577-ed6a2b753450"],
Cell[219528, 5406, 3453, 81, 177, "Output",ExpressionUUID->"5de7947e-c1ee-4c76-a5c0-5b3dd97e17c7"]
}, Open ]],
Cell[222996, 5490, 3251, 78, 185, "Input",ExpressionUUID->"a827c4fc-7eeb-497c-934f-ddf4041fa2f1"],
Cell[CellGroupData[{
Cell[226272, 5572, 283, 4, 52, "Input",ExpressionUUID->"ac23f933-b1e9-497d-b62d-3c75fb6db2ef"],
Cell[226558, 5578, 217, 3, 34, "Output",ExpressionUUID->"ca52a898-c941-4a04-b79a-02fbf59714c3"]
}, Open ]],
Cell[CellGroupData[{
Cell[226812, 5586, 4147, 93, 361, "Input",ExpressionUUID->"c3b4e641-b15a-4941-8520-fad1b4589307"],
Cell[230962, 5681, 6950, 132, 227, "Output",ExpressionUUID->"1fd60b7f-35dd-4499-8c25-b523f89d1978"]
}, Open ]],
Cell[237927, 5816, 3672, 90, 252, "Input",ExpressionUUID->"577a5129-b80e-4d63-bc21-e66d53fe5569"],
Cell[CellGroupData[{
Cell[241624, 5910, 172, 2, 30, "Input",ExpressionUUID->"fa92f3b6-c22d-4044-a2a1-dd9811c086d1"],
Cell[241799, 5914, 15306, 441, 825, "Output",ExpressionUUID->"81c4832c-272a-4e05-8884-94571727aad2"]
}, Open ]],
Cell[CellGroupData[{
Cell[257142, 6360, 161, 3, 44, "Input",ExpressionUUID->"0b04f4bc-eda7-4097-bddf-ecccaf062ae3"],
Cell[257306, 6365, 658, 20, 56, "Output",ExpressionUUID->"8f7a812a-37da-43dd-bbfd-e69cbc0c66aa"]
}, Open ]],
Cell[257979, 6388, 3689, 90, 252, "Input",ExpressionUUID->"cb62ea5c-30bf-4b2c-8b5f-81803a8a11c9"],
Cell[CellGroupData[{
Cell[261693, 6482, 171, 2, 30, "Input",ExpressionUUID->"60e26d6a-d018-414e-9788-3015dd6e84ca"],
Cell[261867, 6486, 14170, 413, 825, "Output",ExpressionUUID->"97f6b281-019b-426e-b030-007f384a05d9"]
}, Open ]],
Cell[CellGroupData[{
Cell[276074, 6904, 161, 3, 44, "Input",ExpressionUUID->"01ed183d-bf35-43f4-8ede-4e8812b84e5f"],
Cell[276238, 6909, 438, 12, 56, "Output",ExpressionUUID->"c624610d-5b33-425d-8ef8-77e2d0a80045"]
}, Open ]],
Cell[276691, 6924, 3182, 77, 185, "Input",ExpressionUUID->"33dc3bf5-26f4-4bf0-9ccc-e9be9844afa4"],
Cell[CellGroupData[{
Cell[279898, 7005, 231, 4, 44, "Input",ExpressionUUID->"9bdf7fff-2758-4f9f-b99a-f5122ee9c7c3"],
Cell[280132, 7011, 5193, 127, 273, "Output",ExpressionUUID->"7045e9cb-113f-4d5c-bcbc-22d820310041"]
}, Open ]],
Cell[CellGroupData[{
Cell[285362, 7143, 161, 3, 44, "Input",ExpressionUUID->"39a375dd-654a-4efc-a7a5-4c1e5135ac49"],
Cell[285526, 7148, 763, 22, 57, "Output",ExpressionUUID->"959ae577-9e9f-469c-9f5a-58aedd536471"]
}, Open ]],
Cell[CellGroupData[{
Cell[286326, 7175, 314, 6, 44, "Input",ExpressionUUID->"0e7d1d7b-8d9c-4c6c-aa7d-f8f5b6031947"],
Cell[286643, 7183, 563, 15, 55, "Output",ExpressionUUID->"3680c070-3cc4-4789-8d46-ba01297c1868"]
}, Open ]],
Cell[287221, 7201, 517, 13, 52, "Input",ExpressionUUID->"d0fb5407-31b1-4a55-9df3-886ab2aecc99"],
Cell[287741, 7216, 511, 13, 52, "Input",ExpressionUUID->"8eeb6dd0-d272-4dfc-8445-98b95ce575c4"],
Cell[288255, 7231, 543, 14, 52, "Input",ExpressionUUID->"bcaa07d5-428c-406e-a5ec-2ffecc8245da"],
Cell[CellGroupData[{
Cell[288823, 7249, 320, 7, 52, "Input",ExpressionUUID->"648dd0a2-d2fb-4d7b-b6b8-d0e3683ed267"],
Cell[289146, 7258, 822, 24, 55, "Output",ExpressionUUID->"cc00311e-1099-4d37-8259-93f15c33c6c6"]
}, Open ]],
Cell[CellGroupData[{
Cell[290005, 7287, 856, 25, 65, "Input",ExpressionUUID->"7d823d26-b684-4204-94a3-af4d94d38247"],
Cell[290864, 7314, 766, 22, 62, "Output",ExpressionUUID->"f03e7b81-5dc1-48b6-a2e2-25aa606d3d29"]
}, Open ]],
Cell[291645, 7339, 334, 6, 30, "Input",ExpressionUUID->"c859cba9-e08a-4fbe-b3cb-de11dd6982fc"],
Cell[CellGroupData[{
Cell[292004, 7349, 194, 2, 30, "Input",ExpressionUUID->"7e29359d-6a42-4428-a7c2-5ee306af14b5"],
Cell[292201, 7353, 851, 24, 55, "Output",ExpressionUUID->"f082410c-0f31-4650-b6ab-db51b40e8b44"]
}, Open ]],
Cell[CellGroupData[{
Cell[293089, 7382, 864, 25, 65, "Input",ExpressionUUID->"8e9daf56-1f8e-4dbe-b11d-ae9598391c66"],
Cell[293956, 7409, 843, 24, 62, "Output",ExpressionUUID->"a12b9d7c-caff-4ca4-b979-4c7c8315f428"]
}, Open ]],
Cell[CellGroupData[{
Cell[294836, 7438, 942, 26, 72, "Input",ExpressionUUID->"7341dd07-0f7f-4355-bcc0-fb2f9a2acf5b"],
Cell[295781, 7466, 862, 24, 62, "Output",ExpressionUUID->"f4a38f79-2f7a-4930-b554-19ff1f5b7c8d"]
}, Open ]],
Cell[296658, 7493, 308, 5, 30, "Input",ExpressionUUID->"355f4013-4679-492e-a2ee-dc65975a9a52"],
Cell[CellGroupData[{
Cell[296991, 7502, 194, 2, 30, "Input",ExpressionUUID->"f8d8f4f9-9820-4290-b7d3-24800ecde33e"],
Cell[297188, 7506, 859, 25, 55, "Output",ExpressionUUID->"ff57d17f-24f5-4d44-b944-cf81e8da6649"]
}, Open ]],
Cell[CellGroupData[{
Cell[298084, 7536, 892, 26, 65, "Input",ExpressionUUID->"517531a3-eb35-4dcf-a78a-3ecaebc908a6"],
Cell[298979, 7564, 802, 23, 62, "Output",ExpressionUUID->"148e954f-9a54-4fa7-8acb-a5ba7bb73d0c"]
}, Open ]],
Cell[299796, 7590, 515, 13, 52, "Input",ExpressionUUID->"7023d85a-233f-4f31-9204-192676ddf108"],
Cell[CellGroupData[{
Cell[300336, 7607, 173, 2, 30, "Input",ExpressionUUID->"e355e724-5708-4e0a-8b3a-2f6479aea01d"],
Cell[300512, 7611, 14277, 413, 822, "Output",ExpressionUUID->"dc8bcb47-d2c7-4abd-baf3-98bfc77314d1"]
}, Open ]],
Cell[CellGroupData[{
Cell[314826, 8029, 163, 3, 44, "Input",ExpressionUUID->"6fee4629-9bf2-408d-9958-bdce3c34d490"],
Cell[314992, 8034, 517, 14, 54, "Output",ExpressionUUID->"f27a040c-29b5-4994-9b67-bd5de6b63f89"]
}, Open ]],
Cell[315524, 8051, 511, 13, 52, "Input",ExpressionUUID->"face1d5d-e46b-415f-bdf4-5b6e369bc655"],
Cell[CellGroupData[{
Cell[316060, 8068, 172, 2, 30, "Input",ExpressionUUID->"423dd578-cbad-4cc0-a57c-b45ea56b6b8b"],
Cell[316235, 8072, 14172, 413, 825, "Output",ExpressionUUID->"e28c1298-68f0-4fa8-ac15-d06445b1297c"]
}, Open ]],
Cell[CellGroupData[{
Cell[330444, 8490, 161, 3, 44, "Input",ExpressionUUID->"7b5272df-dabb-4bba-8912-60f8d1d7a472"],
Cell[330608, 8495, 438, 12, 56, "Output",ExpressionUUID->"9a3b4af7-9b45-4f90-ac58-cba61ae710f4"]
}, Open ]],
Cell[331061, 8510, 544, 14, 52, "Input",ExpressionUUID->"95b9c451-956a-46c3-a812-21f5afc16069"],
Cell[CellGroupData[{
Cell[331630, 8528, 172, 2, 30, "Input",ExpressionUUID->"1331e5f9-8869-4801-a208-7dd3e9d0f0d4"],
Cell[331805, 8532, 15304, 441, 825, "Output",ExpressionUUID->"2473448e-573d-4196-8f0a-504be23ae8c5"]
}, Open ]],
Cell[CellGroupData[{
Cell[347146, 8978, 161, 3, 44, "Input",ExpressionUUID->"8ace79a0-47eb-4f68-8d2f-2288e7dfe1e3"],
Cell[347310, 8983, 658, 20, 56, "Output",ExpressionUUID->"875632e0-ed4c-4bf3-8e26-aaa4c192aaea"]
}, Open ]],
Cell[CellGroupData[{
Cell[348005, 9008, 686, 21, 66, "Input",ExpressionUUID->"fe79fe2b-4194-4356-8e53-970735bbed1a"],
Cell[348694, 9031, 712, 19, 54, "Output",ExpressionUUID->"ea390b66-c0a9-4249-9c1c-af23d4510221"]
}, Open ]],
Cell[349421, 9053, 269, 6, 30, "Input",ExpressionUUID->"3f13236d-6366-402e-8019-6d38a279dbaa"],
Cell[CellGroupData[{
Cell[349715, 9063, 148, 2, 30, "Input",ExpressionUUID->"e1075a4b-ef2c-448c-9fbe-bf4c7d3064d4"],
Cell[349866, 9067, 219, 5, 34, "Output",ExpressionUUID->"82ad9472-11b9-47d3-a9f4-b4e9fe8bb3be"]
}, Open ]],
Cell[CellGroupData[{
Cell[350122, 9077, 232, 6, 46, "Input",ExpressionUUID->"7f578bd3-d4ca-4367-85b7-cb0db5690e55"],
Cell[350357, 9085, 346, 9, 34, "Output",ExpressionUUID->"9f0e7346-4146-403a-b6fa-be780ebbac16"]
}, Open ]],
Cell[350718, 9097, 1213, 35, 101, "Input",ExpressionUUID->"b00a9c4b-9e68-4c9c-83cf-ad24c2458eec"],
Cell[CellGroupData[{
Cell[351956, 9136, 187, 2, 30, "Input",ExpressionUUID->"aca679cc-6619-47c3-80a5-1e316baa492a"],
Cell[352146, 9140, 1050, 32, 99, "Output",ExpressionUUID->"86412744-7390-4ce5-9169-9fc6fcb0619f"]
}, Open ]],
Cell[CellGroupData[{
Cell[353233, 9177, 1093, 33, 112, "Input",ExpressionUUID->"56d67d9b-37a3-4770-b999-7199713b08e5"],
Cell[354329, 9212, 411, 11, 56, "Output",ExpressionUUID->"e6a8dc58-a69a-4051-8d0a-4670e54703c4"]
}, Open ]],
Cell[CellGroupData[{
Cell[354777, 9228, 266, 5, 44, "Input",ExpressionUUID->"d52abdd9-2272-43ce-a8cc-e63dab3d5bbf"],
Cell[355046, 9235, 5098, 131, 272, "Output",ExpressionUUID->"967d5eea-e1c1-4a0e-853d-e4174c406fa1"]
}, Open ]],
Cell[CellGroupData[{
Cell[360181, 9371, 280, 4, 53, "Subtitle",ExpressionUUID->"b8b56881-106e-4c0e-85ac-d48d353f5905"],
Cell[360464, 9377, 2835, 88, 188, "Input",ExpressionUUID->"c5ecdf58-761b-499f-8129-bea055e10c33"],
Cell[363302, 9467, 2205, 66, 153, "Input",ExpressionUUID->"4a7748bd-485d-4b23-b1b0-e56968b92755"],
Cell[CellGroupData[{
Cell[365532, 9537, 180, 2, 30, "Input",ExpressionUUID->"37c7be6f-095a-45bd-8e2c-ad231b9858e6"],
Cell[365715, 9541, 3882, 118, 246, "Output",ExpressionUUID->"e1a12acc-1f14-4879-8710-ad01c235211e"]
}, Open ]],
Cell[CellGroupData[{
Cell[369634, 9664, 163, 3, 44, "Input",ExpressionUUID->"6d377311-bced-423a-97e3-6c0074dffe2d"],
Cell[369800, 9669, 2806, 78, 165, "Output",ExpressionUUID->"eb205508-0f31-44a2-bc58-efa0da607b44"]
}, Open ]],
Cell[CellGroupData[{
Cell[372643, 9752, 177, 2, 30, "Input",ExpressionUUID->"c4cae4f8-0031-4c3e-a8cd-fca6b7cfbe3d"],
Cell[372823, 9756, 6467, 200, 409, "Output",ExpressionUUID->"db72edac-e3ad-41e2-b79b-977612ff22aa"]
}, Open ]],
Cell[CellGroupData[{
Cell[379327, 9961, 163, 3, 44, "Input",ExpressionUUID->"8ab5e88b-bd09-4a23-8728-6061085d9b42"],
Cell[379493, 9966, 2699, 75, 144, "Output",ExpressionUUID->"27e44f8d-c4c0-4a92-b18d-d3de8478962a"]
}, Open ]],
Cell[382207, 10044, 5030, 137, 224, "Input",ExpressionUUID->"866f1cd1-dbeb-4421-8a25-20f28f1deb1e"],
Cell[CellGroupData[{
Cell[387262, 10185, 187, 2, 30, "Input",ExpressionUUID->"d358fbf4-aba0-4bb0-b389-fefe29c59d8d"],
Cell[387452, 10189, 2459, 72, 119, "Output",ExpressionUUID->"0745acc3-3490-45cb-a7b7-384cd1d653a4"]
}, Open ]],
Cell[CellGroupData[{
Cell[389948, 10266, 2590, 74, 155, "Input",ExpressionUUID->"6830a5ed-7dbd-4670-90c4-f6d2e161f333"],
Cell[392541, 10342, 1070, 29, 60, "Output",ExpressionUUID->"ea4b1f9b-6766-4e98-bb26-99a1abab8f02"]
}, Open ]],
Cell[CellGroupData[{
Cell[393648, 10376, 173, 2, 30, "Input",ExpressionUUID->"141a7eb7-9867-4c7a-ae04-dd974e22f5ce"],
Cell[393824, 10380, 409, 13, 49, "Output",ExpressionUUID->"46959103-25a9-4320-b9dd-7a242737d7ca"]
}, Open ]],
Cell[CellGroupData[{
Cell[394270, 10398, 430, 14, 60, "Input",ExpressionUUID->"a9105223-ffe4-48df-849a-10738483c4a1"],
Cell[394703, 10414, 265, 7, 51, "Output",ExpressionUUID->"d77f119a-5cb6-4e8f-a954-069e0d441aa3"]
}, Open ]],
Cell[CellGroupData[{
Cell[395005, 10426, 175, 2, 30, "Input",ExpressionUUID->"69cbe0ac-0d0d-406c-adec-564a49d27427"],
Cell[395183, 10430, 8853, 270, 584, "Output",ExpressionUUID->"8647430a-5883-4433-8ebd-d676dfeb7d77"]
}, Open ]],
Cell[404051, 10703, 163, 3, 44, "Input",ExpressionUUID->"fd935801-2834-4540-977e-e4a0d557f4e6"],
Cell[404217, 10708, 3050, 91, 142, "Input",ExpressionUUID->"0d0423a0-7cf2-4dc7-b11e-2e4451622961"],
Cell[407270, 10801, 428, 10, 203, "Text",ExpressionUUID->"a6b42914-d553-4756-a327-ef7982bad193"],
Cell[407701, 10813, 11693, 342, 777, "Input",ExpressionUUID->"f9f0cff8-bc78-401e-87d4-3c797dfe3eb9"],
Cell[419397, 11157, 150, 3, 59, "Text",ExpressionUUID->"ee952a53-50ce-42ed-a4e7-ca7e220a6539"],
Cell[CellGroupData[{
Cell[419572, 11164, 224, 4, 44, "Input",ExpressionUUID->"69a65153-c9e2-4cfd-b354-28bed5654457"],
Cell[419799, 11170, 521, 16, 53, "Output",ExpressionUUID->"26894b98-126c-4973-b370-94f0c04bdaf6"]
}, Open ]],
Cell[420335, 11189, 547, 17, 63, "Input",ExpressionUUID->"023c70d7-64d8-4784-8253-840d87e35992"],
Cell[420885, 11208, 261, 7, 49, "Input",ExpressionUUID->"8217a8ed-4f36-4837-9c9a-c79196a5dd4b"],
Cell[421149, 11217, 71, 0, 35, "Text",ExpressionUUID->"0788eebd-cee6-4d5b-87c5-72a176f1aaa3"],
Cell[CellGroupData[{
Cell[421245, 11221, 224, 4, 44, "Input",ExpressionUUID->"96b1bf9d-23f3-4de7-a81d-2907acd63259"],
Cell[421472, 11227, 617, 20, 53, "Output",ExpressionUUID->"a58c3144-e05d-4db3-838d-e732bbd51101"]
}, Open ]],
Cell[422104, 11250, 648, 21, 63, "Input",ExpressionUUID->"ac06a368-b8e4-436c-975a-7e776aef2b79"],
Cell[422755, 11273, 341, 10, 49, "Input",ExpressionUUID->"ec4069c4-3680-4aa4-819c-86367990de8f"],
Cell[CellGroupData[{
Cell[423121, 11287, 221, 4, 44, "Input",ExpressionUUID->"cf0a8f5c-a860-4217-baa7-fdd12ea7d8f0"],
Cell[423345, 11293, 558, 18, 55, "Output",ExpressionUUID->"60c04f1f-8c82-4a3e-9b47-b4a2ec031500"]
}, Open ]],
Cell[CellGroupData[{
Cell[423940, 11316, 588, 20, 65, "Input",ExpressionUUID->"2415ce9b-8dd2-4826-a4ac-46ff5d320e77"],
Cell[424531, 11338, 248, 6, 52, "Output",ExpressionUUID->"b3da5b01-aa6b-4a4f-a54a-786677763113"]
}, Open ]],
Cell[CellGroupData[{
Cell[424816, 11349, 221, 4, 44, "Input",ExpressionUUID->"fff6de1b-a044-4acf-a797-cd75be6930a1"],
Cell[425040, 11355, 169, 3, 50, "Output",ExpressionUUID->"3ddba1ef-8548-4829-8a04-508bf81a9069"]
}, Open ]],
Cell[CellGroupData[{
Cell[425246, 11363, 228, 4, 44, "Input",ExpressionUUID->"18d91f82-d7d4-43d6-843c-6dffd47b894b"],
Cell[425477, 11369, 1539, 47, 100, "Output",ExpressionUUID->"7d16c553-f218-45d1-b7fd-22bf98a9a567"]
}, Open ]],
Cell[CellGroupData[{
Cell[427053, 11421, 1594, 48, 169, "Input",ExpressionUUID->"b4a598f5-24a4-4461-8176-7a1520b8b36f"],
Cell[428650, 11471, 873, 26, 56, "Output",ExpressionUUID->"e9b768c9-451d-49cc-8ca4-6c44623bdc74"]
}, Open ]],
Cell[429538, 11500, 154, 3, 30, "Input",ExpressionUUID->"c7ed4019-1053-45bb-bfbd-9715ce6cf684"],
Cell[CellGroupData[{
Cell[429717, 11507, 229, 4, 44, "Input",ExpressionUUID->"3cbd4576-01f7-42af-ba56-f7690c7eef92"],
Cell[429949, 11513, 1592, 49, 100, "Output",ExpressionUUID->"4391225d-06a4-4bbc-b701-de4306c73122"]
}, Open ]],
Cell[CellGroupData[{
Cell[431578, 11567, 1651, 51, 169, "Input",ExpressionUUID->"eba819fb-cb62-4218-a424-becf55bffd78"],
Cell[433232, 11620, 875, 26, 56, "Output",ExpressionUUID->"8102b6bd-db7d-4fad-8fae-112efcb78d4e"]
}, Open ]],
Cell[CellGroupData[{
Cell[434144, 11651, 225, 4, 44, "Input",ExpressionUUID->"8aa961c8-0989-4cb3-9763-022a2146fe23"],
Cell[434372, 11657, 192, 4, 51, "Output",ExpressionUUID->"7c2a9d35-261d-4e3f-8afc-91d129ab6f73"]
}, Open ]],
Cell[CellGroupData[{
Cell[434601, 11666, 225, 4, 44, "Input",ExpressionUUID->"6c073c03-ea3f-4bed-a21e-24f1e9f88f74"],
Cell[434829, 11672, 13009, 415, 781, "Output",ExpressionUUID->"8123159f-8e70-4d07-9ef8-119d3e503c9c"]
}, Open ]],
Cell[CellGroupData[{
Cell[447875, 12092, 163, 3, 44, "Input",ExpressionUUID->"a36e177e-a22d-4d76-a1ef-1a0cb9ebaf34"],
Cell[448041, 12097, 1059, 33, 56, "Output",ExpressionUUID->"e4e2590f-b1d2-47cd-8eee-4183f5acfb17"]
}, Open ]],
Cell[449115, 12133, 200, 4, 59, "Text",ExpressionUUID->"1d0007e7-e4cb-4076-93b9-0728b2939734"],
Cell[CellGroupData[{
Cell[449340, 12141, 222, 4, 44, "Input",ExpressionUUID->"dcd3787c-9369-4e84-8bc8-55e60ebfc7da"],
Cell[449565, 12147, 952, 28, 56, "Output",ExpressionUUID->"c6f44525-99bb-48e7-8f01-9b48629a36a1"]
}, Open ]],
Cell[450532, 12178, 996, 30, 98, "Input",ExpressionUUID->"9ee10b26-735a-4db8-b2a5-abed8b5171df"],
Cell[451531, 12210, 416, 12, 52, "Input",ExpressionUUID->"a830923f-2642-4b57-bf3f-3c31fd7b160f"],
Cell[CellGroupData[{
Cell[451972, 12226, 224, 4, 44, "Input",ExpressionUUID->"a5f4d57f-e8aa-4be3-aec5-b65bfd6f067b"],
Cell[452199, 12232, 1288, 41, 99, "Output",ExpressionUUID->"614f544f-cc26-475e-82fe-5581e830680e"]
}, Open ]],
Cell[453502, 12276, 1337, 42, 142, "Input",ExpressionUUID->"92745e94-c60b-4f89-9f03-9bcef5e3f967"],
Cell[454842, 12320, 451, 13, 54, "Input",ExpressionUUID->"0624274e-a21b-44d1-9cb6-5b2cafb706d0"],
Cell[CellGroupData[{
Cell[455318, 12337, 271, 5, 44, "Input",ExpressionUUID->"b1bb9c3d-616a-4d05-a1c2-6a692110f7ee"],
Cell[455592, 12344, 301, 8, 51, "Output",ExpressionUUID->"8b47ee6c-a2f4-47a4-8654-9eba6133d425"]
}, Open ]],
Cell[455908, 12355, 221, 4, 44, "Input",ExpressionUUID->"7426c866-163a-4c75-8700-640819c82720"],
Cell[456132, 12361, 191, 4, 30, "Input",ExpressionUUID->"25f1ee49-6322-441a-833b-451ef92dd206"],
Cell[CellGroupData[{
Cell[456348, 12369, 228, 4, 44, "Input",ExpressionUUID->"00a934dc-83ee-4289-8ca5-436539b3e02c"],
Cell[456579, 12375, 3831, 107, 210, "Output",ExpressionUUID->"1345a549-cb9a-4814-a3dd-459fd4da3a54"]
}, Open ]],
Cell[CellGroupData[{
Cell[460447, 12487, 163, 3, 44, "Input",ExpressionUUID->"85cdecaa-dded-497f-ad14-3a76241ce494"],
Cell[460613, 12492, 1990, 63, 102, "Output",ExpressionUUID->"591b1a59-47cf-4725-844c-589248bbb1d8"]
}, Open ]],
Cell[CellGroupData[{
Cell[462640, 12560, 278, 5, 44, "Input",ExpressionUUID->"97601ac0-c8c4-4e1a-aa0f-72d501ad19ca"],
Cell[462921, 12567, 4092, 115, 208, "Output",ExpressionUUID->"42af41d5-f904-4251-84b1-4d4445ce547c"]
}, Open ]],
Cell[CellGroupData[{
Cell[467050, 12687, 162, 3, 44, "Input",ExpressionUUID->"f4685538-8477-4bfb-b9b0-fa02e0216a4f"],
Cell[467215, 12692, 1968, 62, 102, "Output",ExpressionUUID->"be88100d-d977-43a7-8dcd-b8fb1ac00e22"]
}, Open ]],
Cell[CellGroupData[{
Cell[469220, 12759, 250, 5, 44, "Input",ExpressionUUID->"85463e01-557c-4198-9260-3d72a8955f6c"],
Cell[469473, 12766, 149, 2, 34, "Output",ExpressionUUID->"9bcbc918-7320-4c00-8e8d-1e082dac3593"]
}, Open ]],
Cell[CellGroupData[{
Cell[469659, 12773, 223, 4, 44, "Input",ExpressionUUID->"c25f5e66-8866-4511-858e-c2414e17a2da"],
Cell[469885, 12779, 15225, 467, 926, "Output",ExpressionUUID->"67c311e0-d403-435b-bb3a-746e05c1860e"]
}, Open ]],
Cell[CellGroupData[{
Cell[485147, 13251, 163, 3, 44, "Input",ExpressionUUID->"08b10875-cb82-4233-bacd-68a789676ccc"],
Cell[485313, 13256, 1935, 61, 102, "Output",ExpressionUUID->"a297019c-310a-4eaa-b891-ead5e2b8aaef"]
}, Open ]],
Cell[487263, 13320, 142, 3, 35, "Text",ExpressionUUID->"2bb3fe37-0fa7-4472-b5e6-bdb7849ee539"],
Cell[487408, 13325, 207, 4, 59, "Text",ExpressionUUID->"bfc41cf0-0eb8-49cd-bc5e-d1b9c1850f2f"],
Cell[CellGroupData[{
Cell[487640, 13333, 229, 4, 44, "Input",ExpressionUUID->"3387fdb6-ff0c-4ac1-8493-8e9e539ef0a3"],
Cell[487872, 13339, 353, 10, 52, "Output",ExpressionUUID->"c07dbebf-811f-4bce-b30e-7a3b21ab6b5b"]
}, Open ]],
Cell[CellGroupData[{
Cell[488262, 13354, 373, 11, 62, "Input",ExpressionUUID->"fbbe098d-f090-4c89-a70a-c3cbb5cc8a83"],
Cell[488638, 13367, 192, 4, 50, "Output",ExpressionUUID->"ad22f6bf-8b0f-4cc0-ac01-930c14ce38f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[488867, 13376, 229, 4, 44, "Input",ExpressionUUID->"38c37fd2-df0c-43d8-a452-39779d2d82fe"],
Cell[489099, 13382, 217, 5, 50, "Output",ExpressionUUID->"451eae0e-9a85-48eb-b8e2-c36006dd415c"]
}, Open ]],
Cell[CellGroupData[{
Cell[489353, 13392, 229, 4, 44, "Input",ExpressionUUID->"3f9e23a0-daa0-4e7c-ade1-0f90a1de98da"],
Cell[489585, 13398, 370, 11, 54, "Output",ExpressionUUID->"9d1214f1-9e41-4251-afa8-fbcdf1b87b71"]
}, Open ]],
Cell[CellGroupData[{
Cell[489992, 13414, 391, 13, 64, "Input",ExpressionUUID->"afedf418-3c09-4cf3-a030-1e648eb8783b"],
Cell[490386, 13429, 271, 7, 52, "Output",ExpressionUUID->"f2d4c640-1586-4fd7-a210-a7a6e91e327f"]
}, Open ]],
Cell[CellGroupData[{
Cell[490694, 13441, 231, 4, 44, "Input",ExpressionUUID->"63d1833b-6d86-4384-8811-33068cf18c89"],
Cell[490928, 13447, 149, 2, 34, "Output",ExpressionUUID->"e718d504-cdde-452d-b2a6-fdf8076a9ead"]
}, Open ]],
Cell[CellGroupData[{
Cell[491114, 13454, 237, 4, 44, "Input",ExpressionUUID->"bc5995a3-b199-4f3e-9203-377a55e09d49"],
Cell[491354, 13460, 7302, 226, 451, "Output",ExpressionUUID->"f014ddac-321e-4a4d-8b81-99f4d1feef83"]
}, Open ]],
Cell[CellGroupData[{
Cell[498693, 13691, 163, 3, 44, "Input",ExpressionUUID->"82fc3b33-e433-48f5-9007-9f22fd91843c"],
Cell[498859, 13696, 745, 21, 55, "Output",ExpressionUUID->"b45038e0-c795-4c02-9bb8-bf277c8f0561"]
}, Open ]],
Cell[CellGroupData[{
Cell[499641, 13722, 1303, 38, 119, "Input",ExpressionUUID->"82542bfb-6f51-445b-94da-13eb10f5725e"],
Cell[500947, 13762, 745, 21, 55, "Output",ExpressionUUID->"79f5dba8-f169-48c4-9d56-012bc4341b4d"]
}, Open ]],
Cell[501707, 13786, 173, 2, 30, "Input",ExpressionUUID->"a8d50fb7-7969-4aae-81bd-101d3f4a4554"],
Cell[501883, 13790, 152, 3, 30, "Input",ExpressionUUID->"6efda303-e23b-404b-8548-018a42706b8d"],
Cell[502038, 13795, 177, 3, 30, "Input",ExpressionUUID->"f06251b9-8d9e-488c-b863-35fe595143e5"],
Cell[502218, 13800, 144, 2, 30, "Input",ExpressionUUID->"eef7b7ca-bbf1-4101-b823-e9b5690ae4cb"],
Cell[502365, 13804, 154, 3, 30, "Input",ExpressionUUID->"19430f10-f6de-447a-b676-a0af59622c35"],
Cell[CellGroupData[{
Cell[502544, 13811, 234, 4, 44, "Input",ExpressionUUID->"34908f79-51e1-4802-8c8e-6cdf0d4f6f6c"],
Cell[502781, 13817, 4108, 129, 267, "Output",ExpressionUUID->"8274db6b-aec7-4f41-98d3-e7c64c3b69ca"]
}, Open ]],
Cell[CellGroupData[{
Cell[506926, 13951, 163, 3, 44, "Input",ExpressionUUID->"15718839-8417-4f0b-a9c2-e1e5f1847536"],
Cell[507092, 13956, 889, 29, 55, "Output",ExpressionUUID->"07a25120-2947-4553-bf24-76c012aa07d0"]
}, Open ]],
Cell[CellGroupData[{
Cell[508018, 13990, 1295, 37, 119, "Input",ExpressionUUID->"b6107486-a44f-471e-b0e5-7d8648b7fb40"],
Cell[509316, 14029, 892, 29, 55, "Output",ExpressionUUID->"1efb6b82-0dd2-4ce3-8287-6627ef56c586"]
}, Open ]],
Cell[CellGroupData[{
Cell[510245, 14063, 239, 4, 44, "Input",ExpressionUUID->"93d007f4-3e9e-45fc-953b-51e188afcbc5"],
Cell[510487, 14069, 1255, 36, 79, "Output",ExpressionUUID->"fec9cea1-fb2a-4d30-9662-62e40e38e36d"]
}, Open ]],
Cell[CellGroupData[{
Cell[511779, 14110, 1303, 38, 119, "Input",ExpressionUUID->"61a201f2-0a57-4f60-9a20-0e7be91f7ae8"],
Cell[513085, 14150, 743, 21, 55, "Output",ExpressionUUID->"dadf978f-8460-4ab2-af23-7eca09b64b1e"]
}, Open ]],
Cell[CellGroupData[{
Cell[513865, 14176, 232, 4, 44, "Input",ExpressionUUID->"ccc77ea3-08d4-43a6-b52b-aeeea2b9d407"],
Cell[514100, 14182, 151, 2, 34, "Output",ExpressionUUID->"1dd7a22e-c35f-4305-ac3c-56b7a060d845"]
}, Open ]],
Cell[CellGroupData[{
Cell[514288, 14189, 230, 4, 44, "Input",ExpressionUUID->"cfa15e3f-3cb8-45ef-afd1-b7617274042b"],
Cell[514521, 14195, 8840, 274, 452, "Output",ExpressionUUID->"ae28084c-a9df-4bd5-95de-3d09a48a2f0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[523398, 14474, 163, 3, 44, "Input",ExpressionUUID->"02164966-d820-4a5e-aa11-5833e095d9a9"],
Cell[523564, 14479, 917, 29, 55, "Output",ExpressionUUID->"b6e3d1e9-2721-4b8d-a75f-7ec3c83e6992"]
}, Open ]],
Cell[524496, 14511, 143, 2, 30, "Input",ExpressionUUID->"6bf7a771-7a38-463c-bed4-cc6ad36d0c3d"],
Cell[524642, 14515, 151, 3, 30, InheritFromParent,ExpressionUUID->"4bcdf3a6-3882-4362-a909-2565fe6e0aa9"],
Cell[524796, 14520, 143, 2, 30, "Input",ExpressionUUID->"d1c316ab-cf9e-44eb-8fcd-ae713d9f5408"],
Cell[524942, 14524, 152, 3, 30, InheritFromParent,ExpressionUUID->"57560928-8951-405f-b74b-a6723a27aa93"],
Cell[525097, 14529, 177, 3, 30, "Input",ExpressionUUID->"807db283-0a69-428f-8d39-c87415b9a17e"],
Cell[525277, 14534, 177, 3, 30, "Input",ExpressionUUID->"14db7fcf-70b2-4aaa-9bb7-925e94f2e8c5"],
Cell[525457, 14539, 152, 3, 30, InheritFromParent,ExpressionUUID->"1545ab07-fa9d-4081-b9f8-fcad1bd8925c"],
Cell[525612, 14544, 170, 2, 30, "Input",ExpressionUUID->"b043537c-c76c-4c8a-8898-f8f33842f1c2"],
Cell[525785, 14548, 152, 3, 30, InheritFromParent,ExpressionUUID->"647bc4a4-375d-401a-a45c-93f57e76459a"]
}, Open ]],
Cell[CellGroupData[{
Cell[525974, 14556, 511, 12, 53, "Subtitle",ExpressionUUID->"e9c5ef90-e8ac-40ba-a99a-eb2ad6be194b"],
Cell[526488, 14570, 5506, 173, 172, "Text",ExpressionUUID->"44e680c7-d41d-4e68-a180-35b724c765e7"],
Cell[531997, 14745, 988, 30, 59, "Input",ExpressionUUID->"75012582-daf3-49a4-ae41-fa2406f05157"],
Cell[532988, 14777, 630, 16, 88, "Input",ExpressionUUID->"5db29ac1-b4f2-43fe-94dd-a1287d276291"],
Cell[CellGroupData[{
Cell[533643, 14797, 149, 2, 30, "Input",ExpressionUUID->"7f168cf1-fe58-463a-820c-46d37c6d41a6"],
Cell[533795, 14801, 1824, 57, 129, "Output",ExpressionUUID->"8cd02036-7505-473e-a383-6ee39f1451df"]
}, Open ]],
Cell[535634, 14861, 1992, 61, 193, "Input",ExpressionUUID->"190718ca-09a1-4042-8f11-c497f48d6efd"],
Cell[537629, 14924, 723, 23, 62, InheritFromParent,ExpressionUUID->"c643d8e7-409f-46ee-bdac-d1e2bebfed2d"],
Cell[CellGroupData[{
Cell[538377, 14951, 147, 2, 30, "Input",ExpressionUUID->"f5fbc6f6-5446-4c13-8e14-6b52051cd6a9"],
Cell[538527, 14955, 2046, 62, 129, "Output",ExpressionUUID->"2f4270f6-3ba2-4dad-a7af-6ad715b8782b"]
}, Open ]],
Cell[540588, 15020, 2113, 63, 193, "Input",ExpressionUUID->"734b91bc-8699-477a-b98d-d95988602a62"],
Cell[542704, 15085, 833, 27, 64, InheritFromParent,ExpressionUUID->"595832b1-43f7-422d-abf8-ed8e7b0447d3"],
Cell[543540, 15114, 1382, 45, 123, "Input",ExpressionUUID->"36d427ef-caa6-4f39-b86b-1a1af122796f"],
Cell[544925, 15161, 765, 25, 52, "Input",ExpressionUUID->"dea86999-641b-4587-a062-69199b16ebd5"],
Cell[CellGroupData[{
Cell[545715, 15190, 178, 2, 30, "Input",ExpressionUUID->"3a60a26d-e0cd-41ac-a9f0-c463f6bfbf10"],
Cell[545896, 15194, 6040, 191, 407, "Output",ExpressionUUID->"1a6c6132-9a08-475c-8ad2-ce4949fde4fc"]
}, Open ]],
Cell[CellGroupData[{
Cell[551973, 15390, 163, 3, 44, "Input",ExpressionUUID->"7da6bc78-a3ac-48f7-b0bb-9a4522614803"],
Cell[552139, 15395, 4465, 135, 199, "Output",ExpressionUUID->"eee01d59-99c5-456b-8b67-db9812453628"]
}, Open ]],
Cell[CellGroupData[{
Cell[556641, 15535, 222, 4, 44, "Input",ExpressionUUID->"20b73ab4-289f-439d-b739-a7fa1a40afc7"],
Cell[556866, 15541, 1700, 53, 107, "Output",ExpressionUUID->"d6c5b0d7-79fd-413a-971d-65423be67065"]
}, Open ]],
Cell[CellGroupData[{
Cell[558603, 15599, 257, 5, 44, "Input",ExpressionUUID->"fbbe1233-8904-410c-853f-82a93e39897c"],
Cell[558863, 15606, 1923, 60, 83, "Output",ExpressionUUID->"033688a6-32b1-4821-82cb-efe09d0f38c4"]
}, Open ]],
Cell[560801, 15669, 203, 4, 30, "Input",ExpressionUUID->"3b2578d2-16f5-4e11-9b9c-6595cc701edc"],
Cell[CellGroupData[{
Cell[561029, 15677, 1796, 57, 98, "Input",ExpressionUUID->"3e29da22-28cc-470b-9184-a532f2833796"],
Cell[562828, 15736, 192, 4, 51, "Output",ExpressionUUID->"3793d00a-d1c2-41a0-bfdc-de5cd8c9fb1f"]
}, Open ]],
Cell[563035, 15743, 241, 5, 48, "Input",ExpressionUUID->"cc3e21f2-6878-4ddc-b25c-360378a40473"],
Cell[563279, 15750, 152, 3, 30, "Input",ExpressionUUID->"19daf983-b65c-4798-a7f3-2a2cf8d69863"],
Cell[563434, 15755, 1768, 54, 94, "Input",ExpressionUUID->"1bd995cf-fe53-4975-884c-031d5a2b86c1"],
Cell[CellGroupData[{
Cell[565227, 15813, 180, 2, 30, "Input",ExpressionUUID->"3d5ad1e0-0603-4fdc-ab71-fee312a8074b"],
Cell[565410, 15817, 3678, 118, 247, "Output",ExpressionUUID->"3e5d30c2-c041-4ad9-9adb-9aefb175ba32"]
}, Open ]],
Cell[CellGroupData[{
Cell[569125, 15940, 163, 3, 44, "Input",ExpressionUUID->"3e4980a9-33e8-43be-a65b-626e854ac6d7"],
Cell[569291, 15945, 151, 2, 34, "Output",ExpressionUUID->"55daa283-161c-4268-b807-958fbece41ef"]
}, Open ]],
Cell[CellGroupData[{
Cell[569479, 15952, 182, 2, 30, "Input",ExpressionUUID->"ac8033c9-cccb-4ba3-9244-84f93a0ddc74"],
Cell[569664, 15956, 6283, 199, 451, "Output",ExpressionUUID->"67ad5c04-4568-4e1b-93b6-f7966a860a3c"]
}, Open ]],
Cell[CellGroupData[{
Cell[575984, 16160, 163, 3, 44, "Input",ExpressionUUID->"2a02d81c-9270-48b8-83d7-597616f4df76"],
Cell[576150, 16165, 5827, 182, 345, "Output",ExpressionUUID->"ed68752e-0d89-4b15-bc00-0dda1a6ad1a0"]
}, Open ]],
Cell[CellGroupData[{
Cell[582014, 16352, 3512, 109, 270, "Input",ExpressionUUID->"397a6d48-b468-497f-a39b-019d86f21eeb"],
Cell[585529, 16463, 149, 2, 34, "Output",ExpressionUUID->"7a2ad8ac-6d27-47ae-b38f-5a36727a7ec4"]
}, Open ]],
Cell[CellGroupData[{
Cell[585715, 16470, 5891, 181, 404, "Input",ExpressionUUID->"fbe5b2df-825b-4696-8bda-86c9861adfac"],
Cell[591609, 16653, 5826, 182, 368, "Output",ExpressionUUID->"63d85b3d-a925-445c-9d8b-79eaad1d3ecd"]
}, Open ]],
Cell[CellGroupData[{
Cell[597472, 16840, 3517, 105, 270, "Input",ExpressionUUID->"c2e0dfb5-1ec3-4772-898e-bc700c5b3653"],
Cell[600992, 16947, 151, 2, 34, "Output",ExpressionUUID->"81209722-a589-4bec-822a-5d9c55c8b778"]
}, Open ]],
Cell[CellGroupData[{
Cell[601180, 16954, 2641, 78, 186, "Input",ExpressionUUID->"52c29598-3f9b-491d-b4cc-13bd4921e708"],
Cell[603824, 17034, 2535, 76, 167, "Output",ExpressionUUID->"f6d55206-f34b-424c-b57c-18d5ee4fe30e"]
}, Open ]],
Cell[606374, 17113, 316, 8, 48, "Input",ExpressionUUID->"53c893b1-36dc-4674-b08f-63cc1d898014"],
Cell[606693, 17123, 227, 4, 30, "Input",ExpressionUUID->"915025c3-fae6-43f7-8bc6-b0218d1f4672"],
Cell[CellGroupData[{
Cell[606945, 17131, 171, 2, 30, "Input",ExpressionUUID->"9f80812a-a3b5-44c3-b9fc-4b953e39e1d8"],
Cell[607119, 17135, 6360, 200, 491, "Output",ExpressionUUID->"b477caec-b779-4e4e-a66f-4fcdbb081bab"]
}, Open ]],
Cell[CellGroupData[{
Cell[613516, 17340, 163, 3, 44, "Input",ExpressionUUID->"8ef50adb-c4fc-4cc6-a9e4-e22ce49f4f28"],
Cell[613682, 17345, 2331, 69, 137, "Output",ExpressionUUID->"22b39c01-ccad-49d8-8343-791f2d2959d0"]
}, Open ]],
Cell[616028, 17417, 152, 3, 30, "Input",ExpressionUUID->"998999e6-722a-43b9-82c3-823077d849b0"],
Cell[616183, 17422, 428, 10, 203, "Text",ExpressionUUID->"3bc7491c-6949-4610-ab76-a06be8fd363f"],
Cell[616614, 17434, 7506, 234, 669, "Input",ExpressionUUID->"0426ce1d-5c1a-4cd2-b9cc-e4cc57af3ecc"],
Cell[624123, 17670, 150, 3, 59, "Text",ExpressionUUID->"80321340-eabe-4676-ad48-492f37419504"],
Cell[CellGroupData[{
Cell[624298, 17677, 222, 4, 44, "Input",ExpressionUUID->"70c865f9-a28b-4b3e-b8ac-0b0fc604d9d5"],
Cell[624523, 17683, 149, 2, 34, "Output",ExpressionUUID->"2f91a863-7be5-4b72-abf1-ec75ded0d112"]
}, Open ]],
Cell[CellGroupData[{
Cell[624709, 17690, 221, 4, 44, "Input",ExpressionUUID->"a3774643-88de-457a-8b0f-a808ec1bae76"],
Cell[624933, 17696, 151, 2, 34, "Output",ExpressionUUID->"d4e7bda7-369a-4b57-a324-989afc8bdd6c"]
}, Open ]],
Cell[CellGroupData[{
Cell[625121, 17703, 222, 4, 44, "Input",ExpressionUUID->"86292d5a-0acd-41f2-8c0e-f838e2c308c5"],
Cell[625346, 17709, 169, 3, 50, "Output",ExpressionUUID->"5a73e300-92e2-4447-b8de-35bce951bfc7"]
}, Open ]],
Cell[CellGroupData[{
Cell[625552, 17717, 222, 4, 44, "Input",ExpressionUUID->"e3485e9b-bf03-4fec-a4ea-79df7aa1580d"],
Cell[625777, 17723, 149, 2, 34, "Output",ExpressionUUID->"44ad4383-ef5a-452f-8ac1-d7d76647dd5d"]
}, Open ]],
Cell[CellGroupData[{
Cell[625963, 17730, 228, 4, 44, "Input",ExpressionUUID->"ca95e630-50bb-4c19-8088-3231582c2c70"],
Cell[626194, 17736, 1127, 36, 66, "Output",ExpressionUUID->"aa9fa98f-256e-4096-859b-c0e3f581cda5"]
}, Open ]],
Cell[CellGroupData[{
Cell[627358, 17777, 1176, 38, 111, "Input",ExpressionUUID->"d177b030-b337-42bc-b2c7-22ed83b92633"],
Cell[628537, 17817, 792, 25, 64, "Output",ExpressionUUID->"cd957910-6ce6-41d9-b979-d37e6f3ea1f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[629366, 17847, 225, 4, 44, "Input",ExpressionUUID->"ee35aa6a-c9d7-4974-8ebd-09e39a4e49cb"],
Cell[629594, 17853, 1190, 38, 84, "Output",ExpressionUUID->"75e6b457-e747-4ab1-8840-22b2514c4a83"]
}, Open ]],
Cell[CellGroupData[{
Cell[630821, 17896, 1240, 40, 128, "Input",ExpressionUUID->"5a407ecd-e414-46f3-acb9-ffa2aece3af2"],
Cell[632064, 17938, 958, 30, 64, "Output",ExpressionUUID->"231429da-2ae6-4422-90a8-8461b285f4f7"]
}, Open ]],
Cell[CellGroupData[{
Cell[633059, 17973, 223, 4, 44, "Input",ExpressionUUID->"cd64959e-8904-409d-aa65-f3eede8c318a"],
Cell[633285, 17979, 192, 4, 51, "Output",ExpressionUUID->"670762f8-3c62-40cf-92b2-5713b5064d7b"]
}, Open ]],
Cell[633492, 17986, 200, 4, 59, "Text",ExpressionUUID->"37a70b0c-5b0d-4f95-a51e-33669fa42717"],
Cell[CellGroupData[{
Cell[633717, 17994, 224, 4, 44, "Input",ExpressionUUID->"229b7274-1f1e-43fc-94d6-443531459555"],
Cell[633944, 18000, 1409, 46, 70, "Output",ExpressionUUID->"62d6d311-5a2a-4a8e-aea3-fd69f2bc7053"]
}, Closed]],
Cell[CellGroupData[{
Cell[635390, 18051, 1463, 47, 138, "Input",ExpressionUUID->"c31149a3-7641-4835-a85a-451aae3daffe"],
Cell[636856, 18100, 697, 21, 57, "Output",ExpressionUUID->"7f435e7f-a53d-4f8c-b75a-9e261cc5e374"]
}, Open ]],
Cell[CellGroupData[{
Cell[637590, 18126, 224, 4, 44, "Input",ExpressionUUID->"dac80797-0449-4ba6-b43e-3532afc9bd9e"],
Cell[637817, 18132, 1585, 51, 127, "Output",ExpressionUUID->"43fb5076-e53c-44db-951d-ac696d729461"]
}, Open ]],
Cell[CellGroupData[{
Cell[639439, 18188, 1644, 52, 148, "Input",ExpressionUUID->"35a6e3c6-17e6-4c7c-8b76-e5ec08e31fc6"],
Cell[641086, 18242, 694, 20, 57, "Output",ExpressionUUID->"8578311f-be0b-4e23-a085-e2f84ac69158"]
}, Open ]],
Cell[CellGroupData[{
Cell[641817, 18267, 273, 5, 44, "Input",ExpressionUUID->"244380e3-8bda-4396-80d0-600aa30e8ccf"],
Cell[642093, 18274, 1126, 36, 73, "Output",ExpressionUUID->"4d3eead8-afb4-4d03-9aff-d2bcbbbf7b07"]
}, Open ]],
Cell[CellGroupData[{
Cell[643256, 18315, 1172, 37, 87, "Input",ExpressionUUID->"aa22682b-fbe6-40f2-a2b2-a4095cbeb9e5"],
Cell[644431, 18354, 1126, 36, 73, "Output",ExpressionUUID->"ce175eb6-5653-4ce8-94df-9e7bb75e5077"]
}, Open ]],
Cell[CellGroupData[{
Cell[645594, 18395, 253, 5, 44, "Input",ExpressionUUID->"5a7095cd-98c0-482d-b8fd-5a0a3724054c"],
Cell[645850, 18402, 6376, 197, 389, "Output",ExpressionUUID->"57c36258-a3e2-49ba-9763-00890cf80985"]
}, Open ]],
Cell[CellGroupData[{
Cell[652263, 18604, 163, 3, 44, "Input",ExpressionUUID->"69b0e273-6495-464a-aabe-840b1b21da19"],
Cell[652429, 18609, 2548, 78, 121, "Output",ExpressionUUID->"25acbd6a-16ee-4df1-8bb3-7e692c937165"]
}, Open ]],
Cell[654992, 18690, 209, 4, 59, "Text",ExpressionUUID->"3d5504cf-45d5-4549-9793-c32bdfdf4283"],
Cell[CellGroupData[{
Cell[655226, 18698, 229, 4, 44, "Input",ExpressionUUID->"f3b7a34f-d6d6-4321-ba8f-f731a378b190"],
Cell[655458, 18704, 676, 20, 57, "Output",ExpressionUUID->"66bc8fb3-3f69-424e-b02c-375b67623b0c"]
}, Open ]],
Cell[CellGroupData[{
Cell[656171, 18729, 706, 21, 70, "Input",ExpressionUUID->"7307b048-b054-48e0-9c18-321100918823"],
Cell[656880, 18752, 527, 15, 57, "Output",ExpressionUUID->"e4065f01-ffe5-44d6-a18b-338feea9b6af"]
}, Open ]],
Cell[CellGroupData[{
Cell[657444, 18772, 229, 4, 44, "Input",ExpressionUUID->"127a4ba3-5ae2-4575-af1c-ddcf38901774"],
Cell[657676, 18778, 697, 21, 57, "Output",ExpressionUUID->"a754e7e9-5616-4365-a81f-4409c45ff4a0"]
}, Open ]],
Cell[CellGroupData[{
Cell[658410, 18804, 728, 22, 70, "Input",ExpressionUUID->"39c2b4dc-3a19-4ca6-88af-2e6bfdd473d4"],
Cell[659141, 18828, 561, 16, 57, "Output",ExpressionUUID->"43c97a1d-8871-44ce-b262-590fee865459"]
}, Open ]],
Cell[CellGroupData[{
Cell[659739, 18849, 231, 4, 44, "Input",ExpressionUUID->"5c08510b-b9da-45e8-9c51-76b89b8b2e26"],
Cell[659973, 18855, 773, 24, 68, "Output",ExpressionUUID->"0e779bbb-23ad-4a39-80bf-63e69a6b3cca"]
}, Open ]],
Cell[CellGroupData[{
Cell[660783, 18884, 805, 25, 81, "Input",ExpressionUUID->"b26e75fb-60ce-4fd1-8027-f1c52b058201"],
Cell[661591, 18911, 771, 24, 68, "Output",ExpressionUUID->"5ccf3f4a-4384-4325-a0e4-a15af10b7dbf"]
}, Open ]],
Cell[CellGroupData[{
Cell[662399, 18940, 232, 4, 44, "Input",ExpressionUUID->"f24d2f3f-bb2f-43f7-9042-a6fbe71fe9e6"],
Cell[662634, 18946, 3840, 119, 263, "Output",ExpressionUUID->"ee80c792-f0be-4266-8a8d-0203cb16435c"]
}, Open ]],
Cell[CellGroupData[{
Cell[666511, 19070, 163, 3, 44, "Input",ExpressionUUID->"7642d76a-f331-4f91-9af4-39e9e8a11297"],
Cell[666677, 19075, 1691, 52, 97, "Output",ExpressionUUID->"e364adeb-dc16-4e47-92c0-d48c235b85ec"],
Cell[668371, 19129, 156, 2, 34, "Output",ExpressionUUID->"6120fcb5-1789-42b4-a459-a6f526621b4e"]
}, Open ]]
}, Open ]]
}
]
*)