(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 8.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 835, 17] NotebookDataLength[ 31718, 789] NotebookOptionsPosition[ 29461, 736] NotebookOutlinePosition[ 29900, 753] CellTagsIndexPosition[ 29857, 750] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["The Logistic Function - SARS", "Title", CellChangeTimes->{{3.5468699953970203`*^9, 3.546870005859618*^9}, { 3.7814576872695446`*^9, 3.7814576881705074`*^9}}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"7dcfd6a2-3d26-4887-8bd8-ffd30d82854c"], Cell["\<\ This type of functions describes growth limited by resources, population, or \ other factors. Examples include the spread of infections, population, jokes \ and rumors.\ \>", "Section", CellChangeTimes->{{3.5468700115649447`*^9, 3.546870110057578*^9}, { 3.5468714702473764`*^9, 3.5468715065644536`*^9}}, FontSize->18, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"ae0d1c3f-346c-4c8e-9dbc-ff278b7c94b3"], Cell[CellGroupData[{ Cell[TextData[{ "Example: In the spring of 2003, SARS (Severe Acute Respiratory Syndrome) \ spread rapidly in several Asian countries and Canada. The table below gives \ the total number, ", StyleBox["P", FontSlant->"Italic"], ", of SARS cases reported in Hong Kong (www.who.int/csr/country/en) by day ", StyleBox["t", FontSlant->"Italic"], ", where ", StyleBox["t", FontSlant->"Italic"], " = 0 is March 17, 2003. " }], "Section", CellChangeTimes->{{3.5468701654487467`*^9, 3.5468702761410775`*^9}, { 3.5468703132782016`*^9, 3.5468704146499996`*^9}, 3.5468712535769835`*^9, { 3.546871513299839*^9, 3.5468715730942593`*^9}, {3.546875535034869*^9, 3.5468755395651283`*^9}, {3.5468763485684004`*^9, 3.5468764118830223`*^9}, 3.5468764895994673`*^9}, FontSize->18,ExpressionUUID->"bdb9fa31-f771-46ce-9176-2e26cce41ff9"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"data", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "95"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"5", ",", " ", "222"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"12", ",", " ", "470"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"19", ",", " ", "800"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"26", ",", " ", "1108"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"33", ",", " ", "1358"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"40", ",", " ", "1527"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"47", ",", " ", "1621"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"54", ",", " ", "1674"}], "}"}], " ", ",", RowBox[{"{", RowBox[{"61", ",", " ", "1710"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"68", ",", " ", "1724"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"75", ",", " ", "1739"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"81", ",", " ", "1750"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"87", ",", " ", "1755"}], "}"}]}], "}"}]}], FontFamily->"Arial", FontSize->20]], "Input", CellChangeTimes->{{3.54687353440444*^9, 3.546873547769204*^9}, { 3.5468755973554335`*^9, 3.546875602140707*^9}, 3.7814574232869*^9, 3.781457470667492*^9}, FontFamily->"Courier New", FontWeight->"Plain",ExpressionUUID->"41a6bc17-b0a6-413b-99eb-94832ab30dac"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "95"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "222"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "470"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "800"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "1108"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "1358"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "1527"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "1621"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "1674"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "1710"}], "}"}], ",", RowBox[{"{", RowBox[{"68", ",", "1724"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "1739"}], "}"}], ",", RowBox[{"{", RowBox[{"81", ",", "1750"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "1755"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5468735493012915`*^9, 3.546874071777176*^9, 3.5468741642914667`*^9},ExpressionUUID->"8f9676f6-0659-4ccb-97bf-\ 820dd06c459c"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"data", ",", " ", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.546875606474955*^9, 3.546875610858206*^9}, { 3.546875678276062*^9, 3.5468757689002457`*^9}, {3.5468759719338584`*^9, 3.5468760094520044`*^9}, {3.546876054520582*^9, 3.5468760781199317`*^9}, { 3.546876200054906*^9, 3.54687620028992*^9}}, FontFamily->"Arial", FontSize->20, FontWeight->"Plain",ExpressionUUID->"f2b27ba3-49fc-4a1b-a117-8cb16a5cd319"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"Day\"\>", HoldForm], TagBox["\<\"No. of Cases\"\>", HoldForm]}, {"0", "95"}, {"5", "222"}, {"12", "470"}, {"19", "800"}, {"26", "1108"}, {"33", "1358"}, {"40", "1527"}, {"47", "1621"}, {"54", "1674"}, {"61", "1710"}, {"68", "1724"}, {"75", "1739"}, {"81", "1750"}, {"87", "1755"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Day", "No. of Cases"}}]]]], "Output", CellChangeTimes->{ 3.546875612002271*^9, {3.546875722282579*^9, 3.546875769625287*^9}, 3.5468759939791193`*^9, 3.546876079590016*^9, 3.546876201588994*^9}, FontSize->16,ExpressionUUID->"bc923292-2f10-4381-8df5-c58a5b308bd5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"data", ",", " ", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[FilledCircle]", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "}"}]}], " ", ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.546872297896715*^9, 3.54687243626563*^9}, { 3.546872505349581*^9, 3.546872655587174*^9}, {3.5468727043409624`*^9, 3.5468727350557194`*^9}, {3.546872904728424*^9, 3.546872981330806*^9}, { 3.5468730203860397`*^9, 3.546873044546421*^9}, {3.5468731625071683`*^9, 3.546873179971167*^9}, {3.5468735571977434`*^9, 3.546873557562764*^9}, { 3.546874927725133*^9, 3.546874955284709*^9}}, FontSize->16,ExpressionUUID->"90a0f629-c064-4066-939b-f6c400cea507"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[{{0., 95.}, {5., 222.}, {12., 470.}, {19., 800.}, {26., 1108.}, {33., 1358.}, {40., 1527.}, {47., 1621.}, {54., 1674.}, {61., 1710.}, {68., 1724.}, {75., 1739.}, {81., 1750.}, {87., 1755.}}, {{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14}]}}, { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 1], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 2], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 3], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 4], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 5], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 6], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 7], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 8], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 9], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 10], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 11], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 12], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 13], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 14]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Number of Days from March 17, 2003\"", TraditionalForm], FormBox["\"Total Number of SARS cases\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->{593.3333395145464, Automatic}, PlotRange->{{0., 87.}, {0., 1755.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5468731811432343`*^9, 3.5468735590758505`*^9, 3.5468749352345624`*^9}, FontSize->16,ExpressionUUID->"94dd7879-4de1-45a4-ae41-0413d30e782b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "The logistic function ", StyleBox["P", FontSlant->"Italic"], "(", StyleBox["t", FontSlant->"Italic"], ") = ", Cell[BoxData[ FormBox[ FractionBox["1760", RowBox[{"1", "+", RowBox[{"17.5", SuperscriptBox["e", RowBox[{ RowBox[{"-", "0.13"}], "t"}]]}]}]], TraditionalForm]],ExpressionUUID-> "89f50bf2-a97d-44b2-b047-9315036b95b3"], " best describes the data. " }], "Section", CellChangeTimes->{{3.5468764588167067`*^9, 3.5468764814920034`*^9}}, FontSize->18,ExpressionUUID->"68350a3e-b3c0-4d62-8b3f-cc303a088fda"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"P", "[", "t_", "]"}], ":=", RowBox[{"1760", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"17.5", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.13"}], "t"}]]}]}], ")"}]}]}], ";", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"P", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", " ", "Thick"}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"data", ",", " ", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[FilledCircle]", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "}"}]}]}], " ", "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.54686973856933*^9, 3.5468697838949227`*^9}, { 3.5468711783966837`*^9, 3.54687119074339*^9}, {3.5468747769545093`*^9, 3.5468747998808208`*^9}, {3.5468748355768623`*^9, 3.546874853754902*^9}, { 3.546874977971007*^9, 3.5468749913407717`*^9}, {3.5468751192160854`*^9, 3.546875133678913*^9}, {3.5468751863859277`*^9, 3.5468752340666547`*^9}, 3.5468752678705883`*^9, {3.5468753030806017`*^9, 3.546875362707012*^9}, { 3.546875494732564*^9, 3.546875520804055*^9}}, FontSize->16,ExpressionUUID->"5cb4b5bc-42d9-4a37-b456-3d6e998ea4ba"], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV13c4Vu8fB3CKUqlvRCSF0qAy4leS8rY3z34eK0p2tsqMJiqhZDxHNChF 2cqOhJSG0tBCpaE0yMr43f461+s693nf5/5cn3OfcxR2+TFcZwgICOQLCghM H1ckTFzKXF6//V3VWMDlFi5uiijJ+Xhk6T5d7Mm/8p6L+pAb2Ws9CnQD50lW 1Qxx0aQW4D7Lo063OaV8jdIqHlpOtpv+dX+kG5D29eDkIR7uaR+u+O7+Xtcj OXqgSN8WrUmvA764/9TVmj9Dr6TdDuY1s6173ad0NUv0Uga1dkB9atffxb+m dEt9Q4vX8nbgpLzTw5U6AlBx6Dsftn8HgndV7mU1CkBd8CYjpHwHDHv9G8ue CUJunXnW2/85oefH250hf2dCIamAtnGZM+QnbmZMbBLB3Xli/45u2Im2+Zvm CDkuhPTAkxaRaBe0W4inPYxYiHLeMkOf0y54Gde/Oj1jIUr7Wa7d2S74KHzF UOXNQuidHagfueeC8QmpaJ69GMY7+yc/SuyGcv/oUL6tOH4FBjpXX9+N2Ic1 H9kcCWjvVI283ucK/QSj21dspBHO2/ztPt8D0ealV9t9pSF3udVtuNADtcIr z0zES8Ncspql2ewB7QgBN+YDaahasK/2DHhAw7Nq3pTpEnTveakpbu0JRQN1 LkdfBpHHljY2Cnth1rBsv9D/ZNEZtYdTfsgbrqpj89Xny0PAucLsRqkvLF/H 5Egvl0dbXEF6/RNfaMZIbhNQlce/iMnfff2+EHqvtucRTR4945E9R5X8cPGU e6tPsjxyvsk9fpTlh/c/nh27tlQBQ2HP5+8y9YdtfsHUSuUVGNDxqNukHwAr Jdffi00UoaU8km9gF4TiZ5F772mtxePH4WMTLfuxVVy5QChqPVYfl/Pw2REJ 93+nz+Xw1ODn8W806cFB+DV91iiw2ggttdjqofEjOG43a9XEHk2orom9Fnwt Fi7N4W7qHptg2Pr+yt6NJ1E/ewnd21YLhll1E6qXEqAuFp3yNVgb/6nmVB/L SILzwLb11nt0ULdvkhutfAYXMu/KDsdvh+7ysaiXN5JRckr7dTsD8L24beHC f2exi1ogXMkBNF68rIudOgvx3B6VC3aA7KvQm5MzU+Bff/yQ3y5gpXZiVI9o CtYPdiqJBgLzh36HxC1PQbZteIhREmAi8N6ErZeCZMVqyVuPgPY89cTeIykI rtxGO2ephw/OXf9EhFJRZtc84xVNDx9DXn9ZK5KKoTFamQRbD4LzgpqMRFMR unW3zElHPZSYreXuk0jFgerjH8N89RAuLPi1WDEVMbUvQniJeuDfDc7lG6aC 3xBwYdEzPURavu1YdygVda05f+Ls9XHw6eSCs4OpKJZ+HBDppA++jNSHuuFU ZLuN/fJ30Ye2vpzVl7FUHJ9h85PrrY97X1w+qwumgaU90rcqXB9ZWwqYufPT 8O2q+ad6vj4iaFHCK1enQSLu54vRV/qwrb/SxGWnwdNkS40nzwDNRs+OClxP Q//aJXeLHAxQKfbe90lBGgLnjj4YdTZAbuzNzqziNES03XoT52kAkaFFev+7 lYZEptb41TADaEQ5BOvfSUO50+at3zIMMBgl2vH5ZRpmhPyvwqvbAB8vGMZ4 zkhHRq56mbeXIfp5FYsvWKej5ZVLS5avIZozC/Ke0dIxODfl9dNAQ+isj9w6 i5kOC58xQZ1wQ3CeHKS7cNMxpn7HWvSkIRLf2EYLO6fDtor1Jf+6If5mBKv3 +adj8cP9S/t/GSKNOvCfcVI6kgZqDvrvN8ISX6uauAfp8G1P3OkQbgTm77sx Sg/TYVnkomcaZYTLhze/b36Ujll+cwTlY4ywNNJ7i8DTdER8Y0U/SjHCTKPG CqdX6XDr7jugUm4EB0vpd52f0qHzaEnE90EjaFxp0743kY4lN77bvxwxwrbc 9GqdqXQMnazb2jhuhIQ7WT9uCPBRZO76jxIyhk9x9M6EmXysbioMs5Awxjzx o9cxhw+xGpPQaxrGOJRkV+0qwUfvtb37PAKNcUvbpPm2Eh+cZZPvcvcZQzHl 6oy16/i4m3DM5GuYMS5fk34Zv56P7OBUaa/DxkgqXcBhq/Kxa3tFpXeyMY7t uH/7qSYf756MT/qWGyP0dtyuBF0+OkYOx+wdM0bk8zOb5rL4MPQW/VU2aYz7 KxbONWHzUfo2mTc0wwT+V6+fO8Th43RDjtL+eSbIbemcM8Tjg3ay+X6IrAlS VMslHzry8UBu3sKI7SbYKHdlyMCdj0bj02mHDplAIXXuKetQPj65VbWFHTOB 1aK34swwPmbFfJwRdNwEp1L1szjhfJg2b/JxOW2CmZPK7XaRJM/ktZ7hRRPU qyy4xT3Ix1NTxT7hBhMceSqlqxjHR495+bY4QVPMukEfmJ/Gx0zv94EHhU1R 5Cok9JdY8YRIbugcUzD/Wm96nc6H2307cS8xU/h73Z2RQ/HxzWKq11zBFDMt H9BUsvj4Y2maKKpnipgykT3Sl/kQtOnsSYg2hatS2wubEj5aatkrg4+YYl7N ZLx0KR+JKk9ceLGm4JzacrSLWH5By0f5RFMccAja4lvOB9rKeouyTBF5Yt/9 6Ao+oi2Svj2tNcWv76JrD9fxIWBq+kdqwhQP9gxvFbxP8m/e2TguYIYn+8KZ JcSJa3SDuoTMwBWwu737AcmfvWkwV9QMipKJGXfbSH7TyqEtsmbwUc/1i3pM 8g2nRu23muGauLbwsw6Sr1cueD7UDJvvfRsT6uLDzvBz68tIM/AcG7cXEpea SCeLHTJD9P2oR3bdfHhYh60+fNwMhk27O6/38PHEfruFG2WGr9m4avGJj4v7 mpLX15jhzbs5jW7fSL/kP19TIWCOaJmzyXKDfGQWzP79W8gcDifsGsqIR4q1 KpXnmGOpkzzD4i8f+RV8ywwxc7yoVOIHD/Eh2bwjIGqFOT5bhr+tGyH93t1b aWRojjX8gxVbJviIlRq2ao8xh4Iq7UetMIXklpYPDSfM8bX0Ye2WWRSyQvmh JQnm8IuUkColLn+9LSc51RxVeQ2OV2ZT+JR1ZJxzxRyGZhtosXMo6K8Vz3vd ZA6ui/h6zfkUxrU2iHwStkDhotKGTRIURL5NnuuYYwE9urDRJeJF1GONpvkW iKffs/9PkoLyRJDTFUkL2C81Nu0ltq2vLPdcZYHtOsZrE6TI/Gamrv2GFggb euzQJkPB386lYfiwBTbUa5lNylNYkPWtSyfWAm71OcvdFCjkfwiYOnjSAmol CkfaiD/vidYRPWuBq4ZLBakVFHZEnSuXv2yB1pdtj9QUKVhmv7hm1mKBKOdo RdM1FNb2W5yhRC1RoVBQvnYDhaaNT4u6FlpiUu62x2Hi3fvtHq+StERYedGt t8RZAp7zC5dZYuaVZxpJKhQWLzoW06hiCc5T1sUBVQpCWrfDf9AsIZjTcuvy RgrdBzV36561BEvTLLxlM4XVixec8k+3RK222pbFWhS8rn2+eeGcJab+6Ge7 EA+28+cJXbbEmlrDwxPEIoqCJS3llvjeKeW7QZuCSlObIOOlJRwOPMcBHQph c92zdi+1wkqjKOleUKjLxL2zclYwMvkiq6xH7kdDZqBppRUsL+e+9CGOt28z VlpvhZ0TTvsHic/na/T/0LFCwLs+20l9Cs3WAtv277DCI7+UQSEjChJn0jvj LlhBYnQ49L0phbkdi54E5lihdyBvZLEZBQGpU832V60Q5PFH15r4B/9Q6YYi K2wPWahUTdx00fvUk9tW0PwX6n3WnEJI8Tb9JV1WiLK98H6bJYW3T7qv5i63 Rvr3kZ/uNhSeLXI4n7TCGo67bvWmEbeyn6eErbZG2L2Q/HvE5a9aD1uqWGNV Zk2OMo1CYneJ469t1pC7epb1jVj/91ExLUdrRNa8fuDMoHB5oXJoM2UNtedh nuvYpH69tiNC562R1Oy53Y74ZlXcfv1sa1RZBXXFEre4fd1bk2+NNM/Ck5+I v1XnBpbUWCPuYu2JDA6FDZ5r9mS9t8b3i48ZgjwKpfWKTvtX2uDfplLfK3YU dFJZ70rX2OBZCmX5mPjuniOOf9bZgGc6e3KE+LnUR3sfTRukzV33xsyewrDP JZ6LkQ1k/j47/pVYW2YFw8bdBpcepXTKO1KoD5QzWpNng9q/sw76O1EY+/sz UbbABqOxea1JxJqht9+IldjAgOH/p5g4N2pn8HilDR5N9bwZJE48eenSk1Yb BNyUV9jvTMH58poZEd9sYCyodmTvTgpT31OdvkjQIL0kJtXOhUKGSrTwh8U0 rJfv+rifWMvfI++tNA3Fy50kzhIHDmgNt8vSyH5sIvOIuHf01akaRRqwY/Zd vd0UHs6SrT2tScO+r/MKFVwpZMqfl93GosF6c0z2Azfy/B5Xb9nAoSElRvLH J+KogYag5Twadik7yk4ROzd9ap2yp6E1N0JV3Z3Cij3rQhtcaPAaKVVOJr58 s7zDJIgGV5mo42wPCjes204xTtPw6YxBSpMnheW3dmgbJNOgc7/l4xviBIVf nzRSaNhKG5cdIPYfFN8myafh4q8mczkvChv5vL4XF2g4FcfI3Edc/umDiWMR ma9MR0vBm0JNxJiAx2MaNra9bXXbQ2GooPfXoXYatsc5KkYQq31o7zr3jIZr n/PckoizzfJuP31JQ/hV6ctVxMcXO0TrdtPwTeer+H8+FDiFNVOL/9DwXbWl ooj454foybuL6DDqNe7p9SX7kZRPf5ckHdfvqxwZJd5lbvvunxQdlRYdYqJ+ pH8K1WvVZekIySv7pUZcHdkTeU6RjgWVK+tCiWOlDCeC/0fHi273otn+FBQs Zo+v5NLR2BIXIRlA+qXDoF3Glg6vrdW5isTGTtG5YvZ0/J6IuatB7BU0ypra QUfBFaUndOJSqu96pxsdo3yjjfHT478/ckraR4fvXBUlwUAyPj7tzuRZOgbd l9PfEUdIdaT/TaVjm+SB633Epy6I+X9Pp2OPnOX4CHFJ2XHZznN0qK3xClgU RN4fbyP2luXQYSa6rsqEOEFl55o9ZXTEfQ1/eZ249JHSiVfP6OiIjD7rH0z6 eWV9zthzOo40vWNHEnvv591e+oqO26obRY4Tr5CL+ev4lo7asb/6l4gTfD86 9XyiI+xrhngHsdf8LM2+ITrqCuLXbNpLQd5C4t24NAP63M74fuLxzLyRZUsZ 6BiIvDpK/OKP/iLdZQy0Fn28JbSPrIcfYHpQgYFhM/USGeJ/Xx8WCyszkFm/ VcqY+HlsXMyCrQwcXhufyyc+2TSpJu/IQE3lmOnW/RQQ0Ku+zImBYCtDhiHx 4NKHG2V2MlD3DgwrYoeAc5oSrgy8WBW6yYl4g6yOlogPA/EGPxMPET8MCNX9 FcFAznqZlGbihcsGrW5nMNDJb5C3CKHQ2PzauiaTgauNmuJM4pDAOzaV5xmI Y4X+syPuaj5NL80m691ClXkRFwWqs3PzGfisve5eHDGjxdchsZoBu6NXg5uI zwR99XJ+wwDd+5WEdigFGeOwAOY7BuzbjH6A+KL0vBDjLga8b7fUmhAX16w/ uv4jsaqKFZv48Wz/rJE+BhiHtaT9iRdkDD1N/McAa6auTzZxbOPMbfUyTAQ/ ZeiJhJH1pCYblMoyoRN70mwBcarnKvMry5lYlnfDQoL48gITbvwKJnKaGrfJ E9/lHQ+wVWbi14OeV5uJZ/xYePn3FiYy+lYNuxJHSC7/b4UtE3P6E/priNuK 5tjp2jPRMMui+A7xcuu/2Q6OTGzyL/O7R1x37IF26k4mCh6VvHg2nTcS5ibq xcQu9mLHPuKYzhc1Q2FMlDznGEiFUzidlbTnfgYTIlM+eV7EH7ZG3vySycTi mV+K/Ig1X3rMmHWBiSr3ruJg4o6FSEMOEz5uu7MPEEsf6r9Tdp2JAyxn49PE mbstlp6vZUIpzeLELeKrSsKtwV3k+vAGCEZQaJfV++fTw0Tew2SuMPH4f5Hr 3T8ykW2k5TWH2Hpo8JTtFyYUS2ceFiMebPjI3P6LiZ+qKw8rEMOh8e1sARaC 9q2rB/HLU4d/8+VYeE2rpkUQzzhUtyJZgQUPhatfo4jX7f3HjF/Jwr3azwcO Ex+wDyqPWsPCdg/PzOPEimtdwnersrDrVW9RGrFfvb6wii4LYv0CKqXEswYF l9TvYKHa7vKZL8QjhWmnPjqzkPPBX/A7cZ+PqpCICwsHDXy9fxI//uzw09qd hS324ppDxPzXN+++8WNB4Xpw2sxI8v6+4xM4Es1CwA+tomXEnNOv7qteYuFG 8antNsSmNv56zBwWlq0/qs0g3io6++a+KyyMnl2vwSaWP6Z5sSaPhaddGTL2 xN9CE0IsSlnQG/NocCM+sNNolftdFoxcHoVEEl9RKzqQ+ZkFiYK56bnEvpK/ R29+ZaGhsmNVHrHmmNreJ30svBfrLLhOfPtOobfQLxaWlvKriolfcgp5XiMs HIq3Ka4mFoks2LhpDhvPVy+Ve0zsce96b5syG6tz1Of+nV7fjR87P69nYyG/ wWCYePD0hrcCqmyYeH4OGyWOdrj+VEODjflyw90TxGk/82+nb2UjeGbImVkH yPeLZD7f1ZKN5Ta6x6SIlXZds57wYePEKK168/T5c9qFf/zYGFw9cGILsdur VrEvAWwcY9babiXOpvU9a9/Lhr7Ci5/bieV119vnRrIh6W48y5h4sewNd2Y8 G3+3l75lEs94XhR9NZ+NzlsbDXyJL4jp92TeYOPFTb/XfsSwajdILmRDc2h+ YABxZOOfWVGlbMg2BvODiUeKNeJZ1WwIWS15GUbcn1CWPnWfDfGBVSIxxK/N KorZfWycCdQyziTWt8nm7f3BxqeWb/eziK+xEiaTf5L6dP+0uUAc5uRq/myA jWu3RhnZxDJ7xXoY42xUaOgaXSPmnfcUo83nIMlR8U0Z8fOhJf7mqhzMSIt7 f594+7jQYi91DqorBDXaiC8L/qqK0+Cgqm/m0YfE+0SbZt/bzMGTH/mKT4gl VwRmmYCDHKFaxnNillXrQ0M6B6uprd5dxO2XwjboBnFQEGmYNkAsLlBeob2X 2H5X/iAx0+G30ab9HJRv3l33l/iZhMeODeEctIVI9wwTvzjKTlh6mIMbTbtk xonfuKv9Hj7NwTmhEK5QFPk/W9dbWljMgQL1v3kSxKtjFfTySzmg//szMW23 jw5tV8o56M8r/ylJ/CXj6afMSg68BNiPpYi/za9fHN/AgZrFnGNLift/UiGe 7Rx8qFjXuIJ4pISus+IPB9cuTCapEYtqbXq4aJCDPeaaLurE8tUyzsJDHMiP pGhsJDZt/HD4yygHbqW9TzSI05/tvX9DkIvJuiahzcTaf9PttopxUd233XAb ccSmnhCWGhdU9hlVM+LEyqa5xhu5MDcf+jzt7O15GZs1ufAfz8wyJ35gHHxb RosL+6C7opbEy7izRLp1uVgzFfbOmrh2v3Kqjw0XvJa1ziziqVuBZcd8ubCq 8u7eQfxmVvGJi/5cvLtakuREXMn6vbM2kAvLWm09Z+LgX34LhvZxcfrSnMyd 0/Va4+PuGsXFrS311ruJ21PclxgmciEaYRHvSZwT7BApWMxFBnv7kSDiQw0U c1kpFxV3/ywLJnZe+FppSzkXUfOnyqctk2/73L+Si5kzV3zeS3zqA0e1q4GL gcAc3RDiEAa9u/YpF17Guu0RxBZqxkYRf7kwMjpw6CixQEeHYPAwFz2xSVPT Lg91rfUeJfcntSriGPGKO0c220+QfPlHQTHEY+w7StrCPAhO6DjGEV8Lx4IR CR4UzH9KxxPPadZ+EaTJw4MF/21Onq6fd+sZ7008iB9fnjPt4IV2NBctHqqy a8TPEnfZht5j6PCQeyj/+7Rvfb9ZpW7IQxnNlkol9hD/3/mfTB5ct9A/8omb HVU9vYN4aKWVrLlALO7iUXVuLw8uHvfOTHuHx4X5j/fzEMnaPTXtocBFxZoR PIx1KndcJFaMHR6bOMLDgadzwrOJo4vrTiam8GAwM6bwynQ/zaYVllXwUHBm adN14mOicTO+VPHw3ufxyhvET8QaWDK1PKyNkjk4bQ9ZzdEDDTys2eCvXUCc qi6tb3qfh94PKrmFxIP2XU873/Dw0nWnfwkxdi5ZPf89yUu40DztE26MEN1u HlQsDywvna53QKNs9icemPjv/rTpx3Jdffp5cLan5MqJM05038z6xUO304Og aX9JlJnb/oeHuUHnmqcdTZ28sWmYh3VhCr43p/v7/F0Bz1Ee6CYdt6ctdXmS Qf3jIbZDedEt4l15m3PaJsj8iStcp32j0H94aooHtZ7q8mn/H8ebWqs= "]]}}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQjQIOhDtAGCIQ+kA2lK8BoRNqoXxjKN0Jpa0gdMBE CN3gAKEtpkLlXSD0nelQeXcIHTITKu8NoTVmQeX9IPQOKJ8hEEJ/gPIPBEFo ndkQ2iEEQkdA+QdCIXQOlD+M/QcAMKg4pg== "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 15], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 16], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 17], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 18], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 19], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 20], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 21], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 22], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 23], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 24], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 25], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 26], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 27], InsetBox[ StyleBox["\[FilledCircle]", StripOnInput->False, FontSize->10], 28]}, {}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Number of Days from March 17, 2003\"", TraditionalForm], FormBox["\"Total Number of SARS cases\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->{625.555562590371, Automatic}, PlotRange->{{0, 100}, {0., 1759.9303845894865`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.546875270215722*^9, 3.546875304375676*^9, 3.5468753642331*^9, { 3.5468754243315372`*^9, 3.546875521649103*^9}},ExpressionUUID->"067fe0cf-c0b9-4642-9ba3-\ de2d5081c346"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.546872320341999*^9, 3.546872321603071*^9}},ExpressionUUID->"61f15018-74c9-48d9-b694-\ d0a646750dbd"], Cell[CellGroupData[{ Cell["\<\ In early April 2003, there was fear that the disease would spread at an \ ever-increasing rate for a long time. What is the earliest date by which \ epidemiologists had evidence to indicate that the rate of new cases had begun \ to slow? We need to calculate P\[CloseCurlyQuote]\[CloseCurlyQuote](t) to \ find the inflection point:\ \>", "Subsection", CellChangeTimes->{{3.5468765223423395`*^9, 3.5468765322659073`*^9}, { 3.5468772041033344`*^9, 3.5468772163330336`*^9}, {3.546877247295805*^9, 3.546877278027562*^9}, {3.546877346294467*^9, 3.5468773832985835`*^9}, { 3.54687741539742*^9, 3.546877421187751*^9}, {3.546877511231901*^9, 3.546877544173785*^9}}, FontSize->18,ExpressionUUID->"2d15069d-f073-45ec-886f-c9fe7549893e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TraditionalForm", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", " ", "2"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5468698081293087`*^9, 3.546869833778776*^9}, { 3.5468712110865536`*^9, 3.5468712161618433`*^9}, {3.546877314746663*^9, 3.546877323527165*^9}}, FontSize->16,ExpressionUUID->"04c073cc-9c87-4506-b49c-8bc480c99dbc"], Cell[BoxData[ FormBox[ RowBox[{"1760", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"10.351249999999999`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.26`"}], " ", "t"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"17.5`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.13`"}], " ", "t"}]]}], "+", "1"}], ")"}], "3"]], "-", FractionBox[ RowBox[{"0.29575`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.13`"}], " ", "t"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"17.5`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.13`"}], " ", "t"}]]}], "+", "1"}], ")"}], "2"]]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.5468698130405893`*^9, 3.5468698345428195`*^9}, 3.5468712169098864`*^9, 3.546875439836424*^9, 3.54687623771506*^9, 3.546877324297209*^9}, FontSize->16,ExpressionUUID->"c2fe28b6-92fa-4eaf-b2a4-85481eb0f56e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solve for the t-value that makes \ P\[CloseCurlyQuote]\[CloseCurlyQuote](t) = 0:", "Subsection", CellChangeTimes->{{3.5468773984334497`*^9, 3.5468774098511024`*^9}, { 3.5468775496680994`*^9, 3.5468775581635857`*^9}}, FontSize->18,ExpressionUUID->"7cce2365-831b-49d4-8909-f32b93efe090"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", " ", "2"}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", " ", "t"}], "]"}]], "Input", CellChangeTimes->{{3.546869840770176*^9, 3.5468698586942005`*^9}, { 3.546871220349083*^9, 3.5468712280575237`*^9}}, FontSize->18,ExpressionUUID->"64883b5f-39cb-495a-ab20-bb4ee4e7835b"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Solve", "::", "ifun"}], "MessageName"], ":", " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(Solve\\)\ \[NoBreak], so some solutions may not be found; use Reduce for complete \ solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \ \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.5468698596792574`*^9, 3.5468712294766054`*^9, 3.5468754426065826`*^9, 3.546876239742176*^9},ExpressionUUID->"e4b54b44-8a69-4646-95e4-\ 83e55df2f3f6"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"t", "\[Rule]", "22.0169298533036`"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.546876239743176*^9}, FontSize->18,ExpressionUUID->"7bb5a91b-de55-49d9-9ab2-3270a1f024a8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ What\[CloseCurlyQuote]s the total number of SARS cases at that time? Notice \ anything???\ \>", "Subsection", CellChangeTimes->{{3.5468775760006056`*^9, 3.546877598384886*^9}}, FontSize->18,ExpressionUUID->"3da47726-4062-40e6-b18b-9bc48af43b95"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"P", "[", "22.0169", "]"}]], "Input", CellChangeTimes->{{3.5468699392498083`*^9, 3.546869945116144*^9}, { 3.546871235906973*^9, 3.546871242519351*^9}, 3.546876224339295*^9, { 3.5468762712379775`*^9, 3.5468762738601274`*^9}}, FontSize->18,ExpressionUUID->"e1f57439-c573-4c95-bd52-7795ee3a3c52"], Cell[BoxData["879.9982923910338`"], "Output", CellChangeTimes->{ 3.546869946817241*^9, 3.5468712433714*^9, {3.546876225231346*^9, 3.546876274728177*^9}}, FontSize->18,ExpressionUUID->"575422dc-0175-42cc-b629-990fe25e8ffc"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1584, 765}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->0.8999999761581421, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Book"}, "Textbook.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1257, 32, 262, 4, 87, "Title",ExpressionUUID->"7dcfd6a2-3d26-4887-8bd8-ffd30d82854c"], Cell[1522, 38, 426, 9, 75, "Section",ExpressionUUID->"ae0d1c3f-346c-4c8e-9dbc-ff278b7c94b3"], Cell[CellGroupData[{ Cell[1973, 51, 846, 19, 57, "Section",ExpressionUUID->"bdb9fa31-f771-46ce-9176-2e26cce41ff9"], Cell[CellGroupData[{ Cell[2844, 74, 1482, 39, 62, "Input",ExpressionUUID->"41a6bc17-b0a6-413b-99eb-94832ab30dac"], Cell[4329, 115, 1078, 33, 26, "Output",ExpressionUUID->"8f9676f6-0659-4ccb-97bf-820dd06c459c"] }, Closed]], Cell[CellGroupData[{ Cell[5444, 153, 664, 15, 29, "Input",ExpressionUUID->"f2b27ba3-49fc-4a1b-a117-8cb16a5cd319"], Cell[6111, 170, 1396, 43, 295, "Output",ExpressionUUID->"bc923292-2f10-4381-8df5-c58a5b308bd5"] }, Open ]], Cell[CellGroupData[{ Cell[7544, 218, 1035, 21, 53, "Input",ExpressionUUID->"90a0f629-c064-4066-939b-f6c400cea507"], Cell[8582, 241, 2406, 64, 247, "Output",ExpressionUUID->"94dd7879-4de1-45a4-ae41-0413d30e782b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11037, 311, 582, 20, 67, "Section",ExpressionUUID->"68350a3e-b3c0-4d62-8b3f-cc303a088fda"], Cell[CellGroupData[{ Cell[11644, 335, 1723, 42, 80, "Input",ExpressionUUID->"5cb4b5bc-42d9-4a37-b456-3d6e998ea4ba"], Cell[13370, 379, 10850, 205, 265, "Output",ExpressionUUID->"067fe0cf-c0b9-4642-9ba3-de2d5081c346"] }, Open ]], Cell[24235, 587, 152, 3, 26, "Input",ExpressionUUID->"61f15018-74c9-48d9-b694-d0a646750dbd"], Cell[CellGroupData[{ Cell[24412, 594, 751, 12, 55, "Subsection",ExpressionUUID->"2d15069d-f073-45ec-886f-c9fe7549893e"], Cell[CellGroupData[{ Cell[25188, 610, 446, 10, 30, "Input",ExpressionUUID->"04c073cc-9c87-4506-b49c-8bc480c99dbc"], Cell[25637, 622, 1166, 34, 60, "Output",ExpressionUUID->"c2fe28b6-92fa-4eaf-b2a4-85481eb0f56e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26852, 662, 295, 4, 35, "Subsection",ExpressionUUID->"7cce2365-831b-49d4-8909-f32b93efe090"], Cell[CellGroupData[{ Cell[27172, 670, 458, 12, 32, "Input",ExpressionUUID->"64883b5f-39cb-495a-ab20-bb4ee4e7835b"], Cell[27633, 684, 653, 13, 20, "Message",ExpressionUUID->"e4b54b44-8a69-4646-95e4-83e55df2f3f6"], Cell[28289, 699, 231, 5, 32, "Output",ExpressionUUID->"7bb5a91b-de55-49d9-9ab2-3270a1f024a8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28569, 710, 258, 5, 35, "Subsection",ExpressionUUID->"3da47726-4062-40e6-b18b-9bc48af43b95"], Cell[CellGroupData[{ Cell[28852, 719, 324, 5, 32, "Input",ExpressionUUID->"e1f57439-c573-4c95-bd52-7795ee3a3c52"], Cell[29179, 726, 230, 4, 32, "Output",ExpressionUUID->"575422dc-0175-42cc-b629-990fe25e8ffc"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* NotebookSignature IuDhOV6C6lIrCDKrgHtAOt3L *)