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