(************** 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.
*******************************************************************)