(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 51752, 1223] NotebookOptionsPosition[ 49976, 1177] NotebookOutlinePosition[ 50585, 1199] CellTagsIndexPosition[ 50542, 1196] WindowTitle->Examples for Water Boiling Points in Alps Sample Data WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell[CellGroupData[{ Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}, 3.6961795017714357`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], 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.274612, 0.618881, 0.810913], Opacity[1.]}], 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.648987, 0.648987, 0.648987], Opacity[1.]}], 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}}}]}}, 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[{ "\"Sample Data: Water Boiling Points in the Alps\"","\" \"", TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Data on boiling points of water in the Alps\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], 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.274612, 0.618881, 0.810913], Opacity[1.]}], 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.648987, 0.648987, 0.648987], Opacity[1.]}], 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}}}]}}, 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[{ "\"Sample Data: Water Boiling Points in the Alps\"","\" \"", TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Data on boiling points of water in the Alps\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Statistics\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Numerical Data\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"physics\"","\"statistics\"","\"ExampleData\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Documentation: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"https://datarepository.wolframcloud.com/\ resources/Water-Boiling-Points-in-Alps-Sample-Data\"\>", True-> StyleBox["\<\"https://datarepository.wolframcloud.com/\ resources/Water-Boiling-Points-in-Alps-Sample-Data\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], None}, ButtonNote-> "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Water-\ Boiling-Points-in-Alps-Sample-Data"], "Hyperlink"]& ], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{DataResource`Private`typesetstorage$$ = DataResource`Private`typesetstorageLocation, DataResource`Private`info$$}, DynamicBox[ToBoxes[ DataResource`Private`info$$ = DataResource`Private`resourceInfo[ "21beda42-258a-47da-9365-240bddb2dec0"]; If[ AssociationQ[DataResource`Private`info$$], DataResource`Private`typesetstorage$$[ Lookup[ DataResource`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"21beda42-258a-47da-9365-240bddb2dec0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{"\<\"Content\"\>", "\[Rule]", "11496"}], "\[RightAssociation]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"ColumnDescriptions\"","\"ColumnTypes\"", "\"Content\"","\"DataType\"","\"Dimensions\"", "\"ObservationCount\"","\"RawData\"","\"Source\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Sample Data: Water Boiling Points in the Alps", "UUID" -> "21beda42-258a-47da-9365-240bddb2dec0", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Data on boiling points of water in the Alps", "ContentSize" -> Association["Content" -> 11496], "ContentElements" -> { "ColumnDescriptions", "ColumnTypes", "Content", "DataType", "Dimensions", "ObservationCount", "RawData", "Source"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.684677291002089*^9, 3.696179502843388*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, 3.6961795043916407`*^9}], Cell[BoxData[ TemplateBox[{TagBox[ StyleBox[ TagBox[ GridBox[{{ ItemBox[ TagBox[ TooltipBox[ PaneBox[ StyleBox["\"BoilingPoint\"", FontColor -> GrayLevel[0.4]], ImageSize -> {{20, Full}, 15}], TemplateBox[{ TemplateBox[{ StyleBox["\"All\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"BoilingPoint\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], LabelStyle -> "TextStyling"], Annotation[#, Row[{ Row[{ Style["All", GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["BoilingPoint", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}, StripOnInput -> False], ItemBox[ TagBox[ TooltipBox[ PaneBox[ StyleBox["\"Pressure\"", FontColor -> GrayLevel[0.4]], ImageSize -> {{20, Full}, 15}], TemplateBox[{ TemplateBox[{ StyleBox["\"All\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"Pressure\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], LabelStyle -> "TextStyling"], Annotation[#, Row[{ Row[{ Style["All", GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["Pressure", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}, StripOnInput -> False]}, { PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"194.5`", "\"\[Degree]F\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["1", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"BoilingPoint\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["1"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["BoilingPoint", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[1, Key["BoilingPoint"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"20.79`", "\"in\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["1", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"Pressure\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["1"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["Pressure", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[1, Key["Pressure"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"194.3`", "\"\[Degree]F\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["2", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"BoilingPoint\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["2"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["BoilingPoint", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[2, Key["BoilingPoint"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"20.79`", "\"in\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["2", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"Pressure\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["2"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["Pressure", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[2, Key["Pressure"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"197.9`", "\"\[Degree]F\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["3", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"BoilingPoint\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["3"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["BoilingPoint", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[3, Key["BoilingPoint"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"22.4`", "\"in\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["3", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"Pressure\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["3"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["Pressure", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[3, Key["Pressure"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"198.4`", "\"\[Degree]F\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["4", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"BoilingPoint\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["4"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["BoilingPoint", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[4, Key["BoilingPoint"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"22.67`", "\"in\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["4", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"Pressure\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["4"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["Pressure", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[4, Key["Pressure"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"199.4`", "\"\[Degree]F\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["5", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"BoilingPoint\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["5"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["BoilingPoint", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[5, Key["BoilingPoint"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], PaneBox[ TagBox[ TagBox[ TooltipBox[ StyleBox[ RowBox[{"23.15`", "\"in\""}], FontColor -> RGBColor[{ Rational[33, 74], Rational[27, 74], Rational[117, 370]}]], TemplateBox[{ TemplateBox[{ StyleBox["5", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"], TemplateBox[{ StyleBox["\" \:203a \"", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628], StripOnInput -> False], StyleBox["\"Pressure\"", GrayLevel[0.6], StripOnInput -> False]}, "RowDefault"]}, "Row", DisplayFunction -> (RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}]& ), InterpretationFunction -> (RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Verdana\""}], ",", RowBox[{"FontSize", "\[Rule]", "9.`"}]}], "}"}]}]}], "]"}]& ), BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}]], Annotation[#, Row[{ Row[{ Style[ RawBoxes["5"], GrayLevel[0.6]]}], Row[{ Style[" \:203a ", RGBColor[ 0.6509803921568628, 0.6509803921568628, 0.6509803921568628]], Style["Pressure", GrayLevel[0.6]]}]}, BaseStyle -> {FontFamily -> "Verdana", FontSize -> 9.}], "Tooltip"]& ], Annotation[#, TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[843521139][ GeneralUtilities`Slice[5, Key["Pressure"]]], "Mouse"]& ], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { ItemBox[ TagBox[ TooltipBox[ "\"17 total \:203a \"", "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], BaseStyle -> {{ RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274], 8}}, Alignment -> {Center, Baseline}, Background -> GrayLevel[0.98], StripOnInput -> False], "\[SpanFromLeft]"}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, RowMinHeight -> 1.5, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], "Grid"], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False, StripOnInput -> False], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{3.684677291082946*^9, 3.696179505725589*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell[CellGroupData[{ Cell["Plot the data:", "Text", CellChangeTimes->{{3.683467455481806*^9, 3.6834674580332317`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6846773601410007`*^9, 3.6846773906354513`*^9}, 3.6961795072899942`*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{194.5, 20.79}, {194.3, 20.79}, {197.9, 22.4}, {198.4, 22.67}, {199.4, 23.15}, {199.9, 23.35}, {200.9, 23.89}, {201.1, 23.99}, {201.4, 24.02}, {201.3, 24.01}, {203.6, 25.14}, {204.6, 26.57}, {209.5, 28.49}, {208.6, 27.76}, {210.7, 29.04}, {211.9, 29.88}, {212.2, 30.06}}]}, {}}, {}, {}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"BoilingPoint\"", TraditionalForm], FormBox["\"Pressure\"", TraditionalForm]}, AxesOrigin->{194.02031250000005`, 20.3265}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{194.3, 212.2}, {20.79, 30.06}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.68467738784863*^9, 3.684677391481038*^9}, 3.696179507969997*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Examples for Water Boiling Points in Alps Sample Data", DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[647, 23, 36, 0, 70, "Subsection",ExpressionUUID->"c4a72d27-67db-450a-86fc-6f5af021abd6"], Cell[CellGroupData[{ Cell[708, 27, 215, 3, 70, "Text",ExpressionUUID->"10a83205-4e07-487e-8656-4a0713c29108"], Cell[CellGroupData[{ Cell[948, 34, 270, 4, 70, "Input",ExpressionUUID->"36347c0c-7dcf-476a-a33d-2e5e48aa3a73"], Cell[1221, 40, 18111, 402, 70, "Output",ExpressionUUID->"9dafb6e4-170e-4b5a-8b7e-70f779b030d1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19381, 448, 204, 3, 70, "Text",ExpressionUUID->"87444cd8-c261-4ba3-863f-4b625b689049"], Cell[CellGroupData[{ Cell[19610, 455, 216, 4, 70, "Input",ExpressionUUID->"3eba41ed-ae83-47f6-a9f4-e17bf620cb43"], Cell[19829, 461, 27718, 644, 70, "Output",ExpressionUUID->"6b494986-4595-463e-b27d-d059c9e5e20a"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47608, 1112, 35, 0, 70, "Subsection",ExpressionUUID->"8743c6e6-8b76-49d3-aa7f-5609b34b182f"], Cell[CellGroupData[{ Cell[47668, 1116, 98, 1, 70, "Text",ExpressionUUID->"a430020e-74a1-4d71-9fb4-82bf2d9952eb"], Cell[CellGroupData[{ Cell[47791, 1121, 329, 8, 70, "Input",ExpressionUUID->"8cb38b83-0b5a-4ea8-84c0-9278dbdcf75e"], Cell[48123, 1131, 1813, 41, 70, "Output",ExpressionUUID->"4c269b10-f5d4-4591-a1bd-42db06bf4a87"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)