(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 53833, 1240] NotebookOptionsPosition[ 51281, 1196] NotebookOutlinePosition[ 51714, 1213] CellTagsIndexPosition[ 51671, 1210] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", RowBox[{"Exercise", " ", "04"}], "*)"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"val", ",", "sol", ",", "sol1", ",", "val1"}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Input", " ", "Part"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"time1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1995", ",", "1997"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"time2", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1999", ",", "2008"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"time", "=", RowBox[{"Join", "[", RowBox[{"time1", ",", "time2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"income", "=", RowBox[{"{", RowBox[{ "15", ",", "15.1", ",", "17.8", ",", "20.7", ",", "21.1", ",", "23", ",", "23", ",", "23.4", ",", "26.8", ",", "28.9", ",", "29", ",", "33.1", ",", "29.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"production", "=", RowBox[{"{", RowBox[{ "746", ",", "800", ",", "819", ",", "890", ",", "926", ",", "1005", ",", "1022", ",", "1081", ",", "1087", ",", "1147", ",", "1185", ",", "1240", ",", "1230"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Calculation", " ", "Part"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Part", " ", "1"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tin", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"time", ",", "income"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpro", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"time", ",", "production"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"netprofit", "=", RowBox[{"income", "*", RowBox[{"(", RowBox[{"12.5", "/", "100"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tnetprofit", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"time", ",", " ", "netprofit"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"table", "=", RowBox[{"TableForm", "[", RowBox[{"tnetprofit", ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], ",", RowBox[{"TableAlignments", "\[Rule]", "Center"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Part", " ", "2"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", "A", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gin", "=", RowBox[{"ListPlot", "[", RowBox[{"tin", ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", "B", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gpro", "=", RowBox[{"ListPlot", "[", RowBox[{"tpro", ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", "C", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ginpro", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"gin", ",", "gpro"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Part", " ", "3"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fin1", "=", RowBox[{"Fit", "[", RowBox[{"tin", ",", RowBox[{"{", RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fin2", "=", RowBox[{"Fit", "[", RowBox[{"tin", ",", RowBox[{"{", RowBox[{ RowBox[{"t", "^", "2"}], ",", "t", ",", "1"}], "}"}], ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fin3", "=", RowBox[{"Fit", "[", RowBox[{"tin", ",", RowBox[{"{", RowBox[{ RowBox[{"t", "^", "3"}], ",", RowBox[{"t", "^", "2"}], ",", "t", ",", "1"}], "}"}], ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gin1", "=", RowBox[{"Plot", "[", RowBox[{"fin1", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"time", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "time", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gin2", "=", RowBox[{"Plot", "[", RowBox[{"fin2", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"time", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "time", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gin3", "=", RowBox[{"Plot", "[", RowBox[{"fin3", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"time", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "time", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fin1", "/.", RowBox[{"t", "\[Rule]", "1998"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fin2", "/.", RowBox[{"t", "\[Rule]", "1998"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fin3", "/.", RowBox[{"t", "\[Rule]", "1998"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"fin2", "/.", RowBox[{"t", "\[Rule]", RowBox[{"{", RowBox[{"2009", ",", "2050"}], "}"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Part", " ", "4"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fpro", "=", RowBox[{"Fit", "[", RowBox[{"tpro", ",", RowBox[{"{", RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gpro1", "=", RowBox[{"Plot", "[", RowBox[{"fpro", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"time", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "time", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fpro", "/.", RowBox[{"t", "\[Rule]", "1998"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"percentageerror", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"870", "-", "fpro"}], "/.", RowBox[{"t", "\[Rule]", "1998"}]}], ")"}], "/", "870"}], ")"}], "*", "100"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Part", " ", "5"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"proin", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"income", ",", "production"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gproin", "=", RowBox[{"ListPlot", "[", RowBox[{"proin", ",", RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fproin", "=", RowBox[{"Fit", "[", RowBox[{"proin", ",", RowBox[{"{", RowBox[{"i", ",", "1"}], "}"}], ",", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gproin1", "=", RowBox[{"Plot", "[", RowBox[{"fproin", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"income", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "income", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Magenta"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fproin", "/.", RowBox[{"i", "\[Rule]", "40"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol3", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"fin2", "\[Equal]", "40"}], ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "/.", RowBox[{"sol3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Output", " ", "Part"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", "tin", "\[IndentingNewLine]", "tpro", "\[IndentingNewLine]", "table", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", "gin", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", "gpro", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", "ginpro", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"gin", ",", "gin1", ",", "gin2", ",", "gin3"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "fin2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< and \>\"", ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"gpro", ",", "gpro1"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "percentageerror"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"gproin", ",", "gproin1"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"fproin", "/.", RowBox[{"i", "\[Rule]", "40"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"t", "/.", RowBox[{"sol3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.9639688209095325`*^9, 3.9639688274917984`*^9}, { 3.963969137526613*^9, 3.963969503156674*^9}, {3.9639696485087385`*^9, 3.9639697469497285`*^9}, {3.9639702091780453`*^9, 3.9639703131918993`*^9}, {3.9639703474768624`*^9, 3.9639704894526215`*^9}, {3.9639723664018755`*^9, 3.963972513205905*^9}, { 3.963972749828315*^9, 3.9639728263478556`*^9}, {3.9639731498483734`*^9, 3.9639731920393715`*^9}, {3.9639732320631495`*^9, 3.9639733256205463`*^9}, {3.9639734152739153`*^9, 3.963973929043466*^9}, { 3.9639739722475386`*^9, 3.9639741594784374`*^9}, {3.963974201058319*^9, 3.963974273117186*^9}, {3.96397432374559*^9, 3.963974325421361*^9}, 3.9639743568430557`*^9, {3.963974437716647*^9, 3.9639745696969023`*^9}, { 3.9639746102018375`*^9, 3.9639746110040693`*^9}, {3.9639746948046865`*^9, 3.963975112254541*^9}, {3.9639751562077155`*^9, 3.9639753091745305`*^9}, { 3.963975339209155*^9, 3.963975364094515*^9}, {3.9639754146453485`*^9, 3.9639754186177473`*^9}, {3.963975513665881*^9, 3.9639755161342697`*^9}, { 3.963975555169044*^9, 3.9639756934080977`*^9}, {3.963975798133089*^9, 3.9639758388709307`*^9}, 3.9639777994847507`*^9, {3.9726491348565245`*^9, 3.9726491375303955`*^9}},ExpressionUUID->"92373540-7265-44ca-ad84-\ d67f75e10a41"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (1)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.96397780164716*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"e3bf912c-688a-40f3-9b68-7fd0776f9e75"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1995", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"1996", ",", "15.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"1997", ",", "17.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"1999", ",", "20.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "21.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"2001", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"2002", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"2003", ",", "23.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"2004", ",", "26.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"2005", ",", "28.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"2006", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"2007", ",", "33.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"2008", ",", "29.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.9639778016609573`*^9}}, CellLabel-> "Out[2439]=",ExpressionUUID->"68e4c8ae-ab94-412f-8990-1cc6576748c1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1995", ",", "746"}], "}"}], ",", RowBox[{"{", RowBox[{"1996", ",", "800"}], "}"}], ",", RowBox[{"{", RowBox[{"1997", ",", "819"}], "}"}], ",", RowBox[{"{", RowBox[{"1999", ",", "890"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "926"}], "}"}], ",", RowBox[{"{", RowBox[{"2001", ",", "1005"}], "}"}], ",", RowBox[{"{", RowBox[{"2002", ",", "1022"}], "}"}], ",", RowBox[{"{", RowBox[{"2003", ",", "1081"}], "}"}], ",", RowBox[{"{", RowBox[{"2004", ",", "1087"}], "}"}], ",", RowBox[{"{", RowBox[{"2005", ",", "1147"}], "}"}], ",", RowBox[{"{", RowBox[{"2006", ",", "1185"}], "}"}], ",", RowBox[{"{", RowBox[{"2007", ",", "1240"}], "}"}], ",", RowBox[{"{", RowBox[{"2008", ",", "1230"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.9639778016609573`*^9}}, CellLabel-> "Out[2440]=",ExpressionUUID->"0f1f998c-c585-4516-80c0-6b818cb2a8c3"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"Year\"\>", HoldForm], TagBox["\<\"Net Profit(Billions)\"\>", HoldForm]}, {"1995", "1.875`"}, {"1996", "1.8875`"}, {"1997", "2.225`"}, {"1999", "2.5875`"}, {"2000", "2.6375`"}, {"2001", "2.875`"}, {"2002", "2.875`"}, {"2003", "2.925`"}, {"2004", "3.35`"}, {"2005", "3.6125`"}, {"2006", "3.625`"}, {"2007", "4.1375`"}, {"2008", "3.6875`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "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, {"Year", "Net Profit(Billions)"}}, TableAlignments -> Center]]]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.9639778016609573`*^9}}, CellLabel-> "Out[2441]//TableForm=",ExpressionUUID->"c4867c7e-d4c7-4efd-8683-\ 0cc65e295d1a"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (2) (A)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016609573`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"b75e9764-4c22-492a-a199-23a88b2a6188"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], PointBox[{{1995., 15.}, {1996., 15.1}, {1997., 17.8}, {1999., 20.7}, {2000., 21.1}, {2001., 23.}, {2002., 23.}, {2003., 23.4}, {2004., 26.8}, {2005., 28.9}, {2006., 29.}, {2007., 33.1}, {2008., 29.5}}]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1994.7968749999998`, 0}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1995., 2008.}, {0, 33.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.9639778016609573`*^9}}, CellLabel-> "Out[2443]=",ExpressionUUID->"05ad0275-159d-4dac-9dcb-b323e6f42c8c"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (2) (B)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016609573`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"7d320f65-6565-4a27-a57e-de550f96b146"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], PointBox[{{1995., 746.}, {1996., 800.}, {1997., 819.}, {1999., 890.}, {2000., 926.}, {2001., 1005.}, {2002., 1022.}, {2003., 1081.}, { 2004., 1087.}, {2005., 1147.}, {2006., 1185.}, {2007., 1240.}, {2008., 1230.}}]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1994.7968749999998`, 721.3000000000001}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1995., 2008.}, {746., 1240.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.963977801676941*^9}}, CellLabel-> "Out[2445]=",ExpressionUUID->"ef4fbd5e-8977-4cbe-9afc-0fb620500085"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (2) (C)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.963977801676941*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"b6a7a091-bb22-4341-9222-3dbeef33fc33"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], PointBox[{{1995., 15.}, {1996., 15.1}, {1997., 17.8}, {1999., 20.7}, {2000., 21.1}, {2001., 23.}, {2002., 23.}, {2003., 23.4}, { 2004., 26.8}, {2005., 28.9}, {2006., 29.}, {2007., 33.1}, {2008., 29.5}}]}, {}}, {}, {}, {}, {}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], PointBox[{{1995., 746.}, {1996., 800.}, {1997., 819.}, {1999., 890.}, {2000., 926.}, {2001., 1005.}, {2002., 1022.}, {2003., 1081.}, { 2004., 1087.}, {2005., 1147.}, {2006., 1185.}, {2007., 1240.}, {2008., 1230.}}]}, {}}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1994.7968749999998`, 0}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.963977801683715*^9}}, CellLabel-> "Out[2447]=",ExpressionUUID->"d1208e17-adcd-4373-9b2b-af6115247590"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (3)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.963977801683715*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"c23f72f5-15ad-4d71-9844-df1ff7f1956c"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], PointBox[{{1995., 15.}, {1996., 15.1}, {1997., 17.8}, {1999., 20.7}, {2000., 21.1}, {2001., 23.}, {2002., 23.}, {2003., 23.4}, { 2004., 26.8}, {2005., 28.9}, {2006., 29.}, {2007., 33.1}, {2008., 29.5}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV02lQU1cYxvGIsWBhJIqIU2kFdLAowZAFskDOG0NcQBYDIlK2sFjCJoaq iIoUkYJWsDAQS6tgranUgjW4sYgIIkiKQ22xKBRZpVuA6ijbUPueD3fu/Ob/ nHvvl2sfvVcZZ8JgMHzxondj51IGw7kcGIttC/+IZsODaJk1k1rD6iyJY8P5 qdT1ZtS9THN5PBsC7LuCWNRVxtxzyWzQf1JQaUcdcDdTmc6G9FXmgTJqbXRK w2k2mKiZumzqtZW+Z26zYSVzymcRG03cLIRLXCDmyb4iOxd0mixpss0F+HHE ymkj+v1h29D9GyE+wBDjzEFHth2ptuTAnd/+qVa4oq+WhI0kckC7SsXfzi2H LNHVkZf3OFA0l3A9nofdS9YvWO0K/7rzmFl8tHdPcmuGK3Rz/ApyBLg/WXeJ 3eUKz1r/W1buht3H2r/DmQuxNiaPde7YFfUV5DgXlK0tUZVC7B578hb0cEFl ueqveyLs+vzBKR4PXlu3VrWJscdMDz3I58H3t5lJwxJ08fOdHS940HLLZHbG A/d3DRHvbeKDKi2wed4T7biQJdfywc4gOmFD0BY13IpXfIh9rsn+APA8u3q+ e5sAHhbKMiQy7J32YvhOAEVfP5IFbkKryyymTNxgIK5aHiJHQ8RnuSFu4G9Y A2le6NKyNO8bbiA3/n3gsAK9zsFszNwdvkrUHM3cjM+/Xs3tinIHq9yCTO0W dFPNI2ODOywNn689txVtyrQaWSYETteCydpt6M6f2pekCkFffv91lze6sGx5 rkEItRueCbp98Pmnasye2IlgMPBE6sR2tKkiJfSoCAqFx0ff+KIb7Y/c+kUE FYfI+hk/PL9voZ3qQzE8Dv5CvTQAfTFcQHLEkD8pGF6xA/eWC1+9fioGlWPq Lq4SPWfnMOgmgcaV84skgbh3ODnz7WkJHPt4a440CLvX9J4bQxJQKZ3md+1E v+hXzEo9oH0m7MeIYNy3sDptSjwgwNMx4vAu9Or6VvVLD/D4vaq3KAT3BxOC zPw8oUqUV6zdjf3duFPHLnoC4U4r9KFo2x7eBoYUgsfquHUf4T6+NOdqsBR+ npZMNIRhv7Y7MeuKFJJ1Sl13OPZDJS0nTAkUsBq0vRHYj9jejwknsPxpmNMA OmtqnctwBIGyC/N1I7Sn8c5GRxHQcUm/kTrBO0kVQ6AxqHktIxL3IenLI9UE Js62X1uLZgh+jQ3dT/B/7DYk0z5+atGO0wSe/Lk/XEN7gnZvVwGBMP2KiQO0 j37z1P8MgXh5yLIs6r7aKr9iAp/G9YYU0b1hbOf2LwnoKwdHb1Jfluu2XCIg 1GQfrKf7Nf6sNh1+j3jN4ibay0MzNl8m0GGIdX5IXbrPT3GFwJBxTNNL9znl bzZdw/fdzGMO0M64EtWsJzCe6VQ6Qvvhmx2y6wRmLRNrjdSazvNwi0BWj7nP S7of7zFruk3gnQs/9L2hXT2iIXUEPlf7pszRPjrR11hPwIo7/vYttWpus/QO gf8BlAQQDw== "]]}, Annotation[#, "Charting`Private`Tag$41676#1"]& ]}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwd03sw3FcUB/DFaol2gg3JRCJCmgz1C3YX+3SPbFTEe70fSxdbrwqhIZhu xCOR1qMkjbYk6lGtpIStiVARFSqyTUdMEVQ9MxIiotMQdOm9/ePOnc8/53zv vecejEgUy9RpNJo7XmRfeqRHo1lWAm2HbNzYjYJfIxwN6MSdBZpPPCi4vpZk oUUcMUiVeFPgdXDAV5f4autZjQAKFJ8U1ZsQ5z9fm5dScNZIx8eROGqxvCmN AvVYel02sVt0BtRQsIe+5qpJYTehkuANCiKHT5eaHCX9mnX3tR4FtgwxzK2w 2Xmx/GgriPFSRlpaY2emU3Pa1nB35EWjkw32deVEbLQ1lBlJ2W5M7Mefv1vd aQ2lm3EtMSxsnnei4X4bWLFn0bPY2PRnZ7rSbWDI2qMo1xb7nzu1JgM2MNa7 pV9ph83hiNooJkTtVh+ss8eWS+e185gg7r3/YT0He5S/eHmMCdKdRgu/cLET eC1iexa8Nuht6ONhf/kO41EhC27coX88y8c+foWVvsiC+63qG+sCks+sUOLM BmmKT7dKiI3umapdY4OJkpu3G2FXhbcPrrMhajI52xiw1Y/Eybxsob/YMYPv iF2oZWDWaAulFb87+hzDPjAVsXeHHUzJGkWBInL/x1KGw+3AU2kGKcexNXrb 2zrsQLS0mJrphP3brppIhj2Uxyd/Kv8AO2ty4WSMPTAuFMnLnLEXKu769diD nkTVdu0EtupZt8VeDlgPqL1qc8H2i/IwSeOAorLn9cBJbJGVvniQA23vj9kO uWJPBjZ5H+HCtE9e0rIb9raEcSqHC8WcnKer7tiXblHBo1z4Nh1ZrHuQebPk XaB4MOhfEqvnha2tkirzeXDple2soTf2v84DsxM8kB5OCmCKsT1dA/R5fOjc o9Lk+2BXT2gYfsGHc9Ench18yfmztEPm+CAVm6sC/Mh76mQokAAerIc2hfmT +vKamSsC8BIeDssMwE7tsjFdEYBgomG8NBB7RbZS5SqEBm7+5bIg7I9CGFuV QkDMN06KYOwU8xHZphD859uZ7SHYPW+P3/RygMdv+Msdodj3+pW2tQ6QUCeu G5Jg6/F+6ttygCLdjrLxMOzNc/F8HwS7RkPNp4iL5dIWXwTfVKna54jFnv6U P4I6JvpriTgwWnAgCEGnb/chWjh28ukN9XAEy189aD5ErFwSPoxD+D8OKROI 37s4E5CNYPj5GUkysYVSMZCDIFRhuJxKHD593iUPQYwoUD+L2Dl3Hz8fwXnZ eGApsVmtyLgIgaJ++ultYjW3oLmvEXCSs9N+Ju5WGErKcR6emXYXcdPi4FAF gofKKMt+Yq0/nPsqEcwszSePE/fIzW58h/vdzqdPEU+njph+j+Cl3Pzq3P/5 HD8r/wHBxs74tiVigduLgpsIsp7ouP5NrFFYrtmA4K2qH/9cJd6odJE3IiiI dT+1Sbw/b3X1FgIG8+X2NnGcoDqxGcF/kmr9OA== "]]}, Annotation[#, "Charting`Private`Tag$41720#1"]& ]}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwlk3tQVGUYxjdmNRxqBAkhQcJ0NJTFZdll7/s924ohN9dd7i7EKiRoJKFC 5EBA6GijkFAheAGymKBgihoRMkWJQnZkQAdLQIXQTGFddJKbQ8a+548z5/zm eb73eb535qzYttuQ6sDj8SLmH/vbetWFx/OrxvynNOGBAL9t07rxiVGycUyA 01OZax2JC4ICrQLoV/RGOXP+vJcfC9C8t6Teh+NbndMCfODpZNRy/pFgR384 pPPrijg+XbTGHx78qbAFAuKXxt/xx/Yb75f5+FOeovJff4hTmavveprXcjtv PdL0lu1+QjvXfL2XL8Qvf4w3BQfYud3KDEJUeJrF4SI7+8TPnhSi7NnOn9IC Sfd4Y0KIx9JAfoGY8pwe6gLQL4wsKZaQ3n61PAADnf8tqQ4ivV45HoAUd4dr dVLK60yECIbOjuR6mZ2Hz8g+E8G82PPhJTnpxtoJEZ66dTb+rqC+191CAtFw jv/uqJL8K5Z9E4iOFofZGRXdzz33RTHMe4yX59TECDeL4WORH3BndH7Hpx1i pNzJKvKGnZMbJl+T4Eqp9kOllnj0x2IJyk72aI1v0n0Pe/4jwXBqky5OR/OO CoKDsNmyEns2kJ4b1RAEnXUse38wze8ZdZTixK6svPyN1M9QmSqF68GS/Iq3 6D7HnLulcEmcaz0VQvswnFgjg7D3hYnWTcS5Xx6Robn616e9obS/6WibDK3r BiT9YcRPBkLlGDEeyLSFU98zKY1ylMo+vjcZQedDKx0VqMlla2ciiW1+ZgWu xRxLd9FTnzF1uwKHJySjS7eQ/upNdyXMqzNjRQaan1C4T4kLHnMLlEbSo09Z lPhoR0ixJor0nd96q2A2+M7FRtM++rxyVOiaMX2fFEO6ntelgl69Oml/LO2j vm25GqpbjYNlcZRf2bdbjUb5ofKKeOKpjDY1mGg6uDmBeMB5kQYx99tEbVsp f7lGr0HftNJ23kT6J33lGmTUGer6E2mfx48OaFDifL5iMInycxcuY3jlpsl3 mJgn8PJkqKqda7tLjMYAL4Y6Ebtt5djN5M1wIeryKt7b5C9sep3Bdrzrh1XE yRc3rWPz/2O/JYPTq+JVDDce7EvMIi64k6ZmMDUvtWUT10zkaBjSdHFLCojb sz8HQ2HqYFwZp7v0bGBorh+5d5YYOZIIBllWUc7PnD9HGznfR7FyUTvn10Vs Zui2pPhd4fLUKVsY/rLezxrk9HOl0fN5Zw/xhzndtSqG4VG+7xd3ub7yr2IZ ZhfvarVy/HdLPEPBn05hT4h9Mi4lMCys/W5okuOL3VsZjqRHvPeM8w9dNzG4 ih49f8716xhKZPgfhzvTpg== "]]}, Annotation[#, "Charting`Private`Tag$41764#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1994.7968749999998`, 0}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1995., 2008.}, {0, 33.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.963977801683715*^9}}, CellLabel-> "Out[2449]=",ExpressionUUID->"9d1e1ac4-f4a1-434c-be0b-10a739604493"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The suitable model is quadratic model\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "9671.733049236678`"}], "+", RowBox[{"8.376602158446202`", " ", "t"}], "-", RowBox[{"0.001765049110067681`", " ", SuperscriptBox["t", "2"]}]}]}], SequenceForm[ "The suitable model is quadratic model", -9671.733049236678 + 8.376602158446202 $CellContext`t - 0.001765049110067681 $CellContext`t^2], Editable->False]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016927385`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"ddea2193-7676-49a6-90fb-d5e467079558"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Suitable income in year 2009 and 2009 respectively \"\>", "\[InvisibleSpace]", "32.979509870666334`", "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", "82.68249051860857`"}], SequenceForm[ "Suitable income in year 2009 and 2009 respectively ", 32.979509870666334`, " and ", 82.68249051860857], Editable->False]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016927385`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"0a5ad3c2-ee5d-42bd-aa72-54bfb187bfa6"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (4)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016927385`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"33735e87-c91d-49c3-8baa-4d1c5920e005"] }, Open ]], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[ 1.6], PointBox[{{1995., 746.}, {1996., 800.}, {1997., 819.}, {1999., 890.}, {2000., 926.}, {2001., 1005.}, {2002., 1022.}, {2003., 1081.}, { 2004., 1087.}, {2005., 1147.}, {2006., 1185.}, {2007., 1240.}, {2008., 1230.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Hkw3GcYB/CNiujo1JkwI5RKKdViUVdin3Ulzqo76lrHFKnUkWpVHSHs sqzd/WlJgqWSRaYSEUeJZtzXph01hNKWCJE0EZLWnbV93j9+s/OZ7/d532d2 Z3/60V/6xcnRaDRvfMjn2q+qNJqpCGjtk69rItkwHM08Ko/OTeAWL0SxoWY7 2USRWMdFSy+aDb76EwEqxIXtlnWxbGi9wGvSIw6uTKxPYMM32kr+THLeXvhs Qxob5BLkxXkkd3x6p4XNBi35bc/DH6JHZYn9t9gQ8yBFqPcRenYiu16BA1Zx DHVjM/R69+3+YA7E+0piTM3xvKjnBR4NHPhl5vlNVwvM7/fJyqQcqNBmWXnR MYeWSnWfIhDuJ7bFW6JbnGYCrhfBSxtL+Vwr7Gcc7zzYK4Jpcx/eJWvMPZQ7 HnsUw9zQgZroY7SmOLSkrhhiNeUmxTboZ4G6ya+KwW9oIKrJFue1vPN7mFxg KWv/02eHudOT0uEKLmweHWoesUenVXW+/YQLN36W/+KRA/Zr/yvUYJTAQKfc 3u5JtGH5dl55CbDS/Pulp9BtXmyz5RLQk9gVaDLI99PUc9m+FGIXUvN0Ac+b 0FV14pbCWBnzWwcm5uG2So1LpSCs+o3p74R2uSxOt+XBYtxN5xBnNF2dlc/h wScSA0hzwXkdiz7vBR44rz1Lz3RFK8dDkHkZXD2XmpXthv2zj6NGcspAvZCX XXGa7KtotDVdBqrh0q7qM+ht/UILdT6YTxza6HLH+WqBZNiRD62iwc0JD/T6 NRY/gQ9dH8xZT3tif9DlSIaADw/9C5LXvTCv7Mjp7eFDmW3+ypY3+T3bjhit 8KE2g2Gy64P+N2ix7y0BTAYJElR90Zvj3Ls2AijasH507FMRQKbEbSpSACzD 5GC6H54nq57y5Argnpb0sIO/CHoVpClLdwSQ8/mZS44B6G5ZZPM89v2MpcGB 2E+a0ptREMLoblhLRBC63vrlO2ZC8D1lGJEZjJ6JLx8JFcLJv5rnhSE438ng 1BcIodmOQ1Wcxfx4PbemWQgM+o5rayjulz3L2pkVQtBqN737M3TsldMphyj4 fcdhvScM992WZekaU5Ak9hNPh+M8x4ZtEkABT6WnYj4C+1X7osDvKND4I8x4 EQ06aq8Vsyi4UiftXkbTat4P6UGL6Yy/10hfFKhikEPBvYD+E7RI9I+3cjcu UrBeOXr7BBoaY1hcNoX/x2lJEnGb5N0+IQUPnn4VnoqmWS9lX6AoCGs9tp6O 7m3fmTMqpyDeOUQtl+Sd71G87ym4GDcfIiTz3TlvhFVS0Nr0cKWDuNdyeaua AtvUvK/vkj7TA27U4D72Bm/2kn36oqrCRRSMS2JNx0g+UBowWEvB0tpq6jzx 8OqgoB7v6+DIL5L73Q70XK9R8CLb+IdlMj+ikbWD3lM+17VG+mNM60gxhe8B Jc9XpO8eIlBroECh7qc/t0h//PzaELokwfv8Pul7FrhnNFKgTn8hkxHfv3rd tImC/wHt7T90 "]]}, Annotation[#, "Charting`Private`Tag$41808#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1994.7968749999998`, 721.3000000000001}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1995., 2008.}, {746., 1240.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.9639778016927385`*^9}}, CellLabel-> "Out[2453]=",ExpressionUUID->"3f292005-23ff-48ad-b313-29acd98d0303"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The percentage of the error is \"\>", "\[InvisibleSpace]", "0.49153815051868566`"}], SequenceForm["The percentage of the error is ", 0.49153815051868566`], Editable->False]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016927385`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"3552a923-2c91-4f80-abec-8387120d4b13"], Cell[BoxData[ StyleBox["\<\"Exercise 4-part (5)\"\>", StripOnInput->False, FontWeight->Bold]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.9639778016927385`*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"d028b65b-a12b-4e67-ade9-3015aa9c080c"] }, Open ]], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[1, 0.5, 0.5], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{15., 746.}, {15.1, 800.}, {17.8, 819.}, {20.7, 890.}, {21.1, 926.}, {23., 1005.}, {23., 1022.}, {23.4, 1081.}, {26.8, 1087.}, {28.9, 1147.}, {29., 1185.}, {33.1, 1240.}, {29.5, 1230.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV0Hsw1AkAB/BtW+5szmhPJY8rlM7Jrl2LZf30TdfDo6JyWmlJ6XHYUq3k GWXaXfb1y9FRm6bzqJGoRm0SMXnEiKIoqfOosaLu9ES5vT++853PX9+Zr03k /k1RVAqFsl6f/zt8dMyIQmFCUGu95ARVgsmrG8fXUJmwoFLeSWZLkJNY+VBO Y+LprwPVcpoEzUbiAksjJkLvF2/OM5SA8/P0cneG3t2s45foEhhG0QNFS5gI G1050MGQoLzfPrdvHRPhC3YXWttJ8K0z3FarZiJqf7nVjVUSqC78a3OdxUI/ K9Not0yCibAaunsDCyNLzz+JapPgz7TK0zoHZyTmU3kWP0jBacw5F5rgjIRF l7L9NktxnWJWoLjrDPrT3PrWHCmuVNjJBk3ZMCxqedP8TArz7sXmjUI2ZOMr LybayPD7mDY/poSNwtiZNSmRMrglDZpyP7Jh95XaO1Uqg266NKl2BQe8ev+A Vp0MxhPbMntOctBl8DRoo2MWSoXnMhiPOegTlPtvjMvC8juph00XueDIYJN9 4dUs/HJqXMASuSA1ZdnHmC9ZyO3z739W7YI5uW0h497Z0C1cHRJA48JxqCq/ Li0bN9vaG55v4uKmz+tOk8ZsiA69X+Jyhosnj8N0l7+TQ6O8dPTiKBc7k8w/ NW+Qw2vxhtjLHq4Qaxbmns6Ro+EvebA4wxUWn8Lna7v11mxnCztd4RjxRhZs pUBZdsusOZZuePCt5qWPUIHZb23jVu90w6Rld/OQRoGuRuOuwko3qH05RdRh BeQk6Vg36Ybqsq7IOHsl6h6VxlP83BG0uMYsLFaJHdKyiPY8d8QyRrdOXVVC xwlYEfHSHVaewtTRCSXGgpLn/sjiwUo7p83RWoWeXet6pAk8TLyV+dK9VeC8 meWtqOPB5NVy01VCFQxG/POumXhAOPRPh0e6Cnd72cNnQjyQkCKg9p5X4eOK UvuSYg80/zTk5HZPBbP8W2Hidx4YCJ17n/9KhcK9t9idPE94/7bjSoGhGkVl fpPrT3qiQ9Cl0DqocWoo/oaiwxNOn0f60/zUmFK77H23iI86ja0DTaRG57Xn N17E8vEHLfX2gEoNZYvdNFnFB9cguW5fpRpNWyZd9hh4gW5y9k55lxqvH8VE zGzwQmllhNOZD2qIm9ocl+Z5QWq2dnhwHokU5xpd9LAXzqcF5o3wSMTKfTXx TAIZmdPaPAGJiKzbDbdZBAieuNghlMQWKWuEyibwWTdGVuvtlTmPq3QhIAp8 Ef1iGwl6yt8tJTwCoZb11suEJIpjjn7o8SHArjyZXhVJot//YgA/hMDLPoZv dzSJh75WB9O3EshXZrnuiSFxb60yr0lAINiHZvtF77JV4oHNYQRaSz5MWolI JPJXJsTsIFB1sKds1wESCxx7L5yNJqD4XmP6/rB+3yGgZTCGgG/1/K+ZYhLf 7GvHHUQEaCLlyIJ4Eq9sizyqDhBIfHSsnn+ExHWLuAftYgK7NTsPHz9KotR8 6L3ZEQI2QX0R8xJJFMwPsdiWQKBvdvD6Er0zGETU60QCm/atsW9NIhFvWiFz SiZgbFXL2J5MYp+JXcWhFALN7e4z43qHGed2a1P1f6ZXjB5LIRFIN5qaSdP/ yXXoYaSS+A/jZiuA "]]}, Annotation[#, "Charting`Private`Tag$41890#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{14.7171875, 721.3000000000001}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{15., 33.1}, {746., 1240.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.963974728409848*^9, 3.9639748540616713`*^9, 3.9639748841478395`*^9, { 3.9639749223570232`*^9, 3.963974935317435*^9}, 3.9639749736621237`*^9, 3.9639750370981607`*^9, {3.9639750689618497`*^9, 3.963975088336707*^9}, 3.963975430359722*^9, {3.963975673803522*^9, 3.963975695541057*^9}, { 3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.96397777388243*^9, 3.9639778016927385`*^9}}, CellLabel-> "Out[2456]=",ExpressionUUID->"80218359-9cc4-4870-8f32-8b6b11cc1276"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The production when the incoem is 40 billion rupees is \"\>", "\[InvisibleSpace]", "1484.1833025885153`"}], SequenceForm[ "The production when the incoem is 40 billion rupees is ", 1484.1833025885153`], Editable->False]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.963977801708686*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"80060cea-09d3-426b-b0ee-739e4f21a618"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The year that the income is equal to 40 billion rupees is \ \"\>", "\[InvisibleSpace]", "2014.5066323320602`"}], SequenceForm[ "The year that the income is equal to 40 billion rupees is ", 2014.5066323320602`], Editable->False]], "Print", CellChangeTimes->{ 3.9639736241471853`*^9, 3.963973664536104*^9, {3.9639737150124836`*^9, 3.9639737530607257`*^9}, 3.963973917789442*^9, 3.9639739863248396`*^9, 3.9639740246879396`*^9, 3.963974160700144*^9, {3.9639742155709686`*^9, 3.9639742753669944`*^9}, 3.9639743262485905`*^9, 3.9639743579418125`*^9, { 3.963974440923632*^9, 3.9639745191477547`*^9}, 3.963974728362359*^9, 3.963974853998001*^9, 3.963974884100215*^9, {3.9639749222932825`*^9, 3.963974935254114*^9}, 3.9639749735987587`*^9, 3.963975037045686*^9, { 3.963975068898489*^9, 3.9639750882879868`*^9}, 3.963975430359722*^9, { 3.963975673788636*^9, 3.963975695523996*^9}, {3.9639758398480797`*^9, 3.9639758580182943`*^9}, {3.9639777738666353`*^9, 3.963977801708686*^9}}, CellLabel-> "During evaluation of \ In[2403]:=",ExpressionUUID->"42e51f35-aa2f-42d3-9982-ed48598a6153"] }, Open ]] }, Open ]] }, WindowSize->{951., 477.75}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification:>1.4 Inherited, FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (January 30, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"37bc2e9d-1fa7-4414-a230-658cf7264966" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 12933, 345, 1987, "Input",ExpressionUUID->"92373540-7265-44ca-ad84-d67f75e10a41"], Cell[13516, 369, 981, 17, 30, "Print",ExpressionUUID->"e3bf912c-688a-40f3-9b68-7fd0776f9e75"], Cell[14500, 388, 1405, 37, 99, "Output",ExpressionUUID->"68e4c8ae-ab94-412f-8990-1cc6576748c1"], Cell[15908, 427, 1399, 37, 99, "Output",ExpressionUUID->"0f1f998c-c585-4516-80c0-6b818cb2a8c3"], Cell[17310, 466, 1775, 49, 379, "Output",ExpressionUUID->"c4867c7e-d4c7-4efd-8683-0cc65e295d1a"], Cell[19088, 517, 988, 17, 32, "Print",ExpressionUUID->"b75e9764-4c22-492a-a199-23a88b2a6188"], Cell[20079, 536, 1823, 44, 355, "Output",ExpressionUUID->"05ad0275-159d-4dac-9dcb-b323e6f42c8c"], Cell[21905, 582, 988, 17, 32, "Print",ExpressionUUID->"7d320f65-6565-4a27-a57e-de550f96b146"], Cell[22896, 601, 1853, 44, 349, "Output",ExpressionUUID->"ef4fbd5e-8977-4cbe-9afc-0fb620500085"], Cell[24752, 647, 986, 17, 32, "Print",ExpressionUUID->"b6a7a091-bb22-4341-9222-3dbeef33fc33"], Cell[25741, 666, 2167, 49, 349, "Output",ExpressionUUID->"d1208e17-adcd-4373-9b2b-af6115247590"], Cell[27911, 717, 982, 17, 32, "Print",ExpressionUUID->"c23f72f5-15ad-4d71-9844-df1ff7f1956c"], Cell[28896, 736, 6848, 133, 355, "Output",ExpressionUUID->"9d1e1ac4-f4a1-434c-be0b-10a739604493"], Cell[CellGroupData[{ Cell[35769, 873, 1374, 26, 32, "Print",ExpressionUUID->"ddea2193-7676-49a6-90fb-d5e467079558"], Cell[37146, 901, 1278, 23, 32, "Print",ExpressionUUID->"0a5ad3c2-ee5d-42bd-aa72-54bfb187bfa6"], Cell[38427, 926, 984, 17, 32, "Print",ExpressionUUID->"33735e87-c91d-49c3-8baa-4d1c5920e005"] }, Open ]], Cell[39426, 946, 3608, 75, 349, "Output",ExpressionUUID->"3f292005-23ff-48ad-b313-29acd98d0303"], Cell[CellGroupData[{ Cell[43059, 1025, 1116, 19, 32, "Print",ExpressionUUID->"3552a923-2c91-4f80-abec-8387120d4b13"], Cell[44178, 1046, 984, 17, 32, "Print",ExpressionUUID->"d028b65b-a12b-4e67-ade9-3015aa9c080c"] }, Open ]], Cell[45177, 1066, 3710, 78, 353, "Output",ExpressionUUID->"80218359-9cc4-4870-8f32-8b6b11cc1276"], Cell[CellGroupData[{ Cell[48912, 1148, 1167, 21, 32, "Print",ExpressionUUID->"80060cea-09d3-426b-b0ee-739e4f21a618"], Cell[50082, 1171, 1171, 21, 32, "Print",ExpressionUUID->"42e51f35-aa2f-42d3-9982-ed48598a6153"] }, Open ]] }, Open ]] } ] *)