(************** 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[ 596072, 14730]*)
(*NotebookOutlinePosition[ 597362, 14771]*)
(* CellTagsIndexPosition[ 597226, 14764]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["PRESENTACI\[CapitalOAcute]N PR\[CapitalAAcute]CTICA 1", "Title",
TextAlignment->Center,
TextJustification->0,
FontColor->RGBColor[0, 0, 1],
Background->RGBColor[0, 1, 1],
FontVariations->{"CompatibilityType"->0}],
Cell[CellGroupData[{
Cell[TextData[StyleBox["EMPEZANDO A TRABAJAR",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Para empezar", "Subsection",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Trabajar con ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" es como mantener una conversaci\[OAcute]n; hacemos una pregunta, y \
Mathematica responde con un resultado: "
}], "Text",
TextAlignment->Left,
TextJustification->1],
Cell[CellGroupData[{
Cell[BoxData[
\(2 + 3\)], "Input",
CellLabel->"In[1]:=",
FontFamily->"MS Serif",
FontSize->14],
Cell[BoxData[
\(5\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[TextData[{
"El n\[UAcute]cleo o ",
StyleBox["kernel",
FontWeight->"Bold",
FontSlant->"Italic"],
StyleBox[" ",
FontWeight->"Bold"],
"de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" no realiza ninguna acci\[OAcute]n hasta que el usuario no se lo indique y \
para ello se puede pulsar las teclas ",
StyleBox["Shift",
FontWeight->"Bold",
FontSlant->"Italic"],
" y ",
StyleBox["Return",
FontWeight->"Bold",
FontSlant->"Italic"],
" simult\[AAcute]neamente o bien ",
StyleBox["Intro",
FontWeight->"Bold",
FontSlant->"Italic"],
". En caso de pulsar la tecla",
StyleBox[" Return",
FontWeight->"Bold",
FontSlant->"Italic"],
" \[UAcute]nicamente, la entrada no se evaluar\[AAcute], simplemente se \
cambia de l\[IAcute]nea para poder introducir otro ",
StyleBox["input",
FontSlant->"Italic"],
"."
}], "Text",
TextAlignment->Left,
TextJustification->1],
Cell[CellGroupData[{
Cell[BoxData[
\(8/2\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(4\)], "Output",
CellLabel->"Out[2]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Utilizando resultados previos",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Una vez cargado el n\[UAcute]cleo, se est\[AAcute] en condiciones de \
comunicarse con el programa. A un ",
StyleBox["input",
FontWeight->"Bold",
FontSlant->"Italic"],
" dado por el usuario, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" devolver\[AAcute] un ",
StyleBox["output",
FontWeight->"Bold",
FontSlant->"Italic"],
" que numerar\[AAcute] (ambos con el mismo n\[UAcute]mero) secuencialmente \
a lo largo de una sesi\[OAcute]n de trabajo. Esto permite hacer referencia en \
cualquier momento a un resultado obtenido o a una variable definida \
anteriormente. El s\[IAcute]mbolo ",
StyleBox["%",
FontFamily->"Courier New",
FontSize->14,
FontWeight->"Bold"],
" se utiliza para referirse al ",
StyleBox["output",
FontWeight->"Bold",
FontSlant->"Italic"],
" inmediatamente anterior; pueden usarse ",
StyleBox["%%",
FontFamily->"Courier New",
FontSize->14,
FontWeight->"Bold"],
", ",
StyleBox["%%%",
FontFamily->"Courier New",
FontSize->14,
FontWeight->"Bold"],
", ",
StyleBox["%%%%",
FontFamily->"Courier New",
FontSize->14,
FontWeight->"Bold"],
", etc. para el pen\[UAcute]ltimo, antepen\[UAcute]ltimo, etc. Otra forma \
alternativa y m\[AAcute]s conveniente es utilizar ",
StyleBox["%",
FontFamily->"Courier New",
FontSize->14],
StyleBox["k",
FontFamily->"Courier New",
FontSize->14,
FontWeight->"Bold"],
" donde ",
StyleBox["k",
FontFamily->"Courier New",
FontSize->14,
FontWeight->"Bold"],
" es el n\[UAcute]mero del ",
StyleBox["output",
FontWeight->"Bold",
FontSlant->"Italic"],
".\nEn resumen:"
}], "Text"],
Cell[TextData[{
" ",
StyleBox["%",
FontFamily->"Courier New",
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox[": denota la \[UAcute]ltima salida\n",
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox["%k",
FontFamily->"Courier New",
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox[": denota el ",
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox["Out[k]",
FontColor->RGBColor[0, 0, 1]]
}], "Text",
TextAlignment->Center,
TextJustification->0,
FontFamily->"Times New Roman",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(% + %1\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(9\)], "Output",
CellLabel->"Out[3]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Cuidado con ...",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell["Cuando escribamos comandos deberemos tener cuidado con:", "Text",
CellDingbat->None],
Cell[TextData[{
StyleBox["Las may\[UAcute]sculas y min\[UAcute]sculas.",
FontWeight->"Bold"],
" ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" distingue unos caracteres de otros. Todas las funciones, opciones, \
variables y constantes incorporadas al programa empiezan con \
may\[UAcute]scula (conviene nombrar las que definamos nosotros con min\
\[UAcute]scula). "
}], "Text",
CellDingbat->"\[FilledSmallCircle]"],
Cell[TextData[{
StyleBox["Los espacios. ",
FontWeight->"Bold"],
"Un espacio entre dos variables se interpreta como un signo de multiplicaci\
\[OAcute]n. Por esta raz\[OAcute]n nunca debemos dejar un espacio entre \
caracteres cuando demos un nombre a una constante, variable o \
funci\[OAcute]n. "
}], "Text",
CellDingbat->"\[FilledSmallCircle]"],
Cell[TextData[{
StyleBox["Par\[EAcute]ntesis, corchetes y llaves.",
FontWeight->"Bold"],
" Tienen funciones muy diferentes. Los par\[EAcute]ntesis se utilizan para \
agrupar e indican prioridad en las operaciones a efectuar. Los corchetes son \
exclusivos de las funciones y delimitan el argumento de las mismas (\
\[DownExclamation]no usarlos como un segundo nivel de par\[EAcute]ntesis!) y, \
por \[UAcute]ltimo, las llaves se utilizan para definir listas (vectores y \
matrices, por ejemplo) de elementos. "
}], "Text",
CellDingbat->"\[FilledSmallCircle]"],
Cell[TextData[{
StyleBox["Signos de puntuaci\[OAcute]n.",
FontWeight->"Bold"],
" Las comas se utilizan para separar los distintos argumentos de las \
funciones de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" y tambi\[EAcute]n para separar los elementos de una lista. Pondremos un \
punto y coma para separar los distintos comandos en un mismo",
StyleBox[" input",
FontWeight->"Bold",
FontSlant->"Italic"],
"."
}], "Text",
CellDingbat->"\[FilledSmallCircle]"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["\[DownQuestion]C\[OAcute]mo utilizar las paletas?",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Una de las novedades m\[AAcute]s importantes que se introdujo en la versi\
\[OAcute]n 3.0 y que ha continuado hasta la versi\[OAcute]n actual (5.2) son \
las denominadas paletas (",
StyleBox["palettes",
FontSlant->"Italic"],
"). Las paletas son peque\[NTilde]as ventanas que podemos activar (o \
desactivar) y que contienen algunas de las operaciones, \[OAcute]rdenes e \
instrucciones m\[AAcute]s usuales que necesitaremos durante nuestro trabajo. \
Inicialmente son nueve paletas que contienen todo tipo de operaciones, desde \
las m\[AAcute]s b\[AAcute]sicas hasta otras m\[AAcute]s complejas de C\
\[AAcute]lculo Algebraico, C\[AAcute]lculo Integral o de C\[AAcute]lculo \
Diferencial. Nos ofrecen la posibilidad de escribir, y por tanto resolver, de \
la misma forma que escribimos con papel y l\[AAcute]piz. \n\nPara activar las \
distintas paletas, pinchar en ",
StyleBox["File",
FontWeight->"Bold"],
", ",
StyleBox["Palettes",
FontWeight->"Bold"],
" y seleccionar la paleta que nos interese. \n \
",
Cell[BoxData[GridBox[{
{GridBox[{
{
ButtonBox[\(\[SelectionPlaceholder]\^\[Placeholder]\)],
ButtonBox[
FractionBox["\[SelectionPlaceholder]",
AdjustmentBox["\[Placeholder]",
BoxBaselineShift->-0.5]],
ButtonData:>BoxData[
FractionBox[
"\[SelectionPlaceholder]", "\[Placeholder]"]]]},
{
ButtonBox[\(\@\[SelectionPlaceholder]\)],
ButtonBox[\(\@\[SelectionPlaceholder]\%\[Placeholder]\)]},
{
ButtonBox[
StyleBox[\(\[Integral]\[SelectionPlaceholder]\[ThinSpace]\
\[DifferentialD]\[Placeholder]\),
ScriptLevel->0],
ButtonData:>BoxData[
RowBox[ {"\[Integral]",
RowBox[ {"\[SelectionPlaceholder]",
RowBox[ {"\[DifferentialD]",
"\[Placeholder]"}]}]}]],
ButtonNote->"\[EscapeKey]intt\[EscapeKey]"],
ButtonBox[\(\[PartialD]\_\[Placeholder]\ \
\[SelectionPlaceholder]\),
ButtonNote->"\[EscapeKey]dt\[EscapeKey]"]},
{
ButtonBox[
StyleBox[\(\[Integral]\_\[Placeholder]\%\[Placeholder] \
\[SelectionPlaceholder]\[ThinSpace]\[DifferentialD]\[Placeholder]\),
ScriptLevel->0],
ButtonData:>BoxData[
RowBox[ {
SubsuperscriptBox[
"\[Integral]", "\[Placeholder]", "\[Placeholder]"],
RowBox[ {"\[SelectionPlaceholder]",
RowBox[ {"\[DifferentialD]",
"\[Placeholder]"}]}]}]],
ButtonNote->"\[EscapeKey]dintt\[EscapeKey]"],
ButtonBox[\(\[PartialD]\_\(\[Placeholder], \[Placeholder]\)\
\[SelectionPlaceholder]\)]},
{
ButtonBox[
StyleBox[\(\[Sum]\+\(\[Placeholder] = \[Placeholder]\)\%\
\[Placeholder]\ \[SelectionPlaceholder]\),
ScriptLevel->0],
ButtonData:>BoxData[
RowBox[ {
UnderoverscriptBox[ "\[Sum]",
RowBox[ {"\[Placeholder]", "=",
"\[Placeholder]"}], "\[Placeholder]"],
"\[SelectionPlaceholder]"}]],
ButtonNote->"\[EscapeKey]sumt\[EscapeKey]"],
ButtonBox[
StyleBox[\(\[Product]\+\(\[Placeholder] = \
\[Placeholder]\)\%\[Placeholder]\ \[SelectionPlaceholder]\),
ScriptLevel->0],
ButtonData:>BoxData[
RowBox[ {
UnderoverscriptBox[ "\[Product]",
RowBox[ {"\[Placeholder]", "=",
"\[Placeholder]"}], "\[Placeholder]"],
"\[SelectionPlaceholder]"}]],
ButtonNote->"\[EscapeKey]prodt\[EscapeKey]"]},
{
ButtonBox[
RowBox[{"(", "\[NegativeThinSpace]", GridBox[{
{"\[Placeholder]", "\[Placeholder]"},
{"\[Placeholder]", "\[Placeholder]"}
}], "\[NegativeThinSpace]", ")"}],
ButtonData:>BoxData[
RowBox[ {"(",
GridBox[ {{"\[Placeholder]", "\[Placeholder]"}, {
"\[Placeholder]", "\[Placeholder]"}}], ")"}]]],
ButtonBox[\(\[SelectionPlaceholder]\_\(\(\
\[LeftDoubleBracket]\)\(\[Placeholder]\)\(\[RightDoubleBracket]\)\)\)]}
}]},
{GridBox[{
{
ButtonBox["\[Pi]",
ButtonNote->
"\[EscapeKey]p\[EscapeKey], \[Backslash][Pi]"],
ButtonBox[
AdjustmentBox["\[ExponentialE]",
BoxMargins->{{0.1, 0.2}, {0, 0}}],
ButtonData:>"\[ExponentialE]",
ButtonNote->
"\[EscapeKey]ee\[EscapeKey], \
\[Backslash][ExponentialE]"],
ButtonBox[
AdjustmentBox["\[ImaginaryI]",
BoxMargins->{{0.1, 0.1}, {0, 0}}],
ButtonData:>"\[ImaginaryI]",
ButtonNote->
"\[EscapeKey]ii\[EscapeKey], \[Backslash][ImaginaryI]"],
ButtonBox["\[Infinity]",
ButtonNote->
"\[EscapeKey]inf\[EscapeKey], \[Backslash][Infinity]"],
ButtonBox["\[Degree]",
ButtonNote->
"\[EscapeKey]deg\[EscapeKey], \[Backslash][Degree]"]},
{
ButtonBox["\[Times]",
ButtonNote->
"\[EscapeKey]*\[EscapeKey], \[Backslash][Times]"],
ButtonBox["\[Divide]",
ButtonNote->
"\[EscapeKey]div\[EscapeKey], \[Backslash][Divide]"],
ButtonBox["\[Cross]",
ButtonNote->
"\[EscapeKey]cross\[EscapeKey], \[Backslash][Cross]"],
ButtonBox[
AdjustmentBox["\[Rule]",
BoxMargins->{{0, 0}, {0, 0}}],
ButtonData:>"\[Rule]",
ButtonNote->
"\[EscapeKey]->\[EscapeKey], \[Backslash][Rule]"],
ButtonBox[
AdjustmentBox["\[RuleDelayed]",
BoxMargins->{{0, 0.1}, {0, 0}}],
ButtonData:>"\[RuleDelayed]",
ButtonNote->
"\[EscapeKey]:>\[EscapeKey], \
\[Backslash][RuleDelayed]"]},
{
ButtonBox["\[Equal]",
ButtonNote->
"\[EscapeKey]==\[EscapeKey], \[Backslash][Equal]"],
ButtonBox["\[NotEqual]",
ButtonNote->
"\[EscapeKey]!=\[EscapeKey], \[Backslash][NotEqual]"],
ButtonBox["\[LessEqual]",
ButtonNote->
"\[EscapeKey]
"\[EscapeKey]>=\[EscapeKey], \[Backslash]GreaterEqual"],
ButtonBox["\[Element]",
ButtonNote->
"\[EscapeKey]elem\[EscapeKey], \
\[Backslash][Element]"]},
{
ButtonBox["\[Not]",
ButtonNote->
"\[EscapeKey]!\[EscapeKey], \[Backslash][Not]"],
ButtonBox["\[And]",
ButtonNote->
"\[EscapeKey]&&\[EscapeKey], \[Backslash][And]"],
ButtonBox["\[Or]",
ButtonNote->
"\[EscapeKey]||\[EscapeKey], \[Backslash][Or]"],
ButtonBox["\[Union]",
ButtonNote->
"\[EscapeKey]un\[EscapeKey], \[Backslash][Union]"],
ButtonBox["\[Intersection]",
ButtonNote->
"\[EscapeKey]inter\[EscapeKey], \
\[Backslash][Intersection]"]},
{
ButtonBox["\[Alpha]",
ButtonNote->
"\[EscapeKey]a\[EscapeKey], \[Backslash][Alpha]"],
ButtonBox["\[Beta]",
ButtonNote->
"\[EscapeKey]b\[EscapeKey], \[Backslash][Beta]"],
ButtonBox["\[Gamma]",
ButtonNote->
"\[EscapeKey]g\[EscapeKey], \[Backslash][Gamma]"],
ButtonBox["\[Delta]",
ButtonNote->
"\[EscapeKey]d\[EscapeKey], \[Backslash][Delta]"],
ButtonBox["\[Epsilon]",
ButtonNote->
"\[EscapeKey]e\[EscapeKey], \[Backslash][Epsilon]"]},
{
ButtonBox["\[Zeta]",
ButtonNote->
"\[EscapeKey]z\[EscapeKey], \[Backslash][Zeta]"],
ButtonBox["\[Eta]",
ButtonNote->
"\[EscapeKey]et\[EscapeKey], \[Backslash][Eta]"],
ButtonBox["\[Theta]",
ButtonNote->
"\[EscapeKey]th\[EscapeKey], \[Backslash][Theta]"],
ButtonBox["\[Kappa]",
ButtonNote->
"\[EscapeKey]k\[EscapeKey], \[Backslash][Kappa]"],
ButtonBox["\[Lambda]",
ButtonNote->
"\[EscapeKey]l\[EscapeKey], \[Backslash][Lambda]"]},
{
ButtonBox["\[Mu]",
ButtonNote->
"\[EscapeKey]m\[EscapeKey], \[Backslash][Mu]"],
ButtonBox["\[Nu]",
ButtonNote->
"\[EscapeKey]n\[EscapeKey], \[Backslash][Nu]"],
ButtonBox["\[Xi]",
ButtonNote->
"\[EscapeKey]x\[EscapeKey], \[Backslash][Xi]"],
ButtonBox["\[Pi]",
ButtonNote->
"\[EscapeKey]p\[EscapeKey], \[Backslash][Pi]"],
ButtonBox["\[Rho]",
ButtonNote->
"\[EscapeKey]r\[EscapeKey], \[Backslash][Rho]"]},
{
ButtonBox["\[Sigma]",
ButtonNote->
"\[EscapeKey]s\[EscapeKey], \[Backslash][Sigma]"],
ButtonBox["\[Tau]",
ButtonNote->
"\[EscapeKey]t\[EscapeKey], \[Backslash][Tau]"],
ButtonBox["\[Phi]",
ButtonNote->
"\[EscapeKey]ph\[EscapeKey], \[Backslash][Phi]"],
ButtonBox["\[CurlyPhi]",
ButtonNote->
"\[EscapeKey]cph\[EscapeKey], \[Backslash][CurlyPhi]"],
ButtonBox["\[Chi]",
ButtonNote->
"\[EscapeKey]c\[EscapeKey], \[Backslash][Chi]"]},
{
ButtonBox["\[Psi]",
ButtonNote->
"\[EscapeKey]ps\[EscapeKey], \[Backslash][Psi]"],
ButtonBox["\[Omega]",
ButtonNote->
"\[EscapeKey]o\[EscapeKey], \[Backslash][Omega]"],
ButtonBox["\[CapitalGamma]",
ButtonNote->
"\[EscapeKey]G\[EscapeKey], \
\[Backslash][CapitalGamma]"],
ButtonBox["\[CapitalDelta]",
ButtonNote->
"\[EscapeKey]D\[EscapeKey], \
\[Backslash][CapitalDelta]"],
ButtonBox["\[CapitalTheta]",
ButtonNote->
"\[EscapeKey]Th\[EscapeKey], \
\[Backslash][CapitalTheta]"]},
{
ButtonBox["\[CapitalLambda]",
ButtonNote->
"\[EscapeKey]L\[EscapeKey], \
\[Backslash][CapitalLambda]"],
ButtonBox["\[CapitalXi]",
ButtonNote->
"\[EscapeKey]X\[EscapeKey], \[Backslash][CapitalXi]"],
ButtonBox["\[CapitalPhi]",
ButtonNote->
"\[EscapeKey]Ph\[EscapeKey], \[Backslash][CapitalPhi]"],
ButtonBox["\[CapitalPsi]",
ButtonNote->
"\[EscapeKey]Ps\[EscapeKey], \[Backslash][CapitalPsi]"],
ButtonBox["\[CapitalOmega]",
ButtonNote->
"\[EscapeKey]O\[EscapeKey], \
\[Backslash][CapitalOmega]"]},
{
ButtonBox[\(\[SelectionPlaceholder]\_\[Placeholder]\)],
ButtonBox[
UnderscriptBox[
AdjustmentBox["\[SelectionPlaceholder]",
BoxMargins->{{0, 0}, {-0.4, 0}}], "\[Placeholder]"],
ButtonData:>BoxData[
UnderscriptBox[
"\[SelectionPlaceholder]", "\[Placeholder]"]]],
ButtonBox[
AdjustmentBox[\(\[SelectionPlaceholder]\&\[Placeholder]\),
BoxMargins->{{0, 0}, {0, -0.2}}],
ButtonData:>BoxData[
OverscriptBox[
"\[SelectionPlaceholder]", "\[Placeholder]"]]],
ButtonBox[\(\[SelectionPlaceholder]\&_\)],
ButtonBox[\(\[SelectionPlaceholder]\&^\)]}
},
RowLines->{
False, False, False, True, False, False, False, False, False,
True, False}]}
},
RowLines->True]], NotebookDefault,
PageBreakAbove->True,
GridBoxOptions->{RowSpacings->0,
ColumnSpacings->0}],
" Esta es la paleta ",
StyleBox["Basic Input\n \n",
FontWeight->"Bold"],
"Recomendamos a los alumnos familiarizarse en primer lugar con las \
distintas funciones de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontWeight->"Bold"],
"antes de utilizar las paletas.\n"
}], "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Buscando ayuda",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"La ayuda disponible en ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" es bastante completa y se puede encontrar dentro del men\[UAcute] ",
StyleBox["Help",
FontWeight->"Bold"],
". Una vez desplegado dicho men\[UAcute] podemos seleccionar las opciones \
",
StyleBox["Help Browser",
FontWeight->"Bold"],
" o ",
StyleBox["Master Index",
FontWeight->"Bold"],
", donde se puede acceder a abundante documentaci\[OAcute]n (ejemplos, \
enlaces, etc.) que nos pueden servir de gran utilidad.\n\nTambi\[EAcute]n \
podemos obtener informaci\[OAcute]n directamente desde el kernel de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
". Se puede preguntar acerca de cualquier objeto, que est\[EAcute] \
incorporado en ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
", que se encuentre en un paquete de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" que haya sido previamente cargado, o que haya sido introducido por \
nosotros."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(?Log\)\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
RowBox[{"\", " ",
ButtonBox[
StyleBox["More\[Ellipsis]",
"SR"],
ButtonData:>"Log",
Active->True,
ButtonStyle->"RefGuideLink"]}]], "Print",
CellTags->"Info3333953346-4040688"]
}, Open ]],
Cell["Si queremos obtener m\[AAcute]s informaci\[OAcute]n adicional:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(?? Log\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
RowBox[{"\", " ",
ButtonBox[
StyleBox["More\[Ellipsis]",
"SR"],
ButtonData:>"Log",
Active->True,
ButtonStyle->"RefGuideLink"]}]], "Print",
CellTags->"Info3333953346-7605993"],
Cell[BoxData[
InterpretationBox[GridBox[{
{\(Attributes[Log] = {Listable, NumericFunction, Protected}\)}
},
GridBaseline->{Baseline, {1, 1}},
ColumnAlignments->{Left}],
Definition[ "Log"],
Editable->False]], "Print",
CellTags->"Info3333953346-7605993"]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["MATHEMATICA",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" COMO UNA CALCULADORA",
FontColor->RGBColor[0, 0, 1]]
}], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Calculadora",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" reconoce los operadores habituales de suma, diferencia, producto, \
cociente y potenciaci\[OAcute]n:"
}], "Text"],
Cell[TextData[{
" ",
StyleBox["Operaci\[OAcute]n",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
" ",
StyleBox["Notaci\[OAcute]n con ",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True}],
"\n Suma \
",
StyleBox["x+y ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\n Resta \
",
StyleBox["x-y ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\n Producto \
",
StyleBox[" ",
FontFamily->"Courier",
FontSize->14],
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
StyleBox["\[Star]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold",
FontVariations->{"CompatibilityType"->0}],
StyleBox["y ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"o bien",
StyleBox[" x y ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"(espacio entre los dos factores)",
"\n Cociente \
",
StyleBox["x/y \n ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Potenciaci\[OAcute]n",
StyleBox[" ",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox[" x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
StyleBox["^",
FontWeight->"Bold"],
StyleBox["y ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text",
TextAlignment->Left,
TextJustification->1],
Cell["\", "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["N\[UAcute]meros y operaciones",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Al trabajar con racionales como cocientes de enteros, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
"los mantiene de esta forma:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\((17/24 - \((1 - 5/4)\)^2)\)^7\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(27512614111\/587068342272\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\((1.43 - 8.647)\)*\((6.4 + 16.01)\)^\((2/3)\)\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(\(-57.36556512725014`\)\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell["Para escribir un n\[UAcute]mero complejo:", "Text"],
Cell[TextData[Cell[BoxData[
RowBox[{
StyleBox[\(x + y\ I\),
FontFamily->"Courier New",
FontWeight->"Plain",
FontVariations->{"CompatibilityType"->0}], " ", ",", " ",
RowBox[{
StyleBox["I",
FontFamily->"Courier New",
FontWeight->"Plain",
FontSlant->"Plain",
FontTracking->"Plain",
FontVariations->{"Underline"->False,
"Outline"->False,
"Shadow"->False,
"StrikeThrough"->False,
"Masked"->False,
"CompatibilityType"->0,
"RotationAngle"->0}], "=", \(\@\(-1\)\)}]}]],
TextAlignment->Left,
TextJustification->1,
FontFamily->"Times New Roman",
FontSize->14,
FontWeight->"Bold"]], "Text",
TextAlignment->Center,
TextJustification->0],
Cell[TextData[{
"o bien podemos escribir la unidad imaginaria compleja utilizando las \
paletas.\n\nCuando trabaja con racionales complejos, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" hace que el denominador sea entero:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\((1 - 3 I)\)^2*\((1 -
I)\)/\((\((1 + 5 I)\)*\((7 - 4 I)\))\)\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(\(-\(158\/845\)\) + \(244\ \[ImaginaryI]\)\/845\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[BoxData[
StyleBox[\(\(\((1 - 3 i)\)\^2\[CenterDot]\((1 - i)\)\)\/\(\((1 +
5 i)\)\[CenterDot]\((7 - 4 i)\)\)\),
FontWeight->"Bold"]], "Text",
TextAlignment->Right,
TextJustification->0,
FontFamily->"Times New Roman",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Las funciones ",
FontColor->RGBColor[0, 1, 0]],
StyleBox["N[ ]",
FontFamily->"Courier",
FontColor->RGBColor[0, 1, 0]],
StyleBox[" y ",
FontColor->RGBColor[0, 1, 0]],
StyleBox["Rationalize[ ]",
FontFamily->"Courier",
FontColor->RGBColor[0, 1, 0]]
}], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Para aproximar expresiones racionales peri\[OAcute]dicas o expresiones \
irracionales, debemos utilizar la funci\[OAcute]n",
StyleBox[" N[ ]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(123/9990\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(41\/3330\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(N[123/9990]\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(0.012312312312312312`\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell["Tambi\[EAcute]n podemos hacer:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(123/9990 // N\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(0.012312312312312312`\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell["o bien:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(123. /9990\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\(0.012312312312312312`\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell[TextData[{
"La funci\[OAcute]n ",
StyleBox["Rationalize[ ]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" aproxima un n\[UAcute]mero con punto decimal por un n\[UAcute]mero \
racional. Por ejemplo:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Rationalize[0.0123]\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[BoxData[
\(123\/10000\)], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[TextData[{
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" responde con una expresi\[OAcute]n simb\[OAcute]lica si no puede calcular \
el valor exacto:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(7^\((\(-1\)/2)\)\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\(1\/\@7\)], "Output",
CellLabel->"Out[9]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(N[%]\)], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[BoxData[
\(0.3779644730092272`\)], "Output",
CellLabel->"Out[10]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(7^\((\(-1\)/2. )\)\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[BoxData[
\(0.37796447300922725`\)], "Output",
CellLabel->"Out[11]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[12]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["LAS VARIABLES EN ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["MATHEMATICA",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]]
}], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Constantes incorporadas",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" tiene un gran n\[UAcute]mero de constantes usuales predefinidas, algunas \
de ellas son:"
}], "Text"],
Cell[TextData[{
" ",
StyleBox["Constante",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
" ",
StyleBox["Notaci\[OAcute]n con ",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True}],
"\n \[Pi] \
",
StyleBox["Pi ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\n e \
",
StyleBox["E ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\n i (unidad imaginaria) \
",
StyleBox["I",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" \n \[Infinity] (infinito) \
",
StyleBox["Infinity ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text",
TextAlignment->Left,
TextJustification->1],
Cell[TextData[{
"Si bien \"infinito\" no es una constante, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" la incluye como constante predefinida. Por supuesto, tambi\[EAcute]n es \
posible escribir estas constantes seleccion\[AAcute]ndolas de las paletas."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(1 - Pi^3\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(1 - \[Pi]\^3\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(1. - Pi^3\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(\(-30.006276680299816`\)\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(N[%1]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(\(-30.006276680299816`\)\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(pi^2\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(pi\^2\)], "Output",
CellLabel->"Out[4]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Variables",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Podemos asignarle valores a las variables para as\[IAcute] facilitarnos el \
trabajo. Si queremos que a partir de este momento la variable",
" ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" valga ",
StyleBox["28",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" haremos:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(x = 28\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(28\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[TextData[{
"A partir de este momento cualquier c\[AAcute]lculo que realicemos en donde \
intervenga la ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
", \[EAcute]sta equivaldr\[AAcute] al valor dado: \n"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(x = x - 22\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(6\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(x^3\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\(216\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(pepe = 53\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[BoxData[
\(53\)], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(x^2 + 2\ pepe\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\(142\)], "Output",
CellLabel->"Out[9]="]
}, Open ]],
Cell[BoxData[
StyleBox[\(x\^2 + 2\[CenterDot]pepe = 6\^2 + 2\[CenterDot]53\),
FontSize->16,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]]], "Text",
TextAlignment->Right,
TextJustification->0,
FontFamily->"Times New Roman",
FontSize->14],
Cell[TextData[{
"Los valores asignados a las variables son ",
StyleBox["permanentes",
FontWeight->"Bold"],
". Una vez que se haya asignado un valor a una variable concreta, el valor \
permanecer\[AAcute] hasta que no \"liberemos\"' o \"limpiemos\" a esta \
variable. Por supuesto, el valor desaparecer\[AAcute] cuando reiniciemos el n\
\[UAcute]cleo o empecemos una nueva sesi\[OAcute]n de ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
". Para liberar las variables:"
}], "Text"],
Cell[BoxData[
\(Clear[x]\)], "Input",
CellLabel->"In[10]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(x\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[BoxData[
\(x\)], "Output",
CellLabel->"Out[11]="]
}, Open ]],
Cell["o tambi\[EAcute]n:", "Text"],
Cell[BoxData[
\(pepe =. \)], "Input",
CellLabel->"In[12]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(pepe\)], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[BoxData[
\(pepe\)], "Output",
CellLabel->"Out[13]="]
}, Open ]],
Cell[TextData[{
"La funci\[OAcute]n ",
StyleBox["Clear[x] ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"anula el valor de la variable ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" pero no su nombre. Si queremos saber cu\[AAcute]les son las variables, \
funciones, constantes que han sido definidas por el usuario en una sesi\
\[OAcute]n de trabajo, bastar\[AAcute] con:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Names["\"]\)], "Input",
CellLabel->"In[14]:=",
FontSize->14],
Cell[BoxData[
\({"pepe", "pi", "x"}\)], "Output",
CellLabel->"Out[14]="]
}, Open ]],
Cell["\", "Text"],
Cell[BoxData[
\(Remove[x]\)], "Input",
CellLabel->"In[15]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(Names["\"]\)], "Input",
CellLabel->"In[16]:=",
FontSize->14],
Cell[BoxData[
\({"pepe", "pi"}\)], "Output",
CellLabel->"Out[16]="]
}, Open ]],
Cell["La funci\[OAcute]n", "Text"],
Cell[BoxData[
\(Remove["\"]\)], "Input",
CellLabel->"In[17]:=",
FontSize->14],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Names["\"]\)], "Input",
CellLabel->"In[18]:=",
FontSize->14],
Cell[BoxData[
\({}\)], "Output",
CellLabel->"Out[18]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[19]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["C\[CapitalAAcute]LCULOS SECUENCIALES",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
"Podemos realizar en un mismo input varios c\[AAcute]lculos separando las \
distintas sentencias con",
StyleBox[" ;",
FontSize->14,
FontWeight->"Bold"],
". Observar que ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" solamente nos devolver\[AAcute] la respuesta a la \[UAcute]ltima \
sentencia:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(x = 28 - 16; y = 3^2; z = x - y\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(3\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(x\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(12\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(y\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(9\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[TextData[{
"Si a\[NTilde]adimos un ",
StyleBox[";",
FontSize->14,
FontWeight->"Bold"],
" al final de la \[UAcute]ltima sentencia ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" no devuelve nada:"
}], "Text"],
Cell[BoxData[
\(\(u = 4 x;\)\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(u + y\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(57\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[TextData[StyleBox["u+y=4\[CenterDot]12+9=57 ",
FontSize->16,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]]], "Text",
TextAlignment->Right,
TextJustification->0,
FontFamily->"Times New Roman",
FontSize->14],
Cell[TextData[{
"Si se separan las instrucciones en l\[IAcute]neas diferentes, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" muestra todos los resultados en l\[IAcute]neas de output diferentes."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
\(x = 28 - 16\), "\[IndentingNewLine]",
\(y = 3^2\), "\[IndentingNewLine]",
\(z = x - y\)}], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(12\)], "Output",
CellLabel->"Out[6]="],
Cell[BoxData[
\(9\)], "Output",
CellLabel->"Out[7]="],
Cell[BoxData[
\(3\)], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[9]:=",
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["LAS LISTAS EN ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["MATHEMATICA",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]]
}], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Listas",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(l1 = {2, 4, 15, 29, 39}\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\({2, 4, 15, 29, 39}\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(l1[\([3]\)]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(15\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell["\", "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Construyendo tablas",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Podemos generar listas utilizando la funci\[OAcute]n ",
StyleBox["Table[ ]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text"],
Cell[TextData[{
StyleBox["Table[exp,{imax}]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
"\t\t\tCrea una lista con ",
StyleBox["imax",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" elementos de la forma ",
StyleBox["exp",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\n",
StyleBox["Table[exp,{i,imax}]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
StyleBox["\t",
FontColor->RGBColor[0, 0, 1]],
"\t\tCrea una lista con ",
StyleBox["imax",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" elementos obtenidos evaluando la expresi\[OAcute]n ",
StyleBox["exp",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" desde ",
StyleBox["i=1",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" hasta",
StyleBox["i=imax",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
".\n",
StyleBox["Table[exp,{i,imin,imax}]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
"\tCrea una lista con ",
StyleBox["imax-imin+1",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" elementos obtenidos evaluando la expresi\[OAcute]n ",
StyleBox["exp",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" desde ",
StyleBox["i=imin ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"hasta",
StyleBox[" i=imax",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
".\n",
StyleBox["Table[exp,{i,imin,imax,di}]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
"\tCrea una lista de elementos obtenidos evaluando la expresi\[OAcute]n ",
StyleBox["exp",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" desde ",
StyleBox["i=imin",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" hasta ",
StyleBox["i\[LessEqual]imax",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" para los valores de ",
StyleBox["i",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" de la forma ",
StyleBox["i=imin+kdi",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text"],
Cell["Veamos algunos ejemplos:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Table[i^2, {4}]\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\({i\^2, i\^2, i\^2, i\^2}\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Table[i^2, {i, 4}]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\({1, 4, 9, 16}\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Table[i^2, {i, 3, 7}]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\({9, 16, 25, 36, 49}\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Table[i^2, {i, 3, 17, 2}]\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\({9, 25, 49, 81, 121, 169, 225, 289}\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[TextData[{
"Si el primer argumento de ",
StyleBox["Table[ ]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" es una lista, se genera una lista de listas:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Table[{i, i^2}, {i, 4}]\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\({{1, 1}, {2, 4}, {3, 9}, {4, 16}}\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["ALGUNAS FUNCIONES DE ",
FontColor->RGBColor[0, 0, 1]],
StyleBox["MATHEMATICA",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]]
}], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" incluye una muy extensa colecci\[OAcute]n de funciones \
matem\[AAcute]ticas, muchas de las cuales se encuentran en las distintas \
paletas.\nRecordar que, como ya se ha mencionado previamente, todas las \
funciones que ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" tiene incorporadas comienzan con may\[UAcute]sculas (incluso cuando el \
nombre est\[AAcute] formado por varias palabras). Adem\[AAcute]s, los \
argumentos de las distintas funciones siempre van entre corchetes. "
}], "Text"],
Cell["Indicamos a continuaci\[OAcute]n algunas de estas funciones:", "Text"],
Cell[TextData[{
StyleBox["Funci\[OAcute]n",
FontSize->16,
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
StyleBox[" \t\t\t\t",
FontSize->16],
StyleBox["Notaci\[OAcute]n con ",
FontSize->16,
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
StyleBox["Mathematica",
FontSize->16,
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True}],
"\nFactorial de un n\[UAcute]mero \t\t\t\t ",
StyleBox["Factorial[x] ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"o bien",
StyleBox[" x! ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\nN\[UAcute]meros combinatorios ",
Cell[BoxData[
FormBox[
StyleBox[
RowBox[{"(", "\[NegativeThinSpace]", GridBox[{
{
StyleBox["x",
FontWeight->"Bold",
FontSlant->"Plain"]},
{
StyleBox["y",
FontWeight->"Bold",
FontSlant->"Plain"]}
}], "\[NegativeThinSpace]", ")"}],
FontFamily->"Courier",
FontSlant->"Italic"], TraditionalForm]]],
"\t\t \t ",
StyleBox["Binomial[x,y] ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\nRa\[IAcute]z cuadrada\t\t\t\t\t\t ",
StyleBox["Sqrt[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Logaritmo neperiano\t\t\t\t\t ",
StyleBox["Log[x] \n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Seno",
StyleBox["\t\t\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Sin[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Coseno",
StyleBox["\t\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Cos[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Tangente",
StyleBox["\t\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Tan[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Arco seno",
StyleBox["\t\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["ArcSin[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Arco coseno",
StyleBox["\t\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["ArcCos[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Arco tangente",
StyleBox["\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["ArcTan[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Valor absoluto de un n\[UAcute]mero real",
StyleBox["\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Abs[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Valor absoluto de un n\[UAcute]mero complejo",
StyleBox["\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Abs[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Argumento principal de un n\[UAcute]mero complejo \t\t ",
StyleBox["Arg[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Seno hiperb\[OAcute]lico",
StyleBox["\t\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Sinh[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Coseno hiperb\[OAcute]lico",
StyleBox["\t\t\t\t\t ",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["Cosh[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Tangente hiperb\[OAcute]lico ",
StyleBox["\t \t\t\t\tTanh[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Arco seno hiperb\[OAcute]lico",
StyleBox["\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["ArcSinh[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Arco coseno hiperb\[OAcute]lico",
StyleBox["\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["ArcCosh[x]\n",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"Arco tangente hiperb\[OAcute]lico",
StyleBox["\t\t\t\t\t",
FontFamily->"Courier",
FontWeight->"Bold"],
StyleBox["ArcTanh[x]\n ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text",
CellMargins->{{126, Inherited}, {Inherited, Inherited}},
TextAlignment->Left,
TextJustification->1],
Cell[CellGroupData[{
Cell[BoxData[
\(\(12!\)\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(479001600\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Binomial[7, 2]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(21\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sqrt[5]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(\@5\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sqrt[5. ]\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(2.23606797749979`\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sqrt[5] // N\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(2.23606797749979`\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Log[12.37]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(2.5152741864043966`\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sin[\(-1.7\)]\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\(\(-0.9916648104524686`\)\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sin[Pi/2]\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[BoxData[
\(1\)], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Tan[\(-Pi\)/2]\)], "Input",
CellLabel->"In[9]:=",
FontSize->14],
Cell[BoxData[
\(ComplexInfinity\)], "Output",
CellLabel->"Out[9]="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Plot[Tan[x], {x, \(-Pi\), 0},
PlotStyle \[Rule] {Thickness[0.01], RGBColor[0, 1, 0]}];\)\)], "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", "\OoIfMT00ol0003ofMWIomWIf@0fomWIf@;o0?l01OoIfMT00ol0003ofMWIomWIf@07omWIf@Go0?l0
>ooIfMT00ol0003ofMWIomWIf@0momWIf@001_oIfMT5o`0000?ofMWI00?o0000omWIfOoIfMT02ooI
fMT00ol0003ofMWIomWIf@0gomWIf@03o`000?oIfMWofMWI03GofMWI00?o0000o`3o0?l0o`000_l0
0003omWIf@03o`000?oIfMWofMWI00WofMWI1Ol0o`0aomWIf@Go00000ooIfMT00ol0003ofMWIomWI
f@0momWIf@003ooIfMT00ol0003ofMWIomWIf@0:omWIf@03o`000?oIfMWofMWI03OofMWI00?o0000
omWIfOoIfMT0=_oIfMT2o`3o00GofMWI00?o0000omWIfOoIfMT02ooIfMT6o`3o03KofMWI00?o0000
omWIfOoIfMT0?OoIfMT000cofMWI00Go0000omWIfOoIfMWofMWIo`000007omWIf@Co0000>_oIfMT2
o`0003OofMWI0_l0o`05omWIf@03o`000?oIfMWofMWI00OofMWI1?l00002omWIf@Ko0?l0=?oIfMT0
0ol0003ofMWIomWIf@0momWIf@003?oIfMT01Ol0003ofMWIomWIfOoIfMWo000000OofMWI00?o0000
omWIfOoIfMT0>ooIfMT00ol0003ofMWIomWIf@0fomWIf@;o0?l01?oIfMT2o`0000WofMWI00?o0000
omWIfOoIfMT01_oIfMT7o`3o02oofMWI0_l0000oomWIf@003OoIfMT3o`0000SofMWI1Ol0000iomWI
f@03o`000?oIfMWofMWI03KofMWI0_l0o`05omWIf@03o`000?oIfMWofMWI00OofMWI1Ol00006omWI
f@ko0?l09ooIfMT00ol0003ofMWIomWIf@0momWIf@00E_oIfMT00ol0003ofMWIomWIf@0fomWIf@;o
0?l07_oIfMTDo`3o05gofMWI001FomWIf@03o`000?oIfMWofMWI03KofMWI0_l0o`0WomWIfACo0?l0
E?oIfMT005KofMWI00?o0000omWIfOoIfMT0=_oIfMT2o`3o037ofMWI8Ol0o`0momWIf@00E_oIfMT0
0ol0003ofMWIomWIf@0fomWIf@;o0?l0>_oIfMU"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.63441, -63.2822, \
0.00734064, 0.729238}}]
}, Open ]],
Cell["Sin embargo, si utilizamos los n\[UAcute]meros con punto decimal:", \
"Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Tan[\(-Pi\)/2. ]\)], "Input",
CellLabel->"In[11]:=",
FontSize->14],
Cell[BoxData[
\(\(-1.633123935319537`*^16\)\)], "Output",
CellLabel->"Out[11]="]
}, Open ]],
Cell[TextData[StyleBox["\[DownQuestion]Por qu\[EAcute]?",
FontSize->16,
FontWeight->"Bold",
FontColor->RGBColor[1, 0, 0]]], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Abs[\(-4.023\)]\)], "Input",
CellLabel->"In[12]:=",
FontSize->14],
Cell[BoxData[
\(4.023`\)], "Output",
CellLabel->"Out[12]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Abs[1.2 - 3.75 I]\)], "Input",
CellLabel->"In[13]:=",
FontSize->14],
Cell[BoxData[
\(3.9373214245220063`\)], "Output",
CellLabel->"Out[13]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Abs[1/2 - 4 I]\)], "Input",
CellLabel->"In[14]:=",
FontSize->14],
Cell[BoxData[
\(\@65\/2\)], "Output",
CellLabel->"Out[14]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Arg[1.2 - 3.75 I]\)], "Input",
CellLabel->"In[15]:=",
FontSize->14],
Cell[BoxData[
\(\(-1.2610933822524404`\)\)], "Output",
CellLabel->"Out[15]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[16]:=",
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["OPERADORES RELACIONALES Y L\[CapitalOAcute]GICOS",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Operadores relacionales",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
StyleBox["Notaci\[OAcute]n con ",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
StyleBox["Mathematica\t",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True}],
"\t\t\t",
StyleBox["Significado",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
"\n\t",
StyleBox["==",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tigual\n\t",
StyleBox["!=",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tdistinto\n\t",
StyleBox[""Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tmenor que\n\t",
StyleBox[""Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tmenor o igual que\n\t",
StyleBox[">",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tmayor que\n\t",
StyleBox[">=",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tmayor o igual que"
}], "Text"],
Cell["Por ejemplo, si queremos saber si ln(8) es menor que 3:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Log[8] "In[1]:=",
FontSize->14],
Cell[BoxData[
\(True\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell["La respuesta es que si es cierto.Sin embargo:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Log[8] >= 3\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(False\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[BoxData[
\(x = 3; y = 6; z = 7;\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(\((x^2 - z)\)^3 "In[4]:=",
FontSize->14],
Cell[BoxData[
\(False\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(x \[NotEqual] z\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(True\)], "Output",
CellLabel->"Out[5]="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Operadores l\[OAcute]gicos",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
StyleBox["Notaci\[OAcute]n con ",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
StyleBox["Mathematica\t",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True}],
"\t\t\t",
StyleBox["Significado",
FontWeight->"Bold",
FontVariations->{"Underline"->True}],
"\n\t",
StyleBox["!",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\tno\n\t",
StyleBox["&&",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\ty\n\t",
StyleBox["||",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\t\t\t\t\t\to\n\t"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(7 > 4 && 2 \[NotEqual] 3\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(True\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell["Ya que ambas expresiones son ciertas. Sin embargo:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(7 > 4 && 2 > 3\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\(False\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[8]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["FUNCIONES DEFINIDAS POR EL USUARIO",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
"Cuando definimos una funci\[OAcute]n en ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
", debemos especificar el nombre de la misma y su variable independiente. \
Por ejemplo:"
}], "Text"],
Cell[BoxData[
\(f[x_] := x^2 + 5 x\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[TextData[{
"Obs\[EAcute]rvese que esta entrada no produce una salida. Esto se debe a \
los dos puntos delante del signo de igualdad. Lo que hacemos al \
a\[NTilde]adir los dos puntos equivale a un peque\[NTilde]o programa que se \
ejecutar\[AAcute] cada vez que lo llamemos. En cambio, si no a\[NTilde]adimos \
los dos puntos, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" ejecutar\[AAcute] la funci\[OAcute]n inmediatamente. \n\nNotemos tambi\
\[EAcute]n que la variable ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" lleva un gui\[OAcute]n ba jo \[OpenCurlyDoubleQuote]",
StyleBox["_",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\[CloseCurlyDoubleQuote] delante del signo igual. Esto es para que el \
programa entienda que se trata de una variable muda, es decir, ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" puede llevar cualquier nombre o valor. Es importante recordar esto para \
evitar posibles errores, ya que si se hubiese \nescrito ",
StyleBox["f[x]:= x^2",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" se habr\[AAcute] asignado el valor ",
StyleBox["x^2",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" al objeto ",
StyleBox["f[x]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" en vez de a la funci\[OAcute]n ",
StyleBox["f",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" y no entender\[AAcute], por ejemplo, ",
StyleBox["f[3] ",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\[OAcute] ",
StyleBox["f[y]",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
". \nPodemos calcular el valor num\[EAcute]rico de la funci\[OAcute]n ",
StyleBox["f",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"que hemos definido, para distintos valores de ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
": \n"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(f[1]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(6\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(f[Sqrt[x]]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(5\ \@x + x\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(f[x + h]\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(5\ \((h + x)\) + \((h + x)\)\^2\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell["Podemos definir tambi\[EAcute]n funciones de varias variables:", "Text"],
Cell[BoxData[
\(modulo[x_, y_, z_] := Sqrt[x^2 + y^2 + z^2]\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(modulo[1.2, 0.8, 2]\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(2.4657656011875906`\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[7]:=",
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["REGLAS DE TRANSFORMACI\[CapitalOAcute]N",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" opera con expresiones simb\[OAcute]licas y las simplifica:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(3 x^2 - 7 x - 8 x^2 + 9 x + x^3\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[BoxData[
\(2\ x - 5\ x\^2 + x\^3\)], "Output",
CellLabel->"Out[1]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(Exp[\(-1\) + 2 x] Exp[1 - x]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[BoxData[
\(\[ExponentialE]\^x\)], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["Operador de reemplazamiento y reglas de transformaci\
\[OAcute]n",
FontColor->RGBColor[0, 1, 0]]], "Subsection",
CellDingbat->"\[FilledSmallSquare]"],
Cell[TextData[{
"Cuando ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
StyleBox[" ",
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 1]],
"transforma una expresi\[OAcute]n por ejemplo ",
StyleBox["x+x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" en ",
StyleBox["2x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
", est\[AAcute] tratando la variable ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" en forma puramente simb\[OAcute]lica o formal. En tales casos, ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" es un s\[IAcute]mbolo que puede representar cualquier expresi\[OAcute]n. \
\n \nA menudo necesitamos sustituir un s\[IAcute]mbolo como ",
StyleBox["x",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" por un \[OpenCurlyDoubleQuote]valor\[CloseCurlyDoubleQuote] determinado. \
Algunas veces este valor ser\[AAcute] un n\[UAcute]mero; aunque \
frecuentemente ser\[AAcute] una expresi\[OAcute]n. \n \nUna regla de \
transformaci\[OAcute]n es, por ejemplo: ",
StyleBox["x->3",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
". ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" trata las reglas de transformaci\[OAcute]n como expresiones \
simb\[OAcute]licas:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(x \[Rule] 3\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\(x \[Rule] 3\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[TextData[{
"Si queremos aplicar esta regla de transformaci\[OAcute]n a otra expresi\
\[OAcute]n tenemos que aplicar el denominado operador de reemplazamiento ",
StyleBox["/.",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
StyleBox[" ",
FontWeight->"Bold"],
"(son dos caracteres, sin espacio entre ellos)."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(1 + 2 x /. x \[Rule] 3\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[BoxData[
\(7\)], "Output",
CellLabel->"Out[4]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(1 + x\ y /. {x \[Rule] \(-2\), y \[Rule] 3}\)], "Input",
CellLabel->"In[5]:=",
FontSize->14],
Cell[BoxData[
\(\(-5\)\)], "Output",
CellLabel->"Out[5]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(1 - x /. {x \[Rule] 1 + y}\)], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[BoxData[
\(\(-y\)\)], "Output",
CellLabel->"Out[6]="]
}, Open ]],
Cell[TextData[{
" ",
StyleBox["//.",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
StyleBox[" ",
FontWeight->"Bold"],
"Es el operador de reemplazamiento reiterado."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(x + 2 x\ y + y /. {x \[Rule] y - a, y \[Rule] b}\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[BoxData[
\(\(-a\) + b + y + 2\ b\ \((\(-a\) + y)\)\)], "Output",
CellLabel->"Out[7]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(x + 2 x\ y + y //. {x \[Rule] y - a, y \[Rule] b}\)], "Input",
CellLabel->"In[8]:=",
FontSize->14],
Cell[BoxData[
\(\(-a\) + 2\ b + 2\ b\ \((\(-a\) + b)\)\)], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[9]:=",
FontSize->14]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["GR\[CapitalAAcute]FICOS EN 2D",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
"Con la funci\[OAcute]n\n\t",
StyleBox["Plot[f[x],{x,a,b}]\t\t\t",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
StyleBox["(*)",
FontSize->14],
StyleBox["\n\tPlot[{f[x],g[x]},{x,a,b}]\t",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
StyleBox["(**)",
FontSize->14],
StyleBox["\t",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\nse representan gr\[AAcute]ficamente una(*) o varias (**) funciones de \
una variable del tipo y=f(x) en el intervalo [a,b]."
}], "Text"],
Cell[BoxData[
\(f1[x_] := x^3/\((1 + x)\)\)], "Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
\(graf1 = Plot[f1[x], {x, \(-4\), 4}]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[2]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@00KOoIfMT00ol0003ofMWIo`00000O
omWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@03o`000?oIfMWo000001oofMWI0_l0002?omWI
f@00KOoIfMT00ol0003ofMWIo`00000OomWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@03o`00
0?oIfMWo000001oofMWI00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00?o0000omWIfOl000007ooI
fMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT00ol0003ofMWIo`00000OomWIf@03o`000?oIfMWo
fMWI08kofMWI001]omWIf@03o`000?oIfMWo000001oofMWI0_l0002?omWIf@00KOoIfMT00ol0003o
fMWIo`00000OomWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@03o`000?oIfMWo000001oofMWI
00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00?o0000omWIfOl000007ooIfMT00ol0003ofMWIomWI
f@2>omWIf@00KOoIfMT00ol0003ofMWIo`00000OomWIf@;o0000SooIfMT006gofMWI00Co0000omWI
fOoIfMWo00007_oIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01?l0003ofMWIomWIfOl0000N
omWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@04o`000?oIfMWofMWIo`0000oofMWI0ol00004
omWIf@;o00001_oIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01?l0003ofMWIomWIfOl0000@
omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWI
f@2>omWIf@00KOoIfMT01?l0003ofMWIomWIfOl00008omWIf@Go00000ooIfMT00ol0003ofMWIomWI
f@02omWIf@04o`000?oIfMWofMWIo`0000GofMWI0ol0002>omWIf@00KOoIfMT01?l0003ofMWIomWI
fOl0000@omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003o
fMWIomWIf@2>omWIf@00KOoIfMT01?l0003ofMWIomWIfOl0000@omWIf@03o`000?oIfMWofMWI00;o
fMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01?l0003o
fMWIomWIfOl0000?omWIf@;o00001?oIfMT01?l0003ofMWIomWIfOl00005omWIf@03o`000?oIfMWo
fMWI08kofMWI001]omWIf@04o`000?oIfMWofMWIo`00013ofMWI00?o0000omWIfOoIfMT00ooIfMT2
o`0000KofMWI00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00Co0000omWIfOoIfMWo00007_oIfMT2
o`0008oofMWI001]omWIf@04o`000?oIfMWofMWIo`0001kofMWI00?o0000omWIfOoIfMT0S_oIfMT0
06gofMWI00Co0000omWIfOoIfMWo00007_oIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01?l0
003ofMWIomWIfOl0000NomWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@04o`000?oIfMWofMWI
o`0001kofMWI00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00Co0000omWIfOoIfMWo00007_oIfMT2
o`0008oofMWI001]omWIf@04o`000?oIfMWofMWIo`0001kofMWI00?o0000omWIfOoIfMT0S_oIfMT0
06gofMWI00Co0000omWIfOoIfMWo00007_oIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01?l0
003ofMWIomWIfOl0000NomWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@04o`000?oIfMWofMWI
o`0001kofMWI0_l0002?omWIf@00KOoIfMT01?l0003ofMWIomWIfOl0000NomWIf@03o`000?oIfMWo
fMWI08kofMWI001]omWIf@05o`000?oIfMWofMWIomWIfOl000007OoIfMT00ol0003ofMWIomWIf@2>
omWIf@00KOoIfMT01Ol0003ofMWIomWIfOoIfMWo000001gofMWI00?o0000omWIfOoIfMT0S_oIfMT0
06gofMWI00Go0000omWIfOoIfMWofMWIo`00000MomWIf@03o`000?oIfMWofMWI08kofMWI001]omWI
f@05o`000?oIfMWofMWIomWIfOl000007OoIfMT2o`0008oofMWI001]omWIf@05o`000?oIfMWofMWI
omWIfOl000007OoIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01Ol0003ofMWIomWIfOoIfMWo
000001CofMWI0ol00006omWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@05o`000?oIfMWofMWI
omWIfOl000004ooIfMT01Ol0003ofMWIomWIfOoIfMWo000000GofMWI00?o0000omWIfOoIfMT0S_oI
fMT006gofMWI00Go0000omWIfOoIfMWofMWIo`00000=omWIf@Go00001OoIfMT00ol0003ofMWIomWI
f@03omWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@05o`000?oIfMWofMWIomWIfOl000005ooI
fMT00ol0003ofMWIomWIf@03omWIf@?o0000S_oIfMT006gofMWI00Go0000omWIfOoIfMWofMWIo`00
000ComWIf@Co00001_oIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT01Ol0003ofMWIomWIfOoI
fMWo000001?ofMWI00?o0000omWIfOoIfMT01ooIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT0
0ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI013ofMWI1Ol00005omWIf@03o`000?oIfMWo
fMWI08kofMWI001]omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT06_oIfMT00ol0
003ofMWIomWIf@2>omWIf@00KOoIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI01[o
fMWI0_l0002?omWIf@00KOoIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI01[ofMWI
00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWI
f@0JomWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@03o`000?oIfMWofMWI00?ofMWI00?o0000
omWIfOoIfMT06OoIfMT00ol0003ofMWIomWIf@2>omWIf@00KOoIfMT00ol0003ofMWIomWIf@03omWI
f@03o`000?oIfMWofMWI01WofMWI0_l0002?omWIf@00KOoIfMT00ol0003ofMWIomWIf@03omWIf@03
o`000?oIfMWofMWI01WofMWI00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00?o0000omWIfOoIfMT0
0ooIfMT00ol0003ofMWIomWIf@0IomWIf@03o`000?oIfMWofMWI08kofMWI0009omWIf@?o0000?ooI
fMT5o`0001gofMWI00?o0000omWIfOoIfMT01?oIfMT00ol0003ofMWIomWIf@0HomWIf@03o`000?oI
fMWofMWI03kofMWI1Ol00011omWIf@?o00001ooIfMT000[ofMWI00?o0000omWIfOoIfMT0?ooIfMT0
1?l0003ofMWIomWIfOl0000MomWIf@03o`000?oIfMWofMWI00CofMWI00?o0000omWIfOoIfMT06?oI
fMT00ol0003ofMWIomWIf@0oomWIf@04o`000?oIfMWofMWIo`0004;ofMWI00?o0000omWIfOoIfMT0
1_oIfMT00003omWIfOl0003o000000?o000000?ofMWIo`000?l000000ol0000iomWIf@Go00000ooI
fMT00ol0003ofMWIomWIf@0MomWIf@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT05ooI
fMT2o`00047ofMWI00?o0000omWIfOoIfMT0?ooIfMT5o`0000OofMWI0007omWIf@04o`000?oIfMWo
fMWIo`0004?ofMWI00?o0000omWIfOoIfMT07?oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oI
fMWofMWI01OofMWI00?o0000omWIfOoIfMT0@OoIfMT00ol0003ofMWIomWIf@0nomWIf@04o`000?oI
fMWofMWIo`0000SofMWI0008omWIf@03o`000?oIfMWo0000043ofMWI00Go0000omWIfOoIfMWofMWI
o`00000MomWIf@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT05ooIfMT00ol0003ofMWI
omWIf@0nomWIf@05o`000?oIfMWofMWIomWIfOl00000@?oIfMT00ol0003ofMWIo`000008omWIf@00
2OoIfMT2o`00043ofMWI00Go0000omWIfOoIfMWofMWIo`00000MomWIf@03o`000?oIfMWofMWI00Ko
fMWI00?o0000omWIfOoIfMT05_oIfMT00ol0003ofMWIomWIf@0nomWIf@05o`000?oIfMWofMWIomWI
fOl00000@OoIfMT2o`0000SofMWI000:omWIf@03o`000?oIfMWofMWI03oofMWI0ol0000NomWIf@03
o`000?oIfMWofMWI00OofMWI00?o0000omWIfOoIfMT05OoIfMT00ol0003ofMWIomWIf@0oomWIf@?o
0000@ooIfMT00ol0003ofMWIomWIf@06omWIf@00KOoIfMT00ol0003ofMWIomWIf@08omWIf@03o`00
0?oIfMWofMWI01CofMWI0_l0002?omWIf@00KOoIfMT00ol0003ofMWIomWIf@09omWIf@03o`000?oI
fMWofMWI01?ofMWI00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00?o0000omWIfOoIfMT02_oIfMT3
o`0001;ofMWI00?o0000omWIfOoIfMT0S_oIfMT006gofMWI00?o0000omWIfOoIfMT03OoIfMT00ol0
003ofMWIomWIf@0?omWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@03o`000?oIfMWofMWI00ko
fMWI1_l0000;omWIf@03o`000?oIfMWofMWI08kofMWI003oo`00023o00000OoIfMT000OofMWI00?o
0000omWIfOoIfMT03_oIfMT00ol0003ofMWIomWIf@0>omWIf@03o`000?oIfMWofMWI00kofMWI00?o
0000omWIfOoIfMT03_oIfMT00ol0003ofMWIomWIf@0>omWIf@03o`000?oIfMWofMWI00kofMWI00?o
0000omWIfOoIfMT03_oIfMT00ol0003ofMWIomWIf@0>omWIf@03o`000?oIfMWofMWI00kofMWI00?o
0000omWIfOoIfMT01?oIfMT;o`00013ofMWI00?o0000omWIfOoIfMT03_oIfMT00ol0003ofMWIomWI
f@0>omWIf@03o`000?oIfMWofMWI00kofMWI00?o0000omWIfOoIfMT03_oIfMT00ol0003ofMWIomWI
f@0>omWIf@03o`000?oIfMWofMWI00KofMWI0007omWIf@03o`000?oIfMWofMWI047ofMWI00?o0000
omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@0OomWIf@03o`000?oIfMWofMWI01oofMWI1?l0000N
omWIf@03o`000?oIfMWofMWI047ofMWI00?o0000omWIfOoIfMT01_oIfMT006gofMWI00?o0000omWI
fOoIfMT07ooIfMT00ol0003ofMWIomWIf@0SomWIf@Co0000IooIfMT006gofMWI00?o0000omWIfOoI
fMT07ooIfMT00ol0003ofMWIomWIf@0WomWIf@Co0000HooIfMT006gofMWI00?o0000omWIfOoIfMT0
7ooIfMT2o`0002cofMWI1?l0001OomWIf@00KOoIfMT00ol0003ofMWIomWIf@0OomWIf@03o`000?oI
fMWofMWI02oofMWI1?l0001KomWIf@00KOoIfMT00ol0003ofMWIomWIf@0OomWIf@03o`000?oIfMWo
fMWI03?ofMWI0ol0001HomWIf@00KOoIfMT00ol0003ofMWIomWIf@0OomWIf@03o`000?oIfMWofMWI
03KofMWI0ol0001EomWIf@00KOoIfMT00ol0003ofMWIomWIf@0OomWIf@;o0000>_oIfMT3o`0005;o
fMWI001]omWIf@03o`000?oIfMWofMWI01oofMWI00?o0000omWIfOoIfMT0??oIfMT2o`00053ofMWI
001]omWIf@03o`000?oIfMWofMWI01oofMWI00?o0000omWIfOoIfMT0?_oIfMT2o`0004kofMWI001]
omWIf@03o`000?oIfMWofMWI01oofMWI00?o0000omWIfOoIfMT0@?oIfMT3o`0004_ofMWI001]omWI
f@03o`000?oIfMWofMWI01oofMWI00?o0000omWIfOoIfMT0@ooIfMT2o`0004WofMWI001]omWIf@03
o`000?oIfMWofMWI01oofMWI0_l00016omWIf@;o0000AooIfMT006gofMWI00?o0000omWIfOoIfMT0
7ooIfMT00ol0003ofMWIomWIf@17omWIf@;o0000AOoIfMT006gofMWI00?o0000omWIfOoIfMT07ooI
fMT00ol0003ofMWIomWIf@19omWIf@03o`000?oIfMWofMWI04;ofMWI001]omWIf@03o`000?oIfMWo
fMWI01oofMWI00?o0000omWIfOoIfMT0B_oIfMT2o`0004;ofMWI001]omWIf@03o`000?oIfMWofMWI
01oofMWI00?o0000omWIfOoIfMT0C?oIfMT2o`00043ofMWI001]omWIf@03o`000?oIfMWofMWI01oo
fMWI0_l0001?omWIf@;o0000?_oIfMT006gofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWI
omWIf@1@omWIf@;o0000??oIfMT006gofMWI00?o0000omWIfOoIfMT05_oIfMT3o`0000KofMWI00?o
0000omWIfOoIfMT0D_oIfMT2o`0003[ofMWI001]omWIf@03o`000?oIfMWofMWI01GofMWI00Go0000
omWIfOoIfMWofMWIo`000005omWIf@03o`000?oIfMWofMWI05CofMWI00?o0000omWIfOoIfMT0=ooI
fMT006gofMWI00?o0000omWIfOoIfMT06OoIfMT00ol0003ofMWIomWIf@03omWIf@03o`000?oIfMWo
fMWI05GofMWI0_l0000gomWIf@00KOoIfMT00ol0003ofMWIomWIf@0IomWIf@03o`000?oIfMWofMWI
00?ofMWI0ol0001GomWIf@;o0000=OoIfMT006gofMWI00?o0000omWIfOoIfMT05OoIfMT4o`0000Ko
fMWI00?o0000omWIfOoIfMT0FOoIfMT2o`0003?ofMWI001]omWIf@03o`000?oIfMWofMWI01GofMWI
00?o0000omWIfOoIfMT01ooIfMT00ol0003ofMWIomWIf@1KomWIf@03o`000?oIfMWofMWI033ofMWI
001]omWIf@03o`000?oIfMWofMWI01GofMWI1Ol00005omWIf@03o`000?oIfMWofMWI05cofMWI00?o
0000omWIfOoIfMT0;ooIfMT006gofMWI00?o0000omWIfOoIfMT07ooIfMT2o`0005kofMWI0_l0000_
omWIf@00KOoIfMT00ol0003ofMWIomWIf@0OomWIf@03o`000?oIfMWofMWI05oofMWI00?o0000omWI
fOoIfMT0;?oIfMT006gofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@1PomWIf@;o
0000;?oIfMT006gofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@1RomWIf@03o`00
0?oIfMWofMWI02WofMWI001HomWIf@So00003OoIfMT00ol0003ofMWIomWIf@0OomWIf@03o`000?oI
fMWofMWI06?ofMWI00?o0000omWIfOoIfMT0:?oIfMT005GofMWI0ol00008omWIf@;o00002ooIfMT0
0ol0003ofMWIomWIf@0OomWIf@;o0000IOoIfMT2o`0002SofMWI001ComWIf@;o00003OoIfMT00ol0
003ofMWIomWIf@08omWIf@03o`000?oIfMWofMWI01oofMWI00?o0000omWIfOoIfMT0I_oIfMT00ol0
003ofMWIomWIf@0UomWIf@00D?oIfMT3o`00013ofMWI00?o0000omWIfOoIfMT01ooIfMT00ol0003o
fMWIomWIf@0OomWIf@03o`000?oIfMWofMWI06OofMWI00?o0000omWIfOoIfMT09?oIfMT004kofMWI
0_l0000DomWIf@03o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWI
omWIf@1XomWIf@;o00009?oIfMT004cofMWI0_l0000GomWIf@03o`000?oIfMWofMWI00GofMWI00?o
0000omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@1ZomWIf@03o`000?oIfMWofMWI027ofMWI001:
omWIf@;o00006OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI01oofMWI0_l0001/
omWIf@;o00008OoIfMT004WofMWI00?o0000omWIfOoIfMT06OoIfMT00ol0003ofMWIomWIf@05omWI
f@03o`000?oIfMWofMWI01oofMWI00?o0000omWIfOoIfMT0KOoIfMT00ol0003ofMWIomWIf@0NomWI
f@00AooIfMT2o`0001gofMWI00?o0000omWIfOoIfMT01?oIfMT00ol0003ofMWIomWIf@0OomWIf@03
o`000?oIfMWofMWI06kofMWI00?o0000omWIfOoIfMT07OoIfMT004GofMWI0_l0000OomWIf@03o`00
0?oIfMWofMWI00CofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@1_omWIf@;o0000
7OoIfMT004CofMWI00?o0000omWIfOoIfMT08?oIfMT00ol0003ofMWIomWIf@03omWIf@03o`000?oI
fMWofMWI01oofMWI00?o0000omWIfOoIfMT0LOoIfMT00ol0003ofMWIomWIf@0JomWIf@00@_oIfMT2
o`0002?ofMWI00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWIomWIf@0OomWIf@;o0000LooIfMT0
0ol0003ofMWIomWIf@0IomWIf@00@OoIfMT00ol0003ofMWIomWIf@0SomWIf@03o`000?oIfMWofMWI
00?ofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@1comWIf@03o`000?oIfMWofMWI
01SofMWI000oomWIf@;o00009_oIfMT00ol0003ofMWIomWIf@03omWIf@03o`000?oIfMWofMWI013o
fMWI0ol00004omWIf@;o00001_oIfMT00ol0003ofMWIomWIf@1domWIf@03o`000?oIfMWofMWI01Oo
fMWI000nomWIf@03o`000?oIfMWofMWI02KofMWI00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWI
omWIf@0AomWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003o
fMWIomWIf@1eomWIf@;o00005ooIfMT003gofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003ofMWI
omWIf@03omWIf@03o`000?oIfMWofMWI017ofMWI00?o0000omWIfOoIfMT00_oIfMT01?l0003ofMWI
omWIfOl00005omWIf@?o0000MooIfMT00ol0003ofMWIomWIf@0DomWIf@00>ooIfMT2o`0002_ofMWI
00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@0AomWIf@03o`000?oIfMWofMWI00;ofMWI
00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@1homWIf@03o`000?oIfMWofMWI01?o
fMWI000jomWIf@03o`000?oIfMWofMWI02_ofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWI
omWIf@0AomWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003o
fMWIomWIf@1iomWIf@03o`000?oIfMWofMWI01;ofMWI000iomWIf@03o`000?oIfMWofMWI02cofMWI
00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@0@omWIf@;o00001?oIfMT01?l0003ofMWI
omWIfOl00005omWIf@03o`000?oIfMWofMWI07[ofMWI00?o0000omWIfOoIfMT04OoIfMT003OofMWI
0_l0000_omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT04OoIfMT00ol0003ofMWI
omWIf@03omWIf@;o00001_oIfMT00ol0003ofMWIomWIf@1komWIf@03o`000?oIfMWofMWI013ofMWI
000fomWIf@03o`000?oIfMWofMWI02oofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWI
f@0OomWIf@;o0000OOoIfMT00ol0003ofMWIomWIf@0?omWIf@00=OoIfMT00ol0003ofMWIomWIf@0`
omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT07ooIfMT00ol0003ofMWIomWIf@1m
omWIf@03o`000?oIfMWofMWI00kofMWI000comWIf@;o0000=?oIfMT01Ol0003ofMWIomWIfOoIfMWo
0000027ofMWI00?o0000omWIfOoIfMT0O_oIfMT00ol0003ofMWIomWIf@0=omWIf@00<_oifmt00ol0 omwif fooifmwofmwio>?oIfMT01Ol0003ofMWIomWIfOoIfMWo0000027ofMWI00?o0000
omWIfOoIfMT0PooIfMT00ol0003ofMWIomWIf@08omWIf@00;OoIfMT00ol0003ofMWIomWIf@0jomWI
f@04o`000?oIfMWofMWIo`00027ofMWI00?o0000omWIfOoIfMT0Q?oIfMT00ol0003ofMWIomWIf@07
omWIf@00;?oIfMT00ol0003ofMWIomWIf@0komWIf@04o`000?oIfMWofMWIo`00027ofMWI00?o0000
omWIfOoIfMT0QOoIfMT00ol0003ofMWIomWIf@06omWIf@00:ooIfMT00ol0003ofMWIomWIf@0lomWI
f@04o`000?oIfMWofMWIo`00027ofMWI0_l0002?omWIf@00:_oIfMT00ol0003ofMWIomWIf@0momWI
f@04o`000?oIfMWofMWIo`00027ofMWI00?o0000omWIfOoIfMT0S_oIfMT002WofMWI00?o0000omWI
fOoIfMT0?_oIfMT01?l0003ofMWIomWIfOl0000QomWIf@03o`000?oIfMWofMWI08kofMWI000XomWI
f@03o`000?oIfMWofMWI03oofMWI00Co0000omWIfOoIfMWo00008OoIfMT00ol0003ofMWIomWIf@2>
omWIf@009ooIfMT00ol0003ofMWIomWIf@10omWIf@04o`000?oIfMWofMWIo`00027ofMWI0_l0002?
omWIf@009_oIfMT00ol0003ofMWIomWIf@11omWIf@04o`000?oIfMWofMWIo`00027ofMWI00?o0000
omWIfOoIfMT0S_oIfMT002GofMWI00?o0000omWIfOoIfMT0@_oIfMT01?l0003ofMWIomWIfOl0000Q
omWIf@03o`000?oIfMWofMWI08kofMWI000TomWIf@03o`000?oIfMWofMWI04?ofMWI00Co0000omWI
fOoIfMWo00004_oIfMT3o`0000?ofMWI0ol00006omWIf@03o`000?oIfMWofMWI08kofMWI000SomWI
f@03o`000?oIfMWofMWI04CofMWI00Co0000omWIfOoIfMWo00004ooIfMT01Ol0003ofMWIomWIfOoI
fMWo000000?ofMWI00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWIomWIf@2>omWIf@008_oIfMT0
0ol0003ofMWIomWIf@15omWIf@04o`000?oIfMWofMWIo`0001?ofMWI00?o0000omWIfOoIfMT01OoI
fMT00ol0003ofMWIomWIf@03omWIf@?o0000S_oIfMT0027ofMWI00?o0000omWIfOoIfMT0A_oIfMT0
1?l0003ofMWIomWIfOl0000ComWIf@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT00ooI
fMT00ol0003ofMWIomWIf@2>omWIf@008?oIfMT00ol0003ofMWIomWIf@17omWIf@04o`000?oIfMWo
fMWIo`0001?ofMWI00Co0000omWIfOoIfMWofMWI1?l00006omWIf@03o`000?oIfMWofMWI08kofMWI
000OomWIf@03o`000?oIfMWofMWI04SofMWI00Co0000omWIfOoIfMWo00004_oIfMT2o`0000?ofMWI
00?o0000omWIfOoIfMT01ooIfMT00ol0003ofMWIomWIf@2>omWIf@007_oIfMT00ol0003ofMWIomWI
f@19omWIf@04o`000?oIfMWofMWIo`0001?ofMWI00Co0000omWIfOoIfMWofMWI1Ol00005omWIf@03
o`000?oIfMWofMWI08kofMWI000NomWIf@03o`000?oIfMWofMWI04WofMWI00Co0000omWIfOoIfMWo
00008OoIfMT2o`0008oofMWI000MomWIf@03o`000?oIfMWofMWI04[ofMWI00Co0000omWIfOoIfMWo
00008OoIfMT00ol0003ofMWIomWIf@2>omWIf@007?oIfMT00ol0003ofMWIomWIf@1;omWIf@04o`00
0?oIfMWofMWIo`00027ofMWI00?o0000omWIfOoIfMT0S_oIfMT001_ofMWI00?o0000omWIfOoIfMT0
C?oIfMT01?l0003ofMWIomWIfOl0000QomWIf@03o`000?oIfMWofMWI08kofMWI000JomWIf@03o`00
0?oIfMWofMWI04gofMWI00Co0000omWIfOoIfMWo00008OoIfMT00ol0003ofMWIomWIf@2>omWIf@00
6OoIfMT00ol0003ofMWIomWIf@1>omWIf@04o`000?oIfMWofMWIo`00027ofMWI0_l0002?omWIf@00
6?oIfMT00ol0003ofMWIomWIf@1?omWIf@04o`000?oIfMWofMWIo`00027ofMWI00?o0000omWIfOoI
fMT0S_oIfMT001OofMWI00?o0000omWIfOoIfMT0DOoIfMT00ol0003ofMWIo`00000QomWIf@03o`00
0?oIfMWofMWI08kofMWI000FomWIf@03o`000?oIfMWofMWI05;ofMWI00?o0000omWIfOl000008OoI
fMT00ol0003ofMWIomWIf@2>omWIf@005OoIfMT00ol0003ofMWIomWIf@1ComWIf@03o`000?oIfMWo
0000027ofMWI00?o0000omWIfOoIfMT0S_oIfMT001CofMWI00?o0000omWIfOoIfMT0E?oIfMT00ol0
003ofMWIo`00000QomWIf@;o0000SooIfMT001?ofMWI00?o0000omWIfOoIfMT0EOoIfMT00ol0003o
fMWIo`00000QomWIf@03o`000?oIfMWofMWI08kofMWI000BomWIf@03o`000?oIfMWofMWI05KofMWI
00?o0000omWIfOl000008OoIfMT00ol0003ofMWIomWIf@2>omWIf@004_oIfMT00ol0003ofMWIomWI
f@1FomWIf@03o`000?oIfMWo0000027ofMWI00?o0000omWIfOoIfMT0S_oIfMT0017ofMWI00?o0000
omWIfOoIfMT0EooIfMT00ol0003ofMWIo`00000QomWIf@;o0000SooIfMT0013ofMWI00?o0000omWI
fOoIfMT0F?oIfMT00ol0003ofMWIo`00000QomWIf@03o`000?oIfMWofMWI08kofMWI000?omWIf@03
o`000?oIfMWofMWI05WofMWI00?o0000omWIfOl000008OoIfMT00ol0003ofMWIomWIf@2>omWIf@00
3_oIfMT00ol0003ofMWIomWIf@1JomWIf@03o`000?oIfMWo0000017ofMWI1Ol00003omWIf@;o0000
1_oIfMT00ol0003ofMWIomWIf@2>omWIf@003OoIfMT00ol0003ofMWIomWIf@1KomWIf@03o`000?oI
fMWo000001;ofMWI00Co0000omWIfOoIfMWo00000_oIfMT01?l0003ofMWIomWIfOl00005omWIf@03
o`000?oIfMWofMWI08kofMWI000omWIf@00
3?oIfMT00ol0003ofMWIomWIf@1LomWIf@03o`000?oIfMWo000001CofMWI00Go0000omWIfOoIfMWo
fMWIo`000002omWIf@03o`000?oIfMWofMWI00?ofMWI00?o0000omWIfOoIfMT0S_oIfMT000_ofMWI
00?o0000omWIfOoIfMT0GOoIfMT00ol0003ofMWIo`00000AomWIf@05o`000?oIfMWofMWIomWIfOl0
00000_oIfMT01?l0003ofMWIomWIfOl00005omWIf@03o`000?oIfMWofMWI08kofMWI000:omWIf@03
o`000?oIfMWofMWI05kofMWI00?o0000omWIfOl000004OoIfMT01Ol0003ofMWIomWIfOoIfMWo0000
00;ofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@2>omWIf@002OoIfMT00ol0
003ofMWIomWIf@1OomWIf@03o`000?oIfMWo000001;ofMWI0ol00004omWIf@;o00001_oIfMT00ol0
003ofMWIomWIf@2>omWIf@002?oIfMT00ol0003ofMWIomWIf@1PomWIf@03o`000?oIfMWo0000027o
fMWI0_l0002?omWIf@001ooIfMT00ol0003ofMWIomWIf@1QomWIf@03o`000?oIfMWo0000027ofMWI
00?o0000omWIfOoIfMT0S_oIfMT006_ofMWI00?o0000omWIfOl000008OoIfMT00ol0003ofMWIomWI
f@2>omWIf@00JooIfMT00ol0003ofMWIo`00000QomWIf@03o`000?oIfMWofMWI08kofMWI001[omWI
f@03o`000?oIfMWo0000027ofMWI00?o0000omWIfOoIfMT0S_oIfMT006_ofMWI00?o0000omWIfOl0
00008OoIfMT2o`0008oofMWI001[omWIf@03o`000?oIfMWo0000027ofMWI00?o0000omWIfOoIfMT0
S_oIfMT006_ofMWI00?o0000omWIfOl000008OoIfMT00ol0003ofMWIomWIf@2>omWIf@00JooIfMT0
0ol0003ofMWIo`00000QomWIf@03o`000?oIfMWofMWI08kofMWI0000\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-4.2104, -14.3054, \
0.0293408, 0.209824}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output",
CellLabel->"Out[2]="]
}, Open ]],
Cell[TextData[{
"La funci\[OAcute]n ",
StyleBox["Plot",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
" dispone de diversas opciones que podemos utilizar para optimizar un \
trazado particular "
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Options[Plot]\)], "Input",
CellLabel->"In[3]:=",
FontSize->14],
Cell[BoxData[
\({AspectRatio \[Rule] 1\/GoldenRatio, Axes \[Rule] Automatic,
AxesLabel \[Rule] None, AxesOrigin \[Rule] Automatic,
AxesStyle \[Rule] Automatic, Background \[Rule] Automatic,
ColorOutput \[Rule] Automatic, Compiled \[Rule] True,
DefaultColor \[Rule] Automatic,
DefaultFont \[RuleDelayed] $DefaultFont,
DisplayFunction \[RuleDelayed] $DisplayFunction, Epilog \[Rule] {},
FormatType \[RuleDelayed] $FormatType, Frame \[Rule] False,
FrameLabel \[Rule] None, FrameStyle \[Rule] Automatic,
FrameTicks \[Rule] Automatic, GridLines \[Rule] None,
ImageSize \[Rule] Automatic, MaxBend \[Rule] 10.`,
PlotDivision \[Rule] 30.`, PlotLabel \[Rule] None,
PlotPoints \[Rule] 25, PlotRange \[Rule] Automatic,
PlotRegion \[Rule] Automatic, PlotStyle \[Rule] Automatic,
Prolog \[Rule] {}, RotateLabel \[Rule] True,
TextStyle \[RuleDelayed] $TextStyle,
Ticks \[Rule] Automatic}\)], "Output",
CellLabel->"Out[3]="]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Plot[Tan[x], {x, 0, 10}];\)\)], "Input",
CellLabel->"In[4]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[4]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@03o`000?oIfMWo000004kofMWI00?o0000omWIfOl00000?OoIfMT001GofMWI00?o
0000omWIfOoIfMT09OoIfMT01?l0003ofMWIomWIfOl0001>omWIf@03o`000?oIfMWo000004kofMWI
00?o0000omWIfOl00000?OoIfMT001GofMWI0_l0000VomWIf@04o`000?oIfMWofMWIo`0004kofMWI
00?o0000omWIfOl00000C_oIfMT00ol0003ofMWIo`00000momWIf@005OoIfMT00ol0003ofMWIomWI
f@0UomWIf@04o`000?oIfMWofMWIo`0004kofMWI00?o0000omWIfOl00000C_oIfMT00ol0003ofMWI
o`00000momWIf@005OoIfMT00ol0003ofMWIomWIf@0UomWIf@04o`000?oIfMWofMWIo`0004kofMWI
00?o0000omWIfOl00000C_oIfMT00ol0003ofMWIo`00000momWIf@005OoIfMT00ol0003ofMWIomWI
f@0UomWIf@04o`000?oIfMWofMWIo`0004kofMWI00?o0000omWIfOl00000C_oIfMT00ol0003ofMWI
o`00000momWIf@005OoIfMT2o`0002KofMWI00Co0000omWIfOoIfMWo0000C_oIfMT00ol0003ofMWI
o`00001>omWIf@04o`000?oIfMWofMWIo`0003cofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI
00Co0000omWIfOoIfMWo0000C_oIfMT00ol0003ofMWIo`00001>omWIf@04o`000?oIfMWofMWIo`00
03cofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI00Co0000omWIfOoIfMWo0000C_oIfMT00ol0
003ofMWIo`00001>omWIf@04o`000?oIfMWofMWIo`0003cofMWI0007omWIf@?o00001?oIfMT2o`00
00GofMWI00?o0000omWIfOoIfMT09OoIfMT01?l0003ofMWIomWIfOl0001>omWIf@03o`000?oIfMWo
000004kofMWI00Co0000omWIfOoIfMWo0000??oIfMT000SofMWI00?o0000omWIfOoIfMT00_oIfMT0
1?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI02GofMWI00Co0000omWIfOoIfMWo0000
C_oIfMT00ol0003ofMWIo`00001>omWIf@04o`000?oIfMWofMWIo`0003cofMWI0005o`0000?ofMWI
00?o0000omWIfOoIfMT00_oIfMT01?l0003ofMWIomWIfOl00004omWIf@?o00009OoIfMT01?l0003o
fMWIomWIfOl0001>omWIf@04o`000?oIfMWofMWIo`0004gofMWI00Co0000omWIfOoIfMWo0000??oI
fMT000SofMWI00?o0000omWIfOoIfMT00_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oI
fMWofMWI02GofMWI00Co0000omWIfOoIfMWo0000C_oIfMT01?l0003ofMWIomWIfOl0001=omWIf@04
o`000?oIfMWofMWIo`0003cofMWI0008omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoI
fMWo00001?oIfMT00ol0003ofMWIomWIf@0UomWIf@05o`000?oIfMWofMWIomWIfOl00000COoIfMT0
1?l0003ofMWIomWIfOl0001=omWIf@04o`000?oIfMWofMWIo`0003cofMWI0007omWIf@;o00001?oI
fMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI02GofMWI00Go0000omWIfOoIfMWo
fMWIo`00001=omWIf@04o`000?oIfMWofMWIo`0004gofMWI00Co0000omWIfOoIfMWo0000??oIfMT0
00SofMWI00?o0000omWIfOoIfMT00ooIfMT2o`0000GofMWI00?o0000omWIfOoIfMT09OoIfMT01Ol0
003ofMWIomWIfOoIfMWo000004gofMWI00Co0000omWIfOoIfMWo0000COoIfMT01?l0003ofMWIomWI
fOl0000lomWIf@005OoIfMT2o`0002KofMWI00Go0000omWIfOoIfMWofMWIo`00001=omWIf@04o`00
0?oIfMWofMWIo`0004gofMWI00Go0000omWIfOoIfMWofMWIo`00000komWIf@005OoIfMT00ol0003o
fMWIomWIf@0UomWIf@05o`000?oIfMWofMWIomWIfOl00000COoIfMT01?l0003ofMWIomWIfOl0001=
omWIf@05o`000?oIfMWofMWIomWIfOl00000>ooIfMT001GofMWI00?o0000omWIfOoIfMT09OoIfMT0
0ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI04[ofMWI00Co0000omWIfOoIfMWo0000COoI
fMT01Ol0003ofMWIomWIfOoIfMWo000003_ofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI00?o
0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@1:omWIf@05o`000?oIfMWofMWIomWIfOl00000
C?oIfMT01Ol0003ofMWIomWIfOoIfMWo000003_ofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI
00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@1:omWIf@05o`000?oIfMWofMWIomWIfOl0
0000C?oIfMT01Ol0003ofMWIomWIfOoIfMWo000003_ofMWI000EomWIf@;o00009_oIfMT00ol0003o
fMWIomWIf@02omWIf@03o`000?oIfMWofMWI04[ofMWI00Go0000omWIfOoIfMWofMWIo`00001ooIfMT001GofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0
003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI04[ofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0
003ofMWIomWIf@19omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT0>?oIfMT001Go
fMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003ofMWIomWIf@02omWIf@04o`000?oIfMWofMWIomWI
f@Go0000ooIfMT00ol0003ofMWIomWIf@0@omWI
f@Co0000>_oIfMT00ol0003ofMWIomWIf@0@omWIf@Co0000:OoIfMT001GofMWI00?o0000omWIfOoI
fMT09OoIfMT00ol0003ofMWIomWIf@0DomWIf@Go0000=_oIfMT00ol0003ofMWIomWIf@0DomWIf@Go
0000=OoIfMT00ol0003ofMWIomWIf@0DomWIf@Go00009?oIfMT001GofMWI00?o0000omWIfOoIfMT0
9OoIfMT00ol0003ofMWIomWIf@0IomWIf@ko0000:?oIfMT00ol0003ofMWIomWIf@0IomWIf@So0000
;OoIfMT00ol0003ofMWIomWIf@0IomWIf@go00005ooIfMT000kofMWIool0000Co`0000005OoIfMT0
0ol0003ofMWIomWIf@06omWIf@[o00001ooIfMT00ol0003ofMWIomWIf@0:omWIf@;o00002ooIfMT0
0ol0003ofMWIomWIf@0:omWIf@03o`000?oIfMWofMWI00[ofMWI00?o0000omWIfOoIfMT02OoIfMT:
o`0000CofMWI00?o0000omWIfOoIfMT02_oIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWo
fMWI00CofMWI00?o0000omWIfOoIfMT02_oIfMT00ol0003ofMWIomWIf@0:omWIf@03o`000?oIfMWo
fMWI00[ofMWI3_l0000OoIfMT6o`00013ofMWI00?o0000omWIfOoIfMT0>OoIfMT4o`00017ofMWI00?o0000
omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWIfOoIfMT05_oIfMT2o`0000gofMWI00?o0000omWI
fOoIfMT0?ooIfMT2o`0000kofMWI00?o0000omWIfOoIfMT0?OoIfMT3o`0000kofMWI00?o0000omWI
fOoIfMT0?OoIfMT001GofMWI0_l0000IomWIf@?o00002_oIfMT00ol0003ofMWIomWIf@11omWIf@?o
00002ooIfMT00ol0003ofMWIomWIf@10omWIf@?o00002ooIfMT00ol0003ofMWIomWIf@0momWIf@00
5OoIfMT00ol0003ofMWIomWIf@0KomWIf@03o`000?oIfMWofMWI00OofMWI00?o0000omWIfOoIfMT0
A?oIfMT2o`0000WofMWI00?o0000omWIfOoIfMT0@ooIfMT2o`0000WofMWI00?o0000omWIfOoIfMT0
?OoIfMT001GofMWI00?o0000omWIfOoIfMT07?oIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oI
fMWofMWI04KofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@15omWIf@;o00001ooI
fMT00ol0003ofMWIomWIf@0momWIf@005OoIfMT00ol0003ofMWIomWIf@0MomWIf@;o00001_oIfMT0
0ol0003ofMWIomWIf@17omWIf@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT0A_oIfMT0
0ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI03gofMWI000EomWIf@03o`000?oIfMWofMWI
01oofMWI00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWIomWIf@18omWIf@03o`000?oIfMWofMWI
00CofMWI00?o0000omWIfOoIfMT0AooIfMT00ol0003ofMWIomWIf@04omWIf@03o`000?oIfMWofMWI
03gofMWI000EomWIf@;o00008?oIfMT00ol0003ofMWIomWIf@03omWIf@03o`000?oIfMWofMWI04Wo
fMWI00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWIomWIf@18omWIf@03o`000?oIfMWofMWI00?o
fMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWIfOoIfMT08?oIfMT00ol0003ofMWI
omWIf@02omWIf@03o`000?oIfMWofMWI04WofMWI00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWI
omWIf@18omWIf@03o`000?oIfMWofMWI00?ofMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o
0000omWIfOoIfMT08?oIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI04[ofMWI00?o
0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@19omWIf@03o`000?oIfMWofMWI00;ofMWI00?o
0000omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWIfOoIfMT08?oIfMT00ol0003ofMWIomWIf@02
omWIf@03o`000?oIfMWofMWI04[ofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@19
omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWI
fOoIfMT08OoIfMT01Ol0003ofMWIomWIfOoIfMWo000004cofMWI00?o0000omWIfOoIfMT00_oIfMT0
0ol0003ofMWIomWIf@1:omWIf@05o`000?oIfMWofMWIomWIfOl00000?ooIfMT001GofMWI0_l0000S
omWIf@04o`000?oIfMWofMWIo`0004gofMWI00Go0000omWIfOoIfMWofMWIo`00001omWIf@04o`000?oIfMWofMWIo`0004gofMWI00Co0000omWIfOoIfMWo0000?ooIfMT0
00SofMWI00?o0000omWIfOoIfMT00_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWo
fMWI02?ofMWI00?o0000omWIfOl00000C_oIfMT01?l0003ofMWIomWIfOl0001>omWIf@03o`000?oI
fMWo000003oofMWI0008omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001?oI
fMT3o`0002?ofMWI00?o0000omWIfOl00000CooIfMT00ol0003ofMWIo`00001>omWIf@03o`000?oI
fMWo000003oofMWI0008omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoIfMWo00001?oI
fMT00ol0003ofMWIomWIf@0SomWIf@03o`000?oIfMWo000004oofMWI00?o0000omWIfOl00000C_oI
fMT00ol0003ofMWIo`00000oomWIf@002?oIfMT00ol0003ofMWIomWIf@02omWIf@04o`000?oIfMWo
fMWIo`0000CofMWI00?o0000omWIfOoIfMT08ooIfMT00ol0003ofMWIo`00001?omWIf@03o`000?oI
fMWo000004kofMWI00?o0000omWIfOl00000?ooIfMT000OofMWI0_l00004omWIf@04o`000?oIfMWo
fMWIo`0000CofMWI00?o0000omWIfOoIfMT08ooIfMT00ol0003ofMWIo`00001?omWIf@03o`000?oI
fMWo000004kofMWI00?o0000omWIfOl00000?ooIfMT000SofMWI00?o0000omWIfOoIfMT00ooIfMT2
o`0000GofMWI00?o0000omWIfOoIfMT08ooIfMT00ol0003ofMWIo`00001?omWIf@03o`000?oIfMWo
000004kofMWI00?o0000omWIfOl00000?ooIfMT001GofMWI0_l0000UomWIf@;o0000CooIfMT00ol0
003ofMWIo`00001>omWIf@03o`000?oIfMWo000003oofMWI000EomWIf@03o`000?oIfMWofMWI02Co
fMWI0_l0001?omWIf@03o`000?oIfMWo000004kofMWI00?o0000omWIfOl00000?ooIfMT001GofMWI
00?o0000omWIfOoIfMT09?oIfMT2o`0004oofMWI00?o0000omWIfOl00000CooIfMT2o`0003oofMWI
000EomWIf@03o`000?oIfMWofMWI02CofMWI0_l0001?omWIf@03o`000?oIfMWo000004oofMWI0_l0
000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000CooIfMT00ol0003ofMWIo`00001?
omWIf@;o0000?ooIfMT001GofMWI0_l0000UomWIf@;o0000CooIfMT00ol0003ofMWIo`00001?omWI
f@;o0000?ooIfMT001GofMWI00?o0000omWIfOoIfMT09?oIfMT2o`0004oofMWI00?o0000omWIfOl0
0000CooIfMT2o`0003oofMWI000EomWIf@03o`000?oIfMWofMWI02CofMWI0_l0001?omWIf@03o`00
0?oIfMWo000004oofMWI0_l0000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000CooI
fMT00ol0003ofMWIo`00001?omWIf@;o0000?ooIfMT001GofMWI0_l0000UomWIf@;o0000CooIfMT0
0ol0003ofMWIo`00001?omWIf@;o0000?ooIfMT001GofMWI00?o0000omWIfOoIfMT09?oIfMT2o`00
04oofMWI00?o0000omWIfOl00000CooIfMT2o`0003oofMWI000EomWIf@03o`000?oIfMWofMWI02Co
fMWI0_l0001?omWIf@03o`000?oIfMWo000004oofMWI0_l0000oomWIf@005OoIfMT00ol0003ofMWI
omWIf@0TomWIf@;o0000D?oIfMT2o`0004oofMWI0_l0000oomWIf@005OoIfMT00ol0003ofMWIomWI
f@0TomWIf@;o0000D?oIfMT2o`0004oofMWI0_l0000oomWIf@005OoIfMT2o`0002GofMWI0_l0001@
omWIf@;o0000CooIfMT2o`0003oofMWI000EomWIf@03o`000?oIfMWofMWI02CofMWI0_l0001@omWI
f@;o0000CooIfMT2o`0003oofMWI0006omWIf@Go00000ooIfMT2o`0000GofMWI00?o0000omWIfOoI
fMT09?oIfMT2o`00053ofMWI0_l0001?omWIf@;o0000?ooIfMT000OofMWI00Co0000omWIfOoIfMWo
00000_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI02CofMWI0_l0001@omWI
f@;o0000CooIfMT2o`0003oofMWI0008omWIf@03o`000?oIfMWofMWI00;ofMWI00Co0000omWIfOoI
fMWo00001?oIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000D?oIfMT2o`0004oofMWI0_l0000oomWI
f@002OoIfMT01Ol0003ofMWIomWIfOoIfMWo000000;ofMWI00?o0000omWIfOoIfMT00_oIfMT3o`00
02CofMWI0_l0001@omWIf@;o0000CooIfMT2o`0003oofMWI0006omWIf@05o`000?oIfMWofMWIomWI
fOl000000_oIfMT01?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI02CofMWI0_l0001@
omWIf@;o0000CooIfMT2o`0003oofMWI0006omWIf@05o`000?oIfMWofMWIomWIfOl000000_oIfMT0
1?l0003ofMWIomWIfOl00004omWIf@03o`000?oIfMWofMWI02CofMWI0_l0001@omWIf@;o0000CooI
fMT2o`0003oofMWI0007omWIf@?o00001?oIfMT2o`0000GofMWI00?o0000omWIfOoIfMT09?oIfMT2
o`00053ofMWI0_l0001?omWIf@;o0000?ooIfMT001GofMWI0_l0000UomWIf@;o0000D?oIfMT2o`00
04oofMWI0_l0000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000D?oIfMT2o`0004oo
fMWI0_l0000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000D?oIfMT2o`0004oofMWI
0_l0000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000D?oIfMT2o`0004oofMWI0_l0
000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0TomWIf@;o0000D?oIfMT2o`0004oofMWI0_l0000o
omWIf@005OoIfMT2o`0002GofMWI0_l0001@omWIf@;o0000CooIfMT2o`0003oofMWI000EomWIf@03
o`000?oIfMWofMWI02CofMWI0_l0001@omWIf@;o0000CooIfMT2o`0003oofMWI000EomWIf@03o`00
0?oIfMWofMWI02GofMWI00?o0000omWIfOoIfMT0C_oIfMT2o`0004oofMWI0_l0000oomWIf@005OoI
fMT00ol0003ofMWIomWIf@0UomWIf@03o`000?oIfMWofMWI04kofMWI0_l0001?omWIf@;o0000?ooI
fMT001GofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003ofMWIomWIf@1>omWIf@;o0000CooIfMT2
o`0003oofMWI000EomWIf@;o00009_oIfMT00ol0003ofMWIomWIf@1>omWIf@;o0000CooIfMT2o`00
03oofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI00?o0000omWIfOoIfMT0C_oIfMT2o`0004oo
fMWI0_l0000oomWIf@005OoIfMT00ol0003ofMWIomWIf@0UomWIf@03o`000?oIfMWofMWI04kofMWI
0_l0001?omWIf@;o0000?ooIfMT001GofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003ofMWIomWI
f@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@005OoIfMT2o`0002KofMWI00?o0000
omWIfOoIfMT0C_oIfMT2o`00053ofMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWI
fOoIfMT09OoIfMT00ol0003ofMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWI
f@005OoIfMT00ol0003ofMWIomWIf@0UomWIf@03o`000?oIfMWofMWI04kofMWI0_l0001@omWIf@03
o`000?oIfMWofMWI03gofMWI0007omWIf@?o00001?oIfMT2o`0000GofMWI00?o0000omWIfOoIfMT0
9OoIfMT00ol0003ofMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@001_oI
fMT01Ol0003ofMWIomWIfOoIfMWo000000;ofMWI00Co0000omWIfOoIfMWo00001?oIfMT00ol0003o
fMWIomWIf@0UomWIf@03o`000?oIfMWofMWI04kofMWI0_l0001@omWIf@03o`000?oIfMWofMWI03go
fMWI000:omWIf@04o`000?oIfMWofMWIo`0000;ofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0002Go
fMWI00?o0000omWIfOoIfMT0C_oIfMT2o`00053ofMWI00?o0000omWIfOoIfMT0?OoIfMT000SofMWI
0_l00003omWIf@04o`000?oIfMWofMWIo`0000CofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003o
fMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@002_oIfMT01?l0003ofMWI
omWIfOl00002omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003o
fMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@001_oIfMT01Ol0003ofMWI
omWIfOoIfMWo000000;ofMWI00Co0000omWIfOoIfMWo00001?oIfMT00ol0003ofMWIomWIf@0UomWI
f@03o`000?oIfMWofMWI04kofMWI0_l0001@omWIf@03o`000?oIfMWofMWI03gofMWI0007omWIf@?o
00001?oIfMT2o`0000GofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003ofMWIomWIf@1>omWIf@;o
0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@005OoIfMT2o`0002KofMWI00?o0000omWIfOoIfMT0
C_oIfMT2o`00053ofMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWIfOoIfMT09OoI
fMT00ol0003ofMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@005OoIfMT0
0ol0003ofMWIomWIf@0UomWIf@03o`000?oIfMWofMWI04kofMWI0_l0001@omWIf@03o`000?oIfMWo
fMWI03gofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI00?o0000omWIfOoIfMT0C_oIfMT2o`00
053ofMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o0000omWIfOoIfMT09OoIfMT00ol0003o
fMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWIf@0momWIf@005OoIfMT2o`0002KofMWI
00?o0000omWIfOoIfMT0C_oIfMT2o`00053ofMWI00?o0000omWIfOoIfMT0?OoIfMT001GofMWI00?o
0000omWIfOoIfMT09OoIfMT00ol0003ofMWIomWIf@1>omWIf@;o0000D?oIfMT00ol0003ofMWIomWI
f@0momWIf@005OoIfMT00ol0003ofMWIomWIf@0UomWIf@03o`000?oIfMWofMWI04kofMWI0_l0001@
omWIf@03o`000?oIfMWofMWI03gofMWI000EomWIf@03o`000?oIfMWofMWI02GofMWI00?o0000omWI
fOoIfMT0C_oIfMT2o`00053ofMWI00?o0000omWIfOoIfMT0?OoIfMT00?oofMWI8OoIfMT00?oofMWI
8OoIfMT00?oofMWI8OoIfMT00?oofMWI8OoIfMT00001\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.825959, -37.9137, \
0.0385924, 0.425491}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"graf2", "=",
RowBox[{"Plot", "[",
RowBox[{\(x^3\), ",", \({x, \(-2\), 2}\),
StyleBox[",",
FontColor->RGBColor[1, 0, 1]],
StyleBox[\(AxesLabel \[Rule] {"\", "\"}\),
FontColor->RGBColor[1, 0, 1]],
StyleBox[",",
FontColor->RGBColor[1, 0, 1]],
StyleBox[\(PlotStyle \[Rule] Thickness[0.01]\),
FontColor->RGBColor[1, 0, 1]]}], "]"}]}], ";"}]], "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", "\?oIfMT00ol0003ofMWIomWIf@0eomWIf@05o`00
0?oIfMWofMWIomWIfOl00000;_oIfMT000KofMWI00Go0000omWIfOoIfMWofMWIo`00000fomWIf@;o
00009ooIfMT3o`0000kofMWI00?o0000omWIfOoIfMT0=_oIfMT2o`0003OofMWI00Go0000omWIfOoI
fMWofMWIo`00000^omWIf@001ooIfMT3o`0003SofMWI00?o0000omWIfOoIfMT09_oIfMT3o`0000go
fMWI00?o0000omWIfOoIfMT0=ooIfMT00ol0003ofMWIomWIf@0fomWIf@?o0000;ooIfMT006cofMWI
0ol0000omWIf@?o0000T_oIfMT007_ofMWI00?o0000omWIfOoIfMT03_oIfMT2o`00
09;ofMWI001komWIf@03o`000?oIfMWofMWI00kofMWI0ol0002AomWIf@00NooIfMT00ol0003ofMWI
omWIf@0?omWIf@?o0000T?oIfMT007_ofMWI0_l0000AomWIf@;o0000T?oIfMT006;ofMWI0_l00004
omWIf@03o`000?oIfMWofMWI00?ofMWI0_l00003omWIf@?o00001OoIfMT00ol0003ofMWIomWIf@0@
omWIf@?o0000SooIfMT0067ofMWI00Co0000omWIfOoIfMWo00002?oIfMT01_l0003ofMWIomWIfOl0
003ofMWIo`0000?ofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@0AomWIf@;o0000
SooIfMT0067ofMWI00Co0000omWIfOoIfMWo00002?oIfMT01?l0003ofMWIomWIfOl00005omWIf@03
o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT04OoIfMT2o`0008oofMWI001QomWIf@04o`00
0?oIfMWofMWIo`0000SofMWI00Co0000omWIfOoIfMWo00001OoIfMT00ol0003ofMWIomWIf@02omWI
f@?o00004OoIfMT3o`0008kofMWI001QomWIf@04o`000?oIfMWofMWIo`0000SofMWI00Go0000omWI
fOoIfMWo0000omWIf@04o`0000GofMWI00?o0000omWIfOoIfMT04_oIfMT2o`0008kofMWI001QomWI
f@04o`000?oIfMWofMWIo`0000SofMWI00Ko0000omWIfOoIfMWo0000omWIfOl00008omWIf@03o`00
0?oIfMWofMWI01;ofMWI0_l0002>omWIf@00H_oIfMT2o`0000[ofMWI0_l00002omWIf@Go00001?oI
fMT00ol0003ofMWIomWIf@0BomWIf@;o0000S_oIfMT007_ofMWI0_l0000ComWIf@?o0000SOoIfMT0
07_ofMWI00?o0000omWIfOoIfMT04ooIfMT2o`0008gofMWI001komWIf@03o`000?oIfMWofMWI01?o
fMWI0_l0002=omWIf@00NooIfMT00ol0003ofMWIomWIf@0ComWIf@?o0000S?oIfMT007_ofMWI0_l0
000EomWIf@;o0000S?oIfMT007_ofMWI00?o0000omWIfOoIfMT05?oIfMT2o`0008cofMWI001komWI
f@03o`000?oIfMWofMWI01CofMWI0_l0002"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.10217, -0.19924, \
0.0170245, 0.00249122}}]
}, Open ]],
Cell[TextData[{
"Cuando ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" traza un gr\[AAcute]fico tiene que escoger muchas opciones. Tiene que \
resolverse lo que deben ser las escalas, donde se debe mostrar la funci\
\[OAcute]n, c\[OAcute]mo deben dibujarse los ejes, etc. La mayo\[IAcute]a de \
las veces, ",
StyleBox["Mathematica",
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1]],
" probablemente tomar\[AAcute] opciones bastante buenas. Sin embargo, si \
como en este caso no nos ha mostrado la gr\[AAcute]fica de la funci\[OAcute]n \
en el rango pedido es porque no lo considera necesario para entender el \
coportamiento de la funci\[OAcute]n. \n\nSin embargo, si queremos ver todo el \
rango:"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"graf3", "=",
RowBox[{"Plot", "[",
RowBox[{\(x^3\), ",", \({x, \(-2\), 2}\),
StyleBox[",",
FontColor->RGBColor[1, 0, 1]],
StyleBox[\(AxesLabel \[Rule] {"\", "\"}\),
FontColor->RGBColor[1, 0, 1]],
StyleBox[",",
FontColor->RGBColor[1, 0, 1]],
StyleBox[\(PlotStyle \[Rule] RGBColor[0, 1, 0]\),
FontColor->RGBColor[1, 0, 1]], ",", \(PlotRange \[Rule] All\)}],
"]"}]}], ";"}]], "Input",
CellLabel->"In[6]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[6]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@03o`3o0?oIfMWofMWI06[ofMWI00?o0000
omWIfOoIfMT0X_oIfMT000oofMWI00?o0?l0omWIfOoIfMT0JOoIfMT00ol0003ofMWIomWIf@2RomWI
f@003ooIfMT00ol0o`3ofMWIomWIf@1YomWIf@;o0000XooIfMT0013ofMWI00?o0?l0omWIfOoIfMT0
J?oIfMT00ol0003ofMWIomWIf@2RomWIf@004OoIfMT00ol0o`3ofMWIomWIf@1WomWIf@03o`000?oI
fMWofMWI0:;ofMWI000BomWIf@03o`3o0?oIfMWofMWI06KofMWI00?o0000omWIfOoIfMT0X_oIfMT0
01;ofMWI00?o0?l0omWIfOoIfMT0I_oIfMT00ol0003ofMWIomWIf@2RomWIf@004ooIfMT00ol0o`3o
fMWIomWIf@1UomWIf@;o0000XooIfMT001CofMWI00?o0?l0omWIfOoIfMT0I?oIfMT00ol0003ofMWI
omWIf@2RomWIf@005?oIfMT00ol0o`3ofMWIomWIf@1LomWIf@?o00001OoIfMT00ol0003ofMWIomWI
f@2RomWIf@005OoIfMT00ol0o`3ofMWIomWIf@1JomWIf@05o`000?oIfMWofMWIomWIfOl000001?oI
fMT00ol0003ofMWIomWIf@2RomWIf@005_oIfMT00ol0o`3ofMWIomWIf@1ComWIf@Go00001OoIfMT0
0ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI0:;ofMWI000GomWIf@03o`3o0?oIfMWofMWI
05cofMWI00?o0000omWIfOoIfMT00_oIfMT3o`000:;ofMWI000GomWIf@03o`3o0?oIfMWofMWI05So
fMWI1?l00005omWIf@03o`000?oIfMWofMWI0:;ofMWI000HomWIf@03o`3o0?oIfMWofMWI05OofMWI
00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@2RomWIf@006OoIfMT00ol0o`3ofMWIomWI
f@1FomWIf@Go00001?oIfMT00ol0003ofMWIomWIf@2RomWIf@006OoIfMT00ol0o`3ofMWIomWIf@1O
omWIf@;o0000XooIfMT001[ofMWI00?o0?l0omWIfOoIfMT0G_oIfMT00ol0003ofMWIomWIf@2RomWI
f@006ooIfMT00ol0o`3ofMWIomWIf@1MomWIf@03o`000?oIfMWofMWI0:;ofMWI000LomWIf@03o`3o
0?oIfMWofMWI05cofMWI00?o0000omWIfOoIfMT0X_oIfMT001gofMWI00?o0?l0omWIfOoIfMT0FooI
fMT00ol0003ofMWIomWIf@2RomWIf@007_oIfMT00ol0o`3ofMWIomWIf@1JomWIf@;o0000XooIfMT0
01kofMWI00?o0?l0omWIfOoIfMT0F_oIfMT00ol0003ofMWIomWIf@2RomWIf@007ooIfMT00ol0o`3o
fMWIomWIf@1IomWIf@03o`000?oIfMWofMWI0:;ofMWI000PomWIf@03o`3o0?oIfMWofMWI05SofMWI
00?o0000omWIfOoIfMT0X_oIfMT0027ofMWI00?o0?l0omWIfOoIfMT0EooIfMT2o`000:?ofMWI000R
omWIf@03o`3o0?oIfMWofMWI05KofMWI00?o0000omWIfOoIfMT0X_oIfMT002?ofMWI0_l0o`1FomWI
f@03o`000?oIfMWofMWI0:;ofMWI000UomWIf@03o`3o0?oIfMWofMWI05?ofMWI00?o0000omWIfOoI
fMT0X_oIfMT002KofMWI00?o0?l0omWIfOoIfMT0D_oIfMT00ol0003ofMWIomWIf@2RomWIf@009ooI
fMT00ol0o`3ofMWIomWIf@1AomWIf@;o0000XooIfMT002SofMWI0_l0o`1AomWIf@03o`000?oIfMWo
fMWI0:;ofMWI000ZomWIf@03o`3o0?oIfMWofMWI03WofMWI1Ol00003omWIf@03o`000?oIfMWofMWI
00;ofMWI0ol00005omWIf@03o`000?oIfMWofMWI0:;ofMWI000[omWIf@03o`3o0?oIfMWofMWI03Wo
fMWI00Co0000omWIfOoIfMWo00001ooIfMT01Ol0003ofMWIomWIfOoIfMWo000000CofMWI00?o0000
omWIfOoIfMT0X_oIfMT002cofMWI00?o0?l0omWIfOoIfMT0?oI
fMT2o`0003SofMWI00?o0000omWIfOoIfMT0=ooIfMT00ol0003ofMWIomWIf@0^omWIf@002OoIfMT0
0ol0003ofMWIomWIf@0fomWIf@?o0?l0=_oIfMT00ol0003ofMWIomWIf@0gomWIf@03o`000?oIfMWo
fMWI03SofMWI00?o0000omWIfOoIfMT0;OoIfMT000KofMWI00Go0000omWIfOoIfMWofMWIo`00000g
omWIf@03o`000?oIfMWofMWI00;o0?l0=?oIfMT00ol0003ofMWIomWIf@0gomWIf@03o`000?oIfMWo
fMWI03GofMWI00Go0000omWIfOoIfMWofMWIo`00000^omWIf@001_oIfMT01Ol0003ofMWIomWIfOoI
fMWo000003KofMWI0_l00004omWIf@?o0?l0?oIfMT00ol0003ofMWIomWI
f@05omWIf@Co0?l0;OoIfMT2o`0003SofMWI00?o0000omWIfOoIfMT0=_oIfMT3o`0002oofMWI001>
omWIf@Go0?l0:?oIfMT00ol0003ofMWIomWIf@28omWIf@;o00006?oIfMT005?ofMWI1Ol0o`0SomWI
f@03o`000?oIfMWofMWI08[ofMWI00?o0000omWIfOoIfMT05OoIfMT005SofMWI1Ol0o`0NomWIf@03
o`000?oIfMWofMWI087ofMWI1Ol00004omWIf@04o`000?oIfMWofMWIomWIf@?o00002?oIfMT2o`00
0003omWIfOl0003o000000CofMWI001MomWIf@Wo0?l05OoIfMT00ol0003ofMWIomWIf@22omWIf@04
o`000?oIfMWofMWIo`0000CofMWI00Co0000omWIfOoIfMWo00003?oIfMT00ol0003ofMWIo`000005
omWIf@00I_l0000]o`3o06Co00002OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI
00Go00002OoIfMT00ol0003ofMWIomWIf@04omWIf@001_oIfMT00ol0003ofMWIomWIf@08omWIf@03
o`000?oIfMWofMWI00WofMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@08omWIf@03
o`000?oIfMWofMWI00WofMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@09omWIf@03
o`000?oIfMWofMWI00SofMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@09omWIf@03
o`000?oIfMWofMWI00WofMWI00?o0000omWIfOoIfMT02?oIfMT00ol0003o0?l0o`3o0008o`3o0003
omWIfOl0003ofMWI00[ofMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@08omWIf@03
o`000?oIfMWofMWI00WofMWI00?o0000omWIfOoIfMT02OoIfMT00ol0003ofMWIomWIf@09omWIf@03
o`000?oIfMWofMWI00SofMWI00?o0000omWIfOoIfMT03OoIfMT3o`0000GofMWI00Co0000omWIfOoI
fMWo00000ooIfMT00ol0003ofMWIomWIf@07omWIf@03o`000?oIfMWofMWI00CofMWI001komWIf@03
o`000?oIfMWofMWI01oofMWI1Ol0o`1NomWIf@03o`000?oIfMWofMWI00?ofMWI0ol00003omWIf@?o
00002_oIfMT00ol0003ofMWIomWIf@04omWIf@00NooIfMT00ol0003ofMWIomWIf@0TomWIf@Go0?l0
FOoIfMT01?l0003ofMWIomWIfOl0000DomWIf@03o`000?oIfMWo000000GofMWI001komWIf@;o0000
:_oIfMT5o`3o05?ofMWI1Ol00004omWIf@03o`000?oIfMWofMWI00cofMWI0_l000000ooIfMWo0000
o`000004omWIf@00NooIfMT00ol0003ofMWIomWIf@0^omWIf@?o0?l0LOoIfMT007_ofMWI00?o0000
omWIfOoIfMT0_oIfMT2o`3o06KofMWI001komWIf@03o`000?oIfMWo
fMWI03cofMWI00?o0?l0omWIfOoIfMT0HooIfMT007_ofMWI00?o0000omWIfOoIfMT0?OoIfMT2o`3o
06?ofMWI001komWIf@03o`000?oIfMWofMWI03oofMWI0_l0o`1QomWIf@00NooIfMT2o`0004;ofMWI
00?o0?l0omWIfOoIfMT0G_oIfMT007_ofMWI00?o0000omWIfOoIfMT0@_oIfMT2o`3o05kofMWI001k
omWIf@03o`000?oIfMWofMWI04CofMWI00?o0?l0omWIfOoIfMT0FooIfMT007_ofMWI00?o0000omWI
fOoIfMT0AOoIfMT2o`3o05_ofMWI001komWIf@;o0000B?oIfMT00ol0o`3ofMWIomWIf@1HomWIf@00
NooIfMT00ol0003ofMWIomWIf@18omWIf@03o`3o0?oIfMWofMWI05OofMWI001VomWIf@Go00000ooI
fMT00ol0003ofMWIomWIf@02omWIf@?o00001OoIfMT00ol0003ofMWIomWIf@19omWIf@;o0?l0EooI
fMT006OofMWI00Co0000omWIfOoIfMWo00001ooIfMT01Ol0003ofMWIomWIfOoIfMWo000000CofMWI
00?o0000omWIfOoIfMT0BooIfMT00ol0o`3ofMWIomWIf@1DomWIf@00J?oIfMT00ol0003ofMWIomWI
f@0;omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT0C?oIfMT2o`3o05CofMWI001Y
omWIf@03o`000?oIfMWofMWI00[ofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0004kofMWI00?o0?l0
omWIfOoIfMT0DOoIfMT006KofMWI00Go0000omWIfOoIfMWofMWIo`000007omWIf@Co00001OoIfMT0
0ol0003ofMWIomWIf@1?omWIf@03o`3o0?oIfMWofMWI053ofMWI001VomWIf@05o`000?oIfMWofMWI
omWIfOl000001ooIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI053ofMWI00?o0?l0
omWIfOoIfMT0CooIfMT006OofMWI0ol00008omWIf@Go00001?oIfMT00ol0003ofMWIomWIf@1AomWI
f@03o`3o0?oIfMWofMWI04kofMWI001komWIf@;o0000DooIfMT00ol0o`3ofMWIomWIf@1=omWIf@00
NooIfMT00ol0003ofMWIomWIf@1ComWIf@03o`3o0?oIfMWofMWI04cofMWI001komWIf@03o`000?oI
fMWofMWI05CofMWI00?o0?l0omWIfOoIfMT0BooIfMT007_ofMWI00?o0000omWIfOoIfMT0EOoIfMT0
0ol0o`3ofMWIomWIf@1:omWIf@00NooIfMT00ol0003ofMWIomWIf@1FomWIf@03o`3o0?oIfMWofMWI
04WofMWI001komWIf@;o0000EooIfMT00ol0o`3ofMWIomWIf@19omWIf@00NooIfMT00ol0003ofMWI
omWIf@1GomWIf@03o`3o0?oIfMWofMWI04SofMWI001komWIf@03o`000?oIfMWofMWI05SofMWI00?o
0?l0omWIfOoIfMT0AooIfMT007_ofMWI00?o0000omWIfOoIfMT0FOoIfMT00ol0o`3ofMWIomWIf@16
omWIf@00NooIfMT2o`0005[ofMWI00?o0?l0omWIfOoIfMT0A_oIfMT007_ofMWI00?o0000omWIfOoI
fMT0F_oIfMT00ol0o`3ofMWIomWIf@15omWIf@00NooIfMT00ol0003ofMWIomWIf@1KomWIf@03o`3o
0?oIfMWofMWI04CofMWI001komWIf@03o`000?oIfMWofMWI05cofMWI00?o0?l0omWIfOoIfMT0@ooI
fMT007_ofMWI00?o0000omWIfOoIfMT0G?oIfMT00ol0o`3ofMWIomWIf@13omWIf@00NooIfMT2o`00
05kofMWI00?o0?l0omWIfOoIfMT0@_oIfMT007_ofMWI00?o0000omWIfOoIfMT0G_oIfMT00ol0o`3o
fMWIomWIf@11omWIf@00LooIfMT3o`0000GofMWI00?o0000omWIfOoIfMT0GooIfMT00ol0o`3ofMWI
omWIf@10omWIf@00L_oIfMT01Ol0003ofMWIomWIfOoIfMWo000000CofMWI00?o0000omWIfOoIfMT0
GooIfMT00ol0o`3ofMWIomWIf@10omWIf@00M_oIfMT00ol0003ofMWIomWIf@02omWIf@?o0000H?oI
fMT00ol0o`3ofMWIomWIf@0oomWIf@00M_oIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWo
fMWI067ofMWI00?o0?l0omWIfOoIfMT0?_oIfMT007;ofMWI1?l00005omWIf@03o`000?oIfMWofMWI
06;ofMWI00?o0?l0omWIfOoIfMT0?OoIfMT007;ofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003o
fMWIomWIf@1SomWIf@03o`3o0?oIfMWofMWI03cofMWI001bomWIf@Go00001?oIfMT00ol0003ofMWI
omWIf@1SomWIf@03o`3o0?oIfMWofMWI03cofMWI001komWIf@;o0000IOoIfMT00ol0o`3ofMWIomWI
f@0komWIf@00NooIfMT00ol0003ofMWIomWIf@1UomWIf@03o`3o0?oIfMWofMWI03[ofMWI001komWI
f@03o`000?oIfMWofMWI06KofMWI00?o0?l0omWIfOoIfMT0>OoIfMT007_ofMWI00?o0000omWIfOoI
fMT0I_oIfMT00ol0o`3ofMWIomWIf@0iomWIf@00NooIfMT2o`0006SofMWI00?o0?l0omWIfOoIfMT0
>?oIfMT007_ofMWI00?o0000omWIfOoIfMT0J?oIfMT00ol0o`3ofMWIomWIf@0gomWIf@00NooIfMT0
0ol0003ofMWIomWIf@1YomWIf@03o`3o0?oIfMWofMWI03KofMWI001komWIf@03o`000?oIfMWofMWI
06[ofMWI00?o0?l0omWIfOoIfMT0=OoIfMT007_ofMWI00?o0000omWIfOoIfMT0J_oIfMT00ol0o`3o
fMWIomWIf@0eomWIf@00NooIfMT2o`0006cofMWI00?o0?l0omWIfOoIfMT0=?oIfMT007_ofMWI00?o
0000omWIfOoIfMT0JooIfMT00ol0o`3ofMWIomWIf@0domWIf@00NooIfMT00ol0003ofMWIomWIf@1/
omWIf@03o`3o0?oIfMWofMWI03?ofMWI001komWIf@03o`000?oIfMWofMWI06cofMWI00?o0?l0omWI
fOoIfMT0"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.10217, -8.74706, \
0.0170245, 0.110185}}]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Plot[{Sin[x], x^2}, {x, \(-Pi\)/2, Pi/2},
PlotStyle \[Rule] {{Dashing[{0.04}], Thickness[0.01]},
Thickness[0.015]}];\)\)], "Input",
CellLabel->"In[7]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[7]:=",
ImageSize->{288, 177.938},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@00SooIfMT00ol0003ofMWIomWIf@2>omWIf@00Q_oIfMT3o`0000Ko
fMWI00?o0000omWIfOoIfMT0S_oIfMT008OofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWI
omWIf@2>omWIf@003OoIfMT9o`0006WofMWI1Ol00003omWIf@03o`000?oIfMWofMWI00GofMWI0ol0
002>omWIf@003OoIfMT=o`0006gofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@2>
omWIf@005OoIfMT5o`0006gofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@2>omWI
f@009?oIfMT5o`0005gofMWI0_l00007omWIf@03o`000?oIfMWofMWI08kofMWI000TomWIf@[o0000
FOoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI08kofMWI000XomWIf@Wo0000G_oI
fMT2o`0008oofMWI000]omWIf@Co0000G_oIfMT00ol0003ofMWIomWIf@2>omWIf@00SooIfMT00ol0
003ofMWIomWIf@2>omWIf@00>_oIfMT4o`00057ofMWI00?o0000omWIfOoIfMT0S_oIfMT003[ofMWI
1ol0001>omWIf@03o`000?oIfMWofMWI08kofMWI000momWIf@Ko0000C?oIfMT2o`0008oofMWI0010
omWIf@Go0000B_oIfMT00ol0003ofMWIomWIf@2>omWIf@00@_oIfMT4o`0004WofMWI00?o0000omWI
fOoIfMT0S_oIfMT004CofMWI0_l00019omWIf@03o`000?oIfMWofMWI08kofMWI002?omWIf@;o0000
SooIfMT008oofMWI00?o0000omWIfOoIfMT0S_oIfMT004oofMWI0ol0000momWIf@03o`000?oIfMWo
fMWI08kofMWI001?omWIf@Ko0000>_oIfMT00ol0003ofMWIomWIf@2>omWIf@00DOoIfMT7o`0003Oo
fMWI00?o0000omWIfOoIfMT0S_oIfMT005CofMWI1_l0000eomWIf@;o0000SooIfMT005OofMWI1?l0
000domWIf@03o`000?oIfMWofMWI08kofMWI001IomWIf@;o0000=?oIfMT00ol0003ofMWIomWIf@2>
omWIf@00NooIfMT2o`0000CofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0000KofMWI00?o0000omWI
fOoIfMT0S_oIfMT007[ofMWI00Co0000omWIfOoIfMWo00001ooIfMT01Ol0003ofMWIomWIfOoIfMWo
000000GofMWI00?o0000omWIfOoIfMT0S_oIfMT007?ofMWI1Ol00002omWIf@04o`000?oIfMWofMWI
o`0000_ofMWI00?o0000omWIfOoIfMT00ooIfMT3o`0008kofMWI001SomWIf@?o00005?oIfMT01?l0
003ofMWIomWIfOl0000;omWIf@03o`000?oIfMWofMWI00?ofMWI00?o0000omWIfOoIfMT0S_oIfMT0
06?ofMWI1Ol0000BomWIf@04o`000?oIfMWofMWIo`0000OofMWI1?l00006omWIf@03o`000?oIfMWo
fMWI08kofMWI001UomWIf@Go00004?oIfMT01?l0003ofMWIomWIfOl00007omWIf@03o`000?oIfMWo
fMWI00OofMWI00?o0000omWIfOoIfMT0S_oIfMT006OofMWI1Ol0000?omWIf@;o00002?oIfMT5o`00
00GofMWI00?o0000omWIfOoIfMT0S_oIfMT006WofMWI1Ol0000QomWIf@;o0000SooIfMT006_ofMWI
1?l0000PomWIf@03o`000?oIfMWofMWI08kofMWI001]omWIf@;o00008?oIfMT00ol0003ofMWIomWI
f@2>omWIf@00SooIfMT00ol0003ofMWIomWIf@2>omWIf@00SooIfMT00ol0003ofMWIomWIf@2>omWI
f@00SooIfMT2o`0008oofMWI002?omWIf@03o`000?oIfMWofMWI08kofMWI001gomWIf@Go00004ooI
fMT00ol0003ofMWIomWIf@2>omWIf@002OoIfMT3o`0000CofMWI00?o0000omWIfOoIfMT00_oIfMT3
o`0002;ofMWI0ol0000SomWIf@;o00001?oIfMT00ol0003ofMWIomWIf@02omWIf@?o00002OoIfMT6
o`0001;ofMWI00?o0000omWIfOoIfMT08OoIfMT2o`0000CofMWI00?o0000omWIfOoIfMT00_oIfMT3
o`0002;ofMWI0ol0000RomWIf@?o00001?oIfMT00ol0003ofMWIomWIf@02omWIf@?o00002OoIfMT0
00[ofMWI00?o0000omWIfOoIfMT01ooIfMT01Ol0003ofMWIomWIfOoIfMWo000002;ofMWI00?o0000
omWIfOoIfMT08OoIfMT01?l0003ofMWIomWIfOl00007omWIf@05o`000?oIfMWofMWIomWIfOl00000
3?oIfMT4o`00013ofMWI0_l0000QomWIf@04o`000?oIfMWofMWIo`0000OofMWI00Go0000omWIfOoI
fMWofMWIo`00000RomWIf@03o`000?oIfMWofMWI02;ofMWI00?o0000omWIfOoIfMT01ooIfMT01Ol0
003ofMWIomWIfOoIfMWo000000SofMWI0002omWIf@Go00000ooIfMT00ol0003ofMWIomWIf@0;omWI
f@03o`000?oIfMWofMWI01SofMWI1Ol00003omWIf@03o`000?oIfMWofMWI01[ofMWI1Ol00002omWI
f@04o`000?oIfMWofMWIo`0000_ofMWI00?o0000omWIfOoIfMT02ooIfMT5o`0000kofMWI00?o0000
omWIfOoIfMT08?oIfMT01?l0003ofMWIomWIfOl0000;omWIf@03o`000?oIfMWofMWI023ofMWI00?o
0000omWIfOoIfMT08_oIfMT00ol0003ofMWIomWIf@0;omWIf@03o`000?oIfMWofMWI00KofMWI000:
omWIf@03o`000?oIfMWofMWI00_ofMWI00?o0000omWIfOoIfMT08?oIfMT00ol0003ofMWIomWIf@0Q
omWIf@04o`000?oIfMWofMWIo`0000_ofMWI00?o0000omWIfOoIfMT03OoIfMT4o`0000gofMWI00?o
0000omWIfOoIfMT08?oIfMT01?l0003ofMWIomWIfOl0000;omWIf@03o`000?oIfMWofMWI023ofMWI
00?o0000omWIfOoIfMT08_oIfMT00ol0003ofMWIomWIf@0;omWIf@03o`000?oIfMWofMWI00KofMWI
000:omWIf@03o`000?oIfMWofMWI00OofMWI1?l0000SomWIf@03o`000?oIfMWofMWI027ofMWI00Co
0000omWIfOoIfMWo00001ooIfMT4o`0001;ofMWI0ol0000omWIf@03o`000?oIfMWofMWI02SofMWI00?o0000omWIfOoIfMT0:?oIfMT00ol0003ofMWIomWI
f@0?omWIfC?o00004OoIfMT00ol0003ofMWIomWIf@0XomWIf@03o`000?oIfMWofMWI02SofMWI00?o
0000omWIfOoIfMT03OoIfMT007?ofMWI5Ol00007omWIf@03o`000?oIfMWo000000Co00000_oIfMTD
o`0007CofMWI001`omWIfA7o00003_oIfMT01?l0003ofMWIomWIfOoIfMT4o`0000OofMWI4?l0001b
omWIf@00KOoIfMT@o`0001;ofMWI0_l00004omWIf@;o00002ooIfMT>o`00073ofMWI001[omWIf@ko
00005_oIfMT00ol0003ofMWIomWIf@0DomWIf@co0000K_oIfMT006WofMWI3Ol0000IomWIf@03o`00
0?oIfMWofMWI01OofMWI2ol0001/omWIf@00IooIfMTomWIf@Oo00009OoIfMT01?l0003ofMWIomWIfOl0000;omWIf@03
o`000?oIfMWofMWI00?ofMWI00?o0000omWIfOoIfMT0:_oIfMT3o`0000WofMWI2?l0001@omWIf@00
COoIfMT7o`0002KofMWI00Co0000omWIfOoIfMWo00001ooIfMT4o`0000KofMWI00?o0000omWIfOoI
fMT0:ooIfMT2o`0000[ofMWI2?l0001?omWIf@00C?oIfMT7o`0002OofMWI00Co0000omWIfOoIfMWo
00001ooIfMT00ol0003ofMWIomWIf@07omWIf@03o`000?oIfMWofMWI03SofMWI2?l0001>omWIf@00
BooIfMT7o`0002WofMWI0_l00008omWIf@Go00001OoIfMT00ol0003ofMWIomWIf@0jomWIf@Oo0000
COoIfMT004WofMWI2?l0000nomWIf@;o0000??oIfMT8o`0004_ofMWI0018omWIf@So0000?ooIfMT0
0ol0003ofMWIomWIf@0eomWIf@?o00001?oIfMT8o`0004[ofMWI0017omWIf@So0000@?oIfMT00ol0
003ofMWIomWIf@0eomWIf@Ko00000_oIfMT8o`0004WofMWI0016omWIf@So0000@OoIfMT00ol0003o
fMWIomWIf@0gomWIf@oo0000B?oIfMT004GofMWI1ol00013omWIf@03o`000?oIfMWofMWI03[ofMWI
3Ol00017omWIf@00A?oIfMT7o`0004CofMWI0_l0000nomWIf@_o0000A_oIfMT004?ofMWI1ol00015
omWIf@03o`000?oIfMWofMWI043ofMWI2Ol00015omWIf@00@_oIfMT7o`0004KofMWI00?o0000omWI
fOoIfMT0@ooIfMT7o`0004CofMWI0011omWIf@Oo0000AooIfMT00ol0003ofMWIomWIf@14omWIf@Oo
0000@ooIfMT0043ofMWI1ol00018omWIf@;o0000A_oIfMT:o`0003oofMWI000oomWIf@Oo0000BOoI
fMT00ol0003ofMWIomWIf@16omWIf@co0000??oIfMT003oofMWI1_l0001:omWIf@03o`000?oIfMWo
fMWI04OofMWI3_l0000iomWIf@00?_oIfMT6o`0004_ofMWI00?o0000omWIfOoIfMT0B?oIfMT6o`00
00?ofMWI1_l0000gomWIf@00?OoIfMT6o`0004cofMWI00?o0000omWIfOoIfMT0BOoIfMT6o`0000Go
fMWI0ol0000gomWIf@00??oIfMT7o`0004cofMWI0_l0001;omWIf@Ko0000?_oIfMT003_ofMWI1ol0
001=omWIf@03o`000?oIfMWofMWI04[ofMWI1ol0000?omWIf@Go0000:OoIfMT003[ofMWI1ol0001>
omWIf@03o`000?oIfMWofMWI04_ofMWI1ol0000>omWIf@So00009_oIfMT003WofMWI1ol00016omWI
f@?o00001_oIfMT00ol0003ofMWIomWIf@1omWIf@Oo0000
8_oIfMT=o`0000[ofMWI000fomWIf@Oo0000B_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oI
fMWofMWI04oofMWI1ol0000QomWIf@go00002_oIfMT003GofMWI1ol0001;omWIf@03o`000?oIfMWo
fMWI00GofMWI00?o0000omWIfOoIfMT0D?oIfMT7o`0003OofMWI000domWIf@Oo0000BooIfMT2o`00
00OofMWI00?o0000omWIfOoIfMT0DOoIfMT7o`0003KofMWI000comWIf@Oo0000COoIfMT00ol0003o
fMWIomWIf@05omWIf@03o`000?oIfMWofMWI05;ofMWI1ol0000eomWIf@00omWIf@Ko0000NooIfMT00ol0003ofMWIomWIf@1h
omWIf@Ko00004?oIfMT000kofMWI1Ol0001lomWIf@03o`000?oIfMWofMWI07WofMWI1Ol0000@omWI
f@003OoIfMT6o`0007cofMWI0_l0001jomWIf@Ko00003ooIfMT000cofMWI1_l0001momWIf@03o`00
0?oIfMWofMWI07[ofMWI1_l0000>omWIf@003?oIfMT6o`0007gofMWI00?o0000omWIfOoIfMT0N_oI
fMT6o`0000kofMWI000;omWIf@Ko0000O_oIfMT00ol0003ofMWIomWIf@1komWIf@Ko00003OoIfMT0
00_ofMWI1Ol0001oomWIf@;o0000OOoIfMT5o`0000gofMWI000:omWIf@Ko0000OooIfMT00ol0003o
fMWIomWIf@1lomWIf@Ko00003?oIfMT000WofMWI1_l00020omWIf@03o`000?oIfMWofMWI07gofMWI
1_l0000;omWIf@002OoIfMT6o`00083ofMWI00?o0000omWIfOoIfMT0OOoIfMT6o`0000_ofMWI0008
omWIf@Ko0000POoIfMT00ol0003ofMWIomWIf@1nomWIf@Ko00002_oIfMT000SofMWI1Ol00022omWI
f@;o0000P?oIfMT5o`0000[ofMWI0007omWIf@Ko0000P_oIfMT00ol0003ofMWIomWIf@1oomWIf@Ko
00002OoIfMT000KofMWI1_l0001]omWIf@Go00000ooIfMT00ol0003ofMWIomWIf@02omWIf@?o0000
1_oIfMT00ol0003ofMWIomWIf@20omWIf@Ko00002?oIfMT000KofMWI1_l0001^omWIf@04o`000?oI
fMWofMWIo`0000OofMWI00Go0000omWIfOoIfMWofMWIo`000005omWIf@03o`000?oIfMWofMWI083o
fMWI1_l00008omWIf@001_oIfMT5o`00073ofMWI00?o0000omWIfOoIfMT02ooIfMT00ol0003ofMWI
omWIf@03omWIf@03o`000?oIfMWofMWI087ofMWI1Ol00008omWIf@001_oIfMT4o`0007;ofMWI00?o
0000omWIfOoIfMT02_oIfMT00ol0003ofMWIomWIf@03omWIf@?o0000P_oIfMT4o`0000SofMWI001i
omWIf@05o`000?oIfMWofMWIomWIfOl000001ooIfMT4o`0000KofMWI00?o0000omWIfOoIfMT0S_oI
fMT007WofMWI00Go0000omWIfOoIfMWofMWIo`000007omWIf@03o`000?oIfMWofMWI00OofMWI00?o
0000omWIfOoIfMT0S_oIfMT007[ofMWI0ol00008omWIf@Go00001OoIfMT00ol0003ofMWIomWIf@2>
omWIf@00oooIfMTQomWIf@00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.67467, -1.09377, \
0.0116702, 0.020841}}]
}, Open ]],
Cell["\", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Show[graf1, graf2]\)], "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@03o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoIfMT07_oIfMT00ol0003ofMWIomWI
f@1^omWIf@00MOoIfMT4o`0000cofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@0N
omWIf@03o`000?oIfMWofMWI06kofMWI001fomWIf@Co00002ooIfMT00ol0003ofMWIomWIf@06omWI
f@03o`000?oIfMWofMWI01kofMWI00?o0000omWIfOoIfMT0K_oIfMT007SofMWI1?l00009omWIf@03
o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoIfMT07_oIfMT00ol0003ofMWIomWIf@1^omWIf@00
2OoIfMT3o`0002KofMWI0ol0000VomWIf@Go00006OoIfMT4o`0000SofMWI1?l00006omWIf@03o`00
0?oIfMWofMWI01gofMWI0_l0000VomWIf@?o00009ooIfMT5o`0001[ofMWI000:omWIf@03o`000?oI
fMWofMWI02CofMWI00Go0000omWIfOoIfMWofMWIo`00000VomWIf@04o`000?oIfMWofMWIo`0001_o
fMWI0ol00007omWIf@03o`000?oIfMWo000000OofMWI00?o0000omWIfOoIfMT07OoIfMT00ol0003o
fMWIomWIf@0VomWIf@03o`000?oIfMWofMWI02OofMWI00Co0000omWIfOoIfMWo00006_oIfMT00003
omWIfOl0003o000000?o000000?ofMWIo`000?l000000ol0000OomWIf@Go00001OoIfMT00ol0003o
fMWIomWIf@0MomWIf@Go00000ooIfMT00ol0003ofMWIomWIf@0LomWIf@So000000CofMWIo`000?oI
fMWo00002?oIfMT00ol0003ofMWIomWIf@0LomWIf@03o`000?oIfMWofMWI02KofMWI00?o0000omWI
fOoIfMT0:?oIfMT00ol0003ofMWIomWIf@0JomWIf@001ooIfMT01?l0003ofMWIomWIfOl0000XomWI
f@;o0000:OoIfMT00ol0003ofMWIomWIf@0LomWIf@Go00000ooIfMT00ol0003ofMWIo`000008omWI
f@03o`000?oIfMWofMWI01cofMWI00?o0000omWIfOoIfMT09_oIfMT00ol0003ofMWIomWIf@0YomWI
f@03o`000?oIfMWofMWI01WofMWI0008omWIf@03o`000?oIfMWo000002[ofMWI00?o0000omWIfOoI
fMT08ooIfMT01Ol0003ofMWIomWIfOoIfMWo000001oofMWI1?l00002omWIf@03o`000?oIfMWo0000
00WofMWI00?o0000omWIfOoIfMT06ooIfMT00ol0003ofMWIomWIf@0VomWIf@03o`000?oIfMWofMWI
02KofMWI00Go0000omWIfOoIfMWofMWIo`00000JomWIf@002OoIfMT2o`0002KofMWI00Go0000omWI
fOoIfMWofMWIo`00000UomWIf@05o`000?oIfMWofMWIomWIfOl000008OoIfMT7o`0000[ofMWI00?o
0000omWIfOoIfMT06_oIfMT00ol0003ofMWIomWIf@0UomWIf@;o0000:?oIfMT01Ol0003ofMWIomWI
fOoIfMWo000001[ofMWI000:omWIf@03o`000?oIfMWofMWI02GofMWI0ol0000WomWIf@?o00008ooI
fMT6o`0000_ofMWI00?o0000omWIfOoIfMT06OoIfMT2o`0002OofMWI00?o0000omWIfOoIfMT09ooI
fMT3o`0001_ofMWI0024omWIf@So00002?oIfMT00ol0003ofMWIomWIf@0HomWIf@03o`000?oIfMWo
fMWI06kofMWI0025omWIf@03o`000?oIfMWo000000Oo00001_oIfMT2o`0001SofMWI00?o0000omWI
fOoIfMT0K_oIfMT008GofMWI00?o0000omWIfOoIfMT00ooIfMT8o`0000CofMWI0_l0000FomWIf@03
o`000?oIfMWofMWI06kofMWI0025omWIf@03o`000?oIfMWofMWI00KofMWI2?l00003omWIf@?o0000
4ooIfMT00ol0003ofMWIomWIf@1^omWIf@00QOoIfMT00ol0003ofMWIomWIf@0:omWIfA?o00002_oI
fMT00ol0003ofMWIomWIf@1^omWIf@00ool0000Po`00007ofMWI0007omWIf@03o`000?oIfMWofMWI
00GofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI
00GofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI
00KofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI
00GofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI
00GofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI
00KofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI
00;ofMWI;ol00007omWIf@03o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoIfMT01OoIfMT00ol0
003ofMWIomWIf@06omWIf@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0
003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI00GofMWI00?o0000omWIfOoIfMT01_oIfMT1o`00
007ofMWI0OoIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003ofMWIomWIf@0EomWIfA;o
0000AooIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003ofMWIomWIf@0IomWIf@[o0000
1?oIfMT5o`0004;ofMWI0025omWIf@03o`000?oIfMWofMWI02OofMWI00?o0000omWIfOoIfMT08?oI
fMT6o`0000KofMWI1Ol0000momWIf@00QOoIfMT00ol0003ofMWIomWIf@0WomWIf@03o`000?oIfMWo
fMWI02;ofMWI1_l00009omWIf@Go0000>?oIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT2o`00
02KofMWI1Ol0000omWIf@?o0000;?oIfMT008GofMWI00?o0000
omWIfOoIfMT09ooIfMT00ol0003ofMWIomWIf@0^omWIf@Co00004?oIfMT3o`0002WofMWI0025omWI
f@03o`000?oIfMWofMWI02OofMWI00?o0000omWIfOoIfMT0_oIfMT3o`0001cofMWI0_l0000ComWIf@00QOoIfMT00ol0003ofMWIomWIf@0W
omWIf@03o`000?oIfMWofMWI03_ofMWI0ol0000MomWIf@;o00004OoIfMT008GofMWI00?o0000omWI
fOoIfMT09ooIfMT00ol0003ofMWIomWIf@0lomWIf@;o00007ooIfMT2o`0000oofMWI0025omWIf@03
o`000?oIfMWofMWI02OofMWI00?o0000omWIfOoIfMT0??oIfMT3o`00023ofMWI0_l0000=omWIf@00
QOoIfMT00ol0003ofMWIomWIf@0WomWIf@03o`000?oIfMWofMWI03gofMWI0ol0000QomWIf@;o0000
2ooIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT2o`0003oofMWI0ol0000RomWIf@03o`000?oI
fMWofMWI00SofMWI0025omWIf@03o`000?oIfMWofMWI02OofMWI00?o0000omWIfOoIfMT0?ooIfMT3
o`0002;ofMWI0_l00008omWIf@00QOoIfMT00ol0003ofMWIomWIf@0WomWIf@03o`000?oIfMWofMWI
043ofMWI0ol0000SomWIf@;o00001_oIfMT008GofMWI00?o0000omWIfOoIfMT07ooIfMT3o`0000Go
fMWI00?o0000omWIfOoIfMT0@OoIfMT3o`0002CofMWI00?o0000omWIfOoIfMT00ooIfMT008GofMWI
00?o0000omWIfOoIfMT07_oIfMT01Ol0003ofMWIomWIfOoIfMWo000000CofMWI00?o0000omWIfOoI
fMT0@_oIfMT3o`0002CofMWI0_l00003omWIf@00QOoIfMT00ol0003ofMWIomWIf@0RomWIf@03o`00
0?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT0@ooIfMT2o`0002KofMWI0Ol00001omWIf@7ofMWI
0025omWIf@03o`000?oIfMWofMWI02;ofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0004?ofMWI0ol0
000VomWIf@7o00000OoIfMT008GofMWI00?o0000omWIfOoIfMT07_oIfMT4o`0000GofMWI00?o0000
omWIfOoIfMT0A?oIfMT3o`0002OofMWI0025omWIf@03o`000?oIfMWofMWI01kofMWI00?o0000omWI
fOoIfMT01_oIfMT00ol0003ofMWIomWIf@15omWIf@?o00009_oIfMT008GofMWI00?o0000omWIfOoI
fMT07_oIfMT5o`0000CofMWI00?o0000omWIfOoIfMT0A_oIfMT3o`0002GofMWI0025omWIf@03o`00
0?oIfMWofMWI02OofMWI00?o0000omWIfOoIfMT0AooIfMT2o`0002GofMWI0025omWIf@03o`000?oI
fMWofMWI02OofMWI00?o0000omWIfOoIfMT0AooIfMT3o`0002CofMWI0025omWIf@03o`000?oIfMWo
fMWI02OofMWI0_l00019omWIf@?o00008ooIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0
003ofMWIomWIf@19omWIf@?o00008_oIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003o
fMWIomWIf@1:omWIf@;o00008_oIfMT008GofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003ofMWI
omWIf@1:omWIf@?o00008OoIfMT006cofMWI2?l0000AomWIf@03o`000?oIfMWofMWI02OofMWI00?o
0000omWIfOoIfMT0BooIfMT3o`00023ofMWI001YomWIf@?o00002?oIfMT3o`0000kofMWI00?o0000
omWIfOoIfMT09ooIfMT00ol0003ofMWIomWIf@1OoIfMT00ol0003o
fMWIomWIf@14omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT09ooIfMT00ol0003o
fMWIomWIf@1^omWIf@00=ooIfMT2o`0004OofMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWI
omWIf@0WomWIf@03o`000?oIfMWofMWI06kofMWI000fomWIf@03o`000?oIfMWofMWI04SofMWI00Go
0000omWIfOoIfMWofMWIo`00000YomWIf@03o`000?oIfMWofMWI06kofMWI000eomWIf@03o`000?oI
fMWofMWI04WofMWI00Go0000omWIfOoIfMWofMWIo`00000YomWIf@03o`000?oIfMWofMWI06kofMWI
000domWIf@03o`000?oIfMWofMWI04[ofMWI00Go0000omWIfOoIfMWofMWIo`00000YomWIf@03o`00
0?oIfMWofMWI06kofMWI000comWIf@03o`000?oIfMWofMWI04_ofMWI00Go0000omWIfOoIfMWofMWI
o`00000YomWIf@;o0000KooIfMT003;ofMWI00?o0000omWIfOoIfMT0C?oIfMT01Ol0003ofMWIomWI
fOoIfMWo000002WofMWI00?o0000omWIfOoIfMT0K_oIfMT0037ofMWI00?o0000omWIfOoIfMT0COoI
fMT01Ol0003ofMWIomWIfOoIfMWo000002WofMWI00?o0000omWIfOoIfMT0K_oIfMT0033ofMWI00?o
0000omWIfOoIfMT0C_oIfMT01Ol0003ofMWIomWIfOoIfMWo000002WofMWI00?o0000omWIfOoIfMT0
K_oIfMT002oofMWI00?o0000omWIfOoIfMT0CooIfMT01Ol0003ofMWIomWIfOoIfMWo000002WofMWI
00?o0000omWIfOoIfMT0K_oIfMT002kofMWI00?o0000omWIfOoIfMT0D?oIfMT01Ol0003ofMWIomWI
fOoIfMWo000002WofMWI00?o0000omWIfOoIfMT0K_oIfMT002gofMWI00?o0000omWIfOoIfMT0DOoI
fMT01Ol0003ofMWIomWIfOoIfMWo000002WofMWI0_l0001_omWIf@00;?oIfMT00ol0003ofMWIomWI
f@1BomWIf@05o`000?oIfMWofMWIomWIfOl00000:OoIfMT00ol0003ofMWIomWIf@1^omWIf@00:ooI
fMT00ol0003ofMWIomWIf@1ComWIf@05o`000?oIfMWofMWIomWIfOl00000:OoIfMT00ol0003ofMWI
omWIf@1^omWIf@00:_oIfMT00ol0003ofMWIomWIf@1DomWIf@05o`000?oIfMWofMWIomWIfOl00000
6ooIfMT3o`0000?ofMWI0ol00005omWIf@03o`000?oIfMWofMWI06kofMWI000YomWIf@03o`000?oI
fMWofMWI05GofMWI00Go0000omWIfOoIfMWofMWIo`00000LomWIf@05o`000?oIfMWofMWIomWIfOl0
00000ooIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI06kofMWI000XomWIf@03o`00
0?oIfMWofMWI05KofMWI00Go0000omWIfOoIfMWofMWIo`00000LomWIf@03o`000?oIfMWofMWI00Go
fMWI00?o0000omWIfOoIfMT00_oIfMT00ol0003ofMWIomWIf@1^omWIf@009ooIfMT00ol0003ofMWI
omWIf@1GomWIf@05o`000?oIfMWofMWIomWIfOl000007?oIfMT00ol0003ofMWIomWIf@05omWIf@03
o`000?oIfMWofMWI00;ofMWI0ol0001^omWIf@009_oIfMT00ol0003ofMWIomWIf@1HomWIf@05o`00
0?oIfMWofMWIomWIfOl000007?oIfMT01?l0003ofMWIomWIfOoIfMT4o`0000GofMWI00?o0000omWI
fOoIfMT0K_oIfMT002GofMWI00?o0000omWIfOoIfMT0FOoIfMT01Ol0003ofMWIomWIfOoIfMWo0000
01_ofMWI0_l00003omWIf@03o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoIfMT0K_oIfMT002Co
fMWI00?o0000omWIfOoIfMT0FooIfMT01?l0003ofMWIomWIfOl0000LomWIf@04o`000?oIfMWofMWI
omWIf@Go00001?oIfMT00ol0003ofMWIomWIf@1^omWIf@008ooIfMT00ol0003ofMWIomWIf@1LomWI
f@04o`000?oIfMWofMWIo`0002WofMWI00?o0000omWIfOoIfMT0K_oIfMT002?ofMWI00?o0000omWI
fOoIfMT0G?oIfMT01?l0003ofMWIomWIfOl0000YomWIf@;o0000KooIfMT002;ofMWI00?o0000omWI
fOoIfMT0GOoIfMT01?l0003ofMWIomWIfOl0000YomWIf@03o`000?oIfMWofMWI06kofMWI000QomWI
f@03o`000?oIfMWofMWI05kofMWI00Co0000omWIfOoIfMWo0000:OoIfMT00ol0003ofMWIomWIf@1^
omWIf@008?oIfMT00ol0003ofMWIomWIf@1OomWIf@04o`000?oIfMWofMWIo`0002WofMWI00?o0000
omWIfOoIfMT0K_oIfMT001oofMWI00?o0000omWIfOoIfMT0H?oIfMT01?l0003ofMWIomWIfOl0000Y
omWIf@03o`000?oIfMWofMWI06kofMWI000NomWIf@03o`000?oIfMWofMWI067ofMWI00Co0000omWI
fOoIfMWo0000:OoIfMT00ol0003ofMWIomWIf@1^omWIf@007OoIfMT00ol0003ofMWIomWIf@1RomWI
f@04o`000?oIfMWofMWIo`0002WofMWI0_l0001_omWIf@007?oIfMT00ol0003ofMWIomWIf@1SomWI
f@04o`000?oIfMWofMWIo`0002WofMWI00?o0000omWIfOoIfMT0K_oIfMT001_ofMWI00?o0000omWI
fOoIfMT0I?oIfMT01?l0003ofMWIomWIfOl0000YomWIf@03o`000?oIfMWofMWI06kofMWI000JomWI
f@03o`000?oIfMWofMWI06GofMWI00Co0000omWIfOoIfMWo0000:OoIfMT00ol0003ofMWIomWIf@1^
omWIf@006OoIfMT00ol0003ofMWIomWIf@1VomWIf@04o`000?oIfMWofMWIo`0002WofMWI00?o0000
omWIfOoIfMT0K_oIfMT001SofMWI00?o0000omWIfOoIfMT0IooIfMT01?l0003ofMWIomWIfOl0000Y
omWIf@03o`000?oIfMWofMWI06kofMWI000GomWIf@03o`000?oIfMWofMWI06SofMWI00Co0000omWI
fOoIfMWo0000:OoIfMT2o`0006oofMWI000FomWIf@03o`000?oIfMWofMWI06WofMWI00Co0000omWI
fOoIfMWo0000:OoIfMT00ol0003ofMWIomWIf@1^omWIf@00\
\>"],
ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-4.17015, -11.3682, \
0.023726, 0.166945}}],
Cell[BoxData[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False]], "Output",
CellLabel->"Out[8]="]
}, Open ]],
Cell[BoxData[
\(Clear["\", $Line]\)], "Input",
CellLabel->"In[9]:=",
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[StyleBox["GR\[CapitalAAcute]FICOS EN 3D",
FontColor->RGBColor[0, 0, 1]]], "SectionFirst",
FontColor->RGBColor[1, 0, 1],
Background->RGBColor[0.8, 1, 0.4]],
Cell[TextData[{
"\t",
StyleBox["Plot3D[f[x,y],{x,a,b},[y,c,d}]\t\t\t",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"],
"\npara representan gr\[AAcute]ficamente una funci\[OAcute]n de dos \
variables f(x,y) con x\[Element][a,b] e y\[Element][c,d]."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Plot3D[Sin[x]/\((1 + Cos[y]^2)\), {x, \(-5\), 5}, {y, \(-5\), 5},
AxesLabel \[Rule] {"\", "\", "\"}];\)\)], \
"Input",
CellLabel->"In[1]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[1]:=",
ImageSize->{288, 233.563},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\omWIf@07
o`000?oVeLGoi]G5onKEaOl0003odm_Mo`000006okbQ_P04o`000?nHR/CoV8[4o`0000?oV8[400Go
0000omWIfOoIfMWofMWIo`00001=omWIf@00DooIfMT01?l0003ofMWIomWIfOl0000DomWIf@03o`00
0?oIfMWo000002GofMWI0ol0000
^?l0003oi]G5o`0000SoeKBh00?o0000okRP`?nhX^?o[
c[P00oo[c[P00ol0003oeKBhomFd^006omFd^003o`000?o?/[go000000Ko^:300_l00005oiV^003on_>^003o`000?oVa;?o000000Go
eKBh00?o0000olnb_Oo?/[d00_o?/[d00ol0003o^:30okRP`003okRP`0Co00001_nOXMH00ol0003o
fMWIomWIf@04omWIf@03o`000?oIfMWofMWI04;ofMWI001nomWIf@?o00000_oIfMT00ol0003ofMWI
omWIf@0[omWIf@03o`000?o[c[Sojljh00;ojljh00Go0000onK4/ooVa;?oi/Bco`000004omFd^003
o`000?o?/[gock:m00;ock:m00?o0000okRP`?nhX^?o[c[P0
0oo[c[P00ol0003oi/BconK4/`02onK4/`04o`000?oE];SoeKBho`0000Gock:m00?o0000okRP`?nh
X^003on_>^003o`000?oVa;?oi/Bc00?oi/Bc00?o0000omFd^?l000001oo?/[d01?l0
003o^:30okRP`?l00002ok^ac`03o`000?nk/Loo000000OoWj7F00?o0000omWIfOoIfMT01OoIfMT0
1?l0003ofMWIomWIfOoIfMT5o`0000?ofMWI00?o0000omWIfOoIfMT0=?oIfMT005OofMWI1Ol0000K
omWIf@;o00000ooIfMT00ol0003ofMWIomWIf@0`omWIf@03o`000?o[c[Sojljh00?ojljh00?o0000
onK4/ooVa;^?o[c[P00oo[c[P00ol0003oi/BconK4/`05onK4/`03o`000?o?/[gock:m00Oock:m00?o
0000ok^aconk/Ll00_nk/Ll01Ol0003o^k7?ok^aconk/Loo000000GoWj7F0_l00007omWIf@03o`00
0?oIfMWofMWI00KofMWI00Go0000omWIfOoIfMWofMWIo`00000domWIf@00DOoIfMT5o`0000?ofMWI
00?o0000omWIfOoIfMT05_oIfMT3o`0003WofMWI0_l00004on_>^003o`000?oVa;?oi/Bc00Coi/Bc
00?o0000on74^ol000001oo?/[d2o`0000Co^k7?00Go0000ok^aconk/Loo^k7?o`000002oinQeP?o
000000?oXKg/o`000?oIfMT01OoIfMT3o`0000OofMWI00Go0000omWIfOoIfMWofMWIo`00000domWI
f@00F_oIfMT00ol0003ofMWIomWIf@0BomWIf@?o0000>ooIfMT01?l0003oj/Vcon[9/ol00002on_>
^003o`000?oVa;?oi/Bc00Coi/Bc00Co0000on74^ooQa;_o00001_o?/[d01?l0003ockk9olnnbOl0
0003ok^ac`04o`000?nk/Loo^k7?ok^ac`?o00001OnQ_N`00ol0003ofMWIomWIf@05omWIf@03o`00
0?oIfMWofMWI00KofMWI0ol0000eomWIf@00EooIfMT01Ol0003ofMWIomWIfOoIfMWo0000013ofMWI
0ol0000nomWIf@07o`000?oZbK?oj/Vcon[9/ol0003ojljho`000006onK4/`04o`000?oQa;_ohLBk
o`0000Gock:m00Go0000olnnbOo?_/Wockk9o`000003ok^ac`06o`000?nk/Loo0000o`000?o1b>3o
00001onQ_N`00ol0003ofMWIomWIf@05omWIf@03o`000?oIfMWofMWI03gofMWI001GomWIf@05o`00
0?oIfMWofMWIomWIfOl000003_oIfMT2o`000003omWIfOl0003ofMWI03gofMWI00?o0000on[9/ooZ
bK000ol0003oXKg/oj6mk004oj6m
k003o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoIfMT0??oIfMT005SofMWI0ol0000000ol0003oXKg/oj6mk003o`00
00?oT]gn00?o0000omWIfOoIfMT00_oIfMT3o`0003gofMWI001RomWIf@?o000000?ofMWIo`000?oI
fMT0@_oIfMT00ol0003oj/Vcon[9/`04on[9/`03o`000?obe;;o000000?oi/Bc00?o0000on74^ooQ
a;/01OoQa;/00ol0003ockk9olnnb@06olnnb@;o000000?o`LSPo`000?o1b>001Oo1b>03o`0000Go
T]gn1_l000001?nLX=Oo0000omWIfOl0000lomWIf@00H?oIfMT2o`0004SofMWI00?o0000on[9/ooZ
bK02o`0000;oa>S_00?o0000oi;M
o_nBgOh01_l00005oibPe`;o0000??oIfMT005gofMWI0ol00006omWIf@Go0000?_oIfMT00ol0003o
j/Vcon[9/`04on[9/`07o`000?obe;;ol]Bboo;D/_l0003oi/Bco`000007on74^`03o`000?oLb3o000000Coa>S_0ol0
0002olCng`03o`000?o6]/[o000000KoW:3G00?o0000omWIfOl000008OoIfMT2o`0001SofMWI000m
omWIf@?o00006ooIfMT2o`0000;ofMWI00?o0000omWIfOoIfMT01?l00005ohg:o0?o0000>_oIfMT0
0ol0003oj/Vcon[9/`04on[9/`03o`000?obe;;ol]Bb00?ol]Bb00?o0000on74^ooQa;/01OoQa;/0
1?l0003ogl00ol0003o[o[No`000002olCng`05o`000?o6]/[oa[K:olJfb_l000001_nLX=L00ol0003o
fMWIo`00000RomWIf@03o`000?oIfMWofMWI01GofMWI000nomWIf@03o`000?oIfMWofMWI01OofMWI
0ol00006omWIf@05o`000?o?e=gocmCMoloDgOl000001_n=b_`01?l0003o063;o`000?l0000homWI
f@03o`000?oZbK?oj/Vc00?oj/Vc00?o0000oo;D/_obe;801?obe;800ol0003ohLBkon74^`04on74
^`03o`000?oLbS_0_l00000
1On_n]ko0000olCngoo4o]oo000000Coa[K:00?o0000oibPeonLX=L01?nLX=L00ol0003ofMWIo`00
000IomWIf@Go00001?oIfMT01?l0003ofMWIomWIfOoIfMT3o`0000WofMWI0ol00005omWIf@00=OoI
fMT5o`000003omWIfOl0003o000000?o00005_oIfMT3o`0000OofMWI00?o0000oloDgOo?e=d00oo?
e=d01?l0003oSL[lohg:o?n=b_`7o`0003KofMWI00?o0000on[9/ooZbKoo00000_n_n]h01?l0003oa?kOolCngol00006
olJfbP03o`000?nLX=OoW:3G00?oW:3G00Co0000omWIfOoIfMWo00006OoIfMT01?l0003ofMWIomWI
fOl00004omWIf@04o`000?oIfMWofMWIo`0000gofMWI00?o0000omWIfOoIfMT01?oIfMT003_ofMWI
00Co0000omWIfOoIfMWo00005?oIfMT3o`0000WofMWI00?o0000oloDgOo?e=d01?o?e=d4o`0000?o
ThS400?o0000odmQaOl000000_l0000eomWIf@03o`000?oZbK?oj/Vc00?oj/Vc00?o0000oo;D/_ob
e;801?obe;801?l0003okMJlongF_?l00003on74^`03o`000?oLb8a003oi>8a003o`000?m?HLGoCf7500;oCf75
00?o0000ojXZ0?l00000;OoIfMT00ol0003oiLFfonG5]P04onG5]P;o00001?obe;800ol0003okMJl
ongF_003ongF_005o`000?oTd/Koi=;6onCBa_l000000_oLbomgCc_l0003ofMoLo`000?oQlmWo0000on7cfOl000000_o[k/d0
0ol0003ogL6lomg1_003omg1_003o`000?nhW;co^9bl00Go^9bl00?o0000oiZ8_onJR;l01?nJR;l0
1Ol0003ofMWIomWIfOoIfMWo000000GofMWI00Co0000omWIfOoIfMWo0000;?oIfMT0047ofMWI0ol0
000EomWIf@03o`000?oOc8
a003oi>8a0Co00000_m?HLD2o`000003ojXZ0?l0003ofMWI02WofMWI00?o0000onG5]_oUaKH01?oU
aKH01ol0003om^FeooKU]OofiKGo0000oo;D/_l000001?o]e[`00ol0003oi=;6onCBaP04onCBaP03
o`000?oJcLcof/g]
o`000?l00000:OoIfMT00ol0003oiLFfonG5]P04onG5]P03o`000?ofiKGom^Fe00?om^Fe00?o0000
ongF_?o]e[`00oo]e[`00ol0003oi=;6onCBaP04onCBaP03o`000?oJcLcof/g00CogM?>00Co0000onCHb_oTf00Co0000onCHb_oT
fomgCcP03omgCcP?o00000_oTf]/;o000000Ko^JK600?o0000oifDb_nMU]/;oc[K2o`0000Ko^JK60ol00005oj6/g`03o`000?oIfMWofMWI00?ofMWI0_l0000]omWI
f@00;ooIfMT00ol0003ofMWIomWIf@03omWIf@03o`000?oIfMWofMWI00KofMWI00?o0000omWIfOoI
fMT04?oIfMT00ol0003ohlFjon?5^P04on?5^P03o`000?oN^kKog[^f00;og[^f00Co0000oln^^?o?
[[So00001_o;[K`00ol0003o]Yk0okJN`002o`0000?o^Jk>00?o0000oi^OeonKWmL00onKWmL00ol0
003oJhSMof^8g@02of^8g@03o`000?lZImWo:VOI00Go00006OoIfMT00ol0003ofl6oom_1_`05om_1
_`03o`000?o^n;ook_Ro00;ok_Ro00?o0000onGlb_oUo]/;oc[K200;oc[K200?o0000okVV
a_niY/H00_niY/H00ol0003o_K[Go`000007oj6/g`03o`000?oIfMWofMWI00CofMWI00?o0000omWI
fOoIfMT0:_oIfMT003GofMWI0_l00008omWIf@03o`000?oIfMWofMWI00kofMWI00?o0000on?5^_oS
aKX01?oSaKX00ol0003og[^fomjk]P03omjk]P03o`000?o?[[So000000Oobjfl00?o0000okJN`?l0
00001Oni[/h00ol0003oVioGoi^Oe`04oi^Oe`03o`000?m[R=goJhSM00;oJhSM00Co0000obYWfOlZ
ImWo:VOI0_l000000on[gon?3]ol0003ojmJno`0000GojLRd00Co0000on?2]_oS
`[Kohl:f0_l00002om2_^003o`000?o>]/;oc[K200?oc[K200?o0000okVVa_niY/H00_l00003okfj
e`03o`000?nQ[=ooXJcO00CoXJcO00?o0000omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@0YomWI
f@00=OoIfMT00ol0003ofMWIomWIf@08omWIf@03o`000?oIfMWofMWI00cofMWI0_l00005on?5^P03
o`000?oN^kKog[^f00Gog[^f00?o0000ol^]_?o;[K`01oo;[K`00ol0003o^Jk>okV^cP05okV^cP03
o`000?nKWmOoVioG00?oVioG00?o0000of^8gOm[R=d00om[R=d01?l0003o:VOIobYWfOlZImT2o`00
0003oj/`0?l0003ofMWI01?ofMWI0_l00008om_1_`05o`000?o^n;ook_Roonkh_ol000000ooUogon?3]ol000001OoYb;@00ol0003ohl:fon?2]P03on?2]P03o`00
0?o@[kSo000000Koc[K200?o0000okVVa_l000001_nm^]L00ol0003oXJcOoj6/g`03oj6/g`;o0000
1_oIfMT00ol0003ofMWIomWIf@04omWIf@Go00008?oIfMT003CofMWI0_l0000;omWIf@03o`000?oI
fMWofMWI00_ofMWI00?o0000on;0]_l000001?oSaKX00ol0003og[^fomjk]P05omjk]P03o`000?o;
[Kcobjfl00Kobjfl0_l00007okV^cP04o`000?nKWmOoVioGoi^Oe`co000000Go:VOIo`000?l0003o
Zc00o`00000BomWIf@03o`000?o5^]3o000000Oofl6o00Go0000onkh_oo^n;ook_Roo`000002onGl
bP?o00000ooNimX2o`0000Kof/cg00;ohl>g00?o0000onW8]?oYb;@00ooYb;@00ol0003ohl:fon?2]P03
on?2]P;o00002?o>]/800ol0003o_K[Gokfje`05okfje`03o`000?nQ[=ooXJcO00?o00000_nMcOP0
0ol0003ofMWIomWIf@03omWIf@;o00001_oIfMT01?l0003ofMWIomWIfOl0000PomWIf@00=?oIfMT0
0ol0003ofMWIomWIf@0;omWIf@03o`000?oIfMWofMWI00WofMWI00Go0000on;0]_oR`;Koh/2fo`00
0002on?5^P03o`000?oN^kKog[^f00Gog[^f00?o0000omVk^ol000001_o;[K`01?l0003obkS7ol^h
aol00006okV^cPCo00001?nM_>h00ol0003oHZ;dof:Rm003of:Rm003o`000?lNN^Go000000Ko0000
3ooIfMT01Ol0003oaK[@olFjd?o5^]3o000000Gofl6o00Co0000onkh_oo^n;ook_Ro1Ol00004omkW
fP03o`000?oAbmCo000000Gof/cgon?3]ol0003oklnao`000004onW8]003o`000?oS`[Kohl:f00Cohl:f00?o
0000oljf`_o>]/801Oo>]/82o`0000Oo_K[G0ol00006oig=n003o`000?oIfMWofMWI00Co00001ooI
fMT00ol0003ofMWIomWIf@0PomWIf@00=?oIfMT2o`0000gofMWI00?o0000omWIfOoIfMT02?oIfMT0
0ol0003oh/2fon;0]P02on;0]P03o`000?oSaK[o000000Kog[^f00Go0000omVk^ooI^k_ofK^ko`00
0004ol^]_005o`000?o;^]/801?l0003odom34c_l00004okfje`;o
000000?o`mOYo`000?nMcOP01OnMcOP4o`000003o`X00?l0003oRmKo00;o00001ooIfMT00ol0003o
fMWIomWIf@0OomWIf@008OoIfMT2o`0000CofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0000GofMWI
00?o0000omWIfOoIfMT03OoIfMT2o`0000OofMWI00?o0000on;0]_oR`;H01?oR`;H00ol0003og[^f
omjk]P05omjk]P05o`000?oI^k_ofK^komVk^ol000000oo;[K`00ol0003obkS7ol^ha`03ol^ha`03
o`000?ni[/ko^Jk>00;o00001?nnaMl00ol0003oWKc^oiflkP04oiflkP03o`000?mRX_CoHZ;d00?o
HZ;d00?o0000oaijiOlNN^D01_l0000;omWIf@03o`000?o5^]3oaK[@00CoaK[@00Co0000om_1_ooK
`Koofl6o1?l00003onGlbP03o`000?oNim[og^OJ00;og^OJ00?o0000om7;e?oAbm@00ooAbm@00ol0
003of/co`000003okfje`03o`000?o3enWo`mOY00;o`mOY00?o0000oig=n?nMcOP0
0ol000000omNeN?o0000o`000002o`0000;oRmKo0ol00003omWIf@05o`000?oIfMWofMWIomWIfOl0
00008?oIfMT0023ofMWI00Co0000omWIfOoIfMWo00001ooIfMT01Ol0003ofMWIomWIfOoIfMWo0000
00CofMWI00?o0000omWIfOoIfMT03ooIfMT00ol0003ofMWIomWIf@03omWIf@03o`000?oR`;Koh/2f
00Goh/2f00?o0000omjk]_oN^kH01?oN^kH00ol0003ofK^komVk^`03omVk^`03o`000?o;[Kco0000
00KobkS700?o0000okV^c_l000001onnaMl01?l0003oWKc^oiflk_nM_>h;o`000004oaijiOl0003o
0000oaaXf`?o00001ooIfMT3o`0000SoaK[@2ol00003omkWfP03o`000?oAbmCodL_D00GodL_D00?o
0000om:maOoB_LD01_oB_LD00ol0003oc[2ko`000003om_2`003o`000?oS`kOohl>g00;ohl>g00?o
0000ono?/Oo_ck400oo_ck400ol0003ohl:fon?2]P04on?2]P05o`000?oNaL3og/G0omk5`?l00000
0_o>]/800ol0003odom34cP02om34cP04o`000?nm^]Oo0000o`0000Go`mOY2?l00002oh_Fo`?o
000000CoW8g3o`000?l0003o00000_oIfMT01Ol0003ofMWIomWIfOoIfMWo0000023ofMWI000IomWI
f@Go00000_oIfMT01?l0003ofMWIomWIfOl0000;omWIf@03o`000?oIfMWofMWI00;ofMWI0_l0000A
omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000on;0]_oR`;H01?oR`;H00ol0003oilRfo`000004
omjk]P03o`000?oI^k_ofK^k00GofK^k00?o0000ol^haoo;^
/;_o0000om_2`?l000001OoS`kL00ol0003oklnaono?/@03ono?/@03o`000?oS`[Kohl:f00?ohl:f
00?o0000omk5`?oNaL000_oNaL03o`0000God0_l00006ol?Gj@05o`000?njnNgo0000ohkZ^Ol0
00000ooEin83o`0000GoW8g30_l00003omWIf@?o00008OoIfMT0023ofMWI00Co0000omWIfOoIfMWo
00002ooIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?oIfMWofMWI017ofMWI00Co0000omWIfOoI
fMWo00001ooR`;H01?l0003oilRfonO8]_l00003omjk]P03o`000?oI^k_ofK^k00GofK^k00?o0000
ol^haoo;^oo`nC_ol?Tk`;o0000
0_n9foh6o`0000;oUYkI1Ol00004oaaXf`;o00001_nAY^@00ol0003oaK[@olFjd003o`000003olFj
d?l0003o]__;00;o00000_nYng`olC]l003olC]l0;o00001ooAbm@01?l0003oa[?8
olJcb?l00005om:ma@03o`000?o>/;_oc[2k00;oc[2k00?o0000om_2`?l000001?oS`kL00ol0003o
klnaono?/@03ono?/@03o`000?oaekGo000000?ohl:f00?o0000omk5`?oNaL001?oNaL02o`0000Co
d00Co0000omGEfOoEeMWo00000oo3enT2o`000004ok[ikOl0003oS^Zio`0000?oeNOR00?o0000
okbR__l000001_nLSL/;_oc[2k00?oc[2k00?o0000on?3
]ooS`kL00ooS`kL00ol0003oklnaono?/@03ono?/@04o`000?oaekGolMNeo`0000;ohl:f00?o0000
omk5`?oNaL001?oNaL02o`0000?od00?o0000omGEfOoEeMT00_oEeMT00ol0003o`mOYo`000002
ok[ik@03o`000?n>j[Wo000000?oeNOR00Go0000okbR__nlX[ko_::no`000005oib=``03o`000?oI
fMWo000002KofMWI000PomWIf@04o`000?oIfMWofMWIo`0000OofMWI00?o0000omWIfOoIfMT01OoI
fMT00ol0003ofMWIomWIf@0DomWIf@03o`000?oR`;Koh/2f00Goh/2f00?o0000onO8]_oWb;H00ooW
b;H00ol0003ofK^komVk^`05omVk^`05o`000?oF`g00?ohl>g00?o0000ono?/Oo_ck400_o_ck401ol0003olMNeoo7G]OoaekGo0000on?2]_l0
00001_oNaL001_l0003ofl[9o`000?l0003odo`0000KoeMGI0_l000001?njnNgo0000o`000?l0
0003omGWhP03o`000?nlX[ko_::n00;o_::n00?o0000oib=`onLSLl2o`0000;o]O_V00Go0000
olOki_o7nnKoao_Vo`000006ol>ab@04o`000?nFW]WoUYkIoiJNf@[o00001?nAY^@00ol0003oaK[@
o`000005o`0000?oPmSo0_l000000oo4kO3o0000okk7h@06okk7h@03o`000?oAbmCo000000Ooa[?8
00?o0000om:maOl000001_o>/;/00ol0003oekBfo`000003on?3]`03o`000?o_ck7oklna00?oklna
00?o0000oo7G]OoaekD00_oaekD00ol0003og/G0omk5`004omk5`006o`000?oKb/Wofl[9o`000?o@
aab@03o`000?nfV[_o000000?oUXK00ol00002
ofAY``co000000Co7iO[o`000?n3f?ooPmSo0ol00002oiZkk`03o`000?nnan7o_/OQ00Co_/OQ0_l0
00000oneZlko0000olJcb007olJcb0;o00001_o>/;/00ol0003oekBfomNd]P02omNd]P03o`000?oS
`kOo000000Coklna00?o0000oo7G]OoaekD00_oaekD00ol0003ojMK1o`000003omk5`003o`000?oK
b/Wofl[900?ofl[900?o0000omGEfOl000000ooEeMT01ol0003ogNgMomg]gOoMkMgo0000onCjdOl0
00000ooYflH00ol0003o_::nokbR_P05okbR_P04o`000?nLSL?oW8g3oib=``Co00000_oIfMT00ol0
003ofMWIomWIf@0QomWIf@00ab@04o`000?nfV[_o]YZkokJJ^`?o00000_nFQ/001?l0
003oI6W3ofAY`omTJLko`0000Coc[2k00?o0000omNd]_oG];H01?oG];H00ol0003oklna
ono?/@02ono?/@03o`000?oaekGolMNe00;olMNe00Oo0000onWF`OoYe/7ojMK1o`000?oNaL3o0000
00Gofl[900Oo0000om_@c_l0003oeMGIo`000?oEeMWo000000?ogNgM00?o0000onCjdOl000000ooY
flH00ol0003oe;>ho`000006okbR_PCo00000onMSabOo3/LWo00000_nfV[/3o`0000CoUXK000?o0000ofAY
`omTJLko`00
0004olj`^`03o`000?oG];KoekBf00CoekBf00?o0000ono?/Oo_ck400_o_ck400ol0003olMNeoo7G
]@02oo7G]@03o`000?oYe/7ojMK100;ojMK100?o0000om_:bOoKb/T00ooKb/T01ol0003ofm3>om_@
c_oKdh
o`0000Go_::n00?o0000okNN__l000001_nMS
00Go0000olJcb?o6/lSoa[?8o`000005ol2S^`04o`000?o>/;_oc[2ko`0000KoekBf00?o0000oo7G
]_l000000_o_ck400ol0003olMNeoo7G]@02oo7G]@03o`000?oYe/7ojMK100?ojMK100?o0000om_:
bOoKb/T00_oKb/T00ol0003ofm3>om_@cP03om_@cP?o000000GogNgMo`000?oTn]7oi?[Ao`000003
onWKaP05o`000?oD/kSoe;>homBc^?l000000onlX[h01Ol0003o]ijnokNN__ngW[ko000000GoWHc2
00Go0000omWIfOoIfMWofMWIo`00000QomWIf@00<_oifmt3o uxk000>00Oo]J_>00Co0000olJcb?o6/lSo0000
1_o0Xk/00ol0003oc[2ko`000007omNd]P06o`000?oaekKolMNfo`000?o_ck7o00000ooaekD00ol0
003ojMK1onWF`@03onWF`@03o`000?oPd7oLi3Q00;oLi3Q1?l00005oi^Pe`03o`000?neZlko]J_>00Go]J_>00?o0000
olJcb?l000001oo0Xk/00ol0003oc[2ko`000006omNd]P03o`000?oaekKolMNf00;olMNf0_l00003
oo7G]@03o`000?oYe/7ojMK100;ojMK100Ko0000on3@b?oPdh00;oe;>h00?o0000okbR
__l000001OngW[h00ol0003oWHc2oif@h@03og>@h@03o`000?nKX=OoVj3G00CoVj3G00?o0000okF[c_neZlh01OneZlh2o`0000Wo
`:>k00?o0000omNd]_oG];H01?oG];H00ol0003olMNfoo7G]P03oo7G]P05o`000?ofk;Ko0000oo7G
]Ol000001?oYe/400ol0003oh=38on3@b002on3@b003o`000?oKd00Cofm3>00Ko0000on3F
cOoPe/goh=K=o`000?oYf/D2o`000004onc@^?l0003ojM_6o`0000Koe;>h00?o0000okNN__ngW[h0
1OngW[h00ol0003oWHc2oifkX2o`0000;o=gWS00?o0000og>@hOmcT>400omcT>400ol0
003oVj3Goi^Pe`04oi^Pe`03o`000?neZlko]J_>00?o]J_>00?o0000ojnG__l000002Oo0Xk/00ol0
003oekBfomNd]P04omNd]P03o`000?oaekKolMNf00;olMNf00Go0000ooK/]_ofk;Kom^bfo`000005
onWF`@03o`000?oPd@h@03o`000?nKX=OoVj3G00GoVj3G00?o0000okF[c_neZlh0
0_l00003ojnG_P03o`000?o0Xk_o`:>k00Go`:>k00?o0000olRX^?l000001?oG];H00ol0003olMNf
oo7G]P03oo7G]P04o`000?ofk;Kom^bfooK/]P;o00000ooYe/400ol0003oh=38on3@b002on3@b003
o`000?oJb/Wo000000?ofm3>00?o0000on3FcOoPe/d00_oPe/d00ol0003ojM[5onWJa@02o`0000;o
k=2h00?o0000omBc^?oD/kP01?oD/kP00ol0003oc[2lo`000006okNN_P03o`000?nMSk[o00000_l`I]H2o`0000GoLi3Q00?o0000oi^PeonKX=L01?nKX=L00ol0003o]J_>
o`000005ojnG_P03o`000?o0Xk_o`:>k00Co`:>k00Co0000olRX^?o8Z;So00001?oG];H00ol0003o
lMNfoo7G]P02oo7G]P05o`000?ofk;Kom^bfooK/]_l000000_o]ilL00ol0003ojMK1o`000004on3@
b007o`000?oJb/Wof/[9om[:bOl0003ofm3>o`000004on3Fc@04o`000?oYf/GojM[5o`0000;ok=2h
0_l000000ooV`k?o0000omBc^003omBc^004o`000?o>/;coc[2lo`0000Oo]ijn00?o0000oif/;co000000Ko
]ijn0ol00005oj6NdP03o`000?oIfMWofMWI00;ofMWI0_l00004omWIf@;o00005_oIfMT000;ofMWI
1Ol00004omWIf@04o`000?oIfMWofMWIomWIf@?o00002?oIfMT5o`0000cofMWI0_l00004omWIf@03
o`000?oIfMWofMWI00kofMWI00?o0000omjm]ooN_KL01?oN_KL00ol0003ok]NkonkG^`03onkG^`03
o`000?o[fl?ojm_300?ojm_30_l00005omg8a@03o`000?oHaLOofco`000?oD/kSoe;>ho`000005olj`_003o`000?ngW[ko]ijn00;o]ijn00?o0000ok^^
c?l000001_nQW]801ol0003ofMWIomWIfOoIfMWo0000omWIfOl000001OoIfMT00ol0003ofMWIomWI
f@0DomWIf@000ooIfMT01?l0003ofMWIomWIfOl00004omWIf@04o`000?oIfMWofMWIo`0000_ofMWI
00Go0000omWIfOoIfMWofMWIo`00000BomWIf@;o00003_oIfMT00ol0003og[fgomjm]`05omjm]`03
o`000?o^ek_ok]Nk00;ok]Nk00?o0000on_K`oo[flkol2S^ol00005olRX^003o`000?oG];Ko000000ColMNf
00Go0000ooK/]_ofk;Kom^bfo`000003ongWa`04o`000?oPe/koh=K>o`0000;oh=3800?o0000om[:
bOoJb/T00ooJb/T01_l0003ofLC4omW4a?l0003oh=K=o`0000?ojM[500So0000onc@^?o/d;Sok=2h
o`000?oV`k?o0000onK3/`;o00001_o>/;`00ol0003o]ijnokNN_P02o`0000?o^jko`000?oPd/;`00ol0003o]ijno`000005ok^^c003
o`000?nQW];oXIkB00CoXIkB00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWIomWIf@0IomWIf@00
0ooIfMT3o`0000GofMWI00Co0000omWIfOoIfMWo00000ooIfMT00ol0003ofMWIomWIf@07omWIf@03
o`000?oIfMWofMWI01;ofMWI00?o0000omWIfOoIfMT03?oIfMT00ol0003oekZno`000004omjm]`03
o`000?o^ek_ok]Nk00;ok]Nk00?o0000on_K`oo[flon3FcP03on3FcP03o`00
0?oJb/Wof/[900?of/[900?o0000omW4a?oIac00;oi/>c0ol00006olj`_0;o00001_nk[/`4o`0000?oX[[Z00?o0000
omWIfOoIfMT01OoIfMT00ol0003ofMWIomWIf@0GomWIf@000ooIfMT01?l0003ofMWIomWIfOl0000C
omWIf@05o`000?oIfMWofMWIomWIfOl000004OoIfMT00ol0003ofMWIomWIf@0;omWIf@03o`000?oG
^[koekZn00?oekZn00?o0000omjm]ol000001?o^ek/00ol0003ojm_3on_K``03on_K``03o`000?oO
dL[ogm7:00Cogm7:00?o0000omK5bOoFaLT00_l000000ooHaLOo0000omG1aP05omG1aP03o`000?oG
_;ooekbo00?oekbo0_l00003onC44o`000003o`0n`_l0003o000000Go
LWk?00?o0000oiNc00?o0000on73^_l000001Oo>/;`01?l0003oc[_7oljkaol00004ok^^c003
o`000?o0a]oo000000KoX[[Z00?o0000omWIfOoIfMT01?oIfMT00ol0003ofMWIomWIf@0GomWIf@00
0_oIfMT5o`0000CofMWI00?o0000omWIfOoIfMT03?oIfMT5o`00017ofMWI0_l0000;omWIf@03o`00
0?oG^[koekZn00GoekZn2Ol00002on_K``03o`000?oOdL[ogm7:00Cogm7:1?l00002omK5b@03o`00
0?oE`LKoeL7600CoeL7600?o0000omNl_ooG_;l01?oG_;l01_l0003og;bio`000?l0003oi42
o`000003o`0n`_l0003oLWk?00CoLWk?00?o0000oiN00?oh=K>00?o0000omG4b_oEac00Go0000on73
^_oQ`k[ohL>jo`000003olj`_005o`000?o>^lOoc[_7oljkaol000000_nk[/`2o`0000?o`401?l0003o05OAo`00
0?l0?/83o`0000?oLWk?00?o0000oiNjon73^_l000000_o>/;`00ol0
003oc[_7oljka`02oljka`03o`000?nk[/co000000Ko`7oWZcQ00?o00000_nGc?X00ol0003o
BjShod^Xn004o`000005obedhOl0003o0000o`0n`_l000000_mLL]04o`0000?oUhc51?l00008okBK
_P04o`000?o8Z;Sob:Rho`0000GokN;500?o0000omok]?l000000_oSnMj00;ohL>j0ol00006oljka`03
o`000?o0a]oo`jon73^P03on73^P;o00001Oo>^lL00ol0003od/_Co`000004ol36g`;o0000
0_o2jo44o`000003olRic?l0003oWZGJ00CoWZGJ0_l0000GomWIf@007?oIfMT01?l0003ofMWIomWI
fOl0000;omWIf@03o`000?oIfMWofMWI00;ofMWI00?o0000omWIfOoIfMT01_oIfMT2o`0000SoekZn
00Go0000onk[aoo^jlOok^_7o`000004onS`d0?o00000ooLg=H3o`0000Goe/G900?o0000olnha?o?
^j00?o0000oljkaol000000oo>^lL01_l0003od/_Com;;dooBbm?o
0000ol36g`;o00000oo2jo400ol0003oV^nlo`000003olRic004o`000?nNYM[oWZGJoijUfPCo0000
5ooIfMT001cofMWI00Co0000omWIfOoIfMWo00001ooIfMT4o`0000GofMWI00?o0000omWIfOoIfMT0
1OoIfMT01?l0003oa[Oco`000005on73^P04o`000?oLalGo0000o`0000;oc[_700?o0000om;;
dooBbmjon73^P03on73^P04o`000?oLalGoge_oAc]KodLkFo`000?o1dnL2o`0000;o_?K`1?l00003om7O
hP05o`000?njWkko^YnnokZO__l000001?nHRl@3o`0000CoG7;@00?o0000oiFjon73^P02on73^P03
o`000?oLalGoge_oAc]H00ooAc]H3o`000009okcfl?l0
003o0000onCae_l0003oh]77o`000?oAgn;o000000Co^Ynn00?o0000oiR;a?nHRl@00onHRl@01?l0
003oGF[7o`000?l00003oeabd003o`000?nESe_oAc]H00ooAc]H01Ol0003of^CLom[Tg?oJi=co0000
00;oi?7F00Go0000on;AaooRdLOoh]77o`000006okZO_P03o`000?nHRlCoV8_400;oV8_400?o0000
oeeZaomMJ/L00_l00002oeabd003o`000?nES`01?o3g>`2o`0000Kobko?00?o0000ol:Y`Ol000001Oo?
]L400ol0003ocjjholn^^002oln^^003o`000?oM`;co000000?oj`2o`000003okZhf?l0003obko?00Co
bko?00Go0000ol:Y`Oo2ZL7o`ZW1o`000004olne`@03o`000?o?[[Socjjh00?ocjjh00?o0000onS7
]?oXak@00_oXak@01Ol0003ol]Baoo;D/Oobe;7o000000CokmRj00?o0000omc7aOoLalD00ooLalD0
1_l0003of/gn
omk3__oN`kko000000_ofMWI00?o0000omWIfOoIfMT05?oIfMT002kofMWI0_l00005oiFZi003o`00
0?o6]lcoa[Oom[oc_oJo`000003ol;ng@03o`000?o9incobNO/00?o
bNO/0_l00004ol35gP05o`000?o?aM7oclGAolo5dOl000001_o5/LH00ol0003ockS4o`000007olb^
^`03o`000?oC/;Ko000000;og;bi00?o0000onG4]OoUa;D00ooUa;D00ol0003oilZionO:^@04onO:
^@03o`000?oH_Koof;fo00?of;fo00?o0000omK3aooF`lL00ooF`lL00ol0003odLkFom7>eP03om7>
eP03o`000?oJi=cof^CL00;of^CL00?o0000onCae_l000001?oRdLL00ol0003ocjjho`000005okZO
_P04o`000?nHRlCoV8_4oiR;a0Go00000_mMJ/L3o`0000?oUHc71_l000000ooEk^Co0000o`000005
oi7=o004o`000?o3g>co0000o`0000Co^[SH00Go0000ol^ocoo;_loobko?o`000005ol:Y`@04o`00
0?o?]L7ockG1o`0000Kocjjh00Go0000onS7]?oXakCojom[o0000ol;ng@06o`0000;obNO/00?o0000ol35g_o0aMh01Oo0aMh00ol0003oclGAo`000008
olFaaP03o`000?o`]_oC/;Kodk2fo`000?oL_;Wo000000CoiLBe
00?o0000onO:^OoWb[T01?oWb[T00ol0003ohL[1o`000003omRm_`03o`000?oF`lOoe/?700?oe/?7
00?o0000omO8c?l000000ooAc]H00ol0003of^CLom[Tg002om[Tg004o`000?oTlMKoi?7Fo`0000?o
h]7700Co0000oln^^?o?[[So00001OnjWkh4o`0000;oVX_200?o0000og1da_m`Mnomk3__oN`kko000000cofMWI00?o0000omWIfOoIfMT05?oIfMT002kofMWI0ol0
00001_nEZ^Co0000o`000?l0003oUJ[To`0000?oa[OomgCcP05o`000003on[fbol0003og/>n00;og/>n00?o0000
omWIfOoIfMT03?oIfMT00ol0003ofMWIomWIf@0ComWIf@009_oIfMT3o`0000GofMWI1?l00005oiFZ
i003o`000?o6]lco000000;o00001?oIfMT4o`0000CoWKg_00?o0000ol35g_o0aMh01?o0aMh00ol0
003o]j[`]_oC/;H00ooC/;H0
0ol0003ojomgCc_oMdlko
0000onGJb`;o000000?ok=Roo`000?oN`kh00ooN`kh00ol0003ofMWIomWIf@0`]P03om>`]P07o`000?oXbkWojc?oKc/`01_l00003
on;Aa`03o`000?o?[[Socjjh00?ocjjh00?o0000okZO__l000001?neW;h00ol0003oVX_2oiZ;`P03
oiZ;`P03o`000?m`MomgCc_oMdlko000000;oiM[;
0_l000000oo/f;oo0000omk3_P02omk3_P03o`000?oIfMWofMWI00gofMWI00?o0000omWIfOoIfMT0
4ooIfMT002OofMWI00?o0000omWIfOoIfMT01_oIfMT00ol0003ofMWIomWIf@03o`0000gofMWI00?o
0000oifmkonM_Nl01?nM_Nl00ol0003o``]P03o`000?oXbkWojc?oKc/`00_oKc/`01?l0003ohm76on?Aa_l00003on?6^`03o`000?o?[[Socjjh00Gocjjh
0_l00006okFL_P03o`000?nJRl;oVX_200;oVX_200?o0000og1da_m`MNaooSW/Ol0003o
m>nko`000?o_f;[o00001?oUeomgCc_l0
00000ooUf//02?l0003ok=RooncH_ol0003ojLVdo`000?oN`kko00004?oIfMT00ol0003ofMWIomWI
f@0ComWIf@009ooIfMT00ol0003ofMWIomWIf@08omWIf@03o`000?oIfMWofMWI013ofMWI0ol00003
oifQe`03o`000?ngZ/co]j[o`000002onGJ
b`08o`000?o/f;ook=Roo`000?oYbKCo0000onW9]?l0000AomWIf@03o`000?oIfMWofMWI01?ofMWI
000VomWIf@;o00002ooIfMT2o`00013ofMWI00?o0000oifQeonMXML01?nMXML00ol0003o]j[`]_oC/;H01?oC/;H00ol0003oj9fP03o`0000;oNaooSW/Ol00003ooC_^`;o00000ooU
e9f_mcRMX00_mcRMX2o`00
0008oc1Ca_l0003o0000o`000?lXGM7o0000oceeg_l00005ogV9e`03o`000?nKULgoViG=00?oViG=
00?o0000ok:OaOnbWlD01?nbWlD2o`0000So`:2h00?o0000on;1]_oR`KH00ooR`KH01?l0003on>Na
ooSW/Ol00003ooC_^`06o`000?oXhLcoj>79fP02og>9fP03o`000?lhK=Wo000000Co000000Co
:5gAo`000?l0003o00001?miRML00ol0003oViG=oi^Ec@04oi^Ec@03o`000?nbWlGo/Yo500;o/Yo5
00?o0000ojnD^ol000002?o0X;P00ol0003oh/6fon;1]P02on;1]P04o`000?ohik7on>Nao`0000?o
m>nk00?o0000onSQc?oXhL`00_oXhL`00ol0003ogLg9omg=b@02omg=b@03o`000?oIalOofLO700;o
fLO70_l000000ooUf/_o0000oncH_`02oncH_`04o`000?oYbKCojLVdonW9]0;o00004_oIfMT00ol0
003ofMWIomWIf@0BomWIf@00=ooIfMT00ol0003ofMWIomWIf@0=omWIf@03o`000?nMXMOoWJ7G00Co
WJ7G0_l00006ok6H_@03o`000?o0X[[o`::j00?o`::j00Go0000olNV^?o7Y[SoajJho`000003om>`
]P03o`000?oXbkWojNao`0000;om>nk00?o0000onSQc?oXhL`0
0_oXhL`2o`0000?ogLg900?o0000omW7aooIalL00_oIalL01?l0003of/71om[1`Ol00004oncH_`04
o`000?oYbKCojLVdo`0000;ofMWI00?o0000omWIfOoIfMT03ooIfMT00ol0003ofMWIomWIf@0BomWI
f@00>?oIfMT2o`0000kofMWI00?o0000oifQeonMXML00ol000000onIS`]_l00004onS;^@03o`000?o`g[ko
l=jn00;ol=jn00?o0000onOIaooWfLL00_oWfLL01ol0003oflc;om_9fP03og>9fP03o`000?lhK=Wo>6cI00?o00000olXGM43o`0000;oNHWG
00?o0000oi^EcOnKULd00onKULd00ol0003o/Yo5o`000005ojnD^`03o`000?o0X;So`:2h00Co`:2h
00Ko0000omJj__oF^[ko0000on;1]_l00002ooSW/@05o`000?odkk_om>nkooC_^ol000000ooXhL`0
1_l0003of/k=om[>cOl0003ogLg9o`0000CofLO700Co0000om[1`OoJ`L7of/710_l00002oncH_`05
o`000?oYbKCojLVdonW9]?l000000ooIfMT00ol0003ofMWIomWIf@0>omWIf@03o`000?oIfMWofMWI
01;ofMWI000jomWIf@03o`000?oIfMWofMWI00cofMWI0_l00005oiVnkooC_^ol00003onSQc003o`000?oJc/gof/k=00;of/k=00?o0000omW7aooIalL00ooIalL0
1?l0003of/71om[1`Ol00002on71^003o`000?o/f;oo000000;ojLVd00?o0000omWIfOoIfMT00_oI
fMT00ol0003ofMWIomWIf@0>omWIf@03o`000?oIfMWofMWI01;ofMWI000komWIf@03o`000?oIfMWo
fMWI00_ofMWI00?o0000oiV77cOoJc/d00ooJc/d00ol0003ofLO7omW7a`02omW7a`05o`000?oJ`L7of/71om[1`Ol00000
0ooQ`KP01Ol0003ojLVdonW9]?oYbKCo000000GofMWI00?o0000omWIfOoIfMT03OoIfMT00ol0003o
fMWIomWIf@0BomWIf@00??oIfMT00ol0003ofMWIomWIf@0;omWIf@03o`000?nISc@04om[>c@03o`000?oA_c@07o`000?oA_cE0_l0
0005om_c@03o`000?oA_cOoJc/go000000GodKc600Go
0000om[1`OoJ`L7of/71o`000003on71^005o`000?o_c[7okljaono>/Ol000002_oIfMT00ol0003o
fMWIomWIf@0;omWIf@03o`000?oIfMWofMWI017ofMWI0011omWIf@03o`000?oIfMWofMWI00SofMWI
00?o0000oiVcE00Oo0000omKBeOoFd]Goe];Eo`000?oKc<_o>aM7o0000okk3g@;o00000_o1i_05o`0000Koa;G;1?l000001OoIfMWo0000o`00
0?l07:Go000000GoLg[;00?o0000oiR8`OnHRcOl000001OoA_/Oo_c[7o00003?oIfMT00ol0003ofMWIomWIf@0:omWIf@03o`000?oIfMWofMWI017ofMWI0012
omWIf@03o`000?oIfMWofMWI00OofMWI00Co0000oiVaM400oo>aM43o`000003ol7Vl?l0003o0000
00;o000000?oj>g@o`000?o4]L/01?o4]L/00ol0003ofMWIomWIf@05omWIf@04o`000?l07:Go0000
o`0000?oLg[;00?o0000oiR8`OnHR/Oo_c[7okljao`00
000/Oo_c[7o00003_oIfMT00ol0003ofMWIomWIf@09omWIf@03o`000?oIfMWofMWI
017ofMWI0015omWIf@03o`000?oIfMWofMWI00GofMWI00?o0000oiR=aonHSLL00onHSLL00ol0003o
]YbmokJL_@04okJL_@03o`000?o7Y[So000000Coi]G400?o0000oncfa_l000000ol00002onC/e@03
o`000?oFd]Goe];E00;oe];E00?o0000olZkc?o:^l`00_o:^l`00ol0003od[k7o`000006olfb_`04
o`000?o=ZkSocJ^ho`0000;of;^l00?o0000on6o]_oQ_kH00_oQ_kH00ol0003ojg@o`000003omNl_P03o`000?o4]L_o
000000_ofMWI0_l00002ocI`g0?o00000onHRaM401Ol0003oe]WKomKIfooFfM_o000000;ogo7K00Co0000onS]d?oX
kM3o00001?oG_;h00ol0003ofMWIomWIf@0;omWIf@;o00000olfL=`4o`0000?oUJ3K00?o0000ol6b
boo1///01Oo1///3o`0000;o__K`0_l00002oko:h`05o`000?oBcMGod/gEom;=eOl000001?o6/lP0
0ol0003odKc6o`000005olf__003o`000?oD/KKo000000;ohL6h00Co0000ono>/Oo_c[7o00004OoI
fMT00ol0003ofMWIomWIf@07omWIf@03o`000?oIfMWofMWI017ofMWI0017omWIf@03o`000?oIfMWo
fMWI00CofMWI00?o0000oiR=aonHSLL00onHSLL00ol0003o]YbmokJL_@03okJL_@04o`000?oHi=oo
f>COomSTg`;o000000?oZOFmo`000?o4nnP00_o4nnP2o`0000?oaMSW00?o0000omKBeOl000001oo:
^l`00ol0003ocK:oolfb_`04olfb_`03o`000?o=ZkSocJ^h00?ocJ^h00?o0000on6o]_oQ_kH00_oQ
_kH00ol0003ojL2o`0000Oob[_/Oo_c[7o000001;ofMWI00?o0000omWIfOoIfMT01ooIfMT00ol0
003ofMWIomWIf@0@omWIf@00B_oIfMT00ol0003ofMWIomWIf@02omWIf@03o`000?nHSLOoV8g700?o
V8g700Co0000okJL_OnfW;go00001?oHi=l00ol0003oZOFmo`000004o`0000CoaMSW0_l00002ok^g
e@03o`000?o:^lcob[_g@o`000?oG_;h00ooG_;h00ol0003ofMWIomWIf@0AomWIf@;o000000?o=W3L
o`000?nEX=/01OnEX=/00ol0003o`K;;ol6bb`02o`0000CoV[ka00?o0000oko:honob^Oo0000ok^ge@04ok^ge@05o`000?o:^lcob[_00Go]Z_>00?o0000olJcb?l000001OnoX[/00ol0
003ocJnlo`000004omBa]P05o`000?o`eKKol=Ffoo3E]_l000005ooIfMT00ol0003ofMWIomWIf@04
omWIf@03o`000?oIfMWofMWI013ofMWI001?omWIf@04o`000?oIfMWofMWIomWIf@Co00002_oIfMT0
0ol0003oWjoSoin_h`03oin_h`03o`000?nk]mGo^kOE00;o^kOE0_l000000oncWlCo0000ol:X`006
ol:X`003o`000?o0WkOo000000CocJ^h00?o0000om^j]ooK^[L00_oK^[L01?l0003ol=Vjoo3I^_o`
fKX2o`0000?oiL^l00?o0000omk9a?oNbL@00_oNbL@01ol0003ofokJ[
cP04okJ[cP;o00001onoX[/00ol0003oe;6fomBa]P03omBa]P04o`000?o`eKKol=Ffo`0001WofMWI
00?o0000omWIfOoIfMT00ooIfMT00ol0003ofMWIomWIf@0@omWIf@00D?oIfMT00ol0003ofMWIomWI
f@0?omWIf@03o`000?nO[n?oWjoS00?oWjoS00Co0000ok^geOl0003o00001?ncWl@00ol0003o`ZS0
ol:X`003ol:X`004o`000?o0WkOo`9ngo`0000?ocJ^h00?o0000om^j]ooK^[L00ooK^[L02Ol0003o
l=Vjoo3I^_o`fK[o0000onkP`_l0003oiL^lo`000004omk9a003o`000?oHaLOof
okJ[cP;o000000?o/9Nno`000?noX[/01_noX[/00ol0003oe;6fomBa]P02omBa]P05o`000?o`eKKo
l=Ffoo3E]_l000006OoIfMT00ol0003ofMWIomWIf@04omWIf@03o`000?oIfMWofMWI00oofMWI001A
omWIf@03o`000?oIfMWofMWI00oofMWI00Co0000oin_honO[n?oWjoS0ol00006ok>Oa003o`000?o2
Zo`000?l00004ok2G_P03o`000?noX[_o_j:k00?o_j:k00?o0000olFT^?l00000
0ooD/KH01?l0003ol=Ffoo3E]_l0000KomWIf@03o`000?oIfMWofMWI00?ofMWI00?o0000omWIfOoI
fMT03ooIfMT005;ofMWI00?o0000omWIfOoIfMT03ooIfMT3o`0000;oWIKOa?ncWl@0
1OncWl@01?l0003o`ZS0ol:X`?l00005ol2O]`03o`000?o=ZkSo000000GofkZg00Co0000oo3I^_o`
fK[o00001?o^hOa004ok>Oa003o`000?o2Za?nLS/@01?nLS/@00ol0003o/9Nnok2G_P04ok2G_P04o`000?noX[_o_j:ko`0000CoaJBh
00?o0000omBa]_l000000_o`eKH00ol0003ofMWIomWIf@0LomWIf@05o`000?oIfMWofMWIomWIfOl0
00004OoIfMT005KofMWI00?o0000omWIfOoIfMT03?oIfMT00ol0003oWIKa?nLS/@00onL
S/@00ol0003o/9Nnok2G_P04ok2G_P03o`000?noX[_o000000KoaJBh00Co0000oo3E]_o`eKKo0000
8?oIfMT01?l0003ofMWIomWIfOl0000AomWIf@00EooIfMT00ol0003ofMWIomWIf@0Oa?ncWl@00_l00003ok6E^P03o`000?o0WkOo`9ng00Co`9ng
00?o0000om>e_?l000000_oK^[L01Ol0003ol=Vjoo3I^_o`fK[o000000?ok^3200Go0000on;Eb_oR
eL[oh]G:o`000004omK6bP03o`000?oE`LKoeL7600?oeL7600?o0000omJl`?oF_a?nLS/@00onLS/@00ol0003o/9Nnok2G_P04ok2G_P;o00001oo5Y;P2
o`000003oo3E]_l0003ofMWI023ofMWI00?o0000omWIfOl000004OoIfMT005SofMWI0_l0000Oa?l000001OnaUKX00ol0003o`9ngol2O]`03ol2O
]`07o`000?oC]KcodkFlom>e_?l0003ofkZgo`000002oo3I^P05o`000?o^he_003om>e_0Wo00000ooReLX00ol0003oe/K:omK6bP02omK6bP06o`000?o?
^a003oib>a003o`000?n`
Ukko/9Nn00;o00000_ncVK`00ol0003oaJBholFT^003olFT^005o`000?o/g/Cok=k4oncNa?l00000
8ooIfMT00ol0003ofMWIo`00000@omWIf@00FooIfMT00ol0003ofMWIomWIf@09omWIf@?o00000_nJ
RL400ol0003o/IFjok6E^P05ok6E^P05o`000?o0WkOo`9ngol2O]ol000001OoC]K`01?l0003ol>o4
oo3_a?l00002onWibP06o`000?oOhmOogn?Go`000?oReL[o00001?oFa/X00ol0003ockS4olnha002
olnha003o`000?oF_I_005o`000?o5
Y;SoaJBholFT^?l000000_o/g/@00ol0003ofMWIomWIf@0SomWIf@?o00004?oIfMT005gofMWI0_l0
0009omWIf@03o`000?nJRL7oVXW100;oVXW100?o0000ok6E^_naUKX01?naUKX00ol0003o`9ngo`00
0005om>e_004o`000?o`klCol>o4o`0000;ojOW:00?o0000omoSeooOhmL00_oOhmL01_l0003odI_004ok>I_004o`000?o5Y;SoaJBho`0000?ok=k400?o0000omWIfOoIfMT07ooI
fMT4o`0001?ofMWI001OomWIf@03o`000?oIfMWofMWI00KofMWI00?o0000oiZ9`OnJRL400onJRL40
0ol0003o/IFjok6E^P03ok6E^P;o00001OoC]K`01?l0003ol>o4oo3_a?l00002onWibP03o`000?oO
hmOogn?G00;ogn?G00?o0000om37dOo@am400_o@am400ol0003ockS4olnha003olnha007o`000?o;
[K_objfkol^]^ol0003oe[c0o`000004om^k^@05o`000?oUa;GoiLBeonG4]Ol00000;?oIfMT00ol0
003o3do;o`000003ofeicP03o`000?nJSI_?ncVK`01?ncVK`2o`00
00?ok=k400?o0000omWIfOoIfMT07?oIfMT4o`0001OofMWI001PomWIf@03o`000?oIfMWofMWI00Go
fMWI00?o0000oiZ9`OnJRL400onJRL400ol0003o/IFjok6E^P02ok6E^P03o`000?o2/I_?ncVK`01?nc
VK`2o`0000?ok=k400?o0000omWIfOoIfMT06?oIfMT4o`0001_ofMWI001QomWIf@03o`000?oIfMWo
fMWI00GofMWI00?o0000oiZ9`OnJRL400onJRL401?l0003o/IFjok6E^_l00003ol:`b005o`000?oC
]KcodkFlom>e_?l000000_o`kl@5o`0000;ogn?G00?o0000om37dOo@am400_o@am401?l0003oaK76
olFaa_l00003olnha003o`000?o;[K_objfk00?objfk0_l00002om^k^@03o`000?oUa;GoiLBe00;o
iLBe00?o0000omWIfOoIfMT0;OoIfMT00ol0003oKGW>ofeicP02ofeicP03o`000?nJSI_?ncVK`00oncVK`01_l0003oe>WTomCYi?l0003ok=k4o`0001SofMWI0ol0000O
omWIf@00H_oIfMT2o`0000GofMWI00?o0000oiZ9`OnJRL400onJRL400ol0003o/IFjo`000005ol:`
b003o`000?oC]Kco000000Co00001?o7l>h3o`0000?odI_?l00000
0ooDjN@2o`0001GofMWI1?l0000RomWIf@00I?oIfMT00ol0003ofMWIomWIf@02omWIf@04o`000?nJ
RL7oVXW1oiZ9`@Co00001oo2/I_?ncVKco00000ooDjN@00ol0
003ofMWIomWIf@0AomWIf@Co00009_oIfMT006GofMWI00?o0000omWIfOoIfMT00_oIfMT3o`0000?o
VJ;K00?o0000ol:`b?o2/I_?l000000_oDjN@2o`00013ofMWI1?l0000ZomWIf@00
I_oIfMT01Ol0003ofMWIomWIfOoIfMWo000000KoVJ;K00?o0000ol:`b?o2/WT
o`000?oIfMT03OoIfMT4o`0002kofMWI001WomWIf@05o`000?oIfMWofMWIomWIfOl000001_nIX]/0
0ol0003o`[38ol:`b002o`000004omWIfOl0003o0000o`0000CoW_oIfMT01?l0003oJlSnof_8o_m[b?h4o`00
00_ofMWI1?l0000bomWIf@00J?oIfMT2o`0000;ofMWI00?o0000oiVRfonIX]/00onIX]/00ol0003o
`[38o`000005omWIf@04o`000?nL`?7oWgolBS]ol0003od:jgo`000003onO9^003o`00
0?oIfMWofMWI03OofMWI1?l00019omWIf@00L?oIfMT00ol0003ofMWIomWIf@0g00?o0000om2^]ol00000
0ooWbKP00ol0003ofMWIomWIf@0comWIf@Co0000COoIfMT0077ofMWI00?o0000omWIfOoIfMT02ooI
fMT00ol0003oWHk4oif>a003oif>a003o`000?naV;go/IRm00?o/IRm00?o0000oknR^ol000001_o4
XkL2o`0000;oilVh00?o0000omWIfOoIfMT0a003oif>a003o`000?naV;go/IRm00?o/IRm0_l00007olBS]`05o`000?oUd/?o
0000onO9^?l00000;_oIfMT4o`0005GofMWI001domWIf@03o`000?oIfMWofMWI00WofMWI00?o0000
oif>a?nMS/@00onMS/@01ol0003o/IRmok6H_OnaV;go0000okFI^ol000001_o4XkL01Ol0003oiM;3
onGB`ooUd/?o000002_ofMWI1?l0001IomWIf@00MOoIfMT00ol0003ofMWIomWIf@08omWIf@03o`00
0?nMS/CoWHk400?oWHk400Co0000ok6H_OnaV;go00000oneVK/00ol0003oa:>golBS]`02olBS]`03
o`000?oUd/?oiM;300;oiM;300?o0000omWIfOoIfMT09OoIfMT4o`0005gofMWI001fomWIf@03o`00
0?oIfMWofMWI00OofMWI00?o0000oif>a?nMS/@00onMS/@00ol0003o/IRmo`000004okFI^`03o`00
0?o4XkOoa:>g00;oa:>g00Go0000onGB`ooUd/?oiM;3o`00000TomWIf@Co0000HOoIfMT007OofMWI
0_l00008omWIf@03o`000?nMS/CoWHk400Co00001_neVK/01?l0003oa:>golBS]ol00003onGB``03
o`000?oIfMWofMWI023ofMWI0ol0001UomWIf@00NOoIfMT00ol0003ofMWIomWIf@05omWIf@?o0000
0onLSLgo`0000;oiM;300?o0000omWIfOoI
fMT07OoIfMT4o`0006SofMWI001jomWIf@03o`000?oIfMWofMWI00CofMWI00?o0000oib=`onLSL"],
ImageRangeCache->{{{0, 287}, {232.563, 0}} -> {-0.195913, -0.0517758, \
0.00423311, 0.00423311}}]
}, Open ]],
Cell[TextData[{
"Si queremos dibujar las curvas de nivel de la funci\[OAcute]n f(x,y):\n\t\
",
StyleBox["ContourPlot[f[x,y],{x,a,b},[y,c,d}]\t\t",
FontFamily->"Courier",
FontSize->14,
FontWeight->"Bold"]
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(ContourPlot[
Sin[x]/\((1 + Cos[y]^2)\), {x, \(-5\), 5}, {y, \(-5\), 5}]\)], "Input",
CellLabel->"In[2]:=",
FontSize->14],
Cell[GraphicsData["PostScript", "\"], "Graphics",
CellLabel->"From In[2]:=",
ImageSize->{288, 288},
ImageMargins->{{35, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\c00?o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003oOgmoogmoO`02ogmoO`03o`00
0?mVIVKoIVIV00?oIVIV00?o0000odacok>c/`02ok>c/`03o`000?ocok>c/`03ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o0000ogmoOomoOgl0
0_moOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mc/onc/kc00;o/k>c00?o0000olcc00?o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003oOgmoogmo
O`02ogmoO`03o`000?mVIVKoIVIV00?oIVIV00?o0000odacok>c/`03ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o0000ogmoOomoOgl00_moOgl0
0ol0003oIVIVofIVIP03ofIVIP03o`000?mc/onc/kc/onc/kc00?o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003oOgmoogmoO`02ogmo
O`03o`000?mVIVKoIVIV00?oIVIV00?o0000odacok>c/`02ok>c/`03o`000?ocok>c/`03ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o0000ogmo
OomoOgl00_moOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mc/onc/kc00;o/k>c00?o0000olcc00?o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003o
OgmoogmoO`02ogmoO`03o`000?mVIVKoIVIV00?oIVIV00?o0000odacok>c/`02ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o0000ogmoOomoOgl0
0_moOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mc/onc/kc/onc/kc00;o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003oOgmoogmo
O`02ogmoO`03o`000?mVIVKoIVIV00;oIVIV00?o0000odacok>c/`02ok>c/`03o`000?ocok>c/`02ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o
0000ogmoOomoOgl00_moOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mc/onc/kc00;o/k>c00?o0000olcc00;o/k>c00?o0000oiVIVOnIVIT00_nIVIT0
0ol0003oOgmoogmoO`02ogmoO`03o`000?mVIVKoIVIV00;oIVIV00?o0000odacok>c/`02ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o0000ogmo
OomoOgl00_moOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mc/onc/kc/onc/kc00;o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003o
OgmoogmoO`02ogmoO`03o`000?mVIVKoIVIV00;oIVIV00?o0000odacok>c/`02ok>c/`03o`000?ocok>c/`02ok>c/`03o`000?nIVIWoVIVI00;o
VIVI00?o0000ogmoOomoOgl00_moOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mcok>c/`02ok>c/`03o`000?nIVIWoVIVI00;oVIVI00?o0000ogmoOomoOgl0
0_moOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mc/onc/kc/onc/kc00;o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003oOgmoogmo
O`02ogmoO`03o`000?mVIVKoIVIV00;oIVIV00?o0000odacok>c/`02ok>c/`03o`000?oc00;o/k>c00?o0000oiVIVOnIVIT00_nIVIT00ol0003oOgmoogmo
O`02ogmoO`03o`000?mVIVKoIVIV00;oIVIV00?o0000odac/onc/kc00?o/k>c00?o0000olcc/onc/kc/onc/kc00;o/k>c00?o0000olcc/onc/kc00;o/k>c00?o0000oiVIVOnIVIT00onIVIT00ol0003o
OgmoogmoO`02ogmoO`03o`000?mVIVKoIVIV00?oIVIV00?o0000odacok>c/`02ok>c/`03o`000?oooooo`03o`000?oVi^Koi^KV00[o
i^KV00?o0000olccok>c/`02ok>c/`03o`000?nIVIWoVIVI00?o
VIVI00?o0000ogmoOomoOgl00_moOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mcok>c/`03ok>c/`03o`000?nIVIWoVIVI00?oVIVI00?o0000ogmoOomoOgl0
0_moOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mc/onc/kc00?o/k>c00?o0000oiVIVOnIVIT00onIVIT00ol0003oOgmoogmoO`02ogmoO`03o`00
0?mVIVKoIVIV00?oIVIV00?o0000odac00?o/k>c00?o0000oiVIVOnIVIT00onIVIT00ol0003oOgmoogmoO`03ogmoO`03o`000?mV
IVKoIVIV00;oIVIV00?o0000odaoaTI6@03o`000?lccok>c/`03ok>c/`03o`000?ocok>c/`03ok>c/`03o`000?nI
VIWoVIVI00?oVIVI00?o0000ogmoOomoOgl00omoOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mcok>c/`03ok>c/`03o`000?nIVIWoVIVI00?oVIVI00?o0000
ogmoOomoOgl00omoOgl00ol0003oIVIVofIVIP02ofIVIP03o`000?mc/onc/konKViP03o`000?oc/onc/kc00?o/k>c00?o0000oiVI
VOnIVIT01?nIVIT00ol0003oOgmoogmoO`03ogmoO`03o`000?mVIVKoIVIV00?oIVIV00?o0000odac00?o/k>c00?o0000olcc
/onc/kc/onc/kc/onc/kcok>c/`03ok>c/`03
o`000?nIVIWoVIVI00CoVIVI00?o0000ogmoOomoOgl00omoOgl00ol0003oIVIVofIVIP03ofIVIP03
o`000?mcok>c/`04ok>c/`03o`000?nIVIWoVIVI00CoVIVI00?o0000ogmoOomoOgl0
0omoOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mc00Co/k>c00?o0000olccok>c/`04ok>c/`03o`000?nIVIWoVIVI00CoVIVI00?o0000ogmoOomoOgl0
0omoOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mc00Co/k>c00?o0000oiVIVOnIVIT01?nI
VIT00ol0003oOgmoogmoO`03ogmoO`03o`000?mVIVKoIVIV00?oIVIV00?o0000odac/onc/kcok>c/`04ok>c/`03o`000?nI
VIWoVIVI00CoVIVI00?o0000ogmoOomoOgl00omoOgl00ol0003oIVIVofIVIP03ofIVIP03o`000?mc00Go/k>c00?o0000oiVIVOnIVIT01?nIVIT00ol0003oOgmoogmoO`03ogmoO`03o`000?mVIVKo
IVIV00?oIVIV00?o0000odac/onc/kc/onc/kc/onc/kc
00Go/k>c00?o0000olccok>c/`04ok>c/`03o`000?nIVIWoVIVI00GoVIVI00?o0000ogmoOomoOgl00omoOgl00ol0
003oIVIVofIVIP04ofIVIP03o`000?molcc00Go/k>c00?o0000oiVIVOnI
VIT01?nIVIT00ol0003oOgmoogmoO`04ogmoO`03o`000?mVIVKoIVIV00CoIVIV00?o0000odacok>c/`04ok>c/`03o`000?ocok>c/`05ok>c/`03o`000?nIVIWoVIVI00GoVIVI00?o0000ogmoOomo
Ogl00omoOgl00ol0003oIVIVofIVIP04ofIVIP03o`000?mc/onc/kc00Go/k>c00?o0000olcc00Go/k>c00?o0000oiVIVOnIVIT01OnIVIT00ol0003o
OgmoogmoO`03ogmoO`03o`000?mVIVKoIVIV00CoIVIV00?o0000odac/onc/kc/onc/kcok>c/`05ok>c/`03o`000?nIVIWoVIVI00GoVIVI00?o0000ogmoOomoOgl0
1OmoOgl00ol0003oIVIVofIVIP04ofIVIP03o`000?mc/onc/kcok>c/`06ok>c/`03o`000?oc/onc/kc00Ko/k>c00?o0000oiVIVOnIVIT01OnIVIT0
0ol0003oOgmoogmoO`05ogmoO`03o`000?mVIVKoIVIV00CoIVIV00?o0000odac/onc/kc00Ko/k>c00?o0000oiVIVOnIVIT01OnIVIT0
0ol0003oOgmoogmoO`05ogmoO`03o`000?mVIVKoIVIV00CoIVIV00?o0000odac/onc/kcok>c/`06ok>c/`03o`000?oc/onc/kcok>c/`06ok>c/`03o`000?nIVIWoVIVI00GoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003o
IVIVofIVIP05ofIVIP03o`000?mc00Oo/k>c00?o0000olccok>c/`06ok>c/`03o`000?nIVIWoVIVI00KoVIVI00?o0000ogmoOomoOgl01OmoOgl00ol0003o
IVIVofIVIP05ofIVIP03o`000?mc00Oo/k>c
00?o0000oiVIVOnIVIT01OnIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00GoIVIV
00?o0000odac/onc/kc00Oo/k>c
00?o0000oiVIVOnIVIT01_nIVIT00ol0003oOgmoogmoO`05ogmoO`03o`000?mVIVKoIVIV00GoIVIV
00?o0000odac/onc/kcok>c
/`08ok>c/`03o`000?oc/onc/kcok>c/`08ok>c/`03o`000?nIVIWoVIVI00GoVIVI00?o0000
ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP05ofIVIP03o`000?mc00Wo/k>c00?o0000
olccok>c/`08ok>c/`03o`000?nIVIWoVIVI00KoVIVI00?o0000
ogmoOomoOgl01OmoOgl00ol0003oIVIVofIVIP05ofIVIP03o`000?mc00So/k>c00?o0000oiVIVOnIVIT01_nIVIT00ol0003oOgmoogmoO`06ogmo
O`03o`000?mVIVKoIVIV00KoIVIV00?o0000odac/onc/kc00So/k>c00?o0000oiVIVOnIVIT01onIVIT00ol0003oOgmoogmoO`05ogmo
O`03o`000?mVIVKoIVIV00KoIVIV00?o0000odac/onc
/kcok>c/`09ok>c/`03o`000?oc/onc
/kcok>c/`0:ok>c/`03o`00
0?nIVIWoVIVI00KoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP06ofIVIP03o`00
0?mc00[o/k>c00?o0000olccok>c/`0:ok>c/`03o`00
0?nIVIWoVIVI00OoVIVI00?o0000ogmoOomoOgl01OmoOgl00ol0003oIVIVofIVIP06ofIVIP03o`00
0?mc00Wo/k>c00?o0000oiVIVOnIVIT01onI
VIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00OoIVIV00?o0000odac/onc/kc00[o/k>c00?o0000oiVIVOnIVIT01onI
VIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00OoIVIV00?o0000odacok>c/`0:ok>c/`03o`000?nIVIWoVIVI00OoVIVI00?o0000ogmoOomoOgl01_moOgl0
0ol0003oIVIVofIVIP07ofIVIP03o`000?mc00[o/k>c00?o0000olccok>c/`0:ok>c/`03o`000?nIVIWoVIVI00OoVIVI00?o0000ogmoOomoOgl01_moOgl0
0ol0003oIVIVofIVIP07ofIVIP03o`000?mc
00_o/k>c00?o0000oiVIVOnIVIT01onIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV
00OoIVIV00?o0000odac/onc/kc
00_o/k>c00?o0000oiVIVOnIVIT01onIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV
00OoIVIV00?o0000odac/onc/kcok>c/`0;ok>c/`03o`000?oc/onc/kcok>c/`0;ok>c/`03o`000?nIVIWoVIVI00SoVIVI
00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00_o/k>c
00?o0000olccok>c/`0;ok>c/`03o`000?nIVIWoVIVI00SoVIVI
00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00co/k>c00?o0000oiVIVOnIVIT02?nIVIT00ol0003oOgmoogmo
O`06ogmoO`03o`000?mVIVKoIVIV00SoIVIV00?o0000odac/onc/kc00co/k>c00?o0000oiVIVOnIVIT02?nIVIT00ol0003oOgmoogmo
O`06ogmoO`03o`000?mVIVKoIVIV00SoIVIV00?o0000odac/onc/kcok>c/`0c/`03o`000?oc/onc/kcok>c/`0c
/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP08ofIV
IP03o`000?mc00co/k>c00?o0000olccok>c/`0c
/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP08ofIV
IP03o`000?mc00co/k>c00?o0000oiVIVOnI
VIT02?nIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00SoIVIV00?o0000odac/onc
/kc00co/k>c00?o0000oiVIVOnI
VIT02?nIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00SoIVIV00?o0000odac/onc/kcok>c/`0c/`03o`00
0?oc/onc/kcok>c/`0c/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomoOgl01_mo
Ogl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00co/k>c00?o0000olccok>c/`0c/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomoOgl01_mo
Ogl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00co/k>c00?o0000oiVIVOnIVIT02?nIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKo
IVIV00SoIVIV00?o0000odac/onc/kc00co/k>c00?o0000oiVIVOnIVIT02?nIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKo
IVIV00SoIVIV00?o0000odac/onc/kcok>c/`0c/`03o`000?oc/onc/kcok>c/`0c/`03o`000?nIVIWoVIVI00So
VIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00co
/k>c00?o0000olccok>c/`0c/`03o`000?nIVIWoVIVI00So
VIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc/onc/kcok>c/`0c/`03o`000?oc/onc/kcok>c
/`0c/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIV
IP08ofIVIP03o`000?mc00co/k>c00?o0000olccok>c
/`0c/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIV
IP08ofIVIP03o`000?mc00co/k>c00?o0000
oiVIVOnIVIT02?nIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00SoIVIV00?o0000
odac/onc/kc00co/k>c00?o0000
oiVIVOnIVIT02?nIVIT00ol0003oOgmoogmoO`06ogmoO`03o`000?mVIVKoIVIV00SoIVIV00?o0000
odac/onc/kcok>c/`0c
/`03o`000?oc/onc/kcok>c/`0;ok>c/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomo
Ogl01_moOgl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00_o/k>c00?o0000olccok>c/`0;ok>c/`03o`000?nIVIWoVIVI00SoVIVI00?o0000ogmoOomo
Ogl01_moOgl00ol0003oIVIVofIVIP08ofIVIP03o`000?mc00_o/k>c00?o0000oiVIVOnIVIT01onIVIT00ol0003oOgmoogmoO`06ogmoO`03o`00
0?mVIVKoIVIV00OoIVIV00?o0000odac/onc/kc00_o/k>c00?o0000oiVIVOnIVIT01onIVIT00ol0003oOgmoogmoO`06ogmoO`03o`00
0?mVIVKoIVIV00OoIVIV00?o0000odac/onc/kcok>c/`0;ok>c/`03o`000?oc/onc/kcok>c/`0:ok>c/`03o`000?nIVIWo
VIVI00OoVIVI00?o0000ogmoOomoOgl01_moOgl00ol0003oIVIVofIVIP07ofIVIP03o`000?mc00[o/k>c00?o0000olc