(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 60518, 1905] NotebookOptionsPosition[ 53933, 1668] NotebookOutlinePosition[ 54267, 1683] CellTagsIndexPosition[ 54224, 1680] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["An\[AAcute]lisis Matem\[AAcute]tico II", "Title", CellChangeTimes->{{3.705835580765777*^9, 3.705835598252901*^9}}], Cell[CellGroupData[{ Cell["Multiplicadores de Lagrange", "Chapter", CellChangeTimes->{{3.7058356022328978`*^9, 3.705835612024239*^9}}], Cell[CellGroupData[{ Cell["JTP: Ing. Talijancic Iv\[AAcute]n", "Subchapter", CellChangeTimes->{{3.7058356182958717`*^9, 3.705835633134429*^9}}], Cell[CellGroupData[{ Cell["Teor\[IAcute]a:", "Section", CellChangeTimes->{{3.705835643608861*^9, 3.7058356488844137`*^9}}], Cell[TextData[{ "El m\[EAcute]todo de los ", StyleBox["Multiplicadores de Lagrange", FontSlant->"Italic"], " es un poderoso m\[EAcute]todo para determinar los valores extremos de \ funciones restringidas. Por ", StyleBox["restringidas", FontSlant->"Italic"], " nos refereminos a que su dominio est\[AAcute] acotado a cierto subconjunto \ en particular (como ser: una disco, una regi\[OAcute]n rect\[AAcute]ngular o \ tri\[AAcute]ngular, etc. ).\nEl ", StyleBox["M", FontSlant->"Italic"], "\[EAcute]", StyleBox["todo de Lagrange, ", FontSlant->"Italic"], "dice que losvalores extremos de una funcion", StyleBox[" f(x,y,z)", FontSlant->"Italic"], ", cuyas variables est\[AAcute]n sujetas a una restricci\[OAcute]n", StyleBox[" g(x,y,z)=0, ", FontSlant->"Italic"], "se encuentra sobre la superficie ", StyleBox["g=0", FontSlant->"Italic"], ", donde: El gradiente de ", StyleBox["f", FontSlant->"Italic"], " es paralelo al del ", StyleBox["g", FontSlant->"Italic"], ". \nSe debe tener cuidado al aplicar este m\[EAcute]todo, ya que es \ posible, que un valor extremo no ecista en realidad." }], "Text", CellChangeTimes->{{3.705835657808099*^9, 3.705835803818022*^9}, { 3.705849516062572*^9, 3.7058496566493683`*^9}, {3.705849778110222*^9, 3.705849803284129*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Ejemplo: ", "Section", CellChangeTimes->{{3.705835810260912*^9, 3.70583582297091*^9}}], Cell[CellGroupData[{ Cell["Libro: C\[AAcute]lculo en Varias Variables de Thomas 12Ed.- Pag. 815", \ "Subsection", CellChangeTimes->{{3.705835827055739*^9, 3.70583585213981*^9}, { 3.705851888214575*^9, 3.705851913112357*^9}}], Cell[CellGroupData[{ Cell["Enunciado", "Subsubsection", CellChangeTimes->{{3.705849888934599*^9, 3.705849892305141*^9}}], Cell[TextData[{ "Obtenga los m\[AAcute]ximos y m\[IAcute]nimos que toma la funci\[OAcute]n \ f(x,y)=xy, sobre la superficie ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "8"], "+", FractionBox[ SuperscriptBox["y", "2"], "2"]}], "=", "1."}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.705847408476472*^9, 3.705847411149993*^9}, { 3.705849806303742*^9, 3.705849860587655*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n", "Subsubsection", CellChangeTimes->{{3.705849907723135*^9, 3.7058499109582376`*^9}}], Cell[TextData[{ "Estamos buscando los extremos de f(xy)=xy, sijetos a la restricci\[OAcute]n \ g(x,y)=", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "8"], "+", FractionBox[ SuperscriptBox["y", "2"], "2"]}], "=", "1."}], TraditionalForm]], FormatType->"TraditionalForm"], "\nTenemos entonces:" }], "Text", CellChangeTimes->{{3.705849926241622*^9, 3.705849977129497*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"x", "*", "y"}]}]], "Input", CellChangeTimes->{{3.705849979273822*^9, 3.70584999231612*^9}, 3.705850176143722*^9, 3.705850345727316*^9}], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellChangeTimes->{ 3.705850176728107*^9, 3.7058503520727873`*^9, 3.7058504409175043`*^9, 3.7058520304025593`*^9, 3.7058673882530727`*^9, {3.7058676037138987`*^9, 3.7058676202402287`*^9}, 3.70586770281938*^9, 3.705867772825993*^9, 3.705868727984743*^9, 3.705868791056769*^9, 3.705871285279855*^9, 3.705913353519375*^9, 3.705913389749757*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705849995057123*^9, 3.7058500701446447`*^9}, { 3.705850186535185*^9, 3.7058501869090776`*^9}, {3.7058502249058228`*^9, 3.705850230050048*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"y", ",", "x"}], "}"}]], "Output", CellChangeTimes->{ 3.705849998246467*^9, {3.7058500372088947`*^9, 3.705850070855997*^9}, { 3.705850179420458*^9, 3.705850188250548*^9}, 3.7058502307864943`*^9, 3.7058503521027308`*^9, 3.705850441049798*^9, 3.705852030444097*^9, 3.705867388282997*^9, {3.705867603773329*^9, 3.705867620246653*^9}, 3.705867702824964*^9, 3.7058677728698473`*^9, 3.705868728104167*^9, 3.705868791096159*^9, 3.705871285287623*^9, 3.705913353584038*^9, 3.7059133899818373`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "8"], "+", FractionBox[ SuperscriptBox["y", "2"], "2"], "-", "1"}]}]], "Input", CellChangeTimes->{{3.705850244673448*^9, 3.705850294130932*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ SuperscriptBox["x", "2"], "8"], "+", FractionBox[ SuperscriptBox["y", "2"], "2"]}]], "Output", CellChangeTimes->{ 3.705850295025218*^9, 3.7058503521083384`*^9, 3.705850441080852*^9, 3.7058520304844723`*^9, 3.705867388311966*^9, {3.705867603777172*^9, 3.705867620288471*^9}, 3.70586770286896*^9, 3.705867772913445*^9, 3.705868728146256*^9, 3.705868791099805*^9, 3.705871285324174*^9, 3.705913353635755*^9, 3.705913390011204*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7058502984806633`*^9, 3.705850320590139*^9}, { 3.705850359051749*^9, 3.7058503993714743`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["x", "4"], ",", "y"}], "}"}]], "Output", CellChangeTimes->{{3.705850304481092*^9, 3.705850321380412*^9}, 3.705850352136386*^9, 3.705850400629315*^9, 3.70585044112897*^9, 3.705852030524323*^9, 3.705867388341579*^9, {3.7058676038293257`*^9, 3.705867620340847*^9}, 3.7058677029189577`*^9, 3.70586777296881*^9, 3.705868728188374*^9, 3.705868791132875*^9, 3.7058712853619127`*^9, 3.70591335366879*^9, 3.705913390040881*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y"}], "]"}], "==", RowBox[{"\[Lambda]", "*", RowBox[{"gradg", "[", RowBox[{"x", ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "\[Lambda]"}], "}"}]}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"Rule", "\[Rule]", "Equal"}]}]], "Input", CellChangeTimes->{{3.705850458641276*^9, 3.705850494338085*^9}, 3.7058506851680183`*^9, {3.705867571592587*^9, 3.7058676094254503`*^9}, { 3.705867645516005*^9, 3.705867648392106*^9}, {3.7058677488606462`*^9, 3.70586775063428*^9}, {3.7058687762668867`*^9, 3.7058687764012613`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", "2"}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", "2"}]}], ",", RowBox[{"y", "\[Equal]", "1"}], ",", RowBox[{"\[Lambda]", "\[Equal]", RowBox[{"-", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "2"}], ",", RowBox[{"y", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", RowBox[{"-", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "2"}], ",", RowBox[{"y", "\[Equal]", "1"}], ",", RowBox[{"\[Lambda]", "\[Equal]", "2"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7058504955117493`*^9, 3.70585068630446*^9, 3.705852030635112*^9, 3.705867388445525*^9, {3.705867604058467*^9, 3.705867649894371*^9}, 3.705867703027994*^9, 3.7058677730701447`*^9, 3.70586872823393*^9, 3.705868791179694*^9, 3.705871285409791*^9, 3.705913353887513*^9, 3.7059133900736427`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Usando los comandos del Mathematica", "Subsubsection", CellChangeTimes->{{3.7058678294584627`*^9, 3.70586783533554*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Minimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.70585098789557*^9, 3.7058510328919907`*^9}, { 3.70585106452394*^9, 3.705851076604225*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", "2"}]}], ",", RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.705851071503522*^9, 3.705851076944787*^9}, 3.705852030815781*^9, 3.705867388602862*^9, {3.705867604216803*^9, 3.705867620556716*^9}, 3.705867703074511*^9, 3.7058677731133137`*^9, 3.705868728278707*^9, 3.705868791231412*^9, 3.705871285460594*^9, 3.705913353982565*^9, 3.705913390112545*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Maximize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.70585098789557*^9, 3.7058510328919907`*^9}, { 3.70585106452394*^9, 3.705851086570715*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", "2"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7058510869536867`*^9, 3.705852030855358*^9, 3.705867388635594*^9, { 3.7058676042673492`*^9, 3.705867620614993*^9}, 3.705867703124522*^9, 3.7058677731564198`*^9, 3.705868728321024*^9, 3.705868791281066*^9, 3.7058712855657177`*^9, 3.7059133540178127`*^9, 3.7059133901513023`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "g", ",", "gradf", ",", "gradg"}], "]"}]], "Input", CellChangeTimes->{{3.705851843202387*^9, 3.705851856499401*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ejemplo 2: ", "Section", CellChangeTimes->{{3.705835810260912*^9, 3.70583582297091*^9}, { 3.705852695651904*^9, 3.7058526957564983`*^9}}], Cell[CellGroupData[{ Cell["Libro: C\[AAcute]lculo en Varias Variables de Thomas 12Ed.- Pag. 816", \ "Subsection", CellChangeTimes->{{3.705835827055739*^9, 3.70583585213981*^9}, { 3.705851888214575*^9, 3.705851933682454*^9}}], Cell[CellGroupData[{ Cell["Enunciado", "Subsubsection", CellChangeTimes->{{3.705849888934599*^9, 3.705849892305141*^9}}], Cell[TextData[{ "Obtenga los m\[AAcute]ximos y m\[IAcute]nimos que toma la funci\[OAcute]n \ f(x,y)=3x + 4y, sobre la circunferencia ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "=", "1"}], TraditionalForm]], FormatType->"TraditionalForm"], Cell[BoxData[ FormBox[".", TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.705847408476472*^9, 3.705847411149993*^9}, { 3.705849806303742*^9, 3.705849860587655*^9}, {3.7058519403469563`*^9, 3.705851969456855*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n", "Subsubsection", CellChangeTimes->{{3.705849907723135*^9, 3.7058499109582376`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ RowBox[{"3", "x"}], "+", RowBox[{"4", "y"}]}]}]], "Input", CellChangeTimes->{{3.705849979273822*^9, 3.70584999231612*^9}, 3.705850176143722*^9, 3.705850345727316*^9, {3.705851980462813*^9, 3.705851981962761*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"3", " ", "x"}], "+", RowBox[{"4", " ", "y"}]}]], "Output", CellChangeTimes->{ 3.705850176728107*^9, 3.7058503520727873`*^9, 3.7058504409175043`*^9, 3.705852030907467*^9, 3.7058521065686693`*^9, 3.705867388674672*^9, { 3.705867604318901*^9, 3.705867620669787*^9}, 3.705867703174756*^9, 3.7058677732012663`*^9, 3.705868728365634*^9, 3.7058687913841248`*^9, 3.705871285609906*^9, 3.7059133540539*^9, 3.705913390189391*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705849995057123*^9, 3.7058500701446447`*^9}, { 3.705850186535185*^9, 3.7058501869090776`*^9}, {3.7058502249058228`*^9, 3.705850230050048*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.705849998246467*^9, {3.7058500372088947`*^9, 3.705850070855997*^9}, { 3.705850179420458*^9, 3.705850188250548*^9}, 3.7058502307864943`*^9, 3.7058503521027308`*^9, 3.705850441049798*^9, 3.70585203091329*^9, 3.705852108197405*^9, 3.705867388709217*^9, {3.705867604369093*^9, 3.705867620719718*^9}, 3.705867703221554*^9, 3.705867773248685*^9, 3.705868728410906*^9, 3.7058687914271317`*^9, 3.705871285647938*^9, 3.705913354083724*^9, 3.705913390222282*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "-", "1"}]}]], "Input", CellChangeTimes->{{3.705850244673448*^9, 3.705850294130932*^9}, { 3.705851986268222*^9, 3.705851993045738*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]], "Output", CellChangeTimes->{ 3.705850295025218*^9, 3.7058503521083384`*^9, 3.705850441080852*^9, 3.705852030949411*^9, 3.705852110409401*^9, 3.7058673887439833`*^9, { 3.705867604373625*^9, 3.705867620724162*^9}, 3.705867703266778*^9, 3.705867773252986*^9, 3.7058687284151373`*^9, 3.705868791431654*^9, 3.705871285685131*^9, 3.705913354112774*^9, 3.7059133902595778`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7058502984806633`*^9, 3.705850320590139*^9}, { 3.705850359051749*^9, 3.7058503993714743`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "x"}], ",", RowBox[{"2", " ", "y"}]}], "}"}]], "Output", CellChangeTimes->{{3.705850304481092*^9, 3.705850321380412*^9}, 3.705850352136386*^9, 3.705850400629315*^9, 3.70585044112897*^9, 3.705852030991338*^9, 3.7058521124254923`*^9, 3.705867388778425*^9, { 3.705867604424451*^9, 3.705867620775147*^9}, 3.705867703319498*^9, 3.705867773302565*^9, 3.70586872845827*^9, 3.705868791475176*^9, 3.7058712857226057`*^9, 3.705913354143463*^9, 3.705913390293571*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y"}], "]"}], "==", RowBox[{"\[Lambda]", "*", RowBox[{"gradg", "[", RowBox[{"x", ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "\[Lambda]"}], "}"}]}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"Rule", "\[Rule]", "Equal"}]}]], "Input", CellChangeTimes->{{3.705850458641276*^9, 3.705850494338085*^9}, 3.7058506851680183`*^9, {3.705852088081232*^9, 3.7058520891008177`*^9}, { 3.7058675499671593`*^9, 3.705867563830229*^9}, {3.7058676565820303`*^9, 3.705867660630435*^9}, {3.7058687681148577`*^9, 3.705868768411901*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["3", "5"]}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{"-", FractionBox["4", "5"]}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", RowBox[{"-", FractionBox["5", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", FractionBox["3", "5"]}], ",", RowBox[{"y", "\[Equal]", FractionBox["4", "5"]}], ",", RowBox[{"\[Lambda]", "\[Equal]", FractionBox["5", "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7058504955117493`*^9, 3.70585068630446*^9, 3.705852031062381*^9, { 3.705852091013344*^9, 3.705852113773918*^9}, 3.7058673888399773`*^9, { 3.705867604471197*^9, 3.705867620824416*^9}, 3.7058677033687696`*^9, 3.7058677733492537`*^9, 3.705868728504622*^9, 3.7058687915131283`*^9, 3.705871285763361*^9, 3.705913354194027*^9, 3.705913390329*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Usando los comandos de mathematica:", "Subsubsection", CellChangeTimes->{{3.7058525181969*^9, 3.705852524905078*^9}}], Cell["\<\ Por lo tanto los m\[AAcute]ximos y m\[IAcute]nimos de f son 2 y -2 \ respectivamente y se dan en los puntos (2,1),(2,-1),(-2,1),(-2,-1).\ \>", "Text", CellChangeTimes->{{3.705850909303652*^9, 3.705850969535788*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Minimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.70585098789557*^9, 3.7058510328919907`*^9}, { 3.70585106452394*^9, 3.705851076604225*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["3", "5"]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox["4", "5"]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.705851071503522*^9, 3.705851076944787*^9}, 3.705852031189575*^9, 3.7058673891801653`*^9, {3.7058676051803827`*^9, 3.705867621546318*^9}, 3.705867703513873*^9, 3.705867773402981*^9, 3.705868728554467*^9, 3.7058687915540457`*^9, 3.705871285814543*^9, 3.705913354229467*^9, 3.705913390369638*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Maximize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.70585098789557*^9, 3.7058510328919907`*^9}, { 3.70585106452394*^9, 3.705851086570715*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox["3", "5"]}], ",", RowBox[{"y", "\[Rule]", FractionBox["4", "5"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7058510869536867`*^9, 3.705852031233602*^9, 3.7058673892229443`*^9, { 3.705867605237702*^9, 3.705867621601869*^9}, 3.705867703571006*^9, 3.7058677734579067`*^9, 3.7058687286045923`*^9, 3.7058687915982018`*^9, 3.705871285860263*^9, 3.705913354268561*^9, 3.705913390409067*^9}] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "gradf", ",", "gradg"}], "]"}]], "Input", CellChangeTimes->{{3.705851843202387*^9, 3.705851856499401*^9}, { 3.705852615855791*^9, 3.705852645146566*^9}, {3.705867728148821*^9, 3.705867736667015*^9}, {3.705868771336947*^9, 3.7058687714737597`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 22 - Gu\[IAcute]a de TPs de C\[AAcute]tedra", "Section", CellChangeTimes->{{3.705854178286911*^9, 3.7058541972753277`*^9}}], Cell["Tenemos:", "Text", CellChangeTimes->{{3.705854201329245*^9, 3.70585420308925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"2", SuperscriptBox["y", "2"]}], "-", "x"}]}]], "Input", CellChangeTimes->{{3.705854211339857*^9, 3.705854230554432*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "+", SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}]], "Output", CellChangeTimes->{ 3.705854231062138*^9, 3.705854350558886*^9, 3.7058673892665977`*^9, { 3.705867605295722*^9, 3.705867621657583*^9}, 3.7058677036291924`*^9, 3.705867773551641*^9, 3.70586872865589*^9, 3.705868791650827*^9, 3.7058712859069443`*^9, 3.7059133543080072`*^9, 3.705913390450441*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854231993491*^9, 3.7058542643095016`*^9}, { 3.7058543351201468`*^9, 3.7058543389834414`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}], ",", RowBox[{"4", " ", "y"}]}], "}"}]], "Output", CellChangeTimes->{ 3.705854264649837*^9, {3.705854339858735*^9, 3.7058543519721317`*^9}, 3.705867389304319*^9, {3.7058676053472643`*^9, 3.705867621741509*^9}, 3.70586770367708*^9, 3.705867773594708*^9, 3.705868728699984*^9, 3.7058687916930847`*^9, 3.7058712859478903`*^9, 3.705913354339528*^9, 3.705913390483029*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "-", "1"}]}]], "Input", CellChangeTimes->{{3.705854272207238*^9, 3.7058542881033*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]], "Output", CellChangeTimes->{ 3.7058542892386312`*^9, 3.705854354002616*^9, 3.705867389309054*^9, { 3.705867605351963*^9, 3.7058676217900333`*^9}, 3.7058677037241592`*^9, 3.7058677736381598`*^9, 3.705868728745185*^9, 3.70586879169849*^9, 3.705871285986761*^9, 3.705913354369452*^9, 3.7059133905121727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854290740032*^9, 3.7058543160367517`*^9}, { 3.705854356658531*^9, 3.705854363149187*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "x"}], ",", RowBox[{"2", " ", "y"}]}], "}"}]], "Output", CellChangeTimes->{ 3.705854316487649*^9, 3.705854363611947*^9, 3.705867389342374*^9, { 3.705867605401195*^9, 3.7058676218390293`*^9}, 3.705867703770361*^9, 3.705867773683303*^9, 3.705868728787486*^9, 3.705868791741314*^9, 3.705871286024712*^9, 3.705913354399976*^9, 3.7059133905443993`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", RowBox[{"\[Lambda]", "*", RowBox[{"gradg", "[", RowBox[{"x", ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "\[Lambda]"}], "}"}]}], "]"}], "/.", RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]], "Input", CellChangeTimes->{{3.705854321366108*^9, 3.705854327614552*^9}, { 3.705854367307337*^9, 3.705854446747211*^9}, {3.70586736111712*^9, 3.70586737451714*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"y", "\[Equal]", "0"}], ",", RowBox[{"\[Lambda]", "\[Equal]", FractionBox["3", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["1", "2"]}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["1", "2"]}]}], ",", RowBox[{"y", "\[Equal]", FractionBox[ SqrtBox["3"], "2"]}], ",", RowBox[{"\[Lambda]", "\[Equal]", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "1"}], ",", RowBox[{"y", "\[Equal]", "0"}], ",", RowBox[{"\[Lambda]", "\[Equal]", FractionBox["1", "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7058543840989923`*^9, {3.705854432091208*^9, 3.7058544479649887`*^9}, 3.705867389385909*^9, {3.705867605457765*^9, 3.705867621886047*^9}, 3.705867703827347*^9, 3.7058677737295427`*^9, 3.705868728843967*^9, 3.705868791783401*^9, 3.705871286073326*^9, 3.705913354466098*^9, 3.705913390581623*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Usando los comandos del Mathematica:", "Subsubsection", CellChangeTimes->{{3.7058674247223997`*^9, 3.705867432299329*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Minimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "/.", RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]], "Input", CellChangeTimes->{{3.705859495768708*^9, 3.705859562179202*^9}, 3.7058596001857758`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "1"}], ",", RowBox[{"y", "\[Equal]", "0"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7058595629627733`*^9, 3.705859600741448*^9, 3.7058673896509438`*^9, { 3.705867605516408*^9, 3.7058676219336853`*^9}, 3.705867703887413*^9, 3.705867773777576*^9, 3.705868728896496*^9, 3.7058687918268127`*^9, 3.705871286121475*^9, 3.705913354505191*^9, 3.7059133906221237`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Maximize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "/.", RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]], "Input", CellChangeTimes->{{3.705859569867299*^9, 3.705859602241309*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["9", "4"], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["1", "2"]}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.705859573825942*^9, 3.7058596027882833`*^9}, 3.7058673897020617`*^9, {3.7058676055731907`*^9, 3.7058676219816427`*^9}, 3.70586770394685*^9, 3.7058677738239317`*^9, 3.705868728947878*^9, 3.705868791868782*^9, 3.7058712861694727`*^9, 3.705913354544845*^9, 3.705913390666803*^9}] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "gradf", ",", "gradg"}], "]"}]], "Input", CellChangeTimes->{{3.705868756997303*^9, 3.705868757327964*^9}, { 3.705868905113422*^9, 3.705868905902194*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 23 - Gu\[IAcute]a de TPs de C\[AAcute]tedra", "Section", CellChangeTimes->{{3.705854178286911*^9, 3.7058541972753277`*^9}, { 3.705868506448141*^9, 3.705868506890067*^9}}], Cell["Tenemos:", "Text", CellChangeTimes->{{3.705854201329245*^9, 3.70585420308925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"6", "x", "*", "y"}], "+", RowBox[{"6", "x", "*", "z"}], "+", RowBox[{"6", "y", "*", "z"}]}]}]], "Input", CellChangeTimes->{{3.705854211339857*^9, 3.705854230554432*^9}, { 3.705868514625677*^9, 3.7058685622396584`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"6", " ", "x", " ", "y"}], "+", RowBox[{"6", " ", "x", " ", "z"}], "+", RowBox[{"6", " ", "y", " ", "z"}]}]], "Output", CellChangeTimes->{ 3.705854231062138*^9, 3.705854350558886*^9, 3.7058673892665977`*^9, { 3.705867605295722*^9, 3.705867621657583*^9}, 3.7058677036291924`*^9, 3.705867773551641*^9, 3.7058685359046803`*^9, 3.70586857094055*^9, 3.70586872905345*^9, 3.7058687919160547`*^9, {3.7058688351252813`*^9, 3.7058688625106697`*^9}, 3.705871286211378*^9, 3.7059133546542273`*^9, 3.705913390705488*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854231993491*^9, 3.7058542643095016`*^9}, { 3.7058543351201468`*^9, 3.7058543389834414`*^9}, {3.705868551452941*^9, 3.705868567365885*^9}, {3.705868634854458*^9, 3.705868641120955*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", "y"}], "+", RowBox[{"6", " ", "z"}]}], ",", RowBox[{ RowBox[{"6", " ", "x"}], "+", RowBox[{"6", " ", "z"}]}], ",", RowBox[{ RowBox[{"6", " ", "x"}], "+", RowBox[{"6", " ", "y"}]}]}], "}"}]], "Output", CellChangeTimes->{3.705871286252452*^9, 3.705913354684663*^9, 3.705913390741241*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"x", "*", "y", "*", "z"}], "-", "500"}]}]], "Input", CellChangeTimes->{{3.705854272207238*^9, 3.7058542881033*^9}, { 3.7058685863879967`*^9, 3.705868598043716*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "500"}], "+", RowBox[{"x", " ", "y", " ", "z"}]}]], "Output", CellChangeTimes->{{3.705868869792293*^9, 3.7058688745031767`*^9}, 3.705871286258827*^9, 3.7059133547152767`*^9, 3.705913390775172*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854290740032*^9, 3.7058543160367517`*^9}, { 3.705854356658531*^9, 3.705854363149187*^9}, {3.7058686053477287`*^9, 3.7058686306224957`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"y", " ", "z"}], ",", RowBox[{"x", " ", "z"}], ",", RowBox[{"x", " ", "y"}]}], "}"}]], "Output", CellChangeTimes->{3.705871286299068*^9, 3.705913354744383*^9, 3.705913390837987*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Lambda]", "*", RowBox[{"gradg", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z", ",", "\[Lambda]"}], "}"}]}], "]"}], "/.", RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], "//", "N"}], "//", "Real"}]], "Input", CellChangeTimes->{{3.705854321366108*^9, 3.705854327614552*^9}, { 3.705854367307337*^9, 3.705854446747211*^9}, {3.70586736111712*^9, 3.70586737451714*^9}, {3.705868652228981*^9, 3.705868679117697*^9}, { 3.705871305136325*^9, 3.705871333121339*^9}}], Cell[BoxData[ RowBox[{"Real", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{ RowBox[{"-", "3.9685026299204966`"}], "+", RowBox[{"6.873648184993013`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{ RowBox[{"-", "3.9685026299204966`"}], "+", RowBox[{"6.873648184993013`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"z", "\[Equal]", RowBox[{ RowBox[{"-", "3.9685026299204966`"}], "+", RowBox[{"6.873648184993013`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", RowBox[{ RowBox[{"-", "0.755952629936924`"}], "-", RowBox[{"1.3093483631660656`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "7.937005259840997`"}], ",", RowBox[{"y", "\[Equal]", "7.937005259840997`"}], ",", RowBox[{"z", "\[Equal]", "7.937005259840997`"}], ",", RowBox[{"\[Lambda]", "\[Equal]", "1.5119052598738478`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{ RowBox[{"-", "3.9685026299204993`"}], "-", RowBox[{"6.873648184993012`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{ RowBox[{"-", "3.9685026299204993`"}], "-", RowBox[{"6.873648184993012`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"z", "\[Equal]", RowBox[{ RowBox[{"-", "3.9685026299204993`"}], "-", RowBox[{"6.873648184993012`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", RowBox[{ RowBox[{"-", "0.7559526299369236`"}], "+", RowBox[{"1.3093483631660658`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]}], "}"}], "]"}]], "Output", CellChangeTimes->{ 3.705869058390663*^9, 3.705871286348794*^9, {3.70587131848081*^9, 3.705871334046708*^9}, 3.7059133547832747`*^9, 3.705913390875651*^9}] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "gradg", ",", "gradg"}], "]"}]], "Input", CellChangeTimes->{{3.705869723531362*^9, 3.705869734037159*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problema 24 - Gu\[IAcute]a de TPs de C\[AAcute]tedra", "Section", CellChangeTimes->{{3.705854178286911*^9, 3.7058541972753277`*^9}, { 3.705868506448141*^9, 3.705868506890067*^9}, {3.7058696760632963`*^9, 3.705869678283106*^9}}], Cell["Tenemos:", "Text", CellChangeTimes->{{3.705854201329245*^9, 3.70585420308925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"3", "*", SqrtBox[ RowBox[{"16", "+", SuperscriptBox["x", "2"]}]]}], "+", RowBox[{"5", "*", SqrtBox[ RowBox[{"4", "+", SuperscriptBox["y", "2"]}]]}], "+", RowBox[{"2", "z"}]}]}]], "Input", CellChangeTimes->{{3.705854211339857*^9, 3.705854230554432*^9}, { 3.705868514625677*^9, 3.7058685622396584`*^9}, {3.705869684857759*^9, 3.705869718170582*^9}, {3.7058699919830427`*^9, 3.705869996439403*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"3", " ", SqrtBox[ RowBox[{"16", "+", SuperscriptBox["x", "2"]}]]}], "+", RowBox[{"5", " ", SqrtBox[ RowBox[{"4", "+", SuperscriptBox["y", "2"]}]]}], "+", RowBox[{"2", " ", "z"}]}]], "Output", CellChangeTimes->{ 3.705854231062138*^9, 3.705854350558886*^9, 3.7058673892665977`*^9, { 3.705867605295722*^9, 3.705867621657583*^9}, 3.7058677036291924`*^9, 3.705867773551641*^9, 3.7058685359046803`*^9, 3.70586857094055*^9, 3.70586872905345*^9, 3.7058687919160547`*^9, {3.7058688351252813`*^9, 3.7058688625106697`*^9}, {3.705869719069212*^9, 3.705869745103895*^9}, 3.705869996754507*^9, 3.705871286394079*^9, 3.705913354820673*^9, 3.7059133909148827`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854231993491*^9, 3.7058542643095016`*^9}, { 3.7058543351201468`*^9, 3.7058543389834414`*^9}, {3.705868551452941*^9, 3.705868567365885*^9}, {3.705868634854458*^9, 3.705868641120955*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"3", " ", "x"}], SqrtBox[ RowBox[{"16", "+", SuperscriptBox["x", "2"]}]]], ",", FractionBox[ RowBox[{"5", " ", "y"}], SqrtBox[ RowBox[{"4", "+", SuperscriptBox["y", "2"]}]]], ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.7058697488204308`*^9, 3.705869998301347*^9, 3.705871286433297*^9, 3.705913354852109*^9, 3.705913390947555*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"x", "+", "y", "+", "z", "-", "8"}]}]], "Input", CellChangeTimes->{{3.705854272207238*^9, 3.7058542881033*^9}, { 3.7058685863879967`*^9, 3.705868598043716*^9}, {3.705869835479926*^9, 3.705869837851467*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "8"}], "+", "x", "+", "y", "+", "z"}]], "Output", CellChangeTimes->{{3.705868869792293*^9, 3.7058688745031767`*^9}, 3.705869838774056*^9, 3.705870245630588*^9, 3.7058712864704447`*^9, 3.705913354883378*^9, 3.705913390979478*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854290740032*^9, 3.7058543160367517`*^9}, { 3.705854356658531*^9, 3.705854363149187*^9}, {3.7058686053477287`*^9, 3.7058686306224957`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.705869841132695*^9, 3.705870248049341*^9, 3.7058712865204487`*^9, 3.705913354913434*^9, 3.705913391011857*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Lambda]", "*", RowBox[{"gradg", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z", ",", "\[Lambda]"}], "}"}]}], "]"}], "/.", RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.705854321366108*^9, 3.705854327614552*^9}, { 3.705854367307337*^9, 3.705854446747211*^9}, {3.70586736111712*^9, 3.70586737451714*^9}, {3.705868652228981*^9, 3.705868679117697*^9}, { 3.70587039989028*^9, 3.705870400493823*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "3.5777087639996634`"}], ",", RowBox[{"y", "\[Equal]", "0.8728715609439696`"}], ",", RowBox[{"z", "\[Equal]", "3.549419675056367`"}], ",", RowBox[{"\[Lambda]", "\[Equal]", "2.`"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.705869058390663*^9, 3.7058698431878767`*^9, 3.705870250168342*^9, 3.705870401088728*^9, 3.705871286572249*^9, 3.705913354954389*^9, 3.705913391043172*^9}] }, Open ]], Cell["El m\[IAcute]nimo costo del oleod\[UAcute]cto, ser\[AAcute], por lo \ tanto:", "Text", CellChangeTimes->{{3.705871256284562*^9, 3.705871276843622*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{ RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "3", ",", "2"}], "]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.705870402522843*^9, 3.705870445091599*^9}}], Cell[BoxData["34.10942329991084`"], "Output", CellChangeTimes->{{3.70587041004679*^9, 3.7058704456004543`*^9}, 3.705871286610436*^9, 3.705913354986302*^9, 3.7059133910502462`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g", ",", "gradf", ",", "gradg", ",", "s"}], "]"}]], "Input", CellChangeTimes->{{3.7058720470436172`*^9, 3.705872059276813*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problema 26 - Gu\[IAcute]a de TPs de C\[AAcute]tedra", "Section", CellChangeTimes->{{3.705854178286911*^9, 3.7058541972753277`*^9}, { 3.705868506448141*^9, 3.705868506890067*^9}, {3.7058696760632963`*^9, 3.705869678283106*^9}, {3.705871991223062*^9, 3.70587199268841*^9}}], Cell["Tenemos:", "Text", CellChangeTimes->{{3.705854201329245*^9, 3.70585420308925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]}]], "Input", CellChangeTimes->{{3.705854211339857*^9, 3.705854230554432*^9}, { 3.705868514625677*^9, 3.7058685622396584`*^9}, {3.705869684857759*^9, 3.705869718170582*^9}, {3.7058699919830427`*^9, 3.705869996439403*^9}, { 3.705871996166585*^9, 3.705872043752357*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]], "Output", CellChangeTimes->{ 3.705854231062138*^9, 3.705854350558886*^9, 3.7058673892665977`*^9, { 3.705867605295722*^9, 3.705867621657583*^9}, 3.7058677036291924`*^9, 3.705867773551641*^9, 3.7058685359046803`*^9, 3.70586857094055*^9, 3.70586872905345*^9, 3.7058687919160547`*^9, {3.7058688351252813`*^9, 3.7058688625106697`*^9}, {3.705869719069212*^9, 3.705869745103895*^9}, 3.705869996754507*^9, 3.705871286394079*^9, {3.70587204462532*^9, 3.705872065144606*^9}, 3.705913355023419*^9, 3.7059133911113977`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854231993491*^9, 3.7058542643095016`*^9}, { 3.7058543351201468`*^9, 3.7058543389834414`*^9}, {3.705868551452941*^9, 3.705868567365885*^9}, {3.705868634854458*^9, 3.705868641120955*^9}, { 3.705871997935903*^9, 3.705872004779963*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "x"}], ",", RowBox[{"2", " ", "y"}]}], "}"}]], "Output", CellChangeTimes->{3.7058697488204308`*^9, 3.705869998301347*^9, 3.705871286433297*^9, 3.705872067615193*^9, 3.70591335505481*^9, 3.705913391144726*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"8", "x", "*", "y"}], "+", RowBox[{"7", SuperscriptBox["y", "2"]}], "-", "255"}]}]], "Input", CellChangeTimes->{{3.705854272207238*^9, 3.7058542881033*^9}, { 3.7058685863879967`*^9, 3.705868598043716*^9}, {3.705869835479926*^9, 3.705869837851467*^9}, {3.7058720065321617`*^9, 3.705872009098214*^9}, { 3.7058720740884047`*^9, 3.7058720887052307`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "255"}], "+", SuperscriptBox["x", "2"], "+", RowBox[{"8", " ", "x", " ", "y"}], "+", RowBox[{"7", " ", SuperscriptBox["y", "2"]}]}]], "Output", CellChangeTimes->{{3.705868869792293*^9, 3.7058688745031767`*^9}, 3.705869838774056*^9, 3.705870245630588*^9, 3.7058712864704447`*^9, 3.705872089236588*^9, 3.70591335508445*^9, 3.7059133911751013`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.705854290740032*^9, 3.7058543160367517`*^9}, { 3.705854356658531*^9, 3.705854363149187*^9}, {3.7058686053477287`*^9, 3.7058686306224957`*^9}, {3.70587201366532*^9, 3.7058720205865602`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "+", RowBox[{"8", " ", "y"}]}], ",", RowBox[{ RowBox[{"8", " ", "x"}], "+", RowBox[{"14", " ", "y"}]}]}], "}"}]], "Output", CellChangeTimes->{3.705869841132695*^9, 3.705870248049341*^9, 3.7058712865204487`*^9, 3.705872091664955*^9, 3.705913355114855*^9, 3.7059133912061777`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gradf", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", RowBox[{"\[Lambda]", "*", RowBox[{"gradg", "[", RowBox[{"x", ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "\[Lambda]"}], "}"}], ",", "Reals"}], "]"}], "/.", RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.705854321366108*^9, 3.705854327614552*^9}, { 3.705854367307337*^9, 3.705854446747211*^9}, {3.70586736111712*^9, 3.70586737451714*^9}, {3.705868652228981*^9, 3.705868679117697*^9}, { 3.70587039989028*^9, 3.705870400493823*^9}, {3.705872023526266*^9, 3.705872029662203*^9}, {3.7058721062224703`*^9, 3.7058721423988953`*^9}, { 3.705913343865814*^9, 3.705913350839531*^9}, {3.705913384986331*^9, 3.7059134499795427`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", "2.3804761428476167`"}]}], ",", RowBox[{"y", "\[Equal]", RowBox[{"-", "4.760952285695233`"}]}], ",", RowBox[{"\[Lambda]", "\[Equal]", "0.1111111111111111`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "2.3804761428476167`"}], ",", RowBox[{"y", "\[Equal]", "4.760952285695233`"}], ",", RowBox[{"\[Lambda]", "\[Equal]", "0.1111111111111111`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.705869058390663*^9, 3.7058698431878767`*^9, 3.705870250168342*^9, 3.705870401088728*^9, 3.705871286572249*^9, {3.705872101494461*^9, 3.705872143136592*^9}, 3.705913355153013*^9, {3.705913391370758*^9, 3.705913451410223*^9}}] }, Open ]], Cell["\<\ Por lo tanto, la m\[IAcute]nima distancia entre la hip\[EAcute]rbola y el \ centro ser\[AAcute]:\ \>", "Text", CellChangeTimes->{{3.705913866653542*^9, 3.705913891088855*^9}}], Cell[CellGroupData[{ Cell[BoxData[ SqrtBox[ RowBox[{"f", "[", RowBox[{ RowBox[{"s", "[", RowBox[{"[", RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"s", "[", RowBox[{"[", RowBox[{"2", ",", "2", ",", "2"}], "]"}], "]"}]}], "]"}]]], "Input", CellChangeTimes->{{3.705913894735208*^9, 3.7059139024116707`*^9}, { 3.705913938427458*^9, 3.705913948302443*^9}}], Cell[BoxData["5.322906474223771`"], "Output", CellChangeTimes->{3.705913949279221*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1301, 744}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 121, 1, 93, "Title"], Cell[CellGroupData[{ Cell[726, 27, 114, 1, 66, "Chapter"], Cell[CellGroupData[{ Cell[865, 32, 123, 1, 65, "Subchapter"], Cell[CellGroupData[{ Cell[1013, 37, 102, 1, 65, "Section"], Cell[1118, 40, 1301, 36, 121, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2456, 81, 93, 1, 65, "Section"], Cell[CellGroupData[{ Cell[2574, 86, 206, 3, 45, "Subsection"], Cell[CellGroupData[{ Cell[2805, 93, 100, 1, 35, "Subsubsection"], Cell[2908, 96, 490, 14, 50, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3435, 115, 109, 1, 35, "Subsubsection"], Cell[3547, 118, 443, 14, 72, "Text"], Cell[CellGroupData[{ Cell[4015, 136, 239, 6, 32, "Input"], Cell[4257, 144, 410, 7, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4704, 156, 664, 20, 32, "Input"], Cell[5371, 178, 554, 10, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5962, 193, 298, 9, 59, "Input"], Cell[6263, 204, 522, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6822, 221, 615, 19, 32, "Input"], Cell[7440, 242, 494, 9, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7971, 256, 872, 22, 32, "Input"], Cell[8846, 280, 1220, 34, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10115, 320, 127, 1, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[10267, 325, 448, 13, 32, "Input"], Cell[10718, 340, 555, 13, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11310, 358, 448, 13, 32, "Input"], Cell[11761, 373, 543, 13, 32, "Output"] }, Open ]], Cell[12319, 389, 175, 3, 32, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12555, 399, 146, 2, 65, "Section"], Cell[CellGroupData[{ Cell[12726, 405, 206, 3, 45, "Subsection"], Cell[CellGroupData[{ Cell[12957, 412, 100, 1, 35, "Subsubsection"], Cell[13060, 415, 582, 16, 33, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[13679, 436, 109, 1, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[13813, 441, 327, 9, 32, "Input"], Cell[14143, 452, 475, 9, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14655, 466, 664, 20, 32, "Input"], Cell[15322, 488, 573, 10, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15932, 503, 301, 8, 34, "Input"], Cell[16236, 513, 505, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16778, 528, 615, 19, 32, "Input"], Cell[17396, 549, 541, 10, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17974, 564, 873, 22, 32, "Input"], Cell[18850, 588, 1003, 27, 49, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19902, 621, 124, 1, 35, "Subsubsection"], Cell[20029, 624, 226, 4, 33, "Text"], Cell[CellGroupData[{ Cell[20280, 632, 448, 13, 32, "Input"], Cell[20731, 647, 633, 16, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21401, 668, 448, 13, 32, "Input"], Cell[21852, 683, 547, 13, 49, "Output"] }, Open ]], Cell[22414, 699, 324, 5, 32, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22799, 711, 139, 1, 65, "Section"], Cell[22941, 714, 89, 1, 33, "Text"], Cell[CellGroupData[{ Cell[23055, 719, 272, 8, 34, "Input"], Cell[23330, 729, 458, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23825, 744, 617, 19, 32, "Input"], Cell[24445, 765, 502, 12, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24984, 782, 250, 7, 34, "Input"], Cell[25237, 791, 436, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25710, 805, 613, 19, 32, "Input"], Cell[26326, 826, 426, 9, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26789, 840, 729, 20, 32, "Input"], Cell[27521, 862, 1368, 40, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28926, 907, 129, 1, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[29080, 912, 502, 15, 32, "Input"], Cell[29585, 929, 499, 11, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30121, 945, 474, 14, 32, "Input"], Cell[30598, 961, 639, 17, 55, "Output"] }, Open ]], Cell[31252, 981, 227, 4, 32, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31528, 991, 188, 2, 65, "Section"], Cell[31719, 995, 89, 1, 33, "Text"], Cell[CellGroupData[{ Cell[31833, 1000, 351, 9, 32, "Input"], Cell[32187, 1011, 570, 11, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32794, 1027, 934, 26, 32, "Input"], Cell[33731, 1055, 394, 13, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34162, 1073, 288, 7, 32, "Input"], Cell[34453, 1082, 243, 5, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34733, 1092, 888, 26, 32, "Input"], Cell[35624, 1120, 244, 7, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35905, 1132, 959, 25, 32, "Input"], Cell[36867, 1159, 2030, 51, 77, "Output"] }, Open ]], Cell[38912, 1213, 178, 3, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[39127, 1221, 239, 3, 65, "Section"], Cell[39369, 1226, 89, 1, 33, "Text"], Cell[CellGroupData[{ Cell[39483, 1231, 565, 16, 45, "Input"], Cell[40051, 1249, 743, 18, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40831, 1272, 934, 26, 32, "Input"], Cell[41768, 1300, 449, 14, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42254, 1319, 321, 7, 32, "Input"], Cell[42578, 1328, 276, 5, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42891, 1338, 888, 26, 32, "Input"], Cell[43782, 1366, 218, 4, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44037, 1375, 951, 24, 32, "Input"], Cell[44991, 1401, 490, 10, 32, "Output"] }, Open ]], Cell[45496, 1414, 158, 2, 33, "Text"], Cell[CellGroupData[{ Cell[45679, 1420, 423, 12, 32, "Input"], Cell[46105, 1434, 184, 2, 32, "Output"] }, Open ]], Cell[46304, 1439, 193, 4, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[46534, 1448, 284, 3, 65, "Section"], Cell[46821, 1453, 89, 1, 33, "Text"], Cell[CellGroupData[{ Cell[46935, 1458, 439, 10, 34, "Input"], Cell[47377, 1470, 626, 11, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48040, 1486, 761, 21, 32, "Input"], Cell[48804, 1509, 280, 7, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49121, 1521, 512, 12, 34, "Input"], Cell[49636, 1535, 406, 9, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50079, 1549, 713, 20, 32, "Input"], Cell[50795, 1571, 384, 11, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51216, 1587, 1122, 27, 32, "Input"], Cell[52341, 1616, 819, 20, 32, "Output"] }, Open ]], Cell[53175, 1639, 186, 4, 33, "Text"], Cell[CellGroupData[{ Cell[53386, 1647, 393, 11, 44, "Input"], Cell[53782, 1660, 87, 1, 65, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)