(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 5166, 187] NotebookOptionsPosition[ 3994, 143] NotebookOutlinePosition[ 4503, 162] CellTagsIndexPosition[ 4460, 159] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Practica n\.ba 6: Integraci\[OAcute]n Num\[EAcute]rica\ \>", "Title", CellChangeTimes->{{3.50634125853125*^9, 3.506341267109375*^9}}], Cell[TextData[StyleBox["Calcular las f\[OAcute]rmulas de integraci\[OAcute]n \ de newton cotes cerradas y abiertas hasta diez puntos.", FontFamily->"Arial", FontSize->24]], "Subtitle", FontSize->16], Cell[CellGroupData[{ Cell["\<\ Crear una lista de puntos {{0,f[x[0]]},{1,f[x[1]]},....} (dependiendo del \ grado del polinomio) Crear el polinomio de inetrpolaci\[OAcute]n en la variable t con el comando \ InterpolatingPolynomial Integrar h*p[t] en el intervalo correspondiente. (hacer esto para valores de n desde n=1 hasta n=10 ,(desde 2 puntos a 11 \ puntos)) Proceso valido para ambos casos, solo var\[IAcute]an los l\[IAcute]mites \ de integraci\[OAcute]n\ \>", "Section"], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n", "Subsection"], Cell["Formulas cerradas", "Subsubsection"], Cell["Formulas abiertas", "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Dada", " ", "la", " ", RowBox[{"funci\[OAcute]n", ":", RowBox[{"f", "[", "x", "]"}]}]}], "=", RowBox[{"1", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], "*", RowBox[{"Sin", "[", RowBox[{"4", "*", "x"}], "]"}]}]}]}], ",", RowBox[{"realizar", " ", "la", " ", "integral", FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"f", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm], "mediante", " ", "las", " ", "f\[OAcute]rmulas", " ", "de", " ", "cuadratura", " ", "cerradas", " ", "de", " ", "2"}], ",", "3", ",", RowBox[{"4", " ", "y", " ", "5", " ", "puntos"}], ",", RowBox[{ "comparar", " ", "el", " ", "resultado", " ", "con", " ", "el", " ", "valor", " ", "exacto", " ", "de", " ", "la", " ", RowBox[{"integral", "."}]}]}]], "Section", FontFamily->"Arial"], Cell["\<\ Realizar el proceso del ejercicio anterior , sabiendo que x[i]=a+i*h a la \ hora de crear la lista de puntos\ \>", "Text"], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n", "Subsection"], Cell["Formulas cerradas", "Subsubsection"], Cell["Formulas abiertas", "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["M\[EAcute]todo Romberg", "Section", CellChangeTimes->{{3.50579799684375*^9, 3.505798018203125*^9}}, FontFamily->"Arial"], Cell[CellGroupData[{ Cell["\<\ Utilizar la aplicaci\[OAcute]n de Wolfram Demosntratios para entender el m\ \[EAcute]todo de Romberg. Pinchar sobre el link que aparece a continuaci\[OAcute]n. \ \>", "Subsection", CellChangeTimes->{{3.505798020796875*^9, 3.50579806803125*^9}, { 3.506341190296875*^9, 3.50634120184375*^9}}], Cell[BoxData[ StyleBox[ ButtonBox[ StyleBox[ RowBox[{ "Demostraci\[OAcute]n", " ", "del", " ", "m\[EAcute]todo", " ", "de", " ", "Romberg"}], "Text"], BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ NumericalIntegrationRombergsMethod/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/NumericalIntegrationRombergsMethod/"], "Text"]], "Text", CellChangeTimes->{ 3.505798122375*^9, {3.505798181375*^9, 3.505798199921875*^9}}, TextAlignment->Center, FontSize->16] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1272, 907}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 144, 3, 81, "Title"], Cell[726, 27, 201, 4, 29, "Subtitle"], Cell[CellGroupData[{ Cell[952, 35, 469, 11, 203, "Section"], Cell[CellGroupData[{ Cell[1446, 50, 38, 0, 24, "Subsection"], Cell[1487, 52, 42, 0, 23, "Subsubsection"], Cell[1532, 54, 42, 0, 23, "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1623, 60, 986, 27, 134, "Section"], Cell[2612, 89, 132, 3, 29, "Text"], Cell[CellGroupData[{ Cell[2769, 96, 38, 0, 24, "Subsection"], Cell[2810, 98, 42, 0, 23, "Subsubsection"], Cell[2855, 100, 42, 0, 23, "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2946, 106, 128, 2, 73, "Section"], Cell[CellGroupData[{ Cell[3099, 112, 307, 7, 58, "Subsection"], Cell[3409, 121, 545, 17, 32, "Text"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)