(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='WolframDesktop 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 161, 7] NotebookDataLength[ 9694, 280] NotebookOptionsPosition[ 8423, 242] NotebookOutlinePosition[ 8791, 259] CellTagsIndexPosition[ 8748, 256] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Plot a sequence of bits with various positions indicated:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}, 3.76494485304517*^9}, CellID->1621063534], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DottedArrayPlot\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DottedArrayPlot\""}], ResourceFunction["DottedArrayPlot"], BoxID -> "DottedArrayPlot"], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{ 3.752865388364274*^9, {3.752865436982664*^9, 3.752865465053267*^9}, { 3.752865507544422*^9, 3.752865510863772*^9}, {3.752867937359686*^9, 3.752867939990774*^9}}, CellLabel->"In[3]:=", CellID->89786449], Cell[BoxData[ GraphicsBox[RasterBox[{{1, 1, 0, 1, 0, 1, 1, 1}}, ColorFunction->(GrayLevel[0.85 (1 - #/2)]& )], Epilog->{{ LineBox[{{0, 0}, {0, 1}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}], LineBox[{{3, 0}, {3, 1}}], LineBox[{{4, 0}, {4, 1}}], LineBox[{{5, 0}, {5, 1}}], LineBox[{{6, 0}, {6, 1}}], LineBox[{{7, 0}, {7, 1}}], LineBox[{{8, 0}, {8, 1}}]}, { LineBox[{{0, 0}, {8, 0}}], LineBox[{{0, 1}, {8, 1}}]}, { DiskBox[{1.5, 0.5}, 0.3], DiskBox[{3.5, 0.5}, 0.3], DiskBox[{4.5, 0.5}, 0.3]}}]], "Output", CellChangeTimes->{{3.752868682920372*^9, 3.7528687072604313`*^9}, 3.752868782020459*^9, 3.752942525206566*^9, 3.752942577722336*^9, 3.7529426731215353`*^9, {3.752942829450693*^9, 3.75294285906479*^9}, { 3.7529429805695877`*^9, 3.752943012915594*^9}, 3.752943209042122*^9, 3.7529444644836206`*^9, 3.7529475723105*^9}, CellLabel->"Out[3]=", CellID->1732150083] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["A 2D array:", "Text", CellChangeTimes->{{3.7447635435647297`*^9, 3.744763552884612*^9}, { 3.7529460426562357`*^9, 3.752946045413702*^9}}, CellID->1947100231], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"DottedArrayPlot\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"DottedArrayPlot\""}], ResourceFunction["DottedArrayPlot"], BoxID -> "DottedArrayPlot"], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}]}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7528680362518797`*^9, 3.7528680398965073`*^9}, { 3.752868101056086*^9, 3.752868103714418*^9}, {3.752868137676394*^9, 3.7528681379796047`*^9}, {3.752944226480544*^9, 3.752944231513028*^9}, { 3.752944360975452*^9, 3.7529443836788273`*^9}, {3.7529454358680887`*^9, 3.7529454758539143`*^9}, {3.752945517357121*^9, 3.752945522827261*^9}}, CellLabel->"In[4]:=", CellID->1557769431], Cell[BoxData[ GraphicsBox[ RasterBox[{{1, 0, 0, 1, 1, 0, 0, 1}, {0, 1, 1, 1, 0, 0, 1, 1}, {1, 0, 0, 1, 1, 1, 1, 0}}, ColorFunction->(GrayLevel[0.85 (1 - #/2)]& )], Epilog->{{ LineBox[{{0, 0}, {0, 3}}], LineBox[{{1, 0}, {1, 3}}], LineBox[{{2, 0}, {2, 3}}], LineBox[{{3, 0}, {3, 3}}], LineBox[{{4, 0}, {4, 3}}], LineBox[{{5, 0}, {5, 3}}], LineBox[{{6, 0}, {6, 3}}], LineBox[{{7, 0}, {7, 3}}], LineBox[{{8, 0}, {8, 3}}], LineBox[{{9, 0}, {9, 3}}]}, { LineBox[{{0, 0}, {8, 0}}], LineBox[{{0, 1}, {8, 1}}], LineBox[{{0, 2}, {8, 2}}], LineBox[{{0, 3}, {8, 3}}], LineBox[{{0, 4}, {8, 4}}]}, {{ DiskBox[{0.5, 2.5}, 0.3], DiskBox[{3.5, 2.5}, 0.3], DiskBox[{6.5, 2.5}, 0.3]}, { DiskBox[{0.5, 1.5}, 0.3], DiskBox[{1.5, 1.5}, 0.3], DiskBox[{4.5, 1.5}, 0.3]}, { DiskBox[{1.5, 0.5}, 0.3], DiskBox[{5.5, 0.5}, 0.3]}}}]], "Output", CellChangeTimes->{3.752945802077684*^9, 3.7529475724264517`*^9}, CellLabel->"Out[4]=", CellID->958126249] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (March 15, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[583, 22, 56, 1, 70, "Subsection",ExpressionUUID->"33c1b3e2-9b62-43f6-8011-4b30b99c97ca", CellID->285421464], Cell[642, 25, 187, 3, 70, "Text",ExpressionUUID->"7959b1fd-7cab-443b-ae09-d5ebf438752e", CellID->1621063534], Cell[CellGroupData[{ Cell[854, 32, 2246, 57, 70, "Input",ExpressionUUID->"364cbcac-71d9-4d18-8867-63eeac2dec79", CellID->89786449], Cell[3103, 91, 980, 24, 70, "Output",ExpressionUUID->"eccbd277-8f55-4d00-ad04-3001a6d74fbd", CellID->1732150083] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4132, 121, 47, 1, 70, "Subsection",ExpressionUUID->"9a54b7b0-f35c-4e84-91cb-e3d58022a90f", CellID->267254639], Cell[4182, 124, 167, 3, 70, "Text",ExpressionUUID->"6a4a8c61-ff05-47b8-8e42-e153fd8a7d95", CellID->1947100231], Cell[CellGroupData[{ Cell[4374, 131, 2941, 74, 70, "Input",ExpressionUUID->"ecd4de9b-f001-4e39-b959-8fc09bfeca6d", CellID->1557769431], Cell[7318, 207, 1077, 31, 70, "Output",ExpressionUUID->"9050a415-52be-404d-9346-40eccb4a570d", CellID->958126249] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)