(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 147347, 3050] NotebookOptionsPosition[ 143567, 2978] NotebookOutlinePosition[ 143890, 2994] CellTagsIndexPosition[ 143847, 2991] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellChangeTimes->{{3.7281272460221987`*^9, 3.728127247958585*^9}}], Cell["Retrieve the resource:", "Text", CellChangeTimes->{{3.728127254350329*^9, 3.728127257982621*^9}, { 3.73322366525624*^9, 3.733223666165429*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.728127260872284*^9, 3.7281272752872467`*^9}, { 3.728127444328906*^9, 3.728127464813257*^9}, {3.7293409227391644`*^9, 3.729340941637536*^9}, 3.732633387736391*^9, {3.7368596026520433`*^9, 3.736859617962743*^9}, 3.738429284405896*^9}, CellLabel->"In[85]:="], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ Thickness[0.011111111111111112`], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, {3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, {56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, FaceForm[ RGBColor[0.274612, 0.618881, 0.810913, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, {9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, { 2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False]}, AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"Kyoto Free Translation Task Data\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/DataRepository/\ resources/Kyoto-Free-Translation-Task-Data"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"DataResource\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { TagBox[ DynamicModuleBox[{ResourceSystemClient`Private`len$$ = 1}, RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Replace[ ResourceSystemClient`Private`snipDots[ "A parallel corpus for the evaluation and development of \ Japanese-English machine translation systems", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "A parallel corpus for the evaluation and development of \ Japanese-English machine translation systems", ResourceSystemClient`Private`len$$], {0}], StandardForm]], ButtonFunction :> (ResourceSystemClient`Private`len$$ = Ceiling[ResourceSystemClient`Private`len$$ 1.5]), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], "SummaryItem"]}], DynamicModuleValues :> {}], "SummaryItem"], "\[SpanFromLeft]"}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ Thickness[0.011111111111111112`], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, {3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, {56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, FaceForm[ RGBColor[0.274612, 0.618881, 0.810913, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, {9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, { 2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}, FaceForm[ RGBColor[0.648987, 0.648987, 0.648987, 1.]], StripOnInput -> False]}, AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"Kyoto Free Translation Task Data\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/DataRepository/\ resources/Kyoto-Free-Translation-Task-Data"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"DataResource\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { TagBox[ DynamicModuleBox[{ResourceSystemClient`Private`len$$ = 1}, RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Replace[ ResourceSystemClient`Private`snipDots[ "A parallel corpus for the evaluation and development of \ Japanese-English machine translation systems", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "A parallel corpus for the evaluation and development of \ Japanese-English machine translation systems", ResourceSystemClient`Private`len$$], {0}], StandardForm]], ButtonFunction :> (ResourceSystemClient`Private`len$$ = Ceiling[ResourceSystemClient`Private`len$$ 1.5]), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], "SummaryItem"]}], DynamicModuleValues :> {}], "SummaryItem"], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Categories: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Machine Learning\"", "\"Language\"", "\"Reference\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"ContentTypes: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Kyoto\"", "\"Wikipedia\"", "\"Wiki\"", "\"translation\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Documentation: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"https://resources.wolframcloud.com/DataRepository/\ resources/Kyoto-Free-Translation-Task-Data\"", "https://resources.wolframcloud.com/DataRepository/\ resources/Kyoto-Free-Translation-Task-Data"}, "HyperlinkURL"], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Data Location: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "9c15cebb-5a65-48df-b074-35e150da8177"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues :> {}], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"9c15cebb-5a65-48df-b074-35e150da8177\"", "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"1.0.0\"", "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Size: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{"\"RawData\"", "\[Rule]", "144110200"}], "\[RightAssociation]"}], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ RowBox[{ "\"RawData\"", ",", "\"TestData\"", ",", "\"TestDataset\"", ",", "\"TrainingData\"", ",", RowBox[{"\"Train\"", "\[Ellipsis]", "\"taset\""}], ",", "\"TuningData\"", ",", "\"TuningDataset\"", ",", "\"ValidationData\"", ",", "\"ValidationDataset\""}], Short[#, 2]& ], "SummaryItem"]}], ""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Kyoto Free Translation Task Data", "UUID" -> "9c15cebb-5a65-48df-b074-35e150da8177", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "A parallel corpus for the evaluation and development of Japanese-English \ machine translation systems", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "WolframLanguageVersionRequired" -> "10.0", "ContentSize" -> Association["RawData" -> 144110200], "ContentElements" -> { "RawData", "TestData", "TestDataset", "TrainingData", "TrainingDataset", "TuningData", "TuningDataset", "ValidationData", "ValidationDataset"}], {ResourceSystemBase -> Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.736859619183489*^9, 3.738429302698864*^9}, CellLabel->"Out[85]="] }, Open ]], Cell["Obtain the first three training examples:", "Text", CellChangeTimes->{{3.728127282358831*^9, 3.728127286254895*^9}, { 3.728201338668394*^9, 3.7282013582285757`*^9}, {3.7326348250263357`*^9, 3.732634825663501*^9}, {3.7373959397391167`*^9, 3.737395941146447*^9}, { 3.737396017562091*^9, 3.737396045943622*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{";;", "3"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.728127293463832*^9, 3.728127293711156*^9}, 3.728127441944079*^9, {3.7281274757003393`*^9, 3.728127480865025*^9}, { 3.728201353136797*^9, 3.728201373803566*^9}, {3.729340948705099*^9, 3.729340954389052*^9}, 3.732633393550434*^9, 3.73685962351646*^9, { 3.7373959491482286`*^9, 3.737395951340115*^9}, 3.738429306581397*^9}, CellLabel->"In[86]:="], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Japanese\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"\:96ea\:821f\:ff08\:305b\:3063\:3057\:3085\:3046\:30011420\ \:5e74\:ff08\:5fdc\:6c3827\:5e74\:ff09-1506\:5e74\:ff08\:6c38\:6b633\:5e74\ \:ff09\:ff09\:306f\:53f7\:3067\:300115\:4e16\:7d00\:5f8c\:534a\:5ba4\:753a\ \:6642\:4ee3\:306b\:6d3b\:8e8d\:3057\:305f\:6c34\:58a8\:753b\:5bb6\:30fb\:7985\ \:50e7\:3067\:3001\:753b\:8056\:3068\:3082\:79f0\:3048\:3089\:308c\:308b\:3002\ \"\>", ",", "\<\"\:65e5\:672c\:306e\:6c34\:58a8\:753b\:3092\:4e00\:5909\:3055\ \:305b\:305f\:3002\"\>", ",", "\<\"\:8af1\:306f\:300c\:7b49\:694a\:ff08\:3068\:3046\:3088\:3046\ \:ff09\:300d\:3001\:3082\:3057\:304f\:306f\:300c\:62d9\:5b97\:ff08\:305b\:3063\ \:3057\:3085\:3046\:ff09\:300d\:3068\:53f7\:3057\:305f\:3002\"\>"}], "}"}]}], ",", RowBox[{"\<\"English\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Known as Sesshu (1420 - 1506), he was an ink painter and \ Zen monk active in the Muromachi period in the latter half of the 15th \ century, and was called a master painter.\"\>", ",", "\<\"He revolutionized the Japanese ink painting.\"\>", ",", "\<\"He was given the posthumous name \\\"Toyo\\\" or \\\"Sesshu (\ \:62d9\:5b97).\\\"\"\>"}], "}"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.728127493526716*^9, {3.7281990660509567`*^9, 3.728199094104433*^9}, 3.7281992690477953`*^9, 3.728201362611022*^9, {3.729340951173668*^9, 3.729340957348916*^9}, 3.7326336115466003`*^9, 3.736859668299501*^9, 3.737396057026704*^9, 3.738429323799631*^9}, CellLabel->"Out[86]="] }, Open ]], Cell["Obtain the last three test examples:", "Text", CellChangeTimes->{{3.728127282358831*^9, 3.728127286254895*^9}, { 3.728201338668394*^9, 3.7282013582285757`*^9}, {3.7282013921394777`*^9, 3.728201392436901*^9}, {3.7326348284957647`*^9, 3.732634829151608*^9}, { 3.737396091687933*^9, 3.737396092070033*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{ RowBox[{"-", "3"}], ";;"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.728127293463832*^9, 3.728127293711156*^9}, 3.728127441944079*^9, {3.7281274757003393`*^9, 3.728127480865025*^9}, { 3.728201353136797*^9, 3.7282014035486517`*^9}, {3.729340974498404*^9, 3.7293409783401213`*^9}, 3.7326334158370953`*^9, 3.736859630282757*^9, { 3.7373960792899218`*^9, 3.737396082006452*^9}, 3.738429316883275*^9}, CellLabel->"In[87]:="], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Japanese\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"\:89aa\:85e9\:3001\:8b5c\:4ee3\:5927\:540d\:3001\:5916\:69d8\ \:5927\:540d\"\>", ",", "\<\"\:85e9\"\>", ",", "\<\"\:8af8\:4faf\"\>"}], "}"}]}], ",", RowBox[{"\<\"English\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Shinpan, Fudai Daimyo, Tozama Daimyo\"\>", ",", "\<\"Domains\"\>", ",", "\<\"Lords\"\>"}], "}"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.728127493526716*^9, {3.7281990660509567`*^9, 3.728199094104433*^9}, 3.7281992690477953`*^9, 3.728201362611022*^9, 3.728201405643911*^9, 3.729340980742415*^9, 3.732634063245779*^9, 3.7368597039581757`*^9, { 3.737396074789111*^9, 3.7373960841525784`*^9}, 3.7384293790387697`*^9}, CellLabel->"Out[87]="] }, Open ]], Cell["Obtain the one random validation example:", "Text", CellChangeTimes->{{3.728127282358831*^9, 3.728127286254895*^9}, { 3.728201338668394*^9, 3.7282013582285757`*^9}, {3.7282013921394777`*^9, 3.728201392436901*^9}, {3.7326348284957647`*^9, 3.732634829151608*^9}, { 3.737396091687933*^9, 3.737396112581295*^9}, {3.737397063687187*^9, 3.7373970660054502`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Length", "@", RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}]}]}], "}"}], "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.728127293463832*^9, 3.728127293711156*^9}, 3.728127441944079*^9, {3.7281274757003393`*^9, 3.728127480865025*^9}, { 3.728201353136797*^9, 3.7282014035486517`*^9}, {3.729340974498404*^9, 3.7293409783401213`*^9}, 3.7326334158370953`*^9, 3.736859630282757*^9, { 3.7373960792899218`*^9, 3.737396082006452*^9}, {3.7373961180869217`*^9, 3.737396128629291*^9}, {3.737396173143159*^9, 3.737396177381278*^9}, { 3.73739621301355*^9, 3.7373962514267273`*^9}, {3.737396305856752*^9, 3.737396327662519*^9}, {3.737396645237376*^9, 3.737396655140965*^9}, { 3.737396694437336*^9, 3.737396696242288*^9}, {3.73739678192269*^9, 3.7373968541426*^9}, {3.7373969031820793`*^9, 3.737396912828432*^9}, { 3.737396956284739*^9, 3.737396963018849*^9}, {3.737397009514863*^9, 3.7373970765518627`*^9}, 3.7384293190120792`*^9, 3.738429438402157*^9}, CellLabel->"In[89]:="], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Japanese\"\>", "\[Rule]", "\<\"\:5f7c\:306f\:300e\:559d\:306e\:81e8\:6e08\:300f\:300e\ \:81e8\:6e08\:5c06\:8ecd\:300f\:306e\:7570\:540d\:3067\:77e5\:3089\:308c\:3001\ \:8c6a\:653e\:306a\:5bb6\:98a8\:3092\:7279\:5fb4\:3068\:3057\:3066\:4e2d\:56fd\ \:7985\:8208\:9686\:306e\:9802\:70b9\:3092\:6975\:3081\:305f\:3002\"\>"}], ",", RowBox[{"\<\"English\"\>", "\[Rule]", "\<\"He was known as \\\"RINZAI of Katu (meaning to help wake \ up the sleeping mind) \\\" and \\\"General RINZAI\\\", and rose to the top of \ Chinese Zen with his distinctive style.\"\>"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.728127493526716*^9, {3.7281990660509567`*^9, 3.728199094104433*^9}, 3.7281992690477953`*^9, 3.728201362611022*^9, 3.728201405643911*^9, 3.729340980742415*^9, 3.732634063245779*^9, 3.7368597039581757`*^9, { 3.737396074789111*^9, 3.7373960841525784`*^9}, 3.7373961434183598`*^9, 3.737396179870274*^9, 3.737396657622699*^9, 3.7373966986982183`*^9, { 3.7373968130731297`*^9, 3.737396856713274*^9}, 3.737396915289464*^9, 3.737396965445292*^9, {3.737397034187612*^9, 3.737397081797943*^9}, { 3.737397190192059*^9, 3.73739720139682*^9}, {3.738429434919958*^9, 3.7384294441667347`*^9}}, CellLabel->"Out[89]="] }, Open ]], Cell["Obtain the one random tuning example:", "Text", CellChangeTimes->{{3.728127282358831*^9, 3.728127286254895*^9}, { 3.728201338668394*^9, 3.7282013582285757`*^9}, {3.7282013921394777`*^9, 3.728201392436901*^9}, {3.7326348284957647`*^9, 3.732634829151608*^9}, { 3.737396091687933*^9, 3.737396112581295*^9}, {3.737397063687187*^9, 3.7373970660054502`*^9}, {3.738429335522874*^9, 3.7384293369133997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Length", "@", RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}]}]}], "}"}], "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.728127293463832*^9, 3.728127293711156*^9}, 3.728127441944079*^9, {3.7281274757003393`*^9, 3.728127480865025*^9}, { 3.728201353136797*^9, 3.7282014035486517`*^9}, {3.729340974498404*^9, 3.7293409783401213`*^9}, 3.7326334158370953`*^9, 3.736859630282757*^9, { 3.7373960792899218`*^9, 3.737396082006452*^9}, {3.7373961180869217`*^9, 3.737396128629291*^9}, {3.737396173143159*^9, 3.737396177381278*^9}, { 3.73739621301355*^9, 3.7373962514267273`*^9}, {3.737396305856752*^9, 3.737396327662519*^9}, {3.737396645237376*^9, 3.737396655140965*^9}, { 3.737396694437336*^9, 3.737396696242288*^9}, {3.73739678192269*^9, 3.7373968541426*^9}, {3.7373969031820793`*^9, 3.737396912828432*^9}, { 3.737396956284739*^9, 3.737396963018849*^9}, {3.737397009514863*^9, 3.7373970765518627`*^9}, {3.7384293190120792`*^9, 3.7384293297931767`*^9}, {3.738429440272833*^9, 3.738429450047611*^9}}, CellLabel->"In[91]:="], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Japanese\"\>", "\[Rule]", "\<\"\:6d44\:571f\:771f\:5b97\:ff08\:3058\:3087\:3046\:3069\ \:3057\:3093\:3057\:3085\:3046\:3001Shin-Buddhism,PureLandBuddhism\:ff09\:306f\ \:3001\:65e5\:672c\:306e\:4ecf\:6559\:306e\:5b97\:6d3e\:306e\:3072\:3068\:3064\ \:3067\:3001\:938c\:5009\:6642\:4ee3\:521d\:671f\:3001\:6cd5\:7136\:306e\:5f1f\ \:5b50\:30fb\:89aa\:9e1e\:304c\:3001\:6cd5\:7136\:306e\:6559\:3048\:ff08\:6d44\ \:571f\:5b97\:ff09\:3092\:7d99\:627f\:767a\:5c55\:3055\:305b\:305f\:6559\:56e3\ \:3067\:3042\:308b\:3002\"\>"}], ",", RowBox[{"\<\"English\"\>", "\[Rule]", "\<\"Jodo Shinshu (Shin-Buddhism/True Pure Land Sect) is one \ of the sects of Japanese Buddhism, and a religious community that Shinran, an \ apprentice of Honen, succeeded and which developed Honen's doctrine (Jodo \ Shu/Pure Land Buddhism) in the early Kamakura period.\"\>"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{3.738429470989442*^9}, CellLabel->"Out[91]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Dataset Form", "Subsection", CellChangeTimes->{{3.7281272460221987`*^9, 3.728127247958585*^9}, { 3.7282014316851053`*^9, 3.728201434916499*^9}, 3.728201476453313*^9, { 3.733225153012734*^9, 3.733225153635153*^9}}], Cell[TextData[{ "Obtain five random pairs from the training set in ", Cell[BoxData[ ButtonBox["Dataset", BaseStyle->"Link", ButtonData->"ref/Dataset"]], "InlineFormula"], " form:" }], "Text", CellChangeTimes->{{3.7282014571624737`*^9, 3.728201473469483*^9}, { 3.732634832023693*^9, 3.732634833871525*^9}, 3.733223682741053*^9, 3.737397411314109*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.728127558958547*^9, 3.728127594982504*^9}, { 3.7282014397521353`*^9, 3.7282014542755213`*^9}, {3.728201491573392*^9, 3.728201500025828*^9}, {3.7293410079362993`*^9, 3.729341012673956*^9}, 3.732633411599861*^9, 3.736859637371181*^9, 3.737397421915052*^9, 3.738429382081739*^9}, CellLabel->"In[92]:="], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 5, "Length" -> 5, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "Japanese"} -> 1, {All, "English"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "Japanese" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`], "English" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`]]]], 5, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1969361086], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1969361086]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Japanese\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Japanese\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 785332471][{ All, "Japanese"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[All, "Japanese"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"English\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"English\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 785332471][{ All, "English"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[All, "English"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:8feb\:529b\:306e\:624b\:7b52\:82b1\:706b\:3001\:512a\:96c5\ \:306a\:5929\:6587\:5b57\:713c\:304d\:304c\:884c\:308f\:308c\:308b\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[1, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "In the festival, you can see powerful arm-held fireworks and \ the elegant ceremon \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[1, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation["\:9bf1\:ff08\:3057\:3083\:3061\:ff09", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[2, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Shachi (Orca)", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[2, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:3057\:304b\:3057\:653f\:77e9\:306f\:3001\:3053\:306e\:9803\ \:304b\:3089\:75c5\:4e2d\:306b\:3042\:3063\:305f\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[3, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "However Masanori was been ill around this time.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[3, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:4f55\:4f11\:306f\:535a\:5b66\:3092\:3082\:3063\:3066\:300e\ \:516c\:7f8a\:4f1d\:300f\:306b\:6ce8\:3092\:4f5c\:308a\:3001\:300e\:6625\:79cb\ \:516c\:7f8a\:89e3\:8a41\:300f\:306b\:307e\:3068\:3081\:305f\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[4, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Ka Kyu wrote an annotation for the \"Kuyoden\" with his \ extensive knowledge and su \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[4, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:5b50\:306b\:306f\:96bb\:773c\:306e\:5263\:58eb\:3068\:3057\ \:3066\:6709\:540d\:306a\:9577\:7537\:306e\:67f3\:751f\:4e09\:53b3\:ff08\:5341\ \:5175\:885b\:ff09\:3001\:5bb6\:5149\:306e\:5bf5\:611b\:3092\:53d7\:3051\:305f\ \:304c\:7236\:306b\:5148\:7acb\:3063\:3066\:65e9\:4e16\:3057\:305f\:67f3\:751f\ \:53cb\:77e9\:3001\:7236\:306e\:6b7b\:5f8c\:307e\:3082\:306a\:304f\:6ca1\:3057\ \:305f\:4e09\:53b3\:306b\:4ee3\:308f\:3063\:3066\:5c06\:8ecd\:5bb6\:5e2b\:7bc4\ \:5f79\:3092\:7d99\:3044\:3060 \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[5, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "His four children were as follows: Mitsuyoshi YAGYU (Jubei), \ the eldest son, wel \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ GeneralUtilities`Slice[5, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 785332471][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 785332471]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[785332471][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {1238., {83., 89.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{ 3.728127566360744*^9, 3.728127600992641*^9, 3.728199279672447*^9, { 3.7282014488565817`*^9, 3.7282014609079847`*^9}, {3.729341016768866*^9, 3.729341040384943*^9}, 3.732634074283622*^9, 3.736859755322822*^9, 3.738429485136965*^9}, CellLabel->"Out[92]="] }, Open ]], Cell[TextData[{ "Obtain five random pairs from the test set in ", Cell[BoxData[ ButtonBox["Dataset", BaseStyle->"Link", ButtonData->"ref/Dataset"]], "InlineFormula"], " form:" }], "Text", CellChangeTimes->{{3.7282014571624737`*^9, 3.728201485380945*^9}, { 3.732634837255536*^9, 3.732634837663495*^9}, 3.733223686064169*^9, 3.7373974113699083`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.728127558958547*^9, 3.728127594982504*^9}, { 3.7282014397521353`*^9, 3.7282014542755213`*^9}, {3.7282015030602293`*^9, 3.728201514557925*^9}, {3.729341023421885*^9, 3.729341027954372*^9}, 3.732633411658828*^9, 3.7368596396584673`*^9, 3.737397415804142*^9, 3.738429384195188*^9}, CellLabel->"In[93]:="], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 5, "Length" -> 5, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "Japanese"} -> 1, {All, "English"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "Japanese" -> TypeSystem`PackageScope`AtomShape[326.40000000000003`], "English" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`]]]], 5, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1129649407], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1129649407]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Japanese\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Japanese\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2009378563][{All, "Japanese"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[All, "Japanese"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"English\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"English\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2009378563][{All, "English"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[All, "English"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation["12\:67088\:65e5\:3001\:96a0\:5c45\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[1, Key["Japanese"]]], "Mouse"], ImageSize -> {{326.40000000000003`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["He retired on December 8.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[1, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:300c\:6587\:610f\:3042\:3056\:3084\:304b\:306b\:3066\:300d\ \:89e3\:8aad\:3057\:3084\:3059\:304f\:3001\:6700\:3082\:53e4\:614b\:306b\:8fd1\ \:3044\:3068\:8003\:3048\:3089\:308c\:3066\:3044\:308b\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[2, Key["Japanese"]]], "Mouse"], ImageSize -> {{326.40000000000003`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "It is 'clear writing' and is easy to understand, being \ considered the most simil \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[2, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\[RightArrow]\:6771\:6d77\:9053\:4e94\:5341\:4e09\:6b21(\ \:30b2\:30fc\:30e0)", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[3, Key["Japanese"]]], "Mouse"], ImageSize -> {{326.40000000000003`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["The 53 stations of the Tokaido Road (a game)", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[3, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:4e45\:5fa1\:5c71\:753a\:4ee5\:897f\:306f\:4eac\:90fd\:7b2c\ \:4e8c\:5916\:74b0\:72b6\:9053\:8def\:3092\:53c2\:7167\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[4, Key["Japanese"]]], "Mouse"], ImageSize -> {{326.40000000000003`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "See \"Kyoto-Daini-soto-kanjo-doro\" for descriptions of the \ sections west of Kumiyama-cho.", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[4, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:6176\:559c\:306f\:671d\:5ef7\:306b\:904b\:52d5\:3057\:3066\ \:4f11\:6226\:306e\:8a54\:52c5\:3092\:5f15\:304d\:51fa\:3057\:3001\:4f11\:6226\ \:5354\:5b9a\:306e\:7de0\:7d50\:306b\:6210\:529f\:3059\:308b\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[5, Key["Japanese"]]], "Mouse"], ImageSize -> {{326.40000000000003`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Yoshinobu appealed to the Imperial Court to make an official \ announcement of tru \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ GeneralUtilities`Slice[5, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2009378563][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2009378563]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2009378563][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {990., {83., 89.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{ 3.728127566360744*^9, 3.728127600992641*^9, 3.728199279672447*^9, { 3.7282014488565817`*^9, 3.7282014609079847`*^9}, 3.7282015165505867`*^9, 3.72934104238066*^9, 3.7326340914194317`*^9, 3.7368597607838593`*^9, 3.7384294928860703`*^9}, CellLabel->"Out[93]="] }, Open ]], Cell[TextData[{ "Obtain five random pairs from the validation set in ", Cell[BoxData[ ButtonBox["Dataset", BaseStyle->"Link", ButtonData->"ref/Dataset"]], "InlineFormula"], " form:" }], "Text", CellChangeTimes->{{3.7282014571624737`*^9, 3.728201473469483*^9}, { 3.732634832023693*^9, 3.732634833871525*^9}, 3.733223682741053*^9, { 3.737397120213648*^9, 3.737397121155739*^9}, 3.737397411425671*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.728127558958547*^9, 3.728127594982504*^9}, { 3.7282014397521353`*^9, 3.7282014542755213`*^9}, {3.728201491573392*^9, 3.728201500025828*^9}, {3.7293410079362993`*^9, 3.729341012673956*^9}, 3.732633411599861*^9, 3.736859637371181*^9, {3.7373971234132833`*^9, 3.737397125443983*^9}, 3.7373974177226353`*^9, 3.738429386608795*^9}, CellLabel->"In[94]:="], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 5, "Length" -> 5, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "Japanese"} -> 1, {All, "English"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "Japanese" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`], "English" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`]]]], 5, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[250009851], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[250009851]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Japanese\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Japanese\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1254242807][{All, "Japanese"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[All, "Japanese"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"English\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"English\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1254242807][{All, "English"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[All, "English"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:4ee4\:5b50\:5185\:89aa\:738b\:ff081078-1144\:ff09-\:658e\ \:9662", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[1, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Princess Reishi/Yoshiko (1078-1144), Saiin", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[1, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:300e\:65b0\:30fb\:5e73\:5bb6\:7269\:8a9e(NHK\:5927\:6cb3\ \:30c9\:30e9\:30de)\:300f\:ff081972\:5e74NHK\:5927\:6cb3\:30c9\:30e9\:30de\ \:3001\:6f14\:ff1a\:6edd\:6ca2\:4fee\:ff09", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[2, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "\"The New Tale of the Heike (NHK Taiga Drama)\" 1972 NHK \ Taiga Drama SHIRAKAWA pla \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[2, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "2007\:5e7410\:6708-\:6642\:4ee3\:5287\:6620\:753b\:300c\:8336\ \:3005\:5929\:6daf\:306e\:8cb4\:5983\:300d\:64ae\:5f71\:306e\:305f\:3081\:3001\ \:671b\:697c\:306e\:4e0b\:306b\:864e\:306e\:88c5\:98fe\:3084\:9bf1\:3092\:91d1\ \:8272\:306b\:5857\:308a\:66ff\:3048\:308b\:306a\:3069\:5927\:5742\:57ce\:306b\ \:898b\:7acb\:3066\:3066\:6539\:88c5\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[3, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "October 2007 - When it was remodeled to look like Osaka-jo \ Castle for the filmin \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[3, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation["\:4e2d\:5c71\:5927\:5b66", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[4, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Sun Yat-Sen University", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[4, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:4e5d\:6761\:9053\:5bb6\:306f\:5ae1\:7537\:30fb\:4e5d\:6761\ \:6559\:5b9f\:306b\:5148\:7acb\:305f\:308c\:3001\:6b21\:7537\:30fb\:4e8c\:6761\ \:826f\:5b9f\:306f\:4e8b\:5b9f\:4e0a\:306e\:52d8\:5f53\:72b6\:614b\:306b\:3042\ \:3063\:305f\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[5, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Michiie KUJO lost the legitimate heir, Norizane KUJO, and \ the second son, Yoshiz \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ GeneralUtilities`Slice[5, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1254242807][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1254242807]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1254242807][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {1277., {83., 89.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{ 3.728127566360744*^9, 3.728127600992641*^9, 3.728199279672447*^9, { 3.7282014488565817`*^9, 3.7282014609079847`*^9}, {3.729341016768866*^9, 3.729341040384943*^9}, 3.732634074283622*^9, 3.736859755322822*^9, 3.737397127816942*^9, 3.738429498959997*^9}, CellLabel->"Out[94]="] }, Open ]], Cell[TextData[{ "Obtain five random pairs from the tuning set in ", Cell[BoxData[ ButtonBox["Dataset", BaseStyle->"Link", ButtonData->"ref/Dataset"]], "InlineFormula"], " form:" }], "Text", CellChangeTimes->{{3.7282014571624737`*^9, 3.728201473469483*^9}, { 3.732634832023693*^9, 3.732634833871525*^9}, 3.733223682741053*^9, { 3.737397120213648*^9, 3.737397121155739*^9}, 3.737397411425671*^9, { 3.7384294020812798`*^9, 3.7384294028307056`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.728127558958547*^9, 3.728127594982504*^9}, { 3.7282014397521353`*^9, 3.7282014542755213`*^9}, {3.728201491573392*^9, 3.728201500025828*^9}, {3.7293410079362993`*^9, 3.729341012673956*^9}, 3.732633411599861*^9, 3.736859637371181*^9, {3.7373971234132833`*^9, 3.737397125443983*^9}, 3.7373974177226353`*^9, {3.738429386608795*^9, 3.738429407582573*^9}}, CellLabel->"In[95]:="], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 5, "Length" -> 5, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "Japanese"} -> 1, {All, "English"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "Japanese" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`], "English" -> TypeSystem`PackageScope`AtomShape[480.00000000000006`]]]], 5, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[1044072989], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Japanese", "English"}, { TypeSystem`Atom[String], TypeSystem`Atom[String]}], 5], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[1044072989]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Japanese\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Japanese\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 777514365][{ All, "Japanese"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[All, "Japanese"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"English\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"English\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 777514365][{ All, "English"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[All, "English"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:5f62\:5f0f\:7684\:306b\:306f\:52c5\:4ee4\:306b\:3088\:308a\ \:4efb\:547d\:3055\:308c\:308b\:81e3\:4e0b\:3067\:306f\:3042\:308b\:304c\:3001\ \:5b9f\:8cea\:7684\:306b\:671d\:5ef7\:3092\:3082\:62bc\:3055\:3048\:305f\:65e5\ \:672c\:306e\:7d71\:6cbb\:8005\:3067\:3042\:308a\:3001\:5bfe\:5916\:7684\:306b\ \:3082\:56fd\:738b\:3068\:3057\:3066\:306e\:5f85\:9047\:3092\:53d7\:3051\:308b\ \:306e\:304c\:901a\:4f8b\:3067\:3042\:3063\:305f\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[1, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Although he was formally a retainer appointed by imperial \ edict, he was in fact \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[1, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:307e\:305f\:5965\:5dde\:85e4\:539f\:6c0f\:306e\:93ae\:5b88\ \:5e9c\:5c06\:8ecd\:3068\:6bd4\:8f03\:3059\:308b\:3068\:300c\:6b66\:58eb\:306e\ \:81ea\:6cbb\:300d\:3068\:3044\:3046\:91cd\:8981\:306a\:7a4d\:6975\:7684\:8981\ \:7d20\:304c\:6b20\:3051\:3066\:3044\:305f\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[2, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Also, compared to the Oshu Fujiwara clan's Chinjufu Shogun, \ it lacked the import \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[2, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:6b63\:5ba4\:ff1a\:65e5\:91ce\:696d\:5b50\:ff08\:65e5\:91ce\ \:6642\:5149\:5a18\:ff09", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[3, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Wife: Nariko HINO (daughter of Tokimitsu HINO)", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[3, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:805a\:697d\:7b2c\:ff08\:3058\:3085\:3089\:304f\:3060\:3044\ \:ff0f\:3058\:3085\:3089\:304f\:3066\:3044\:ff09\:306f\:3001\:5b89\:571f\:6843\ \:5c71\:6642\:4ee3\:306b\:8c4a\:81e3\:79c0\:5409\:304c\:4eac\:90fd\:306e\:5185\ \:91ce\:ff08\:5e73\:5b89\:4eac\:306e\:5927\:5185\:88cf\:8de1\:3001\:73fe\:5728\ \:306e\:4eac\:90fd\:5e02\:4e0a\:4eac\:533a\:306b\:3042\:305f\:308b\:ff09\:306b\ \:5efa\:8a2d\:3057\:305f\:5927\:90b8\:5b85\:3002", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[4, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ "Jurakudai (or Jurakutei) was a large residence built by \ Hideyoshi TOYOTOMI in Uc \[DescendingEllipsis] ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[4, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ "\:6728\:9020\:515c\:8dcb\:6bd8\:6c99\:9580\:5929\:7acb\:50cf\ ", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[5, Key["Japanese"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Wooden statue of Bishamonten", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ GeneralUtilities`Slice[5, Key["English"]]], "Mouse"], ImageSize -> {{480.00000000000006`, Full}, Automatic}, Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 777514365][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 777514365]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[777514365][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {1227., {83., 89.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{ 3.728127566360744*^9, 3.728127600992641*^9, 3.728199279672447*^9, { 3.7282014488565817`*^9, 3.7282014609079847`*^9}, {3.729341016768866*^9, 3.729341040384943*^9}, 3.732634074283622*^9, 3.736859755322822*^9, 3.737397127816942*^9, 3.738429506515751*^9}, CellLabel->"Out[95]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Analysis", "Subsection", CellChangeTimes->{{3.728127314391264*^9, 3.728127315223114*^9}}], Cell["Obtain a character-level histogram of test example lengths:", "Text", CellChangeTimes->{{3.728200797328631*^9, 3.72820081031301*^9}, { 3.7282010076260357`*^9, 3.7282010251222*^9}, {3.728201300660441*^9, 3.7282013081242847`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{"StringLength", ",", RowBox[{"ResourceData", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"ChartLegends", "\[Rule]", "Automatic"}], ",", RowBox[{"LegendAppearance", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.728127656174219*^9, 3.728127713546994*^9}, { 3.728199340291584*^9, 3.728199347097746*^9}, {3.728199567806409*^9, 3.7281995703323717`*^9}, {3.7281998502166843`*^9, 3.728199888404072*^9}, { 3.7281999661255293`*^9, 3.7282000064124727`*^9}, {3.728200136344078*^9, 3.728200139158169*^9}, {3.728200182763051*^9, 3.728200244590563*^9}, { 3.728200311857642*^9, 3.7282003170313387`*^9}, {3.728200360297062*^9, 3.7282004015948257`*^9}, {3.7282004549081163`*^9, 3.728200466560116*^9}, { 3.728200517242949*^9, 3.728200539959037*^9}, {3.728200629100472*^9, 3.728200642664611*^9}, {3.728200691799096*^9, 3.728200694913376*^9}, { 3.72820079033432*^9, 3.728200790442164*^9}, {3.728201281998904*^9, 3.7282012958097153`*^9}, {3.7282015378909082`*^9, 3.728201545331975*^9}, { 3.729341063058983*^9, 3.729341066480137*^9}, 3.732633411717767*^9, 3.736859642714758*^9, 3.738429515229192*^9}, CellLabel->"In[96]:="], Cell[BoxData[ TemplateBox[{GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.581]]], RGBColor[ 0.987148, 0.8073604000000001, 0.49470040000000004`]], {{{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.581]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.97858, 0.678934, 0.157834]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {20., 373}, "RoundingRadius" -> 0]}]}, StatusArea[#, 373]& , TagBoxNote -> "373"], StyleBox["373", {}, StripOnInput -> False]], Annotation[#, Style[373, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0.}, {40., 406}, "RoundingRadius" -> 0]}]}, StatusArea[#, 406]& , TagBoxNote -> "406"], StyleBox["406", {}, StripOnInput -> False]], Annotation[#, Style[406, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0.}, {60., 196}, "RoundingRadius" -> 0]}]}, StatusArea[#, 196]& , TagBoxNote -> "196"], StyleBox["196", {}, StripOnInput -> False]], Annotation[#, Style[196, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0.}, {80., 94}, "RoundingRadius" -> 0]}]}, StatusArea[#, 94]& , TagBoxNote -> "94"], StyleBox["94", {}, StripOnInput -> False]], Annotation[#, Style[94, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0.}, {100., 46}, "RoundingRadius" -> 0]}]}, StatusArea[#, 46]& , TagBoxNote -> "46"], StyleBox["46", {}, StripOnInput -> False]], Annotation[#, Style[46, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{100., 0.}, {120., 28}, "RoundingRadius" -> 0]}]}, StatusArea[#, 28]& , TagBoxNote -> "28"], StyleBox["28", {}, StripOnInput -> False]], Annotation[#, Style[28, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{120., 0.}, {140., 11}, "RoundingRadius" -> 0]}]}, StatusArea[#, 11]& , TagBoxNote -> "11"], StyleBox["11", {}, StripOnInput -> False]], Annotation[#, Style[11, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{140., 0.}, {160., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{160., 0.}, {180., 1}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{180., 0.}, {200., 1}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, { Directive[ Opacity[0.5], Directive[ EdgeForm[ Directive[ Thickness[Small], Opacity[0.581]]], RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], Directive[ RGBColor[0.368417, 0.506779, 0.709798]]], {{ TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {20., 56}, "RoundingRadius" -> 0]}]}, StatusArea[#, 56]& , TagBoxNote -> "56"], StyleBox["56", {}, StripOnInput -> False]], Annotation[#, Style[56, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0.}, {40., 117}, "RoundingRadius" -> 0]}]}, StatusArea[#, 117]& , TagBoxNote -> "117"], StyleBox["117", {}, StripOnInput -> False]], Annotation[#, Style[117, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0.}, {60., 176}, "RoundingRadius" -> 0]}]}, StatusArea[#, 176]& , TagBoxNote -> "176"], StyleBox["176", {}, StripOnInput -> False]], Annotation[#, Style[176, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0.}, {80., 166}, "RoundingRadius" -> 0]}]}, StatusArea[#, 166]& , TagBoxNote -> "166"], StyleBox["166", {}, StripOnInput -> False]], Annotation[#, Style[166, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0.}, {100., 125}, "RoundingRadius" -> 0]}]}, StatusArea[#, 125]& , TagBoxNote -> "125"], StyleBox["125", {}, StripOnInput -> False]], Annotation[#, Style[125, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{100., 0.}, {120., 110}, "RoundingRadius" -> 0]}]}, StatusArea[#, 110]& , TagBoxNote -> "110"], StyleBox["110", {}, StripOnInput -> False]], Annotation[#, Style[110, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{120., 0.}, {140., 66}, "RoundingRadius" -> 0]}]}, StatusArea[#, 66]& , TagBoxNote -> "66"], StyleBox["66", {}, StripOnInput -> False]], Annotation[#, Style[66, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{140., 0.}, {160., 64}, "RoundingRadius" -> 0]}]}, StatusArea[#, 64]& , TagBoxNote -> "64"], StyleBox["64", {}, StripOnInput -> False]], Annotation[#, Style[64, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{160., 0.}, {180., 48}, "RoundingRadius" -> 0]}]}, StatusArea[#, 48]& , TagBoxNote -> "48"], StyleBox["48", {}, StripOnInput -> False]], Annotation[#, Style[48, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{180., 0.}, {200., 49}, "RoundingRadius" -> 0]}]}, StatusArea[#, 49]& , TagBoxNote -> "49"], StyleBox["49", {}, StripOnInput -> False]], Annotation[#, Style[49, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{200., 0.}, {220., 32}, "RoundingRadius" -> 0]}]}, StatusArea[#, 32]& , TagBoxNote -> "32"], StyleBox["32", {}, StripOnInput -> False]], Annotation[#, Style[32, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{220., 0.}, {240., 27}, "RoundingRadius" -> 0]}]}, StatusArea[#, 27]& , TagBoxNote -> "27"], StyleBox["27", {}, StripOnInput -> False]], Annotation[#, Style[27, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{240., 0.}, {260., 17}, "RoundingRadius" -> 0]}]}, StatusArea[#, 17]& , TagBoxNote -> "17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{260., 0.}, {280., 28}, "RoundingRadius" -> 0]}]}, StatusArea[#, 28]& , TagBoxNote -> "28"], StyleBox["28", {}, StripOnInput -> False]], Annotation[#, Style[28, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{280., 0.}, {300., 16}, "RoundingRadius" -> 0]}]}, StatusArea[#, 16]& , TagBoxNote -> "16"], StyleBox["16", {}, StripOnInput -> False]], Annotation[#, Style[16, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{300., 0.}, {320., 11}, "RoundingRadius" -> 0]}]}, StatusArea[#, 11]& , TagBoxNote -> "11"], StyleBox["11", {}, StripOnInput -> False]], Annotation[#, Style[11, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{320., 0.}, {340., 7}, "RoundingRadius" -> 0]}]}, StatusArea[#, 7]& , TagBoxNote -> "7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{340., 0.}, {360., 8}, "RoundingRadius" -> 0]}]}, StatusArea[#, 8]& , TagBoxNote -> "8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{360., 0.}, {380., 9}, "RoundingRadius" -> 0]}]}, StatusArea[#, 9]& , TagBoxNote -> "9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{380., 0.}, {400., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{400., 0.}, {420., 5}, "RoundingRadius" -> 0]}]}, StatusArea[#, 5]& , TagBoxNote -> "5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{420., 0.}, {440., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{440., 0.}, {460., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{460., 0.}, {480., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{480., 0.}, {500., 1}, "RoundingRadius" -> 0]}]}, StatusArea[#, 1]& , TagBoxNote -> "1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{500., 0.}, {520., 4}, "RoundingRadius" -> 0]}]}, StatusArea[#, 4]& , TagBoxNote -> "4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{540., 0.}, {560., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{560., 0.}, {580., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, { TagBox[ TooltipBox[ TagBox[{ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{640., 0.}, {660., 2}, "RoundingRadius" -> 0]}]}, StatusArea[#, 2]& , TagBoxNote -> "2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}}}, {}, {}}}}}, {{{{{}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {}}}}}, { AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {-6., 0.}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], PlotRange -> {{0, 300}, {All, All}}, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"Japanese\"", "\"English\""}, "SwatchLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.581]]], RGBColor[0.97858, 0.678934, 0.157834]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{ Directive[ PointSize[0.5], AbsoluteThickness[1.6], Opacity[0.5], EdgeForm[ Directive[ GrayLevel[0], Thickness[Small], Opacity[0.581]]], RGBColor[0.368417, 0.506779, 0.709798]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.581`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.97858, 0.678934, 0.157834], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6523866666666667, 0.45262266666666673`, 0.10522266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.97858`", ",", "0.678934`", ",", "0.157834`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.97858, 0.678934, 0.157834]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.97858, 0.678934, 0.157834], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Opacity", "[", "0.581`", "]"}]}], "]"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Automatic", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.7281276523659363`*^9, 3.728127715900758*^9}, { 3.728199320311466*^9, 3.728199352451178*^9}, 3.728199573220174*^9, { 3.728199853756487*^9, 3.728199891636654*^9}, {3.7281999716897573`*^9, 3.7282000095137978`*^9}, 3.728200142197781*^9, {3.728200195831152*^9, 3.7282002478078327`*^9}, {3.728200367123835*^9, 3.728200404776492*^9}, 3.728200469804661*^9, {3.728200525682333*^9, 3.7282005430350227`*^9}, 3.728200645635188*^9, 3.728200697911232*^9, 3.728200793614501*^9, 3.729341072551642*^9, 3.732634098128273*^9, 3.736859773136858*^9, 3.738429519602147*^9}, CellLabel->"Out[96]="] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 104, 1, 70, "Subsection",ExpressionUUID->"085e7ddd-83e4-428d-baba-ce8a2f4a772f"], Cell[687, 25, 152, 2, 70, "Text",ExpressionUUID->"58f50e5a-fd3d-46fe-ad14-e8e0bf297302"], Cell[CellGroupData[{ Cell[864, 31, 399, 7, 70, "Input",ExpressionUUID->"9cba03e4-4921-40ec-aec2-f06c2ed8ec04"], Cell[1266, 40, 19984, 397, 70, "Output",ExpressionUUID->"4676231d-6502-4297-9638-87d63ba9909f"] }, Open ]], Cell[21265, 440, 322, 4, 70, "Text",ExpressionUUID->"46116791-f92e-4bbb-bd3e-45d5ee03c385"], Cell[CellGroupData[{ Cell[21612, 448, 586, 12, 70, "Input",ExpressionUUID->"a7b530de-ed60-4840-b7a1-857f65d8ec8c"], Cell[22201, 462, 1649, 29, 70, "Output",ExpressionUUID->"831130da-3bbb-4cc4-bdf1-886dd0b11f46"] }, Open ]], Cell[23865, 494, 317, 4, 70, "Text",ExpressionUUID->"2b673535-be21-419f-83c6-26b09cb0ea36"], Cell[CellGroupData[{ Cell[24207, 502, 658, 15, 70, "Input",ExpressionUUID->"29fe6865-b42c-4d20-92a3-2cc1f3a01b3f"], Cell[24868, 519, 854, 18, 70, "Output",ExpressionUUID->"9cee3f40-5c1d-41ab-9da4-c8bbcf945936"] }, Open ]], Cell[25737, 540, 373, 5, 70, "Text",ExpressionUUID->"a26ba06f-9ed4-4e8d-8c50-fff738f708ad"], Cell[CellGroupData[{ Cell[26135, 549, 1426, 29, 70, "Input",ExpressionUUID->"b1f259e9-73e2-49ff-8199-173118d48675"], Cell[27564, 580, 1344, 24, 70, "Output",ExpressionUUID->"abf6b994-7609-4f81-8eb5-bb731f20b47f"] }, Open ]], Cell[28923, 607, 417, 5, 70, "Text",ExpressionUUID->"5c982efe-1fcd-456f-b595-8187887fb8bb"], Cell[CellGroupData[{ Cell[29365, 616, 1471, 30, 70, "Input",ExpressionUUID->"949ccc2f-fbcc-4300-8861-b1ca0fd63450"], Cell[30839, 648, 1037, 18, 70, "Output",ExpressionUUID->"483af63a-200e-4a7e-82de-e66caeea9913"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31925, 672, 226, 3, 70, "Subsection",ExpressionUUID->"9243130a-c92f-41ce-8da9-4b9eaf54179b"], Cell[32154, 677, 368, 10, 70, "Text",ExpressionUUID->"c6092173-758e-46f8-be00-b7232e28e399"], Cell[CellGroupData[{ Cell[32547, 691, 563, 12, 70, "Input",ExpressionUUID->"c4bf5afd-d0bc-4920-b1a0-92db1a0a5734"], Cell[33113, 705, 17506, 331, 70, "Output",ExpressionUUID->"fb13f6d9-f95f-4e7a-9dd7-ea28edb6f8e6"] }, Open ]], Cell[50634, 1039, 366, 10, 70, "Text",ExpressionUUID->"8d0ae9bb-b8af-43ad-a28c-0273e2858bd3"], Cell[CellGroupData[{ Cell[51025, 1053, 560, 12, 70, "Input",ExpressionUUID->"3f5d85bc-a837-47d9-bca1-e9662a3cb45a"], Cell[51588, 1067, 16928, 314, 70, "Output",ExpressionUUID->"361dcba7-028a-4bdc-bb4a-6ce1c2555669"] }, Open ]], Cell[68531, 1384, 416, 10, 70, "Text",ExpressionUUID->"1222b154-38b7-4cde-8543-137d9814fe0c"], Cell[CellGroupData[{ Cell[68972, 1398, 615, 12, 70, "Input",ExpressionUUID->"611b8777-21a0-4d22-93cc-b0031f488706"], Cell[69590, 1412, 17159, 318, 70, "Output",ExpressionUUID->"616fd6a0-0e4a-406b-988d-51d9e7ed5b6c"] }, Open ]], Cell[86764, 1733, 466, 11, 70, "Text",ExpressionUUID->"da380295-a6d4-4b07-b4b0-6ce254bce860"], Cell[CellGroupData[{ Cell[87255, 1748, 639, 13, 70, "Input",ExpressionUUID->"3c2cb222-a71c-4b70-8f64-9a442a3fc7e7"], Cell[87897, 1763, 17815, 336, 70, "Output",ExpressionUUID->"3c597ac5-fa76-424b-b637-07176d26aba8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[105761, 2105, 96, 1, 70, "Subsection",ExpressionUUID->"5637449b-f1cf-4a86-bbc2-92c11b736936"], Cell[105860, 2108, 240, 3, 70, "Text",ExpressionUUID->"ee360550-a6ba-47cd-a973-b0f1da5f0f34"], Cell[CellGroupData[{ Cell[106125, 2115, 1402, 26, 70, "Input",ExpressionUUID->"5c3b00fb-a6da-4747-bee3-5439713c332b"], Cell[107530, 2143, 36009, 831, 70, "Output",ExpressionUUID->"976633db-81f2-431a-afad-d1e49844bf93"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)