mirror of
http://CODE.RHODECODE.COM/u/O/O/O
synced 2024-11-26 21:08:45 -05:00
1977 lines
84 KiB
Mathematica
1977 lines
84 KiB
Mathematica
(* 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[ 84233, 1968]
|
|
NotebookOptionsPosition[ 74111, 1767]
|
|
NotebookOutlinePosition[ 80482, 1901]
|
|
CellTagsIndexPosition[ 79828, 1879]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell["\<\
|
|
\|0168e0\:26aa\|0145e2\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\
|
|
\:15e9\:26aa\:1641\:26aa\:144e\:26aa\:07e6\:26aa\:a5b4\:26aa\:0418N\:26aa\
|
|
\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\
|
|
\:2724\:26aa\:15e9\:26aa\:15ef\:26aa\:1d25\:26aa\:144e\:26aa\:1450\:1455\:26aa\
|
|
\|0145e2\:26aa\|013297\:26aa\|0145e2\:26aa\|0168e0\:26aa\|0145e2\:26aa\|01687c\
|
|
\:26aa\|0145e2\:26aa\|0168e0\:26aa\|0145e2\:26aa\|01687c\:26aa\|0145e2\:26aa\
|
|
\|0168e0\:26aa\|0145e2\:26aa\|01687c\:26aa\|0145e2\:26aa\|0168e0\:26aa\|0145e2\
|
|
\:26aa\|01687c\:26aa\|0145e2\:26aa\|01f78b\:26aa\|0145e2\:26aa\|01687c\:26aa\
|
|
\|0145e2\:26aa\|0168e0\:26aa\|0145e2\:26aa\|01687c\:26aa\|0145e2\:26aa\|0168e0\
|
|
\:26aa\|0145e2\:26aa\|01687c\:26aa\|0145e2\:26aa\|0168e0\:26aa\|0145e2\:26aa\
|
|
\|01687c\:26aa\|0145e2\:26aa\|0168e0\:26aa\|0145e2\:26aa\|013297\:26aa\|0145e2\
|
|
\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\:26aa\:15e9\:26aa\:2724\
|
|
\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:164f\:26aa\:15e9\
|
|
\:26aa\:0418N\:26aa\:a5b4\:26aa\:07e6\:26aa\:144e\:26aa\:1641\:26aa\:15e9\
|
|
\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\:0418N\:26aa\|0145e2\:26aa\|0168e0\
|
|
\>", "Title",
|
|
CellChangeTimes->{{3.920280967590807*^9, 3.920280977878854*^9}},
|
|
TextAlignment->Center,
|
|
FontFamily->"Go Noto Ancient",
|
|
FontSize->9,
|
|
FontWeight->"Normal",
|
|
FontTracking->"Plain",ExpressionUUID->"b9e6fe14-67c5-4f7d-9ec0-13c361826e91"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Initialization Code",
|
|
StyleBox[" (optional) ", "SectionGloss"],
|
|
Cell[BoxData[
|
|
TemplateBox[{"Initialization Code",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{"Provide any code that must be evaluated before the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
". This will automatically be built into the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" in the final notebook version. Never use a package that is not \
|
|
included in the default distribution of ",
|
|
StyleBox["Mathematica", FontSlant -> "Italic"],
|
|
". To use a package, use the ",
|
|
StyleBox["Initialization", "MRbig"], " option (with ",
|
|
StyleBox["Get", "MRbig"], ", not ",
|
|
StyleBox["Needs", "MRbig"], ") in the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" itself, and use the full name of the function from the package. \
|
|
For example:\n",
|
|
StyleBox[
|
|
" Manipulate[\n ...\n ComputationalGeometry`ConvexHull[...]...\n \
|
|
...\n Initialization :> Get[\"ComputationalGeometry`\"],\n ...\n ]",
|
|
"MR"], "\nIf you provide initialization code, include a ",
|
|
StyleBox["SaveDefinitions->True", "MRbig"], " option in the ",
|
|
StyleBox["Manipulate", "MRbig"], ".",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"81fde376-e763-44cf-83ed-5c52ec315067"]
|
|
}], "InitializationSection",
|
|
TextAlignment->Center,
|
|
CellTags->
|
|
"Initialization \
|
|
Code",ExpressionUUID->"1d34a731-8c48-4189-8b6f-89ef5777db9f"],
|
|
|
|
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",
|
|
CellChangeTimes->{{3.920278406604987*^9, 3.9202784080949893`*^9}},
|
|
TextAlignment->Center,
|
|
CellLabel->"3/24/24 16:39:37 In[1]:=",
|
|
CellID->24701595,ExpressionUUID->"ee244b7a-a530-47db-8602-9dbd7bcdc504"],
|
|
|
|
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[{"iFabiusF", "[", "x_", "]"}], " ", ":=", " ",
|
|
RowBox[{"Module", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"prec", " ", "=", " ",
|
|
RowBox[{"Precision", "[", "x", "]"}]}], ",", " ", "n", ",", " ", "p",
|
|
",", " ", "q", ",", " ", "s", ",", " ", "tol", ",", " ", "w", ",", " ",
|
|
"y", ",", " ", "z"}], "}"}], ",", "\n", " ",
|
|
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", " ", "<=", " ", "z", " ", "<=", " ", "2"}], ",", " ",
|
|
RowBox[{"1", " ", "-", " ",
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{"1", " ", "-", " ", "z"}], "]"}]}], ",", "\n", " ",
|
|
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"}], ",", "\n", " ",
|
|
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[{"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[{"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[{"SetAttributes", "[",
|
|
RowBox[{"FabiusF", ",", " ",
|
|
RowBox[{"{",
|
|
RowBox[{"NumericFunction", ",", " ", "Listable"}], "}"}]}], "]"}],
|
|
";"}]}], "Input",
|
|
CellChangeTimes->{{3.920278426655015*^9, 3.9202784413650355`*^9}},
|
|
TextAlignment->Center,
|
|
CellLabel->"3/24/24 16:39:38 In[5]:=",
|
|
CellID->25712845,ExpressionUUID->"c1a65306-27f7-4756-940f-772f9967450d"],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"\:1513\:1515", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"WorkingPrecision", "\[Rule]", "10"}], ",",
|
|
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
|
|
RowBox[{"Ticks", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",",
|
|
RowBox[{"ImageSize", "\[Rule]", "320"}], ",",
|
|
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
|
|
RowBox[{"Frame", "\[Rule]", "True"}], ",",
|
|
RowBox[{"Axes", "\[Rule]", "False"}], ",",
|
|
RowBox[{"GridLines", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{", "0", "}"}], ",",
|
|
RowBox[{"{", "0", "}"}]}], "}"}]}], ",",
|
|
RowBox[{"PlotStyle", "\[Rule]",
|
|
RowBox[{"GrayLevel", "[",
|
|
RowBox[{"168", "/", "256"}], "]"}]}], ",",
|
|
RowBox[{"FrameStyle", "\[Rule]",
|
|
RowBox[{"GrayLevel", "[",
|
|
RowBox[{"178", "/", "256"}], "]"}]}]}], "}"}]}], ";"}], "\n",
|
|
RowBox[{
|
|
RowBox[{"\[CapitalPi]", "=", "2"}], ";",
|
|
RowBox[{"\:1450\:1455", "=", "4"}], ";",
|
|
RowBox[{"M", "=", ".5"}], ";",
|
|
RowBox[{"\[CapitalPi]\[CapitalPi]", "=", "4"}], ";"}], "\n",
|
|
RowBox[{
|
|
RowBox[{"\:15f1\:15f4", "=",
|
|
RowBox[{"Evaluate", "[",
|
|
RowBox[{"SetPrecision", "[",
|
|
RowBox[{
|
|
RowBox[{"SetAccuracy", "[",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"-", "1"}], ")"}], "^",
|
|
RowBox[{"Floor", "[",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x", "/", "Pi"}], "*", "\:1450\:1455"}], "+",
|
|
"1"}], ")"}], "/", "2"}], "]"}]}], " ",
|
|
RowBox[{
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{
|
|
RowBox[{"Mod", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x", "/", "Pi"}], "*", "\:1450\:1455"}], "+",
|
|
"1"}], ",", "2"}], "]"}], "-", "1"}], "]"}], "^",
|
|
"\[CapitalPi]"}]}], ")"}], "]"}], "^",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "/", "\[CapitalPi]"}], ")"}]}]}], ")"}], "/",
|
|
"2"}], "+", ".5"}], "]"}]}], ")"}], ",", "Infinity"}], "]"}],
|
|
",", "Infinity"}], "]"}], "]"}]}], ";"}]}], "Input",
|
|
CellChangeTimes->{{3.920278449345047*^9, 3.920278487981105*^9}},
|
|
TextAlignment->Center,
|
|
CellLabel->"3/24/24 16:39:38 In[12]:=",
|
|
CellID->77166300,ExpressionUUID->"8d88b28f-3f47-427b-b865-62c1837375dc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Manipulate",
|
|
Cell[BoxData[
|
|
TemplateBox[{"Manipulate",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{"This section contains the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" input cell and its evaluated output cell. Make all control labels \
|
|
or labels in the output as descriptive as possible, with only proper nouns \
|
|
and proper adjectives capitalized. More description of the controls can be \
|
|
provided in the Details section below, if necessary. If you change this ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" after creating screenshots and/or thumbnails, use ",
|
|
StyleBox["Update Thumbnail & Snapshots", FontWeight -> "Bold"],
|
|
" in the toolbar to update any copies in later sections. You can \
|
|
control the Flash preview for the Demonstration with the ",
|
|
StyleBox["AutorunSequencing", "MRbig"], " option. Use ",
|
|
StyleBox["SaveDefinitions->True", "MRbig"],
|
|
" if you provided initialization code in the previous section."}],
|
|
"MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20,
|
|
FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText",
|
|
Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"d12d57a6-93e6-4518-8a9c-9df2eb688354"]
|
|
}], "ManipulateSection",
|
|
TextAlignment->Center,
|
|
CellTags->
|
|
"Manipulate",ExpressionUUID->"b7acceb9-ca4b-4965-b319-bd8a6214a587"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Grid", "[",
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{"Manipulate", "[",
|
|
RowBox[{
|
|
RowBox[{"Column", "[",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"CurvaturePlot", "[",
|
|
RowBox[{
|
|
RowBox[{"Evaluate", "[",
|
|
RowBox[{"SetPrecision", "[",
|
|
RowBox[{
|
|
RowBox[{"SetAccuracy", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"-", "1"}], ")"}], "^",
|
|
RowBox[{"Floor", "[",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x", "/", "Pi"}], "*", "\:1450\:1455"}], "+",
|
|
"1"}], ")"}], "/", "2"}], "]"}]}], " ",
|
|
RowBox[{
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{
|
|
RowBox[{"Mod", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x", "/", "Pi"}], "*", "\:1450\:1455"}], "+",
|
|
"1"}], ",", "2"}], "]"}], "-", "1"}], "]"}], "^",
|
|
"\[CapitalPi]"}]}], ")"}], "]"}], "^",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "/", "\[CapitalPi]"}], ")"}]}]}], ")"}], "/",
|
|
"2"}], "+", ".5"}], "]"}]}], ")"}], "-", "M"}], ",",
|
|
"Infinity"}], "]"}], ",", "Infinity"}], "]"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",",
|
|
RowBox[{"4", "\[Pi]"}]}], "}"}], ",",
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}], ",",
|
|
RowBox[{"FrameTicks", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Range", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], ",", "16", ",",
|
|
RowBox[{"1", "/", "2"}]}], "]"}], ",",
|
|
RowBox[{"Range", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], ",", "4", ",",
|
|
RowBox[{"1", "/", "2"}]}], "]"}]}], "}"}]}], ",",
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", "^", "\[CapitalPi]\[CapitalPi]"}]}]}]}], "]"}], ",",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{"Evaluate", "[",
|
|
RowBox[{"SetPrecision", "[",
|
|
RowBox[{
|
|
RowBox[{"SetAccuracy", "[",
|
|
RowBox[{
|
|
RowBox[{".5", "-",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"-", "1"}], ")"}], "^",
|
|
RowBox[{"Floor", "[",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x", "/", "Pi"}], "*", "\:1450\:1455"}], "+",
|
|
"1"}], ")"}], "/", "2"}], "]"}]}], " ",
|
|
RowBox[{
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{
|
|
RowBox[{"Abs", "[",
|
|
RowBox[{
|
|
RowBox[{"Mod", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x", "/", "Pi"}], "*", "\:1450\:1455"}], "+",
|
|
"1"}], ",", "2"}], "]"}], "-", "1"}], "]"}], "^",
|
|
"\[CapitalPi]"}]}], ")"}], "]"}], "^",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "/", "\[CapitalPi]"}], ")"}]}]}], ")"}], "/",
|
|
"2"}], "+", ".5"}], "]"}]}], ")"}], "-", "M"}], ",",
|
|
"Infinity"}], "]"}], ",", "Infinity"}], "]"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",",
|
|
RowBox[{"4", "\[Pi]"}]}], "}"}], ",",
|
|
RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}], ",",
|
|
RowBox[{"AspectRatio", "\[Rule]",
|
|
RowBox[{"1", "/", "8"}]}], ",",
|
|
RowBox[{"FrameTicks", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Range", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "16"}], "*", "Pi"}], ",",
|
|
RowBox[{"16", "*", "Pi"}], ",",
|
|
RowBox[{"Pi", "/", "2"}]}], "]"}], ",",
|
|
RowBox[{"Range", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], ",", "1", ",",
|
|
RowBox[{"1", "/", "2"}]}], "]"}]}], "}"}]}], ",",
|
|
RowBox[{"PlotPoints", "\[Rule]",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", "^", "\[CapitalPi]\[CapitalPi]"}]}]}]}], "]"}]}],
|
|
"}"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\[CapitalPi]", ",", "1"}], "}"}], ",", "0", ",", "16", ",",
|
|
".25"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\:1450\:1455", ",", "4"}], "}"}], ",", "0", ",", "16", ",",
|
|
".25"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"M", ",", "0"}], "}"}], ",", "0", ",", "1", ",", ".125"}],
|
|
"}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\[CapitalPi]\[CapitalPi]", ",", "8"}], "}"}], ",", "0", ",",
|
|
"16", ",", "1"}], "}"}], ",",
|
|
RowBox[{"FrameMargins", "\[Rule]", "0"}]}], "]"}], "}"}], "}"}],
|
|
"]"}]], "Input",
|
|
CellChangeTimes->{
|
|
3.92027849196111*^9, {3.9202811539891205`*^9, 3.9202811542691207`*^9}},
|
|
TextAlignment->Center,
|
|
CellLabel->
|
|
"3/24/24 16:59:26 \
|
|
In[16]:=",ExpressionUUID->"1c8a51fe-61b3-446f-b3f3-b27c622b6763"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
1, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8, Typeset`show$$ = True,
|
|
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 1}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {222., 229.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
1, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 1}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {290., 297.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"]], "Output",
|
|
CellChangeTimes->{{3.920279978489007*^9, 3.9202800059090514`*^9},
|
|
3.920281166469138*^9},
|
|
TextAlignment->Center,
|
|
CellLabel->"3/24/24 16:59:26 Out[16]=",
|
|
CellID->397291535,ExpressionUUID->"dfd01e67-d611-4c3e-aa0e-2487522ca13a"]
|
|
}, Open ]]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Caption",
|
|
Cell[BoxData[
|
|
TemplateBox[{"Caption",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"The caption provides all the information needed to understand the \
|
|
Demonstration. It should be between three and five sentences long, but \
|
|
clarity is more important than length. Include only text in this section \
|
|
\[LongDash] no code, graphics, etc. Do not change the cell style or copy \
|
|
cells from other sections. Do not copy text from books or the web. Write your \
|
|
ideas in your own words. If you want to refer to something on the web, link \
|
|
to it in the Details.",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"a97b5d36-1c59-4018-b3f0-6bfc71662d3d"]
|
|
}], "ManipulateCaptionSection",
|
|
TextAlignment->Center,
|
|
CellTags->"Caption",ExpressionUUID->"3ed78bfd-4459-4d2a-906f-3e9e6aba33a4"],
|
|
|
|
Cell["", "ManipulateCaption",
|
|
CellChangeTimes->{{3.9202807668171234`*^9, 3.9202807687471256`*^9}},
|
|
TextAlignment->Center,ExpressionUUID->"71921e4e-c8c2-4f05-96e3-4e3047349e9a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Thumbnail",
|
|
Cell[BoxData[
|
|
TemplateBox[{"Thumbnail",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"To create the thumbnail, copy and paste the output cell from the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" section and adjust the controls to the most visually appealing \
|
|
setting. Do not convert it to a bitmap. The thumbnail is what visitors see \
|
|
when browsing the Demonstrations site and while the Flash preview loads.",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"5363174b-397a-4e31-b8e5-95e1af887bc9"]
|
|
}], "ThumbnailSection",
|
|
TextAlignment->Center,
|
|
CellTags->"Thumbnail",ExpressionUUID->"401cc3c4-8319-4e19-82e7-df5fcb711a42"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 16, Typeset`show$$ =
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 2}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {222., 229.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 2}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {334., 341.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"]], "Output",
|
|
CellChangeTimes->{{3.920279978489007*^9, 3.9202800059090514`*^9}},
|
|
TextAlignment->Center,
|
|
CellID->63458145,ExpressionUUID->"1b37c0f7-f862-4bde-95eb-3c9910bdd789"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Snapshots",
|
|
Cell[BoxData[
|
|
TemplateBox[{"Snapshots",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{"To create snapshots, paste the output cell from the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" section in this section at least three times, and adjust the \
|
|
controls of each copy to show a range of interesting settings. Do not convert \
|
|
the screenshots to bitmaps. Optional captions for the screenshots may be \
|
|
included in the Details section.",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"d854de0f-efbb-449a-8b04-a7b3ca5773d5"]
|
|
}], "SnapshotsSection",
|
|
TextAlignment->Center,
|
|
CellTags->"Snapshots",ExpressionUUID->"96bb7a68-4496-4362-86d3-c2a0812907f2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
0.5, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 16, Typeset`show$$ =
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 2}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {222., 229.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 2}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {334., 341.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"],
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 16, Typeset`show$$ =
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 2}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {222., 229.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2]
|
|
Abs[1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 2}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {334., 341.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"],
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
1, $CellContext`\[CapitalPi]$$ =
|
|
1, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 16, Typeset`show$$ =
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 2}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {215., 222.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 2}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {327., 334.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"],
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 8, $CellContext`M$$ =
|
|
1, $CellContext`\[CapitalPi]$$ =
|
|
1, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 16, Typeset`show$$ =
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 2}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {215., 222.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 2}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {327., 334.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"],
|
|
TagBox[GridBox[{
|
|
{
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0.5, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 16, Typeset`show$$ =
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
|
"\"untitled\"", Typeset`specs$$ = {{{
|
|
Hold[$CellContext`\[CapitalPi]$$], 2}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`\:1450\:1455$$], 4}, 0, 16, 0.25}, {{
|
|
Hold[$CellContext`M$$], 0}, 0, 1, 0.125}, {{
|
|
Hold[$CellContext`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 16, 1}},
|
|
Typeset`size$$ = {320., {77., 84.}}, Typeset`update$$ = 0,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
|
1, StandardForm,
|
|
"Variables" :> {$CellContext`\:1450\:1455$$ = 4, $CellContext`M$$ =
|
|
0, $CellContext`\[CapitalPi]$$ =
|
|
2, $CellContext`\[CapitalPi]\[CapitalPi]$$ = 8},
|
|
"ControllerVariables" :> {},
|
|
"OtherVariables" :> {
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$,
|
|
Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{
|
|
$CellContext`CurvaturePlot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
|
|
SetAccuracy[(1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], FrameTicks -> {
|
|
Range[-16, 16, 1/2],
|
|
Range[-4, 4, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$],
|
|
Plot[
|
|
Evaluate[
|
|
SetPrecision[
|
|
SetAccuracy[
|
|
0.5 - (1 -
|
|
Abs[((-1)^
|
|
Floor[(($CellContext`x/Pi) $CellContext`\:1450\:1455$$ +
|
|
1)/2] Abs[
|
|
1 - Abs[
|
|
Mod[($CellContext`x/Pi) $CellContext`\:1450\:1455$$ + 1,
|
|
2] - 1]^$CellContext`\[CapitalPi]$$]^(
|
|
1/$CellContext`\[CapitalPi]$$))/2 +
|
|
0.5]) - $CellContext`M$$, Infinity],
|
|
Infinity]], {$CellContext`x, 0, 4 Pi},
|
|
Evaluate[$CellContext`\:1513\:1515], AspectRatio -> 1/8,
|
|
FrameTicks -> {
|
|
Range[(-16) Pi, 16 Pi, Pi/2],
|
|
Range[-1, 1, 1/2]}, PlotPoints ->
|
|
1 + 2^$CellContext`\[CapitalPi]\[CapitalPi]$$]}],
|
|
"Specifications" :> {{{$CellContext`\[CapitalPi]$$, 2}, 0, 16,
|
|
0.25}, {{$CellContext`\:1450\:1455$$, 4}, 0, 16,
|
|
0.25}, {{$CellContext`M$$, 0}, 0, 1,
|
|
0.125}, {{$CellContext`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16,
|
|
1}}, "Options" :> {FrameMargins -> 0},
|
|
"DefaultOptions" :> {ControllerLinking -> True}],
|
|
ImageSizeCache->{345., {145., 152.}},
|
|
SingleEvaluation->True],
|
|
Deinitialization:>None,
|
|
DynamicModuleValues:>{},
|
|
SynchronousInitialization->True,
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
|
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
|
|
Deployed->True,
|
|
StripOnInput->False],
|
|
Manipulate`InterpretManipulate[1]]}
|
|
},
|
|
AutoDelete->False,
|
|
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
|
|
"Grid"]}]], "Input",
|
|
CellChangeTimes->{{3.9202801568556614`*^9, 3.9202801569456615`*^9}, {
|
|
3.92028022669787*^9, 3.9202802631100445`*^9}, {3.9202803824202766`*^9,
|
|
3.920280398744342*^9}, 3.9202806958609424`*^9},
|
|
TextAlignment->Center,
|
|
CellID->116900255,ExpressionUUID->"11e490fb-ab2d-4547-86c8-ed147463c6e1"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[{
|
|
"Details",
|
|
StyleBox[" (optional) ", "SectionGloss"],
|
|
Cell[BoxData[
|
|
TemplateBox[{"Details",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"This optional section is for a more detailed description of the \
|
|
Demonstration than the caption, but it should still be as concise as \
|
|
possible. This section may also include numbered snapshot captions (e.g., \
|
|
Snapshot 1: phrase or sentence without an initial capital and without a \
|
|
period, unless more than one sentence is used) and explanations of the ",
|
|
StyleBox["Manipulate", "MRbig"],
|
|
" control labels. Define any symbols undefined so far. Include only \
|
|
text in this section \[LongDash] no code, graphics, etc. Do not change the \
|
|
cell style or copy cells from other sections. \n\nA book reference uses this \
|
|
format: \n L. D. Schmidt, ",
|
|
StyleBox[
|
|
"The Engineering of Chemical Reactions", FontSlant -> "Italic"],
|
|
", New York: Oxford University Press, 1998. \n\nAn article \
|
|
reference uses this format: \n D. Pearson, \"A Polynomial-Time Algorithm \
|
|
for the Change-Making Problem,\" ",
|
|
StyleBox["Operations Research Letters", FontSlant -> "Italic"],
|
|
", ",
|
|
StyleBox["33", FontWeight -> "Bold"],
|
|
"(3), 2005 pp. 231\[Dash]234."}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"b42cafa3-93cc-45b2-9bce-00512b05ae14"]
|
|
}], "DetailsSection",
|
|
TextAlignment->Center,
|
|
CellTags->"Details",ExpressionUUID->"b9971572-9357-4ce2-a011-62ff9eede7fa"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Control Suggestions",
|
|
StyleBox[" (optional) ", "SectionGloss"],
|
|
Cell[BoxData[
|
|
TemplateBox[{"Control Suggestions",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"Check the boxes beside items that are appropriate control \
|
|
suggestions for this Demonstration. For more information, see the ",
|
|
ButtonBox[
|
|
"guidelines",
|
|
BaseStyle -> {"Hyperlink", FontColor -> RGBColor[0.4, 0.45, 0.5]},
|
|
ButtonData -> {
|
|
URL["http://demonstrations.wolfram.com/guidelines.php"], None}],
|
|
" page.",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"f1fe398c-f37e-4aca-9161-633bae63965a"]
|
|
}], "ControlSuggestionsSection",
|
|
TextAlignment->Center,
|
|
CellTags->
|
|
"Control Suggestions",ExpressionUUID->"af8a4061-fdd4-44d0-82cc-\
|
|
9fec786547ab"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Resize Images",ExpressionUUID->"fcee1195-e255-4dbd-8863-4af840debdbd"]}],
|
|
"\"Click inside an image to reveal its orange resize frame.\\nDrag any of \
|
|
the orange resize handles to resize the image.\""]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"ResizeImages",ExpressionUUID->"ac542041-3d26-42bf-920d-b54a74785eef"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Rotate and Zoom in 3D",ExpressionUUID->
|
|
"df0b52c8-7325-4803-bb1e-958545cedfd1"]}],
|
|
RowBox[{
|
|
"\"Drag a 3D graphic to rotate it. Starting the drag near the center \
|
|
tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \
|
|
of the screen.\\nHold down \"",
|
|
FrameBox[
|
|
"Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]], "\" (or \"",
|
|
FrameBox[
|
|
"Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]],
|
|
"\" on Mac) and drag up and down to zoom.\""}]]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"RotateAndZoomIn3D",ExpressionUUID->"e14e98ed-7514-4081-99ea-c2ffb624df9b"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Drag Locators",ExpressionUUID->"61b2b2a8-69c4-4012-b6da-8923112012e2"]}],
|
|
RowBox[{"\"Drag any locator (\"",
|
|
GraphicsBox[
|
|
LocatorBox[
|
|
Scaled[{0.5, 0.5}]], ImageSize -> 20],
|
|
"\", etc.) to move it around.\""}]]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"DragLocators",ExpressionUUID->"384b79dc-c11a-492d-87e1-2c4b84403891"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Create and Delete Locators",ExpressionUUID->
|
|
"8e06b60e-3149-4a23-ab31-0a8ab2f5ceaf"]}],
|
|
RowBox[{"\"Insert a new locator in the graphic by holding down the \"",
|
|
FrameBox[
|
|
"Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]],
|
|
"\" key\\nand clicking where you want it to be. Delete a locator by \
|
|
clicking it\\nwhile holding down the \"",
|
|
FrameBox[
|
|
"Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]], "\" key.\""}]]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"CreateAndDeleteLocators",ExpressionUUID->"98a81657-e34e-4dab-ac86-\
|
|
717d7eff050a"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Slider Zoom",ExpressionUUID->"c8d377e3-56fc-4adc-88e3-cf7642fb3181"]}],
|
|
RowBox[{"\"Hold down the \"",
|
|
FrameBox[
|
|
"Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]],
|
|
"\" key while moving a slider to make fine adjustments in the slider \
|
|
value.\\nHold \"",
|
|
FrameBox[
|
|
"Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]], "\" and/or \"",
|
|
FrameBox[
|
|
"Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]], "\" at the same time as \"",
|
|
FrameBox[
|
|
"Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle ->
|
|
GrayLevel[0.9]],
|
|
"\" to make ever finer adjustments.\""}]]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"SliderZoom",ExpressionUUID->"b84ac2ce-e422-4d4d-953e-073d63c15a9e"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Gamepad Controls",ExpressionUUID->
|
|
"1fbb5ded-9a1c-4ba0-a087-0d1c0be219ce"]}],
|
|
"\"Control this Demonstration with a gamepad or other\\nhuman interface \
|
|
device connected to your computer.\""]], "ControlSuggestions",
|
|
CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9},
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"GamepadControls",ExpressionUUID->"b4dbde82-29d9-4853-88cd-e053ae8d181c"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Automatic Animation",ExpressionUUID->
|
|
"ec8a5240-77b9-42a0-8b9e-365efb47dfeb"]}],
|
|
RowBox[{"\"Animate a slider in this Demonstration by clicking the\"",
|
|
AdjustmentBox[
|
|
Cell[
|
|
GraphicsData[
|
|
"CompressedBitmap",
|
|
"eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\
|
|
/4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\
|
|
IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins ->
|
|
0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115,
|
|
BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}],
|
|
"\"button\\nnext to the slider, and then clicking the play button that \
|
|
appears.\\nAnimate all controls by selecting \"",
|
|
StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"",
|
|
AdjustmentBox[
|
|
Cell[
|
|
GraphicsData[
|
|
"CompressedBitmap",
|
|
"eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\
|
|
57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\
|
|
X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\
|
|
UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics",
|
|
ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline],
|
|
BoxBaselineShift -> 0.1839080459770115,
|
|
BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}],
|
|
"\"menu.\""}]]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"AutomaticAnimation",ExpressionUUID->"6e84bbe0-7d8e-44ab-aac1-048973c18d4f"],
|
|
|
|
Cell[BoxData[
|
|
TooltipBox[
|
|
RowBox[{
|
|
CheckboxBox[False], Cell[
|
|
" Bookmark Animation",ExpressionUUID->
|
|
"5bdb2812-7da3-4bb1-a7fc-436054c40542"]}],
|
|
RowBox[{
|
|
"\"See a prepared animation of this Demonstration by selecting\\n\"",
|
|
StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"",
|
|
AdjustmentBox[
|
|
Cell[
|
|
GraphicsData[
|
|
"CompressedBitmap",
|
|
"eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\
|
|
57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\
|
|
X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\
|
|
UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics",
|
|
ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline],
|
|
BoxBaselineShift -> 0.1839080459770115,
|
|
BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}],
|
|
"\"menu.\""}]]], "ControlSuggestions",
|
|
TextAlignment->Center,
|
|
FontFamily->"Verdana",
|
|
CellTags->
|
|
"BookmarkAnimation",ExpressionUUID->"0cf5a50d-6c0e-4089-a29f-941bc4ca8891"]
|
|
}, Open ]],
|
|
|
|
Cell[TextData[{
|
|
"Search Terms",
|
|
StyleBox[" (optional) ", "SectionGloss"],
|
|
Cell[BoxData[
|
|
TemplateBox[{"Search Terms",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"Provide words and phrases that people might search for, with each \
|
|
one in a separate cell. Categories are added after the Demonstration is \
|
|
submitted, so the best things to enter here are terms (including any \
|
|
synonyms) that refer to specific parts of the Demonstration. Do not \
|
|
capitalize words unless they are proper names or proper adjectives.",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"b8b4550c-a7c1-4c5e-acf4-64f68ac8ea51"]
|
|
}], "SearchTermsSection",
|
|
TextAlignment->Center,
|
|
CellTags->
|
|
"Search Terms",ExpressionUUID->"a3a3a6a7-7876-4115-a51a-6d092bee139b"],
|
|
|
|
Cell[TextData[{
|
|
"Related Links",
|
|
StyleBox[" (optional) ", "SectionGloss"],
|
|
Cell[BoxData[
|
|
TemplateBox[{"Related Links",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"Provide hyperlinks (not just bare URLs) to any relevant wolfram.com \
|
|
pages, with the page title as the linked text. Links to ",
|
|
ButtonBox[
|
|
"NKS | Online",
|
|
BaseStyle -> {"Hyperlink", FontColor -> RGBColor[0.4, 0.45, 0.5]},
|
|
ButtonData -> {
|
|
URL["http://www.wolframscience.com/nks"], None}],
|
|
" should use the section title, not a page number. Links to \
|
|
non-Wolfram sites go in the Details section.",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"d5b26c0d-c135-41cd-9d97-dc9003b05c57"]
|
|
}], "RelatedLinksSection",
|
|
TextAlignment->Center,
|
|
CellTags->
|
|
"Related Links",ExpressionUUID->"83b0243b-b7e3-4afb-8a4e-185fec8161fe"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[TextData[{
|
|
"Authoring Information",
|
|
Cell[BoxData[
|
|
TemplateBox[{"Authoring Information",
|
|
Cell[
|
|
BoxData[
|
|
FrameBox[
|
|
Cell[
|
|
TextData[{
|
|
"'Contributed by: John Smith' for single authors; 'Contributed by: \
|
|
John Smith, Robert Ford, and Jane Doe' for multiple authors. To credit people \
|
|
other than Demonstrations authors, please see the detailed ",
|
|
ButtonBox[
|
|
"guidelines",
|
|
BaseStyle -> {"Hyperlink", FontColor -> RGBColor[0.4, 0.45, 0.5]},
|
|
ButtonData -> {
|
|
URL["http://demonstrations.wolfram.com/guidelines.php"], None}],
|
|
".",
|
|
StyleBox["\n", FontSize -> 4]}], "MoreInfoText"], Background ->
|
|
GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9],
|
|
RoundingRadius -> 5]], "MoreInfoText", Deletable -> True,
|
|
CellTags -> {"SectionMoreInfoDefinition"},
|
|
CellMargins -> {{66, 66}, {15, 15}}]},
|
|
"MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
|
|
"990970f3-a922-4bea-919a-d6fa2da1f6d5"]
|
|
}], "AuthorSection",
|
|
TextAlignment->Center,
|
|
CellTags->
|
|
"Authoring \
|
|
Information",ExpressionUUID->"c2736cdb-c24c-4dd4-9a22-5bbef1a7a20a"],
|
|
|
|
Cell["", "Author",
|
|
CellChangeTimes->{
|
|
3.35696210375764*^9, {3.432333043774981*^9, 3.432333045441087*^9},
|
|
3.920280830122656*^9},
|
|
TextAlignment->Center,ExpressionUUID->"e6a077c9-f528-4852-97e7-764f2f3a1895"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
},
|
|
ScreenStyleEnvironment->"DemonstrationSource",
|
|
WindowSize->{700, 848},
|
|
WindowMargins->{{486, Automatic}, {Automatic, 64}},
|
|
TaggingRules->{
|
|
"DocuToolsSettingsInternal" -> {
|
|
"$PacletVersion" -> "0.10.2121", "$MVersion" -> "12", "$FlaggedVersion" ->
|
|
11.3, "$ApplicationName" -> "Pubs", "$LinkBase" -> "Pubs",
|
|
"$ApplicationDirectory" -> "C:\\Users\\jayw\\Desktop\\CVSTree\\Pubs\\",
|
|
"$DocumentationDirectory" ->
|
|
"C:\\Users\\jayw\\Desktop\\CVSTree\\Pubs\\Documentation\\English\\",
|
|
"$UseNewPageDialog" -> "False", "$CondensedBlogMenus" -> "True"},
|
|
"PresenterSettings" -> {
|
|
"OutlineThumbnails" -> {"1" -> "Thumbnail"},
|
|
"OutlinePalette" -> {"Thumbnails" -> {}, "ThumbnailMagnification" -> 0.8},
|
|
"SideNotesPalette" -> {"PaletteNumber" -> 0}}, "BlogsDirectory" ->
|
|
"\\\\wrisync02.wri.wolfram.com\\backup$\\jayw\\My \
|
|
Documents\\jaywstasks\\BlogTools\\Blogs\\", "ChatNotebookID" ->
|
|
"fef9786d-4748-42a0-a328-5496e837f205", "Originator" ->
|
|
"chatframework@wolfram.com", "ScreenName" -> "", "ChatCreationDate" ->
|
|
"DateObject[{2018, 6, 18, 13, 5, 54.5673134}, Instant, Gregorian, -5.]",
|
|
"CustomWindowTitle" -> "None", "ChatNotebookDate" -> "18 Jun 2018 13:05:54",
|
|
"ChatNotebookWindowTitle" -> "chatframework's Chat - (18 Jun 2018 13:05)",
|
|
"Participants" -> {"chatframework@wolfram.com", "wan4ren2jie2@gmail.com"},
|
|
"AllParticipants" -> {
|
|
"chatframework@wolfram.com", "wan4ren2jie2@gmail.com"},
|
|
"Contacts" -> {
|
|
"andre@wolfram.com", "bradym@wolfram.com", "brianv@wolfram.com",
|
|
"jayw@wolfram.com", "wan4ren2jie2@gmail.com"},
|
|
"EmailListData" -> {0, 0, 0, 0, 1}, "ScrollLock" -> False, "Terminated" ->
|
|
True, "QuestionState" -> "Timeup",
|
|
"AttachedCells" -> {
|
|
"Initialization Code" -> None, "Manipulate" -> None, "Caption" -> None,
|
|
"Snapshots" -> None, "Details" -> None, "Related Links" -> None,
|
|
"Search Terms" -> None, "Control Suggestions" -> None, "Thumbnail" ->
|
|
None, "Authoring Information" -> CellObject[1160241]}},
|
|
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
|
|
StyleDefinitions->Notebook[{
|
|
Cell[
|
|
StyleData[
|
|
StyleDefinitions ->
|
|
FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding ->
|
|
"UTF-8"]], TextAlignment -> Center],
|
|
Cell[
|
|
StyleData[All], TextAlignment -> Center]}, WindowSize -> {785, 884},
|
|
WindowMargins -> {{190, Automatic}, {0, Automatic}}, Visible -> False,
|
|
FrontEndVersion ->
|
|
"12.2 for Microsoft Windows (64-bit) (December 12, 2020)", StyleDefinitions ->
|
|
"PrivateStylesheetFormatting.nb"],
|
|
ExpressionUUID->"8df33655-38cd-478b-94a3-0ff3a7d16b08"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{
|
|
"Authoring Information"->{
|
|
Cell[72685, 1728, 1182, 29, 156, "AuthorSection",ExpressionUUID->"c2736cdb-c24c-4dd4-9a22-5bbef1a7a20a",
|
|
CellTags->"Authoring Information"]},
|
|
"AutomaticAnimation"->{
|
|
Cell[67707, 1605, 1588, 34, 22, "ControlSuggestions",ExpressionUUID->"6e84bbe0-7d8e-44ab-aac1-048973c18d4f",
|
|
CellTags->"AutomaticAnimation"]},
|
|
"BookmarkAnimation"->{
|
|
Cell[69298, 1641, 1032, 24, 22, "ControlSuggestions",ExpressionUUID->"0cf5a50d-6c0e-4089-a29f-941bc4ca8891",
|
|
CellTags->"BookmarkAnimation"]},
|
|
"Caption"->{
|
|
Cell[31698, 812, 1162, 25, 67, "ManipulateCaptionSection",ExpressionUUID->"3ed78bfd-4459-4d2a-906f-3e9e6aba33a4",
|
|
CellTags->"Caption"]},
|
|
"Control Suggestions"->{
|
|
Cell[62610, 1464, 1155, 29, 67, "ControlSuggestionsSection",ExpressionUUID->"af8a4061-fdd4-44d0-82cc-9fec786547ab",
|
|
CellTags->"Control Suggestions"]},
|
|
"CreateAndDeleteLocators"->{
|
|
Cell[65474, 1544, 763, 19, 22, "ControlSuggestions",ExpressionUUID->"98a81657-e34e-4dab-ac86-717d7eff050a",
|
|
CellTags->"CreateAndDeleteLocators"]},
|
|
"Details"->{
|
|
Cell[60765, 1423, 1820, 37, 67, "DetailsSection",ExpressionUUID->"b9971572-9357-4ce2-a011-62ff9eede7fa",
|
|
CellTags->"Details"]},
|
|
"DragLocators"->{
|
|
Cell[65012, 1529, 459, 13, 22, "ControlSuggestions",ExpressionUUID->"384b79dc-c11a-492d-87e1-2c4b84403891",
|
|
CellTags->"DragLocators"]},
|
|
"GamepadControls"->{
|
|
Cell[67211, 1591, 493, 12, 22, "ControlSuggestions",ExpressionUUID->"b4dbde82-29d9-4853-88cd-e053ae8d181c",
|
|
CellTags->"GamepadControls"]},
|
|
"Initialization Code"->{
|
|
Cell[2048, 48, 1857, 40, 67, "InitializationSection",ExpressionUUID->"1d34a731-8c48-4189-8b6f-89ef5777db9f",
|
|
CellTags->"Initialization Code"]},
|
|
"Manipulate"->{
|
|
Cell[19310, 516, 1548, 31, 67, "ManipulateSection",ExpressionUUID->"b7acceb9-ca4b-4965-b319-bd8a6214a587",
|
|
CellTags->"Manipulate"]},
|
|
"Related Links"->{
|
|
Cell[71445, 1695, 1215, 29, 67, "RelatedLinksSection",ExpressionUUID->"83b0243b-b7e3-4afb-8a4e-185fec8161fe",
|
|
CellTags->"Related Links"]},
|
|
"ResizeImages"->{
|
|
Cell[63768, 1495, 431, 10, 22, "ControlSuggestions",ExpressionUUID->"ac542041-3d26-42bf-920d-b54a74785eef",
|
|
CellTags->"ResizeImages"]},
|
|
"RotateAndZoomIn3D"->{
|
|
Cell[64202, 1507, 807, 20, 22, "ControlSuggestions",ExpressionUUID->"e14e98ed-7514-4081-99ea-c2ffb624df9b",
|
|
CellTags->"RotateAndZoomIn3D"]},
|
|
"Search Terms"->{
|
|
Cell[70345, 1668, 1097, 25, 67, "SearchTermsSection",ExpressionUUID->"a3a3a6a7-7876-4115-a51a-6d092bee139b",
|
|
CellTags->"Search Terms"]},
|
|
"SliderZoom"->{
|
|
Cell[66240, 1565, 968, 24, 22, "ControlSuggestions",ExpressionUUID->"b84ac2ce-e422-4d4d-953e-073d63c15a9e",
|
|
CellTags->"SliderZoom"]},
|
|
"Snapshots"->{
|
|
Cell[38448, 964, 1042, 23, 67, "SnapshotsSection",ExpressionUUID->"96bb7a68-4496-4362-86d3-c2a0812907f2",
|
|
CellTags->"Snapshots"]},
|
|
"Thumbnail"->{
|
|
Cell[33078, 846, 1029, 23, 67, "ThumbnailSection",ExpressionUUID->"401cc3c4-8319-4e19-82e7-df5fcb711a42",
|
|
CellTags->"Thumbnail"]}
|
|
}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{
|
|
{"Authoring Information", 76876, 1822},
|
|
{"AutomaticAnimation", 77048, 1825},
|
|
{"BookmarkAnimation", 77220, 1828},
|
|
{"Caption", 77381, 1831},
|
|
{"Control Suggestions", 77549, 1834},
|
|
{"CreateAndDeleteLocators", 77735, 1837},
|
|
{"Details", 77901, 1840},
|
|
{"DragLocators", 78053, 1843},
|
|
{"GamepadControls", 78216, 1846},
|
|
{"Initialization Code", 78386, 1849},
|
|
{"Manipulate", 78552, 1852},
|
|
{"Related Links", 78710, 1855},
|
|
{"ResizeImages", 78873, 1858},
|
|
{"RotateAndZoomIn3D", 79038, 1861},
|
|
{"Search Terms", 79203, 1864},
|
|
{"SliderZoom", 79362, 1867},
|
|
{"Snapshots", 79517, 1870},
|
|
{"Thumbnail", 79669, 1873}
|
|
}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[580, 22, 1443, 22, 90, "Title",ExpressionUUID->"b9e6fe14-67c5-4f7d-9ec0-13c361826e91"],
|
|
Cell[CellGroupData[{
|
|
Cell[2048, 48, 1857, 40, 67, "InitializationSection",ExpressionUUID->"1d34a731-8c48-4189-8b6f-89ef5777db9f",
|
|
CellTags->"Initialization Code"],
|
|
Cell[3908, 90, 5880, 163, 418, "Input",ExpressionUUID->"ee244b7a-a530-47db-8602-9dbd7bcdc504",
|
|
CellID->24701595],
|
|
Cell[9791, 255, 6595, 179, 454, "Input",ExpressionUUID->"c1a65306-27f7-4756-940f-772f9967450d",
|
|
CellID->25712845],
|
|
Cell[16389, 436, 2884, 75, 76, "Input",ExpressionUUID->"8d88b28f-3f47-427b-b865-62c1837375dc",
|
|
CellID->77166300]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[19310, 516, 1548, 31, 67, "ManipulateSection",ExpressionUUID->"b7acceb9-ca4b-4965-b319-bd8a6214a587",
|
|
CellTags->"Manipulate"],
|
|
Cell[CellGroupData[{
|
|
Cell[20883, 551, 6395, 163, 112, "Input",ExpressionUUID->"1c8a51fe-61b3-446f-b3f3-b27c622b6763"],
|
|
Cell[27281, 716, 4368, 90, 599, "Output",ExpressionUUID->"dfd01e67-d611-4c3e-aa0e-2487522ca13a",
|
|
CellID->397291535]
|
|
}, Open ]]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[31698, 812, 1162, 25, 67, "ManipulateCaptionSection",ExpressionUUID->"3ed78bfd-4459-4d2a-906f-3e9e6aba33a4",
|
|
CellTags->"Caption"],
|
|
Cell[32863, 839, 178, 2, 22, "ManipulateCaption",ExpressionUUID->"71921e4e-c8c2-4f05-96e3-4e3047349e9a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[33078, 846, 1029, 23, 67, "ThumbnailSection",ExpressionUUID->"401cc3c4-8319-4e19-82e7-df5fcb711a42",
|
|
CellTags->"Thumbnail"],
|
|
Cell[34110, 871, 4301, 88, 687, "Output",ExpressionUUID->"1b37c0f7-f862-4bde-95eb-3c9910bdd789",
|
|
CellID->63458145]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[38448, 964, 1042, 23, 67, "SnapshotsSection",ExpressionUUID->"96bb7a68-4496-4362-86d3-c2a0812907f2",
|
|
CellTags->"Snapshots"],
|
|
Cell[39493, 989, 21257, 431, 3094, InheritFromParent,ExpressionUUID->"11e490fb-ab2d-4547-86c8-ed147463c6e1",
|
|
CellID->116900255]
|
|
}, Open ]],
|
|
Cell[60765, 1423, 1820, 37, 67, "DetailsSection",ExpressionUUID->"b9971572-9357-4ce2-a011-62ff9eede7fa",
|
|
CellTags->"Details"],
|
|
Cell[CellGroupData[{
|
|
Cell[62610, 1464, 1155, 29, 67, "ControlSuggestionsSection",ExpressionUUID->"af8a4061-fdd4-44d0-82cc-9fec786547ab",
|
|
CellTags->"Control Suggestions"],
|
|
Cell[63768, 1495, 431, 10, 22, "ControlSuggestions",ExpressionUUID->"ac542041-3d26-42bf-920d-b54a74785eef",
|
|
CellTags->"ResizeImages"],
|
|
Cell[64202, 1507, 807, 20, 22, "ControlSuggestions",ExpressionUUID->"e14e98ed-7514-4081-99ea-c2ffb624df9b",
|
|
CellTags->"RotateAndZoomIn3D"],
|
|
Cell[65012, 1529, 459, 13, 22, "ControlSuggestions",ExpressionUUID->"384b79dc-c11a-492d-87e1-2c4b84403891",
|
|
CellTags->"DragLocators"],
|
|
Cell[65474, 1544, 763, 19, 22, "ControlSuggestions",ExpressionUUID->"98a81657-e34e-4dab-ac86-717d7eff050a",
|
|
CellTags->"CreateAndDeleteLocators"],
|
|
Cell[66240, 1565, 968, 24, 22, "ControlSuggestions",ExpressionUUID->"b84ac2ce-e422-4d4d-953e-073d63c15a9e",
|
|
CellTags->"SliderZoom"],
|
|
Cell[67211, 1591, 493, 12, 22, "ControlSuggestions",ExpressionUUID->"b4dbde82-29d9-4853-88cd-e053ae8d181c",
|
|
CellTags->"GamepadControls"],
|
|
Cell[67707, 1605, 1588, 34, 22, "ControlSuggestions",ExpressionUUID->"6e84bbe0-7d8e-44ab-aac1-048973c18d4f",
|
|
CellTags->"AutomaticAnimation"],
|
|
Cell[69298, 1641, 1032, 24, 22, "ControlSuggestions",ExpressionUUID->"0cf5a50d-6c0e-4089-a29f-941bc4ca8891",
|
|
CellTags->"BookmarkAnimation"]
|
|
}, Open ]],
|
|
Cell[70345, 1668, 1097, 25, 67, "SearchTermsSection",ExpressionUUID->"a3a3a6a7-7876-4115-a51a-6d092bee139b",
|
|
CellTags->"Search Terms"],
|
|
Cell[71445, 1695, 1215, 29, 67, "RelatedLinksSection",ExpressionUUID->"83b0243b-b7e3-4afb-8a4e-185fec8161fe",
|
|
CellTags->"Related Links"],
|
|
Cell[CellGroupData[{
|
|
Cell[72685, 1728, 1182, 29, 156, "AuthorSection",ExpressionUUID->"c2736cdb-c24c-4dd4-9a22-5bbef1a7a20a",
|
|
CellTags->"Authoring Information"],
|
|
Cell[73870, 1759, 213, 4, 22, "Author",ExpressionUUID->"e6a077c9-f528-4852-97e7-764f2f3a1895"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|