(************** 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[ 275698, 8001]*)
(*NotebookOutlinePosition[ 276385, 8024]*)
(* CellTagsIndexPosition[ 276341, 8020]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["PRESENTACI\[CapitalOAcute]N PR\[CapitalAAcute]CTICA 4", "Title",
TextAlignment->Center,
TextJustification->0,
FontColor->RGBColor[0, 0, 1],
Background->RGBColor[0, 1, 1],
FontVariations->{"CompatibilityType"->0}],
Cell[CellGroupData[{
Cell[TextData[StyleBox["INTRODUCCI\[CapitalOAcute]N",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
"En esta pr\[AAcute]ctica trabajamos con los espacios vectoriales eucl\
\[IAcute]deos. ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" tiene incorporda una funci\[OAcute]n (",
StyleBox["Dot",
FontFamily->"Courier",
FontWeight->"Bold"],
") para realizar el producto escalar usual en ",
Cell[BoxData[
FormBox[
SuperscriptBox["\[DoubleStruckCapitalR]",
StyleBox["n",
FontWeight->"Plain",
FontSlant->"Plain",
FontTracking->"Plain",
FontVariations->{"Underline"->False,
"Outline"->False,
"Shadow"->False,
"StrikeThrough"->False,
"Masked"->False,
"CompatibilityType"->0,
"RotationAngle"->0}]], TraditionalForm]]],
". Otros productos escalares, bien en ",
Cell[BoxData[
FormBox[
SuperscriptBox["\[DoubleStruckCapitalR]",
StyleBox["n",
FontSlant->"Plain"]], TraditionalForm]]],
", bien en otros espacios vectoriales eucl\[IAcute]deos deberemos \
cargarlos, nomalmente en forma de funci\[OAcute]n.\n\nCiertas funciones de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" no se encuentran disponibles hasta que no se cargue el paquete que la \
contiene (mediante ",
StyleBox[""Courier",
FontWeight->"Bold"],
" o la funci\[OAcute]n ",
StyleBox["Needs",
FontFamily->"Courier",
FontWeight->"Bold"],
"). Es importante tener en cuenta que es conveniente cargar los paquetes \
antes de utilizar cualquiera de las funciones que est\[AAcute]n contenidas en \
\[EAcute]l, ya que si no se produce un error. "
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(u = {{1, 1}, {1, 0}}; GramSchmidt[u]\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(GramSchmidt[{{1, 1}, {1, 0}}]\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\("In[2]:=",
FontSize->14],
Cell[BoxData[
RowBox[{\(GramSchmidt::"shdw"\), \(\(:\)\(\ \)\), "\\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::shdw\\\"]\\)\"\>"}]], "Message",
CellLabel->"From In[2]:="]
}, Open ]],
Cell["En este caso lo que debemos hacer es ", "Text"],
Cell[BoxData[
\(Remove[GramSchmidt]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(GramSchmidt[u]\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\({{1\/\@2, 1\/\@2}, {1\/\@2, \(-\(1\/\@2\)\)}}\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Names["\"]\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\({"GramSchmidt", "Householder", "InnerProduct", "Normalize",
"Normalized", "Projection"}\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[TextData[{
"Tambi\[EAcute]n debemos tener cuidado y no cometer errores \
tipogr\[AAcute]ficos cuando cargamos un paquete pues podemos tener problemas, \
por lo que resulta conveniente ir a la ayuda de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" y copiar y pegar en nuestro documento la funci\[OAcute]n que nos carga \
cada paquete que necesitemos.\n\nMientras no cerremos la sesi\[OAcute]n de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" los paquetes que hallamos cargado los tendremos disponibles para utilizar \
cualquiera de las funciones que est\[EAcute]n contenidas en ellos. A veces al \
cargar un paquete se cargan de forma autom\[AAcute]tica otros paquetes. Si \
queremos saber que paquetes se han cargado en nuestra sesi\[OAcute]n de \
trabajo haremos:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\($Packages\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\({"LinearAlgebra`Orthogonalization`", "Global`", "System`"}\)], "Output",\
CellLabel->"Out[6]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[7]:=",
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["EJERCICIO 4.1 (Un producto escalar en ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)],
FontColor->RGBColor[0, 0, 1]],
StyleBox[" que no es el usual)",
FontColor->RGBColor[0, 0, 1]]
}], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Consideremos en ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[\(\[DoubleStruckCapitalR]\^3\),
FontColor->RGBColor[0, 0, 1]], TraditionalForm]]],
StyleBox[" el producto escalar:\n\t\t",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\[LeftAngleBracket]x\&_,
y\&_\[RightAngleBracket] = \(x\_1\) y\_1 + \(x\_1\) y\_2 + \(x\_2\)
y\_1 + 2 \( x\_2\) y\_2 + \(x\_3\) y\_3\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Helvetica",
FontSize->14],
"\n\t\t",
StyleBox["\n",
FontColor->RGBColor[0, 0, 1]],
StyleBox["a.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular el producto escalar de los vectores ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], "=", \((2, 1, \(-1\))\)}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1]],
", ",
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox[
StyleBox["y",
FontSlant->"Plain"], "_"], "=", \((3, 0, 1)\)}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1]],
" "
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(x = {2, 1, \(-1\)}; y = {3, 0, 1};\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell["\", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"pe", "[",
RowBox[{
RowBox[{"x_", "?",
StyleBox["VectorQ",
FontColor->RGBColor[1, 0, 1]]}], ",",
RowBox[{"y_", "?",
StyleBox["VectorQ",
FontColor->RGBColor[1, 0, 1]]}]}], "]"}],
":=", \(x[\([1]\)] y[\([1]\)] + x[\([1]\)] y[\([2]\)] +
x[\([2]\)] y[\([1]\)] + 2 x[\([2]\)] y[\([2]\)] +
x[\([3]\)] y[\([3]\)]\)}]], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(pe[x, y]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(8\)], "Output",
CellLabel->"Out[3]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["b.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular la norma del vector ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], TraditionalForm]],
FontColor->RGBColor[0, 0, 1]],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
"Definimos la funci\[OAcute]n norma como una funci\[OAcute]n de una \
variable. Recordemos que:\n\t\t\t\t\t\t\t\t",
Cell[BoxData[
RowBox[{" ",
StyleBox[\(\(\(\[DoubleVerticalBar]\)\(x\&_\)\(\[DoubleVerticalBar]\)\
\) = \@\(\(\(\[Precedes]\)\(x\&_\)\), \(\(x\&_\)\(\[Succeeds]\)\)\)\),
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"]}]]]
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
\(\(n[x_] := Sqrt[pe[x, x]];\)\), "\n",
\(n[{2, 1, \(-1\)}]\)}], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(\@11\)], "Output",
CellLabel->"Out[5]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["c.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular la distancia entre los vectores ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], TraditionalForm]]],
StyleBox[" e ",
FontColor->RGBColor[0, 0, 1]],
" ",
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["y",
FontSlant->"Plain"], "_"], TraditionalForm]]],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
"Definimos la funci\[OAcute]n distancia como una funci\[OAcute]n de dos \
variables. Recordemos que:\n\t\t\t\t\t\t\t\t",
Cell[BoxData[
RowBox[{" ",
StyleBox[\(\(\(\[DoubleVerticalBar]\)\(d \((x\&_,
y\&_)\)\)\(\[DoubleVerticalBar]\)\) = \(\(\
\[DoubleVerticalBar]\)\(x\&_ - y\&_\)\(\[DoubleVerticalBar]\)\)\),
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"]}]]]
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
\(\(d[x_, y_] := n[x - y];\)\), "\n",
\(d[{2, 1, \(-1\)}, {3, 0, 1}]\)}], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(\@5\)], "Output",
CellLabel->"Out[7]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["d.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular la matriz de Gram del producto escalar en la base can\
\[OAcute]nica de ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[\(\[DoubleStruckCapitalR]\^3\),
FontColor->RGBColor[0, 0, 1]], TraditionalForm]]],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
"Recordar que la matriz de Gram en la base can\[OAcute]nica de ",
Cell[BoxData[
\(TraditionalForm\`\[DoubleStruckCapitalR]\^3\)]],
"\n\t\t\t\t\t",
Cell[BoxData[
StyleBox[\(B\_C = {\ e\&_\_1 = \((1, 0, 0)\), e\&_\_2 = \((1, 0, 0)\),
e\&_\_3 = \((1, 0, 0)\)\ }\),
FontFamily->"Helvetica",
FontWeight->"Bold"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"\nse calcula del modo siguiente:\n\t\t\t\t\t\t",
Cell[BoxData[
StyleBox[
RowBox[{\(G\_\(B\_C\)\), "=",
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{\(\[LeftAngleBracket]e\&_\_1,
e\&_\_1\[RightAngleBracket]\), \
\(\[LeftAngleBracket]e\&_\_1,
e\&_\_2\[RightAngleBracket]\), \
\(\[LeftAngleBracket]e\&_\_1, e\&_\_3\[RightAngleBracket]\)},
{\(\[LeftAngleBracket]e\&_\_2,
e\&_\_1\[RightAngleBracket]\), \
\(\[LeftAngleBracket]e\&_\_2,
e\&_\_2\[RightAngleBracket]\), \
\(\[LeftAngleBracket]e\&_\_2, e\&_\_3\[RightAngleBracket]\)},
{\(\[LeftAngleBracket]e\&_\_3,
e\&_\_1\[RightAngleBracket]\), \
\(\[LeftAngleBracket]e\&_\_3,
e\&_\_2\[RightAngleBracket]\), \
\(\[LeftAngleBracket]e\&_\_3, e\&_\_3\[RightAngleBracket]\)}
}], "\[NoBreak]", ")"}],
(MatrixForm[ #]&)]}],
FontFamily->"Helvetica",
FontWeight->"Bold"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"\t\t\t\nComo los elementos de una matriz de Gram siguen una ley de formaci\
\[OAcute]n utilizaremos la funci\[OAcute]n ",
StyleBox["Table",
FontFamily->"Courier",
FontWeight->"Bold"],
" para generar la metriz de Gram."
}], "Text"],
Cell[BoxData[
\(\(u = {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}};\)\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(gu = Table[pe[u[\([i]\)], u[\([j]\)]], {i, 3}, {j, 3}]\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\({{1, 1, 0}, {1, 2, 0}, {0, 0, 1}}\)], "Output",
CellLabel->"Out[9]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(MatrixForm[%]\)], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{"1", "1", "0"},
{"1", "2", "0"},
{"0", "0", "1"}
},
RowSpacings->1,
ColumnSpacings->1,
ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
Function[ BoxForm`e$,
MatrixForm[ BoxForm`e$]]]], "Output",
CellLabel->"Out[10]//MatrixForm="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["e.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar una base ortonormal de",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(\(\ \)\((\ \[DoubleStruckCapitalR]\^3, \ \[LeftAngleBracket]\ \ , \ \
\[RightAngleBracket])\)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell["\", \
"Text"],
Cell[BoxData[
\("In[11]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(GramSchmidt[u, InnerProduct \[Rule] pe]\)], "Input",
CellLabel->"In[12]:=",
FontSize->14],
Cell[BoxData[
\({{1, 0, 0}, {\(-1\), 1, 0}, {0, 0, 1}}\)], "Output",
CellLabel->"Out[12]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["f.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar una base ortogonal de",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(\(\ \)\((\ \[DoubleStruckCapitalR]\^3, \ \[LeftAngleBracket]\ \ , \ \
\[RightAngleBracket])\)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"GramSchmidt", "[",
RowBox[{"u", ",", \(InnerProduct \[Rule] pe\), ",",
StyleBox[\(Normalized \[Rule] False\),
FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[BoxData[
\({{1, 0, 0}, {\(-1\), 1, 0}, {0, 0, 1}}\)], "Output",
CellLabel->"Out[13]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["g.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Sea ",
FontColor->RGBColor[0, 0, 1]],
" S=\[ScriptCapitalL]({(2,1,1),(1,0,-1)})",
StyleBox[". Hallar una base ortogonal de",
FontColor->RGBColor[0, 0, 1]],
" S con el producto escalar del problema."
}], "Subsubsection",
CellDingbat->None,
TextJustification->1,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(us = {{2, 1, 1}, {1, 0, \(-1\)}};\)\)], "Input",
CellLabel->"In[14]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"es", "=",
RowBox[{"GramSchmidt", "[",
RowBox[{"us", ",", \(InnerProduct \[Rule] pe\), ",",
StyleBox[\(Normalized \[Rule] False\),
FontColor->RGBColor[1, 0, 0]]}], "]"}]}]], "Input",
CellLabel->"In[15]:=",
FontSize->14],
Cell[BoxData[
\({{2, 1, 1}, {7\/11, \(-\(2\/11\)\), \(-\(13\/11\)\)}}\)], "Output",
CellLabel->"Out[15]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(os = GramSchmidt[us, InnerProduct \[Rule] pe]\)], "Input",
CellLabel->"In[16]:=",
FontSize->14],
Cell[BoxData[
\({{2\/\@11, 1\/\@11,
1\/\@11}, {7\/\(3\ \@22\), \(-\(\@\(2\/11\)\/3\)\), \(-\(13\/\(3\ \
\@22\)\)\)}}\)], "Output",
CellLabel->"Out[16]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["h.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar la mejor aproximaci\[OAcute]n del vector ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], TraditionalForm]]],
StyleBox["= (1,3,4) en S.",
FontColor->RGBColor[0, 0, 1]],
" "
}], "Subsubsection",
CellDingbat->None,
TextJustification->1,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(v = {1, 3, 4};\)\)], "Input",
CellLabel->"In[17]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(vp =
Sum[Projection[v, es[\([i]\)], InnerProduct \[Rule] pe], {i,
2}]\)], "Input",
CellLabel->"In[18]:=",
FontSize->14],
Cell[BoxData[
\({19\/9, 19\/9, 38\/9}\)], "Output",
CellLabel->"Out[18]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(vp =
Sum[Projection[v, os[\([i]\)], InnerProduct \[Rule] pe], {i,
2}]\)], "Input",
CellLabel->"In[19]:=",
FontSize->14],
Cell[BoxData[
\({38\/11 + \(7\ \((\(14\ \@\(2\/11\)\)\/3 - \@22)\)\)\/\(3\ \@22\),
19\/11 - 1\/3\ \@\(2\/11\)\ \((\(14\ \@\(2\/11\)\)\/3 - \@22)\),
19\/11 - \(13\ \((\(14\ \@\(2\/11\)\)\/3 - \@22)\)\)\/\(3\ \@22\)}\)], \
"Output",
CellLabel->"Out[19]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Simplify[%]\)], "Input",
CellLabel->"In[20]:=",
FontSize->14],
Cell[BoxData[
\({19\/9, 19\/9, 38\/9}\)], "Output",
CellLabel->"Out[20]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[21]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["EJERCICIO 4.2 (Trabajando con el producto escalar usual en ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(TraditionalForm\`\[DoubleStruckCapitalR]\^4\)],
FontColor->RGBColor[0, 0, 1]],
StyleBox[")",
FontColor->RGBColor[0, 0, 1]]
}], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Consideremos en ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[\(\[DoubleStruckCapitalR]\^4\),
FontColor->RGBColor[0, 0, 1]], TraditionalForm]]],
StyleBox[" el producto escalar usual y sea el subespacio vectorial:\n\n\t\t\
\t\t",
FontColor->RGBColor[0, 0, 1]],
StyleBox["S=\[ScriptCapitalL]({(1,0,1,0),(1,-1,0,1),(1,1,1,1)})",
FontSize->16],
"\n\t\t\t\t",
StyleBox["\n",
FontColor->RGBColor[0, 0, 1]],
StyleBox["a.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular el producto escalar de los vectores ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], "=", \((1, 2, 3, \(-1\))\)}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1]],
", ",
StyleBox[" ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox[
StyleBox["y",
FontSlant->"Plain"], "_"], "=", \((\(-1\), 3, 5, 0)\)}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1]],
"."
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
"Podemos calcular el producto escalar usual entre vectores de ",
Cell[BoxData[
FormBox[
SuperscriptBox["\[DoubleStruckCapitalR]",
StyleBox["n",
FontSlant->"Plain"]], TraditionalForm]]],
"de dos maneras:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\({1, 2, 3, \(-1\)} . {\(-1\), 3, 5, 0}\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(20\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Dot[{1, 2, 3, \(-1\)}, {\(-1\), 3, 5, 0}]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(20\)], "Output",
CellLabel->"Out[2]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["b.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular la norma del vector ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox[
StyleBox["z",
FontSlant->"Plain"], "_"], "=", " ", \((1, 0, \(-2\), 4)\)}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1]],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[CellGroupData[{
Cell[BoxData[
\(z = {1, 0, \(-2\), 4}; n = Sqrt[z . z]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(\@21\)], "Output",
CellLabel->"Out[3]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["c.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular la distancia entre los vectores ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], TraditionalForm]]],
StyleBox[" e ",
FontColor->RGBColor[0, 0, 1]],
" ",
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["y",
FontSlant->"Plain"], "_"], TraditionalForm]]],
StyleBox[".",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[CellGroupData[{
Cell[BoxData[
\(d =
Sqrt[\(({1, 2, 3, \(-1\)} - {\(-1\), 3, 5, 0})\) . \(({1, 2,
3, \(-1\)} - {\(-1\), 3, 5, 0})\)]\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(\@10\)], "Output",
CellLabel->"Out[4]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["d.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Calcular la matriz de Gram del producto escalar usual en la base \
B de can\[OAcute]nica de ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[\(\[DoubleStruckCapitalR]\^4\),
FontColor->RGBColor[0, 0, 1]], TraditionalForm]]],
"siguiente:\n\t\t\t",
Cell[BoxData[
\(B = {\ w\&_\_1 = \((1, 1, 1, 1)\), w\&_\_2 = \((1, 1, 1, 0)\),
w\&_\_3 = \((1, 1, 0, 0)\), w\&_\_4 = \((1, 0, 0, 0)\)}\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14]
}], "Subsubsection",
CellDingbat->None,
TextJustification->1,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(w = {{1, 1, 1, 1}, {1, 1, 1, 0}, {1, 1, 0, 0}, {1, 0, 0,
0}};\)\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(gw = Table[w[\([i]\)] . w[\([j]\)], {i, 4}, {j, 4}]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\({{4, 3, 2, 1}, {3, 3, 2, 1}, {2, 2, 2, 1}, {1, 1, 1, 1}}\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(MatrixForm[%]\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{"4", "3", "2", "1"},
{"3", "3", "2", "1"},
{"2", "2", "2", "1"},
{"1", "1", "1", "1"}
},
RowSpacings->1,
ColumnSpacings->1,
ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
Function[ BoxForm`e$,
MatrixForm[ BoxForm`e$]]]], "Output",
CellLabel->"Out[7]//MatrixForm="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["e.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar una base ortogonal ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[
StyleBox["B",
FontSlant->"Plain"], "1"], TraditionalForm]]],
StyleBox[" del subespacio S.",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\("In[8]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{\(u = {{1, 0, 1, 0}, {1, \(-1\), 0, 1}, {1, 1, 1, 1}}\), ";",
RowBox[{"e1", "=",
RowBox[{"GramSchmidt", "[",
RowBox[{"u", ",",
StyleBox[\(Normalized \[Rule] False\),
FontColor->RGBColor[1, 0, 0]]}], "]"}]}]}]], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\({{1, 0, 1, 0}, {1\/2, \(-1\), \(-\(1\/2\)\), 1}, {0, 1, 0,
1}}\)], "Output",
CellLabel->"Out[9]="]
}, Open ]],
Cell[TextData[{
"Como el producto escalar es el usual no es necesario indicarlo, como vemos \
al visualizar las opciones de la funci\[OAcute]n ",
StyleBox["GramSchmidt",
FontFamily->"Courier",
FontWeight->"Bold"],
":"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Options", "[",
StyleBox["GramSchmidt",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["]",
FontFamily->"Courier",
FontWeight->"Bold"]}]], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[BoxData[
\({InnerProduct \[Rule] Dot, Normalized \[Rule] True}\)], "Output",
CellLabel->"Out[10]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["f.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar una base ortonormal ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[
StyleBox["B",
FontSlant->"Plain"], "2"], TraditionalForm]]],
StyleBox[" del subespacio S.",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[CellGroupData[{
Cell[BoxData[
\(bon = GramSchmidt[u]\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[BoxData[
\({{1\/\@2, 0, 1\/\@2,
0}, {1\/\@10, \(-\@\(2\/5\)\), \(-\(1\/\@10\)\), \@\(2\/5\)}, {0,
1\/\@2, 0, 1\/\@2}}\)], "Output",
CellLabel->"Out[11]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["g.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar la mejor aproximaci\[OAcute]n del vector ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
OverscriptBox[
StyleBox["x",
FontSlant->"Plain"], "_"], TraditionalForm]]],
StyleBox["= (2,5,3,4) en S.",
FontColor->RGBColor[0, 0, 1]],
" "
}], "Subsubsection",
CellDingbat->None,
TextJustification->1,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(v = {2, 5, 3, 4};\)\)], "Input",
CellLabel->"In[12]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(vp = Sum[Projection[v, e1[\([i]\)]], {i, 3}]\)], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[BoxData[
\({11\/5, 51\/10, 14\/5, 39\/10}\)], "Output",
CellLabel->"Out[13]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(vp \[Equal]
Simplify[Sum[Projection[v, bon[\([i]\)]], {i, 3}]]\)], "Input",
CellLabel->"In[14]:=",
FontSize->14],
Cell[BoxData[
\(True\)], "Output",
CellLabel->"Out[14]="]
}, Open ]],
Cell[TextData[{
"Tampoco es necesario comprobar si el sistema que queremos ortogonalizar u \
ortonormalizar es libre o no; la funci\[OAcute]n ",
StyleBox["GramSchmidt",
FontFamily->"Courier",
FontWeight->"Bold"],
" lo detectar\[AAcute] como vemos en el siguiente apartado:"
}], "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["h.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Hallar una base ortogonal ",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[
StyleBox["B",
FontSlant->"Plain"],
StyleBox["O",
FontSlant->"Plain"]], TraditionalForm]]],
StyleBox[" del subespacio engendrado por los vectores:\n\t\t\t",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(w\&_\_1 = \((1, 1, 1, 1)\), w\&_\_2 = \((1, 1, 1, 0)\),
w\&_\_3 = \((2, 2, 2, 1)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14]
}], "Subsubsection",
CellDingbat->None,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
"Los tres vectores ",
StyleBox["{",
FontSize->14],
Cell[BoxData[
\(w\&_\_1, w\&_\_2, w\&_\_3\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
StyleBox["} ",
FontSize->14],
"son linealmente dependientes pues es trivial observar que ",
Cell[BoxData[
\(w\&_\_3 = w\&_\_1 + w\&_\_2\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
". Si aplicamos directamente la funci\[OAcute]n ",
StyleBox["GramSchmidt",
FontFamily->"Courier",
FontWeight->"Bold"],
", veremos que nos va a devolver un sistema con tres vectores pero el \
\[UAcute]ltimo es el vector nulo. Adem\[AAcute]s ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" nos avisa que el sistema es linealmente dependiente. Debemos obviamente \
descartar ese vector nulo y obtendremos una base ortogonal del subespacio \
vectorial."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(ws = {{1, 1, 1, 1}, {1, 1, 1, 0}, {2, 2, 2, 1}};
es = GramSchmidt[ws]\)], "Input",
CellLabel->"In[15]:=",
FontSize->14],
Cell[BoxData[
\(GramSchmidt::"zeromag" \(\(:\)\(\ \)\)
"The magnitude of \!\({0, 0, 0, 0}\) was zero under the inner product \
\!\(Dot\). This suggests that the vectors are linearly dependent."\)], \
"Message",
CellLabel->"From In[15]:="],
Cell[BoxData[
\({{1\/2, 1\/2, 1\/2, 1\/2}, {1\/\(2\ \@3\), 1\/\(2\ \@3\),
1\/\(2\ \@3\), \(-\(\@3\/2\)\)}, {0, 0, 0, 0}}\)], "Output",
CellLabel->"Out[15]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Print[\*"\"\\"", Drop[es, {3}]]\)], "Input",\
CellLabel->"In[16]:=",
FontSize->14],
Cell[BoxData[
InterpretationBox[\("base ortonormal del subespacio engendrado por los \
vectores {\!\(w\&_\_1\),\!\(w\&_\_2\),\!\(w\&_\_3\)}="\[InvisibleSpace]{{1\/2,\
1\/2, 1\/2, 1\/2}, {1\/\(2\ \@3\), 1\/\(2\ \@3\),
1\/\(2\ \@3\), \(-\(\@3\/2\)\)}}\),
SequenceForm[
"base ortonormal del subespacio engendrado por los vectores \
{\!\(w\&_\_1\),\!\(w\&_\_2\),\!\(w\&_\_3\)}=", {{
Rational[ 1, 2],
Rational[ 1, 2],
Rational[ 1, 2],
Rational[ 1, 2]}, {
Times[
Rational[ 1, 2],
Power[ 3,
Rational[ -1, 2]]],
Times[
Rational[ 1, 2],
Power[ 3,
Rational[ -1, 2]]],
Times[
Rational[ 1, 2],
Power[ 3,
Rational[ -1, 2]]],
Times[
Rational[ -1, 2],
Power[ 3,
Rational[ 1, 2]]]}}],
Editable->False]], "Print",
CellLabel->"From In[16]:="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[17]:=",
FontSize->14],
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[" adecuado y justificando las respuestas, responder a las \
siguientes cuestiones:\nSea el espacio vectorial ",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[
SuperscriptBox[
StyleBox["\[DoubleStruckCapitalR]",
FontWeight->"Bold"],
StyleBox["3",
FontWeight->"Bold"]],
FontColor->RGBColor[0, 0, 1]], TraditionalForm]]],
" ",
StyleBox["con el producto escalar usual",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox["\n",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox["a.-",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" Aplicar el proceso de Gram-Schmidt a la colecci\[OAcute]n de \
vectores {",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox[
OverscriptBox[
FormBox[
StyleBox["u",
FontWeight->"Bold",
FontSlant->"Plain"],
"TraditionalForm"], "_"],
StyleBox["1",
FontWeight->"Bold"]], "=",
StyleBox[\((1, 2, \(-1\))\),
FontWeight->"Bold"]}], TraditionalForm]],
FontSize->14,
FontColor->RGBColor[0, 0, 1]],
StyleBox[",",
FontSize->14,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
StyleBox[
SubscriptBox[
OverscriptBox[
FormBox[
StyleBox["u",
FontSlant->"Plain"],
"TraditionalForm"], "_"], "2"],
FontWeight->"Bold"], "=",
StyleBox[\((1, 0, 1)\),
FontWeight->"Bold"]}], TraditionalForm]],
FontSize->14,
FontColor->RGBColor[0, 0, 1]],
StyleBox[",",
FontSize->14,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
StyleBox[
SubscriptBox[
OverscriptBox[
FormBox[
StyleBox["u",
FontSlant->"Plain"],
"TraditionalForm"], "_"], "3"],
FontWeight->"Bold"], "=",
StyleBox[\((2, 0, 1)\),
FontWeight->"Bold"]}], TraditionalForm]],
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["Hallar una base ortogonal 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["c.-",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[1, 0, 0]],
StyleBox[" \[DownQuestion]Cu\[AAcute]l es la dimensi\[OAcute]n de S? \
Justificar la respuesta.",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]]
}], "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["EJERCICIO 4.3 (El espacio vectorial de las funciones \
continuas sobre un intervalo cerrado y acotado con el producto escalar \
usual)",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
TextJustification->1,
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[{
"En ",
Cell[BoxData[
RowBox[{
StyleBox[" ",
FontFamily->"Times"],
RowBox[{
StyleBox["(",
FontFamily->"Times"],
StyleBox[" ",
FontFamily->
"Times"], \(\[ScriptCapitalC]\_\([0, 1]\)\ , \ \
\[LeftAngleBracket]\ \ , \ \[RightAngleBracket]\), ")"}]}]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
" con el producto escalar usual, se pide: ",
Cell[BoxData[
StyleBox[" ",
FontColor->GrayLevel[0]]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"\n",
StyleBox["a.- ",
FontColor->RGBColor[1, 0, 0]],
" Hallar una base ortonormal ",
Cell[BoxData[
FormBox[
SubscriptBox[
StyleBox["B",
FontSlant->"Plain"], "ON"], TraditionalForm]]],
" del subespacio vectorial S",
Cell[BoxData[
\(\(\(=\)\(\[ScriptCapitalL] \(({f\_1, f\_2, f\_3})\)\)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
", con\n\t\t\t",
Cell[BoxData[
\(\(f\_1\) \((x)\) = 1\ \ ; \ \ \(f\_2\) \((x)\) =
x\ \ ; \ \ \(f\_3\) \((x)\) = x\^2\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times",
FontSize->14],
"\t\t\t"
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
" Recordemos que el producto escalar usual en el espacio vectorial ",
Cell[BoxData[
\(\[ScriptCapitalC]\_\([0, 1]\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
" es:\n\n\t\t\t\t\t\t\t\t",
Cell[BoxData[
StyleBox[\(\[LeftAngleBracket]f,
g\[RightAngleBracket] = \[Integral]\_0\%1 f \((x)\) g \((x)\)
dx\),
FontFamily->"Times",
FontWeight->"Bold"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14]
}], "Text"],
Cell[BoxData[
\(pe[f_, g_] := Integrate[f\ g, {x, 0, 1}]\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(f1[x_] := 1; f2[x_] := x; f3[x_] := x^2;
u = {f1[x], f2[x], f3[x]};\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[TextData[{
"Comprobar que la familia de funciones",
Cell[BoxData[
\(\(\(\ \)\({f\_1, f\_2, f\_3}\)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
" es libre no es sencillo si utilizamos exclusivamente la \
definici\[OAcute]n de sistema libre de vectores. Hemos visto que no es \
necesario comprobar que el sistema sea libre pues el algoritmo de \
Gram-Schmidt va a detectar si el sistema es ligado. Por lo tanto aplicamos \
directamente la funci\[OAcute]n",
StyleBox[" GramSchmidt ",
FontFamily->"Courier",
FontWeight->"Bold"],
"a esta familia de funciones."
}], "Text"],
Cell[BoxData[
\("In[3]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(w = GramSchmidt[u, InnerProduct -> pe] // Simplify\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\({1, \@3\ \((\(-1\) + 2\ x)\), \@5\ \((1 - 6\ x +
6\ x\^2)\)}\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[TextData[{
"Como hemos obtenido una lista de tres funciones no nulas esto significa \
que el sistema ",
Cell[BoxData[
StyleBox[\({f\_1, f\_2, f\_3}\),
FontFamily->"Helvetica"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"es libre y que la colecci\[OAcute]n que aparece en ",
StyleBox["Out[4]",
FontFamily->"Courier",
FontWeight->"Bold"],
" es una base ortonormal del subespacio S engendrado por ",
Cell[BoxData[
StyleBox[\({f\_1, f\_2, f\_3}\),
FontFamily->"Helvetica"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"."
}], "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["b.- ",
FontColor->RGBColor[1, 0, 0]],
"Hallar la mejor aproximaci\[OAcute]n vp(x) de ",
Cell[BoxData[
StyleBox[\(v \((x)\) = senh\ x\),
FontFamily->"Helvetica"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times",
FontSize->14],
" en el subespacio S.\t\t\t"
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(v[x_] := Sinh[x];\)\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(vp =
Sum[Projection[v[x], w[\([i]\)], InnerProduct \[Rule] pe], {i, 3}] //
Simplify\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(\(-1\) + \(5\ \((19 - 26\ \[ExponentialE] + 7\ \[ExponentialE]\^2)\)\ \
\((1 - 6\ x + 6\ x\^2)\)\)\/\(2\ \[ExponentialE]\) +
Cosh[1] + \(3\ \((\(-1\) + 2\ x)\)\ \((2 + \[ExponentialE] - \
\[ExponentialE]\ Cosh[1])\)\)\/\[ExponentialE]\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(N[vp] // Expand\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\(\(\(0.009251345909136344`\)\(\[InvisibleSpace]\)\) +
0.8908367631049527`\ x + 0.265232722060893`\ x\^2\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
StyleBox[\(v[x]\),
FontColor->RGBColor[0, 1, 0]], ",", "vp"}], "}"}],
",", \({x, 0, 1}\), ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{
StyleBox[\({Dashing[{0.04}], Thickness[0.01]}\),
FontColor->RGBColor[0, 1, 0]], ",", \(Thickness[0.005]\)}],
"}"}]}]}], "]"}], ";"}]], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[8]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@Ko0000lOoIfMT001SofMWI00?o0000omWIfOoIfMT0
4OoIfMT5o`000>oofMWI000HomWIf@;o00005?oIfMT5o`000>gofMWI000HomWIf@03o`000?oIfMWo
fMWI01GofMWI1?l0003/omWIf@006?oIfMT00ol0003ofMWIomWIf@0FomWIf@Go0000j_oIfMT001So
fMWI00?o0000omWIfOoIfMT06?oIfMT2o`000003omWIfOl0003o00000>SofMWI000HomWIf@03o`00
0?oIfMWofMWI01gofMWI0_l0003VomWIf@006?oIfMT00ol0003ofMWIomWIf@0OomWIf@;o0000i?oI
fMT001SofMWI00?o0000omWIfOoIfMT08OoIfMT2o`000>;ofMWI000HomWIf@;o00008_oIfMT4o`00
0>3ofMWI000HomWIf@03o`000?oIfMWofMWI027ofMWI1_l0003NomWIf@006?oIfMT00ol0003ofMWI
omWIf@0SomWIf@Ko0000g?oIfMT001SofMWI00?o0000omWIfOoIfMT09_oIfMT5o`000=[ofMWI0004
omWIf@;o00001?oIfMT01?l0003ofMWIomWIfOoIfMT5o`0000GofMWI00?o0000omWIfOoIfMT0:?oI
fMT6o`000=OofMWI0003omWIf@04o`000?oIfMWofMWIo`0000SofMWI00Co0000omWIfOoIfMWo0000
1OoIfMT00ol0003ofMWIomWIf@0ZomWIf@?o000000?ofMWIo`000?l00000eOoIfMT000?ofMWI00Co
0000omWIfOoIfMWo00002OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI02_ofMWI
0_l00003omWIf@;o0000dooIfMT000?ofMWI00Co0000omWIfOoIfMWo00002_oIfMT00ol0003ofMWI
omWIf@04omWIf@;o0000OoIfMT7o`00
03ofMWI1?l0000QomWIf@006?oI
fMT00ol0003ofMWIomWIf@3TomWIf@03o`000?oIfMWofMWI01kofMWI000HomWIf@;o0000i_oIfMT2
o`0001kofMWI000HomWIf@03o`000?oIfMWofMWI0>OofMWI00?o0000omWIfOoIfMT06ooIfMT001So
fMWI00?o0000omWIfOoIfMT0j?oIfMT00ol0003ofMWIomWIf@0JomWIf@006?oIfMT00ol0003ofMWI
omWIf@3XomWIf@?o00006_oIfMT001SofMWI00?o0000omWIfOoIfMT0j?oIfMT4o`0001WofMWI000H
omWIf@03o`000?oIfMWofMWI0>[ofMWI1?l0000GomWIf@006?oIfMT00ol0003ofMWIomWIf@3[omWI
f@Co00005_oIfMT001SofMWI0_l0003]omWIf@Co00005OoIfMT001SofMWI00?o0000omWIfOoIfMT0
kOoIfMT5o`0001?ofMWI000HomWIf@03o`000?oIfMWofMWI0>kofMWI1Ol0000BomWIf@006?oIfMT0
0ol0003ofMWIomWIf@3_omWIf@Ko00004?oIfMT001SofMWI00?o0000omWIfOoIfMT0lOoIfMT2o`00
00;ofMWI00?o0000omWIfOoIfMT03OoIfMT001SofMWI00?o0000omWIfOoIfMT0m_oIfMT00ol0003o
fMWIomWIf@0"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0951536, -0.0924085, \
0.00394158, 0.00749498}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(gv =
Plot[v[x], {x, 0, 1},
PlotStyle \[Rule] Thickness[0.01]];\)\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[9]:=",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
FontSize->14,
ImageCache->GraphicsData["Bitmap", "\oofMWI000HomWIf@;o00005?oIfMT5o`000>gofMWI000HomWIf@03o`000?oIfMWo
fMWI01GofMWI1?l0003/omWIf@006?oIfMT00ol0003ofMWIomWIf@0GomWIf@Co0000j_oIfMT001So
fMWI00?o0000omWIfOoIfMT06?oIfMT5o`000>SofMWI000HomWIf@03o`000?oIfMWofMWI01[ofMWI
1Ol0003VomWIf@006?oIfMT00ol0003ofMWIomWIf@0LomWIf@Go0000i?oIfMT001SofMWI00?o0000
omWIfOoIfMT07_oIfMT5o`000>;ofMWI000HomWIf@;o00008OoIfMT5o`000>3ofMWI000HomWIf@03
o`000?oIfMWofMWI02;ofMWI1Ol0003NomWIf@006?oIfMT00ol0003ofMWIomWIf@0TomWIf@Go0000
g?oIfMT001SofMWI00?o0000omWIfOoIfMT09_oIfMT5o`000=[ofMWI0004omWIf@;o00001?oIfMT0
1?l0003ofMWIomWIfOoIfMT5o`0000GofMWI00?o0000omWIfOoIfMT0:?oIfMT5o`000=SofMWI0003
omWIf@04o`000?oIfMWofMWIo`0000SofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWI
omWIf@0ZomWIf@Co0000eooIfMT000?ofMWI00Co0000omWIfOoIfMWo00002OoIfMT00ol0003ofMWI
omWIf@05omWIf@03o`000?oIfMWofMWI02cofMWI1?l0003EomWIf@000ooIfMT01?l0003ofMWIomWI
fOl0000:omWIf@03o`000?oIfMWofMWI00CofMWI0_l0000^omWIf@Go0000dooIfMT000?ofMWI00Co
0000omWIfOoIfMWo00001ooIfMT01Ol0003ofMWIomWIfOoIfMWo000000GofMWI00?o0000omWIfOoI
fMT0;ooIfMT5o`000=7ofMWI0003omWIf@04o`000?oIfMWofMWIo`0000OofMWI00Go0000omWIfOoI
fMWofMWIo`000005omWIf@03o`000?oIfMWofMWI037ofMWI1Ol0003?omWIf@001?oIfMT2o`0000Wo
fMWI0ol00006omWIf@03o`000?oIfMWofMWI03?ofMWI1?l0003>omWIf@006?oIfMT00ol0003ofMWI
omWIf@0eomWIf@Co0000c?oIfMT001SofMWI00?o0000omWIfOoIfMT0=_oIfMT5o`000OoIfMT4o`000omWIf@000ooIfMT01?l0003ofMWIomWIfOl00008omWIf@?o00001_oIfMT2o`00
0;KofMWI1?l0001_oIfMT0
01SofMWI00?o0000omWIfOoIfMT0b?oIfMT4o`0003WofMWI000HomWIf@03o`000?oIfMWofMWI07ofMWI1?l0000PomWIf@006?oIfMT2o`000>CofMWI1?l0000NomWIf@006?oIfMT00ol0
003ofMWIomWIf@3TomWIf@Co00007OoIfMT001SofMWI00?o0000omWIfOoIfMT0i_oIfMT3o`0001co
fMWI000HomWIf@03o`000?oIfMWofMWI0>OofMWI0ol0000KomWIf@006?oIfMT00ol0003ofMWIomWI
f@3XomWIf@Co00006OoIfMT001SofMWI00?o0000omWIfOoIfMT0jOoIfMT4o`0001SofMWI000HomWI
f@03o`000?oIfMWofMWI0>_ofMWI0ol0000GomWIf@006?oIfMT2o`000>gofMWI0ol0000FomWIf@00
6?oIfMT00ol0003ofMWIomWIf@3]omWIf@?o00005OoIfMT001SofMWI00?o0000omWIfOoIfMT0k_oI
fMT4o`0001?ofMWI000HomWIf@03o`000?oIfMWofMWI0>oofMWI1?l0000BomWIf@006?oIfMT00ol0
003ofMWIomWIf@3aomWIf@?o00004OoIfMT001SofMWI00?o0000omWIfOoIfMT0l_oIfMT3o`00013o
fMWI000HomWIf@;o0000m?oIfMT4o`0000kofMWI000HomWIf@03o`000?oIfMWofMWI0?CofMWI1?l0
000=omWIf@006?oIfMT00ol0003ofMWIomWIf@3fomWIf@?o00003?oIfMT001SofMWI00?o0000omWI
fOoIfMT0mooIfMT3o`0000_ofMWI0003omWIf@?o00001?oIfMT01?l0003ofMWIomWIfOoIfMT5o`00
00GofMWI00?o0000omWIfOoIfMT0n?oIfMT3o`0000[ofMWI0004omWIf@03o`000?oIfMWofMWI00So
fMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@3iomWIf@;o00002_oIfMT000Co
fMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI0?oo
fMWI1_oIfMT000CofMWI00?o0000omWIfOoIfMT02_oIfMT00ol0003ofMWIomWIf@04omWIf@;o0000
oooIfMT7omWIf@001?oIfMT00ol0003ofMWIomWIf@07omWIf@05o`000?oIfMWofMWIomWIfOl00000
1OoIfMT00ol0003ofMWIomWIf@3oomWIf@KofMWI0003omWIf@;o00002OoIfMT01Ol0003ofMWIomWI
fOoIfMWo00000?oofMWI3_oIfMT000CofMWI00?o0000omWIfOoIfMT02?oIfMT3o`000?oofMWI3ooI
fMT00?oofMWI8OoIfMT00001\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0951536, -0.0924085, \
0.00394158, 0.00749498}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(gvp =
Plot[vp, {x, 0, 1},
PlotStyle \[Rule] {RGBColor[0, 1, 0],
Thickness[0.01]}];\)\)], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[10]:=",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
FontSize->14,
ImageCache->GraphicsData["Bitmap", "\omWIf@Go0?l0mOoIfMT001GofMWI00?o0000omWIfOoIfMT0
4?oIfMT5o`3o0??ofMWI000EomWIf@03o`000?oIfMWofMWI01;ofMWI1Ol0o`3aomWIf@005OoIfMT2
o`0001GofMWI1_l0o`3^omWIf@005OoIfMT00ol0003ofMWIomWIf@0FomWIf@Ko0?l0k?oIfMT001Go
fMWI00?o0000omWIfOoIfMT06OoIfMT5o`3o0>[ofMWI000EomWIf@03o`000?oIfMWofMWI01_ofMWI
1Ol0o`3XomWIf@005OoIfMT00ol0003ofMWIomWIf@0MomWIf@Go0?l0i_oIfMT001GofMWI00?o0000
omWIfOoIfMT07ooIfMT4o`3o0>GofMWI000EomWIf@03o`000?oIfMWofMWI027ofMWI1?l0o`3SomWI
f@005OoIfMT2o`0002?ofMWI1Ol0o`3QomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@Co0?l0
h?oIfMT001GofMWI00?o0000omWIfOoIfMT09_oIfMT4o`3o0=kofMWI000EomWIf@03o`000?oIfMWo
fMWI02OofMWI1Ol0o`3LomWIf@000_oIfMT2o`0000CofMWI00Co0000omWIfOoIfMWofMWI1Ol00004
omWIf@03o`000?oIfMWofMWI02WofMWI1Ol0o`3JomWIf@0000GofMWIo`000?oIfMWofMWIo`000008
omWIf@04o`000?oIfMWofMWIo`0000CofMWI00?o0000omWIfOoIfMT0:ooIfMT4o`3o0=WofMWI0000
1OoIfMWo0000omWIfOoIfMWo000000WofMWI00?o0000omWIfOoIfMT01?oIfMT00ol0003ofMWIomWI
f@0]omWIf@Co0?l0eooIfMT00005omWIfOl0003ofMWIomWIfOl000002_oIfMT00ol0003ofMWIomWI
f@03omWIf@?o0000;_oIfMT5o`3o0=GofMWI00001OoIfMWo0000omWIfOoIfMWo000000OofMWI00Go
0000omWIfOoIfMWofMWIo`000004omWIf@03o`000?oIfMWofMWI033ofMWI1Ol0o`3ComWIf@0000Go
fMWIo`000?oIfMWofMWIo`000007omWIf@05o`000?oIfMWofMWIomWIfOl000001?oIfMT00ol0003o
fMWIomWIf@0bomWIf@Go0?l0dOoIfMT000;ofMWI0_l00009omWIf@?o00001OoIfMT00ol0003ofMWI
omWIf@0domWIf@Ko0?l0c_oIfMT001GofMWI00?o0000omWIfOoIfMT0=_oIfMT6o`3o0omWIf@0000GofMWIo`000?oIfMWofMWIo`000007omWIf@05o`000?oIfMWofMWI
omWIfOl000001?oIfMT3o`000;OofMWI1?l0o`1=omWIf@0000GofMWIo`000?oIfMWofMWIo`000008
omWIf@?o00001OoIfMT00ol0003ofMWIomWIf@2iomWIf@Co0?l0BooIfMT00005omWIfOl0003ofMWI
omWIfOl000001ooIfMT01Ol0003ofMWIomWIfOoIfMWo000000CofMWI00?o0000omWIfOoIfMT0^_oI
fMT4o`3o04[ofMWI00001OoIfMWo0000omWIfOoIfMWo000000OofMWI00Go0000omWIfOoIfMWofMWI
o`000004omWIf@03o`000?oIfMWofMWI0;cofMWI0ol0o`19omWIf@000_oIfMT2o`0000WofMWI0ol0
0005omWIf@03o`000?oIfMWofMWI0;gofMWI1?l0o`17omWIf@005OoIfMT00ol0003ofMWIomWIf@2n
omWIf@Co0?l0A_oIfMT001GofMWI00?o0000omWIfOoIfMT0`?oIfMT4o`3o04CofMWI000EomWIf@;o
0000`_oIfMT5o`3o04;ofMWI000EomWIf@03o`000?oIfMWofMWI0ooIfMT001GofMWI00?o0000omWIfOoIfMT0booIfMT3o`3o03[ofMWI
000EomWIf@;o0000cOoIfMT4o`3o03SofMWI000EomWIf@03o`000?oIfMWofMWI07ofMWI1?l0o`0SomWIf@003OoIfMT2
o`0000KofMWI00?o0000omWIfOoIfMT0h_oIfMT5o`3o027ofMWI000>omWIf@03o`000?oIfMWofMWI
00CofMWI00?o0000omWIfOoIfMT0i?oIfMT4o`3o023ofMWI000EomWIf@03o`000?oIfMWofMWI0>Ko
fMWI1?l0o`0NomWIf@005OoIfMT00ol0003ofMWIomWIf@3WomWIf@Co0?l07OoIfMT001GofMWI0_l0
003ZomWIf@Co0?l06ooIfMT001GofMWI00?o0000omWIfOoIfMT0j_oIfMT4o`3o01[ofMWI000EomWI
f@03o`000?oIfMWofMWI0>cofMWI0ol0o`0IomWIf@005OoIfMT00ol0003ofMWIomWIf@3]omWIf@?o
0?l06?oIfMT001GofMWI00?o0000omWIfOoIfMT0k_oIfMT4o`3o01KofMWI000EomWIf@03o`000?oI
fMWofMWI0>oofMWI1?l0o`0EomWIf@005OoIfMT00ol0003ofMWIomWIf@3aomWIf@?o0?l05?oIfMT0
01GofMWI0_l0003comWIf@?o0?l04ooIfMT001GofMWI00?o0000omWIfOoIfMT0looIfMT3o`3o01;o
fMWI000EomWIf@03o`000?oIfMWofMWI0?CofMWI1?l0o`0@omWIf@005OoIfMT00ol0003ofMWIomWI
f@3eomWIf@Co0?l03ooIfMT001GofMWI00?o0000omWIfOoIfMT0mooIfMT4o`3o00gofMWI000EomWI
f@03o`000?oIfMWofMWI0?SofMWI1?l0o`0"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0825959, -0.091652, \
0.00385924, 0.00727671}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Show[gv, gvp];\)\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[11]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\oofMWI000HomWIf@;o00005?oI
fMT5o`3o0>gofMWI000HomWIf@03o`000?oIfMWofMWI01GofMWI1?l0o`3/omWIf@006?oIfMT00ol0
003ofMWIomWIf@0GomWIf@Co0?l0j_oIfMT001SofMWI00?o0000omWIfOoIfMT06?oIfMT5o`3o0>So
fMWI000HomWIf@03o`000?oIfMWofMWI01[ofMWI1Ol0o`3VomWIf@006?oIfMT00ol0003ofMWIomWI
f@0LomWIf@Go0?l0i?oIfMT001SofMWI00?o0000omWIfOoIfMT07_oIfMT5o`3o0>;ofMWI000HomWI
f@;o00008OoIfMT5o`3o0>3ofMWI000HomWIf@03o`000?oIfMWofMWI02;ofMWI1Ol0o`3NomWIf@00
6?oIfMT00ol0003ofMWIomWIf@0TomWIf@Go0?l0g?oIfMT001SofMWI00?o0000omWIfOoIfMT09_oI
fMT5o`3o0=[ofMWI0004omWIf@;o00001?oIfMT01?l0003ofMWIomWIfOoIfMT5o`0000GofMWI00?o
0000omWIfOoIfMT0:?oIfMT6o`3o0=OofMWI0003omWIf@04o`000?oIfMWofMWIo`0000SofMWI00Co
0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@0ZomWIf@Ko0?l0eOoIfMT000?ofMWI00Co
0000omWIfOoIfMWo00002OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI02cofMWI
00?o0000o`3o0?l0o`000ol0o`3ComWIf@000ooIfMT01?l0003ofMWIomWIfOl0000:omWIf@03o`00
0?oIfMWofMWI00CofMWI0_l0000^omWIf@;o00001Ol0o`3AomWIf@000ooIfMT01?l0003ofMWIomWI
fOl00007omWIf@05o`000?oIfMWofMWIomWIfOl000001OoIfMT00ol0003ofMWIomWIf@0_omWIf@;o
00001Ol0o`3?omWIf@000ooIfMT01?l0003ofMWIomWIfOl00007omWIf@05o`000?oIfMWofMWIomWI
fOl000001OoIfMT00ol0003ofMWIomWIf@0aomWIf@;o00001?l0o`3>omWIf@001?oIfMT2o`0000Wo
fMWI0ol00006omWIf@03o`000?oIfMWofMWI03?ofMWI0_l00004o`3o0omWIf@Co0?l0LooIfMT000Co
fMWI0_l0000:omWIf@;o00001_oIfMT00ol0003ofMWIomWIf@2?omWIf@Co0?l0L_oIfMT001SofMWI
00?o0000omWIfOoIfMT0TOoIfMT4o`3o073ofMWI000HomWIf@03o`000?oIfMWofMWI09;ofMWI1Ol0
o`1^omWIf@006?oIfMT00ol0003ofMWIomWIf@2DomWIf@Co0?l0KOoIfMT001SofMWI0_l0002GomWI
f@Co0?l0JooIfMT001SofMWI00?o0000omWIfOoIfMT0UooIfMT4o`3o06[ofMWI000HomWIf@03o`00
0?oIfMWofMWI09WofMWI1?l0o`1XomWIf@006?oIfMT00ol0003ofMWIomWIf@2JomWIf@Co0?l0IooI
fMT001SofMWI00?o0000omWIfOoIfMT0W?oIfMT4o`3o06GofMWI000HomWIf@03o`000?oIfMWofMWI
09gofMWI1Ol0o`1SomWIf@006?oIfMT2o`000:3ofMWI1?l0o`1RomWIf@006?oIfMT00ol0003ofMWI
omWIf@2QomWIf@Co0?l0H?oIfMT001SofMWI00?o0000omWIfOoIfMT0X_oIfMT4o`3o05oofMWI000H
omWIf@03o`000?oIfMWofMWI0:CofMWI1?l0o`1MomWIf@006?oIfMT00ol0003ofMWIomWIf@2UomWI
f@Co0?l000?o0000omWIfOoIfMT0FOoIfMT001SofMWI00?o0000omWIfOoIfMT0YooIfMT4o`3o05[o
fMWI000HomWIf@03o`000?oIfMWofMWI0:SofMWI1?l0o`000ol0003ofMWIomWIf@1FomWIf@006?oI
fMT2o`000:_ofMWI0ol0o`02o`0005KofMWI000HomWIf@03o`000?oIfMWofMWI0:_ofMWI1?l0o`00
0ol0003ofMWIomWIf@1ComWIf@006?oIfMT00ol0003ofMWIomWIf@2/omWIf@Co0?l00_l0001ComWI
f@006?oIfMT00ol0003ofMWIomWIf@2^omWIf@Co0?l000?o0000omWIfOoIfMT0D?oIfMT000CofMWI
0_l00004omWIf@03o`000?oIfMWofMWI00;ofMWI0ol00006omWIf@03o`000?oIfMWofMWI0:oofMWI
1?l0o`000ol0003ofMWIomWIf@1?omWIf@000ooIfMT01?l0003ofMWIomWIfOl00007omWIf@05o`00
0?oIfMWofMWIomWIfOl000001OoIfMT00ol0003ofMWIomWIf@2aomWIf@Co0?l000?o0000omWIfOoI
fMT0COoIfMT000?ofMWI00Co0000omWIfOoIfMWo00001ooIfMT01Ol0003ofMWIomWIfOoIfMWo0000
00GofMWI00?o0000omWIfOoIfMT0/_oIfMT5o`3o04kofMWI0003omWIf@04o`000?oIfMWofMWIo`00
00SofMWI0ol00006omWIf@;o0000]OoIfMT4o`3o0003o`000?oIfMWofMWI04[ofMWI0003omWIf@04
o`000?oIfMWofMWIo`0000OofMWI00Go0000omWIfOoIfMWofMWIo`000005omWIf@03o`000?oIfMWo
fMWI0;KofMWI1?l0o`1;omWIf@000ooIfMT01?l0003ofMWIomWIfOl00007omWIf@05o`000?oIfMWo
fMWIomWIfOl000001OoIfMT00ol0003ofMWIomWIf@2gomWIf@Co0?l0B_oIfMT000CofMWI0_l00009
omWIf@?o00001_oIfMT00ol0003ofMWIomWIf@2iomWIf@Co0?l0B?oIfMT001SofMWI00?o0000omWI
fOoIfMT0^_oIfMT4o`3o04OofMWI000HomWIf@03o`000?oIfMWofMWI0;cofMWI1?l0o`15omWIf@00
6?oIfMT2o`000;kofMWI1?l0o`14omWIf@006?oIfMT00ol0003ofMWIomWIf@2oomWIf@?o0?l0@ooI
fMT001SofMWI00?o0000omWIfOoIfMT0`?oIfMT4o`3o047ofMWI000HomWIf@03o`000?oIfMWofMWI
0OoIfMT001SofMWI00?o0000omWIfOoIfMT0b_oIfMT4o`3o03OofMWI000HomWIf@03o`00
0?oIfMWofMWI0<_ofmwi1 fmt001sofmwi00 omwif fooifmt0e_oifmt4o fmt0f : fmt0013ofmwi00 fmwiomwif>CofMWI1?l0o`0MomWI
f@006?oIfMT00ol0003ofMWIomWIf@3VomWIf@?o0?l07?oIfMT001SofMWI00?o0000omWIfOoIfMT0
iooIfMT4o`3o01[ofMWI000HomWIf@03o`000?oIfMWofMWI0>SofMWI1?l0o`0IomWIf@006?oIfMT0
0ol0003ofMWIomWIf@3YomWIf@03o`000?l0o`3o0?l000;o0?l05ooIfMT001SofMWI00?o0000omWI
fOoIfMT0jooIfMT4o`3o01KofMWI000HomWIf@;o0000kOoIfMT01?l0003o0?l0o`3o0?l0o`0EomWI
f@006?oIfMT00ol0003ofMWIomWIf@3]omWIf@03o`000?l0o`3o0?l000;o0?l04ooIfMT001SofMWI
00?o0000omWIfOoIfMT0k_oIfMT00ol0003o0?l0o`3o0002o`3o01;ofMWI000HomWIf@03o`000?oI
fMWofMWI0>oofMWI0_l00004o`3o013ofMWI000HomWIf@03o`000?oIfMWofMWI0?7ofMWI00?o0000
o`3o0?l0o`000_l0o`0?omWIf@006?oIfMT00ol0003ofMWIomWIf@3bomWIf@;o00000ol0o`0>omWI
f@006?oIfMT2o`000?CofMWI0_l00004o`3o00cofMWI000HomWIf@03o`000?oIfMWofMWI0?CofMWI
0_l00004o`3o00_ofMWI000HomWIf@03o`000?oIfMWofMWI0?KofMWI0_l00003o`3o00[ofMWI000H
omWIf@03o`000?oIfMWofMWI0?OofMWI0_l00002o`3o00[ofMWI0003omWIf@?o00001?oIfMT01?l0
003ofMWIomWIfOoIfMT5o`0000GofMWI00?o0000omWIfOoIfMT0n?oIfMT3o`0000[ofMWI0004omWI
f@03o`000?oIfMWofMWI00SofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@3i
omWIf@;o00002_oIfMT000CofMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@05omWI
f@03o`000?oIfMWofMWI0?oofMWI1_oIfMT000CofMWI00?o0000omWIfOoIfMT02_oIfMT00ol0003o
fMWIomWIf@04omWIf@;o0000oooIfMT7omWIf@001?oIfMT00ol0003ofMWIomWIf@07omWIf@05o`00
0?oIfMWofMWIomWIfOl000001OoIfMT00ol0003ofMWIomWIf@3oomWIf@KofMWI0003omWIf@;o0000
2OoIfMT01Ol0003ofMWIomWIfOoIfMWo00000?oofMWI3_oIfMT000CofMWI00?o0000omWIfOoIfMT0
2?oIfMT3o`000?oofMWI3ooIfMT00?oofMWI8OoIfMT00001\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0951536, -0.0924085, \
0.00394158, 0.00749498}}]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["c.- ",
FontColor->RGBColor[1, 0, 0]],
"Hallar la norma del error cometido.\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[
\(e[x_] := v[x] - vp\)], "Input",
CellLabel->"In[12]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(ne = Sqrt[pe[e[x], e[x]]] // N\)], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[BoxData[
\(0.0036028339568798594`\)], "Output",
CellLabel->"Out[13]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[14]:=",
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"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["EJERCICIO 4.4 (Soluci\[OAcute]n aproximada de un \
sistema de ecuaciones lineales incompatible)",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
TextJustification->1,
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Consideremos el sistema\n\t\t\t",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
StyleBox[\(\(x\_1\) a\&_\_1 + \(x\_2\) a\&_\_2 + \(x\_3\) a\&_\_3 =
b\&_\),
FontFamily->"Times"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Helvetica",
FontSize->14],
StyleBox["\ncon\t",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[
OverscriptBox[
FormBox[
StyleBox["a",
FontSlant->"Plain"],
"TraditionalForm"], "_"], "1"], TraditionalForm]],
FontSize->12,
FontColor->RGBColor[0, 0, 1]],
"= (1,0,1,-1) ; ",
Cell[BoxData[
FormBox[
SubscriptBox[
OverscriptBox[
FormBox[
StyleBox["a",
FontSlant->"Plain"],
"TraditionalForm"], "_"], "2"], TraditionalForm]],
FontSize->12,
FontColor->RGBColor[0, 0, 1]],
"= (0,2,1,2) ; ",
Cell[BoxData[
FormBox[
SubscriptBox[
OverscriptBox[
FormBox[
StyleBox["a",
FontSlant->"Plain"],
"TraditionalForm"], "_"], "3"], TraditionalForm]],
FontSize->12,
FontColor->RGBColor[0, 0, 1]],
"= (-1,1,1,1) ; ",
Cell[BoxData[
FormBox[
OverscriptBox[
FormBox[
StyleBox["b",
FontSlant->"Plain"],
"TraditionalForm"], "_"], TraditionalForm]],
FontSize->12,
FontColor->RGBColor[0, 0, 1]],
"=(1,1,1,1)\n",
StyleBox["a.- ",
FontColor->RGBColor[1, 0, 0]],
" Comprobar que el sistema es incompatible."
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(u = {{1, 0, 1, \(-1\)}, {0, 2, 1, 2}, {\(-1\), 1, 1, 1}};
b = {1, 1, 1, 1};\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(s =
Solve[x1\ u[\([1]\)] + x2\ u[\([2]\)] + x3\ u[\([3]\)] \[Equal] b, {x1,
x2, x3}]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\({}\)], "Output",
CellLabel->"Out[2]="]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["b.- ",
FontColor->RGBColor[1, 0, 0]],
"Calcular la soluci\[OAcute]n aproximada utilizando el m\[EAcute]todo de m\
\[IAcute]nimos cuadrados.\t\t\t"
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\("In[3]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(w = GramSchmidt[u] // Simplify\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\({{1\/\@3, 0, 1\/\@3, \(-\(1\/\@3\)\)}, {1\/\@78, \@\(6\/13\),
2\ \@\(2\/39\), 5\/\@78}, {\(-\(11\/\@195\)\), \(-\(1\/\@195\)\),
8\/\@195, \(-\@\(3\/65\)\)}}\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[TextData[{
StyleBox["Observaci\[OAcute]n:",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[1, 0, 1]],
StyleBox[" ",
FontWeight->"Bold",
FontColor->RGBColor[1, 0, 1]],
"En general nos resulta m\[AAcute]s c\[OAcute]modo con ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" ortonormalizar una familia de vectores que pedirle que solamente nos \
palique el proceso de Gram-Schmidt sin normalizar los vectores resultantes."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(bp = Sum[Projection[b, w[\([i]\)]], {i, 3}] // Simplify\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\({14\/15, 19\/15, 13\/15, 4\/5}\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(s =
Solve[x1\ u[\([1]\)] + x2\ u[\([2]\)] + x3\ u[\([3]\)] \[Equal]
bp, {x1, x2, x3}]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\({{x1 \[Rule] 7\/15, x2 \[Rule] 13\/15,
x3 \[Rule] \(-\(7\/15\)\)}}\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[7]:=",
FontSize->14]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["EJERCICIO 4.5 (Otro problema sobre el espacio \
vectorial de las funciones continuas sobre un intervlo cerrado y acotado con \
el producto escalar usual)",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[{
"Sea el espacio vectorial eucl\[IAcute]deo ",
Cell[BoxData[
RowBox[{" ",
RowBox[{
StyleBox["(",
FontFamily->"Helvetica"],
StyleBox[" ",
FontFamily->"Helvetica",
FontColor->GrayLevel[0]],
StyleBox[\(\[ScriptCapitalC]\_\([0, 2 \[Pi]]\)\ , \ \
\[LeftAngleBracket]\ \ , \ \[RightAngleBracket]\),
FontFamily->"Helvetica"],
StyleBox[")",
FontFamily->"Helvetica"]}]}]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14,
FontWeight->"Bold"],
" con el producto escalar usual:\n\t\t\t\t\t\n\t\t\t\t\t",
Cell[BoxData[
\(\[LeftAngleBracket]f,
g\[RightAngleBracket] = \[Integral]\_0\%\(2 \[Pi]\)\(\(f\) \((x)\) \
\(g\) \((x)\) \(dx\)\(\ \)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"],
"\nConsideremos las funciones:\n\t\t\t\t",
Cell[BoxData[
\(q \((x)\) =
1\/\@\(2 \[Pi]\), \ \ \ \ \ \ f \((x)\) = \(1\/\@\[Pi]\)
sen\ x, \ \ \ \ \ \ g \((x)\) = \(\(1\/\@\[Pi]\) \(cos\)\(\ \)\(x\)\
\(\ \)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\n\t\t",
StyleBox["\n",
FontColor->RGBColor[0, 0, 1]],
StyleBox["a.- ",
FontColor->RGBColor[1, 0, 0]],
StyleBox["Demostrar que {q,f,g} forman un sistema ortonormal\t\t\t",
FontColor->RGBColor[0, 0, 1]]
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell["Podemos proceder de distintas formas:", "Text",
CellDingbat->None],
Cell[TextData[StyleBox["Calcular la matriz de Gram del producto escalar usual \
en la base B={q,f,g} de un cierto subespacio S y ver que se trata de la \
matriz unidad.",
FontColor->GrayLevel[0]]], "Text",
CellDingbat->"\[FilledSmallCircle]",
FontColor->RGBColor[0, 1, 0]],
Cell[TextData[{
StyleBox["Aplicar la funci\[OAcute]n de",
FontColor->GrayLevel[0]],
" ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" ",
StyleBox["GramSchmidt",
FontFamily->"Courier",
FontWeight->"Bold",
FontColor->GrayLevel[0]],
StyleBox[" a la familia de funciones B y ver que obtenemos la misma familia \
de funciones.",
FontColor->GrayLevel[0]]
}], "Text",
CellDingbat->"\[FilledSmallCircle]",
FontColor->RGBColor[0, 1, 0]],
Cell["\", "Text",
CellDingbat->None],
Cell[BoxData[
\(pe[f_, g_] := Integrate[f\ g, {x, 0, 2 Pi}]\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(q[x_] := 1/Sqrt[2\ Pi]; f[x_] := \((1/Sqrt[\ Pi])\) Sin[x];
g[x_] := \((1/Sqrt[\ Pi])\) Cos[x]; u = {q[x], f[x], g[x]};\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\("In[3]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(w = GramSchmidt[u, InnerProduct -> pe] // Simplify\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\({1\/\@\(2\ \[Pi]\), Sin[x]\/\@\[Pi], Cos[x]\/\@\[Pi]}\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[TextData[{
"Por lo tanto el sistema de funciones ",
StyleBox["B={q,f,g}",
FontColor->GrayLevel[0]],
" es ortonormal.\nVamos a calcular tambi\[EAcute]n la matriz de Gram en la \
base B del subespacio engendrado por B y comprobaremos que se trata de la \
matriz unidad."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Table[pe[u[\([i]\)], u[\([j]\)]], {i, 3}, {j, 3}] \[Equal]
IdentityMatrix[3]\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(True\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell["O bien:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(gu = Table[pe[u[\([i]\)], u[\([j]\)]], {i, 3}, {j, 3}]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\({{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(MatrixForm[gu]\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{"1", "0", "0"},
{"0", "1", "0"},
{"0", "0", "1"}
},
RowSpacings->1,
ColumnSpacings->1,
ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
Function[ BoxForm`e$,
MatrixForm[ BoxForm`e$]]]], "Output",
CellLabel->"Out[7]//MatrixForm="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["b.- ",
FontColor->RGBColor[1, 0, 0]],
"Hallar la mejor aproximaci\[OAcute]n vp de la funci\[OAcute]n ",
Cell[BoxData[
StyleBox[\(v \((x)\) = x\^2 - 1\),
FontFamily->"Helvetica"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"en el subespacio S=\[ScriptCapitalL]({q,f,g}) y la norma de la funci\
\[OAcute]n error.\nRepresentar en una \[UAcute]nica gr\[AAcute]fica las \
funciones vp(x) y v(x)."
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(\(v[x_] := x^2 - 1;\)\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(vp =
Sum[Projection[v[x], u[\([i]\)], InnerProduct \[Rule] pe], {i, 3}] //
Simplify\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\(\(-1\) + \(4\ \[Pi]\^2\)\/3 + 4\ Cos[x] - 4\ \[Pi]\ Sin[x]\)], "Output",\
CellLabel->"Out[9]="]
}, Open ]],
Cell[TextData[{
"Podemos representar gr\[AAcute]ficamente las dos funciones con la funci\
\[OAcute]n ",
StyleBox["Plot",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox[" ",
FontWeight->"Bold"],
"y utilizar estilos diferentes para cada una de las dos fucniones con \
objeto de identificarlas:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
StyleBox[\(v[x]\),
FontColor->RGBColor[0, 1, 0]], ",", "vp"}], "}"}],
",", \({x, 0, 2 Pi}\), ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{
StyleBox[\({Dashing[{0.04}], Thickness[0.01]}\),
FontColor->RGBColor[0, 1, 0]], ",", \(Thickness[0.005]\)}],
"}"}]}]}], "]"}], ";"}]], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[10]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWI
f@003ooIfMT00ol0003ofMWIomWIf@0JomWIf@03o`000?oIfMWofMWI063ofMWI00?o0000omWIfOoI
fMT0S_oIfMT000oofMWI00?o0000omWIfOoIfMT06_oIfMT00ol0003ofMWIomWIf@1QomWIf@03o`00
0?oIfMWofMWI08gofMWI000?omWIf@03o`000?oIfMWofMWI01WofMWI00?o0000omWIfOoIfMT0HooI
fMT00ol0003ofMWIomWIf@2omWIf@Co0000BooIfMT00ol0003ofMWI
omWIf@0;omWIf@003ooIfMT2o`000:;ofMWI00?o0000omWIfOoIfMT03ooIfMT3o`0004[ofMWI00?o
0000omWIfOoIfMT02ooIfMT000oofMWI00?o0000omWIfOoIfMT0X_oIfMT00ol0003ofMWIomWIf@0?
omWIf@Co0000AooIfMT00ol0003ofMWIomWIf@07ofMWI0ol0000Z
omWIf@003ooIfMT00ol0003ofMWIomWIf@3RomWIf@?o0000:OoIfMT00004omWIfOl0003o0000o`00
00CofMWI0_l00005omWIf@03o`000?oIfMWofMWI0>?ofMWI0ol0000XomWIf@0000Go0000omWIfOoI
fMWofMWIo`000002omWIf@04o`000?oIfMWofMWIo`0000CofMWI00?o0000omWIfOoIfMT0i?oIfMT2
o`0002SofMWI0004omWIf@04o`000?oIfMWofMWIo`0000;ofMWI00?o0000omWIfOoIfMT00_oIfMT0
0ol0003ofMWIomWIf@3TomWIf@?o00009ooIfMT000;ofMWI0_l00003omWIf@04o`000?oIfMWofMWI
o`0000CofMWI0ol0003UomWIf@?o00009_oIfMT000CofMWI00Co0000omWIfOoIfMWo00000_oIfMT0
0ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI0>KofMWI0ol0000UomWIf@0000Go0000omWI
fOoIfMWofMWIo`000002omWIf@04o`000?oIfMWofMWIo`0000CofMWI00?o0000omWIfOoIfMT0iooI
fMT3o`0002CofMWI00001?oIfMWo0000o`000?l00004omWIf@;o00001OoIfMT00ol0003ofMWIomWI
f@3XomWIf@;o00009?oIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT?omWIf@003ooIfMT00ol0
003ofMWIomWIf@3oomWIf@oofMWI000?omWIf@03o`000?oIfMWofMWI0?oofMWI3ooIfMT000oofMWI
00?o0000omWIfOoIfMT0oooIfMT?omWIf@003ooIfMT2o`000?oofMWI4?oIfMT000oofMWI00?o0000
omWIfOoIfMT0oooIfMT?omWIf@003ooIfMT00ol0003ofMWIomWIf@3`omWIf@;o00007?oIfMT000oo
fMWI00?o0000omWIfOoIfMT0l?oIfMT2o`0001cofMWI000?omWIf@03o`000?oIfMWofMWI0?3ofMWI
0ol0000KomWIf@003ooIfMT00ol0003ofMWIomWIf@3aomWIf@?o00006_oIfMT000oofMWI00?o0000
omWIfOoIfMT0l_oIfMT3o`0001WofMWI000?omWIf@03o`000?oIfMWofMWI0??ofMWI0ol0000HomWI
f@003ooIfMT2o`000?GofMWI0_l0000HomWIf@003ooIfMT00ol0003ofMWIomWIf@3domWIf@?o0000
5ooIfMT000oofMWI00?o0000omWIfOoIfMT0mOoIfMT3o`0001KofMWI000?omWIf@03o`000?oIfMWo
fMWI0?KofMWI0ol0000EomWIf@003ooIfMT00ol0003ofMWIomWIf@3gomWIf@;o00005OoIfMT000oo
fMWI00?o0000omWIfOoIfMT0oooIfMT?omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@oofMWI
000?omWIf@03o`000?oIfMWofMWI0?oofMWI3ooIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT?
omWIf@003ooIfMT2o`000?oofMWI4?oIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT?omWIf@00
3ooIfMT00ol0003ofMWIomWIf@3nomWIf@;o00003_oIfMT000oofMWI00?o0000omWIfOoIfMT0o_oI
fMT2o`0000kofMWI000?omWIf@03o`000?oIfMWofMWI0?kofMWI0ol0000=omWIf@003ooIfMT00ol0
003ofMWIomWIf@3oomWIf@?o00003?oIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT1omWIf@?o
00002ooIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT2omWIf@?o00002_oIfMT000oofMWI0_l0
003oomWIf@CofMWI0ol00009omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@CofMWI0ol00008
omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@GofMWI0ol00007omWIf@003ooIfMT00ol0003o
fMWIomWIf@3oomWIf@KofMWI0_l00007omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@oofMWI
000?omWIf@03o`000?oIfMWofMWI0?oofMWI3ooIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT?
omWIf@00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.367127, -3.12112, \
0.0237193, 0.241311}}]
}, Open ]],
Cell[TextData[{
"Aunque nos puede resultar m\[AAcute]s c\[OAcute]modo dibujrlas por \
separado con colores distintos y utilizar posteriormente la funci\[OAcute]n \
",
StyleBox["Show",
FontFamily->"Courier",
FontWeight->"Bold"],
" para mostrar las dos gr\[AAcute]ficas juntas:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(gv =
Plot[v[x], {x, 0, 2 Pi},
PlotStyle \[Rule] Thickness[0.01]];\)\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[11]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\
omWIfA_o0000mooIfMT000oofMWI00?o0000omWIfOoIfMT01ooIfMTFo`000?7ofMWI000?omWIf@03
o`000?oIfMWofMWI01KofMWI3?l0003/omWIf@002?oIfMWoo`0001Wo0000000?omWIf@03o`000?oI
fMWofMWI00GofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oI
fMWofMWI00KofMWI00?o0000omWIfOl000002ol00003omWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI00KofMWI00?o
0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI00KofMWI00?o
0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI00KofMWI00?o
0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT01_oIfMT1o`00007ofMWI0OoIfMT000oofMWI00?o0000omWIfOoIfMT09ooIfMT:
o`00023ofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003ofMWIomWIf@0XomWIf@03o`000?oIfMWo
fMWI02OofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003ofMWIomWIf@0AomWIf@003ooIfMT00ol0
003ofMWIomWIf@0/omWIf@So0000f_oIfMT000oofMWI00?o0000omWIfOoIfMT0ooIfMT7o`000OoIfMT000oofMWI00?o0000omWIfOoIfMT0dooIfMT3o`0003SofMWI000?
omWIf@03o`000?oIfMWofMWI0=CofMWI0ol0000gomWIf@003ooIfMT2o`000=KofMWI0ol0000fomWI
f@003ooIfMT00ol0003ofMWIomWIf@3FomWIf@?o0000=OoIfMT000oofMWI00?o0000omWIfOoIfMT0
eooIfMT3o`0003CofMWI000?omWIf@03o`000?oIfMWofMWI0=SofMWI0ol0000comWIf@003ooIfMT0
0ol0003ofMWIomWIf@3IomWIf@?o0000<_oifmt000oofmwi00 omwif f hooifmt3o>;ofMWI0ol0000YomWIf@0000CofMWI
o`000?l0003o00001?oIfMT2o`0000GofMWI00?o0000omWIfOoIfMT0hooIfMT3o`0002SofMWI0000
1Ol0003ofMWIomWIfOoIfMWo000000;ofMWI00Co0000omWIfOoIfMWo00001?oIfMT00ol0003ofMWI
omWIf@3TomWIf@;o0000:?oIfMT000CofMWI00Co0000omWIfOoIfMWo00000_oIfMT00ol0003ofMWI
omWIf@02omWIf@03o`000?oIfMWofMWI0>CofMWI0ol0000WomWIf@000_oIfMT2o`0000?ofMWI00Co
0000omWIfOoIfMWo00001?oIfMT3o`000>GofMWI0ol0000VomWIf@001?oIfMT01?l0003ofMWIomWI
fOl00002omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT0i_oIfMT3o`0002GofMWI
00001Ol0003ofMWIomWIfOoIfMWo000000;ofMWI00Co0000omWIfOoIfMWo00001?oIfMT00ol0003o
fMWIomWIf@3WomWIf@?o00009?oIfMT00004omWIfOl0003o0000o`0000CofMWI0_l00005omWIf@03
o`000?oIfMWofMWI0>SofMWI0ol0000SomWIf@003ooIfMT00ol0003ofMWIomWIf@3YomWIf@?o0000
8_oIfMT000oofMWI00?o0000omWIfOoIfMT0j_oIfMT3o`00027ofMWI000?omWIf@03o`000?oIfMWo
fMWI0>_ofMWI0ol0000PomWIf@003ooIfMT00ol0003ofMWIomWIf@3/omWIf@?o00007ooIfMT000oo
fMWI0_l0003^omWIf@?o00007_oIfMT000oofMWI00?o0000omWIfOoIfMT0k_oIfMT3o`0001gofMWI
000?omWIf@03o`000?oIfMWofMWI0>oofMWI0ol0000LomWIf@003ooIfMT00ol0003ofMWIomWIf@3`
omWIf@;o00007?oIfMT000oofMWI00?o0000omWIfOoIfMT0l?oIfMT3o`0001_ofMWI000?omWIf@03
o`000?oIfMWofMWI0?7ofMWI0ol0000JomWIf@003ooIfMT00ol0003ofMWIomWIf@3bomWIf@?o0000
6OoIfMT000oofMWI00?o0000omWIfOoIfMT0looIfMT3o`0001SofMWI000?omWIf@;o0000mOoIfMT3
o`0001OofMWI000?omWIf@03o`000?oIfMWofMWI0?GofMWI0ol0000FomWIf@003ooIfMT00ol0003o
fMWIomWIf@3fomWIf@?o00005OoIfMT000oofMWI00?o0000omWIfOoIfMT0mooIfMT3o`0001CofMWI
000?omWIf@03o`000?oIfMWofMWI0?SofMWI0ol0000ComWIf@003ooIfMT00ol0003ofMWIomWIf@3i
omWIf@?o00004_oIfMT000oofMWI00?o0000omWIfOoIfMT0n_oIfMT3o`00017ofMWI000?omWIf@03
o`000?oIfMWofMWI0?_ofMWI0_l0000AomWIf@003ooIfMT00ol0003ofMWIomWIf@3komWIf@?o0000
4?oIfMT000oofMWI0_l0003momWIf@?o00003ooIfMT000oofMWI00?o0000omWIfOoIfMT0oOoIfMT3
o`0000kofMWI000?omWIf@03o`000?oIfMWofMWI0?kofMWI0_l0000>omWIf@003ooIfMT00ol0003o
fMWIomWIf@3nomWIf@?o00003OoIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT3o`0000cofMWI
000?omWIf@03o`000?oIfMWofMWI0?oofMWI0OoIfMT3o`0000_ofMWI000?omWIf@03o`000?oIfMWo
fMWI0?oofMWI0_oIfMT3o`0000[ofMWI000?omWIf@03o`000?oIfMWofMWI0?oofMWI0ooIfMT2o`00
00[ofMWI000?omWIf@;o0000oooIfMT4omWIf@?o00002OoIfMT000oofMWI00?o0000omWIfOoIfMT0
oooIfMT4omWIf@?o00002?oIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT5omWIf@?o00001ooI
fMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT6omWIf@;o00001ooIfMT000oofMWI00?o0000omWI
fOoIfMT0oooIfMT?omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@oofMWI000?omWIf@03o`00
0?oIfMWofMWI0?oofMWI3ooIfMT00001\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.367127, -3.10524, \
0.0237193, 0.24114}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(gvp =
Plot[vp, {x, 0, 2 Pi},
PlotStyle \[Rule] {RGBColor[0, 1, 0],
Thickness[0.01]}];\)\)], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[13]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\?oIfMT3o`3o0:?ofMWI000?omWIf@03o`000?oIfMWo
fMWI02gofMWI0ol0o`0iomWIf@?o0?l0X_oIfMT000oofMWI00?o0000omWIfOoIfMT0;?oIfMT3o`3o
03_ofMWI0ol0o`2QomWIf@003ooIfMT00ol0003ofMWIomWIf@0[omWIf@?o0?l0?OoIfMT2o`3o0:7o
fMWI000?omWIf@03o`000?oIfMWofMWI02_ofMWI0_l0o`0nomWIf@?o0?l0X?oIfMT000oofMWI0_l0
000[omWIf@?o0?l0?ooIfMT3o`3o09oofMWI000?omWIf@03o`000?oIfMWofMWI02WofMWI0ol0o`11
omWIf@;o0?l0WooIfMT000oofMWI00?o0000omWIfOoIfMT0:?oIfMT3o`3o04;ofMWI0ol0o`2NomWI
f@003ooIfMT00ol0003ofMWIomWIf@0XomWIf@;o0?l0A?oIfMT3o`3o09gofMWI000?omWIf@03o`00
0?oIfMWofMWI02OofMWI0ol0o`15omWIf@;o0?l0WOoIfMT000oofMWI00?o0000omWIfOoIfMT09_oI
fMT3o`3o04KofMWI0ol0o`2LomWIf@003ooIfMT2o`0002OofMWI0_l0o`18omWIf@?o0?l0VooIfMT0
00oofMWI00?o0000omWIfOoIfMT09OoIfMT3o`3o04WofMWI0_l0o`2KomWIf@003ooIfMT00ol0003o
fMWIomWIf@0TomWIf@?o0?l0B_oIfMT3o`3o09[ofMWI000?omWIf@03o`000?oIfMWofMWI02CofMWI
0_l0o`1omWIf@?o0?l0V?oIfMT000[ofMWI00?o0000omWIfOoIfMT00_oIfMT0
0ol0003ofMWIomWIf@0RomWIf@;o0?l0D?oIfMT2o`3o09SofMWI000:omWIf@03o`000?oIfMWofMWI
00;ofMWI0ol0000QomWIf@?o0?l0D?oIfMT3o`3o09OofMWI0006omWIf@Co00001OoIfMT00ol0003o
fMWIomWIf@0QomWIf@;o0?l0D_oIfMT3o`3o09KofMWI0006omWIf@03o`000?oIfMWofMWI00KofMWI
00?o0000omWIfOoIfMT08?oIfMT3o`3o05?ofMWI0_l0o`2FomWIf@001_oIfMT5o`0000CofMWI00?o
0000omWIfOoIfMT07ooIfMT3o`3o05CofMWI0ol0o`2EomWIf@003ooIfMT00ol0003ofMWIomWIf@0O
omWIf@;o0?l0E_oIfMT2o`3o09GofMWI000?omWIf@03o`000?oIfMWofMWI01kofMWI0ol0o`1FomWI
f@?o0?l0U?oIfMT000oofMWI0_l0000NomWIf@?o0?l0F?oIfMT3o`3o09?ofMWI000?omWIf@03o`00
0?oIfMWofMWI01gofMWI0_l0o`1JomWIf@;o0?l0TooIfMT000oofMWI00?o0000omWIfOoIfMT07?oI
fMT3o`3o05[ofMWI0ol0o`2BomWIf@003ooIfMT00ol0003ofMWIomWIf@0LomWIf@;o0?l0G?oIfMT2
o`3o09;ofMWI000?omWIf@03o`000?oIfMWofMWI01_ofMWI0ol0o`1LomWIf@?o0?l0TOoIfMT000oo
fMWI00?o0000omWIfOoIfMT06ooIfMT2o`3o05kofMWI0ol0o`2@omWIf@003ooIfMT2o`0001_ofMWI
0ol0o`1OomWIf@;o0?l0T?oIfMT000oofMWI00?o0000omWIfOoIfMT06OoIfMT3o`3o063ofMWI0ol0
o`2?omWIf@003ooIfMT00ol0003ofMWIomWIf@0IomWIf@;o0?l0H_oIfMT2o`3o08oofMWI000?omWI
f@03o`000?oIfMWofMWI01SofMWI0ol0o`1RomWIf@?o0?l0S_oIfMT000oofMWI00?o0000omWIfOoI
fMT06?oIfMT2o`3o06CofMWI0_l0o`2>omWIf@003ooIfMT00ol0003ofMWIomWIf@0GomWIf@?o0?l0
I?oIfMT3o`3o08gofMWI000?omWIf@;o00006?oIfMT2o`3o06KofMWI0ol0o`2omWIf@?o0?l0N?oIfMT000oofMWI
00?o0000omWIfOoIfMT00_oIfMT3o`3o08oofMWI0_l0o`1homWIf@0000CofMWIo`000?l0003o0000
0ooIfMT3o`0000GofMWI00Co0000omWIfOoIfMWofMWI0ol0o`2@omWIf@?o0?l0MooIfMT000;ofMWI
00Go0000omWIfOoIfMWofMWIo`000003omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoI
fMWofMWI0_l0o`2BomWIf@;o0?l0MooIfMT000;ofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003o
fMWIomWIf@02omWIf@03o`000?oIfMWofMWI00?o0?l0T_oIfMT3o`3o07KofMWI0002omWIf@03o`00
0?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0000;o0?l0U?oIfMT2o`3o07KofMWI
0002omWIf@04o`000?oIfMWofMWIomWIf@Co00001OoIfMT00ol0003ofMWIo`3o0002o`3o09CofMWI
0ol0o`1eomWIf@0000?ofMWIo`000?l000000ooIfMT00ol0003ofMWIomWIf@06omWIf@04o`000?oI
fMWo0?l0o`3o09KofMWI0_l0o`1eomWIf@000_oIfMT01?l0003ofMWIomWIfOoIfMT5o`0000CofMWI
00Co0000o`3o0?l0o`3o0?l0U_oIfMT3o`3o07CofMWI000?omWIf@03o`000?l0o`3o0?l009SofMWI
0_l0o`1domWIf@003ooIfMT3o`3o09SofMWI0ol0o`1comWIf@003ooIfMT2o`3o09[ofMWI0ol0o`1b
omWIf@003_oIfMT3o`3o09_ofMWI0_l0o`1YomWIf@;o0?l01ooIfMT000kofMWI0_l0o`2LomWIf@?o
0?l0J?oIfMT2o`3o00OofMWI000?omWIf@03o`000?oIfMWofMWI09_ofMWI0_l0o`1WomWIf@?o0?l0
1ooIfMT000oofMWI00?o0000omWIfOoIfMT0VooIfMT3o`3o06KofMWI0_l0o`08omWIf@003ooIfMT0
0ol0003ofMWIomWIf@2LomWIf@?o0?l0I?oIfMT3o`3o00SofMWI000?omWIf@;o0000W_oIfMT2o`3o
06?ofMWI0ol0o`09omWIf@003ooIfMT00ol0003ofMWIomWIf@2MomWIf@?o0?l0H_oIfMT2o`3o00[o
fMWI000?omWIf@03o`000?oIfMWofMWI09kofMWI0_l0o`1QomWIf@?o0?l02_oIfMT000oofMWI00?o
0000omWIfOoIfMT0W_oIfMT3o`3o063ofMWI0_l0o`0;omWIf@003ooIfMT00ol0003ofMWIomWIf@2O
omWIf@;o0?l0GooIfMT3o`3o00_ofMWI000?omWIf@03o`000?oIfMWofMWI09oofMWI0ol0o`1MomWI
f@?o0?l03?oIfMT000oofMWI0_l0002QomWIf@?o0?l0G?oIfMT2o`3o00gofMWI000?omWIf@03o`00
0?oIfMWofMWI0:7ofMWI0_l0o`1KomWIf@?o0?l03OoIfMT000oofMWI00?o0000omWIfOoIfMT0XOoI
fMT3o`3o05[ofMWI0_l0o`0>omWIf@003ooIfMT00ol0003ofMWIomWIf@2RomWIf@;o0?l0FOoIfMT3
o`3o00kofMWI000?omWIf@03o`000?oIfMWofMWI0:;ofMWI0ol0o`1HomWIf@;o0?l03ooIfMT000oo
fMWI00?o0000omWIfOoIfMT0XooIfMT3o`3o05KofMWI0ol0o`0?omWIf@003ooIfMT2o`000:GofMWI
0_l0o`1EomWIf@?o0?l04?oIfMT000oofMWI00?o0000omWIfOoIfMT0Y?oIfMT3o`3o05CofMWI0_l0
o`0AomWIf@003ooIfMT00ol0003ofMWIomWIf@2UomWIf@;o0?l0DooIfMT3o`3o017ofMWI000?omWI
f@03o`000?oIfMWofMWI0:GofMWI0ol0o`1BomWIf@;o0?l04_oIfMT000Go00000ooIfMT2o`0000Go
fMWI00?o0000omWIfOoIfMT0Y_oIfMT3o`3o053ofMWI0ol0o`0BomWIf@0000GofMWIo`000?oIfMWo
fMWIo`000002omWIf@04o`000?oIfMWofMWIo`0000CofMWI00?o0000omWIfOoIfMT0YooIfMT2o`3o
04oofMWI0ol0o`0ComWIf@000_oIfMT00ol0003ofMWIomWIf@02omWIf@04o`000?oIfMWofMWIo`00
00CofMWI00?o0000omWIfOoIfMT0YooIfMT3o`3o04kofMWI0_l0o`0DomWIf@000ooIfMT01Ol0003o
fMWIomWIfOoIfMWo000000;ofMWI00?o0000omWIfOoIfMT00_oIfMT3o`000:SofMWI0_l0o`1=omWI
f@?o0?l05?oIfMT00005o`000?oIfMWofMWIomWIfOl000000_oIfMT01?l0003ofMWIomWIfOl00004
omWIf@03o`000?oIfMWofMWI0:SofMWI0ol0o`1;omWIf@?o0?l05OoIfMT00005o`000?oIfMWofMWI
omWIfOl000000_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI0:WofMWI0ol0
o`1:omWIf@;o0?l05_oIfMT00004omWIfOl0003o0000o`0000CofMWI0_l00005omWIf@03o`000?oI
fMWofMWI0:[ofMWI0_l0o`19omWIf@?o0?l05_oIfMT000oofMWI00?o0000omWIfOoIfMT0Z_oIfMT3
o`3o04OofMWI0ol0o`0GomWIf@003ooIfMT00ol0003ofMWIomWIf@2[omWIf@;o0?l0A_oIfMT3o`3o
01SofMWI000?omWIf@;o0000[?oIfMT3o`3o04GofMWI0_l0o`0IomWIf@003ooIfMT00ol0003ofMWI
omWIf@2/omWIf@?o0?l0@ooIfMT3o`3o01WofMWI000?omWIf@03o`000?oIfMWofMWI0:gofMWI0_l0
o`12omWIf@?o0?l06_oIfMT000oofMWI00?o0000omWIfOoIfMT0[OoIfMT3o`3o047ofMWI0_l0o`0K
omWIf@003ooIfMT00ol0003ofMWIomWIf@2^omWIf@?o0?l0?ooIfMT3o`3o01_ofMWI000?omWIf@03
o`000?oIfMWofMWI0:oofMWI0ol0o`0momWIf@?o0?l07?oIfMT000oofMWI0_l0002aomWIf@;o0?l0
?OoIfMT2o`3o01gofMWI000?omWIf@03o`000?oIfMWofMWI0;3ofMWI0ol0o`0komWIf@?o0?l07OoI
fMT000oofMWI00?o0000omWIfOoIfMT0/OoIfMT3o`3o03WofMWI0ol0o`0NomWIf@003ooIfMT00ol0
003ofMWIomWIf@2bomWIf@?o0?l0=ooIfMT3o`3o01oofMWI000?omWIf@03o`000?oIfMWofMWI0;?o
fMWI0_l0o`0fomWIf@?o0?l08?oIfMT000oofMWI00?o0000omWIfOoIfMT0/ooIfMT3o`3o03CofMWI
0ol0o`0QomWIf@003ooIfMT2o`000;GofMWI0ol0o`0bomWIf@?o0?l08_oIfMT000oofMWI00?o0000
omWIfOoIfMT0]OoIfMT3o`3o033ofMWI0ol0o`0SomWIf@003ooIfMT00ol0003ofMWIomWIf@2fomWI
f@?o0?l0;_oIfMT3o`3o02CofMWI000?omWIf@03o`000?oIfMWofMWI0;OofMWI1?l0o`0[omWIf@?o
0?l09OoIfMT000oofMWI00?o0000omWIfOoIfMT0^?oIfMT4o`3o02WofMWI0ol0o`0VomWIf@003ooI
fMT00ol0003ofMWIomWIf@2jomWIf@?o0?l09_oIfMT4o`3o02OofMWI000?omWIf@03o`000?oIfMWo
fMWI0;_ofMWI0ol0o`0TomWIf@Co0?l0:?oIfMT000oofMWI0_l0002momWIf@?o0?l08_oIfMT3o`3o
02[ofMWI000?omWIf@03o`000?oIfMWofMWI0;gofMWI1?l0o`0OomWIf@?o0?l0:ooIfMT000oofMWI
00?o0000omWIfOoIfMT0__oIfMT5o`3o01cofMWI0ol0o`0/omWIf@001Ol00002omWIf@?o00001OoI
fMT00ol0003ofMWIomWIf@30omWIf@Co0?l06OoIfMT4o`3o02gofMWI00001ooIfMWo0000omWIfOoI
fMWo0000omWIfOl000000ooIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI0OoIfMT000oofMWI00?o0000omWIfOoIfMT0oooI
fMT?omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@oofMWI000?omWIf@;o0000oooIfMT@omWI
f@00oooIfMTQomWIf@00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.367127, -2.25451, \
0.0237193, 0.161104}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Show[gv, gvp];\)\)], "Input",
CellLabel->"In[14]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[14]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@?o0?l0UooIfMT000oofMWI00?o0000omWIfOoIfMT08?oI
fMT3o`3o043ofMWI1Ol0000=omWIf@?o0?l0U_oIfMT000oofMWI00?o0000omWIfOoIfMT07ooIfMT3
o`3o04?ofMWI1Ol0000omWIf@003ooIfMT0
0ol0003ofMWIomWIf@0GomWIf@?o0?l0G_oIfMT4o`0000;ofMWI0ol0o`2=omWIf@003ooIfMT2o`00
01OofMWI0ol0o`1PomWIf@Go000000CofMWIo`3o0?l0o`3o0?l0S?oIfMT000oofMWI00?o0000omWI
fOoIfMT05_oIfMT2o`3o06?ofMWI1?l000001?oIfMWo0?l0o`3o0?l0o`2;omWIf@003ooIfMT00ol0
003ofMWIomWIf@0EomWIf@?o0?l0IOoIfMT4o`0000;o0?l0RooIfMT000oofMWI00?o0000omWIfOoI
fMT05?oIfMT3o`3o06OofMWI0ol00003o`3o08[ofMWI000?omWIf@03o`000?oIfMWofMWI01?ofMWI
0ol0o`1ZomWIf@;o00000ol0o`29omWIf@0000CofMWIo`000?l0003o00001?oIfMT2o`0000GofMWI
00?o0000omWIfOoIfMT04_oIfMT3o`3o06cofMWI0_l00003o`3o08SofMWI0002omWIf@03o`000?oI
fMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001?oIfMT00ol0003ofMWIomWIf@0BomWIf@;o0?l0
KooIfMT01?l0003o0?l0o`3o0?l0o`27omWIf@000_oIfMT00ol0003ofMWIomWIf@02omWIf@04o`00
0?oIfMWofMWIo`0000CofMWI00?o0000omWIfOoIfMT04OoIfMT3o`3o073ofMWI00?o0000o`3o0?l0
o`000_l00025omWIf@000_oIfMT00ol0003ofMWIomWIf@02omWIf@04o`000?oIfMWofMWIo`0000Co
fMWI0ol0000@omWIf@?o0?l0L_oIfMT3o`3o00;o0000Q?oIfMT000;ofMWI00?o0000omWIfOoIfMT0
0_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI00oofMWI0ol0o`1domWIf@?o
0?l00ol00022omWIf@0000?ofMWIo`000?l000001?oIfMT01?l0003ofMWIomWIfOl00004omWIf@03
o`000?oIfMWofMWI00oofMWI0_l0o`1fomWIf@?o0?l00ol00021omWIf@000_oIfMT00ol0003ofMWI
omWIf@03omWIf@;o00001OoIfMT00ol0003ofMWIomWIf@0>omWIf@?o0?l0MooIfMT2o`3o0003omWI
fOl0003o000000;o0000OooIfMT000oofMWI00?o0000omWIfOoIfMT03OoIfMT3o`3o07SofMWI0ol0
o`000ooIfMWo0000o`000002o`0007kofMWI000?omWIf@03o`000?oIfMWofMWI00cofMWI0ol0o`1j
omWIf@?o0?l00_oIfMT4o`0007cofMWI000?omWIf@03o`000?oIfMWofMWI00cofMWI0_l0o`1lomWI
f@?o0?l00_oIfMT4o`0007_ofMWI000?omWIf@03o`000?oIfMWofMWI00_ofMWI0ol0o`1momWIf@?o
0?l00ooIfMT4o`0007WofMWI000?omWIf@;o00002ooIfMT3o`3o07oofMWI0_l0o`04omWIf@Co0000
N?oIfMT000oofMWI00?o0000omWIfOoIfMT02_oIfMT2o`3o083ofMWI0ol0o`05omWIf@Co0000M_oI
fMT000oofMWI00?o0000omWIfOoIfMT02OoIfMT3o`3o087ofMWI0ol0o`05omWIf@Co0000MOoIfMT0
00oofMWI00?o0000omWIfOoIfMT02?oIfMT3o`3o08?ofMWI0ol0o`06omWIf@Co0000LooIfMT000oo
fMWI00?o0000omWIfOoIfMT01ooIfMT3o`3o08GofMWI0_l0o`07omWIf@Co0000L_oIfMT000oofMWI
00?o0000omWIfOoIfMT01ooIfMT2o`3o08KofMWI0ol0o`08omWIf@?o0000LOoIfMT000oofMWI00?o
0000omWIfOoIfMT01_oIfMT3o`3o08OofMWI0ol0o`08omWIf@Co0000KooIfMT000oofMWI00?o0000
omWIfOoIfMT01OoIfMT3o`3o08WofMWI0ol0o`08omWIf@Co0000K_oIfMT000oofMWI00?o0000omWI
fOoIfMT01?oIfMT3o`3o08_ofMWI0_l0o`0:omWIf@Co0000K?oIfMT000oofMWI0_l00004omWIf@?o
0?l0S?oIfMT3o`3o00[ofMWI1?l0001[omWIf@003ooIfMT00ol0003ofMWIomWIf@02omWIf@?o0?l0
S_oIfMT3o`3o00_ofMWI0ol0001ZomWIf@003ooIfMT01?l0003ofMWIomWIfOoIfMT3o`3o093ofMWI
0_l0o`0omWIf@?o0000HooIfMT000kofMWI0ol0o`2IomWIf@?o0?l03_oIfMT3o`0005Wo
fMWI0_l0o`07omWIf@003_oIfMT2o`3o09_ofMWI0ol0o`0>omWIf@?o0000F?oIfMT2o`3o00OofMWI
000?omWIf@03o`000?oIfMWofMWI09[ofMWI0ol0o`0>omWIf@?o0000E_oIfMT3o`3o00OofMWI000?
omWIf@03o`000?oIfMWofMWI09_ofMWI0ol0o`0>omWIf@Co0000DooIfMT3o`3o00SofMWI000?omWI
f@03o`000?oIfMWofMWI09cofMWI0ol0o`0>omWIf@Co0000DOoIfMT3o`3o00WofMWI000?omWIf@03
o`000?oIfMWofMWI09gofMWI0_l0o`0@omWIf@?o0000CooIfMT3o`3o00[ofMWI000?omWIf@03o`00
0?oIfMWofMWI09gofMWI0ol0o`0@omWIf@Co0000C?oIfMT3o`3o00_ofMWI000?omWIf@03o`000?oI
fMWofMWI09kofMWI0ol0o`0@omWIf@Co0000B_oIfMT3o`3o00cofMWI000?omWIf@;o0000X?oIfMT3
o`3o017ofMWI0ol00019omWIf@;o0?l03OoIfMT000oofMWI00?o0000omWIfOoIfMT0X?oIfMT3o`3o
017ofMWI1?l00016omWIf@?o0?l03OoIfMT000oofMWI00?o0000omWIfOoIfMT0XOoIfMT3o`3o017o
fMWI1?l00014omWIf@?o0?l03_oIfMT000oofMWI00?o0000omWIfOoIfMT0X_oIfMT3o`3o01;ofMWI
0ol00012omWIf@?o0?l03ooIfMT000oofMWI00?o0000omWIfOoIfMT0XooIfMT3o`3o01;ofMWI1?l0
000oomWIf@?o0?l04?oIfMT000oofMWI00?o0000omWIfOoIfMT0Y?oIfMT3o`3o01;ofMWI1?l0000m
omWIf@?o0?l04OoIfMT000Go00000ooIfMT2o`0000GofMWI00?o0000omWIfOoIfMT0YOoIfMT3o`3o
01?ofMWI0ol0000komWIf@?o0?l04_oIfMT00005omWIfOl0003ofMWIomWIfOl000000_oIfMT01?l0
003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI0:KofMWI0ol0o`0ComWIf@?o0000>OoIfMT3
o`3o01?ofMWI0002omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001?oIfMT3
o`000:OofMWI0ol0o`0ComWIf@?o0000=ooIfMT3o`3o01CofMWI0003omWIf@05o`000?oIfMWofMWI
omWIfOl000000_oIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI0:SofMWI0ol0o`0C
omWIf@?o0000=OoIfMT3o`3o01GofMWI00001Ol0003ofMWIomWIfOoIfMWo000000;ofMWI00Co0000
omWIfOoIfMWo00001?oIfMT00ol0003ofMWIomWIf@2YomWIf@?o0?l04ooIfMT3o`0003?ofMWI0ol0
o`0FomWIf@0000Go0000omWIfOoIfMWofMWIo`000002omWIf@04o`000?oIfMWofMWIo`0000CofMWI
00?o0000omWIfOoIfMT0Z_oIfMT3o`3o01?ofMWI0ol0000aomWIf@?o0?l05ooIfMT00004omWIfOl0
003o0000o`0000CofMWI0_l00005omWIf@03o`000?oIfMWofMWI0:_ofMWI0ol0o`0ComWIf@?o0000
;ooIfMT3o`3o01SofMWI000?omWIf@03o`000?oIfMWofMWI0:cofMWI1?l0o`0BomWIf@?o0000;OoI
fMT3o`3o01WofMWI000?omWIf@03o`000?oIfMWofMWI0:gofMWI1?l0o`0BomWIf@?o0000:ooIfMT3
o`3o01[ofMWI000?omWIf@03o`000?oIfMWofMWI0:oofMWI0ol0o`0BomWIf@?o0000:OoIfMT3o`3o
01_ofMWI000?omWIf@03o`000?oIfMWofMWI0;3ofMWI0ol0o`0BomWIf@?o00009_oIfMT4o`3o01co
fMWI000?omWIf@;o0000/_oIfMT3o`3o01;ofMWI0ol0000TomWIf@Co0?l07OoIfMT000oofMWI00?o
0000omWIfOoIfMT0/_oIfMT4o`3o017ofMWI0ol0000RomWIf@?o0?l07ooIfMT000oofMWI00?o0000
omWIfOoIfMT0/ooIfMT4o`3o017ofMWI0ol0000OomWIf@Co0?l08?oIfMT000oofMWI00?o0000omWI
fOoIfMT0]OoIfMT3o`3o017ofMWI0ol0000MomWIf@Co0?l08OoIfMT000oofMWI00?o0000omWIfOoI
fMT0]_oIfMT3o`3o017ofMWI0ol0000JomWIf@Co0?l08ooIfMT000oofMWI00?o0000omWIfOoIfMT0
]ooIfMT4o`3o013ofMWI0ol0000HomWIf@Co0?l09?oIfMT000oofMWI00?o0000omWIfOoIfMT0^?oI
fMT4o`3o013ofMWI0ol0000FomWIf@?o0?l09_oIfMT000oofMWI00?o0000omWIfOoIfMT0^_oIfMT4
o`3o00oofMWI0ol0000ComWIf@Co0?l09ooIfMT000oofMWI0_l0002lomWIf@Co0?l03ooIfMT2o`00
017ofMWI1Ol0o`0XomWIf@003ooIfMT00ol0003ofMWIomWIf@2momWIf@Co0?l03OoIfMT3o`0000ko
fMWI1Ol0o`0ZomWIf@003ooIfMT00ol0003ofMWIomWIf@2nomWIf@Ko0?l02ooIfMT3o`0000_ofMWI
1Ol0o`0/omWIf@003ooIfMT00ol0003ofMWIomWIf@30omWIf@Oo0?l02OoIfMT3o`0000SofMWI1Ol0
o`0^omWIf@003ooIfMT00ol0003ofMWIomWIf@33omWIf@Oo0?l01ooIfMT3o`0000CofMWI1_l0o`0`
omWIf@003ooIfMT00ol0003ofMWIomWIf@36omWIf@[o0?l000?ofMWIo`3o0?l0o`002Ol0o`0bomWI
f@003ooIfMT00ol0003ofMWIomWIf@39omWIfA3o0?l0=OoIfMT000oofMWI00?o0000omWIfOoIfMT0
c_oIfMT5o`3o0004omWIfOl0003o0000o`0003OofMWI000?omWIf@;o0000e_oIfMT3o`0003KofMWI
000?omWIf@03o`000?oIfMWofMWI0=KofMWI0ol0000eomWIf@003ooIfMT00ol0003ofMWIomWIf@3G
omWIf@?o0000=?oIfMT000oofMWI00?o0000omWIfOoIfMT0f?oIfMT3o`0003?ofMWI000?omWIf@03
o`000?oIfMWofMWI0=WofMWI0ol0000bomWIf@003ooIfMT00ol0003ofMWIomWIf@3JomWIf@?o0000
3ofMWI0ol0000[omWIf@003ooIfMT00ol0003ofMWIomWIf@3Q
omWIf@?o0000:_oIfMT000oofMWI00?o0000omWIfOoIfMT0h_oIfMT3o`0002WofMWI00001?oIfMWo
0000o`000?l00004omWIf@;o00001OoIfMT00ol0003ofMWIomWIf@3SomWIf@?o0000:?oIfMT00005
o`000?oIfMWofMWIomWIfOl000000_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWo
fMWI0>CofMWI0_l0000XomWIf@001?oIfMT01?l0003ofMWIomWIfOl00002omWIf@03o`000?oIfMWo
fMWI00;ofMWI00?o0000omWIfOoIfMT0i?oIfMT3o`0002OofMWI0002omWIf@;o00000ooIfMT01?l0
003ofMWIomWIfOl00004omWIf@?o0000iOoIfMT3o`0002KofMWI0004omWIf@04o`000?oIfMWofMWI
o`0000;ofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@3VomWIf@?o00009OoIfMT0
0005o`000?oIfMWofMWIomWIfOl000000_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oI
fMWofMWI0>OofMWI0ol0000TomWIf@0000CofMWIo`000?l0003o00001?oIfMT2o`0000GofMWI00?o
0000omWIfOoIfMT0j?oIfMT3o`0002?ofMWI000?omWIf@03o`000?oIfMWofMWI0>WofMWI0ol0000R
omWIf@003ooIfMT00ol0003ofMWIomWIf@3ZomWIf@?o00008OoIfMT000oofMWI00?o0000omWIfOoI
fMT0jooIfMT3o`00023ofMWI000?omWIf@03o`000?oIfMWofMWI0>cofMWI0ol0000OomWIf@003ooI
fMT2o`000>kofMWI0ol0000NomWIf@003ooIfMT00ol0003ofMWIomWIf@3^omWIf@?o00007OoIfMT0
00oofMWI00?o0000omWIfOoIfMT0kooIfMT3o`0001cofMWI000?omWIf@03o`000?oIfMWofMWI0?3o
fMWI0_l0000LomWIf@003ooIfMT00ol0003ofMWIomWIf@3`omWIf@?o00006ooIfMT000oofMWI00?o
0000omWIfOoIfMT0lOoIfMT3o`0001[ofMWI000?omWIf@03o`000?oIfMWofMWI0?;ofMWI0ol0000I
omWIf@003ooIfMT00ol0003ofMWIomWIf@3comWIf@?o00006?oIfMT000oofMWI0_l0003eomWIf@?o
00005ooIfMT000oofMWI00?o0000omWIfOoIfMT0mOoIfMT3o`0001KofMWI000?omWIf@03o`000?oI
fMWofMWI0?KofMWI0ol0000EomWIf@003ooIfMT00ol0003ofMWIomWIf@3gomWIf@?o00005?oIfMT0
00oofMWI00?o0000omWIfOoIfMT0n?oIfMT3o`0001?ofMWI000?omWIf@03o`000?oIfMWofMWI0?Wo
fMWI0ol0000BomWIf@003ooIfMT00ol0003ofMWIomWIf@3jomWIf@?o00004OoIfMT000oofMWI00?o
0000omWIfOoIfMT0nooIfMT2o`00017ofMWI000?omWIf@03o`000?oIfMWofMWI0?_ofMWI0ol0000@
omWIf@003ooIfMT2o`000?gofMWI0ol0000?omWIf@003ooIfMT00ol0003ofMWIomWIf@3momWIf@?o
00003_oIfMT000oofMWI00?o0000omWIfOoIfMT0o_oIfMT2o`0000kofMWI000?omWIf@03o`000?oI
fMWofMWI0?kofMWI0ol0000=omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@?o00003?oIfMT0
00oofMWI00?o0000omWIfOoIfMT0oooIfMT1omWIf@?o00002ooIfMT000oofMWI00?o0000omWIfOoI
fMT0oooIfMT2omWIf@?o00002_oIfMT000oofMWI00?o0000omWIfOoIfMT0oooIfMT3omWIf@;o0000
2_oIfMT000oofMWI0_l0003oomWIf@CofMWI0ol00009omWIf@003ooIfMT00ol0003ofMWIomWIf@3o
omWIf@CofMWI0ol00008omWIf@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@GofMWI0ol00007omWI
f@003ooIfMT00ol0003ofMWIomWIf@3oomWIf@KofMWI0_l00007omWIf@003ooIfMT00ol0003ofMWI
omWIf@3oomWIf@oofMWI000?omWIf@03o`000?oIfMWofMWI0?oofMWI3ooIfMT000oofMWI00?o0000
omWIfOoIfMT0oooIfMT?omWIf@00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.367127, -3.12112, \
0.0237193, 0.241311}}]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["c.- ",
FontColor->RGBColor[1, 0, 0]],
"Calcular ",
"la norma de la funci\[OAcute]n error."
}], "Subsubsection",
CellDingbat->None,
TextAlignment->AlignmentMarker,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
\(e[x_] := v[x] - vp\)], "Input",
CellLabel->"In[15]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(ne = Sqrt[pe[e[x], e[x]]] // N\)], "Input",
CellLabel->"In[16]:=",
FontSize->14],
Cell[BoxData[
\(18.00250212986795`\)], "Output",
CellLabel->"Out[16]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[17]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["EJERCICIO 4.6 (Un problema de ajuste exponencial)",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[{
"Un contador Geiger da una lectura inicial de 232 unidades en 10 minutos. \
Tras introducir una muestra de indio (",
Cell[BoxData[
\(\(\[InvisiblePrefixScriptBase]\^116\)In\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"), las lecturas del contador en sucesivos intervalos de 10 minutos vienen \
reflejadas en la siguiente tabla:\n\nt(minutos)\t10\t\t20\t\t30\t\t40\t\t50\t\
\t60\n\ncontador\t20511\t\t16174\t\t13904\t\t12514\t\t10775\t\t9596\n\nEn \
general, la radiaci\[OAcute]n emitida ",
Cell[BoxData[
\(R = \(R\_0\) e\^\(-\[Lambda]t\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
", donde \[Lambda] es la constante de desintegraci\[OAcute]n del material. \
Se trata de ajustar una funci\[OAcute]n del tipo ",
Cell[BoxData[
\(\(\(g \((t)\)\)\(=\)\(\[Alpha]e\^\[Beta]t\)\(\ \)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"a los datos ",
Cell[BoxData[
\(\((t\_k\ , \ y\_k)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
", donde ",
Cell[BoxData[
StyleBox[\(y\_k = contador - 232\),
FontFamily->"Helvetica"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
". \nA continuaci\[OAcute]n, deducir la vida media ",
Cell[BoxData[
RowBox[{"(",
RowBox[{"=",
FractionBox[
StyleBox[\(ln\ 2\),
FontSize->14],
StyleBox["\[Lambda]",
FontSize->14]]}], ")"}]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
" del indio."
}], "Subsubsection",
CellDingbat->None,
TextAlignment->Left,
TextJustification->1,
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
Cell[TextData[{
"Se trata de calcular la curva de la forma\n\t\t\t\t\t\t",
Cell[BoxData[
StyleBox[\(g \((t)\) = \[Alpha]e\^\[Beta]t\),
FontFamily->"Times",
FontWeight->"Bold"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
"\nque mejor se ajuste a los datos ",
Cell[BoxData[
StyleBox[\((t\_k\ , \ y\_k)\),
FontFamily->"Times"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
", donde ",
Cell[BoxData[
StyleBox[\(y\_k = contador - 232\),
FontFamily->"Times"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
", donde ",
Cell[BoxData[
\(t\_k\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
" se corresponde al riempo medido en minutos e ",
Cell[BoxData[
\(\(\(y\_k\)\(=\)\)\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
" ",
Cell[BoxData[
\(\[Alpha]e\^\[Beta]t\_k\)],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14],
".\n\nTenemos que reducir el problema a un ajuste lineal. Para ello, \
tomaremos logaritmos:\t\t\t\t\t\t"
}], "Text",
CellDingbat->None],
Cell[TextData[{
Cell[BoxData[
StyleBox[\(\(y\)\(=\)\),
FontWeight->"Bold"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14,
FontColor->GrayLevel[0]],
StyleBox[" ",
FontColor->GrayLevel[0]],
Cell[BoxData[
StyleBox[\(\[Alpha]e\^\[Beta]t\),
FontWeight->"Bold"]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14,
FontColor->GrayLevel[0]],
StyleBox[".",
FontColor->GrayLevel[0]]
}], "Text",
CellDingbat->"\[FilledSmallCircle]",
FontColor->RGBColor[0, 1, 0]],
Cell[TextData[{
StyleBox["Tomando logaritmos:",
FontColor->GrayLevel[0]],
StyleBox[" ",
FontColor->GrayLevel[0]],
Cell[BoxData[
FormBox[
StyleBox[\(ln\ y = ln\ \[Alpha] + \[Beta]t\),
FontSize->14,
FontWeight->"Bold"], TraditionalForm]],
FontColor->GrayLevel[0]],
"."
}], "Text",
CellDingbat->"\[FilledSmallCircle]",
FontColor->RGBColor[0, 1, 0]],
Cell[TextData[{
StyleBox["Hallamos la recta que mejor se ajuste a los datos:",
FontColor->GrayLevel[0]],
StyleBox[" ",
FontColor->GrayLevel[0]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
StyleBox["(",
FontSize->14,
FontWeight->"Bold"],
RowBox[{
StyleBox[
SubscriptBox[
StyleBox["t",
FontSlant->"Plain"],
StyleBox["k",
FontSlant->"Plain"]],
FontSize->14,
FontWeight->"Bold",
FontSlant->"Italic"],
StyleBox[" ",
FontSize->14,
FontWeight->"Bold"],
StyleBox[",",
FontSize->14,
FontWeight->"Bold"],
StyleBox[" ",
FontSize->14,
FontWeight->"Bold"],
StyleBox[
SubscriptBox[
StyleBox["z",
FontSlant->"Plain"],
StyleBox["k",
FontSlant->"Plain"]],
FontSize->14,
FontWeight->"Bold"]}],
StyleBox[")",
FontSize->14,
FontWeight->"Bold"]}],
StyleBox["=",
FontSize->14,
FontWeight->"Bold"],
StyleBox[
RowBox[{"(",
RowBox[{
SubscriptBox[
StyleBox["t",
FontSize->14,
FontWeight->"Bold",
FontSlant->"Plain"],
StyleBox["k",
FontSlant->"Plain"]], " ", ",", " ",
RowBox[{"ln",
RowBox[{"(",
RowBox[{
SubscriptBox["contador",
StyleBox["k",
FontSlant->"Plain"]], "-", "232"}], ")"}]}]}],
")"}],
FontSize->14,
FontWeight->"Bold"]}], TraditionalForm]],
FontColor->GrayLevel[0]],
":\n\t\t\t\t\t\t\t",
Cell[BoxData[
FormBox[
RowBox[{
StyleBox["z",
FontSlant->"Plain"], "=",
RowBox[{
StyleBox["a",
FontSlant->"Plain"], "+", "ct"}]}], TraditionalForm]],
FontSize->16,
FontWeight->"Bold",
FontColor->GrayLevel[0]],
"\ncon \t\t\t\t\t\t"
}], "Text",
CellDingbat->"\[FilledSmallCircle]",
FontColor->RGBColor[0, 1, 0]],
Cell["\", "Text",
CellDingbat->None],
Cell[BoxData[{
\(\(A = {{1, 10}, {1, 20}, {1, 30}, {1, 40}, {1, 50}, {1,
60}};\)\), "\[IndentingNewLine]",
\(\(tiempos = {10, 20, 30, 40, 50, 60};\)\), "\[IndentingNewLine]",
\(\(bt = {20511, 16174, 13904, 12514, 10775,
9596};\)\), "\[IndentingNewLine]",
\(\(b = Log[bt - 232. ];\)\)}], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
\(\(diagramadedispersion =
Table[{tiempos[\([i]\)], bt[\([i]\)] - 232}, {i,
6}];\)\), "\[IndentingNewLine]",
\(\(g1 =
ListPlot[diagramadedispersion,
PlotStyle \[Rule] {PointSize[0.02],
RGBColor[1, 0, 0]}];\)\)}], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[5]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\0=WIf@030000003IfMT0fMWI0080fMWI00@0
00000=WIf@3IfMT00000:P3IfMT01@000000fMWI0=WIf@3IfMT000000080fMWI00"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {3.28438, 8277.64, 0.201972, \
71.3399}}]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(solucion =
Inverse[Transpose[A] . A] . \((Transpose[A] . b)\) // N\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\({10.01127569073499`, \(-0.014889333632023221`\)}\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(alpha = Exp[solucion[\([1]\)]]\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[BoxData[
\(22276.234924501263`\)], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(beta = solucion[\([2]\)]\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\(\(-0.014889333632023221`\)\)], "Output",
CellLabel->"Out[9]="]
}, Open ]],
Cell["Luego la curva pedida es:", "Text"],
Cell[BoxData[
\(\(g[t_] :=
Exp[solucion[\([1]\)]]*Exp[solucion[\([2]\)]*t];\)\)], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(Print["\", g[t]]\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[BoxData[
InterpretationBox[\("la curva exponencial que mejor se ajusta a los datos \
es g(t)="\[InvisibleSpace]\(22276.234924501263`\ \
\[ExponentialE]\^\(\(-0.014889333632023221`\)\ t\)\)\),
SequenceForm[
"la curva exponencial que mejor se ajusta a los datos es g(t)=",
Times[ 22276.234924501263,
Power[ E,
Times[ -.014889333632023221, t]]]],
Editable->False]], "Print",
CellLabel->"From In[11]:="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(g2 =
Plot[g[t], {t, 0, 65},
PlotStyle \[Rule] {Thickness[0.01],
RGBColor[0, 1, 0]}];\)\)], "Input",
CellLabel->"In[12]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[12]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\`3IfMT3003o0;h0fMWI000Q0=WIf@800000>P3IfMT4003o0;l0fMWI000Q0=WIf@030000
003IfMT0fMWI03P0fMWI1000o`300=WIf@008@3IfMT00`000000fMWI0=WIf@0f0=WIf@@00?l0`P3I
fMT000030=WIf@00000000000040fMWI00030=WIf@050000003IfMT0fMWI0=WI
f@0000000P3IfMT010000000fMWI0=WIf@0000020=WIf@040000003IfMT0fMWI00000080fMWI00@0
00000=WIf@3IfMT000000P3IfMT00`000000fMWI0=WIf@020=WIf@030000003IfMT0fMWI01H0fMWI
1000o`3R0=WIf@0000D0fMWI0000003IfMT0fMWI000000020=WIf@040000003IfMT0fMWI00000080
fMWI00@000000=WIf@3IfMT000000P3IfMT010000000fMWI0=WIf@0000020=WIf@040000003IfMT0
fMWI000000@0fMWI00D0fMWI000Q0=WIf@030000003IfMT0fMWI01T0fMWI000Q0=WIf@030000003IfMT0fMWI00l0fMWI0`00o`3Z
0=WIf@008@3IfMT00`000000fMWI0=WIf@0>0=WIf@`0fMWI000Q0=WIf@800000303IfMT4003o0>d0fMWI000Q0=WIf@030000003I
fMT0fMWI00X0fMWI0`00o`3_0=WIf@008@3IfMT00`000000fMWI0=WIf@090=WIf@"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-8.73034, 7382.5, 0.262564, \
90.2821}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Show[g1, g2];\)\)], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[13]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\03IfMT00240fMWI
0P00002j0=WIf@80o`001`00o`0j0=WIf@008@3IfMT00`000000fMWI0=WIf@2i0=WIf@H00?l0?@3I
fMT00240fMWI00`3IfMT3
003o0;h0fMWI000Q0=WIf@800000>P3IfMT4003o0;l0fMWI000Q0=WIf@030000003IfMT0fMWI03P0
fMWI1000o`300=WIf@008@3IfMT00`000000fMWI0=WIf@0f0=WIf@@00?l0`P3IfMT000030=WIf@00
000000000040fMWI00030=WIf@050000003IfMT0fMWI0=WIf@0000000P3IfMT0
10000000fMWI0=WIf@0000020=WIf@040000003IfMT0fMWI00000080fMWI00@000000=WIf@3IfMT0
00000P3IfMT00`000000fMWI0=WIf@020=WIf@030000003IfMT0fMWI01H0fMWI1000o`080=WIf@X0fMWI000Q0=WIf@030000003IfMT0
fMWI00h0fMWI0`00o`3[0=WIf@008@3IfMT00`000000fMWI0=WIf@0l0fMWI
000Q0=WIf@030000003IfMT0fMWI00T0fMWI0`00o`3`0=WIf@008@3IfMT00`000000fMWI0=WIf@08
0=WIf@"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-8.73034, 7382.5, 0.262564, \
90.2821}}]
}, Open ]],
Cell["\", "Text"],
Cell[BoxData[
\("In[14]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[{
\(\(a1 = \(Transpose[A]\)[\([1]\)];\)\), "\[IndentingNewLine]",
\(\(a2 = \(Transpose[A]\)[\([2]\)];\)\), "\[IndentingNewLine]",
\(o = GramSchmidt[{a1, a2}]\)}], "Input",
CellLabel->"In[15]:=",
FontSize->14],
Cell[BoxData[
\({{1\/\@6, 1\/\@6, 1\/\@6, 1\/\@6, 1\/\@6,
1\/\@6}, {\(-\@\(5\/14\)\), \(-\(3\/\@70\)\), \(-\(1\/\@70\)\),
1\/\@70, 3\/\@70, \@\(5\/14\)}}\)], "Output",
CellLabel->"Out[17]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(bp = Sum[Projection[b, o[\([i]\)]], {i, 2}] // N\)], "Input",
CellLabel->"In[18]:=",
FontSize->14],
Cell[BoxData[
\({9.862382354414757`, 9.713489018094524`, 9.564595681774291`,
9.41570234545406`, 9.266809009133826`, 9.117915672813593`}\)], "Output",\
CellLabel->"Out[18]="]
}, Open ]],
Cell[TextData[{
"Aunque nos puede resultar m\[AAcute]s c\[OAcute]modo dibujarlas por \
separado con colores distintos y utilizar posteriormente la funci\[OAcute]n \
",
StyleBox["Show",
FontFamily->"Courier",
FontWeight->"Bold"],
" para mostrar las dos gr\[AAcute]ficas juntas:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
\(\(sistema =
Table[l\[Alpha]*a1[\([i]\)] + \[Beta]*a2[\([i]\)] \[Equal]
bp[\([i]\)], {i, Length[a1]}];\)\), "\[IndentingNewLine]",
\(sols = Solve[sistema, {l\[Alpha], \[Beta]}]\)}], "Input",
CellLabel->"In[19]:=",
FontSize->14],
Cell[BoxData[
\({{l\[Alpha] \[Rule]
10.01127569073499`, \[Beta] \[Rule] \(-0.01488933363202328`\)}}\)], \
"Output",
CellLabel->"Out[20]="]
}, Open ]],
Cell["La curva pedida es:", "Text"],
Cell[BoxData[
\(\(ng[
t_] := \((Exp[
l\[Alpha]] /. \
{\(sols[\([1]\)]\)[\([1]\)]})\)*\((Exp[\[Beta]*
t])\) /. {\(sols[\([1]\)]\)[\([2]\)]};\)\)], "Input",
CellLabel->"In[21]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(ng[t]\)], "Input",
CellLabel->"In[22]:="],
Cell[BoxData[
\(22276.234924501263`\ \[ExponentialE]\^\(\(-0.01488933363202328`\)\ \
t\)\)], "Output",
CellLabel->"Out[22]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[23]:=",
FontSize->14]
}, Closed]]
}, Closed]]
}, Open ]]
},
FrontEndVersion->"5.2 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 937}},
WindowSize->{803, 633},
WindowMargins->{{189, Automatic}, {Automatic, -13}},
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, 140, 2, 76, "SectionFirst"],
Cell[2172, 66, 1798, 50, 108, "Text"],
Cell[CellGroupData[{
Cell[3995, 120, 109, 3, 43, "Input"],
Cell[4107, 125, 87, 2, 42, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[4231, 132, 108, 3, 43, "Input"],
Cell[4342, 137, 529, 8, 41, "Message"]
}, Open ]],
Cell[4886, 148, 53, 0, 24, "Text"],
Cell[4942, 150, 92, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[5059, 157, 87, 3, 43, "Input"],
Cell[5149, 162, 103, 2, 61, "Output"]
}, Open ]],
Cell[5267, 167, 94, 3, 24, "Text"],
Cell[CellGroupData[{
Cell[5386, 174, 119, 3, 43, "Input"],
Cell[5508, 179, 152, 3, 42, "Output"]
}, Open ]],
Cell[5675, 185, 926, 19, 108, "Text"],
Cell[CellGroupData[{
Cell[6626, 208, 82, 3, 43, "Input"],
Cell[6711, 213, 118, 3, 42, "Output"]
}, Open ]],
Cell[6844, 219, 101, 3, 43, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[6982, 227, 368, 10, 50, "SectionFirst"],
Cell[CellGroupData[{
Cell[7375, 241, 1429, 48, 99, "Subsubsection"],
Cell[8807, 291, 107, 3, 43, "Input"],
Cell[8917, 296, 205, 4, 40, "Text"],
Cell[9125, 302, 511, 14, 61, "Input"],
Cell[CellGroupData[{
Cell[9661, 320, 81, 3, 43, "Input"],
Cell[9745, 325, 59, 2, 42, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[9853, 333, 481, 17, 28, "Subsubsection"],
Cell[10337, 352, 424, 10, 45, "Text"],
Cell[CellGroupData[{
Cell[10786, 366, 137, 4, 61, "Input"],
Cell[10926, 372, 62, 2, 45, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11037, 380, 656, 24, 28, "Subsubsection"],
Cell[11696, 406, 467, 11, 41, "Text"],
Cell[CellGroupData[{
Cell[12188, 421, 146, 4, 61, "Input"],
Cell[12337, 427, 61, 2, 45, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[12447, 435, 503, 16, 29, "Subsubsection"],
Cell[12953, 453, 1917, 49, 136, "Text"],
Cell[14873, 504, 115, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[15013, 511, 127, 3, 43, "Input"],
Cell[15143, 516, 91, 2, 42, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[15271, 523, 87, 3, 43, "Input"],
Cell[15361, 528, 394, 12, 84, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[15804, 546, 541, 18, 28, "Subsubsection"],
Cell[16348, 566, 241, 5, 40, "Text"],
Cell[16592, 573, 109, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[16726, 580, 113, 3, 43, "Input"],
Cell[16842, 585, 97, 2, 42, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[16988, 593, 540, 18, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[17553, 615, 253, 6, 43, "Input"],
Cell[17809, 623, 97, 2, 42, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[17955, 631, 430, 14, 46, "Subsubsection"],
Cell[18388, 647, 111, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[18524, 654, 288, 7, 43, "Input"],
Cell[18815, 663, 112, 2, 57, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[18964, 670, 119, 3, 43, "Input"],
Cell[19086, 675, 168, 4, 86, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[19303, 685, 511, 18, 28, "Subsubsection"],
Cell[19817, 705, 92, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[19934, 712, 161, 5, 43, "Input"],
Cell[20098, 719, 80, 2, 57, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[20215, 726, 161, 5, 43, "Input"],
Cell[20379, 733, 273, 5, 125, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[20689, 743, 85, 3, 43, "Input"],
Cell[20777, 748, 80, 2, 57, "Output"]
}, Open ]],
Cell[20872, 753, 102, 3, 43, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[21023, 762, 370, 10, 50, "SectionFirst"],
Cell[CellGroupData[{
Cell[21418, 776, 1291, 43, 118, "Subsubsection"],
Cell[22712, 821, 274, 8, 24, "Text"],
Cell[CellGroupData[{
Cell[23011, 833, 110, 3, 43, "Input"],
Cell[23124, 838, 60, 2, 42, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[23221, 845, 114, 3, 43, "Input"],
Cell[23338, 850, 60, 2, 42, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23447, 858, 549, 19, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[24021, 881, 111, 3, 43, "Input"],
Cell[24135, 886, 62, 2, 45, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24246, 894, 656, 24, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[24927, 922, 196, 5, 43, "Input"],
Cell[25126, 929, 62, 2, 45, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25237, 937, 774, 23, 66, "Subsubsection"],
Cell[26014, 962, 151, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[26190, 970, 124, 3, 43, "Input"],
Cell[26317, 975, 114, 2, 42, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[26468, 982, 86, 3, 43, "Input"],
Cell[26557, 987, 442, 13, 100, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27048, 1006, 461, 16, 28, "Subsubsection"],
Cell[27512, 1024, 108, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[27645, 1031, 339, 8, 61, "Input"],
Cell[27987, 1041, 129, 3, 57, "Output"]
}, Open ]],
Cell[28131, 1047, 243, 7, 25, "Text"],
Cell[CellGroupData[{
Cell[28399, 1058, 266, 9, 43, "Input"],
Cell[28668, 1069, 110, 2, 42, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28827, 1077, 462, 16, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[29314, 1097, 94, 3, 43, "Input"],
Cell[29411, 1102, 183, 4, 68, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29643, 1112, 513, 18, 28, "Subsubsection"],
Cell[30159, 1132, 95, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[30279, 1139, 118, 3, 43, "Input"],
Cell[30400, 1144, 89, 2, 57, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[30526, 1151, 143, 4, 43, "Input"],
Cell[30672, 1157, 63, 2, 42, "Output"]
}, Open ]],
Cell[30750, 1162, 299, 7, 41, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[31086, 1174, 771, 25, 46, "Subsubsection"],
Cell[31860, 1201, 981, 30, 62, "Text"],
Cell[CellGroupData[{
Cell[32866, 1235, 148, 4, 43, "Input"],
Cell[33017, 1241, 251, 5, 27, "Message"],
Cell[33271, 1248, 172, 3, 66, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[33480, 1256, 215, 5, 61, "Input"],
Cell[33698, 1263, 973, 29, 80, "Print"]
}, Open ]],
Cell[34686, 1295, 102, 3, 43, "Input"],
Cell[34791, 1300, 5042, 177, 128, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[39882, 1483, 303, 6, 73, "SectionFirst"],
Cell[CellGroupData[{
Cell[40210, 1493, 1552, 56, 81, "Subsubsection"],
Cell[41765, 1551, 606, 19, 62, "Text"],
Cell[42374, 1572, 113, 3, 43, "Input"],
Cell[42490, 1577, 145, 4, 43, "Input"],
Cell[42638, 1583, 664, 17, 58, "Text"],
Cell[43305, 1602, 108, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[43438, 1609, 123, 3, 43, "Input"],
Cell[43564, 1614, 131, 3, 47, "Output"]
}, Open ]],
Cell[43710, 1620, 710, 23, 44, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[44457, 1648, 485, 17, 28, "Subsubsection"],
Cell[44945, 1667, 94, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[45064, 1674, 172, 5, 45, "Input"],
Cell[45239, 1681, 299, 5, 61, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[45575, 1691, 88, 3, 45, "Input"],
Cell[45666, 1696, 167, 3, 44, "Output"]
}, Open ]],
Cell[45848, 1702, 137, 3, 27, "Text"],
Cell[CellGroupData[{
Cell[46010, 1709, 578, 16, 65, "Input"],
Cell[46591, 1727, 17220, 439, 194, 3919, 270, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[CellGroupData[{
Cell[63848, 2171, 159, 5, 45, "Input"],
Cell[64010, 2178, 16273, 405, 194, 3482, 241, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[CellGroupData[{
Cell[80320, 2588, 195, 6, 45, "Input"],
Cell[80518, 2596, 15908, 397, 194, 3376, 236, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[CellGroupData[{
Cell[96463, 2998, 92, 3, 45, "Input"],
Cell[96558, 3003, 17174, 437, 194, 3888, 268, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[113781, 3446, 259, 9, 28, "Subsubsection"],
Cell[114043, 3457, 85, 1, 27, "Text"],
Cell[114131, 3460, 92, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[114248, 3467, 104, 3, 45, "Input"],
Cell[114355, 3472, 81, 2, 44, "Output"]
}, Open ]],
Cell[114451, 3477, 102, 3, 45, "Input"],
Cell[114556, 3482, 466, 15, 48, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[115071, 3503, 264, 5, 73, "SectionFirst"],
Cell[CellGroupData[{
Cell[115360, 3512, 1810, 64, 98, "Subsubsection"],
Cell[117173, 3578, 153, 4, 45, "Input"],
Cell[CellGroupData[{
Cell[117351, 3586, 175, 5, 45, "Input"],
Cell[117529, 3593, 60, 2, 44, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[117638, 3601, 326, 10, 44, "Subsubsection"],
Cell[117967, 3613, 108, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[118100, 3620, 103, 3, 45, "Input"],
Cell[118206, 3625, 232, 4, 68, "Output"]
}, Open ]],
Cell[118453, 3632, 536, 15, 48, "Text"],
Cell[CellGroupData[{
Cell[119014, 3651, 128, 3, 45, "Input"],
Cell[119145, 3656, 88, 2, 57, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[119270, 3663, 176, 5, 45, "Input"],
Cell[119449, 3670, 133, 3, 57, "Output"]
}, Open ]],
Cell[119597, 3676, 101, 3, 45, "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[119747, 3685, 298, 5, 73, "SectionFirst"],
Cell[CellGroupData[{
Cell[120070, 3694, 1734, 54, 179, "Subsubsection"],
Cell[121807, 3750, 74, 1, 27, "Text"],
Cell[121884, 3753, 278, 5, 27, "Text"],
Cell[122165, 3760, 528, 18, 28, "Text"],
Cell[122696, 3780, 131, 4, 27, "Text"],
Cell[122830, 3786, 117, 3, 45, "Input"],
Cell[122950, 3791, 197, 4, 65, "Input"],
Cell[123150, 3797, 108, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[123283, 3804, 123, 3, 45, "Input"],
Cell[123409, 3809, 111, 2, 61, "Output"]
}, Open ]],
Cell[123535, 3814, 295, 7, 46, "Text"],
Cell[CellGroupData[{
Cell[123855, 3825, 156, 4, 45, "Input"],
Cell[124014, 3831, 62, 2, 44, "Output"]
}, Open ]],
Cell[124091, 3836, 23, 0, 27, "Text"],
Cell[CellGroupData[{
Cell[124139, 3840, 127, 3, 45, "Input"],
Cell[124269, 3845, 91, 2, 44, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[124397, 3852, 87, 3, 45, "Input"],
Cell[124487, 3857, 393, 12, 86, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[124929, 3875, 652, 19, 64, "Subsubsection"],
Cell[125584, 3896, 94, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[125703, 3903, 172, 5, 45, "Input"],
Cell[125878, 3910, 118, 3, 60, "Output"]
}, Open ]],
Cell[126011, 3916, 330, 10, 47, "Text"],
Cell[CellGroupData[{
Cell[126366, 3930, 583, 16, 65, "Input"],
Cell[126952, 3948, 21946, 573, 194, 5142, 360, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[148913, 4524, 302, 8, 47, "Text"],
Cell[CellGroupData[{
Cell[149240, 4536, 164, 5, 45, "Input"],
Cell[149407, 4543, 15495, 420, 194, 3771, 270, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[CellGroupData[{
Cell[164939, 4968, 199, 6, 45, "Input"],
Cell[165141, 4976, 18886, 523, 194, 4905, 345, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[CellGroupData[{
Cell[184064, 5504, 92, 3, 45, "Input"],
Cell[184159, 5509, 20315, 551, 194, 5111, 358, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[204523, 6066, 272, 10, 28, "Subsubsection"],
Cell[204798, 6078, 92, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[204915, 6085, 104, 3, 45, "Input"],
Cell[205022, 6090, 77, 2, 44, "Output"]
}, Open ]],
Cell[205114, 6095, 102, 3, 45, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[205265, 6104, 194, 3, 50, "SectionFirst"],
Cell[CellGroupData[{
Cell[205484, 6111, 2001, 62, 250, "Subsubsection"],
Cell[207488, 6175, 1404, 50, 103, "Text"],
Cell[208895, 6227, 620, 23, 27, "Text"],
Cell[209518, 6252, 403, 14, 27, "Text"],
Cell[209924, 6268, 2523, 80, 66, "Text"],
Cell[212450, 6350, 131, 4, 27, "Text"],
Cell[212584, 6356, 378, 8, 105, "Input"],
Cell[212965, 6366, 100, 3, 27, "Text"],
Cell[CellGroupData[{
Cell[213090, 6373, 342, 9, 85, "Input"],
Cell[213435, 6384, 16332, 397, 194, 3293, 231, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[229782, 6784, 181, 4, 46, "Text"],
Cell[CellGroupData[{
Cell[229988, 6792, 146, 4, 45, "Input"],
Cell[230137, 6798, 106, 2, 44, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[230280, 6805, 103, 3, 45, "Input"],
Cell[230386, 6810, 77, 2, 44, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[230500, 6817, 97, 3, 45, "Input"],
Cell[230600, 6822, 84, 2, 44, "Output"]
}, Open ]],
Cell[230699, 6827, 41, 0, 27, "Text"],
Cell[230743, 6829, 144, 4, 45, "Input"],
Cell[CellGroupData[{
Cell[230912, 6837, 156, 4, 65, "Input"],
Cell[231071, 6843, 462, 10, 40, "Print"]
}, Open ]],
Cell[231548, 6856, 97, 3, 27, "Text"],
Cell[CellGroupData[{
Cell[231670, 6863, 197, 6, 45, "Input"],
Cell[231870, 6871, 20339, 503, 194, 4201, 299, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[CellGroupData[{
Cell[252246, 7379, 91, 3, 45, "Input"],
Cell[252340, 7384, 20839, 516, 194, 4328, 307, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[273194, 7903, 106, 3, 27, "Text"],
Cell[273303, 7908, 109, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[273437, 7915, 239, 5, 85, "Input"],
Cell[273679, 7922, 214, 4, 68, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[273930, 7931, 122, 3, 45, "Input"],
Cell[274055, 7936, 187, 4, 44, "Output"]
}, Open ]],
Cell[274257, 7943, 303, 8, 47, "Text"],
Cell[CellGroupData[{
Cell[274585, 7955, 278, 6, 65, "Input"],
Cell[274866, 7963, 155, 4, 44, "Output"]
}, Open ]],
Cell[275036, 7970, 35, 0, 27, "Text"],
Cell[275074, 7972, 245, 7, 45, "Input"],
Cell[CellGroupData[{
Cell[275344, 7983, 63, 2, 45, "Input"],
Cell[275410, 7987, 131, 3, 44, "Output"]
}, Open ]],
Cell[275556, 7993, 102, 3, 45, "Input"]
}, Closed]]
}, Closed]]
}, Open ]]
}
]
*)
(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)