1319 lines
54 KiB
Plaintext
1319 lines
54 KiB
Plaintext
|
(* Content-type: application/vnd.wolfram.mathematica *)
|
||
|
|
|
||
|
|
(*** Wolfram Notebook File ***)
|
||
|
|
(* http://www.wolfram.com/nb *)
|
||
|
|
|
||
|
|
(* CreatedBy='Mathematica 12.2' *)
|
||
|
|
|
||
|
|
(*CacheID: 234*)
|
||
|
|
(* Internal cache information:
|
||
|
|
NotebookFileLineBreakTest
|
||
|
|
NotebookFileLineBreakTest
|
||
|
|
NotebookDataPosition[ 158, 7]
|
||
|
|
NotebookDataLength[ 54075, 1310]
|
||
|
|
NotebookOptionsPosition[ 52452, 1276]
|
||
|
|
NotebookOutlinePosition[ 53270, 1300]
|
||
|
|
CellTagsIndexPosition[ 53227, 1297]
|
||
|
|
WindowFrame->Normal*)
|
||
|
|
|
||
|
|
(* Beginning of Notebook Content *)
|
||
|
|
Notebook[{
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ariasD", "[", "0", "]"}], " ", "=", " ", "1"}], ";"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ariasD", "[",
|
||
|
|
RowBox[{"n_Integer", "?", "Positive"}], "]"}], " ", ":=", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ariasD", "[", "n", "]"}], " ", "=", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Sum", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", "^",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"k", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"k", " ", "-", " ", "1"}], ")"}]}], " ", "-", " ",
|
||
|
|
RowBox[{"n", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"n", " ", "-", " ", "1"}], ")"}]}]}], ")"}], "/",
|
||
|
|
"2"}], ")"}]}], " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ariasD", "[", "k", "]"}], "/",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"n", " ", "-", " ", "k", " ", "+", " ", "1"}], ")"}],
|
||
|
|
"!"}]}]}], ",", " ",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"k", ",", " ", "0", ",", " ",
|
||
|
|
RowBox[{"n", " ", "-", " ", "1"}]}], "}"}]}], "]"}], "/",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", "^", "n"}], " ", "-", " ", "1"}], ")"}]}]}]}],
|
||
|
|
";"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"iFabiusF", "[", "x_", "]"}], ":=",
|
||
|
|
RowBox[{"Module", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"prec", "=",
|
||
|
|
RowBox[{"Precision", "[", "x", "]"}]}], ",", "n", ",", "p", ",", "q",
|
||
|
|
",", "s", ",", "tol", ",", "w", ",", "y", ",", "z"}], "}"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"If", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "<", "0"}], ",",
|
||
|
|
RowBox[{"Return", "[",
|
||
|
|
RowBox[{"0", ",", "Module"}], "]"}]}], "]"}], ";",
|
||
|
|
RowBox[{"tol", "=",
|
||
|
|
RowBox[{"10", "^",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"-", "prec"}], ")"}]}]}], ";", "\n",
|
||
|
|
RowBox[{"z", "=",
|
||
|
|
RowBox[{"SetPrecision", "[",
|
||
|
|
RowBox[{"x", ",", "Infinity"}], "]"}]}], ";",
|
||
|
|
RowBox[{"s", "=", "1"}], ";",
|
||
|
|
RowBox[{"y", "=", "0"}], ";", "\n",
|
||
|
|
RowBox[{"z", "=",
|
||
|
|
RowBox[{"If", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"0", "\[LessEqual]", "z", "\[LessEqual]", "2"}], ",",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
RowBox[{"Abs", "[",
|
||
|
|
RowBox[{"1", "-", "z"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"q", "=",
|
||
|
|
RowBox[{"Quotient", "[",
|
||
|
|
RowBox[{"z", ",", "2"}], "]"}]}], ";", "\n",
|
||
|
|
RowBox[{"If", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ThueMorse", "[", "q", "]"}], "==", "1"}], ",",
|
||
|
|
RowBox[{"s", "=",
|
||
|
|
RowBox[{"-", "1"}]}]}], "]"}], ";", "\n",
|
||
|
|
RowBox[{"1", "-",
|
||
|
|
RowBox[{"Abs", "[",
|
||
|
|
RowBox[{"1", "-", "z", "+",
|
||
|
|
RowBox[{"2", " ", "q"}]}], "]"}]}]}]}], "]"}]}], ";", "\n",
|
||
|
|
RowBox[{"While", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"z", ">", "0"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"n", "=",
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{"Floor", "[",
|
||
|
|
RowBox[{"RealExponent", "[",
|
||
|
|
RowBox[{"z", ",", "2"}], "]"}], "]"}]}]}], ";",
|
||
|
|
RowBox[{"p", "=",
|
||
|
|
RowBox[{"2", "^", "n"}]}], ";", "\n",
|
||
|
|
RowBox[{"z", "-=",
|
||
|
|
RowBox[{"1", "/", "p"}]}], ";",
|
||
|
|
RowBox[{"w", "=", "1"}], ";", "\n",
|
||
|
|
RowBox[{"Do", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"w", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ariasD", "[", "m", "]"}], "+",
|
||
|
|
RowBox[{"p", " ", "z", " ",
|
||
|
|
RowBox[{"w", "/",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"n", "-", "m", "+", "1"}], ")"}]}]}]}]}], ";",
|
||
|
|
RowBox[{"p", "/=", "2"}]}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"m", ",", "n"}], "}"}]}], "]"}], ";", "\n",
|
||
|
|
RowBox[{"y", "=",
|
||
|
|
RowBox[{"w", "-", "y"}]}], ";", "\n",
|
||
|
|
RowBox[{"If", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Abs", "[", "w", "]"}], "<",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Abs", "[", "y", "]"}], " ", "tol"}]}], ",",
|
||
|
|
RowBox[{"Break", "[", "]"}]}], "]"}]}]}], "]"}], ";", "\n",
|
||
|
|
RowBox[{"SetPrecision", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"s", " ",
|
||
|
|
RowBox[{"Abs", "[", "y", "]"}]}], ",", "prec"}], "]"}]}]}], "]"}]}],
|
||
|
|
";"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"FabiusF", "[", "Infinity", "]"}], " ", "=", " ",
|
||
|
|
RowBox[{"Interval", "[",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], "]"}]}], ";"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"FabiusF", "[",
|
||
|
|
RowBox[{"x_", "?", "NumberQ"}], "]"}], " ", "/;", " ",
|
||
|
|
RowBox[{"If", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Im", "[", "x", "]"}], " ", "==", " ", "0"}], ",", " ",
|
||
|
|
RowBox[{"TrueQ", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Composition", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"BitAnd", "[",
|
||
|
|
RowBox[{"#", ",", " ",
|
||
|
|
RowBox[{"#", " ", "-", " ", "1"}]}], "]"}], " ", "&"}], ",",
|
||
|
|
" ", "Denominator"}], "]"}], "[", "x", "]"}], " ", "==", " ",
|
||
|
|
"0"}], "]"}], ",", " ", "False"}], "]"}]}], " ", ":=", " ",
|
||
|
|
RowBox[{"iFabiusF", "[", "x", "]"}]}], ";"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Derivative", "[", "n_Integer", "]"}], "[", "FabiusF", "]"}], " ",
|
||
|
|
":=", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", "^",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"n", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"n", " ", "+", " ", "1"}], ")"}], "/", "2"}]}], ")"}]}],
|
||
|
|
" ",
|
||
|
|
RowBox[{"FabiusF", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", "^", "n"}], " ", "#"}], "]"}]}], " ", "&"}]}],
|
||
|
|
";"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"SetAttributes", "[",
|
||
|
|
RowBox[{"FabiusF", ",", " ",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"NumericFunction", ",", " ", "Listable"}], "}"}]}], "]"}],
|
||
|
|
";"}], "//", "Timing"}], "//", "AbsoluteTiming"}], ";"}]}], "Input",
|
||
|
|
CellFrame->0,
|
||
|
|
CellDingbat->None,
|
||
|
|
TextAlignment->Center,
|
||
|
|
FontFamily->"Segoe UI Emoji",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 03:35:17 \
|
||
|
|
In[41]:=",ExpressionUUID->"49e27e26-aae4-40b5-bafd-eccd5a46860c"],
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{"ClearAll", "[",
|
||
|
|
RowBox[{"iCurvaturePlotHelper", ",", "CurvaturePlot"}], "]"}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"iCurvaturePlotHelper", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"f_", "?",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Head", "[", "#", "]"}], "=!=", "List"}], "&"}], ")"}]}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t_", ",", "tmin_", ",", "tmax_"}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"x0_", ",", "y0_"}], "}"}], ",", "\[Theta]0_"}], "}"}], ",",
|
||
|
|
RowBox[{"opts", ":",
|
||
|
|
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=",
|
||
|
|
RowBox[{"Module", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"sol", ",", "\[Theta]", ",", "x", ",", "y", ",", "if"}], "}"}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"sol", "=",
|
||
|
|
RowBox[{"NDSolve", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "\[Equal]", "f"}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]",
|
||
|
|
RowBox[{"Sin", "[",
|
||
|
|
RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Theta]", "[", "tmin", "]"}], "\[Equal]", "\[Theta]0"}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[", "tmin", "]"}], "\[Equal]", "x0"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"y", "[", "tmin", "]"}], "\[Equal]", "y0"}]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"x", ",", "y"}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", "opts"}],
|
||
|
|
"]"}]}], ";", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"if", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[", "#", "]"}], ",",
|
||
|
|
RowBox[{"y", "[", "#", "]"}]}], "}"}], "&"}], "/.",
|
||
|
|
RowBox[{"First", "[", "sol", "]"}]}]}], ";", "\[IndentingNewLine]",
|
||
|
|
"if"}]}], "]"}]}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{"f_", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t_", ",", "tmin_", ",", "tmax_"}], "}"}], ",",
|
||
|
|
RowBox[{"opts", ":",
|
||
|
|
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=",
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{"f", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}], ",", "opts"}],
|
||
|
|
"]"}]}], "\n",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{"f_", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t_", ",", "tmin_", ",", "tmax_"}], "}"}], ",",
|
||
|
|
RowBox[{"p", ":",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"x0_", ",", "y0_"}], "}"}], ",", "\[Theta]0_"}], "}"}]}], ",",
|
||
|
|
RowBox[{"opts", ":",
|
||
|
|
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=",
|
||
|
|
RowBox[{"Module", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
"\[Theta]", ",", "x", ",", "y", ",", "sol", ",", "rlsplot", ",",
|
||
|
|
"rlsndsolve", ",", "if", ",", "ifs"}], "}"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"rlsplot", "=",
|
||
|
|
RowBox[{"FilterRules", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{", "opts", "}"}], ",",
|
||
|
|
RowBox[{"Options", "[", "ParametricPlot", "]"}]}], "]"}]}], ";",
|
||
|
|
"\[IndentingNewLine]",
|
||
|
|
RowBox[{"rlsndsolve", "=",
|
||
|
|
RowBox[{"FilterRules", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{", "opts", "}"}], ",",
|
||
|
|
RowBox[{"Options", "[", "NDSolve", "]"}]}], "]"}]}], ";",
|
||
|
|
"\[IndentingNewLine]",
|
||
|
|
RowBox[{"If", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Head", "[", "f", "]"}], "===", "List"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"ifs", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"iCurvaturePlotHelper", "[",
|
||
|
|
RowBox[{"#", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", "p", ",",
|
||
|
|
RowBox[{"Evaluate", "@",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Sequence", "@@", "rlsndsolve"}], ")"}]}]}], "]"}],
|
||
|
|
"&"}], "/@", "f"}]}], ";", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"ParametricPlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"#", "[", "tplot", "]"}], "&"}], "/@", "ifs"}], "]"}],
|
||
|
|
",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"tplot", ",", "tmin", ",", "tmax"}], "}"}], ",",
|
||
|
|
RowBox[{"Evaluate", "@",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Sequence", "@@", "rlsplot"}], ")"}]}]}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"if", "=",
|
||
|
|
RowBox[{"iCurvaturePlotHelper", "[",
|
||
|
|
RowBox[{"f", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", "p", ",",
|
||
|
|
RowBox[{"Evaluate", "@",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Sequence", "@@", "rlsndsolve"}], ")"}]}]}], "]"}]}],
|
||
|
|
";", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"ParametricPlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[",
|
||
|
|
RowBox[{"if", "[", "tplot", "]"}], "]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"tplot", ",", "tmin", ",", "tmax"}], "}"}], ",",
|
||
|
|
RowBox[{"Evaluate", "@",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Sequence", "@@", "rlsplot"}], ")"}]}]}], "]"}]}]}],
|
||
|
|
"]"}]}]}], "]"}]}]}], "Input",
|
||
|
|
FontFamily->"Segoe UI Emoji",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 03:35:17 \
|
||
|
|
In[48]:=",ExpressionUUID->"9b9d9fed-f6b7-4b00-b1f1-f2b74b7eebba"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"(*",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:1513\:1515", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
|
||
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
||
|
|
RowBox[{"1", "+",
|
||
|
|
RowBox[{"2", "^", "8"}]}]}], ",",
|
||
|
|
RowBox[{"Ticks", "\[Rule]",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",",
|
||
|
|
RowBox[{"ImageSize", "\[Rule]", "Full"}], ",",
|
||
|
|
RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "}"}]}], ";",
|
||
|
|
"\[IndentingNewLine]",
|
||
|
|
RowBox[{"Show", "[", "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[", "X", "]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"X", ",", "0", ",",
|
||
|
|
RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "]"}],
|
||
|
|
"\[IndentingNewLine]", ",", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Plot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"X", "*",
|
||
|
|
RowBox[{"Pi", "/", "2.4039598877241946"}]}], "]"}]}], "/",
|
||
|
|
"2"}], "+", ".5"}], ")"}], "*", "1.7867179537183144"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"X", ",", "0", ",",
|
||
|
|
RowBox[{"4", "*",
|
||
|
|
RowBox[{"\[Pi]", "/", "Pi"}], "*", "2.4039598877241946"}]}], "}"}],
|
||
|
|
",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "]"}],
|
||
|
|
"\[IndentingNewLine]", ",", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "\[IndentingNewLine]",
|
||
|
|
"]"}]}], "*)"}]], "Input",
|
||
|
|
FontFamily->"Segoe UI Emoji",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 03:35:17 \
|
||
|
|
In[52]:=",ExpressionUUID->"1d82449f-143c-48c0-b41d-e1be57059f1b"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:146b\:146d", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
|
||
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
||
|
|
RowBox[{"1", "+",
|
||
|
|
RowBox[{"2", "^", "0"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:1513\:1515", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
|
||
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
||
|
|
RowBox[{"1", "+",
|
||
|
|
RowBox[{"2", "^", "8"}]}]}], ",",
|
||
|
|
RowBox[{"Ticks", "\[Rule]",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",",
|
||
|
|
RowBox[{"ImageSize", "\[Rule]", "512"}], ",",
|
||
|
|
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
|
||
|
|
RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "}"}]}],
|
||
|
|
";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:1586\:1587", "=",
|
||
|
|
RowBox[{"4", "*",
|
||
|
|
RowBox[{"ArcTan", "[", "1", "]"}], "*", "1"}]}],
|
||
|
|
";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:15e9", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"X", ",", "0", ",", "Pi"}], "}"}]}], ";"}],
|
||
|
|
"\[IndentingNewLine]",
|
||
|
|
RowBox[{"(*",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:a5f3", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{"TriangleWave", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"X", "/", "\:1586\:1587"}], "*", ".5"}], "-", ".25"}],
|
||
|
|
"]"}]}], "/", "1"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:a5f3", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"X", "-",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Pi", "/", "2"}], ")"}]}], ")"}]}], "/",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Pi", "/", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Show", "[", "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:15e9", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "]"}],
|
||
|
|
"\[IndentingNewLine]", ",", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Plot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:15e9", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "]"}],
|
||
|
|
"\[IndentingNewLine]", ",", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "\[IndentingNewLine]",
|
||
|
|
"]"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"DecimalForm", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"N", "[",
|
||
|
|
RowBox[{"TableForm", "[",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Flatten", "[",
|
||
|
|
RowBox[{"DecimalForm", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"N", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cases", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Plot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:15e9", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:146b\:146d", "]"}]}], "]"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Line", "[", "X__", "]"}], "\[Rule]", "X"}], ",",
|
||
|
|
"Infinity"}], "]"}], ",", "1"}], "]"}], ",", "256"}], "]"}],
|
||
|
|
"]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Flatten", "[",
|
||
|
|
RowBox[{"DecimalForm", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"N", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cases", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:15e9", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:146b\:146d", "]"}]}], "]"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Line", "[", "X__", "]"}], "\[Rule]", "X"}], ",",
|
||
|
|
"Infinity"}], "]"}], ",", "1"}], "]"}], ",", "256"}], "]"}],
|
||
|
|
"]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ",", "256"}],
|
||
|
|
"]"}]}], "Input",
|
||
|
|
FontFamily->"Segoe UI Emoji",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 03:52:52 \
|
||
|
|
In[394]:=",ExpressionUUID->"148f4d9e-62d6-414f-9bd8-79eeac336b4b"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
GraphicsBox[{{{{}, {},
|
||
|
|
TagBox[
|
||
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
|
||
|
|
Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
|
||
|
|
1:eJxd1nc41f/7B/BzHCshEcouI0UqKg16vhVNkgaplIgUklChQUmixafSMFpK
|
||
|
|
SMpMREj23iPj2Pvs41hfv39/9z+v63m9/rzv63E9l9u5HXLgI5FIZDKJ9H/v
|
||
|
|
/5/fTwwmJbWD4Dbun86vL4lcs9v2TWtfQipuTfqLH3r4flh8kWHqO/xQLNls
|
||
|
|
lWaCx+NaJRuTY3EgJP+/0K5DGHHccdJI9yvKzgYXsRaeQsvyxIaIN99RWrq9
|
||
|
|
eNTWAbvGpOIPDqRiwSup1Gw/V3x49FmjU/kH7qievix60gMylPeChHIW/NSn
|
||
|
|
BLo3XMNzi9aAY6dy8HD3NiNl8ZsI/Tt+5bnub8RR/5jdEr6NIkPP4uYveZh+
|
||
|
|
7P9yn8FddFv+aUnbU4BLbzXdzs4GQffTvnj3v38gcu7CRHj+A1yivZl+4vAX
|
||
|
|
Ttb0bxahT1Dy/SLVYqoI7L7bNmKtYfivo9N0yrMEPmJaGTcVn+HhG8eUbLEy
|
||
|
|
WErRN79KDoegQ02ba3A5MhLPkJoMX+GKm2MHT70S2VeaurSWR8JJZqQx4GQV
|
||
|
|
lD4/1e0RfYOIizFnJJZWQ29rpCD/rbe46PTtUVd3NYYzAu3qVd6jTNr0dHZ0
|
||
|
|
DQIsXvmYpH3AuGiI67ljtWCAZMWw+AiJhFNyOip1ULwUo2WiEosbzwLEpVrq
|
||
|
|
sO7UuKTJv8/YstjcnfGuHnnn16w/XB0PZeZMXPC5Bmi6dnmNlHxBdvDCRiul
|
||
|
|
RuyRuupslvQV9ylvBFjURqz819qV15eE0lmPnXWvm7BV86AnMfQNFfZu6bfN
|
||
|
|
m3FiUMttduw7XGyPaTcsbsHVdElfpkQK/Btjx+8VtkAkwvMkSSMV+/9JiGTd
|
||
|
|
b4WGpyr1iHUahL32wQZt+HlCyLb4ZjquXjpiVTPRhpUpDJ73hwwYKYQaRCW1
|
||
|
|
46Dnwf6YwR9Q9g0t49j9g1bZ+/rtyj8R4JKXFaDagc6ew6EHvLJgMMtSqO3o
|
||
|
|
wKntmbIJpdmoDPc+en53J5qWbFpUKpEDFUmh/JGYTniYFWTmbMuF6BMhgZqZ
|
||
|
|
TmjsX85c2JcLhXV9V+MOd0HKXOTB28e/4UwcmriU1AU1brtx4L489OyL+xMv
|
||
|
|
2I2DIh0rX03lgesX65pv343nero6F37lI8HnVk/hr270BL4tuOdXAH5yaOYh
|
||
|
|
KSqk/vjIyGz+A9NPwkIfL1Jx5aaBUyu5EIrGO7pC8qkI2yoclJhbiOden5dq
|
||
|
|
KveApkOJkA/7C+dxw7b0az34yF9lftquCEMKK1XGS3sg7KCxdk6jGH8L9xoX
|
||
|
|
qfdiFatrd+xsMVxXxWUc9u6FAk/okEVJCWbD3lsPlPSiqrTbaenTUhROzcos
|
||
|
|
VO1Doq2GzQH3Mvims5uZnn1w46udohqVIy2II2hT3odek3dPDTQqIBMlnlWs
|
||
|
|
2o/wNRHVScKVmPXOoEp69iNdYZXEYHsl9tq1+P0t6Uff5H6/N/ZVmBKue2Uv
|
||
|
|
P4DEodvcu9VVSCE/vSp3YQC7upKsNLdX4zzz7gqtnAHsZPIx+VOrEZ0aYrRZ
|
||
|
|
fBBDm7aG1KvV4F7TFuoT+0FsDuYRlPk7Z36fVKd9n88zFoFzi2vBcr3RcIU0
|
||
|
|
hIA4Jd6DO7XwyW+5r39kCNFOYxURc7UQr+0NWfJuCIL3qtW2edZhgM/OUZk9
|
||
|
|
hNHiJ/k+jDqkRZUnmO0ZRp2AWMFu93rkr04W//J0GCVSvRcd+utR5/RldnX/
|
||
|
|
MARkiHMmTg0oSd7b16M3gooxvpajXQ0QdY2gNN0cQVLTJ8vkY41QYHt2tlaO
|
||
|
|
oH6TKXOipRFUgz/n18qPglXYG6p5tAkGRSpeQS6jqHssXnSspQmxvrnSclmj
|
||
|
|
YD7K/1tl04wIxZBiccExLLd/pi/e3IxEP9716aNj0HTfW2dzugVGK2Y+WL0Z
|
||
|
|
w9/dsmVW7S3o5dvBRxocww9SvaK9dSs2JF0/9lx/HMblzbbhna1ID1ygl+A3
|
||
|
|
jsavbvp7TrfBKqSO/KlyHIs8DUI3DLahtZF375noBEz2psUHXGjHY2mdjjvr
|
||
|
|
JvD9V6lp4WA7VAsqeKetJnCeX/7LUc9/CClR2HrfdwJK0kShMvsf7tTq3Yt4
|
||
|
|
N4Girz3Du+50QF4zX6m9aAIhvLSt2kKdSD8WpO4xMoGPr9wmtu/pxDIjYc9x
|
||
|
|
SRp8zIpchR53ot3+dcifTTTYaf17a17dib3fg95XW9PgpCDw6JpkFx6rxdbl
|
||
|
|
3qLBYDxF0ca6C1MxilqL39NQtUY1N+l1F4R+iCzfUUzDuls7eAXULrRJhqXE
|
||
|
|
jdHg/D42OXV1N1p2efr5LqajXTWSJ+DajfLPObmr9emo6TvRI5fajcu3VNgm
|
||
|
|
x+ngHeaq3uN2o+xoer+hHx2MA0H6P42oWNzo7+IRQ4fEB7Lpr/tUBNVc1JQv
|
||
|
|
okPaeNxkYTkV/6xc/aJG6biU9VtyhUwP1mT1uIVLMNBU5Jvie7wHQ75qKXW6
|
||
|
|
DFRL5a15HtmDHN64+KgVA0EF1ta+fT24clBpl58PY35/NJsXq3vx89nKNWPR
|
||
|
|
DLRRr2X7efZCLvbM3LsCBuLEbtiqZfdip/DrG419DBy5Mz7MIvWBt5Cq3b+Q
|
||
|
|
Ces/pMTQfX0guUlqeuswIeNCEbV83IeHccEHrA4yYWN5eGFpTR+ou63TF3sx
|
||
|
|
8cbFaImwQj9ko6S2HQpnwndsSMjRth9b3A0G3bKY6J6BdnBcP0zDAlukO5gI
|
||
|
|
+9bZUTLeD27BM1NRMgsFJnc8k/UGcLR7aqZLnQXbhhdip24MwH1TWfuOPSxw
|
||
|
|
iyPPKOcNYIGMZGaAKwvNy/IMo0UHsTbL7aVcGAsNPFVOztFB6GzLpGxPYWHs
|
||
|
|
1Zqv9JeDIP4rCTNpZsEs5dGrduogDsRJC7ZNsfD7tkpVo+YQXPZHry9WZIO+
|
||
|
|
wtzL1WUIBjPtalE72PAmDwqkpA5B9NBiK4oDGzolPBUh3hCeRIsfOBzMRnou
|
||
|
|
XUzAeBiBkQuHZxLZyIgbPPP8wXwWzQvYUs3Gw+uI1q0axgr1ibCzbDZaU/ol
|
||
|
|
Ly0bwdiDryuWL+PgllfIwXSbEQQ1S3KrtnMgvG98IvzTCJ4rmGt12HNwLq9/
|
||
|
|
G//ECEb+MD/eDOQg8XThax+9UQyFkqVlEzj4lTh7/eb1UTiqnSgkKjn48eXI
|
||
|
|
hge5o/h9wqu6iMZBmkWknDplDKPJ9rXmslyIJ5rGbd8/hi7jff2OW7lQPDm4
|
||
|
|
+uyjMYRf5Qz523IRP7g9fa5hDP6Gd/7N3eWiO/anm4LSOJh8FUqin7n4FVYU
|
||
|
|
vcd2HMvSFjirVnKRb9V9t/XTOE4IrJUronORQFgp3RoaR73RK3KF9CQy7ooT
|
||
|
|
tdLzDjw8vLZv2yRuU6KFJbdMIKFh/VjQ6UlYpbQltlpPYP/M96GdgZMwNPj4
|
||
|
|
cu+NCbhmWNWcTZjE+vDot4zoCQhMZXSIVk3ig3pvuVbuvAPquFTPnoSepNqH
|
||
|
|
2e4JRPA67qnK80Cr/qNyhkKDcQOz8cUOHiLOWl231KDhbOyWHK/zPOj+3Gh6
|
||
|
|
dw8NR5YZD9c+5KF6sa7qHicavuaMXrZL5cFlbCkrLJiGJd9C5txaeKjjqqV4
|
||
|
|
xNHgf+5KducsD1m3PQtC511IDlKsDtaYgv/iDGgP03CUMRKVuH8Kj3rlfpwR
|
||
|
|
oSNb54SmlOcUFhXtlhLRpuOjDe9rx+spaHH6HwyY0rE/2EJW5fcUJlRcp885
|
||
|
|
07HS+D/l+MEpyN5rX2v2gI6BpfHqnxZN4+QVj40NcXT4h/acE9g4jR7GyKLX
|
||
|
|
804oKPocybCZhja1QDdjgD7fH0Z66u9Mo3FpnaqfIAMbPNTsDn6Zhow/Vf+Z
|
||
|
|
BgMeBwoVdOumMZAV6H7MmIG/MYn6XrxprOMOuFqeYUDMe7+DstoMXJz5Dof5
|
||
|
|
MSDo1mO8av8MnJ6mbA6IZCDdMC/ondcMmi7re33KYkBYKvKzf/QMDiTLfZxu
|
||
|
|
YcAySsA7o3AGodwv+RKc+ZZoa+l7njaDIteKNSbSTAxxGldeXDaLyJs72wzW
|
||
|
|
M8Gwzv5cRczCbWR8tZspE2vHdq7OcJ4Fy/ve6aTzTPT3VC4d/m/+36mj5VcA
|
||
|
|
ExuP8Abjc2YhnGVILX/LBEc+UqtyaBY6Zbcp4r+YkF25qXKD1BzeHJc9ptHE
|
||
|
|
hEh6rroe5uCotfq1FpMJtfs7SW5Oc4hxVTQXF2fhUTdVyfTZHMRXb54rX8VC
|
||
|
|
v9I+r6Dfc/AlL7yWbczCEU+bB9yhOfwqcot9bsOCnYu5tYgoiXA25LrqX2Oh
|
||
|
|
XvBizdrlJCK4U4z+98m8K4wB+txGEmFxfXrP01gWOGZKTvGmJCKsdekVyTwW
|
||
|
|
jBZLXh48QyJsotQrH847JB6Wri3kTSIUoqylPtNZoH9qO139mEQsH/NtZIqw
|
||
|
|
0dlBIa2KIRH77vhZmy5nY/pk0QWHLBIhSo98p7WFjVqloMvaNSQi/kFJvqI5
|
||
|
|
G5s2Sli+6icRipPGTw6cZYOo7yuhzZKImy9mo8Z82HCvcnxXsYRMxOwRW/Ht
|
||
|
|
MRtNNw5wXmiTiRd33JMrYtgoeOY61LuDTHwoXh8vk8nG2d3PDzUeIxPStH2f
|
||
|
|
osrZeCD3tjfzEpmI65OwPdfNhs3lJTT5e2RCyMwu05nFRkKeY/vlaDLhFigr
|
||
|
|
/noBB2+nAkTd0smEcGqezowCZ763L5OllpOJX44v/b7ocOb3s1PYoo9MdDVF
|
||
|
|
05yNOOD7cpyqN0MmrAjHYv9DHKjuOq2YJsVHmMUL1LfZcaClwZnaqM1HbI2u
|
||
|
|
o2p6clATMnhffScfIXFKSrLzDgfruV7l0if5CLnB0L2XnnIgKH/kW4wnH6Ga
|
||
|
|
oBal/4GDzzrlcm9C+IjT71dY3vrOQZCoVVjUBz7CJnPO1+83B5Uaa8P4s/iI
|
||
|
|
JV0m4aLzjubUmJ3gr+UjfnoX0ntaOSg6ue2HyAgfUfE2YM5ykIMsTTF3DwqF
|
||
|
|
+Bo5anuBxZn3n1rWo0Ah+jRdDs6QufiYwv2euoFCNNyvkzQU40KmeUuugimF
|
||
|
|
eNyVQy+bd3jWPND5kQOFkM889DtzBRdf/cNox29QCKXc296u2lxIcVfF6YVT
|
||
|
|
iHMvtNztNnHx5eh7y7dJFKK07+zCF+BCdvvGBQ5FFILIuO6UsJuLYONvKRu7
|
||
|
|
KURzWLhIhzkXl6/ZZljzKETMVJ3rjCUXN8/usRCT5Cf+8JKcr9hwUfps57oK
|
||
|
|
LX4i/lZb6qA9F8MxKdv/7eQnThWsf2F/notnES/Kpmz4iS958qsyL3KxX1f2
|
||
|
|
58er/ETCUw+bEx5cOEYFt0Y85idC0ullyle5SLawvhv9mZ8oXjmR9sqHiw0Z
|
||
|
|
A4LDv/mJXsE42903uPAz0lu5o42fSAloSA+5xYWRVvat5Wx+om2A9lLFnwvh
|
||
|
|
u9Jmu8QFCDOD6CyB21wIOUScsdUUIIxEJjOOz+f/AWZ8DJY=
|
||
|
|
"]]},
|
||
|
|
Annotation[#, "Charting`Private`Tag$13624#1"]& ]}, {}}, {{{}, {},
|
||
|
|
TagBox[
|
||
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
|
||
|
|
Opacity[1.], LineBox[CompressedData["
|
||
|
|
1:eJwt13k0FO73B/BZ7ENFZSuJtChKSVniPiiaVm0UhXwi0YKUGLKrlGinHVmz
|
||
|
|
hEJZnkxJ9n3fhsHYhrEvg/n2O+f31z33vO4573PuOfePq2Bz46QtiUAgEIkE
|
||
|
|
wv9VL1ef2gDzQ3oyBhVcHm8UspRPXdRRuQ9ZjtOlzvRRIN+ly3upRUCeYZlc
|
||
|
|
pvco4NU+ptTMKPjz30Cwnf4oXKFTBt98i4f34bKM43yjEKSi9Wf53lTopM1l
|
||
|
|
UugjYOeZezb1UzpsiJNPUA8YAUP9ZBfWyDeo8JlYu11/BKScV938pfwdqDda
|
||
|
|
71zksYFXzccVVc2FPzEiHAKdDZHiRpsvO2NICmb1u3izQUX//jUpKIBnWZRF
|
||
|
|
E302kFPjtcvz6HB4znDuMh8b9jwaO0e58BscBpTdTtCHYZLI2+fDKIQQBbMV
|
||
|
|
cQHDsJy128UroAikhHZtq9Qfhhhi7Ouy9cXgTFbYrkYYhsKvrUEnI0ug3Mjs
|
||
|
|
yCJ9CAwatQqtDcrgqabO8FufITj09HxRTFE5nHOxi4s3GILU3Lg1N69Vwn1z
|
||
|
|
6AniDYLxslc7iwOr4J6ZivD7vEHwDN63d9KoGu6/taYq+AyCtd607X/SNTAe
|
||
|
|
akBx0x2EB3pPp9mtNWBZ6tivyRsAp+ZSn8g3tRCxJiFZnT4A/EkyuyMc62Cf
|
||
|
|
7PNJgs8AdJZQqUmq9dBt/cdU22AA7BUe3yMTGoBzJlbbiNcPKRJO2L+iASqs
|
||
|
|
Xgs8zOsHbZPd5+RDGyE1rZ6t49MProWia3lWTTCdlm+KdfthIqgIzSs2g/78
|
||
|
|
SEsKjwVqTHmrdd3NYGGmbtxIZ8Eat0exQWkt0G6zUaPGhwWHzVqPi9xsBZtM
|
||
|
|
Sz0tQxZsvaGnWLO/DU5kHyh2IbDgWK2/6TehdgCS6w1peh+o1dgFFPxtB551
|
||
|
|
5uJ0QB/8FLJsFY/ogE3XY8XiDfrgxcO9z70sOsHkV7tmIV8fiEZL5EhKMYD5
|
||
|
|
h977taAXko42bfG/y4D9nTke7d69cGNdqPFiBwPiYWGri0EvCFOqPCKMu+D2
|
||
|
|
scHzzbwe+CNHsjJM6IL9MfKJSQU90LVI+kkU7gbmiiud2QE9UDcXotHt1A0D
|
||
|
|
W61fvjLogYE1Iuerqrth/NF7+26+Hqg/t+IVQ5sJl94F5/IKmLDetvcYfxQT
|
||
|
|
YujBs2d8mPD45eesvaQe6N9Rc1zakAm1TO7uRw498Oxw0ZZkAhN0zHT/Gynt
|
||
|
|
Af1UslwKvRs8+oRiXTR64WwB+6mvdzdIG0bbUt71gm7/ECdEtxuaCrc3pC32
|
||
|
|
wkaznQ4ChG5wurTfwsOuD267KtmeyOuCrcqHn5j87YPiZkuakHcXGOas36+z
|
||
|
|
hQVDp5LdZ/W7QP2KD+VgGAtueSbM/eAxwEi32t9mjAUk9vDzgQIGqKkmrfhg
|
||
|
|
3g+zlI60wX97dB88I8sp6IdcYGYq6TKgp5xTd0xxAATdrFJe8Dphc/nqT5XB
|
||
|
|
A2BXemo8yKMTHo1vU7IcHoCS1IarJksdYNK7QoF4ZBBK83yzHgZ0wNCE964/
|
||
|
|
GYPwYct9/quEDkjYwpgMXzUEtzfIBSsFtoOee0lpiNcQyNPEJPx4bTA9GnMq
|
||
|
|
rHMIym0eVWX5tYHobpOzcTAMMq7qVlZCbTD/LMCZETcMe7o1xj77t4KIbKLO
|
||
|
|
ZmE2nGX8+V4l2ArjOedkw1zYcEgnI/C1bwtobmu6JdbChlZcpNCw2AyRP439
|
||
|
|
wrVHwLnOYXLArxm6nPWjD0SPQNOBKyVRi02wn6pyi8A/CobG0w3qvk0gMNL7
|
||
|
|
q/LSKBxx+ZyxR7AJPqQoby4oG4XN8znPOvwaIeVQqhxDkgN8EhaJloKNMFO6
|
||
|
|
LN3pMAcyg8789vf9d3cZ9QEU73++8U6K7FI9zG9fraaaygGzU8qVD/zrgZMV
|
||
|
|
0WvF5ACtQ2Pi3VIdzNS+vCmzagw+zVUdDfarg2RTLrQbjsE1ved3+oXq4Djr
|
||
|
|
k2S62xjwM9JjhwJqgUQpKhSLH4NocWtKkXAtRO7b7u3RNgYSH+1vGgfUwAni
|
||
|
|
MvHrYuMQmM8T/yhYA2kqZ7ocdcfhhQD2cQiphgXbrhwP53G487l5vFmoGs7u
|
||
|
|
6ru+ImocLjL83iiEVMFHUTWVrIZxkHW5Z7xMsApeHe3abC8yAUxz+3vNApXw
|
||
|
|
UYGy8EF7AsLHOoaNxCvgOdmjpf/6BEzoi55bEiiH13cuPsn+MAGn00132S0r
|
||
|
|
g+OnvwQ9rfznt8Y+p8mWAkd3f5AXeRLUJwxUjCVKIOqHieWo+iR4haXJhKwp
|
||
|
|
BnQgCrnYT4I9q0FMbsVfCNljcZH3ZhKePDkSFSZcBEM/HpmvLJuEQovO6K+r
|
||
|
|
/oDGUbKlJmEKIjq3JClSCiHMZVyrR20K3P1DFfRX/obGmE3rI22nYJaR9C5B
|
||
|
|
4BeUA32/fcQUZD2R/TG1VAD1Vxv0M4unwMMmxnBcqAD+xu2grl6agr/N5XHO
|
||
|
|
CxjKbhGVudun4cv2h1FWIvngk6htPGQ5DSJbB9pXKeaCPDv7xvDTfx7+dZPl
|
||
|
|
ih9QRU91cv01DTbGP6hCitlwNXaIJjY7DZZXVD2MRDIhm/O48Mu2GajYqT90
|
||
|
|
eCEDVlckslosZuCkduiedPF0sPxOWSUZNgNqV1+sO8dNhey9vdJNP2egj+kT
|
||
|
|
sFw2CQrWbjr/iTMDL+KTHU8fiYfM5UkJvkqzUHTq27WCbZ8g90ViZe/pWVDy
|
||
|
|
3qnEOfERUpRHeOYPZkFAUXwo5FA4pJkkCpn9mAVZo/jp/LthcKmj/PiFwVlg
|
||
|
|
CwYIy371BZLHnkjXdXNwlLFT4sqUPqTFS5VKHJ+D2y8bt5Z99cRHenV5Bf5z
|
||
|
|
cEM21MRPPhS/ul/qTMuaA8E3poa7Sl/hifzq3BzWHPjHe07Ju3/A2mQ5CbG1
|
||
|
|
82DvOp1t2ReNn7UwoPfIPLiv+kF3LI7Db6RFk4o85yHs8r7Dg+GfceglT8Wc
|
||
|
|
L/OgVMfMRjmp+LmhrbNG1zwYW1O+O5Sm4UC1ZyU/V3NB57+9QpHdGXhjwBYb
|
||
|
|
UyoX0jFdcgXnG25w2FPj4s6FVW0rD69rycI3rR4c+ZjMhd2BM87h7O9YgXX6
|
||
|
|
w+kOLsDIx/y09hyc42m7ILNyAYR72hb3zORhPvf2VwNGC/BZZt9dD/JPbCVU
|
||
|
|
QUFuC3Ak8uqKhLmfOCaGHBz3eQGMb/S9CeGj44X6NMaLtgXQlDP8UbBIx+Rr
|
||
|
|
Rbceiy4Cx+24psT4Lzwtrrg6HC2CgExMqjT3N56nTj3a4rwIK1+3f78+XogH
|
||
|
|
QsWWl8QsgvtFqzyPpT/4/r6QylvNixBbH7Y+mv8v1vQMtI8XXoJi5RjJNdy/
|
||
|
|
uK6YThnWXYJDv0kCVP4S7Jt4517m9SWg6xne/7NYgtvHXug/fL8EXFt1B+ux
|
||
|
|
UrzReJbfuWYJntVePfBlrgzf3VEb1U7iwXqFBxnHOeX418YJqsVeHoh9G5GN
|
||
|
|
4VbgLD+PHUwHHnTME50pxCqc5+LBHnvNA3XKktxVWhVOccLfxCt58DX/fdFm
|
||
|
|
QjVOI3qZZvP+efcXbYpnNTapwgRNWQLqjr+cSCXVYPla1ynp3QQ0dmCaKhlU
|
||
|
|
g2/L25nqHiGguZPT6SLEWvxr3H2fgx0BqZHfSJsH1eKI5SWPW+4S0KUNacbV
|
||
|
|
pDpc1HmUUPWSgBZkPsQ2eNbhwT2T0+VfCCg/YydpL7Eev2xsOLe8mIDu5mls
|
||
|
|
xp71WJPXqn+OSUDXHDoORpEa8K6WVdQtiwT0k235emVQA/669CBXezURUbpM
|
||
|
|
viURGrFKosK3MzuIKNCNVfYxsBGrfpiS+WpMRIteo8m5xCYcaLz47pUVEdWa
|
||
|
|
V+bb0Zpw7e3Ncf7uRNTccqrMkdeEE0dD1mY8IaK2Emp0uEczdhuVlBr6TETL
|
||
|
|
LHturye04DLNNi+730SkdZGzssqzBbtr1JMvtxFRkXYdQ2ymBa/9zlnmNP0v
|
||
|
|
P+t8YiytFRsHHQzKXUZCOp9MdS/PtGL7FrqfuDIJrd89Vebn1Ya7upzeDxmQ
|
||
|
|
0JXXjo9UiO2Yuctik7AFCaU6nVq9RGvHLSL26jtu/Zsf7Hy9ldiBzVXSksJD
|
||
|
|
SOhxbfvAXa8OvIu4/cC9GBKyfpZhf3GmAxMulNvcxSR0cVq15z2tE5uSEoaz
|
||
|
|
G0nIvFhGmW+mE0dtj+Nyx0ioQP6Mho0eAxsta1b+TSEjQSPh68I+DOyy1/h3
|
||
|
|
5QYyOqR0++H+PAZ+zmpkMnXJSOm0xuZkHgND16cbOqZktKCTHJeg24UZF5/7
|
||
|
|
vHEio2u33GJrfbpw04usLz7BZCT6WjXvN70Ln1spdTQhiow+336bTSV04yqp
|
||
|
|
iOstuWTU9enCrgWDblxpa7ZwrJ6MVj5sDDPw7cabLlMTDrLJyO28rqBJfje+
|
||
|
|
OXqh9ZAgH3LxnuIGE5iYWpDiHibPh66Z29Wf02PiVbKK7zq0+NBCkLKqqS8T
|
||
|
|
791U3Jl2ig/lvW96K/OLiZm0pMd/HfmQ13U05kTowYFn0+msQD5UHzr/a8qg
|
||
|
|
B6fenbQ59J4PKV+5Rlvm24N3nnVQ3JXJh1JUyw6N5PXghGzSZcUqPlRm6BXO
|
||
|
|
5f3rbRqlTPv5UK84q+Stbi/+8Kzi6FMSP3q5M5rm6NOL1y0jccTX8CMjYWnx
|
||
|
|
ivxePKlzJU1SnR9tLLuTP8PtxT854zMbjvKjt4xtg8f0+vDq0exEV1t+JJ78
|
||
|
|
al7Lsw9bu0Z2l3vzo3WlZx6cxH2YlJynlRTBjyzqeDt2EVlYdYfkYnnav7wX
|
||
|
|
Njkxeix8TPPJgdlSfnQlXqrQyJeFZ4MPztv28CPtm4EZNMzCc2HqFWcX+JGO
|
||
|
|
cud3twUW5sjpbz4tKYBq1R7qRer1Y6fJ4OGn2wWQA2c0ztKzH/edmNnTclAA
|
||
|
|
RRDjQqm4H2fYvPoYayOAZhapoVzCABbOu3k700MAnU6PuamvN4DPvHeprngu
|
||
|
|
gA5mn2r46jOAlYuTw7cmCyCt2z/kcvP/edxab0qhALKQF/MK5g5gN9GUwckO
|
||
|
|
AbRaNt08SHcQK+TQ6AozAqi0bLmcJG0QF3Ac5c3EBZFMNb5QmzeIB2+E91cq
|
||
|
|
CyK7kC3+SguD2DFqtqpcXxD17Pb6uU9rCHdZ0PTqLATRrKqSpx9tCDMstaXX
|
||
|
|
uQoikU7/tee/D+H6/jVuTo8F0dcuDZ3/Foaw4qadU8bxgiisstZ5p94wnkny
|
||
|
|
67T5KYgu39oa8ow2jOk/po8FtQiixqu1mzbkD2NJibit7HFBdGCtRozRwjAu
|
||
|
|
WPtwY7OIEGJm+uns1GJjm5QnMeVKQkg6WtGESmPjRw/qnvDrCqEjxjTqVDYb
|
||
|
|
Jw1pkY3MhJCU7qaCCi4bbyDWPqM4CyGJdXkmN3RH8Abr+LBVD4SQaJZoYbTH
|
||
|
|
CJYx+iixKVoIvYtMyeLPG8GvbtURaDlCaOt+4VDu/AimqGxzbaoXQsc1M3vW
|
||
|
|
6Y3ixhffBHJGhVCs1PGTwj6jWIXqyd8lKIwWUj5+upc3iksD3p/kKgij////
|
||
|
|
8f8A5xYj/A==
|
||
|
|
"]]},
|
||
|
|
Annotation[#, "Charting`Private`Tag$13657#1"]& ]}, {}}},
|
||
|
|
MaxRecursion -> 0,
|
||
|
|
PlotPoints -> 257,
|
||
|
|
AspectRatio->1,
|
||
|
|
Axes->{True, True},
|
||
|
|
AxesLabel->{None, None},
|
||
|
|
AxesOrigin->{0, 0},
|
||
|
|
DisplayFunction->Identity,
|
||
|
|
FrameLabel->{{None, None}, {None, None}},
|
||
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
||
|
|
GridLinesStyle->Directive[
|
||
|
|
GrayLevel[0.5, 0.4]],
|
||
|
|
ImagePadding->All,
|
||
|
|
ImageSize->512,
|
||
|
|
Method->{
|
||
|
|
"DefaultGraphicsInteraction" -> {
|
||
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
||
|
|
"Effects" -> {
|
||
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
||
|
|
"Droplines" -> {
|
||
|
|
"freeformCursorMode" -> True,
|
||
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" ->
|
||
|
|
None},
|
||
|
|
PlotRange->Full,
|
||
|
|
PlotRangeClipping->True,
|
||
|
|
PlotRangePadding->{{
|
||
|
|
Scaled[0.05],
|
||
|
|
Scaled[0.05]}, {
|
||
|
|
Scaled[0.05],
|
||
|
|
Scaled[0.05]}},
|
||
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 03:52:52 \
|
||
|
|
Out[399]=",ExpressionUUID->"6ad981a0-60d8-4ad7-bc69-c7a1d08db158"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
TagBox[
|
||
|
|
TagBox[
|
||
|
|
TagBox[GridBox[{
|
||
|
|
{
|
||
|
|
TagBox[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.000003141592653589793\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
3.141592653589793*^-6,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.999998\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
0.999998,
|
||
|
|
AutoDelete->True]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"3.14158951199714\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
3.1415895119971395`,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"-0.999998\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
-0.999998,
|
||
|
|
AutoDelete->True]}], "}"}]}], "}"}], "}"}],
|
||
|
|
DecimalForm[#, 256]& ]},
|
||
|
|
{
|
||
|
|
TagBox[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
0.,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
0.,
|
||
|
|
AutoDelete->True]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"2.644715082726751\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
2.644715082726751,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"1.531824801015901\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
1.5318248010159012`,
|
||
|
|
AutoDelete->True]}], "}"}]}], "}"}], "}"}],
|
||
|
|
DecimalForm[#, 256]& ]}
|
||
|
|
},
|
||
|
|
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
|
||
|
|
GridBoxSpacings->{"Columns" -> {
|
||
|
|
Offset[0.27999999999999997`], {
|
||
|
|
Offset[0.5599999999999999]},
|
||
|
|
Offset[0.27999999999999997`]}, "Rows" -> {
|
||
|
|
Offset[0.2], {
|
||
|
|
Offset[0.4]},
|
||
|
|
Offset[0.2]}}],
|
||
|
|
Column],
|
||
|
|
Function[BoxForm`e$,
|
||
|
|
TableForm[BoxForm`e$]]],
|
||
|
|
DecimalForm[#, 256]& ]], "Output",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 03:52:52 \
|
||
|
|
Out[400]//DecimalForm=",ExpressionUUID->"400fe22f-5fdd-42d7-a1bb-\
|
||
|
|
2bf2e3b699ed"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:146b\:146d", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
|
||
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
||
|
|
RowBox[{"1", "+",
|
||
|
|
RowBox[{"2", "^", "0"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:1513\:1515", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
|
||
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
||
|
|
RowBox[{"1", "+",
|
||
|
|
RowBox[{"2", "^", "8"}]}]}], ",",
|
||
|
|
RowBox[{"Ticks", "\[Rule]",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",",
|
||
|
|
RowBox[{"ImageSize", "\[Rule]", "176"}], ",",
|
||
|
|
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
|
||
|
|
RowBox[{"AspectRatio", "\[Rule]", "4"}]}], "}"}]}],
|
||
|
|
";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:1586\:1587", "=",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"X", ",", "0", ",",
|
||
|
|
RowBox[{"Pi", "/",
|
||
|
|
RowBox[{"(", "2.088976311546913772239187217936", ")"}]}]}], "}"}]}],
|
||
|
|
";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\:a5f3", "=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Pi", "/", "2"}], ")"}], "-",
|
||
|
|
RowBox[{"X", "*",
|
||
|
|
RowBox[{"(", "2.088976311546913772239187217936", ")"}]}]}], ")"}],
|
||
|
|
"/",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"Pi", "/", "2"}], ")"}]}], "*", "1.4910479522822721"}], ")"}],
|
||
|
|
"*",
|
||
|
|
RowBox[{"(", "2.088976311546913772239187217936", ")"}]}]}],
|
||
|
|
";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Show", "[", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1586\:1587", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "]"}], " ", ",",
|
||
|
|
" ",
|
||
|
|
RowBox[{"Plot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1586\:1587", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], "]"}], " ", ",",
|
||
|
|
" ",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}]}], " ",
|
||
|
|
"]"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{"TableForm", "[",
|
||
|
|
RowBox[{"{", "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Flatten", "[",
|
||
|
|
RowBox[{"DecimalForm", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"N", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cases", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Plot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1586\:1587", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:146b\:146d", "]"}]}], "]"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Line", "[", "X__", "]"}], "\[Rule]", "X"}], ",",
|
||
|
|
"Infinity"}], "]"}], ",", "1"}], "]"}], ",", "256"}], "]"}], "]"}],
|
||
|
|
"\[IndentingNewLine]", ",", "\[IndentingNewLine]",
|
||
|
|
RowBox[{"Flatten", "[",
|
||
|
|
RowBox[{"DecimalForm", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"N", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cases", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"CurvaturePlot", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Evaluate", "[", "\:a5f3", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:1586\:1587", "]"}], ",",
|
||
|
|
RowBox[{"Evaluate", "[", "\:146b\:146d", "]"}]}], "]"}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Line", "[", "X__", "]"}], "\[Rule]", "X"}], ",",
|
||
|
|
"Infinity"}], "]"}], ",", "1"}], "]"}], ",", "256"}], "]"}],
|
||
|
|
"]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "Input",
|
||
|
|
FontFamily->"Segoe UI Emoji",
|
||
|
|
FontSize->12,
|
||
|
|
FontWeight->"Plain",
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 06:21:12 \
|
||
|
|
In[2805]:=",ExpressionUUID->"ac10700d-8814-4f2c-9e28-65b26f1985ed"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
GraphicsBox[{{{{}, {},
|
||
|
|
TagBox[
|
||
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
|
||
|
|
Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
|
||
|
|
1:eJxdl2k0FXzU9pHIUBRlrFSi1C1NIsMVDTIkmZKQlAaplNuUWcqQMpQhUoZC
|
||
|
|
JZShKPNMxmPmOCPHwTmnJOFGj/ddz6dnf9nrt/b6773Wvq4P/73F4bapIw8X
|
||
|
|
Fxc3NxfX/8v/N3g89ILM5D2wQ5MRdIpLEL8yk+vcZEMRmuheOau4G++DdVfz
|
||
|
|
jUUjbIuHbvqiNvpZLzLE0uNRdyzwrfeUAUoj16h59iWDWTVko+tiAdamIfdv
|
||
|
|
7akQj8s0qwiww1v+mYSSn68R2xzwWlTIEXe//HxgzZOF+zdltc6/uIFdF4z3
|
||
|
|
ew69A92EOsijeweCzff1+KY+wP+MK2vqhhtGf/BFul7Lw4Jb6nnWJy9YKVOc
|
||
|
|
w9o+YkOovuzYET/ciTvxtcksHwanqX0HvwciZys9sfBbAXbnd7oWeAXjDuNz
|
||
|
|
1HndIvgFXM+gPA3B6B7GrX3ln8EndYf4vDMcCVm09Ca5YjhBQdmU7wl6nmko
|
||
|
|
+L8sgW20xEFGbxRSPwwf4eL+hstWzX+602OQcdRBSc6/FBujrgUa5DyD+5DF
|
||
|
|
cZXpMvDIee9BfRzChNft2aZYAcs7D2qNOxJwbHv5iixKBSIsaRn8m5IQwuZ/
|
||
|
|
WPakEquCfPZ8tEqGmPMOS6dDVbDioSs/THoF1bP7GIdZVRjwLWy9vi4VkoKH
|
||
|
|
U+piq1FUb5ekZZiG/TL3S/cZ1sBWVyp2KCsd6xevfOBdqMHNySbXl4JvYNws
|
||
|
|
6Fbzqhb83k7TrbYZiOgVShE0qYNfQQF/eG8mvOalt537VQe3VvmuEzpvkaQY
|
||
|
|
3KMTU4/aWfsjRtnvsO9B808rrQbEKBoKuCMbzZZThPzBBih8+uMnX/EBp4Oy
|
||
|
|
H808aMQ1YvUzPadc+Ds0aSVva4Lc31NUo4A8JKp/ucz81oTQl03ks4YfkTTn
|
||
|
|
6FJzsRnHlvorCLs+gfrnIENvvhnM/Ub7wZ2PcGMHD7GX32Hx0l/402Q+eIvM
|
||
|
|
TC5qteD1xfTNi70FCGov9E1tb4FjBNle8nMhLj4qrmm71Yq4tZRDpOwivH1K
|
||
|
|
C5XgbsNdI35XSuxnbIrbLL8nsg1LGpEl0b5f0Ec728wRa8fwg3e6932KsTU4
|
||
|
|
L8Hbuh3KHOF7eTdLEE+KGVPJaIfN2TNhz92/ItCHMVfOaUddXYTiFr9v2NER
|
||
|
|
SXu/vwNqyUUBbPdSbFgrqR7v0wELk+PaiyFlKJ75Wztd3oEO0q3xjrByuAs4
|
||
|
|
kPas6oSVrX3WTtMKBCW2CFgad0IySCbJcbgCJHGnA1KRndic1dX6zKESv4fl
|
||
|
|
n0V3dcJNp8zQ/FclLg3I65SKE6AneU6yxbsKXDotSVxmBNBDtHe28FRjw8e9
|
||
|
|
WZ2xBPS/PjETFVcNnx/WCCIQwOfTYpC9pQb780caUtd3YZfQtbii4hoQRUW6
|
||
|
|
2i268IWr8qS2SS2OD//IWhXdBSn9flQQa3GgMyX9UXsXaAKGPHaedYj8/FdE
|
||
|
|
WagbK9e6d9UK1ON2npzm6mPdiP0h96/B83rY60q8Wh+4zAEGXmKqDTghUHbi
|
||
|
|
anE3ZA5Y/7RobMCLcSm7ut/d2FAgL7x0vREz7yY0HvzTg11XpE2nuZrg/9dX
|
||
|
|
OP5SD0ZFS960xzbhyPD8hvjkHlgrVf48oNaMjdqbZOQIPdAcrBp/1d4MnaDa
|
||
|
|
QV/hXvSprRPPdf+OyH93qu461gt917irz6VbIMQrnBfu0YsUf/EPJwpa8E7j
|
||
|
|
8K60nF784VLULTzfCrMzRr6BlF6oWQhsrJltRd70Qsfguj7UfDiXeO1pG6TK
|
||
|
|
L1EJen1YMLcl/drYjpO5ejIlnn1YYkokjDq341CkUfqOD304+yZCtKOqHT5M
|
||
|
|
s89ryX1Yx7V6b6DEsi8sTu4XEenHi+Lb7xuvdCBs1dFuX51+yOe55ImXdqBe
|
||
|
|
hTMu7tIPS+W9O8dXdyKP3+a9cXI/NnA9cr9u2wnloto0eks/anZUa0/ndyL9
|
||
|
|
gE5n7Xw/ZCfCQ6d4CThtstt2SmkAsk5E9gpbArwD/sD37ACaVlSM+OQSYBC4
|
||
|
|
JbgyaADno63VIrm6cMvAnoaPA3il2cX+atUFjwqno1pDA5hv+uel5vsuzHF3
|
||
|
|
Zl4RHIQ37XUikbcb/ZfzVE8dGoTofzKCYrbdkLe+b9dpPwjBP0MHwnO70cIs
|
||
|
|
eeb2eBB8CqmyigI9KFvcpdJQNIjz3ld8F2x6MOfLjpgbHoTIzNdPZrk9SNru
|
||
|
|
7qwlOAT+Y5nC3at6ofrmcprRviGImb/q97fphZC059xl2yE4nsyxtfrciyt8
|
||
|
|
hAMOIUM4u7FXLEe0DxLdhHvHc4bQmnIufvPlPtzWq5va2TeENNnzjZVlfUh4
|
||
|
|
pJ/F83cI20W3fPYU60exRuipnh1EHDW5+dnhdj9c18hmvDlDRLJIvGBZYz+m
|
||
|
|
qk83BngQEWzq/XTrpgH4L4l/NE0hYiFI0/ar1zJXSQhq1RHRKeHidbZtAD78
|
||
|
|
szaaE0Rsu3lr0Wrb8h7saLEqYsMgZ4YZR/oN4mG5Je8ZtWGIyfWNlxMGMaa+
|
||
|
|
xLxsPwymHaFku8oQ2jJiouNDhrG3y/LQZPgQ6pRbXFZlD4OL7Et7TRqC3/SZ
|
||
|
|
/FuEYdjpGn6L1iBiesumX7KzyyyoFe4cTYTAc7fgRRkSSi70BrwaIaJxHK69
|
||
|
|
uiT4vGoh8eoMw0n0zRP+qyRItlWvNY0bhqvuyWsHnpDQe/3W7vap4WXdo+6V
|
||
|
|
fyIh6K5j1j59En4ml/M97iGB8NvPdjSZhBebc9deWCSB0nCusH6OhFItd4kW
|
||
|
|
UTK0minONYpklHxasdVFngziU+Kdw5ZkeKw6wyk5RMZcJtGk5z4Zvo803pfp
|
||
|
|
kzF7a0rdPoeM1Is/a0/ZkmHe1rvRd4gME9JFs4TbZBSbJy895KdAcPF4dmQg
|
||
|
|
GV0/s58W7KUg8ypHTiqWDBUqS/XuBQrEI/aG2WeSUcZ7KU8mnAIp3Q9p+EpG
|
||
|
|
golUnekXCs5yvSR2tpIhzFN85t0IBQMzSx7bKWRMBCTxs0SoeP59V5jkbzIe
|
||
|
|
uKT4F2sts/i6P83Lc9cJ78h2uUaFS8wst6IsBaLhq71y4qgQV7quoKVCwdOb
|
||
|
|
zo8FaqjQErXUFDtKAY3idPo0m4o5ZavwpLMUVGvX5G6QpeHfnLAWmhMF/i47
|
||
|
|
gxtO0MDuEFVl+FKgKJmoFO9CQ8ndEKWsGAriE6f/UpJp4LUjMBUyKDB5PLEo
|
||
|
|
0UDDukr/aOevFBjfvpFd+5uG67lOq9zbKSivu0N4tJUOSf6ZaXU6Ba6be29q
|
||
|
|
G9Fx78uiYuccBSsOl6xz8KKDoa2tvW0NFZ2q8rfuptPBZeEvfnArFawP86NJ
|
||
|
|
3+lQiJ3+u0ONil36jEXlOTr2LxV9bDeiInqrcHTe1hGUFZYMO16iokKY9Sr2
|
||
|
|
9AhOfh9n1XhR0X3/o+kT7xEY5PV6dTyhIisxnsfz9QjuOH2yGXxDRaiapuu3
|
||
|
|
9hGIeHvURn6loqd4x/zU3Aha0yz0jAlUWKom/vFRGEXwp3pG/zgVPo6/IGE6
|
||
|
|
it2SAXX83DTEv3d+m3FvFOnevTMmUjTUWkS1+WWMYqtY8kU1leV6ndP1U22j
|
||
|
|
IFJEGPTlvSoq8vxQ/jOKi6EiV8ou0OB59cv8qa0MMH2IUbs9aNh2+Mq7qwYM
|
||
|
|
kE69OdoTRcPSiEJSoRsDU57Oi8bvaKhYWbpKJIWBj0HcfmeqlnVoM1lxrZ6B
|
||
|
|
rlzrxrQhGo75XGpl/GRArLIRnss6LKWyJa9LjWFTqXPC2jV0FCj/1z6HMRwy
|
||
|
|
/cu7eicd89V9gunXx3AfFUYBunR8HTG8bxY1BrHTMRGOdnQIylvmiJaMYY0H
|
||
|
|
weGbJx2vhikDveQx5FrfXNETQ8fmibDp93xMFLooGLrn0mG2m/jOZw8T/4Wo
|
||
|
|
2t9rouPCG3s3OwsmNj8Xer1+jI54X4tVe/yYsO7bruC7cgRhXOrfuTOYyPij
|
||
|
|
x62+ZQRHpum3WU1MEIkn/FIxgkSfkKiCKSZO+K15bmkzgh8POrQTJMbxxHm1
|
||
|
|
X4PnCB719/77QGMcoy9mfRfil/tJ+B067DAOTv73zTcLR3D0xviK9Q/HMdF6
|
||
|
|
9MHH7hEYbTIgZWSP4/WBgNmvv0egkF04d7BzHId31bn+FBuF+eCG0N/T47hM
|
||
|
|
uvFQ9OAoVPO/F5hLTyAg19PrjPkoWopFNjM1J7CxpjjysfsozpyfkRR0mICo
|
||
|
|
tlJqeMIommODWNseTsBqn0t33JdRVLgUXvHPnIDp7I3IgsFRDC8FW59qnsCi
|
||
|
|
Cv9078IoWu+sn3SYnIC/RJbt240MKOs4qPkKTyLAVEgoTYeBiHohFlt5EuWp
|
||
|
|
Mk0RlxiQ/mjOV2Q8CR4Dx77cUAZeVkk1lrpM4halLSjkAwM2LTkzxdGTmK3F
|
||
|
|
Q812BtIdFvhl8iZxsOLeKswwoJqcUp/cPgmZfU/NxKXHUPL4/WQEe5lT70iH
|
||
|
|
aY2hmqLn5S/EgvUHJp/95TE0lvMtuSqxID+iEf47dFl3gt290RMsUGs13i3m
|
||
|
|
jSG7U/L+EUcW7hmcq/zSM4Z1MSem5QJZ4D4aWi2wMIYb+blXVrxgQfhl6RhJ
|
||
|
|
nol7OtyC776w8KddxNLMkIlATWrbeCcLSj3d0ufdmGBXyqR1slnQCQ31XnjJ
|
||
|
|
hH6p+ViWABtmhvpXttcxsb+ixmbPVjbsFJq6pn8wsbKn7O1BTTa4XkpGHpEa
|
||
|
|
x6airpEZMzZukG7OrdEZx9WC0KWvTmxUyFxqeuo8DssY2bK+IDYCKuQS/WLH
|
||
|
|
saRNsm9IYIOy4R+Z3VXLvpjve8jOZWPN9xs3bNjjIE4r7FtRx8YuqnHGkMQE
|
||
|
|
jgX6Hl45wIbQgrnuP8cnoBcWHLCWw0asQINR1e0JrLwUpiLJw8EEQVCp+vkE
|
||
|
|
jNSNPBXFOegyVW5JqZ9Y/qdvEhNX5KDyVMvxnKllH4RMvpdQ42B+Tb506pZJ
|
||
|
|
xNU5vCHoc/DaqP7651OT+Pcv5VzhOQ7CxNy3KXlNwmUDt0XateX39NnBsKxJ
|
||
|
|
7Psj0yjhyUH75cNvZ7smwaIJNnU+4MAurivLeiULFdIvWtlPOXBmWcyLHWTB
|
||
|
|
LSUtYimFg4uQlGu8yIL6gbv67tnL9fn28+4xLMSWJPHIfOGgRNlLQ7yChf8C
|
||
|
|
bUTUqzi4KlFh/WuSheBMK4+bzRyU+6ufbd7IRmLnbuWkLg4ep12rDTRk49vO
|
||
|
|
IqWrQxy8MRZJ2+vLBkflwi9uOgeGvH6/JHPYOLZirXbSOAe/uKIOtQ6yYctr
|
||
|
|
ZD7P4SBq0ycfr9UcaGRGMH9McyA9+6hgTIMDQfWWhMpZDioy8yf1b3GwPZz2
|
||
|
|
fvE/Dr6vPri25RUH4Zfqw7DEgfDP0ZCVrRwYL6hmPPzLwT///+r/gTX/m/8H
|
||
|
|
eyMafQ==
|
||
|
|
"]]},
|
||
|
|
Annotation[#, "Charting`Private`Tag$123711#1"]& ]}, {}}, {{{}, {},
|
||
|
|
TagBox[
|
||
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
|
||
|
|
Opacity[1.], LineBox[CompressedData["
|
||
|
|
1:eJwtV2k01P//HcyMqWxFm+xCZIvkm+31KRSilLRYWlTaUCHt+yJEUkhKUUnR
|
||
|
|
JhTS+xPZt6yDbGMMM1lmn2GQX/9z/o/uued1H9wn99zX1Q44se2QNIFAkJIi
|
||
|
|
EP4PrXRC0g1t1zps2WnkPmeEgpUFV+a8Xn4Gbm43j1YtpmAkwuknLep3wG19
|
||
|
|
X7puJAUzHsx4jf25D/6+Vq5pOyiY69gaJ9OsZLhK63kkZ0DB5ALj7HMHnsLq
|
||
|
|
XWaloXxZbHVjRlJgZzpYSQwuuJXJYla6/XZo9iVU3q2WV70ni31w/ex0YHEW
|
||
|
|
HLlb4tLjK4uJthRUNk++hZ1fdikvMJbFlBSWnYtVfQ/U5idfHCbI2HQbtXnO
|
||
|
|
jY/wcumdke5KMmasMJYSyv0EV+vLK0MekbENOpYThCufYexUzqWJg/+4/nwV
|
||
|
|
ITcPstbZlPFXkzEzslalws0CEEidGhgikLHtjZNGDQpfYYuZ5E19PQnbd+e4
|
||
|
|
O/9yIYgjjaT000jYDnUFkoNCMZg3yVhEHCNhFhkuF8avf4Mvzjd51jYkbEI6
|
||
|
|
787PRd+h8e27u1wSCZO4/9mAvUAgumjYmNZMxE45+tHio3E4ft49vSSDiPk0
|
||
|
|
/D6m4vUDTh5Z4tEaQsTWbDVocVMohbJrMXf8HIjYR5cO5dbyUtCjbA3qUCBi
|
||
|
|
mu+1tTh3y2DJFWTo/lsGuzbPeh7a8BN8tNsiVmXLYB3tgz+0lMrBKO/BU4Uz
|
||
|
|
Mlj9ognPtrZykMt7GdTnKIPlb6Z+t4urgLV9frXaKjJYgmDzxJodlTAhKZHx
|
||
|
|
65fGAhISlAaVqoC8vqJW9qM01vTSVmqwsgq0RVp2r69KY6v1LpVExFVDw+Pl
|
||
|
|
tx08pLGYp9G7vm2sgcpjjXs3qktj7TfM0UOlWvBaqavswpLCVAIyiFp1tWC8
|
||
|
|
WGNH0VcpjJt3TufvjTpYePL4Oq0oKaz0NGveiU31EFu4n3zZWwqLNNVrTSA1
|
||
|
|
gJfprI+HnhSGeU8edm1sgOwHzlEqXAL2iGPRui2xEZQCe/c2lhAw7ron92QN
|
||
|
|
fkHFAY2KqVgCFr9+RNUs5hfM3SZL1vIhYIbwfOFH5i94ejy5Ld+QgM0XRV70
|
||
|
|
cWqCS4P8x5cFs8Cn27o2vG4CevNch2uxs9BY730rldgMg4tPEg6bzMKrcVsD
|
||
|
|
i6PNIOtgEGFX/hdqqrdb8WqbwcXhht3knr/Aet6SO29FCyxPNNFJmZ0B6Q8a
|
||
|
|
SeMxLaBTb1i84tEMLCxsZBqxWqDYNzws1XoGdCTu6eabWyGiVqlvpmEaLgun
|
||
|
|
y/d+agXPhdtSNx6ZhtbRBT5M+Tb4mU+LCKdMw/JlQi+b0DbwtS4j3X8+BSHO
|
||
|
|
9iWMxja4q8j/HA9TIGv0NaFoZTv8/lGZe6ZfAqnOs/W77rXDJu/xg5vPSWCF
|
||
|
|
f85Zz9F22AkH1lCWSuBDtl7U/K1UiJxrVPzp4yTczmsiTX+mQsuHxPj1bpOw
|
||
|
|
o5DOBaUOKMrecqvgzwRoC384eoR3QNkdXxPVGxPAMCaT8po64PC3fME+nQmY
|
||
|
|
0Lhk4WTSCUY1eXL3ysRAdsHLn8Z3gkIhqSPHTwzywUerPMc6Ifbvy9J30yJQ
|
||
|
|
rO41r9/aBWZ6SfvSHopgrnYR5cWHLgjKaFMPtRTBdssq94x5v6FysnClSasQ
|
||
|
|
Ui5miI6d+A2OFpxRapAQqD8GFGPrfoPvj/D6Q3JCUHJgx51d1Q2Jqzbtp78Q
|
||
|
|
wKNw0/OxD7th7EKFs4u9AJa+bmmd4nRDv1q8a3wPHxKVnBMtvXtAmJZNqDrN
|
||
|
|
h7kRauU/c3vg1ZmF1AEVPjQk6u+/otALYUbL/w7m8yB2dDpAJrQXDny/2dG+
|
||
|
|
mQfOsLa1v6EX2FmWzdnjXJioWpcdadkHqeGrr5y8zQWJ3KXxnUl9EKjadVFN
|
||
|
|
iwtCd430a7w+aFjUkJKNc0BEK/ezWdkP3gLlY0a7ORCS+uF5/+5+GPP0/LyE
|
||
|
|
ywb53NzHqZH9cCq41DLbkg2Gg6kbbQv7wda9Q1U9cBzWq/yXEzncD2s7ojHv
|
||
|
|
zDHo2FtU9nUpDS7r0+qC2kfh+Bt2QpILDUTarcluKqOg7+mwJCqCBq+blIhi
|
||
|
|
7xHYsyDMc18WDZ45ctuvR/6BB80+2GA7DWoCQpitFSxwfr+C7j5nAOyc7u0j
|
||
|
|
i5igOaxoV2MzAMOdk+fIhkwQqr91FxwZgAY1qea6o8PgctJISSZ1AMTaOfGh
|
||
|
|
j4fgEe4f8716ALa38mN7OxigFPL2W5x4AMZtbhkvXcYAknXPc0dDOtQeKFpl
|
||
|
|
6TEI4plSu1c76dC39u5p5Vg6BPbHxYxE0cGmWUqr5dsAzGiGx28opkO1xo/j
|
||
|
|
+zk0iPeX89jMokPiEnVR/ioapBdEf7NZNggvWtWGWQH98F7+G73FdRCaLoSa
|
||
|
|
VDn2wdqrLSVbLw7CQDNv94X0HhjZQtw8+G4QghPI1bXkbniszkzU7R6EvTle
|
||
|
|
+VmRXVBBzo3fqMCAXjdmiBOzA9hjpo5L7BlQ71jwKuggFcCiPHvmGANMXi3W
|
||
|
|
tGC2gXzCusrKJwxQjsEPFWxqBSr75GOHWgacqM0wrKxpBs2jt7UezzDALb6u
|
||
|
|
KMmwCeIg32+u2RC4X1BWl9VqBIlysqeB/xC0RBPQpG4d0GX2ilfcG4JDLy5O
|
||
|
|
HR2ugmpupze1ZAjaTh634NPKod0u5NjjkSGwVrw2XjBSCvtfMFetVx8G9+BN
|
||
|
|
0ZyjCJiyiz4lbRoGht5541fHCmEs0pDeeGkYkjgVMt5/cmGcxKnLzxkGkhvv
|
||
|
|
WfDHN7CY1hj0sWsYto7RU9YkpEIJNRHdk2PCVfbXW6NiX9hXp1CzzJYJnBXJ
|
||
|
|
Vqd8ktDV7uDIu8FMmKm9Y2Zjl4WqXIck858xYXpvG3VFZC6Sz5+v71TPBHsO
|
||
|
|
4YX09a+o0VaX6DvLhMAQhbW0me8oFh9O0TBlgc+6ZWMVt0pRWEY5Q+TLgrTz
|
||
|
|
d74GXCpH7c+iBj/HsqDibSDran4VWpNKSFX/xgIt/WbN2wW1SDnXnxg0zoIT
|
||
|
|
j94Xy080oCX6rbqNmn+AoWZx1GRhE1J9NCPp9fgDxg+8zlQmNKMUPflbLVf+
|
||
|
|
3W+afM0wb0ULPzVWhL//A9ZqDRe4uW1IYdfZYkn/H5gyNQi95k1Fpn42gYkL
|
||
|
|
RmBD56heOKcDbdrzoaobGwFtw3N+XSe6EOPC3F5K2AicEZSUX1PsRheTl2TT
|
||
|
|
0v/l6lD1pycPepCtEmba2DgCv4PX+aoq9aEzLz0OpkuNAm3ia2rQjn70cY3C
|
||
|
|
Ni3zUciMXV1LWkxDgYN5vBsBo6C5T+4hGqYhR3a46/SDUdh7+XHx27wBpD4x
|
||
|
|
vFO7dBSOsmNeNobRUbjauqUrBaOwMq1Tf6HjIKpy8Eig6YxB4bPoYw+JDOT0
|
||
|
|
PfRHjucYzBvjyjmXMpD97ssv/K6PgcbZfJdF8UPIkmdnX/hxDETe3c7ansMo
|
||
|
|
M5MWJRkYg5hTe7vdtZgI+/rsrqfKOAx0PGp6M8pE1EqljV7rx0H2gdUdLJuF
|
||
|
|
RniH82zCx6E/2rRDfO4Pml4W2tmQMQ7RbdEsps0Iit4X8Glj2ziw/B0fSuaN
|
||
|
|
Ikw6CNrIbFCxyH1q3zmK+OkrbilasWHu7ptHih6NIV3/2kumh9lQUJJbt/PI
|
||
|
|
OPJcpG0qSWSD6WknnqkRG700jn/YVcaGwLN3I6yZbHR6D+PdMyEbPvktcTP3
|
||
|
|
5SCdyghEWcCBBP0nhfuLOahqNFhq9UoObFVsOP1Cl4ukf5xKYzlyQKDuS5uJ
|
||
|
|
4iIblS3JQh8OTLalmJxmcdGq089Y/DAO0HJuV0x78pC+d3WySwwHjEz0sPRP
|
||
|
|
PPSBPvvcIIMD21s0ju5R4iPRlTcyk0Uc8HtU0bvyDB/ZpRqXajVzoIasZbWI
|
||
|
|
ykfYT50umxEOLH5o0KEEAuQYxPPIluZCRU2/74rnAtRZ2qCWuZQLuwyEcbtm
|
||
|
|
BcjUQMP5gQUXajK+KKQECtG1uRur21258LRy5QlRhRA9mBrIlDvAhS3zNqsd
|
||
|
|
NBOhtakxfXUXuMAIrz37J1GEegrlw+kJXOiJlOTHCkUIG5IOGM3mwpdCKqzz
|
||
|
|
F6P0+03Zm8q4IHgY+Hb+dzFKGsnxtOrigkqS50+J2gRy85raPJ/PBeUCppHg
|
||
|
|
xgSaXqv7xnEuD8KvWITOHZxAwabf/Y7o8iDvsBF5lfskOtV06PhiOx5QT19y
|
||
|
|
PZk7icL5Q21qXjzwM7keXDdfgqx0f6eoBPEAl7Hq/e+cBAmbsgoDbvAg5kaK
|
||
|
|
WWmnBIXFsSxePOGBpU5Ove/6KXRrco1syL+e/Ta0dJnCmymUSPe3vlfHg9fb
|
||
|
|
17r2UKbRwd9iPIPxzw+N/PPbyWm0atvxTLkZHrxYfFuzsGkaJZwZGSL86+0v
|
||
|
|
YfuMGsxnUO7b3qvDxnzIGmde4yfPoF9+2RHLnfgwvUC3yGpiBr1TGyn38ueD
|
||
|
|
5Y55cGffX6QRY31SPoIPrmhzGL/iL4o96x+hHsuH8ibHOxf0Z1FxmKhNM5MP
|
||
|
|
WjLDLOW4WTQ8duT+2RI+9PTYGlePz6LXi5ivfVv5AGxhXK0+Adfz6Fq8aowP
|
||
|
|
M3+Xv7fxIeAZ0pl0P6IATtBz7P+LJuA95YOUC+oC8KTG8O2/E/DFlJko9moB
|
||
|
|
0J+VLW0eJ+CMCe3A8U0CODKVlRyqIYWfEhem9h0UgE8gw3bZNil8OnylicFF
|
||
|
|
Acy+Ou+57boU7kxQWrI/UQAqwsCY+wVSuI6N1B699wJQpRI0elhS+AyvdhbK
|
||
|
|
BfArlq/1Zak0nlw4Z8q9VwBiL3u3FA9p3GxWa9tHoQCaxvvocy5L4758J2La
|
||
|
|
v78qVc287fY7aXyD8LfiZT0htO6mjs6j/dNHuJ/JsxMCfpwarjlfBqcSzf/r
|
||
|
|
8RaCWqyprq2zDL5gvdb2+BAhHF5naXjgrAzu/pdVm3JLCIdq4p8tzZLBnar0
|
||
|
|
nyamCaEpwNmu47cMbjvfvmY4Xwicxm2uenJEvIKyb9vPOiFI/5J/f9mWiCsq
|
||
|
|
iCwfMIRwvU9zbX8IEd+ZcOjU12khfC6LXv0rjYj7L3eh/Foogh1f3HdUNRPx
|
||
|
|
ACvilL2JCN5cOczcLEPCJYI6lzVOIhjtMmumWZDwraUUjpa/CNKdtwxcDCTh
|
||
|
|
mQoa/P3hIiDeqgzITCLhRUcytyTGiqCzJWlORw0JDzhlK+uVKYLn+cqURX9J
|
||
|
|
OGXyjerhEhEsCWJFDJiQ8eC4mMjgdhFIWSyS+7KfjP/K2OBZMyaClLrU+aoJ
|
||
|
|
ZLzykEL4J6IY9CQNIVE/yPjFNa7caHUxaFrv5hGEZNz8tn9N0Wox1LrYDZH1
|
||
|
|
ZPEM+uB0t4cYGEcjCAt3y+JZ7LPRUYFi4KjvCTW7K4u/Oz8UdveSGD5kpm3v
|
||
|
|
KJbFTypXFlxLEkOPwxr/KLYsbrHymnf9OzF8z9Zvr9Kk4Lme7z3mVYpBbkXI
|
||
|
|
aaXtFLxiOfN5S58Y3K0PBB2MpOAdZ6a28ERicFj2qWXDFwp+eVL3L1txAv5/
|
||
|
|
/+P/Aw60Nek=
|
||
|
|
"]]},
|
||
|
|
Annotation[#, "Charting`Private`Tag$123744#1"]& ]}, {}}},
|
||
|
|
MaxRecursion -> 0,
|
||
|
|
PlotPoints -> 257,
|
||
|
|
AspectRatio->4,
|
||
|
|
Axes->{True, True},
|
||
|
|
AxesLabel->{None, None},
|
||
|
|
AxesOrigin->{0, 0},
|
||
|
|
DisplayFunction->Identity,
|
||
|
|
FrameLabel->{{None, None}, {None, None}},
|
||
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
||
|
|
GridLinesStyle->Directive[
|
||
|
|
GrayLevel[0.5, 0.4]],
|
||
|
|
ImagePadding->All,
|
||
|
|
ImageSize->176,
|
||
|
|
Method->{
|
||
|
|
"DefaultGraphicsInteraction" -> {
|
||
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
||
|
|
"Effects" -> {
|
||
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
||
|
|
"Droplines" -> {
|
||
|
|
"freeformCursorMode" -> True,
|
||
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" ->
|
||
|
|
None},
|
||
|
|
PlotRange->Full,
|
||
|
|
PlotRangeClipping->True,
|
||
|
|
PlotRangePadding->{{
|
||
|
|
Scaled[0.05],
|
||
|
|
Scaled[0.05]}, {
|
||
|
|
Scaled[0.05],
|
||
|
|
Scaled[0.05]}},
|
||
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
||
|
|
FontSize->12,
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 06:21:12 \
|
||
|
|
Out[2809]=",ExpressionUUID->"e2e63318-abe3-4707-ab3f-c9e90cd69beb"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
TagBox[
|
||
|
|
TagBox[GridBox[{
|
||
|
|
{
|
||
|
|
TagBox[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.00000150389099015843\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
1.50389099015843*^-6,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"3.114757622170496\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
3.1147576221704965`,
|
||
|
|
AutoDelete->True]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"1.50388948626744\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
1.50388948626744,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"-3.114757622170496\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
-3.1147576221704965`,
|
||
|
|
AutoDelete->True]}], "}"}]}], "}"}], "}"}],
|
||
|
|
DecimalForm[#, 256]& ]},
|
||
|
|
{
|
||
|
|
TagBox[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
0.,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"0.\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
0.,
|
||
|
|
AutoDelete->True]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"1.00000000000001\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
1.00000000000001,
|
||
|
|
AutoDelete->True], ",",
|
||
|
|
InterpretationBox[
|
||
|
|
StyleBox["\<\"1.000000000000003\"\>",
|
||
|
|
ShowStringCharacters->False],
|
||
|
|
1.000000000000003,
|
||
|
|
AutoDelete->True]}], "}"}]}], "}"}], "}"}],
|
||
|
|
DecimalForm[#, 256]& ]}
|
||
|
|
},
|
||
|
|
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
|
||
|
|
GridBoxSpacings->{"Columns" -> {
|
||
|
|
Offset[0.27999999999999997`], {
|
||
|
|
Offset[0.5599999999999999]},
|
||
|
|
Offset[0.27999999999999997`]}, "Rows" -> {
|
||
|
|
Offset[0.2], {
|
||
|
|
Offset[0.4]},
|
||
|
|
Offset[0.2]}}],
|
||
|
|
Column],
|
||
|
|
Function[BoxForm`e$,
|
||
|
|
TableForm[BoxForm`e$]]]], "Output",
|
||
|
|
FontSize->12,
|
||
|
|
CellLabel->
|
||
|
|
"11/28/23 06:21:12 \
|
||
|
|
Out[2810]//TableForm=",ExpressionUUID->"c9202dfa-1aff-4a2a-9312-e9e6c0e1c6a8"]
|
||
|
|
}, Open ]]
|
||
|
|
},
|
||
|
|
WindowSize->{1680, 984},
|
||
|
|
WindowMargins->{{-4, Automatic}, {Automatic, -4}},
|
||
|
|
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
|
||
|
|
StyleDefinitions->Notebook[{
|
||
|
|
Cell[
|
||
|
|
StyleData[All], TextAlignment -> Center, FontFamily -> "Segoe UI Emoji",
|
||
|
|
FontSize -> 12, FontWeight -> "Normal", FontSlant -> "Plain",
|
||
|
|
FontTracking -> "Plain",
|
||
|
|
FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}]},
|
||
|
|
Visible -> False, FrontEndVersion ->
|
||
|
|
"12.2 for Microsoft Windows (64-bit) (December 12, 2020)", StyleDefinitions ->
|
||
|
|
"PrivateStylesheetFormatting.nb"],
|
||
|
|
ExpressionUUID->"76429be3-0840-4e9e-952e-ad7486bc4b7c"
|
||
|
|
]
|
||
|
|
(* End of Notebook Content *)
|
||
|
|
|
||
|
|
(* Internal cache information *)
|
||
|
|
(*CellTagsOutline
|
||
|
|
CellTagsIndex->{}
|
||
|
|
*)
|
||
|
|
(*CellTagsIndex
|
||
|
|
CellTagsIndex->{}
|
||
|
|
*)
|
||
|
|
(*NotebookFileOutline
|
||
|
|
Notebook[{
|
||
|
|
Cell[558, 20, 6342, 189, 355, "Input",ExpressionUUID->"49e27e26-aae4-40b5-bafd-eccd5a46860c"],
|
||
|
|
Cell[6903, 211, 5839, 165, 214, "Input",ExpressionUUID->"9b9d9fed-f6b7-4b00-b1f1-f2b74b7eebba"],
|
||
|
|
Cell[12745, 378, 1858, 51, 179, "Input",ExpressionUUID->"1d82449f-143c-48c0-b41d-e1be57059f1b"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[14628, 433, 4152, 115, 349, "Input",ExpressionUUID->"148f4d9e-62d6-414f-9bd8-79eeac336b4b"],
|
||
|
|
Cell[18783, 550, 12353, 224, 543, "Output",ExpressionUUID->"6ad981a0-60d8-4ad7-bc69-c7a1d08db158"],
|
||
|
|
Cell[31139, 776, 2642, 82, 62, "Output",ExpressionUUID->"400fe22f-5fdd-42d7-a1bb-2bf2e3b699ed"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[33818, 863, 3779, 105, 216, "Input",ExpressionUUID->"ac10700d-8814-4f2c-9e28-65b26f1985ed"],
|
||
|
|
Cell[37600, 970, 12294, 223, 700, "Output",ExpressionUUID->"e2e63318-abe3-4707-ab3f-c9e90cd69beb"],
|
||
|
|
Cell[49897, 1195, 2539, 78, 62, "Output",ExpressionUUID->"c9202dfa-1aff-4a2a-9312-e9e6c0e1c6a8"]
|
||
|
|
}, Open ]]
|
||
|
|
}
|
||
|
|
]
|
||
|
|
*)
|
||
|
|
|