(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 45969, 1156] NotebookOptionsPosition[ 26772, 767] NotebookOutlinePosition[ 43431, 1066] CellTagsIndexPosition[ 43388, 1063] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Tarea 9 : Importando y Exportando Ficheros\ \>", "Title", CellChangeTimes->{{3.4282168005625*^9, 3.428216817078125*^9}, { 3.42866948146875*^9, 3.42866948296875*^9}}], Cell[CellGroupData[{ Cell["Ejercicio 1", "Subsection", CellChangeTimes->{{3.4286487744130387`*^9, 3.4286487768974133`*^9}}], Cell[TextData[{ "La siguiente tabla muestra los tiempos de ejecuci\[OAcute]n de un programa \ de n datos de entrada para diversos valores que n\n \n", Cell[BoxData[ TagBox[ TagBox[ TagBox[ TagBox[GridBox[{ { TagBox["n", HoldForm], "5", "10", "15", "20", "25", "30", "35", "40"}, { TagBox["t", HoldForm], "4", "10", "17", "35", "42", "37", "71", "85"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, None}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{$CellContext`n, $CellContext`t}, None}]]], {OutputFormsDump`HeadedRows, None}], Function[BoxForm`e$, TableForm[BoxForm`e$, TableHeadings -> {{"n", "t"}, None}]]]], CellChangeTimes->{{3.4286490079599133`*^9, 3.4286490212255387`*^9}, { 3.4286490614442887`*^9, 3.4286490749599133`*^9}}], "\nEstos datos se encuentran en el fichero ejerc1t9.xls.\na) Importar los \ datos y representarlos gr\[AAcute]ficamente. Guardar este gr\[AAcute]fico en \ una variable, puntos.\nb) Calcular el polinomio de segundo grado que mejor se \ ajusta a los datos y representarlo gr\[AAcute]ficamente guardando la gr\ \[AAcute]fica en una variable poli. Mostrar conjuntamente la gr\[AAcute]fica \ del polinomio y los puntos. Exportar este gr\[AAcute]fico a un fichero \ graficos.jpeg .\nc) Calcular mediante un ciclo los polinomios de aproximaci\ \[OAcute]n de grados 1 a 6 . A continuaci\[OAcute]n calcular los errores \ cuadr\[AAcute]ticos medios de cada polinomio.\nd) Crear una tabla de la forma \ {{\"grado: \",1,\"Error cuadrat: ", Cell[BoxData[ FormBox["\"\<,\!\( \*SubscriptBox[\(e\), \(1\)]\)\>", TraditionalForm]]], ",\"t estimado 45 dat: \", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["p", "i"], "[", "45", "]"}], TraditionalForm]]], "},{....},...} y exportarla a un fichero \"resultados1.xls\"." }], "Text", CellChangeTimes->{{3.4286488487099133`*^9, 3.4286488784599133`*^9}, { 3.4286490851474133`*^9, 3.4286491161630387`*^9}, {3.4286492732099133`*^9, 3.4286493005067887`*^9}, {3.4286493366161633`*^9, 3.4286494664599133`*^9}, { 3.4286495112411633`*^9, 3.4286495885067887`*^9}, {3.4286508272567887`*^9, 3.4286508299599133`*^9}, {3.4286512974442887`*^9, 3.4286514396005387`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datos", "=", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4286496114599133`*^9, 3.4286496523817887`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.`", ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "10.`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.`", ",", "17.`"}], "}"}], ",", RowBox[{"{", RowBox[{"20.`", ",", "35.`"}], "}"}], ",", RowBox[{"{", RowBox[{"25.`", ",", "42.`"}], "}"}], ",", RowBox[{"{", RowBox[{"30.`", ",", "67.`"}], "}"}], ",", RowBox[{"{", RowBox[{"35.`", ",", "71.`"}], "}"}], ",", RowBox[{"{", RowBox[{"40.`", ",", "85.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.472279508546875*^9, {3.472279584796875*^9, 3.47227961834375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"puntos", "=", RowBox[{"ListPlot", "[", RowBox[{"datos", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".02", "]"}], ",", "Blue"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4286496623974133`*^9, 3.4286496884130387`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{{5., 4.}, {10., 10.}, {15., 17.}, {20., 35.}, {25., 42.}, {30., 67.}, {35., 71.}, {40., 85.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.47227951525*^9, 3.472279620796875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"p2", "[", "x_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"datos", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", "x"}], "]"}]}], ";", RowBox[{"poli", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "40"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4286498436786633`*^9, 3.4286499125380387`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwVxXk41HkAB+BpqX3KVGrayDEz5GpcI1HO+fAlctXEbz0Pj9qZXLsk12yW DkvSbI9Wsqgej6VVWx5DTDYlxr05pkPHhu0akxwpTbMZebK7f7zPayI8sDvm CxqNFvyf/y8/IlzmEF3jOUOXdPuvZcm6hthB4WwxL2DzT9V5C0zZYk9rLpt9 lscv3kTaXzFl5bIC1lL2ZZ5gVcMfW24yZYkeov0fWc283OGJPHo0Uzb0Kb74 Hes278n9D01HrxnLvhx5afmG9YTXSzIS0sONZJV9FSlTrAletYUTs7R0g0xS Jx5JtJvnfTyl62ZVyJDF8e6dnU7VgkmL9VbfRh1ZknKTQipZDiffX4LF4TTZ CpNjls+26UJlOvx6tvNp2yndfk7lNwxciZ4Mvzr9liccCWvTGliPuSzHEtd5 baR0HxMesDRAaa2+PF+ti6vJ9FD9HcZofvjsbBRDD5VZCZPccDbiN74Znuo3 Rk7FAv/DtAmEA0fEjQxT0IaeoyVzI0KcHPOi3cxhkR6bEcYxR9KYxkTZYIUx denXOrcs4O57R5SpsUaA8rvDRSlWcBxqMlSctkfIWKE1k8kBzC+uzClywGSn MPvPWmtMx+y9FO3tCLs1j4zJXlu0zK+rSzFywgqeWjCqssOsjY3EYdQZfm8i PppSXAQuThmzerfhr47oJRE2DmgrEbe/lbji2omuPWy1A4x9DZtcstwRu1T0 XC7fDI9y052qNE/sS826Rj/niMhiM3tiBdjHWcuDBFug++SeaM86L9xZa6Mj cnGCui5GEqLnjZuSnPM2Ws44GNkzXaRDkLWEs2vgb2fYt/O8bfV8sGI00z9J uhXbVYyaPrYvlBdNiisObUNBboeUZbgdxVYbtJspF/hGMY4k2Pqh8Fxsr4Dt inp+jyOL64+I4ig5fdwVmScVZ5y5OzDnU62paHVD0qNZwQv/ACiU3hkd+e4Y 7tz3MJIfiCoPB8NBgQcOTz84OpkahNo80Zo4W08wv1/ZNpcbjHxqX6CW2hMz 3fO1dkUhcBqtvJw/yEPT5yqX9Td2omzT+drBQECkCOOmxu/CUVlBWWAzsGXc r/09jY9gQ6q6z8wLOmNfPWOV8eGV1Bu5RuwF1viyf1IsdqPCSGg2oPaCZId0 iV3Hbph1XioJifTGq9/rDMbDQlFo28G53+qN5TMjrxeUoYhVad+7zSFomVGZ 9x8Lg/Dqe7b4Z4Kmy72cAAMKiTmhCwGnCaJfWBS9NqIgCpU+pp8hyJW2rs1n UTihFp0qLCEwtS3b22VGQeKi+VRaTvA47r0l7Clo2hcfXawh0NfySXP3oVB4 n17Q1UuweDfyg18ShXMX9scfv03gcVCeM5FM4UK6nPj3E8xc/4FzMo1C0/rC +X45Qe2qzG55BoXRCEb80EOCai1TTnguBUvFBvJSQZDAWC1JLKPAlWYyf1MS vEvWubv6PAXXvBFNzDjB1LfQaSynEGRZXj8xSeBmFzaoqaKQmsBmzs4ShNI2 Zp+opXDI/UdNg4rgsMtYgk09hbyVLx+kqwkMVj1NvttAoazuwsm5OYJGcVaP /nUKVdnacTfmCeq5LL1bNyjU8GO8Dy0QsNM+ZQtuUZCa9hh7fibQ4utqL5NR aFVZaBYXCaL6on690kHhX1MUK0I= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 40}, {-7.767855728862953, 87.04166421088435}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.472279626859375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"graficos", "=", RowBox[{"Show", "[", RowBox[{"puntos", ",", " ", "poli"}], "]"}]}]], "Input", CellChangeTimes->{{3.4286499318974133`*^9, 3.4286499423505387`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{{5., 4.}, {10., 10.}, {15., 17.}, {20., 35.}, {25., 42.}, {30., 67.}, {35., 71.}, {40., 85.}}]}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwVxXk41HkAB+BpqX3KVGrayDEz5GpcI1HO+fAlctXEbz0Pj9qZXLsk12yW DkvSbI9Wsqgej6VVWx5DTDYlxr05pkPHhu0akxwpTbMZebK7f7zPayI8sDvm CxqNFvyf/y8/IlzmEF3jOUOXdPuvZcm6hthB4WwxL2DzT9V5C0zZYk9rLpt9 lscv3kTaXzFl5bIC1lL2ZZ5gVcMfW24yZYkeov0fWc283OGJPHo0Uzb0Kb74 Hes278n9D01HrxnLvhx5afmG9YTXSzIS0sONZJV9FSlTrAletYUTs7R0g0xS Jx5JtJvnfTyl62ZVyJDF8e6dnU7VgkmL9VbfRh1ZknKTQipZDiffX4LF4TTZ CpNjls+26UJlOvx6tvNp2yndfk7lNwxciZ4Mvzr9liccCWvTGliPuSzHEtd5 baR0HxMesDRAaa2+PF+ti6vJ9FD9HcZofvjsbBRDD5VZCZPccDbiN74Znuo3 Rk7FAv/DtAmEA0fEjQxT0IaeoyVzI0KcHPOi3cxhkR6bEcYxR9KYxkTZYIUx denXOrcs4O57R5SpsUaA8rvDRSlWcBxqMlSctkfIWKE1k8kBzC+uzClywGSn MPvPWmtMx+y9FO3tCLs1j4zJXlu0zK+rSzFywgqeWjCqssOsjY3EYdQZfm8i PppSXAQuThmzerfhr47oJRE2DmgrEbe/lbji2omuPWy1A4x9DZtcstwRu1T0 XC7fDI9y052qNE/sS826Rj/niMhiM3tiBdjHWcuDBFug++SeaM86L9xZa6Mj cnGCui5GEqLnjZuSnPM2Ws44GNkzXaRDkLWEs2vgb2fYt/O8bfV8sGI00z9J uhXbVYyaPrYvlBdNiisObUNBboeUZbgdxVYbtJspF/hGMY4k2Pqh8Fxsr4Dt inp+jyOL64+I4ig5fdwVmScVZ5y5OzDnU62paHVD0qNZwQv/ACiU3hkd+e4Y 7tz3MJIfiCoPB8NBgQcOTz84OpkahNo80Zo4W08wv1/ZNpcbjHxqX6CW2hMz 3fO1dkUhcBqtvJw/yEPT5yqX9Td2omzT+drBQECkCOOmxu/CUVlBWWAzsGXc r/09jY9gQ6q6z8wLOmNfPWOV8eGV1Bu5RuwF1viyf1IsdqPCSGg2oPaCZId0 iV3Hbph1XioJifTGq9/rDMbDQlFo28G53+qN5TMjrxeUoYhVad+7zSFomVGZ 9x8Lg/Dqe7b4Z4Kmy72cAAMKiTmhCwGnCaJfWBS9NqIgCpU+pp8hyJW2rs1n UTihFp0qLCEwtS3b22VGQeKi+VRaTvA47r0l7Clo2hcfXawh0NfySXP3oVB4 n17Q1UuweDfyg18ShXMX9scfv03gcVCeM5FM4UK6nPj3E8xc/4FzMo1C0/rC +X45Qe2qzG55BoXRCEb80EOCai1TTnguBUvFBvJSQZDAWC1JLKPAlWYyf1MS vEvWubv6PAXXvBFNzDjB1LfQaSynEGRZXj8xSeBmFzaoqaKQmsBmzs4ShNI2 Zp+opXDI/UdNg4rgsMtYgk09hbyVLx+kqwkMVj1NvttAoazuwsm5OYJGcVaP /nUKVdnacTfmCeq5LL1bNyjU8GO8Dy0QsNM+ZQtuUZCa9hh7fibQ4utqL5NR aFVZaBYXCaL6on690kHhX1MUK0I= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.47227962865625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "graficos", ",", "\"\\"", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"Scaled", "[", "1.2", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4286499482255387`*^9, 3.4286499903974133`*^9}}], Cell[BoxData["\<\"graficos.jpeg\"\>"], "Output", CellChangeTimes->{3.472279632375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["p", "i"], "[", "x_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"datos", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "k"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "i"}], "}"}]}], "]"}], ",", "x"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ SubscriptBox["p", "i"], "[", "x", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4286500281317887`*^9, 3.4286501018974133`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "13.749999999999972`"}], "+", RowBox[{"2.449999999999999`", " ", "x"}]}]], "Print", CellChangeTimes->{3.472279635359375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "7.767857142857133`"}], "+", RowBox[{"1.7321428571428563`", " ", "x"}], "+", RowBox[{"0.015952380952380964`", " ", SuperscriptBox["x", "2"]}]}]], "Print", CellChangeTimes->{3.472279635375*^9}], Cell[BoxData[ RowBox[{"5.857142857142831`", "\[InvisibleSpace]", "-", RowBox[{"1.1029581529581487`", " ", "x"}], "+", RowBox[{"0.1645887445887444`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.002202020202020198`", " ", SuperscriptBox["x", "3"]}]}]], "Print", CellChangeTimes->{3.472279635390625*^9}], Cell[BoxData[ RowBox[{"7.625000000000348`", "\[InvisibleSpace]", "-", RowBox[{"1.62260101010112`", " ", "x"}], "+", RowBox[{"0.2098863636363734`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.003702020202020526`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.000016666666666670283`", " ", SuperscriptBox["x", "4"]}]}]], "Print", CellChangeTimes->{3.47227963540625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "15.750000000000068`"}], "+", RowBox[{"7.036864801864583`", " ", "x"}], "-", RowBox[{"0.8542482517482135`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.05325524475524231`", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"0.001356410256410189`", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"0.000012205128205127532`", " ", SuperscriptBox["x", "5"]}]}]], "Print", CellChangeTimes->{3.472279635421875*^9}], Cell[BoxData[ RowBox[{"73.62499999992797`", "\[InvisibleSpace]", "-", RowBox[{"31.975635198103777`", " ", "x"}], "+", RowBox[{"5.266446192691426`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.40299475524441525`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.016088034188021842`", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"0.0003177948717946511`", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"2.4444444444429077`*^-6", " ", SuperscriptBox["x", "6"]}]}]], "Print", CellChangeTimes->{3.4722796354375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["e", "i"], "=", SqrtBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "8"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"datos", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{ SubscriptBox["p", "i"], "[", RowBox[{"datos", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "]"}]}], ")"}], "2"], "/", "8"}]}]]}], ";", RowBox[{"Print", "[", SubscriptBox["e", "i"], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4286501339755387`*^9, 3.4286502208505387`*^9}}], Cell[CellGroupData[{ Cell[BoxData["4.348131782731521`"], "Print", CellChangeTimes->{3.472279636671875*^9}], Cell[BoxData["3.9454049523585333`"], "Print", CellChangeTimes->{3.4722796366875*^9}], Cell[BoxData["3.152894979736364`"], "Print", CellChangeTimes->{3.472279636703125*^9}], Cell[BoxData["3.1489987586244146`"], "Print", CellChangeTimes->{3.47227963671875*^9}], Cell[BoxData["3.017564645031868`"], "Print", CellChangeTimes->{3.472279636734375*^9}], Cell[BoxData["2.770091103245437`"], "Print", CellChangeTimes->{3.47227963675*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"resultados", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "i", ",", "\"\\"", ",", SubscriptBox["e", "i"], ",", "\"\\"", ",", RowBox[{ SubscriptBox["p", "i"], "[", "45", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4286502484442887`*^9, 3.4286502572724133`*^9}, { 3.4286503032255387`*^9, 3.4286504041630387`*^9}, {3.4286504776786633`*^9, 3.4286504898661633`*^9}, {3.4286506213349133`*^9, 3.4286506654442887`*^9}, { 3.4286507625380387`*^9, 3.4286507631474133`*^9}, {3.4286508552567887`*^9, 3.4286508564599133`*^9}, {3.4286509221474133`*^9, 3.4286509227880387`*^9}, { 3.4286510608036633`*^9, 3.4286511215380387`*^9}, {3.4286511606474133`*^9, 3.4286511716786633`*^9}, {3.4286512269130387`*^9, 3.4286512665067887`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Grado \"\>", ",", "1", ",", "\<\"Error cuadrat.\"\>", ",", "4.348131782731521`", ",", "\<\"t estimado 45 dat.\"\>", ",", "96.49999999999997`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Grado \"\>", ",", "2", ",", "\<\"Error cuadrat.\"\>", ",", "3.9454049523585333`", ",", "\<\"t estimado 45 dat.\"\>", ",", "102.48214285714286`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Grado \"\>", ",", "3", ",", "\<\"Error cuadrat.\"\>", ",", "3.152894979736364`", ",", "\<\"t estimado 45 dat.\"\>", ",", "88.857142857143`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Grado \"\>", ",", "4", ",", "\<\"Error cuadrat.\"\>", ",", "3.1489987586244146`", ",", "\<\"t estimado 45 dat.\"\>", ",", "90.62500000000045`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Grado \"\>", ",", "5", ",", "\<\"Error cuadrat.\"\>", ",", "3.017564645031868`", ",", "\<\"t estimado 45 dat.\"\>", ",", "113.99999999999727`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Grado \"\>", ",", "6", ",", "\<\"Error cuadrat.\"\>", ",", "2.770091103245437`", ",", "\<\"t estimado 45 dat.\"\>", ",", "203.375`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4722796378125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "resultados", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.4286504091942887`*^9, 3.4286504295536633`*^9}}], Cell[BoxData["\<\"resultados1.xls\"\>"], "Output", CellChangeTimes->{3.472279639765625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ejercicio 2", "Subsection", CellChangeTimes->{{3.4286514887567887`*^9, 3.4286514911786633`*^9}}], Cell[TextData[{ "La siguiente tabla muestra la evoluci\[OAcute]n de una enfermedad \ contagiosa. t indica el tiempo en d\[IAcute]as y n el n\.ba de personas \ contagiadas. \n", Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["dias", HoldForm], TagBox[ RowBox[{"N\.ba", " ", "personas"}], HoldForm]}, {"0", "1"}, {"1", "734"}, {"2", "5182"}, {"3", "28766"}, {"4", "74899"}, {"5", "95661"}, {"6", "99389"}, {"7", "99917"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, 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, {$CellContext`dias, $CellContext`N\.ba $CellContext`personas}}]]]], CellChangeTimes->{{3.4286518138974133`*^9, 3.4286518532411633`*^9}}], "\nEstos datos se encuentran en el fichero \"ejerc2t9.xls\".\na) Importar el \ fichero y representar gr\[AAcute]ficamente los puntos guardando el \ gr\[AAcute]fico en una variable puntos.\nb) Calcular el polinomio de ajuste \ que tenga un error cuadr\[AAcute]tico medio menor que 2000. Representar este \ polinomio junto con los datos y exportar esta gr\[AAcute]fica a un fichero \ \"grafico1.jpeg\".\nc) \[DownQuestion]Es adecuado este ajuste para detectar \ el n\.ba de contagiados en m\[AAcute]s de 7 d\[IAcute]as? Razonar la \ respuesta.\nd) Obtener ayuda sobre el comando FindFit y utilizarlo para \ obtener un ajuste de la forma : f(t) = ", Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{"a", "+", SuperscriptBox["be", RowBox[{ RowBox[{"-", "2"}], "t"}]]}]], TraditionalForm]]], ". \ne) Representar esta funci\[OAcute]n junto con los datos y exportar esta \ gr\[AAcute]fica a un fichero \"grafico2.jpeg\". Representar en una linea este \ gr\[AAcute]fico junto con el anterior y exportar a un fichero \"graficos.jpeg\ \" utilizando la opci\[OAcute]n ImageSize para obtener un gr\[AAcute]fico del \ tam\[NTilde]o deseado.\nf) Calcular el error cuadr\[AAcute]tico medio \ cometido con f(t).\n" }], "Text", CellChangeTimes->{{3.4286514990224133`*^9, 3.4286515041942887`*^9}, { 3.4286515954755387`*^9, 3.4286516438974133`*^9}, {3.4286518380224133`*^9, 3.4286518596786633`*^9}, {3.4286519350224133`*^9, 3.4286519838505387`*^9}, { 3.4286523356630387`*^9, 3.4286524506161633`*^9}, {3.4286529872880387`*^9, 3.4286532251942887`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"l", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "734"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5182"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "28766"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "74899"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "95661"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "99389"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "99917"}], "}"}]}], "}"}]}], ";", RowBox[{"ListPlot", "[", "l", "]"}]}]], "Input", CellChangeTimes->{{3.4286516511474133`*^9, 3.4286518757567887`*^9}, { 3.4286521394286633`*^9, 3.4286521861942887`*^9}, {3.4286522984755387`*^9, 3.4286523099130387`*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[{{0., 1.}, {1., 734.}, {2., 5182.}, {3., 28766.}, {4., 74899.}, { 5., 95661.}, {6., 99389.}, {7., 99917.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.47227967978125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "l", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.4286518799130387`*^9, 3.4286519083192887`*^9}}], Cell[BoxData["\<\"ejerc2t9.xls\"\>"], "Output", CellChangeTimes->{3.47227968290625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p", "[", "x_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"l", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}]}], "}"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.4286519926630387`*^9, 3.4286520057099133`*^9}, { 3.4286520647880387`*^9, 3.4286521272724133`*^9}, {3.4286522028817887`*^9, 3.4286522430849133`*^9}, {3.4286522742880387`*^9, 3.4286522765067887`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "44.63228438157764`"}], "+", RowBox[{"22946.43444055675`", " ", "x"}], "-", RowBox[{"39072.9800407911`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"20777.399038461364`", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"3677.8602855477975`", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"211.6939102564123`", " ", SuperscriptBox["x", "5"]}]}]], "Output", CellChangeTimes->{3.472279684703125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e", "=", SqrtBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "8"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"l", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{"p", "[", RowBox[{"l", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "]"}]}], ")"}], "2"], "/", "8"}]}]]}]], "Input", CellChangeTimes->{{3.4286520164442887`*^9, 3.4286520587099133`*^9}}], Cell[BoxData["1859.0188222744287`"], "Output", CellChangeTimes->{3.472279685453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "[", "7", "]"}]], "Input", CellChangeTimes->{{3.4286529124755387`*^9, 3.4286529171786633`*^9}}], Cell[BoxData["100049.26107225986`"], "Output", CellChangeTimes->{3.472279685953125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"FindFit", "[", RowBox[{"l", ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "+", RowBox[{"b", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "t"}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.4286527788505387`*^9, 3.4286528329442887`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "0.000010000031020126264`"}], ",", RowBox[{"b", "\[Rule]", "0.009990250133745516`"}]}], "}"}]], "Output", CellChangeTimes->{3.47227968678125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "+", RowBox[{"b", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "t"}], "]"}]}]}], ")"}]}], "/.", "s"}]}]], "Input", CellChangeTimes->{{3.4286528382099133`*^9, 3.4286528578974133`*^9}}], Cell[BoxData[ FractionBox["1", RowBox[{"0.000010000031020126264`", "\[InvisibleSpace]", "+", RowBox[{"0.009990250133745516`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "t"}]]}]}]]], "Output", CellChangeTimes->{3.472279686890625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ef", "=", SqrtBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "8"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"l", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{"f", "[", RowBox[{"l", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "]"}]}], ")"}], "2"], "/", "8"}]}]]}]], "Input", CellChangeTimes->{{3.4286520164442887`*^9, 3.4286520587099133`*^9}, { 3.4286528726474133`*^9, 3.4286528771942887`*^9}}], Cell[BoxData["35.002157363356844`"], "Output", CellChangeTimes->{3.47227968734375*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{904, 651}, WindowMargins->{{-5, Automatic}, {Automatic, -6}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], Magnification->1.25, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 179, 5, 210, "Title"], Cell[CellGroupData[{ Cell[771, 31, 103, 1, 38, "Subsection"], Cell[877, 34, 2851, 61, 316, "Text"], Cell[CellGroupData[{ Cell[3753, 99, 261, 6, 58, "Input"], Cell[4017, 107, 661, 20, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4715, 132, 329, 9, 58, "Input"], Cell[5047, 143, 380, 9, 380, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5464, 157, 624, 18, 87, "Input"], Cell[6091, 177, 2095, 40, 380, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8223, 222, 194, 4, 58, "Input"], Cell[8420, 228, 2134, 39, 380, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10591, 272, 285, 5, 58, "Input"], Cell[10879, 279, 87, 1, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11003, 285, 643, 20, 58, "Input"], Cell[CellGroupData[{ Cell[11671, 309, 167, 4, 33, "Print"], Cell[11841, 315, 242, 6, 33, "Print"], Cell[12086, 323, 324, 7, 33, "Print"], Cell[12413, 332, 402, 9, 33, "Print"], Cell[12818, 343, 479, 12, 33, "Print"], Cell[13300, 357, 557, 13, 33, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13906, 376, 855, 27, 115, "Input"], Cell[CellGroupData[{ Cell[14786, 407, 86, 1, 33, "Print"], Cell[14875, 410, 85, 1, 33, "Print"], Cell[14963, 413, 86, 1, 33, "Print"], Cell[15052, 416, 86, 1, 33, "Print"], Cell[15141, 419, 86, 1, 33, "Print"], Cell[15230, 422, 82, 1, 33, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15361, 429, 940, 17, 87, "Input"], Cell[16304, 448, 1315, 27, 197, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17656, 480, 206, 4, 58, "Input"], Cell[17865, 486, 92, 1, 58, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18006, 493, 103, 1, 38, "Subsection"], Cell[18112, 496, 2935, 69, 543, "Text"], Cell[CellGroupData[{ Cell[21072, 569, 841, 24, 115, "Input"], Cell[21916, 595, 357, 9, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22310, 609, 194, 4, 58, "Input"], Cell[22507, 615, 88, 1, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22632, 621, 567, 13, 58, "Input"], Cell[23202, 636, 468, 12, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23707, 653, 556, 18, 115, "Input"], Cell[24266, 673, 88, 1, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24391, 679, 124, 2, 58, "Input"], Cell[24518, 683, 88, 1, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24643, 689, 441, 13, 58, "Input"], Cell[25087, 704, 217, 5, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25341, 714, 362, 12, 58, "Input"], Cell[25706, 728, 289, 7, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26032, 740, 610, 19, 115, "Input"], Cell[26645, 761, 87, 1, 58, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature ZxTn3dqeDq9QqBgM1W0JbI5l *)