(* Content-type: application/vnd.wolfram.cdf.text *)
(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)
(* CreatedBy='Mathematica 11.1' *)
(*************************************************************************)
(* *)
(* The Mathematica License under which this file was created prohibits *)
(* restricting third parties in receipt of this file from republishing *)
(* or redistributing it by any means, including but not limited to *)
(* rights management or terms of use, without the express consent of *)
(* Wolfram Research, Inc. For additional information concerning CDF *)
(* licensing and redistribution see: *)
(* *)
(* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *)
(* *)
(*************************************************************************)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 1064, 20]
NotebookDataLength[ 20226, 487]
NotebookOptionsPosition[ 20411, 469]
NotebookOutlinePosition[ 20932, 492]
CellTagsIndexPosition[ 20889, 489]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["2-step delay, Mealy machine", "Subsubsection", "PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\
000000000000"],
Cell["\<\
Finite state machine which echoes its input after a delay of 2 steps, \
implemented as a Mealy machine.\
\>", "ManipulateCaption", \
"PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\
000000000000"],
Cell[TextData[{
"The machine uses this transition table and output function:\t",
Cell[BoxData[
FormBox[GridBox[{
{GridBox[{
{
StyleBox["A",
FontColor->RGBColor[0.0707103, 0.711955, 0.0397345]]},
{
StyleBox["B",
FontColor->RGBColor[0.0707103, 0.711955, 0.0397345]]},
{
StyleBox["C",
FontColor->RGBColor[0.0707103, 0.711955, 0.0397345]]},
{
StyleBox["D",
FontColor->RGBColor[0.0707103, 0.711955, 0.0397345]]}
}], GridBox[{
{
StyleBox["A",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["B",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["0",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]],
StyleBox["0",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]]},
{
StyleBox["C",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["D",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["0",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]],
StyleBox["0",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]]},
{
StyleBox["A",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["B",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["1",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]],
StyleBox["1",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]]},
{
StyleBox["C",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["D",
FontColor->RGBColor[0.7764705882352941, 0., 0.49411764705882355`]],
StyleBox["1",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]],
StyleBox["1",
FontColor->RGBColor[0.103487, 0.0904402, 0.711955]]}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}]}
}], TraditionalForm]],
CellChangeTimes->{{3.540005152366539*^9, 3.5400051633342733`*^9}, {
3.571701439075074*^9, 3.5717014421334133`*^9}, {3.6345226601471453`*^9,
3.6345226639874163`*^9}, {3.667072814288557*^9, 3.667072820805271*^9}, {
3.667072900454516*^9, 3.667072904663028*^9}, {3.6670913098472033`*^9,
3.6670913355216312`*^9}, 3.6985370988184357`*^9, {3.698539109800832*^9,
3.6985391376401*^9}},ExpressionUUID->
"bc20ba8b-e7b1-4b80-8970-b6fc3745c61b"],
"\[LineSeparator]"
}], "ManipulateCaption", \
"PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\
000000000000"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"MealyDelay2", "[", "\"\<\>\"", "]"}], ":=",
"\"\\""}],
";"}], "\[IndentingNewLine]", "\t",
RowBox[{"(*", " ",
RowBox[{"\"\\"", ";"}], " ",
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"MealyDelay2", "[", "binarystr_List", "]"}], ":=",
RowBox[{"Module", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"length", ",", "rules", ",", "trace", ",",
RowBox[{"states", "=",
RowBox[{"{",
RowBox[{
"\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}],
"}"}]}], ",", "tracestates", ",", "finaloutput"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"length", "=",
RowBox[{"Length", "[", "binarystr", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"rules", "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "0"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"2", ",", "0", ",", "1"}], "}"}]}], "\[IndentingNewLine]",
",",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "0"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"3", ",", "0", ",", "1"}], "}"}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "1"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"4", ",", "0", ",", "1"}], "}"}]}], "\[IndentingNewLine]",
",",
RowBox[{
RowBox[{"{",
RowBox[{"3", ",", "0"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"3", ",", "1"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"2", ",", "1", ",", "1"}], "}"}]}], "\[IndentingNewLine]",
",",
RowBox[{
RowBox[{"{",
RowBox[{"4", ",", "0"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"3", ",", "1", ",", "1"}], "}"}]}], ",",
RowBox[{
RowBox[{"{",
RowBox[{"4", ",", "1"}], "}"}], "\[Rule]",
RowBox[{"{",
RowBox[{"4", ",", "1", ",", "1"}], "}"}]}]}],
"\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"trace", "=",
RowBox[{"TuringMachine", "[",
RowBox[{"rules", ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"{",
RowBox[{"binarystr", ",", "0"}], "}"}]}], "}"}], ",", "length"}],
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"tracestates", "=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"trace", "//", "Transpose"}], "//", "First"}], "//",
"Transpose"}], "//", "First"}], ")"}]}], ";", "\[IndentingNewLine]",
RowBox[{"finaloutput", "=",
RowBox[{"Append", "[",
RowBox[{
RowBox[{"Drop", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"trace", "//", "Last"}], "//", "Last"}], ")"}], ",",
RowBox[{"-", "1"}]}], "]"}], ",", "\"\<\>\""}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"mealyTrace2", "=", "trace"}], ";", "\[IndentingNewLine]",
RowBox[{"TableForm", "[",
RowBox[{
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"states", "[",
RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", "tracestates"}],
"\[IndentingNewLine]", ",", " ",
RowBox[{"Append", "[",
RowBox[{"binarystr", ",", "\"\<\>\""}], "]"}],
"\[IndentingNewLine]", ",", "finaloutput"}], "\[IndentingNewLine]",
"}"}], "//", "Transpose"}], ",",
RowBox[{"TableSpacing", "\[Rule]",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}], ",",
RowBox[{"TableAlignments", "\[Rule]", "Center"}],
"\[IndentingNewLine]", ",",
RowBox[{"TableHeadings", "\[Rule]",
RowBox[{"{",
RowBox[{"None", ",",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}],
"}"}]}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Manipulate", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"InputField", "[",
RowBox[{
RowBox[{"Dynamic", "[", "mystring", "]"}], ",", "String"}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"Or", "[",
RowBox[{
RowBox[{"mystring", "\[Equal]", "0"}], ",",
RowBox[{"mystring", "\[Equal]", "\"\<\>\""}], ",",
RowBox[{"TrueQ", "[",
RowBox[{"mystring", "\[Equal]", "Null"}], "]"}]}], "]"}],
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{",", "\"\\""}],
"*)"}], "\[IndentingNewLine]", ",",
"\"\\"",
"\[IndentingNewLine]", ",",
RowBox[{"Row", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"TableForm", "[",
RowBox[{"{",
RowBox[{"\"\\"", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{",",
RowBox[{"MealyDelay2", "[",
RowBox[{"FromDigits", "/@",
RowBox[{"(",
RowBox[{"Characters", "[", "mystring", "]"}], ")"}]}],
"]"}], "\[IndentingNewLine]", ",",
RowBox[{"Evaluate", "[",
RowBox[{"Dynamic", "[",
RowBox[{"Characters", "[", "mystring", "]"}], "]"}],
"]"}]}], "*)"}], "\[IndentingNewLine]", ",",
RowBox[{"Dynamic", "[",
RowBox[{"MealyDelay2", "[",
RowBox[{"Drop", "[",
RowBox[{
RowBox[{"IntegerDigits", "[", "mystring", "]"}], ",",
"1"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}],
"]"}], ",", "\"\< \>\"", "\[IndentingNewLine]", ",",
RowBox[{"Dynamic", "[",
RowBox[{"ArrayPlot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Drop", "[",
RowBox[{"#", ",",
RowBox[{"-", "1"}]}], "]"}], "&"}], "/@",
RowBox[{"(",
RowBox[{"Last", "/@", "mealyTrace2"}], ")"}]}],
"\[IndentingNewLine]", ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{"1", "+",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"Sqrt", "[",
RowBox[{"Length", "[",
RowBox[{"mealyTrace2", "//", "Last"}], "]"}], "]"}],
")"}]}]}]}], "\[IndentingNewLine]", ",",
RowBox[{"ImageSize", "\[Rule]", "Small"}],
"\[IndentingNewLine]", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"None", ",", "None", ",", "None", ",",
"\"\\""}], "}"}]}]}],
"\[IndentingNewLine]", "]"}], "]"}]}], "}"}], ",",
RowBox[{"Alignment", "\[Rule]",
RowBox[{"{",
RowBox[{"Top", ",", "Top", ",", "Top"}], "}"}]}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"mystring", ",", "0", ",",
RowBox[{"Style", "[",
RowBox[{"\"\\"", ",", "16"}], "]"}]}], "}"}], "}"}],
"\[IndentingNewLine]", ",",
RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input", \
"PluginEmbeddedContent",
CellOpen->False,
InitializationCell->
True,ExpressionUUID->"00000000-0000-0000-0000-000000000000"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`mystring$$ = 0, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`mystring$$], 0,
Style["input string", 16]}}}, Typeset`size$$ = {446., {3., 10.}},
Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`mystring$$ = 0},
"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" :> Module[{}, InputField[
Dynamic[$CellContext`mystring$$], String]; If[
Or[$CellContext`mystring$$ == 0, $CellContext`mystring$$ == "",
TrueQ[$CellContext`mystring$$ == Null]],
"input any non-zero digit, followed by arbitrary 0s and 1s",
Row[{
TableForm[{"Mealy machine",
Dynamic[
$CellContext`MealyDelay2[
Drop[
IntegerDigits[$CellContext`mystring$$], 1]]]}], " ",
Dynamic[
ArrayPlot[
Map[Drop[#, -1]& ,
Map[Last, $CellContext`mealyTrace2]], AspectRatio -> 1 + 1/Sqrt[
Length[
Last[$CellContext`mealyTrace2]]], ImageSize -> Small,
FrameLabel -> {
None, None, None, "graphical view of\ntape evolution"}]]},
Alignment -> {Top, Top, Top}]]],
"Specifications" :> {{{$CellContext`mystring$$, 0,
Style["input string", 16]}}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{491., {49., 55.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
Initialization:>({$CellContext`MealyDelay2[""] :=
"input any non-zero digit, followed by arbitrary 0s and 1s", \
$CellContext`MealyDelay2[
Pattern[$CellContext`binarystr,
Blank[List]]] :=
Module[{$CellContext`length, $CellContext`rules, $CellContext`trace, \
$CellContext`states = {
"A", "B", "C",
"D"}, $CellContext`tracestates, $CellContext`finaloutput}, \
$CellContext`length =
Length[$CellContext`binarystr]; $CellContext`rules = {{1, 0} -> {1,
0, 1}, {1, 1} -> {2, 0, 1}, {2, 0} -> {3, 0, 1}, {2, 1} -> {4, 0,
1}, {3, 0} -> {1, 1, 1}, {3, 1} -> {2, 1, 1}, {4, 0} -> {3, 1,
1}, {4, 1} -> {4, 1, 1}}; $CellContext`trace =
TuringMachine[$CellContext`rules, {
1, {$CellContext`binarystr,
0}}, $CellContext`length]; $CellContext`tracestates = First[
Transpose[
First[
Transpose[$CellContext`trace]]]]; $CellContext`finaloutput =
Append[
Drop[
Last[
Last[$CellContext`trace]], -1],
""]; $CellContext`mealyTrace2 = $CellContext`trace; TableForm[
Transpose[{
Map[Part[$CellContext`states, #]& , $CellContext`tracestates],
Append[$CellContext`binarystr, ""], $CellContext`finaloutput}],
TableSpacing -> {1, 1}, TableAlignments -> Center,
TableHeadings -> {
None, {"state", "In", "Out"}}]], $CellContext`trace = {{{1, 1,
0}, {1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0,
0, 1, 0, 1, 0}}, {{2, 2, 1}, {0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0,
1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{4, 3, 2}, {0, 0, 1, 1,
0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1,
0}}, {{4, 4, 3}, {0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0,
1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{4, 5, 4}, {0, 0, 1, 1, 0, 0, 1, 0,
1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{3, 6,
5}, {0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0,
0, 1, 0, 1, 0}}, {{1, 7, 6}, {0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0,
1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{2, 8, 7}, {0, 0, 1, 1,
1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1,
0}}, {{3, 9, 8}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0,
1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{2, 10, 9}, {0, 0, 1, 1, 1, 1, 0, 0,
1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{3, 11,
10}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0,
0, 1, 0, 1, 0}}, {{1, 12, 11}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1,
0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{2, 13, 12}, {0, 0, 1,
1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1,
0}}, {{3, 14, 13}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0,
0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{2, 15, 14}, {0, 0, 1, 1, 1, 1, 0,
0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{3, 16,
15}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0,
0, 1, 0, 1, 0}}, {{1, 17, 16}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0,
0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0}}, {{1, 18, 17}, {0, 0, 1,
1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1,
0}}, {{2, 19, 18}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1,
0, 0, 1, 1, 0, 0, 1, 0, 1, 0}}, {{4, 20, 19}, {0, 0, 1, 1, 1, 1, 0,
0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0}}, {{4, 21,
20}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0,
0, 1, 0, 1, 0}}, {{3, 22, 21}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0,
0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0}}, {{1, 23, 22}, {0, 0, 1,
1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1,
0}}, {{2, 24, 23}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1,
0, 0, 0, 1, 1, 1, 0, 0, 1, 0}}, {{3, 25, 24}, {0, 0, 1, 1, 1, 1, 0,
0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0}}, {{2, 26,
25}, {0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1,
1, 0, 0, 1, 0}}}}; Typeset`initDone$$ = True),
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output", \
"PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\
000000000000"]
}, Open ]]
}, Open ]]
},
WindowSize->{634., 1087.18},
Visible->True,
AuthoredSize->{634, 1087},
ScrollingOptions->{"HorizontalScrollRange"->Fit,
"VerticalScrollRange"->Fit},
ShowCellBracket->False,
Deployed->True,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 16, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1486, 35, 134, 1, 23, "Subsubsection"],
Cell[1623, 38, 224, 5, 12, "ManipulateCaption"],
Cell[1850, 45, 2936, 77, 85, "ManipulateCaption"],
Cell[CellGroupData[{
Cell[4811, 126, 8669, 217, 19, "Input",
CellOpen->False,
InitializationCell->True],
Cell[13483, 345, 6900, 120, 106, "Output"]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)
(* NotebookSignature Dw0XmPHyTSNXOCwpwBfTer6I *)