(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 115495, 4248]*) (*NotebookOutlinePosition[ 116179, 4271]*) (* CellTagsIndexPosition[ 116135, 4267]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["PRESENTACI\[CapitalOAcute]N PR\[CapitalAAcute]CTICA 3", "Title", TextAlignment->Center, TextJustification->0, FontColor->RGBColor[0, 0, 1], Background->RGBColor[0, 1, 1], FontVariations->{"CompatibilityType"->0}], Cell[CellGroupData[{ Cell[TextData[StyleBox["EXPRESIONES ALGEBRAICAS", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", Background->RGBColor[0.8, 1, 0.4]], Cell[TextData[{ "Para manipular expresiones algebraicas ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " dispone de diferentes funciones. Vamos a mencionar solamente unas pocas:" }], "Text"], Cell[TextData[{ StyleBox["Funci\[OAcute]n de ", FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox["Mathematica\t", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}], "\t\t\t", StyleBox["Qu\[EAcute] hace", FontWeight->"Bold", FontVariations->{"Underline"->True}], "\n\t", StyleBox["Expand[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["exp", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "\t\t\t\tdesarrolla productos y potencias positivas\n\t", StyleBox["ExpandAll[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["exp", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "\t\t\tdesarrolla productos y potencias (positivas y negativas)\n\t", StyleBox["Simplify[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["exp", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "\t\t\trealiza las transformaciones oportunas a ", StyleBox["exp", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], " para devolver la expresi\[OAcute]n m\[AAcute]s sencilla posible" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(expresion = \((2 + x)\)^4 + \((1 + x)\)^\(-4\) + \((3 + x)\)^3\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[BoxData[ \(1\/\((1 + x)\)\^4 + \((2 + x)\)\^4 + \((3 + x)\)\^3\)], "Output", CellLabel->"Out[1]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Expand[expresion]\)], "Input", CellLabel->"In[2]:=", CellMargins->{{Inherited, 30}, {Inherited, Inherited}}, FontSize->14], Cell[BoxData[ \(43 + 59\ x + 33\ x\^2 + 9\ x\^3 + x\^4 + 1\/\((1 + x)\)\^4\)], "Output",\ CellLabel->"Out[2]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ExpandAll[expresion]\)], "Input", CellLabel->"In[3]:=", CellMargins->{{Inherited, 30}, {Inherited, Inherited}}, FontSize->14], Cell[BoxData[ \(43 + 59\ x + 33\ x\^2 + 9\ x\^3 + x\^4 + 1\/\(1 + 4\ x + 6\ x\^2 + 4\ x\^3 + x\^4\)\)], "Output", CellLabel->"Out[3]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(exp1 = \((x^2 - 16)\) \((x - 4)\)^\(-3\)\)], "Input", CellLabel->"In[4]:=", CellMargins->{{Inherited, 30}, {Inherited, Inherited}}, FontSize->14], Cell[BoxData[ \(\(\(-16\) + x\^2\)\/\((\(-4\) + x)\)\^3\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[exp1]\)], "Input", CellLabel->"In[5]:=", CellMargins->{{Inherited, 30}, {Inherited, Inherited}}, FontSize->14], Cell[BoxData[ \(\(4 + x\)\/\((\(-4\) + x)\)\^2\)], "Output", CellLabel->"Out[5]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[6]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["OPERACIONES CON POLINOMIOS", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Polinomios", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell["\", "Text"], Cell[BoxData[ \(pol1 = 1 - x + x^5; pol2 = 3 + x - x^2;\)], "Input", CellLabel->"In[1]:=", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Suma de polinomios", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[CellGroupData[{ Cell[BoxData[ \(pol1 + pol2\)], "Input", CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \(4 - x\^2 + x\^5\)], "Output", CellLabel->"Out[2]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Producto de polinomios", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[CellGroupData[{ Cell[BoxData[ \(Expand[pol1\ pol2]\)], "Input", CellLabel->"In[3]:=", FontSize->14], Cell[BoxData[ \(3 - 2\ x - 2\ x\^2 + x\^3 + 3\ x\^5 + x\^6 - x\^7\)], "Output", CellLabel->"Out[3]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Cociente de polinomios", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[CellGroupData[{ Cell[BoxData[ \(PolynomialReduce[pol1, pol2, x]\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \({{\(-7\) - 4\ x - x\^2 - x\^3}, 22 + 18\ x}\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " El polinomio que aparece como primer elemento de la lista y entre llaves \ se corresponde con el cociente. El segundo elemento de la lista es el resto. \ Estos polinoios tambi\[EAcute]n los podemos obtener con las siguientes \ funciones:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(PolynomialQuotient[pol1, pol2, x]\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[BoxData[ \(\(-7\) - 4\ x - x\^2 - x\^3\)], "Output", CellLabel->"Out[5]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({PolynomialQuotient[pol1, pol2, x]} \[Equal] %4[\([1]\)]\)], "Input", CellLabel->"In[6]:=", FontSize->14], Cell[BoxData[ \(True\)], "Output", CellLabel->"Out[6]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(PolynomialRemainder[pol1, pol2, x]\)], "Input", CellLabel->"In[7]:=", FontSize->14], Cell[BoxData[ \(22 + 18\ x\)], "Output", CellLabel->"Out[7]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(PolynomialRemainder[pol1, pol2, x] \[Equal] %4[\([2]\)]\)], "Input", CellLabel->"In[8]:=", FontSize->14], Cell[BoxData[ \(True\)], "Output", CellLabel->"Out[8]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[9]:=", FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ECUACIONES Y SISTEMAS DE ECUACIONES POLINOMIALES", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Ra\[IAcute]ces de polinomios", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[TextData[{ "Las ra\[IAcute]ces de un polinomio se pueden calcular con ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " utilizando la funci\[OAcute]n ", StyleBox["Roots[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["pol", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["==0,", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["var", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " o bien num\[EAcute]ricamente con la funci\[OAcute]n ", StyleBox["NRoots[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["pol", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["==0,", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["var", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[BoxData[ \(\(p1 = x^3 - 2 x - 1;\)\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Roots[p1 \[Equal] 0, x]\)], "Input", CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \(x \[Equal] 1\/2\ \((1 - \@5)\) || x \[Equal] 1\/2\ \((1 + \@5)\) || x \[Equal] \(-1\)\)], "Output", CellLabel->"Out[2]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{"p1", ",", \({x, \(-3\), 3}\), StyleBox[",", FontColor->RGBColor[1, 0, 1]], StyleBox[\(PlotStyle \[Rule] Thickness[0.01]\), FontColor->RGBColor[1, 0, 1]]}], "]"}], ";"}]], "Input", CellLabel->"In[3]:=", FontSize->14], Cell[GraphicsData["PostScript", "\"], "Graphics", CellLabel->"From In[3]:=", ImageSize->{288, 177.938}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\omWIf@00<_oifmt2o omwif>omWI f@00<_oifmt2o>omWIf@00omWIf@00=?oIfMT2o`0005WofMWI00?o0000omWIfOoIfMT0S_oIfMT003CofMWI0_l0001I omWIf@03o`000?oIfMWofMWI08kofMWI000domWIf@;o0000FOoIfMT00ol0003ofMWIomWIf@2>omWI f@00=?oIfMT3o`0005SofMWI00?o0000omWIfOoIfMT0S_oIfMT003GofMWI0_l0001HomWIf@03o`00 0?oIfMWofMWI08kofMWI000eomWIf@;o0000F?oIfMT00ol0003ofMWIomWIf@2>omWIf@00=OoIfMT2 o`0005SofMWI0_l0002?omWIf@00=OoIfMT3o`0005OofMWI00?o0000omWIfOoIfMT0S_oIfMT003Ko fMWI0_l0001GomWIf@03o`000?oIfMWofMWI08kofMWI000fomWIf@;o0000EooIfMT00ol0003ofMWI omWIf@2>omWIf@00=_oIfMT2o`0005OofMWI00?o0000omWIfOoIfMT0S_oIfMT003KofMWI0ol0001F omWIf@03o`000?oIfMWofMWI08kofMWI000gomWIf@;o0000E_oIfMT00ol0003ofMWIomWIf@2>omWI f@00=ooIfMT2o`0004kofMWI0ol00005omWIf@03o`000?oIfMWofMWI08kofMWI000gomWIf@;o0000 CooIfMT00ol0003ofMWIomWIf@04omWIf@03o`000?oIfMWofMWI08kofMWI000gomWIf@?o0000AOoI fMT5o`000003omWIfOl0003o000000?o00001OoIfMT00ol0003ofMWIomWIf@2>omWIf@00>?oIfMT2 o`0004_ofMWI00Co0000omWIfOoIfMWo00001_oIfMT3o`0008kofMWI000homWIf@;o0000C?oIfMT0 0ol0003ofMWIo`000006omWIf@03o`000?oIfMWofMWI08kofMWI000homWIf@;o0000COoIfMT2o`00 00KofMWI00?o0000omWIfOoIfMT0S_oIfMT003SofMWI0ol0001=omWIf@03o`000?oIfMWofMWI00Co fMWI00?o0000omWIfOoIfMT0S_oIfMT003WofMWI0_l0001DomWIf@03o`000?oIfMWofMWI08kofMWI 000iomWIf@;o0000E?oIfMT00ol0003ofMWIomWIf@2>omWIf@00>OoIfMT3o`0005?ofMWI00?o0000 omWIfOoIfMT0S_oIfMT003[ofMWI0_l0001ComWIf@03o`000?oIfMWofMWI08kofMWI000jomWIf@;o 0000DooIfMT00ol0003ofMWIomWIf@2>omWIf@00>_oIfMT3o`0005;ofMWI00?o0000omWIfOoIfMT0 S_oIfMT003_ofMWI0_l0001BomWIf@;o0000SooIfMT003_ofMWI0_l0001BomWIf@03o`000?oIfMWo fMWI08kofMWI000komWIf@?o0000DOoIfMT00ol0003ofMWIomWIf@2>omWIf@00??oIfMT2o`00057o fMWI00?o0000omWIfOoIfMT0S_oIfMT003cofMWI0_l0001AomWIf@03o`000?oIfMWofMWI08kofMWI 000lomWIf@?o0000D?oIfMT00ol0003ofMWIomWIf@2>omWIf@00?OoIfMT2o`00053ofMWI00?o0000 omWIfOoIfMT0S_oIfMT003gofMWI0_l0001@omWIf@03o`000?oIfMWofMWI08kofMWI000momWIf@?o 0000CooIfMT00ol0003ofMWIomWIf@2>omWIf@00?_oIfMT2o`0004oofMWI0_l0002?omWIf@00?_oI fMT2o`0004oofMWI00?o0000omWIfOoIfMT0S_oIfMT003kofMWI0ol0001>omWIf@03o`000?oIfMWo fMWI08kofMWI000oomWIf@;o0000C_oIfMT00ol0003ofMWIomWIf@2>omWIf@00?ooIfMT2o`0004ko fMWI00?o0000omWIfOoIfMT0S_oIfMT003oofMWI0ol0001=omWIf@03o`000?oIfMWofMWI08kofMWI 0010omWIf@;o0000COoIfMT00ol0003ofMWIomWIf@2>omWIf@00@?oIfMT2o`0004gofMWI00?o0000 omWIfOoIfMT0S_oIfMT0043ofMWI0ol0001omWIf@00@OoIfMT2o`0004cofMWI0_l0002?omWIf@00@OoI fMT3o`0004_ofMWI00?o0000omWIfOoIfMT0S_oIfMT004;ofMWI0_l0001;omWIf@03o`000?oIfMWo fMWI08kofMWI0012omWIf@?o0000B_oIfMT00ol0003ofMWIomWIf@2>omWIf@00@ooIfMT2o`0004[o fMWI00?o0000omWIfOoIfMT0S_oIfMT004?ofMWI0_l0001:omWIf@03o`000?oIfMWofMWI08kofMWI 0013omWIf@?o0000BOoIfMT00ol0003ofMWIomWIf@2>omWIf@00A?oIfMT2o`0003oofMWI1Ol00005 omWIf@03o`000?oIfMWofMWI08kofMWI0014omWIf@?o0000?ooIfMT01?l0003ofMWIomWIfOl00005 omWIf@03o`000?oIfMWofMWI01gofMWI2_l0001WomWIf@00AOoIfMT2o`0003SofMWI1Ol00003omWI f@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT06OoIfMTBo`0006?ofMWI0015omWIf@;o 0000@OoIfMT00ol0003ofMWIomWIf@04omWIf@?o00005ooIfMT7o`0000SofMWI1_l0001RomWIf@00 AOoIfMT3o`0003gofMWI00Go0000omWIfOoIfMWofMWIo`000005omWIf@03o`000?oIfMWofMWI01Co fMWI1_l0000@omWIf@Go0000GooIfMT004KofMWI0_l0000momWIf@05o`000?oIfMWofMWIomWIfOl0 00001OoIfMT00ol0003ofMWIomWIf@0BomWIf@Ko00004ooIfMT5o`0005kofMWI0016omWIf@;o0000 ?_oIfMT3o`0000KofMWI00?o0000omWIfOoIfMT04?oIfMT5o`0001WofMWI0ol0001MomWIf@00A_oI fMT3o`0004KofMWI00?o0000omWIfOoIfMT03ooIfMT4o`0001cofMWI0ol0001LomWIf@00AooIfMT2 o`0004KofMWI00?o0000omWIfOoIfMT03OoIfMT4o`0001oofMWI0ol0001KomWIf@00AooIfMT3o`00 04GofMWI00?o0000omWIfOoIfMT03?oIfMT4o`00027ofMWI0ol0001JomWIf@00B?oIfMT2o`0004Go fMWI00?o0000omWIfOoIfMT02ooIfMT3o`0002CofMWI0ol0001IomWIf@00B?oIfMT2o`0004GofMWI 00?o0000omWIfOoIfMT02_oIfMT3o`0002KofMWI0ol0001HomWIf@00B?oIfMT3o`0004CofMWI0_l0 0009omWIf@Co0000:?oIfMT3o`0005OofMWI0019omWIf@;o0000A?oIfMT00ol0003ofMWIomWIf@07 omWIf@Co0000:_oIfMT3o`0005KofMWI0019omWIf@;o0000A?oIfMT00ol0003ofMWIomWIf@06omWI f@?o0000;OoIfMT2o`0005KofMWI0019omWIf@?o0000@ooIfMT00ol0003ofMWIomWIf@04omWIf@Co 0000;_oIfMT3o`0005GofMWI001:omWIf@;o0000@ooIfMT00ol0003ofMWIomWIf@03omWIf@Co0000 omWIf@?o0000?OoIfMT008oofMWI0_l0001@omWIf@;o0000?OoIfMT008oofMWI00?o0000omWI fOoIfMT0CooIfMT2o`0003gofMWI002?omWIf@03o`000?oIfMWofMWI04oofMWI0ol0000lomWIf@00 SooIfMT00ol0003ofMWIomWIf@1@omWIf@;o0000??oIfMT008oofMWI00?o0000omWIfOoIfMT0D?oI fMT2o`0003cofMWI002?omWIf@03o`000?oIfMWofMWI053ofMWI0_l0000lomWIf@00SooIfMT00ol0 003ofMWIomWIf@1@omWIf@?o0000>ooIfMT008oofMWI00?o0000omWIfOoIfMT0DOoIfMT2o`0003_o fMWI0025omWIf@Go00001OoIfMT00ol0003ofMWIomWIf@1AomWIf@;o0000>ooIfMT008KofMWI00Co 0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@1AomWIf@?o0000>_oIfMT008OofMWI00?o 0000omWIfOoIfMT01OoIfMT3o`0005;ofMWI0_l0000jomWIf@00R?oIfMT00ol0003ofMWIomWIf@04 omWIf@03o`000?oIfMWofMWI05;ofMWI0_l0000jomWIf@00QOoIfMT01Ol0003ofMWIomWIfOoIfMWo 000000GofMWI00?o0000omWIfOoIfMT0D_oIfMT3o`0003WofMWI0025omWIf@05o`000?oIfMWofMWI omWIfOl000001OoIfMT00ol0003ofMWIomWIf@1ComWIf@;o0000>OoIfMT008KofMWI0ol00006omWI f@03o`000?oIfMWofMWI05?ofMWI0_l0000iomWIf@00SooIfMT00ol0003ofMWIomWIf@1ComWIf@;o 0000>OoIfMT008oofMWI00?o0000omWIfOoIfMT0DooIfMT3o`0003SofMWI002?omWIf@03o`000?oI fMWofMWI05CofMWI0_l0000homWIf@00SooIfMT00ol0003ofMWIomWIf@1DomWIf@;o0000>?oIfMT0 08oofMWI00?o0000omWIfOoIfMT0E?oIfMT2o`0003SofMWI002?omWIf@;o0000EOoIfMT3o`0003Oo fMWI002?omWIf@03o`000?oIfMWofMWI05GofMWI0_l0000gomWIf@00SooIfMT00ol0003ofMWIomWI f@1EomWIf@;o0000=ooIfMT008oofMWI00?o0000omWIfOoIfMT0EOoIfMT2o`0003OofMWI002?omWI f@03o`000?oIfMWofMWI05GofMWI0ol0000fomWIf@00SooIfMT00ol0003ofMWIomWIf@1FomWIf@;o 0000=_oIfMT008oofMWI00?o0000omWIfOoIfMT0E_oIfMT2o`0003KofMWI002?omWIf@03o`000?oI fMWofMWI05KofMWI0_l0000fomWIf@00SooIfMT00ol0003ofMWIomWIf@1FomWIf@;o0000=_oIfMT0 08oofMWI00?o0000omWIfOoIfMT0E_oIfMT3o`0003GofMWI002?omWIf@;o0000F?oIfMT2o`0003Go fMWI002?omWIf@03o`000?oIfMWofMWI05OofMWI0_l0000eomWIf@00SooIfMT00ol0003ofMWIomWI f@1GomWIf@;o0000=OoIfMT008oofMWI00?o0000omWIfOoIfMT0EooIfMT3o`0003CofMWI002?omWI f@03o`000?oIfMWofMWI05SofMWI0_l0000domWIf@00SooIfMT00ol0003ofMWIomWIf@1HomWIf@;o 0000=?oIfMT008oofMWI00?o0000omWIfOoIfMT0F?oIfMT2o`0003CofMWI002?omWIf@03o`000?oI fMWofMWI05SofMWI0ol0000comWIf@00SooIfMT00ol0003ofMWIomWIf@1IomWIf@;o0000"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-3.15782, -5.56527, \ 0.0220057, 0.0516035}}] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Si un polinomio tiene alguna o algunas ra\[IAcute]ces m\[UAcute]ltiples, \ \[EAcute]stas aparecen tantas veces como su multiplicidad:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(p2 = x^3 - x^2 - x + 1; Roots[p2 \[Equal] 0, x]\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \(x \[Equal] \(-1\) || x \[Equal] 1 || x \[Equal] 1\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " No toda ecuaci\[OAcute]n algebraica de grado >4 tiene soluci\[OAcute]n \ expl\[IAcute]cita mediante la funci\[OAcute]n ", StyleBox["Roots", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ". En este caso, ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " utilizar\[AAcute] objetos ", StyleBox["Root", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " para representar las soluciones que se pueden encontrar \ num\[EAcute]ricamente (", StyleBox["NRoots", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ")." }], "Text"], Cell[BoxData[ \(\(p3 = x^7 + x + 4;\)\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Roots[p3 \[Equal] 0, x]\)], "Input", CellLabel->"In[6]:=", FontSize->14], Cell[BoxData[ \(x \[Equal] Root[4 + #1 + #1\^7 &, 1] || x \[Equal] Root[4 + #1 + #1\^7 &, 2] || x \[Equal] Root[4 + #1 + #1\^7 &, 3] || x \[Equal] Root[4 + #1 + #1\^7 &, 4] || x \[Equal] Root[4 + #1 + #1\^7 &, 5] || x \[Equal] Root[4 + #1 + #1\^7 &, 6] || x \[Equal] Root[4 + #1 + #1\^7 &, 7]\)], "Output", CellLabel->"Out[6]="] }, Open ]], Cell[TextData[{ StyleBox["Entonces:", FontSize->14, FontWeight->"Bold"], " " }], "Text", FontColor->RGBColor[1, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(NRoots[p3 \[Equal] 0, x]\)], "Input", CellLabel->"In[7]:=", FontSize->14], Cell[BoxData[ \(x \[Equal] \(-1.1607618283269017`\) || x \[Equal] \(-0.776477729610295`\) - 0.8995904913612532`\ \[ImaginaryI] || x \[Equal] \(-0.776477729610295`\) + 0.8995904913612532`\ \[ImaginaryI] || x \[Equal] \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) - 1.2146781955444663`\ \[ImaginaryI] || x \[Equal] \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) + 1.2146781955444663`\ \[ImaginaryI] || x \[Equal] \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) - 0.5663488814623098`\ \[ImaginaryI] || x \[Equal] \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) + 0.5663488814623098`\ \[ImaginaryI]\)], "Output", CellLabel->"Out[7]="] }, Open ]], Cell[TextData[{ StyleBox["O bien:", FontSize->14, FontWeight->"Bold"], " " }], "Text", FontColor->RGBColor[1, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(Roots[p3 \[Equal] 0. , x]\)], "Input", CellLabel->"In[8]:=", FontSize->14], Cell[BoxData[ \(x \[Equal] \(-1.1607618283269017`\) || x \[Equal] \(-0.776477729610295`\) - 0.8995904913612532`\ \[ImaginaryI] || x \[Equal] \(-0.776477729610295`\) + 0.8995904913612532`\ \[ImaginaryI] || x \[Equal] \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) - 1.2146781955444663`\ \[ImaginaryI] || x \[Equal] \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) + 1.2146781955444663`\ \[ImaginaryI] || x \[Equal] \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) - 0.5663488814623098`\ \[ImaginaryI] || x \[Equal] \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) + 0.5663488814623098`\ \[ImaginaryI]\)], "Output", CellLabel->"Out[8]="] }, Open ]], Cell[TextData[{ StyleBox["O bien:", FontSize->14, FontWeight->"Bold"], " " }], "Text", FontColor->RGBColor[1, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(N[%6]\)], "Input", CellLabel->"In[9]:="], Cell[BoxData[ \(x \[Equal] \(-1.1607618283269017`\) || x \[Equal] \(-0.776477729610295`\) - 0.8995904913612532`\ \[ImaginaryI] || x \[Equal] \(-0.776477729610295`\) + 0.8995904913612532`\ \[ImaginaryI] || x \[Equal] \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) - 1.2146781955444663`\ \[ImaginaryI] || x \[Equal] \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) + 1.2146781955444663`\ \[ImaginaryI] || x \[Equal] \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) - 0.5663488814623098`\ \[ImaginaryI] || x \[Equal] \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) + 0.5663488814623098`\ \[ImaginaryI]\)], "Output", CellLabel->"Out[9]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Las funciones ", FontColor->RGBColor[0, 1, 0]], StyleBox["Solve", FontFamily->"Courier", FontColor->RGBColor[0, 1, 0]], StyleBox[" y ", FontColor->RGBColor[0, 1, 0]], StyleBox["NSolve", FontFamily->"Courier", FontColor->RGBColor[0, 1, 0]] }], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[TextData[{ "Para resolver ecuaciones polinomiales o de otros tipos con ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " podemos utilizar la funci\[OAcute]n ", StyleBox["Solve[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["ecu", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["==0,", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["var", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " o bien num\[EAcute]ricamente con la funci\[OAcute]n ", StyleBox["NSolve[", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["ecu", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["==0,", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["var", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", que resuelve la ecuaci\[OAcute]n ", StyleBox["ecu", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["=0", FontFamily->"Courier", FontWeight->"Bold"], " en la variable ", StyleBox["var", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], ". Obviamente se puede resolver tambi\[EAcute]n una ecuaci\[OAcute]n del \ tipo ", StyleBox["ecu", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["=", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["exp", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], " sin m\[AAcute]s que escribir ", StyleBox["ecu", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["==", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["exp", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], " como primer argumento de la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[p1 \[Equal] 0, x]\)], "Input", CellLabel->"In[10]:=", FontSize->14], Cell[BoxData[ \({{x \[Rule] \(-1\)}, {x \[Rule] 1\/2\ \((1 - \@5)\)}, {x \[Rule] 1\/2\ \((1 + \@5)\)}}\)], "Output", CellLabel->"Out[10]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " La salida que nos da la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", a base de reglas (", StyleBox["\[Rule]", FontSize->16], ") es m\[AAcute]s c\[OAcute]moda que la salida que nos proporciona la funci\ \[OAcute]n ", StyleBox["Roots", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " pues nos permite hacer asignaciones, que sabemos son de gran utilidad.\n\ ", StyleBox["\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["Comprobamos, utilizando las reglas de asignaci\[OAcute]n, que al \ sustituir x por -1 en p1 nos da cero:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(p1 /. %10[\([1]\)]\)], "Input", CellLabel->"In[11]:=", FontSize->14], Cell[BoxData[ \(0\)], "Output", CellLabel->"Out[11]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Si la ecuaci\[OAcute]n que estamos resolviendo tiene alguna o algunas ra\ \[IAcute]ces m\[UAcute]ltiples, al utilizar la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " \[EAcute]stas aparecen tantas veces como su multiplicidad:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[p2 \[Equal] 0, x]\)], "Input", CellLabel->"In[12]:=", FontSize->14], Cell[BoxData[ \({{x \[Rule] \(-1\)}, {x \[Rule] 1}, {x \[Rule] 1}}\)], "Output", CellLabel->"Out[12]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Con la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " ocurre como con la funci\[OAcute]n ", StyleBox["Roots", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ": no toda ecuaci\[OAcute]n algebraica de grado >4 tiene soluci\[OAcute]n \ expl\[IAcute]cita mediante la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ". En este caso, ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " tambi\[EAcute]n utiliza objetos ", StyleBox["Root", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " para representar las soluciones que se pueden encontrar \ num\[EAcute]ricamente (", StyleBox["NSolve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", por ejemplo", ")." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[p3 \[Equal] 0, x]\)], "Input", CellLabel->"In[13]:=", FontSize->14], Cell[BoxData[ \({{x \[Rule] Root[4 + #1 + #1\^7 &, 1]}, {x \[Rule] Root[4 + #1 + #1\^7 &, 2]}, {x \[Rule] Root[4 + #1 + #1\^7 &, 3]}, {x \[Rule] Root[4 + #1 + #1\^7 &, 4]}, {x \[Rule] Root[4 + #1 + #1\^7 &, 5]}, {x \[Rule] Root[4 + #1 + #1\^7 &, 6]}, {x \[Rule] Root[4 + #1 + #1\^7 &, 7]}}\)], "Output", CellLabel->"Out[13]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(NSolve[p3 \[Equal] 0, x]\)], "Input", CellLabel->"In[14]:=", FontSize->14], Cell[BoxData[ \({{x \[Rule] \(-1.1607618283269017`\)}, {x \[Rule] \(-0.776477729610295`\ \) - 0.8995904913612532`\ \[ImaginaryI]}, {x \[Rule] \(-0.776477729610295`\) \ + 0.8995904913612532`\ \[ImaginaryI]}, {x \[Rule] \ \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) - 1.2146781955444663`\ \[ImaginaryI]}, {x \[Rule] \ \(\(0.22658705892919953`\)\(\[InvisibleSpace]\)\) + 1.2146781955444663`\ \[ImaginaryI]}, {x \[Rule] \ \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) - 0.5663488814623098`\ \[ImaginaryI]}, {x \[Rule] \ \(\(1.1302715848445464`\)\(\[InvisibleSpace]\)\) + 0.5663488814623098`\ \[ImaginaryI]}}\)], "Output", CellLabel->"Out[14]="] }, Open ]], Cell[TextData[{ "Para obtener la lista de las soluciones de la ecuaci\[OAcute]n ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox[ SuperscriptBox[ StyleBox["x", FontSize->16, FontWeight->"Bold", FontSlant->"Plain"], "7"], FontSize->16, FontWeight->"Bold"], StyleBox["+", FontSize->16, FontWeight->"Bold"], StyleBox["x", FontSize->16, FontWeight->"Bold", FontSlant->"Plain"], StyleBox["+", FontSize->16, FontWeight->"Bold"], StyleBox["4", FontSize->16, FontWeight->"Bold"]}], StyleBox["=", FontSize->16, FontWeight->"Bold"], StyleBox["0", FontSize->16, FontWeight->"Bold"]}], TraditionalForm]]], ": " }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(x /. %\)], "Input", CellLabel->"In[15]:=", FontSize->14], Cell[BoxData[ \({\(-1.1607618283269017`\), \(-0.776477729610295`\) - 0.8995904913612532`\ \[ImaginaryI], \(-0.776477729610295`\) + 0.8995904913612532`\ \[ImaginaryI], \(\(0.22658705892919953`\)\(\ \[InvisibleSpace]\)\) - 1.2146781955444663`\ \[ImaginaryI], \(\(0.22658705892919953`\)\(\ \[InvisibleSpace]\)\) + 1.2146781955444663`\ \[ImaginaryI], \(\(1.1302715848445464`\)\(\ \[InvisibleSpace]\)\) - 0.5663488814623098`\ \[ImaginaryI], \(\(1.1302715848445464`\)\(\ \[InvisibleSpace]\)\) + 0.5663488814623098`\ \[ImaginaryI]}\)], "Output", CellLabel->"Out[15]="] }, Open ]], Cell[TextData[{ StyleBox["Pregunta extra:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontColor->RGBColor[1, 0, 1]], "Indicar alguna otra forma de conseguir las soluciones de esta ecuaci\ \[OAcute]n." }], "Text"], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Aunque fundamentalmente la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " est\[AAcute] disemada para resolver ecuaciones (o sistemas de ecuaciones) \ lineales o polinomiales, tambien puede utilizarse para resolver ecuaciones no \ necesariamente polinomiales.\n\nAl intentar resolver (con la funci\[OAcute]n \ ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ") la ecuaci\[OAcute]n ", StyleBox["sen x=0", FontSize->14, FontWeight->"Bold"], ", que sabemos tiene infinitas soluciones, ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " despu\[EAcute]s de imprimir un mensaje de aviso, nos devuelve una \ \[UAcute]nica soluci\[OAcute]n de esta ecuaci\[OAcute]n. En este caso deber\ \[IAcute]amos utilizar la funci\[OAcute]n ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", que trataremos posteriormente." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[Sin[x] \[Equal] 0, x]\)], "Input", CellLabel->"In[16]:=", FontSize->14], Cell[BoxData[ RowBox[{\(Solve::"ifun"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"Solve::ifun\\\"]\\)\"\>"}]], \ "Message", CellLabel->"From In[16]:="], Cell[BoxData[ \({{x \[Rule] 0}}\)], "Output", CellLabel->"Out[16]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[Sin[x] \[Equal] 0, x]\)], "Input", CellLabel->"In[17]:=", FontSize->14], Cell[BoxData[ \(C[1] \[Element] Integers && \((x \[Equal] 2\ \[Pi]\ C[1] || x \[Equal] \[Pi] + 2\ \[Pi]\ C[1])\)\)], "Output", CellLabel->"Out[17]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Si la ecuaci\[OAcute]n no tiene soluciones ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " est\[AAcute] devuelve ", StyleBox["{ }", FontSize->16, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[x \[Equal] x + 1, x]\)], "Input", CellLabel->"In[18]:=", FontSize->14], Cell[BoxData[ \({}\)], "Output", CellLabel->"Out[18]="] }, Open ]], Cell[TextData[{ StyleBox["Observaci\[OAcute]n:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Si cualquier valor de la variable es soluci\[OAcute]n de la ecuaci\ \[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " devueleve ", StyleBox["{{ }}", FontSize->16, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[x \[Equal] x, x]\)], "Input", CellLabel->"In[19]:=", FontSize->14], Cell[BoxData[ \({{}}\)], "Output", CellLabel->"Out[19]="] }, Open ]], Cell[TextData[{ "Tambi\[EAcute]n podemos utizar la funci\[OAcute]n ", StyleBox["Solve ", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "para resolver sistemas de ecuaciones con una o varias variables. En ese \ caso se escribe: ", StyleBox["Solve[{", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], StyleBox["ecu", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["s},{", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["vars", FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["}", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["]", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " " }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[{x\ y^2 - y^2 - 4 x + 4 \[Equal] 0, x^2\ y + 2 x^2 - y - 2 \[Equal] 0}, {x, y}]\)], "Input", CellLabel->"In[20]:=", FontSize->14], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message", CellLabel->"From In[20]:="], Cell[BoxData[ \({{x \[Rule] \(-1\), y \[Rule] 2}, {x \[Rule] 1}, {y \[Rule] \(-2\)}}\)], "Output", CellLabel->"Out[20]="] }, Open ]], Cell[TextData[StyleBox["\[DownQuestion]C\[OAcute]mo hay que interpretar este \ resultado?", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(x\ y^2 - y^2 - 4 x + 4 /. %20[\([2]\)]\)], "Input", CellLabel->"In[21]:=", FontSize->14], Cell[BoxData[ \(0\)], "Output", CellLabel->"Out[21]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(x^2\ y + 2 x^2 - y - 2 /. %20[\([2]\)]\)], "Input", CellLabel->"In[22]:=", FontSize->14], Cell[BoxData[ \(0\)], "Output", CellLabel->"Out[22]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["La funci\[OAcute]n ", FontColor->RGBColor[0, 1, 0]], StyleBox["Reduce", FontFamily->"Courier", FontColor->RGBColor[0, 1, 0]] }], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[TextData[{ "La funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " solamente devuelve soluciones gen\[EAcute]ricas, es decir, no muestra las \ soluciones que son v\[AAcute]lidas para ciertos valores de los \ par\[AAcute]metros. Sin embargo la funci\[OAcute]n ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " si. Por esta raz\[OAcute]n no es conveniente utilizar la funci\[OAcute]n \ ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " cuando estamos resolviendo una ecuaci\[OAcute]n o sistema de ecuaciones \ que dependa de para\[AAcute]metros; en este caso utilizaremos la \ unci\[OAcute]n ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " cuyos argumentos se escriben de la misma forma que los de ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[{x \[Equal] 1, x \[Equal] a}, x]\)], "Input", CellLabel->"In[23]:=", FontSize->14], Cell[BoxData[ \({}\)], "Output", CellLabel->"Out[23]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[{x \[Equal] 1, x \[Equal] a}, x]\)], "Input", CellLabel->"In[24]:=", FontSize->14], Cell[BoxData[ \(a \[Equal] 1 && x \[Equal] 1\)], "Output", CellLabel->"Out[24]="] }, Open ]], Cell["Veamos la soluci\[OAcute]n de la ecuaci\[OAcute]n de segundo grado:", \ "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[a\ x^2 + b\ x + c \[Equal] 0, x]\)], "Input", CellLabel->"In[25]:=", FontSize->14], Cell[BoxData[ \({{x \[Rule] \(\(-b\) - \@\(b\^2 - 4\ a\ c\)\)\/\(2\ a\)}, {x \[Rule] \(\ \(-b\) + \@\(b\^2 - 4\ a\ c\)\)\/\(2\ a\)}}\)], "Output", CellLabel->"Out[25]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[a\ x^2 + b\ x + c \[Equal] 0, x]\)], "Input", CellLabel->"In[26]:=", FontSize->14], Cell[BoxData[ \(\((a \[NotEqual] 0 && \((x \[Equal] \(\(-b\) - \@\(b\^2 - 4\ a\ c\)\)\/\(2\ a\) || x \[Equal] \(\(-b\) + \@\(b\^2 - 4\ a\ c\)\)\/\(2\ a\))\))\) || \ \((a \[Equal] 0 && b \[NotEqual] 0 && x \[Equal] \(-\(c\/b\)\))\) || \((c \[Equal] 0 && b \[Equal] 0 && a \[Equal] 0)\)\)], "Output", CellLabel->"Out[26]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[27]:=", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Inc\[OAcute]gnitas principales e inc\[OAcute]gnitas \ libres en un S.E.L.", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[TextData[{ "Cuando estamos resolviendo un sistema de ecuaciones lineales con ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " y utilizamos o bien la funci\[OAcute]n ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " (si no hay par\[AAcute]metros) o bien la funci\[OAcute]n ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " (si hay par\[AAcute]metros), si el sistema es compatible, al escribirnos \ las soluciones las inc\[OAcute]gnitas que aparecen a la izquierda del s\ \[IAcute]mbolo ", StyleBox["\[Rule]", FontSize->16], " (para ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ") y a la izquierda de ", "==", " (para ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ") son las inc\[OAcute]gnitas principales del sistema, el resto (si las \ hay) son inc\[OAcute]gnitas libres. \nEsto nos ayuda a decidir si el sistema \ es compatible determinado o compatible indeterminado y a utilizar la salida \ de ", StyleBox["Solve", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " o ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " para obtener informaci\[OAcute]n sobre la matriz de coeficientes y la \ matriz ampliada del sistema" }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ESPACIOS VECTORIALES", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Vectores", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell["\", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(x = {2, 0, 3}\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[BoxData[ \({2, 0, 3}\)], "Output", CellLabel->"Out[1]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Suma de vectores", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[CellGroupData[{ Cell[BoxData[ \({2, \(-1\), 5} + {3, 0, 2}\)], "Input", CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \({5, \(-1\), 7}\)], "Output", CellLabel->"Out[2]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Producto de un escalar por un vector", FontColor->RGBColor[0, 1, 0]]], "Subsection", CellDingbat->"\[FilledSmallSquare]"], Cell[CellGroupData[{ Cell[BoxData[ \(\(-2\)\ {2, \(-1\), 5}\)], "Input", CellLabel->"In[3]:=", FontSize->14], Cell[BoxData[ \({\(-4\), 2, \(-10\)}\)], "Output", CellLabel->"Out[3]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[4]:=", FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["EJERCICIO 3.1 (Combinaciones lineales)", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Sea el espacio vectorial ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[\(\[DoubleStruckCapitalR]\^3\), FontColor->RGBColor[0, 0, 1]], TraditionalForm]]], StyleBox[" y sean los vectores:\n\t\t", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["x", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], "= (1,-1,3) ; ", Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["y", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], "= (0,1,0) , ", Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["z", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], "= (2,m,1)\n\t\t", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "1"], TraditionalForm]]], "= (1,1,1) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "2"], TraditionalForm]]], "= (1,2,0)", StyleBox["\n", FontColor->RGBColor[0, 0, 1]], StyleBox["a.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Demostrar que ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["x", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], StyleBox[" es combinaci\[OAcute]n lineal de ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "1"], TraditionalForm]]], StyleBox[" y ", FontColor->RGBColor[0, 0, 1]], " ", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "2"], TraditionalForm]]], StyleBox[".", FontColor->RGBColor[0, 0, 1]] }], "Subsubsection", CellDingbat->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(x = {1, \(-1\), 3}; y = {0, 1, 0}; z = {2, m, 1}; u1 = {1, 1, 1}; u2 = {1, 2, 0};\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[a1\ u1 + a2\ u2 \[Equal] x, {a1, a2}]\)], "Input", CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \({{a1 \[Rule] 3, a2 \[Rule] \(-2\)}}\)], "Output", CellLabel->"Out[2]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["b.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Demostrar que ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["y", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], StyleBox[" sea combinaci\[OAcute]n lineal de ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "1"], TraditionalForm]]], StyleBox[" y ", FontColor->RGBColor[0, 0, 1]], " ", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "2"], TraditionalForm]]], StyleBox[".", FontColor->RGBColor[0, 0, 1]] }], "Subsubsection", CellDingbat->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[a1\ u1 + a2\ u2 \[Equal] y, {a1, a2}]\)], "Input", CellLabel->"In[3]:=", FontSize->14], Cell[BoxData[ \({}\)], "Output", CellLabel->"Out[3]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["c.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Hallar m de modo que ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["z", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], StyleBox[" no es combinaci\[OAcute]n lineal de ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "1"], TraditionalForm]]], StyleBox[" y ", FontColor->RGBColor[0, 0, 1]], " ", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[ OverscriptBox[ StyleBox["u", FontSlant->"Plain"], "_"], "TraditionalForm"], "2"], TraditionalForm]]], StyleBox[".", FontColor->RGBColor[0, 0, 1]] }], "Subsubsection", CellDingbat->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[a1\ u1 + a2\ u2 \[Equal] z, {a1, a2}]\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \(m \[Equal] 3 && a1 \[Equal] 1 && a2 \[Equal] 1\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[TextData[{ StyleBox["Sugerencia:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Escribir correctamente las soluciones justificando las respuestas e \ indicando que entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " adjunto se han utilizado." }], "Text"], Cell[TextData[{ StyleBox["Pregunta extra:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], StyleBox["Utilizando exclusivamente el segmento de ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["Mathematica", FontSize->14, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" anterior y justificando la respuesta, hallar un subespacio \ vectorial de ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)], FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" que contenga a ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ OverscriptBox[ StyleBox["x", FontSlant->"Plain", FontColor->RGBColor[0, 0, 1]], "_"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" pero que no contenga a ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ OverscriptBox[ StyleBox["y", FontWeight->"Bold", FontSlant->"Plain"], "_"], TraditionalForm]], FontColor->RGBColor[0, 0, 1]], StyleBox[" .", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]] }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["EJERCICIO 3.2 (Otro ejercicio de combinaciones \ lineales)", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["a.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Discutir la dependencia o independencia lineal de los vectores", FontColor->RGBColor[0, 0, 1]], ":\n\t\t\t", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "1"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (1,0,2) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (-1,1,0) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (2,-1,m) " }], "Subsubsection", CellDingbat->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(u1 = {1, 0, 2}; u2 = {\(-1\), 1, 0}; u3 = {2, \(-1\), m};\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[a1\ u1 + a2\ u2 + a3\ u3 \[Equal] 0, {a1, a2, a3}]\)], "Input", CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \(\((m \[Equal] 2 && a2 \[Equal] \(-a1\) && a3 \[Equal] \(-a1\))\) || \((\(-2\) + m \[NotEqual] 0 && a1 \[Equal] 0 && a2 \[Equal] 0 && a3 \[Equal] 0)\)\)], "Output", CellLabel->"Out[2]="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["b.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Idem para los vectores", FontColor->RGBColor[0, 0, 1]], ":\n\t\t\t", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ StyleBox["v", FontSlant->"Plain"], "_"], "1"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (0,1,1) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ StyleBox["v", FontSlant->"Plain"], "_"], "2"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (0,-1,2) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ StyleBox["v", FontSlant->"Plain"], "_"], "3"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (1,1,m) " }], "Subsubsection", CellDingbat->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(v1 = {0, 1, 1}; v2 = {0, \(-1\), 2}; v3 = {1, 1, m};\)], "Input", CellLabel->"In[3]:="], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[a1\ v1 + a2\ v2 + a3\ v3 \[Equal] 0, {a1, a2, a3}]\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \(a1 \[Equal] 0 && a2 \[Equal] 0 && a3 \[Equal] 0\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[TextData[{ StyleBox["Sugerencia:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Escribir correctamente las soluciones justificando las respuestas e \ indicando que entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " adjunto se han utilizado." }], "Text"], Cell[TextData[{ StyleBox["Preguntas extras:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], StyleBox["Utilizando exclusivamente el segmento de ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["Mathematica", FontSize->14, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" anterior y justificando las respuestas, responder a las \ siguientes cuestiones:\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["c.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Calcular el rango de la familia de vectores {", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["}, seg\[UAcute]n los distintos valores de m", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["d.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Indicar una base del subespacio vectorial S = \ \[GothicCapitalL]({", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["})", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["e.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Calcular el rango de la familia de vectores {", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["v", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["v", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["v", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["}, seg\[UAcute]n los distintos valores de m", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["f.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Indicar una base del subespacio vectorial T = \ \[GothicCapitalL]({", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["v", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["v", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["v", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["})", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["g.- ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["Calcula el rango de la matriz A, seg\[UAcute]n los distintos \ valores del par\[AAcute]metro m\n\t\t\t\tA=", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", StyleBox[GridBox[{ {"1", "0", "2"}, {\(-1\), "1", "0"}, {"2", \(-1\), "m"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], GridBoxOptions->{ColumnAlignments->{Right}}], StyleBox["\[NoBreak]", GridBoxOptions->{ColumnAlignments->{Right}}], ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]] }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["EJERCICIO 3.3 (Un problema de espacios vectoriales)", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Consideremos el subespacio vectorial de ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^4\)]], StyleBox["\n\t\t\tS={(", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "1"], ","}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "2"], ".", SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "3"], ".", SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "4"]}], TraditionalForm]]], ")\[Element]", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^4\)]], "/ 2", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "1"], "+"}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "2"], "=", RowBox[{ SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "3"], "+", RowBox[{"3", SubscriptBox[ StyleBox["x", FontSlant->"Plain"], "4"]}]}]}], TraditionalForm]]], "= 0}\n", StyleBox["a.- ", FontColor->RGBColor[1, 0, 0]], " Hallar una base B y la dimensi\[OAcute]n de S\t\t\t" }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[TextData[{ StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " no resulta excesivamente conveniente para resolver ciertas cuestiones \ relacionadas con espacios vectoriales. Reordemos que puede ser conveniente \ utilizar eldenominado teorema del rango para resolver ciertas cuestiones de \ espacios vectoriales." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(s = Solve[2\ x1 + x2 \[Equal] x3 + 3 x4 \[Equal] 0, {x1, x2, x3, x4}]\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message", CellLabel->"From In[1]:="], Cell[BoxData[ \({{x1 \[Rule] \(-\(x2\/2\)\), x3 \[Rule] \(-3\)\ x4}}\)], "Output", CellLabel->"Out[1]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(x = {x1, x2, x3, x4} /. s[\([1]\)]\)], "Input", CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \({\(-\(x2\/2\)\), x2, \(-3\)\ x4, x4}\)], "Output", CellLabel->"Out[2]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Print["\", Table[%[\([i]\)], {i, Length[%]}]]\)], "Input", CellLabel->"In[3]:="], Cell[BoxData[ InterpretationBox[\("Los vectores de S son de la forma \ "\[InvisibleSpace]{\(-\(x2\/2\)\), x2, \(-3\)\ x4, x4}\), SequenceForm[ "Los vectores de S son de la forma ", { Times[ Rational[ -1, 2], x2], x2, Times[ -3, x4], x4}], Editable->False]], "Print", CellLabel->"From In[3]:="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(e1 = x /. {x2 \[Rule] 1, x4 \[Rule] 0}\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \({\(-\(1\/2\)\), 1, 0, 0}\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(e2 = x /. {x2 \[Rule] 0, x4 \[Rule] 1}\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[BoxData[ \({0, 0, \(-3\), 1}\)], "Output", CellLabel->"Out[5]="] }, Open ]], Cell[TextData[{ "Comprobamos que", " ", StyleBox["e1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["e2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " forman un sistema generador de S pues todo vector de S se puede escribir \ como combinaci\[OAcute]n lineal de los vectores ", StyleBox["e1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["e2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(x \[Equal] x2\ e1 + x4\ e2\)], "Input", CellLabel->"In[6]:=", FontSize->14], Cell[BoxData[ \(True\)], "Output", CellLabel->"Out[6]="] }, Open ]], Cell[TextData[{ "Otra forma de ver que ", StyleBox["e1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["e2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " forman un sistema generador de S es la siguiente:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[x == a1\ e1 + a2\ e2, {a1, a2}]\)], "Input", CellLabel->"In[12]:=", FontSize->14], Cell[BoxData[ \({{a1 \[Rule] x2, a2 \[Rule] x4}}\)], "Output", CellLabel->"Out[12]="] }, Open ]], Cell[TextData[{ "Ahora comprobamos que ", StyleBox["e1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["e2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " es un sistema libre:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[a1\ e1 + a2\ e2 \[Equal] {0, 0, 0, 0}, {a1, a2}]\)], "Input", CellLabel->"In[7]:=", FontSize->14], Cell[BoxData[ \({{a1 \[Rule] 0, a2 \[Rule] 0}}\)], "Output", CellLabel->"Out[7]="] }, Open ]], Cell[TextData[{ "Recordemos que podemos utilizar la funci\[OAcute]n ", StyleBox["RowReduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " para estudiar la dependencia o independencia lineal de una familia de \ vectores o la funci\[OAcute]n ", StyleBox["MatrixRank", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(m = {e1, e2};\)\), "\[IndentingNewLine]", \(MatrixRank[m]\)}], "Input", CellLabel->"In[8]:=", FontSize->14], Cell[BoxData[ \(2\)], "Output", CellLabel->"Out[9]="] }, Open ]], Cell[TextData[{ "Si el rango de la matriz ", StyleBox["m", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " que tiene como filas los vectores ", StyleBox["e1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["e2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " coincide con el n\[UAcute]mero de filas de m, es decir con 2, los \ vectores ", StyleBox["e1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["e2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " son libres." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixRank[m] \[Equal] Length[m]\)], "Input", CellLabel->"In[10]:=", FontSize->14], Cell[BoxData[ \(True\)], "Output", CellLabel->"Out[10]="] }, Open ]], Cell[TextData[{ StyleBox["Sugerencia:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Escribir correctamente la soluci\[OAcute]n justificando la respuesta e \ indicando que entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " adjunto se han utilizado." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["b.- ", FontColor->RGBColor[1, 0, 0]], "Determinar las coordenadas del vector (1,-2,3,-1)\[Element]S en la base B \ de S\t\t\t" }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ z1\ e1 + z2\ e2 \[Equal] {1, \(-2\), 3, \(-1\)}, {z1, z2}]\)], "Input", CellLabel->"In[11]:=", FontSize->14], Cell[BoxData[ \({{z1 \[Rule] \(-2\), z2 \[Rule] \(-1\)}}\)], "Output", CellLabel->"Out[11]="] }, Open ]], Cell[TextData[{ StyleBox["Sugerencia:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Escribir correctamente la soluci\[OAcute]n justificando la respuesta e \ indicando que entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " adjunto se han utilizado." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["c.- ", FontColor->RGBColor[1, 0, 0]], "Completar la base B de S hasta conseguir una base ", Cell[BoxData[ FormBox[ SuperscriptBox[ StyleBox["B", FontSlant->"Plain"], "*"], TraditionalForm]]], " de ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^4\)]], ".\t\t\t" }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell["Vamos a ir a\[NTilde]adiendo los vectores necesarios de uno en uno:", \ "Text"], Cell[BoxData[ \(\(e3 = {1, 0, 0, 0};\)\)], "Input", CellLabel->"In[12]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ a1\ e1 + a2\ e2 + a3\ e3 \[Equal] {0, 0, 0, 0}, {a1, a2, a3}]\)], "Input", CellLabel->"In[13]:=", FontSize->14], Cell[BoxData[ \({{a1 \[Rule] 0, a2 \[Rule] 0, a3 \[Rule] 0}}\)], "Output", CellLabel->"Out[13]="] }, Open ]], Cell[BoxData[ \(\(e4 = {0, 1, 0, 0};\)\)], "Input", CellLabel->"In[14]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ a1\ e1 + a2\ e2 + a3\ e3 + a4\ e4 \[Equal] {0, 0, 0, 0}, {a1, a2, a3, a4}]\)], "Input", CellLabel->"In[15]:=", FontSize->14], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message", CellLabel->"From In[15]:="], Cell[BoxData[ \({{a1 \[Rule] \(-a4\), a2 \[Rule] 0, a3 \[Rule] \(-\(a4\/2\)\)}}\)], "Output", CellLabel->"Out[15]="] }, Open ]], Cell[BoxData[ \(e4 =. \)], "Input", CellLabel->"In[16]:=", FontSize->14], Cell[BoxData[ \(\(e4 = {0, 0, 1, 0};\)\)], "Input", CellLabel->"In[17]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ a1\ e1 + a2\ e2 + a3\ e3 + a4\ e4 \[Equal] {0, 0, 0, 0}, {a1, a2, a3, a4}]\)], "Input", CellLabel->"In[18]:=", FontSize->14], Cell[BoxData[ \({{a1 \[Rule] 0, a2 \[Rule] 0, a3 \[Rule] 0, a4 \[Rule] 0}}\)], "Output",\ CellLabel->"Out[18]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[19]:=", FontSize->14], Cell[TextData[{ StyleBox["Sugerencia:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Escribir correctamente la soluci\[OAcute]n justificando la respuesta e \ indicando que entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " adjunto se han utilizado." }], "Text"], Cell[TextData[{ StyleBox["Pregunta extra: ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], "Resolver el apartado anterior utilizando el teorema del rango y las \ necesarias funciones de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], ". Escribir correctamente la soluci\[OAcute]n justificando la respuesta e \ indicando las correspodientes entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " utilizado para resolver la pregunta se han utilizado." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["EJERCICIO 3.4 ", FontColor->RGBColor[0, 0, 1]]], "SectionFirst", FontColor->RGBColor[1, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Sean los vectores de ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)]], StyleBox[" siguientes:\n\t\t\t", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "1"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (1,1,1) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (b-3,1,1) ; ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "= (0,2,a+1) \nHallar a y b de forma que B={", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "1"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], ", ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], ", ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], TraditionalForm]], FontSize->12, FontColor->RGBColor[0, 0, 1]], "} sea una base de ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)]], ".\t\t\t" }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[TextData[{ StyleBox["Importante:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Como son tres vectores de ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)]], " y dim(", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)]], ")=3, para que sean base de ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)]], "es suficiente que sean linealmente independientes. Estudiamos la \ dependencia lineal de estos vectores con la funci\[OAcute]n ", StyleBox["Reduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"] }], "Text"], Cell[BoxData[ \(u1 = {1, 1, 1}; u2 = {b - 3, 1, 1}; u3 = {0, 2, a + 1};\)], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Reduce[m\ u1 + n\ u2 + p\ u3 \[Equal] {0, 0, 0}, {m, n, p}]\)], "Input",\ CellLabel->"In[2]:=", FontSize->14], Cell[BoxData[ \(\((b \[Equal] 4 && n \[Equal] \(-m\) && p \[Equal] 0)\) || \((b \[Equal] 3 && a \[Equal] 1 && m \[Equal] 0 && p \[Equal] \(-\(n\/2\)\))\) || \((\((\(-1\) + a)\)\ \((\(-4\) + b)\) \[NotEqual] 0 && m \[Equal] 0 && n \[Equal] 0 && p \[Equal] \(-\(n\/2\)\))\) || \((a \[Equal] 1 && \(-3\) + b \[NotEqual] 0 && n \[Equal] \(-\(m\/\(\(-3\) + b\)\)\) && p \[Equal] 1\/2\ \((\(-m\) - n)\) && \(-4\) + b \[NotEqual] 0)\)\)], "Output", CellLabel->"Out[2]="] }, Open ]], Cell[TextData[{ "Ya estamos en condicioens de dar la soluci\[OAcute]n. \n", StyleBox["Sugerencia:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Escribir correctamente la soluci\[OAcute]n justificando la respuesta e \ indicando que entradas/salidas del segmento de ", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " adjunto se han utilizado." }], "Text"], Cell[TextData[{ StyleBox["Pregunta extra: ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], StyleBox["Utilizando exclusivamente el segmento de ", FontWeight->"Bold"], StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["anterior y justificando las respuestas, responder a las \ siguientes cuestiones:", FontWeight->"Bold"], StyleBox["\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["a.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Calcular el rango de la familia de vectores {", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["}, seg\[UAcute]n los distintos valores de a y b", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["b.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Clasificar y resolver el sistema homog\[EAcute]neo x", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["+y", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["+z", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["=", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[\(0\&_\), FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], TraditionalForm]]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["c.-", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Hallar una base del subespacio vectorial S = \ \[GothicCapitalL]({", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontWeight->"Bold", FontSlant->"Plain"], "TraditionalForm"], "_"], StyleBox["1", FontWeight->"Bold"]], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "2"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontSize->14, FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox[ OverscriptBox[ FormBox[ StyleBox["u", FontSlant->"Plain"], "TraditionalForm"], "_"], "3"], FontWeight->"Bold"], TraditionalForm]], FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox["}) seg\[UAcute]n los distintos valores de a y b", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[". \n", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox["d.- ", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["Calcula el rango de la matriz A, seg\[UAcute]n los distintos \ valores de los par\[AAcute]metros a y b", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->14, FontColor->RGBColor[0, 0, 1]], StyleBox[".\n\t\t\t\tA=", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", StyleBox[GridBox[{ {"1", "1", "1"}, {\(b - 3\), "1", "1"}, {"0", "2", \(a + 1\)} }], GridBoxOptions->{ColumnAlignments->{Right}}], StyleBox["\[NoBreak]", GridBoxOptions->{ColumnAlignments->{Right}}], ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]] }], "Text"], Cell["\", "Text"], Cell[BoxData[ \(\(m = {u1, u2, u3};\)\)], "Input", CellLabel->"In[3]:=", FontSize->14], Cell[TextData[{ "Como la matriz ", StyleBox["m", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " depende de par\[AAcute]metros no podemos utilizar ni ", StyleBox["MatrixRank", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " ni ", StyleBox["RowReduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " para hallar el rango de m." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Det[m] // Factor\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \(\(-\((\(-1\) + a)\)\)\ \((\(-4\) + b)\)\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[Det[m] \[Equal] 0, {a, b}]\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message", CellLabel->"From In[5]:="], Cell[BoxData[ \({{a \[Rule] 1}, {b \[Rule] 4}}\)], "Output", CellLabel->"Out[5]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(m1 = m /. %[\([1]\)]; MatrixForm[m1]\)], "Input", CellLabel->"In[6]:="], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {\(\(-3\) + b\), "1", "1"}, {"0", "2", "2"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output", CellLabel->"Out[6]//MatrixForm="] }, Open ]], Cell[TextData[{ "Como la matriz ", StyleBox["m", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", para a=1, sigue dependiendo de par\[AAcute]metros y sabemos que su \ determinante es cero, calculamos todos los menores de orden 2 de la matriz" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Minors[m1, 2]\)], "Input", CellLabel->"In[7]:=", FontSize->14], Cell[BoxData[ \({{4 - b, 4 - b, 0}, {2, 2, 0}, {\(-6\) + 2\ b, \(-6\) + 2\ b, 0}}\)], "Output", CellLabel->"Out[7]=", FontSize->14] }, Open ]], Cell["Vemos si se anulan todos los menores de orden 2:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Flatten[%]\)], "Input", CellLabel->"In[8]:=", FontSize->14], Cell[BoxData[ \({4 - b, 4 - b, 0, 2, 2, 0, \(-6\) + 2\ b, \(-6\) + 2\ b, 0}\)], "Output",\ CellLabel->"Out[8]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[Table[%[\([i]\)] \[Equal] 0, {i, Length[%]}]]\)], "Input", CellLabel->"In[9]:=", FontSize->14], Cell[BoxData[ \({}\)], "Output", CellLabel->"Out[9]="] }, Open ]], Cell[TextData[{ "Como el sistema anterior es incompatible, eso significa que al menos un \ menor de orden 2 de ", StyleBox["m", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " es no nulo para a=1. Luego para a=1 el rango de la matriz ", StyleBox["m", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " es 2." }], "Text"], Cell[TextData[{ "Repetimos el proceso para el otro valor del par\[AAcute]metro para el que \ se anula la matriz ", StyleBox["m", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(m2 = m /. %5[\([1]\)]; MatrixForm[m1]\)], "Input", CellLabel->"In[10]:="], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {\(\(-3\) + b\), "1", "1"}, {"0", "2", "2"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output", CellLabel->"Out[10]//MatrixForm="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Minors[m2, 2]\)], "Input", CellLabel->"In[11]:=", FontSize->14], Cell[BoxData[ \({{4 - b, 4 - b, 0}, {2, 2, 0}, {\(-6\) + 2\ b, \(-6\) + 2\ b, 0}}\)], "Output", CellLabel->"Out[11]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Flatten[%]\)], "Input", CellLabel->"In[12]:=", FontSize->14], Cell[BoxData[ \({4 - b, 4 - b, 0, 2, 2, 0, \(-6\) + 2\ b, \(-6\) + 2\ b, 0}\)], "Output",\ CellLabel->"Out[12]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[Table[%[\([i]\)] \[Equal] 0, {i, Length[%]}]]\)], "Input", CellLabel->"In[13]:=", FontSize->14], Cell[BoxData[ \({}\)], "Output", CellLabel->"Out[13]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[14]:=", FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["EJERCICIO 3.5 (El espacio vectorial ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalM]", RowBox[{ StyleBox["m", FontSlant->"Plain"], "\[Times]", StyleBox["n", FontSlant->"Plain"]}]], " "}], TraditionalForm]]], StyleBox["(", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox["\[DoubleStruckCapitalR]", FontColor->RGBColor[0, 0, 1]], TraditionalForm]]], StyleBox[")", FontColor->RGBColor[0, 0, 1]], StyleBox[")", FontColor->RGBColor[0, 0, 1]] }], "SectionFirst", FontColor->RGBColor[0, 0, 1], Background->RGBColor[0.8, 1, 0.4]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["En ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalM]", RowBox[{ StyleBox["2", FontSlant->"Plain"], "\[Times]", "2"}]], " "}], TraditionalForm]]], StyleBox["(", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox["\[DoubleStruckCapitalR]", FontColor->RGBColor[0, 0, 1]], TraditionalForm]]], StyleBox[") se considera el subespacio vectorial\n\n\t\t", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ RowBox[{" ", RowBox[{"S", "=", RowBox[{"\[ScriptCapitalL]", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{\(A\_1\), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }], "\[NoBreak]", ")"}]}], ",", RowBox[{\(A\_2\), "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-1\), "1"}, {"2", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}], ",", RowBox[{\(A\_3\), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1"}, {"2", "3"} }], "\[NoBreak]", ")"}]}]}], "}"}], ")"}]}]}]}]], TextAlignment->Left, TextJustification->1, FontFamily->"Times New Roman", FontSize->14], "\n\t\t", StyleBox["\n", FontColor->RGBColor[0, 0, 1]], StyleBox["a.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Hallar una base B y la dimensi\[OAcute]n de S.\t\t\t", FontColor->RGBColor[0, 0, 1]] }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[TextData[{ "Escribimos las matrices ", StyleBox["a1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", ", StyleBox["a2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["a3", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " como filas de una matriz:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(a1 = {{1, 0}, {0, 1}}; a2 = {{\(-1\), 1}, {2, 1}}; a3 = {{1, 1}, {2, 3}};\), "\[IndentingNewLine]", \(a1 = Flatten[a1]; a2 = Flatten[a2]; a3 = Flatten[a3]; m = {a1, a2, a3}; MatrixForm[m]\)}], "Input", CellLabel->"In[1]:=", FontSize->14], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "1"}, {\(-1\), "1", "2", "1"}, {"1", "1", "2", "3"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output", CellLabel->"Out[2]//MatrixForm="] }, Open ]], Cell[TextData[{ "Utilizamos la funci\[OAcute]n ", StyleBox["RowReduce", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " para obtener una matriz escalonada equivalente a la matriz m que tiene \ como filas las matrices ", StyleBox["a1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", ", StyleBox["a2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["a3", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(e = RowReduce[m]\)], "Input", CellLabel->"In[3]:=", FontSize->14], Cell[BoxData[ \({{1, 0, 0, 1}, {0, 1, 2, 2}, {0, 0, 0, 0}}\)], "Output", CellLabel->"Out[3]="] }, Open ]], Cell[TextData[{ "Las filas no nulas de ", StyleBox["e", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " forman base dle espacio vectorial engendrado por las matrices ", StyleBox["a1", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", ", StyleBox["a2", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " y ", StyleBox["a3", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], ", aunque debemos escribir esas filas como matrices cuadradas de orden 2." }], "Text"] }, Closed]], Cell[TextData[Cell[BoxData[ StyleBox[ RowBox[{"B", "=", RowBox[{"{", RowBox[{ RowBox[{\(B\_1\), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }], "\[NoBreak]", ")"}]}], ",", RowBox[{\(B\_2\), "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"2", "2"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}]}], "}"}]}], FontColor->RGBColor[0, 1, 0]]], TextAlignment->Right, TextJustification->1, FontFamily->"Times New Roman", FontSize->14]], "Subsubsection", CellDingbat->None, TextAlignment->Right, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["b.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Ampliar la base B de S hasta conseguir una base de ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalM]", RowBox[{ StyleBox["2", FontSlant->"Plain"], "\[Times]", "2"}]], " "}], TraditionalForm]]], StyleBox["(", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox["\[DoubleStruckCapitalR]", FontColor->RGBColor[0, 0, 1]], TraditionalForm]]], StyleBox[").\t\t\t", FontColor->RGBColor[0, 0, 1]] }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[TextData[{ "Quitamos las filas no nulas de la matriz ", StyleBox["e", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(e = Delete[e, 3]\)], "Input", CellLabel->"In[4]:=", FontSize->14], Cell[BoxData[ \({{1, 0, 0, 1}, {0, 1, 2, 2}}\)], "Output", CellLabel->"Out[4]="] }, Open ]], Cell[TextData[{ "A\[NTilde]adimos a la nueva matriz ", StyleBox["e", FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], " dos filas que son vectores de la base can\[OAcute]nica:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(e = Append[e, {0, 0, 1, 0}]; e = Append[e, {0, 0, 0, 1}]; MatrixForm[e]\)], "Input", CellLabel->"In[5]:=", FontSize->14], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "1"}, {"0", "1", "2", "2"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output", CellLabel->"Out[5]//MatrixForm="] }, Open ]], Cell["\", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Det[e] != 0\)], "Input", CellLabel->"In[6]:=", FontSize->14], Cell[BoxData[ \(True\)], "Output", CellLabel->"Out[6]="] }, Open ]] }, Closed]], Cell[TextData[Cell[BoxData[ StyleBox[ RowBox[{\(B\^*\), "=", RowBox[{"{", RowBox[{ RowBox[{\(B\_1\), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }], "\[NoBreak]", ")"}]}], ",", RowBox[{\(B\_2\), "=", TagBox[ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"2", "2"} }], "\[NoBreak]", ")"}], ",", RowBox[{\(B\_3\), "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"1", "0"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}]}], (MatrixForm[ #]&)]}], ",", RowBox[{\(B\_4\), "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "1"} }], "\[NoBreak]", ")"}], (MatrixForm[ #]&)]}]}], "}"}]}], FontColor->RGBColor[0, 1, 0]]], TextAlignment->Right, TextJustification->1, FontFamily->"Times New Roman", FontSize->14]], "Subsubsection", CellDingbat->None, TextAlignment->Right, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["c.- ", FontColor->RGBColor[1, 0, 0]], StyleBox["Utilizando exclusivamente el segmento de ", FontColor->RGBColor[0, 0, 1]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], StyleBox[" adjunto justificar cu\[AAcute]l es una base de S formada por \ algunas o todas las matrices del conjunto ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(\(\(\ \)\({A\_1, A\_2, A\_3}\)\)\)], TextAlignment->Left, TextJustification->1, FontFamily->"Times New Roman", FontSize->14], "." }], "Subsubsection", CellDingbat->None, TextAlignment->AlignmentMarker, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ \(a1 = {{1, 0}, {0, 1}}; a2 = {{\(-1\), 1}, {2, 1}}; a3 = {{1, 1}, {2, 3}};\)], "Input", CellLabel->"In[7]:=", FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ x1\ a1 + x2\ a2 + x3\ a3 \[Equal] {{0, 0}, {0, 0}}, {x1, x2, x3}]\)], "Input", CellLabel->"In[8]:=", FontSize->14], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message", CellLabel->"From In[8]:="], Cell[BoxData[ \({{x1 \[Rule] \(-2\)\ x3, x2 \[Rule] \(-x3\)}}\)], "Output", CellLabel->"Out[8]="] }, Open ]], Cell[BoxData[ \(Clear["\", $Line]\)], "Input", CellLabel->"In[9]:=", FontSize->14], Cell[TextData[{ StyleBox["Cuidado:", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontSize->14, FontColor->RGBColor[1, 0, 1]], "Como hemos mencionado previamente las inc\[OAcute]gnitas que aparecen \ listadas a la izquierda de == son las inc\[OAcute]gnitas principales. El \ resto, si es que hay alguna, son inc\[OAcute]gnitas libres." }], "Text"] }, Closed]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 937}}, WindowSize->{815, 624}, WindowMargins->{{12, Automatic}, {Automatic, 0}}, StyleDefinitions -> "ArticleModern.nb" ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 228, 5, 95, "Title"], Cell[CellGroupData[{ Cell[2029, 62, 136, 2, 76, "SectionFirst"], Cell[2168, 66, 260, 7, 26, "Text"], Cell[2431, 75, 1572, 58, 80, "Text"], Cell[CellGroupData[{ Cell[4028, 137, 150, 4, 43, "Input"], Cell[4181, 143, 109, 2, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4327, 150, 148, 4, 43, "Input"], Cell[4478, 156, 118, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4633, 164, 151, 4, 43, "Input"], Cell[4787, 170, 148, 3, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4972, 178, 171, 4, 43, "Input"], Cell[5146, 184, 97, 2, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5280, 191, 145, 4, 43, "Input"], Cell[5428, 197, 88, 2, 59, "Output"] }, Open ]], Cell[5531, 202, 85, 2, 42, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5653, 209, 171, 3, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[5849, 216, 123, 2, 54, "Subsection"], Cell[5975, 220, 252, 5, 40, "Text"], Cell[6230, 227, 112, 3, 43, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[6379, 235, 131, 2, 32, "Subsection"], Cell[CellGroupData[{ Cell[6535, 241, 84, 3, 43, "Input"], Cell[6622, 246, 73, 2, 44, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6744, 254, 135, 2, 32, "Subsection"], Cell[CellGroupData[{ Cell[6904, 260, 91, 3, 43, "Input"], Cell[6998, 265, 107, 2, 44, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7154, 273, 135, 2, 32, "Subsection"], Cell[CellGroupData[{ Cell[7314, 279, 104, 3, 43, "Input"], Cell[7421, 284, 101, 2, 44, "Output"] }, Open ]], Cell[7537, 289, 382, 9, 44, "Text"], Cell[CellGroupData[{ Cell[7944, 302, 106, 3, 43, "Input"], Cell[8053, 307, 85, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8175, 314, 129, 3, 43, "Input"], Cell[8307, 319, 62, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8406, 326, 107, 3, 43, "Input"], Cell[8516, 331, 68, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8621, 338, 128, 3, 43, "Input"], Cell[8752, 343, 62, 2, 42, "Output"] }, Open ]], Cell[8829, 348, 101, 3, 43, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[8979, 357, 193, 3, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[9197, 364, 141, 2, 54, "Subsection"], Cell[9341, 368, 1180, 47, 44, "Text"], Cell[10524, 417, 97, 3, 43, "Input"], Cell[CellGroupData[{ Cell[10646, 424, 96, 3, 43, "Input"], Cell[10745, 429, 150, 3, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10932, 437, 337, 9, 43, "Input"], Cell[11272, 448, 16594, 462, 194, 4165, 303, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[27881, 913, 278, 7, 28, "Text"], Cell[CellGroupData[{ Cell[28184, 924, 120, 3, 43, "Input"], Cell[28307, 929, 107, 2, 42, "Output"] }, Open ]], Cell[28429, 934, 796, 28, 46, "Text"], Cell[29228, 964, 94, 3, 43, "Input"], Cell[CellGroupData[{ Cell[29347, 971, 96, 3, 43, "Input"], Cell[29446, 976, 376, 8, 80, "Output"] }, Open ]], Cell[29837, 987, 132, 6, 28, "Text"], Cell[CellGroupData[{ Cell[29994, 997, 97, 3, 43, "Input"], Cell[30094, 1002, 753, 14, 58, "Output"] }, Open ]], Cell[30862, 1019, 130, 6, 28, "Text"], Cell[CellGroupData[{ Cell[31017, 1029, 98, 3, 43, "Input"], Cell[31118, 1034, 753, 14, 58, "Output"] }, Open ]], Cell[31886, 1051, 130, 6, 28, "Text"], Cell[CellGroupData[{ Cell[32041, 1061, 62, 2, 42, "Input"], Cell[32106, 1065, 753, 14, 58, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[32908, 1085, 353, 12, 32, "Subsection"], Cell[33264, 1099, 2288, 90, 62, "Text"], Cell[CellGroupData[{ Cell[35577, 1193, 97, 3, 43, "Input"], Cell[35677, 1198, 156, 3, 57, "Output"] }, Open ]], Cell[35848, 1204, 896, 30, 85, "Text"], Cell[CellGroupData[{ Cell[36769, 1238, 92, 3, 43, "Input"], Cell[36864, 1243, 60, 2, 42, "Output"] }, Open ]], Cell[36939, 1248, 437, 12, 44, "Text"], Cell[CellGroupData[{ Cell[37401, 1264, 97, 3, 43, "Input"], Cell[37501, 1269, 109, 2, 42, "Output"] }, Open ]], Cell[37625, 1274, 1074, 39, 64, "Text"], Cell[CellGroupData[{ Cell[38724, 1317, 97, 3, 43, "Input"], Cell[38824, 1322, 398, 8, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39259, 1335, 98, 3, 43, "Input"], Cell[39360, 1340, 707, 12, 58, "Output"] }, Open ]], Cell[40082, 1355, 1016, 34, 27, "Text"], Cell[CellGroupData[{ Cell[41123, 1393, 80, 3, 43, "Input"], Cell[41206, 1398, 612, 11, 58, "Output"] }, Open ]], Cell[41833, 1412, 271, 9, 28, "Text"], Cell[42107, 1423, 1184, 35, 98, "Text"], Cell[CellGroupData[{ Cell[43316, 1462, 101, 3, 43, "Input"], Cell[43420, 1467, 398, 7, 27, "Message"], Cell[43821, 1476, 74, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43932, 1483, 102, 3, 43, "Input"], Cell[44037, 1488, 175, 4, 42, "Output"] }, Open ]], Cell[44227, 1495, 375, 15, 29, "Text"], Cell[CellGroupData[{ Cell[44627, 1514, 100, 3, 43, "Input"], Cell[44730, 1519, 61, 2, 42, "Output"] }, Open ]], Cell[44806, 1524, 403, 16, 29, "Text"], Cell[CellGroupData[{ Cell[45234, 1544, 96, 3, 43, "Input"], Cell[45333, 1549, 63, 2, 42, "Output"] }, Open ]], Cell[45411, 1554, 786, 31, 44, "Text"], Cell[CellGroupData[{ Cell[46222, 1589, 170, 4, 43, "Input"], Cell[46395, 1595, 328, 5, 13, "Message"], Cell[46726, 1602, 136, 3, 42, "Output"] }, Open ]], Cell[46877, 1608, 171, 4, 28, "Text"], Cell[CellGroupData[{ Cell[47073, 1616, 113, 3, 43, "Input"], Cell[47189, 1621, 60, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47286, 1628, 113, 3, 43, "Input"], Cell[47402, 1633, 60, 2, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[47511, 1641, 223, 7, 32, "Subsection"], Cell[47737, 1650, 1019, 32, 80, "Text"], Cell[CellGroupData[{ Cell[48781, 1686, 112, 3, 43, "Input"], Cell[48896, 1691, 61, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48994, 1698, 113, 3, 43, "Input"], Cell[49110, 1703, 87, 2, 42, "Output"] }, Open ]], Cell[49212, 1708, 85, 1, 24, "Text"], Cell[CellGroupData[{ Cell[49322, 1713, 112, 3, 43, "Input"], Cell[49437, 1718, 175, 3, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49649, 1726, 113, 3, 43, "Input"], Cell[49765, 1731, 377, 7, 99, "Output"] }, Open ]], Cell[50157, 1741, 102, 3, 43, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[50296, 1749, 186, 3, 32, "Subsection"], Cell[50485, 1754, 1487, 48, 98, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[52021, 1808, 165, 3, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[52211, 1815, 121, 2, 54, "Subsection"], Cell[52335, 1819, 95, 3, 24, "Text"], Cell[CellGroupData[{ Cell[52455, 1826, 86, 3, 43, "Input"], Cell[52544, 1831, 67, 2, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[52660, 1839, 129, 2, 32, "Subsection"], Cell[CellGroupData[{ Cell[52814, 1845, 99, 3, 43, "Input"], Cell[52916, 1850, 72, 2, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[53037, 1858, 149, 2, 32, "Subsection"], Cell[CellGroupData[{ Cell[53211, 1864, 95, 3, 43, "Input"], Cell[53309, 1869, 78, 2, 42, "Output"] }, Open ]], Cell[53402, 1874, 101, 3, 43, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[53552, 1883, 183, 3, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[53760, 1890, 2477, 87, 99, "Subsubsection"], Cell[56240, 1979, 159, 4, 43, "Input"], Cell[CellGroupData[{ Cell[56424, 1987, 116, 3, 43, "Input"], Cell[56543, 1992, 93, 2, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[56685, 2000, 1067, 38, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[57777, 2042, 116, 3, 43, "Input"], Cell[57896, 2047, 60, 2, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[58005, 2055, 1076, 38, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[59106, 2097, 117, 3, 43, "Input"], Cell[59226, 2102, 104, 2, 42, "Output"] }, Open ]], Cell[59345, 2107, 101, 3, 43, "Input"], Cell[59449, 2112, 463, 15, 44, "Text"], Cell[59915, 2129, 1612, 57, 48, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[61576, 2192, 203, 4, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[61804, 2200, 1207, 43, 62, "Subsubsection"], Cell[63014, 2245, 130, 3, 43, "Input"], Cell[CellGroupData[{ Cell[63169, 2252, 130, 3, 43, "Input"], Cell[63302, 2257, 229, 4, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[63580, 2267, 989, 37, 46, "Subsubsection"], Cell[64572, 2306, 109, 2, 42, "Input"], Cell[CellGroupData[{ Cell[64706, 2312, 130, 3, 43, "Input"], Cell[64839, 2317, 105, 2, 42, "Output"] }, Open ]], Cell[64959, 2322, 101, 3, 43, "Input"], Cell[65063, 2327, 463, 15, 44, "Text"], Cell[65529, 2344, 8456, 301, 201, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[74034, 2651, 196, 3, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[74255, 2658, 1717, 58, 82, "Subsubsection"], Cell[75975, 2718, 391, 9, 42, "Text"], Cell[CellGroupData[{ Cell[76391, 2731, 161, 5, 43, "Input"], Cell[76555, 2738, 327, 5, 13, "Message"], Cell[76885, 2745, 110, 2, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77032, 2752, 107, 3, 43, "Input"], Cell[77142, 2757, 94, 2, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77273, 2764, 146, 3, 42, "Input"], Cell[77422, 2769, 339, 8, 53, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[77798, 2782, 111, 3, 43, "Input"], Cell[77912, 2787, 82, 2, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78031, 2794, 111, 3, 43, "Input"], Cell[78145, 2799, 75, 2, 42, "Output"] }, Open ]], Cell[78235, 2804, 557, 24, 26, "Text"], Cell[CellGroupData[{ Cell[78817, 2832, 99, 3, 43, "Input"], Cell[78919, 2837, 62, 2, 42, "Output"] }, Open ]], Cell[78996, 2842, 293, 12, 26, "Text"], Cell[CellGroupData[{ Cell[79314, 2858, 111, 3, 43, "Input"], Cell[79428, 2863, 91, 2, 42, "Output"] }, Open ]], Cell[79534, 2868, 264, 12, 26, "Text"], Cell[CellGroupData[{ Cell[79823, 2884, 127, 3, 43, "Input"], Cell[79953, 2889, 88, 2, 42, "Output"] }, Open ]], Cell[80056, 2894, 388, 13, 44, "Text"], Cell[CellGroupData[{ Cell[80469, 2911, 139, 4, 61, "Input"], Cell[80611, 2917, 59, 2, 42, "Output"] }, Open ]], Cell[80685, 2922, 652, 28, 26, "Text"], Cell[CellGroupData[{ Cell[81362, 2954, 106, 3, 43, "Input"], Cell[81471, 2959, 63, 2, 42, "Output"] }, Open ]], Cell[81549, 2964, 466, 15, 44, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[82052, 2984, 306, 10, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[82383, 2998, 145, 4, 43, "Input"], Cell[82531, 3004, 99, 2, 42, "Output"] }, Open ]], Cell[82645, 3009, 466, 15, 44, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[83148, 3029, 504, 18, 29, "Subsubsection"], Cell[83655, 3049, 85, 1, 24, "Text"], Cell[83743, 3052, 96, 3, 43, "Input"], Cell[CellGroupData[{ Cell[83864, 3059, 157, 5, 43, "Input"], Cell[84024, 3066, 103, 2, 42, "Output"] }, Open ]], Cell[84142, 3071, 96, 3, 43, "Input"], Cell[CellGroupData[{ Cell[84263, 3078, 170, 5, 43, "Input"], Cell[84436, 3085, 328, 5, 13, "Message"], Cell[84767, 3092, 131, 3, 57, "Output"] }, Open ]], Cell[84913, 3098, 80, 3, 43, "Input"], Cell[84996, 3103, 96, 3, 43, "Input"], Cell[CellGroupData[{ Cell[85117, 3110, 170, 5, 43, "Input"], Cell[85290, 3117, 119, 3, 42, "Output"] }, Open ]], Cell[85424, 3123, 102, 3, 43, "Input"], Cell[85529, 3128, 466, 15, 44, "Text"], Cell[85998, 3145, 658, 18, 62, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[86705, 3169, 159, 3, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[86889, 3176, 2283, 81, 82, "Subsubsection"], Cell[89175, 3259, 719, 23, 46, "Text"], Cell[89897, 3284, 128, 3, 43, "Input"], Cell[CellGroupData[{ Cell[90050, 3291, 134, 4, 43, "Input"], Cell[90187, 3297, 569, 10, 120, "Output"] }, Open ]], Cell[90771, 3310, 528, 16, 60, "Text"], Cell[91302, 3328, 7064, 250, 179, "Text"], Cell[98369, 3580, 93, 3, 24, "Text"], Cell[98465, 3585, 94, 3, 43, "Input"], Cell[98562, 3590, 425, 17, 26, "Text"], Cell[CellGroupData[{ Cell[99012, 3611, 89, 3, 43, "Input"], Cell[99104, 3616, 97, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99238, 3623, 105, 3, 43, "Input"], Cell[99346, 3628, 327, 5, 13, "Message"], Cell[99676, 3635, 88, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99801, 3642, 93, 2, 42, "Input"], Cell[99897, 3646, 404, 12, 84, "Output"] }, Open ]], Cell[100316, 3661, 284, 8, 26, "Text"], Cell[CellGroupData[{ Cell[100625, 3673, 86, 3, 43, "Input"], Cell[100714, 3678, 148, 4, 43, "Output"] }, Open ]], Cell[100877, 3685, 64, 0, 24, "Text"], Cell[CellGroupData[{ Cell[100966, 3689, 83, 3, 43, "Input"], Cell[101052, 3694, 119, 3, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101208, 3702, 124, 3, 43, "Input"], Cell[101335, 3707, 60, 2, 42, "Output"] }, Open ]], Cell[101410, 3712, 375, 13, 42, "Text"], Cell[101788, 3727, 220, 8, 26, "Text"], Cell[CellGroupData[{ Cell[102033, 3739, 95, 2, 42, "Input"], Cell[102131, 3743, 405, 12, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102573, 3760, 87, 3, 43, "Input"], Cell[102663, 3765, 133, 3, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102833, 3773, 84, 3, 43, "Input"], Cell[102920, 3778, 120, 3, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103077, 3786, 125, 3, 43, "Input"], Cell[103205, 3791, 61, 2, 42, "Output"] }, Open ]], Cell[103281, 3796, 102, 3, 43, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[103432, 3805, 765, 24, 50, "SectionFirst"], Cell[CellGroupData[{ Cell[104222, 3833, 2039, 59, 131, "Subsubsection"], Cell[106264, 3894, 366, 17, 26, "Text"], Cell[CellGroupData[{ Cell[106655, 3915, 277, 6, 79, "Input"], Cell[106935, 3923, 411, 12, 84, "Output"] }, Open ]], Cell[107361, 3938, 545, 23, 26, "Text"], Cell[CellGroupData[{ Cell[107931, 3965, 89, 3, 43, "Input"], Cell[108023, 3970, 100, 2, 42, "Output"] }, Open ]], Cell[108138, 3975, 565, 22, 42, "Text"] }, Closed]], Cell[108718, 4000, 853, 26, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[109596, 4030, 796, 26, 44, "Subsubsection"], Cell[110395, 4058, 166, 7, 28, "Text"], Cell[CellGroupData[{ Cell[110586, 4069, 89, 3, 45, "Input"], Cell[110678, 4074, 86, 2, 44, "Output"] }, Open ]], Cell[110779, 4079, 215, 7, 28, "Text"], Cell[CellGroupData[{ Cell[111019, 4090, 149, 4, 45, "Input"], Cell[111171, 4096, 442, 13, 102, "Output"] }, Open ]], Cell[111628, 4112, 106, 3, 27, "Text"], Cell[CellGroupData[{ Cell[111759, 4119, 84, 3, 45, "Input"], Cell[111846, 4124, 62, 2, 44, "Output"] }, Open ]] }, Closed]], Cell[111935, 4130, 1473, 41, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[113433, 4175, 721, 23, 62, "Subsubsection"], Cell[114157, 4200, 151, 4, 43, "Input"], Cell[CellGroupData[{ Cell[114333, 4208, 160, 5, 43, "Input"], Cell[114496, 4215, 327, 5, 13, "Message"], Cell[114826, 4222, 103, 2, 42, "Output"] }, Open ]], Cell[114944, 4227, 101, 3, 43, "Input"], Cell[115048, 4232, 407, 11, 44, "Text"] }, Closed]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)