199 lines
5.8 KiB
Mathematica
199 lines
5.8 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 13.3' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 158, 7]
|
|
NotebookDataLength[ 5696, 188]
|
|
NotebookOptionsPosition[ 4998, 167]
|
|
NotebookOutlinePosition[ 5392, 183]
|
|
CellTagsIndexPosition[ 5349, 180]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[
|
|
RowBox[{"expression", " ", "=", " ",
|
|
RowBox[{
|
|
FractionBox["37", "2"], "-",
|
|
RowBox[{"30",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"n",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["q",
|
|
RowBox[{"q", "-", "2"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Log", "[",
|
|
RowBox[{"2", ",",
|
|
FractionBox["1", "\[Epsilon]"]}], "]"}], "+", "q"}], ")"}]}],
|
|
"-", "1"}], ")"}]}], "+", "1"}], ")"}]}], "+",
|
|
RowBox[{"18",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"n",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["q",
|
|
RowBox[{"q", "-", "2"}]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Log", "[",
|
|
RowBox[{"2", ",",
|
|
FractionBox["1", "\[Epsilon]"]}], "]"}], "+", "q"}], ")"}]}],
|
|
"-", "1"}], ")"}]}], "+", "1"}], ")"}], "^", "2"}]}], "+",
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{"n", "-", "1"}], ")"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.906063908626438*^9, 3.906063993707685*^9}, {
|
|
3.9060640256280127`*^9, 3.906064111508772*^9}, {3.9060642340483294`*^9,
|
|
3.906064271834546*^9}},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"ecf5c80d-975d-4892-88c6-001ebd7377b2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox["37", "2"], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "n"}], ")"}]}], "-",
|
|
RowBox[{"30", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"n", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
FractionBox[
|
|
RowBox[{"q", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"q", "+",
|
|
FractionBox[
|
|
RowBox[{"Log", "[",
|
|
FractionBox["1", "\[Epsilon]"], "]"}],
|
|
RowBox[{"Log", "[", "2", "]"}]]}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "q"}]]}], ")"}]}]}], ")"}]}], "+",
|
|
RowBox[{"18", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"n", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
FractionBox[
|
|
RowBox[{"q", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"q", "+",
|
|
FractionBox[
|
|
RowBox[{"Log", "[",
|
|
FractionBox["1", "\[Epsilon]"], "]"}],
|
|
RowBox[{"Log", "[", "2", "]"}]]}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "q"}]]}], ")"}]}]}], ")"}],
|
|
"2"]}]}]], "Output",
|
|
CellChangeTimes->{3.906064117039122*^9, 3.906064275522183*^9},
|
|
CellLabel->"Out[4]=",ExpressionUUID->"52c2006d-deec-42d1-a139-15ac762ba33a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Simplify", "[", "expression", "]"}]], "Input",
|
|
CellChangeTimes->{{3.906064121728199*^9, 3.9060641326143093`*^9}, {
|
|
3.9060643199790373`*^9, 3.906064351806294*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"02b903db-735e-48c0-b095-27572299b991"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["23", "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "n"}], ")"}]}], "-",
|
|
RowBox[{"30", " ", "n", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
FractionBox[
|
|
RowBox[{"q", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"q", "+",
|
|
FractionBox[
|
|
RowBox[{"Log", "[",
|
|
FractionBox["1", "\[Epsilon]"], "]"}],
|
|
RowBox[{"Log", "[", "2", "]"}]]}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "q"}]]}], ")"}]}], "+",
|
|
RowBox[{"18", " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"n", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
FractionBox[
|
|
RowBox[{"q", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"q", "+",
|
|
FractionBox[
|
|
RowBox[{"Log", "[",
|
|
FractionBox["1", "\[Epsilon]"], "]"}],
|
|
RowBox[{"Log", "[", "2", "]"}]]}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], "+", "q"}]]}], ")"}]}]}], ")"}],
|
|
"2"]}]}]], "Output",
|
|
CellChangeTimes->{
|
|
3.906064133111362*^9, 3.9060642814098177`*^9, {3.906064328656705*^9,
|
|
3.906064352272952*^9}},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"7331ac0c-cf32-4dca-8f85-3dc9d8807a10"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{808, 796},
|
|
WindowMargins->{{326, Automatic}, {30, Automatic}},
|
|
FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (July 24, 2023)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"194f2364-7214-48fd-9fc9-64c50a78dc3f"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[580, 22, 1340, 41, 71, "Input",ExpressionUUID->"ecf5c80d-975d-4892-88c6-001ebd7377b2"],
|
|
Cell[1923, 65, 1391, 44, 100, "Output",ExpressionUUID->"52c2006d-deec-42d1-a139-15ac762ba33a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[3351, 114, 267, 4, 30, "Input",ExpressionUUID->"02b903db-735e-48c0-b095-27572299b991"],
|
|
Cell[3621, 120, 1361, 44, 123, "Output",ExpressionUUID->"7331ac0c-cf32-4dca-8f85-3dc9d8807a10"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|
|
|