(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 39697, 1147] NotebookOptionsPosition[ 38386, 1111] NotebookOutlinePosition[ 38958, 1134] CellTagsIndexPosition[ 38915, 1131] WindowTitle->Examples for The Food of the Gods WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the text:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.886239193615663*^9, 3.886239199376745*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.683393441821712*^9, {3.702915604588338*^9, 3.7029156400632973`*^9}}], Cell[BoxData["\<\"The place impressed Bensington as being eminently adapted \ to the\\nrequirements of scientific research. He walked over the \ premises\\nsketching out coops and runs with a sweeping arm, and he found the\ \\nkitchen capable of accommodating a series of incubators and \ foster\\nmothers with the very minimum of alteration. He took the place there \ and\\nthen; on his way back to London he stopped at Dunton Green and \ closed\\nwith an eligible couple that had answered his advertisements, and \ that\\nsame evening he succeeded in isolating a sufficient quantity \ of\\nHerakleophorbia I. to more than justify these engagements.\"\>"], \ "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7029156206170673`*^9, 3.702915640468697*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Show the distribution of sentence lengths:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}, {3.6833726608424654`*^9, 3.683372662777466*^9}, { 3.6833733125197973`*^9, 3.6833733165275984`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sentences", "=", RowBox[{"TextSentences", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"Length", "/@", RowBox[{"(", RowBox[{"TextWords", "/@", "sentences"}], ")"}]}], ")"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6830333795804577`*^9, 3.683033425254339*^9}, { 3.6830334646198807`*^9, 3.6830335879807243`*^9}, 3.683035622565227*^9, 3.683304174499114*^9, 3.6833082857507887`*^9, 3.683393496800712*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {2., 137}, "RoundingRadius" -> 0]}, ImageSizeCache->{{26.254403522818254`, 29.822518392072148`}, { 20.487523174381835`, 91.93456273819314}}], StatusArea[#, 137]& , TagBoxNote->"137"], StyleBox["137", {}, StripOnInput -> False]], Annotation[#, Style[137, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 235}, "RoundingRadius" -> 0]}, ImageSizeCache->{{29.322518392072148`, 32.890633261326045`}, {-30.262913885862744`, 91.93456273819314}}], StatusArea[#, 235]& , TagBoxNote->"235"], StyleBox["235", {}, StripOnInput -> False]], Annotation[#, Style[235, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {6., 376}, "RoundingRadius" -> 0]}, ImageSizeCache->{{32.390633261326045`, 35.958748130579934`}, {-103.28139986029626`, 91.93456273819314}}], StatusArea[#, 376]& , TagBoxNote->"376"], StyleBox["376", {}, StripOnInput -> False]], Annotation[#, Style[376, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {8., 368}, "RoundingRadius" -> 0]}, ImageSizeCache->{{35.458748130579934`, 39.02686299983383}, {-99.1385070390518, 91.93456273819314}}], StatusArea[#, 368]& , TagBoxNote->"368"], StyleBox["368", {}, StripOnInput -> False]], Annotation[#, Style[368, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {10., 345}, "RoundingRadius" -> 0]}, ImageSizeCache->{{38.52686299983383, 42.09497786908773}, {-87.22769017797401, 91.93456273819314}}], StatusArea[#, 345]& , TagBoxNote->"345"], StyleBox["345", {}, StripOnInput -> False]], Annotation[#, Style[345, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {12., 287}, "RoundingRadius" -> 0]}, ImageSizeCache->{{41.59497786908773, 45.16309273834162}, {-57.19171722395171, 91.93456273819314}}], StatusArea[#, 287]& , TagBoxNote->"287"], StyleBox["287", {}, StripOnInput -> False]], Annotation[#, Style[287, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {14., 261}, "RoundingRadius" -> 0]}, ImageSizeCache->{{44.66309273834162, 48.231207607595515`}, {-43.72731555490722, 91.93456273819314}}], StatusArea[#, 261]& , TagBoxNote->"261"], StyleBox["261", {}, StripOnInput -> False]], Annotation[#, Style[261, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {16., 250}, "RoundingRadius" -> 0]}, ImageSizeCache->{{47.731207607595515`, 51.29932247684941}, {-38.03083792569609, 91.93456273819314}}], StatusArea[#, 250]& , TagBoxNote->"250"], StyleBox["250", {}, StripOnInput -> False]], Annotation[#, Style[250, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 203}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.79932247684941, 54.3674373461033}, {-13.691342600884923`, 91.93456273819314}}], StatusArea[#, 203]& , TagBoxNote->"203"], StyleBox["203", {}, StripOnInput -> False]], Annotation[#, Style[203, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 176}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.8674373461033, 57.43555221535719}, { 0.29092067081512596`, 91.93456273819314}}], 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[{20., 0}, {22., 174}, "RoundingRadius" -> 0]}, ImageSizeCache->{{56.93555221535719, 60.503667084611095`}, { 1.3266438761262265`, 91.93456273819314}}], StatusArea[#, 174]& , TagBoxNote->"174"], StyleBox["174", {}, StripOnInput -> False]], Annotation[#, Style[174, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 144}, "RoundingRadius" -> 0]}, ImageSizeCache->{{60.003667084611095`, 63.571781953864985`}, { 16.862491955792933`, 91.93456273819314}}], StatusArea[#, 144]& , TagBoxNote->"144"], StyleBox["144", {}, StripOnInput -> False]], Annotation[#, Style[144, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 126}, "RoundingRadius" -> 0]}, ImageSizeCache->{{63.071781953864985`, 66.63989682311887}, { 26.184000803592966`, 91.93456273819314}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 123}, "RoundingRadius" -> 0]}, ImageSizeCache->{{66.13989682311887, 69.70801169237278}, { 27.737585611559638`, 91.93456273819314}}], StatusArea[#, 123]& , TagBoxNote->"123"], StyleBox["123", {}, StripOnInput -> False]], Annotation[#, Style[123, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{28., 0}, {30., 99}, "RoundingRadius" -> 0]}, ImageSizeCache->{{69.20801169237278, 72.77612656162667}, { 40.166264075293, 91.93456273819314}}], StatusArea[#, 99]& , TagBoxNote->"99"], StyleBox["99", {}, StripOnInput -> False]], Annotation[#, Style[99, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {32., 90}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.27612656162667, 75.84424143088056}, { 44.82701849919302, 91.93456273819314}}], StatusArea[#, 90]& , TagBoxNote->"90"], StyleBox["90", {}, StripOnInput -> False]], Annotation[#, Style[90, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0}, {34., 89}, "RoundingRadius" -> 0]}, ImageSizeCache->{{75.34424143088056, 78.91235630013446}, { 45.344880101848574`, 91.93456273819314}}], StatusArea[#, 89]& , TagBoxNote->"89"], StyleBox["89", {}, StripOnInput -> False]], Annotation[#, Style[89, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{34., 0}, {36., 83}, "RoundingRadius" -> 0]}, ImageSizeCache->{{78.41235630013446, 81.98047116938835}, { 48.45204971778191, 91.93456273819314}}], StatusArea[#, 83]& , TagBoxNote->"83"], StyleBox["83", {}, StripOnInput -> False]], Annotation[#, Style[83, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{36., 0}, {38., 76}, "RoundingRadius" -> 0]}, ImageSizeCache->{{81.48047116938835, 85.04858603864224}, { 52.07708093637081, 91.93456273819314}}], StatusArea[#, 76]& , TagBoxNote->"76"], StyleBox["76", {}, StripOnInput -> False]], Annotation[#, Style[76, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{38., 0}, {40., 58}, "RoundingRadius" -> 0]}, ImageSizeCache->{{84.54858603864224, 88.11670090789613}, { 61.39858978417084, 91.93456273819314}}], StatusArea[#, 58]& , TagBoxNote->"58"], StyleBox["58", {}, StripOnInput -> False]], Annotation[#, Style[58, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {42., 56}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.61670090789613, 91.18481577715004}, { 62.43431298948195, 91.93456273819314}}], 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[{42., 0}, {44., 41}, "RoundingRadius" -> 0]}, ImageSizeCache->{{90.68481577715004, 94.25293064640393}, { 70.2022370293153, 91.93456273819314}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", {}, StripOnInput -> False]], Annotation[#, Style[41, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{44., 0}, {46., 41}, "RoundingRadius" -> 0]}, ImageSizeCache->{{93.75293064640393, 97.32104551565781}, { 70.2022370293153, 91.93456273819314}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", {}, StripOnInput -> False]], Annotation[#, Style[41, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{46., 0}, {48., 37}, "RoundingRadius" -> 0]}, ImageSizeCache->{{96.82104551565781, 100.38916038491172`}, { 72.27368343993753, 91.93456273819314}}], StatusArea[#, 37]& , TagBoxNote->"37"], StyleBox["37", {}, StripOnInput -> False]], Annotation[#, Style[37, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{48., 0}, {50., 35}, "RoundingRadius" -> 0]}, ImageSizeCache->{{99.88916038491172, 103.45727525416561`}, { 73.30940664524864, 91.93456273819314}}], StatusArea[#, 35]& , TagBoxNote->"35"], StyleBox["35", {}, StripOnInput -> False]], Annotation[#, Style[35, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {52., 27}, "RoundingRadius" -> 0]}, ImageSizeCache->{{102.95727525416561`, 106.5253901234195}, { 77.4522994664931, 91.93456273819314}}], 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[{52., 0}, {54., 20}, "RoundingRadius" -> 0]}, ImageSizeCache->{{106.0253901234195, 109.59350499267339`}, { 81.077330685082, 91.93456273819314}}], StatusArea[#, 20]& , TagBoxNote->"20"], StyleBox["20", {}, StripOnInput -> False]], Annotation[#, Style[20, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{54., 0}, {56., 21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{109.09350499267339`, 112.66161986192729`}, { 80.55946908242645, 91.93456273819314}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", {}, StripOnInput -> False]], Annotation[#, Style[21, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{56., 0}, {58., 22}, "RoundingRadius" -> 0]}, ImageSizeCache->{{112.16161986192729`, 115.72973473118118`}, { 80.04160747977089, 91.93456273819314}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", {}, StripOnInput -> False]], Annotation[#, Style[22, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{58., 0}, {60., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{115.22973473118118`, 118.79784960043507`}, { 86.25594671163756, 91.93456273819314}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{60., 0}, {62., 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{118.29784960043507`, 121.86596446968898`}, { 86.77380831429312, 91.93456273819314}}], 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[{62., 0}, {64., 9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{121.36596446968898`, 124.93407933894287`}, { 86.77380831429312, 91.93456273819314}}], 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[{64., 0}, {66., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{124.43407933894287`, 128.00219420819676`}, { 88.32739312225979, 91.93456273819314}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{66., 0}, {68., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.50219420819676`, 131.07030907745067`}, { 87.80953151960423, 91.93456273819314}}], 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[{68., 0}, {70., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{130.57030907745067`, 134.13842394670456`}, { 88.32739312225979, 91.93456273819314}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {72., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{133.63842394670456`, 137.20653881595845`}, { 89.88097793022646, 91.93456273819314}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{72., 0}, {74., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{136.70653881595845`, 140.27465368521234`}, { 87.29166991694868, 91.93456273819314}}], 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[{74., 0}, {76., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{139.77465368521234`, 143.34276855446623`}, { 89.88097793022646, 91.93456273819314}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{76., 0}, {78., 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{142.84276855446623`, 146.41088342372012`}, { 88.32739312225979, 91.93456273819314}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{78., 0}, {80., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{145.91088342372012`, 149.478998292974}, { 90.91670113553758, 91.93456273819314}}], 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[{80., 0}, {82., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{148.978998292974, 152.54711316222793`}, { 90.39883953288202, 91.93456273819314}}], 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[{84., 0}, {86., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{155.11522803148182`, 158.6833429007357}, { 90.91670113553758, 91.93456273819314}}], 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[{86., 0}, {88., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{158.1833429007357, 161.7514577699896}, { 88.84525472491535, 91.93456273819314}}], 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[{90., 0}, {92., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.3195726392435, 167.88768750849738`}, { 90.91670113553758, 91.93456273819314}}], 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[{94., 0}, {96., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{170.45580237775127`, 174.0239172470052}, { 90.91670113553758, 91.93456273819314}}], 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[{96., 0}, {98., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{173.5239172470052, 177.09203211625908`}, { 90.91670113553758, 91.93456273819314}}], 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[{98., 0}, {100., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{176.59203211625908`, 180.16014698551297`}, { 89.3631163275709, 91.93456273819314}}], 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[{104., 0}, {106., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{185.79637672402075`, 189.36449159327464`}, { 90.39883953288202, 91.93456273819314}}], 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[{108., 0}, {110., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{191.93260646252853`, 195.50072133178244`}, { 90.91670113553758, 91.93456273819314}}], 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[{110., 0}, {112., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{195.00072133178244`, 198.56883620103633`}, { 90.91670113553758, 91.93456273819314}}], 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[{112., 0}, {114., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{198.06883620103633`, 201.63695107029022`}, { 90.39883953288202, 91.93456273819314}}], 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[{114., 0}, {116., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.13695107029022`, 204.7050659395441}, { 90.91670113553758, 91.93456273819314}}], 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[{118., 0}, {120., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{207.273180808798, 210.8412956780519}, { 90.91670113553758, 91.93456273819314}}], 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[{120., 0}, {122., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{210.3412956780519, 213.9094105473058}, { 90.91670113553758, 91.93456273819314}}], 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[{210., 0}, {212., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{348.4064647944772, 351.97457966373105`}, { 90.91670113553758, 91.93456273819314}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-4.24, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 212.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.683393503578712*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for The Food of the Gods", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 36, 0, 70, "Subsection",ExpressionUUID->"036dce60-4cee-467c-a060-2925b628b63c"], Cell[666, 25, 254, 3, 70, "Text",ExpressionUUID->"3e9f8f8a-0a00-450e-9180-79c173b1973b"], Cell[CellGroupData[{ Cell[945, 32, 321, 8, 70, "Input",ExpressionUUID->"d573bf0e-8fd0-4f04-aa6e-0adbc930a01c"], Cell[1269, 42, 984, 14, 70, "Output",ExpressionUUID->"e3599702-a982-4a27-aa09-88453ac099da"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2302, 62, 35, 0, 70, "Subsection",ExpressionUUID->"bfe0f583-c00f-407c-8d56-d1d71d003e9b"], Cell[2340, 64, 330, 4, 70, "Text",ExpressionUUID->"04a3e7f2-efd8-49c6-82ab-0afcea20230f"], Cell[CellGroupData[{ Cell[2695, 72, 734, 17, 70, "Input",ExpressionUUID->"bc4fe8b3-b4be-44d3-b55b-ca3140b21852"], Cell[3432, 91, 34926, 1016, 70, "Output",ExpressionUUID->"00d29df8-471b-48a5-ab8a-f54a84593cfc"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)