La Biblia del Laboratorio

Vista previa del material en texto

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 1065339, 21046]
NotebookOptionsPosition[ 1020513, 20307]
NotebookOutlinePosition[ 1025386, 20440]
CellTagsIndexPosition[ 1024640, 20409]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.744063914788546*^9, 3.744063916464306*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"e76e57db-26b1-4ec7-8b87-03ae00c5340c"],
Cell[TextData[{
 StyleBox["La Biblia del Laboratorio de Calculo ",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[0.5019607843137255, 0., 0.]],
 StyleBox["Versi\[OAcute]n 3.0",
 FontSize->16,
 FontColor->RGBColor[0.5019607843137255, 0., 0.]],
 StyleBox[" ",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[0.5019607843137255, 0., 0.]],
 StyleBox["hecho por Ignacio Isla",
 FontSize->9,
 FontWeight->"Bold",
 FontColor->RGBColor[0.5019607843137255, 0., 0.]]
}], "Text",
 CellChangeTimes->{{3.7327189611241865`*^9, 3.7327189775417194`*^9}, {
 3.732719032158595*^9, 3.732719037157748*^9}, {3.7327190771588926`*^9, 
 3.7327191118483906`*^9}, {3.7340444820990515`*^9, 3.7340444982235565`*^9}, {
 3.734044985528904*^9, 3.734044985660285*^9}, {3.7340466739916286`*^9, 
 3.7340466742744293`*^9}, {3.7440617201182327`*^9, 3.744061759639952*^9}, {
 3.744061816407977*^9, 3.7440618475785446`*^9}, {3.7441101169699955`*^9, 
 3.744110130567935*^9}, {3.744110171151665*^9, 3.7441101725503955`*^9}, {
 3.7656727694374113`*^9, 3.765672769674184*^9}, {3.7658878334983764`*^9, 
 3.7658878386786666`*^9}},
 TextAlignment->Center,ExpressionUUID->"f4f40748-c443-4dd6-bbb6-efac24d4b285"],
Cell[TextData[{
 StyleBox["Esto Hoja esta dirigida a toda persona, hasta para el que no \
entiende nada y no esta nada informado. Env\[IAcute]en esto a cualquier \
persona que le sirva. Esta guia esta basada en el material entregado en los \
los laboratorios de calculo",
 FontColor->RGBColor[1, 0, 0]],
 "\n\nIntroducci\[OAcute]n:\nla idea de esta hoja es mejorar la comprensi\
\[OAcute]n los comandos que nos dan en los laboratorios y ense\[NTilde]ar un \
par de comandos mas que son bastantes \[UAcute]tiles, dejo en claro que en mi \
opini\[OAcute]n la mejor manera de aprender a usarlos es \
\[OpenCurlyDoubleQuote]jugar\[CloseCurlyDoubleQuote] con estos e ir \
entendiendo como funcionan (osea leer y hacer los laboratorios que nos \
envian). Si quieres que te vaya bien en los laboratorios, estudiar y \
aprenderse esta de memoria hoja no es suficiente (de hecho es innecesario), \
lo que necesitas es entender los comandos o tener una idea de cuales puedes \
usar, entender la materia de calculo y hacer las tareas del laboratorio para \
practicar los usos de los comandos. \n\nTambi\[EAcute]n esta hoja esta hecha \
para los que no sepan usar comandos especificos y solo tengan que buscarlo en \
el indice lo que necesitan y ver la explicaci\[OAcute]n.\n\n",
 StyleBox["Dato",
 FontColor->RGBColor[1, 0, 0]],
 "\nCuando aparezca en alguna explicaci\[OAcute]n o despu\[EAcute]s de dar un \
ejemplo ",
 StyleBox["en",
 FontVariations->{"Underline"->True}],
 StyleBox[" c",
 FontFamily->"Source Sans Pro ExtraLight",
 FontVariations->{"Underline"->True}],
 StyleBox["olor azul, un asterisco con un numero",
 FontVariations->{"Underline"->True},
 FontColor->GrayLevel[0]],
 " significa que es algo que: para entender a que se refiere cierta parte de \
la explicaci\[OAcute]n necesitas entender algo que se explicara mas adelante \
(en este caso el uso de esta referencia es para poder entender el comando mas \
a fondo, pero esta hoja esta hecha para que puedas entender el uso del \
comando sin necesidad de saber a lo que se esta haciendo referencia, a menos \
que te lo digan) o que hay un ejemplo de lo que se esta explicando en tal \
parte de la hoja y estar\[AAcute] espec\[IAcute]ficamente en el numero \
referido en el indice del que se habla. \nEjemplo:\n ",
 StyleBox["*3.6 ",
 FontColor->RGBColor[0, 0, 1],
 Background->None],
 StyleBox["(significa que en el capitulo 3.6 habr\[AAcute] una explicaci\
\[OAcute]n o ejemplo de lo que se esta hablando actualmente)",
 FontColor->GrayLevel[0],
 Background->None],
 "\n\nTambi\[EAcute]n para facilitar donde esta el ejemplo o explicada \
referida anteriormente estar\[AAcute] escrito de misma forma la referencia ",
 StyleBox["pero con color morado",
 FontColor->GrayLevel[0]],
 ", para encontrar en que parte especifica esta tal \
explicaci\[OAcute]n/ejemplo.\nEjemplo:\n",
 StyleBox["*3.6 ",
 FontColor->RGBColor[0.5, 0, 0.5]],
 "\n\nPor el caso en que en un capitulo de la hoja hayan dos veces el uso de \
una de estas referencias se usara un guion con un numero para diferenciar a \
que explicaci\[OAcute]n o ejemplo pertenece.\nAclaraci\[OAcute]n:\n",
 StyleBox["*3.6",
 FontColor->RGBColor[0, 0, 1]],
 " es diferente a ",
 StyleBox["*3.6-1",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" porque hacen referencia a distintas explicaciones o ejemplos que \
est\[AAcute]n en el mismo capitulo, osea que ",
 FontColor->GrayLevel[0]],
 StyleBox["*3.6 ",
 FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox["y ",
 FontColor->GrayLevel[0]],
 StyleBox["*3.6-1",
 FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[" estar\[AAcute]n en partes distintas del mismo capitulo.\n",
 FontColor->GrayLevel[0]],
 "\n ",
 StyleBox[" ",
 FontColor->RGBColor[1, 0.5, 0]],
 StyleBox[" ",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["Indice",
 FontSize->36,
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" (Los numeros poseen Hipervinculo)",
 FontColor->RGBColor[0., 0., 0.]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.1",
 BaseStyle->"Hyperlink",
 ButtonData->"1.1"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.1"],
 " Valor num\[EAcute]rico N[x]",
 StyleBox["\t\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.2",
 BaseStyle->"Hyperlink",
 ButtonData->"1.2"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.2"],
 " Par\[EAcute]ntesis LLave { }",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.3",
 BaseStyle->"Hyperlink",
 ButtonData->"1.3"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" .................. ",
 BaseStyle->"Hyperlink",
 ButtonData->"1.3"],
 "Ra\[IAcute]z cuadrada Sqrt[ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.4",
 BaseStyle->"Hyperlink",
 ButtonData->"1.4"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.4"],
 " Comando %",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.5",
 BaseStyle->"Hyperlink",
 ButtonData->"1.5"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.5"],
 " \[Pi], \[ExponentialE], Sin(x), Cos(x) y Tan(x)",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.6",
 BaseStyle->"Hyperlink",
 ButtonData->"1.6"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.6"],
 " Variables ",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.7",
 BaseStyle->"Hyperlink",
 ButtonData->"1.7"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.7"],
 " Borrarvariables con ClearAll y ClearGlobal ",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.0",
 BaseStyle->"Hyperlink",
 ButtonData->"2.0"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.0"],
 " Funciones",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.1",
 BaseStyle->"Hyperlink",
 ButtonData->"2.1"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.1"],
 " Como graficar Funciones con Plot [ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.2",
 BaseStyle->"Hyperlink",
 ButtonData->"2.2"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.2"],
 StyleBox[" Graficar mas de una funcion en el mismo plano con Plot [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.3",
 BaseStyle->"Hyperlink",
 ButtonData->"2.3"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.3"],
 FontColor->RGBColor[0., 0., 0.6274509803921569]],
 StyleBox[" ",
 FontFamily->"Source Sans Pro ExtraLight",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Graficar funciones con Show[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.4 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.4"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.4"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Dominio y Recorrido de una funci\[OAcute]n",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.5 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.5"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.5"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Funciones a Tramos PieceWise[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.6 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.6"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.6"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Como graficar ecuaciones, ontourPlot[ ], graficar puntos y \
circunferencias",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.7 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.7"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox[".................. ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.7"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Reduce[ ] , Table[ ] y Sum [ ] ",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.8 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.8"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.8"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Como graficar Table[ ] con ListTable[ ] y Show[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.0 ",
 BaseStyle->"Hyperlink",
 ButtonData->"3.0"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.0"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Expand[ ], Factor[ ], Simplify[ ] y Abs[ ](valor absoluto)",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.1 ",
 BaseStyle->"Hyperlink",
 ButtonData->"3.1"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.1"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Limites y Derivadas",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.2 ",
 BaseStyle->"Hyperlink",
 ButtonData->"3.2"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.2"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Solve [ ] y Reduce [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.3",
 BaseStyle->"Hyperlink",
 ButtonData->"3.3"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.3"],
 FontColor->RGBColor[0, 0, 1]],
 " Funci\[OAcute]n Piso o Parte entera, Floor[ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.4",
 BaseStyle->"Hyperlink",
 ButtonData->"3.4"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.4"],
 " FindMinmum [ ] y FindMaximum [ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.5",
 BaseStyle->"Hyperlink",
 ButtonData->"3.5"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.5"],
 StyleBox[" FindRoot[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.1 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.1"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.1"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Como Pintar areas de funciones con ",
 FontColor->GrayLevel[0]],
 StyleBox["Filling",
 FontSize->16,
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.2 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.2"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.2"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Integrate [ ] y NIntegrate [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.3 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.3"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.3"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Sumas de Riemann",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.4 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.4"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.4"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" RevolutionPlot3D [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.5 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.5"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.5"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Polinomios de Taylor usando Series [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontFamily->"Source Sans Pro ExtraLight"],
 "\n\n\n\n"
}], "Text",
 CellChangeTimes->{{3.7307510247514296`*^9, 3.7307510956693664`*^9}, {
 3.732718602596159*^9, 3.7327186395176334`*^9}, {3.7327191537257433`*^9, 
 3.7327191727964706`*^9}, {3.7327192091107864`*^9, 3.7327192597388887`*^9}, 
 3.732719300763888*^9, {3.732719461402277*^9, 3.73271951028164*^9}, {
 3.732720481863985*^9, 3.7327205839806285`*^9}, {3.7327206864651723`*^9, 
 3.7327208241769953`*^9}, {3.7339603130712852`*^9, 
 3.7339603522230673`*^9}, {3.733961352221697*^9, 3.7339613636429825`*^9},{
 3.73396140349555*^9, 3.733961414177891*^9}, {3.733964360783088*^9, 
 3.733964395583483*^9}, {3.733964439136566*^9, 3.733964651960837*^9}, 
 3.7339647476475153`*^9, {3.7339648023947697`*^9, 3.733965025340719*^9}, {
 3.7339650854686103`*^9, 3.733965113812894*^9}, {3.734008374072563*^9, 
 3.73400838873098*^9}, {3.7340084277008643`*^9, 3.734008553398749*^9}, {
 3.734008615437196*^9, 3.7340086349326262`*^9}, {3.7340086726195145`*^9, 
 3.734008709463791*^9}, {3.734008749843674*^9, 3.7340087685877624`*^9}, {
 3.7340114248212748`*^9, 3.7340115146240454`*^9}, {3.7340115531044674`*^9, 
 3.734011865617236*^9}, {3.7340124034179735`*^9, 3.7340126074661913`*^9}, {
 3.734012764641083*^9, 3.7340128703811502`*^9}, {3.7340129118136053`*^9, 
 3.734012916754121*^9}, 3.7340134529107575`*^9, {3.734013657810244*^9, 
 3.734013658233514*^9}, {3.7340148305943527`*^9, 3.734014912596698*^9}, {
 3.7340207645228887`*^9, 3.7340210665027065`*^9}, {3.73402110065142*^9, 
 3.734021238474384*^9}, {3.734021271759144*^9, 3.734021286090128*^9}, {
 3.7340232960431585`*^9, 3.7340233128475347`*^9}, {3.7340408471306086`*^9, 
 3.734040898274479*^9}, {3.7340421757275314`*^9, 3.7340422153810205`*^9}, {
 3.73404226162416*^9, 3.7340422674821053`*^9}, {3.7340423034471693`*^9, 
 3.7340423047219486`*^9}, {3.734042339023946*^9, 3.7340425157374725`*^9}, {
 3.7340425521256075`*^9, 3.7340425769718103`*^9}, {3.7340426313259373`*^9, 
 3.734042727113407*^9}, {3.734043119302734*^9, 3.734043134730749*^9}, {
 3.734043171672332*^9, 3.734043335181961*^9}, {3.7340433706594424`*^9, 
 3.734043596206908*^9}, {3.734043636558399*^9, 3.734043669407651*^9}, {
 3.73404455366768*^9, 3.7340451905824165`*^9}, {3.7340452362220545`*^9, 
 3.7340456334243374`*^9}, {3.734045664941246*^9, 3.734045781850812*^9}, {
 3.734045813972395*^9, 3.7340460170404763`*^9}, {3.73404604794947*^9, 
 3.7340460593267355`*^9}, {3.734046110881933*^9, 3.7340461173148823`*^9}, {
 3.734046153952652*^9, 3.7340463276909275`*^9}, {3.7340465187325096`*^9, 
 3.7340465869741926`*^9}, {3.734046631285526*^9, 3.734046631684824*^9}, {
 3.7340468566636114`*^9, 3.734046915950143*^9}, {3.734046950807928*^9, 
 3.7340469508845606`*^9}, {3.7340479221129084`*^9, 3.734047978259799*^9}, {
 3.7340482999248247`*^9, 3.7340483012688646`*^9}, {3.734048332630285*^9, 
 3.734048334715804*^9}, {3.7340507720730953`*^9, 3.7340508006168995`*^9}, {
 3.7340508748703594`*^9, 3.7340508827570744`*^9}, {3.7340509316914835`*^9, 
 3.734050990843589*^9}, {3.734093742758112*^9, 3.734093758556307*^9}, {
 3.7340938457160635`*^9, 3.734093882281505*^9}, {3.734093925167633*^9, 
 3.734093935900408*^9}, {3.734093971318513*^9, 3.7340940649343653`*^9}, {
 3.7342136696610403`*^9, 3.734213762900058*^9}, {3.7345633450676994`*^9, 
 3.734563348557459*^9}, 3.742901017791304*^9, {3.742942905750416*^9, 
 3.7429429323824368`*^9}, {3.7429985794371862`*^9, 3.742998585598215*^9}, 
 3.7430231677072625`*^9, {3.7440662101043067`*^9, 3.744066242172451*^9}, {
 3.7440662999525757`*^9, 3.744066394418796*^9}, {3.744066491713811*^9, 
 3.7440665783289027`*^9}, {3.744138789813716*^9, 3.7441388092950497`*^9}, {
 3.744138841059084*^9, 3.744138860258731*^9}, {3.7441390819158196`*^9, 
 3.7441390823755045`*^9}, {3.7441392065055437`*^9, 3.744139206688776*^9}, {
 3.744139267453324*^9, 3.7441393213500557`*^9}, {3.7441393950654554`*^9, 
 3.744139432970802*^9}, {3.7441395498087473`*^9, 3.7441396158902564`*^9}, {
 3.744139649990453*^9, 3.744139659855155*^9}, {3.744139709264941*^9, 
 3.7441397547049446`*^9}, {3.7441400048790736`*^9, 3.744140031025934*^9}, {
 3.7441400624282513`*^9, 3.7441401195107393`*^9}, {3.7441404907925467`*^9, 
 3.7441405154306154`*^9}, {3.7442313914812994`*^9, 3.744231402580426*^9}, {
 3.765672010707987*^9, 3.7656720107140584`*^9}, {3.765672088138101*^9, 
 3.7656720881441655`*^9}, {3.7656721526739283`*^9, 
 3.7656721526739283`*^9}, {3.765672701253809*^9, 3.765672766014151*^9}, {
 3.7656728122343187`*^9, 3.7656729133539104`*^9}, {3.76567297861436*^9, 
 3.765673003143695*^9}, {3.7656730349242535`*^9, 3.765673062733833*^9}, {
 3.765673119743658*^9, 3.765673152293969*^9}, {3.765673205024021*^9, 
 3.7656732050343323`*^9}, {3.7656733003944583`*^9, 3.765673508404438*^9}, 
 3.765673733837205*^9, {3.7656737953832493`*^9, 3.7656738461082726`*^9}, {
 3.7656738911940813`*^9, 3.7656739051045156`*^9}, {3.765674664604555*^9, 
 3.765674801969162*^9}, 3.7657140340894117`*^9, {3.7657140745713434`*^9, 
 3.765714079682609*^9}},ExpressionUUID->"5791520a-8353-4990-8043-\
e2032f5499df"],
Cell[BoxData[{
 RowBox[{
 RowBox[{"f", "[", "x_", "]"}], ":=", 
 RowBox[{"Piecewise", "[", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{
 RowBox[{"1", "/", "8"}], "*", 
 RowBox[{"x", "^", "2"}]}], ",", 
 RowBox[{
 RowBox[{"-", "2"}], "\[LessEqual]", "x", "\[LessEqual]", "2"}]}], 
 "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"Indeterminate", ",", 
 RowBox[{"x", "<", 
 RowBox[{"-", "2"}]}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"Indeterminate", ",", 
 RowBox[{"x", ">", "2"}]}], "}"}]}], "}"}], 
 "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"q1", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"PointSize", "[", "0.03", "]"}], ",", "Red", ",", 
 RowBox[{"Point", "[", 
 RowBox[{"{", 
 RowBox[{"5", ",", "2"}], "}"}], "]"}]}], "}"}]}], ";", 
 RowBox[{"q2", "=", 
 RowBox[{"Graphics", "[", 
 RowBox[{"{", 
 RowBox[{"Dashed", ",", 
 RowBox[{"Circle", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"5", ",", "2"}], "}"}], ",", 
 RowBox[{"3", "/", "10"}]}], "]"}]}], "}"}], "]"}]}], ";", 
 RowBox[{"q3", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"PointSize", "[", "0.03", "]"}], ",", "Red", ",", 
 RowBox[{"Point", "[", 
 RowBox[{"{", 
 RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}]}], ";", 
 RowBox[{"q4", "=", 
 RowBox[{"Graphics", "[", 
 RowBox[{"{", 
 RowBox[{"Dashed", ",", 
 RowBox[{"Circle", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"3", ",", "2"}], "}"}], ",", 
 RowBox[{"3", "/", "10"}]}], "]"}]}], "}"}], "]"}]}], 
 ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"x", "-", "1.75"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "1.64", ",", "1.65"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"x", "-", "1.75"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"6", "+", "2", "-", "1.64"}], ",", 
 RowBox[{"6", "+", "2", "-", "1.65"}]}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"f", "[", 
 RowBox[{"x", "-", "4"}], "]"}], "+", "0.5"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "1.5", ",", "8"}], "}"}]}], "]"}], ",", 
 RowBox[{"Graphics", "[", "q1", "]"}], ",", 
 RowBox[{"Graphics", "[", "q3", "]"}], ",", "q2", ",", "q4", ",", 
 RowBox[{"PlotRange", "->", 
 RowBox[{"{", 
 RowBox[{"0", ",", "2.5"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
 3.73445081804105*^9, {3.7344508507532854`*^9, 3.7344508866523533`*^9}, {
 3.7344509209526644`*^9, 3.7344509401299105`*^9}, {3.73445097081693*^9, 
 3.7344510457441497`*^9}, {3.734451230330224*^9, 3.7344512322450647`*^9}, {
 3.7344512631634884`*^9, 3.7344512949415703`*^9}, {3.734451325437642*^9, 
 3.7344513429880714`*^9}, {3.7344513765429945`*^9, 
 3.7344513770262594`*^9}, {3.7344657247060924`*^9, 3.73446575546115*^9}, {
 3.734465907745473*^9, 3.7344659475210466`*^9}, {3.734465997953286*^9, 
 3.7344660240851135`*^9}, {3.7344660873193645`*^9, 
 3.7344661522897396`*^9}, {3.7344662166983304`*^9, 
 3.7344662618920765`*^9}, {3.7344663286160283`*^9, 3.734466576616929*^9},{
 3.7344666513907666`*^9, 3.734466657892062*^9}, {3.734466838845745*^9, 
 3.734466838955328*^9}, {3.734466927512516*^9, 3.7344669684134426`*^9}, {
 3.7344670319169436`*^9, 3.7344671899536476`*^9}, {3.7344672241670494`*^9, 
 3.734467498990656*^9}, {3.734467547564529*^9, 3.734467548518176*^9}, {
 3.734467592981526*^9, 3.7344676235503225`*^9}, {3.7345225600060234`*^9, 
 3.734522606235837*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"1921dc3b-0e42-4aa7-bfc3-cde1e11da525"],
Cell["\<\
 
\
\>", "Text",
 CellChangeTimes->{{3.765672212325144*^9, 
 3.7656722145939727`*^9}},ExpressionUUID->"8536716e-122e-4f94-8d41-\
9979a10f1c2a"],
Cell[TextData[{
 StyleBox[ButtonBox["1.1",
 BaseStyle->"Hyperlink",
 ButtonData->"Indice"],
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],
 Background->None],
 StyleBox["\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],
 Background->None],
 StyleBox["Valor num\[EAcute]rico N[x], se usa para determinar el valor num\
\[EAcute]rico de una expresi\[OAcute]n",
 Background->None]
}], "Text",
 CellChangeTimes->{
 3.733961368262466*^9, {3.7340290698070602`*^9, 3.7340290711896305`*^9}, {
 3.734042308710981*^9, 3.7340423094598885`*^9}, {3.734051014145804*^9, 
 3.7340510282831993`*^9}, {3.7656722064444246`*^9, 3.765672221044182*^9}, {
 3.765887908413303*^9, 3.765887908413303*^9}},
 CellTags->"1.1",ExpressionUUID->"bcfdeccc-a84e-4944-b132-51365affddd7"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"N", "[", 
 RowBox[{"1", "/", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.732719519766224*^9, 3.732719537757199*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"96988ee3-2148-440c-9d96-6f82505a576c"],
Cell[BoxData["0.3333333333333333`"], "Output",
 CellChangeTimes->{3.7327195383651147`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"81c45f00-1d2d-4bfc-837f-d8e19a2d2184"]
}, Open ]],
Cell["\<\
Al usarlo as\[IAcute] se mostraran en el Out solo los primero 6 \
d\[IAcute]gitos desde la izquierda, Ejemplo:\
\>", "Text",
 CellChangeTimes->{{3.7327197484387636`*^9, 3.73271976015374*^9}, {
 3.73271981074337*^9, 3.7327198195657473`*^9}, {3.732720608078535*^9, 
 3.7327206160578003`*^9}},ExpressionUUID->"4ef8df1b-e504-42ae-b15b-\
bf984890137a"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"N", "[", "54872734529", "]"}]], "Input",
 CellChangeTimes->{{3.7327197364770813`*^9, 3.7327197427083535`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"d50459a9-ee5a-42ed-8275-42afc47754e1"],
Cell[BoxData["5.4872734529`*^10"], "Output",
 CellChangeTimes->{3.7327197438033495`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"6737b96a-aca9-41c5-a303-22938b1de60e"]
}, Open ]],
Cell["\<\
Para que se muestren, mas d\[IAcute]gitos se puede usar el mismo comando de \
la forma:
N[x,a] , x es el numero y a es la cantidad de d\[IAcute]gitos que se \
ver\[AAcute]n desde el primer numero desde la izquierda distinto de 0\
\>", "Text",
 CellChangeTimes->{
 3.7327195057205505`*^9, {3.7327195502935495`*^9, 3.732719644525013*^9}, {
 3.7327196954380054`*^9, 3.7327197137775383`*^9}, {3.732719837902959*^9, 
 3.7327198393192673`*^9}, {3.7327206215377393`*^9, 3.732720632419634*^9}, 
 3.7339622492115765`*^9, {3.7340213170156465`*^9, 3.734021317370734*^9}, {
 3.7340510605491734`*^9, 3.7340511162516966`*^9}, {3.7340511572889485`*^9, 
 3.7340511619180756`*^9}},ExpressionUUID->"7ad3c000-b386-423d-ad13-\
37a65a4b1660"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"N", "[", 
 RowBox[{"54872734529", ",", "8"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
 RowBox[{"2", "/", "3000"}], "]"}]}], "Input",
 CellChangeTimes->{{3.732719778066842*^9, 3.732719778429759*^9}, {
 3.734051175385225*^9, 3.734051182343021*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"798a8f67-fb99-44bc-b582-4ddaccb635a4"],
Cell[BoxData["5.4872734529`8.*^10"], "Output",
 CellChangeTimes->{
 3.732719779553046*^9, {3.734051176549304*^9, 3.734051183039424*^9}},
 CellLabel->"Out[4]=",ExpressionUUID->"a8e205a1-7ee9-41a4-af8f-0abe81e03db5"],
Cell[BoxData["0.0006666666666666666`"], "Output",
 CellChangeTimes->{
 3.732719779553046*^9, {3.734051176549304*^9, 3.734051183043937*^9}},
 CellLabel->"Out[5]=",ExpressionUUID->"cbab9ce8-2939-496b-82de-efcb72cc16a0"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.2\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["P",
 FontSize->14,
 FontColor->GrayLevel[0]],
 "ar\[EAcute]ntesis de llave { } se aplica para listas, cada elemento \
separados por coma *sirve separar cualquier tipo de elemento (graficas",
 StyleBox["*2.1",
 FontColor->RGBColor[0, 0, 1]],
 ", funciones, valores, limites",
 StyleBox["*3.1",
 FontColor->RGBColor[0, 0, 1]],
 " ... etc). Las llaves cuando estan dentro de un comando tienen otro \
significado.\nEjemplos:"
}], "Text",
 CellChangeTimes->{{3.7307513615134554`*^9, 3.730751376870898*^9}, {
 3.732719281285493*^9, 3.732719283378202*^9}, {3.732719857856675*^9, 
 3.7327198748598194`*^9}, {3.7339619751263*^9, 3.733962048014837*^9}, {
 3.7340290764499617`*^9, 3.7340290808728204`*^9}, {3.73404108161825*^9, 
 3.734041126234702*^9}, {3.7340411933535233`*^9, 3.734041221939639*^9}, {
 3.7340413157222853`*^9, 3.734041315835966*^9}, {3.734563127165284*^9, 
 3.734563189826253*^9}, {3.7441382557048244`*^9, 3.744138255878454*^9}},
 CellTags->"1.2",ExpressionUUID->"8f5b2805-76ec-4163-8019-b79554e830c5"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"{", " ", 
 RowBox[{
 RowBox[{"N", "[", 
 RowBox[{"2", "/", "3000"}], "]"}], " ", ",", " ", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"2", "/", "3"}], " ", ",", " ", "12"}], "]"}]}], " ", 
 "}"}]], "Input",
 CellChangeTimes->{{3.6984359547571626`*^9, 3.6984359606860685`*^9}, {
 3.7099098751930027`*^9, 3.709909898067129*^9}, {3.7340511455768976`*^9, 
 3.7340511461073017`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"d5446761-3e29-4a9d-8127-6b460f027176"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 "0.0006666666666666666`", ",", 
 "0.66666666666666666666666666666666666667`12."}], "}"}]], "Output",
 CellChangeTimes->{3.6984359621235266`*^9, 3.7099098993171005`*^9, 
 3.7340511474791727`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"7d24c5e3-10e5-4ae2-989c-9912d7f56906"]
}, Open ]],
Cell["", "Text",
 CellChangeTimes->{{3.73396217793906*^9, 
 3.733962207154162*^9}},ExpressionUUID->"0512cb82-c154-44dc-93cb-\
dcc33d7ab71f"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "3"}], "]"}], ",", " ", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "4"}], "]"}], ",", " ", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "5"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "6"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.6796687413154335`*^9, 3.679668790828486*^9}, {
 3.697816908525304*^9, 3.697816909119001*^9}, {3.6978172617976246`*^9, 
 3.6978172740489635`*^9}, {3.6978174552872734`*^9, 3.69781753048297*^9}, 
 3.732720056608761*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"35fa27f6-51e7-43af-a893-4f26516c9b91"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 "1.709975946676696877`3.", ",", "1.709975946676696877`4.", ",", 
 "1.709975946676696877`5.", ",", "1.709975946676696877`6."}], 
 "}"}]], "Output",
 CellChangeTimes->{
 3.679668791750354*^9, 3.679670050767521*^9, 3.6978169186824946`*^9, 
 3.6978172752678485`*^9, 3.697817500792173*^9, 3.6978175327018347`*^9, 
 3.697817603162589*^9, 3.729901362595821*^9, {3.732720066872731*^9, 
 3.7327200772645144`*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"2706471c-b6ba-4358-974f-962ca84a813a"]
}, Open ]],
Cell[TextData[StyleBox["la funcion g esta definida en el capitulo *2.0",
 FontColor->RGBColor[0, 0, 1]]], "Text",
 CellChangeTimes->{{3.7327200895358887`*^9, 3.732720109298199*^9},{
 3.733962077937892*^9, 3.733962142082879*^9}, 3.7339621722247915`*^9, {
 3.733962210001231*^9, 3.733962240842064*^9}, 3.7340410755918756`*^9, {
 3.734041131686166*^9, 3.734041133416892*^9}, {3.734041364408525*^9, 
 3.7340413933931847`*^9}, {3.7340463749196205`*^9, 
 3.7340463772190037`*^9}},ExpressionUUID->"c9927134-5a44-4f0c-900a-\
214503411f30"],
Cell[TextData[{
 StyleBox["1.3\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 " Ra\[IAcute]z cuadrada"
}], "Text",
 CellChangeTimes->{{3.7099101377409444`*^9, 3.709910151073163*^9}, {
 3.709910187597929*^9, 3.709910221264656*^9}, {3.730751116539698*^9, 
 3.730751129105796*^9}, {3.7327192889354897`*^9, 3.7327192966668663`*^9}, 
 3.734029107213969*^9, 3.734051194645514*^9},
 CellTags->"1.3",ExpressionUUID->"4a0e9c80-4dde-4dc1-b494-ca89134aed14"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Sqrt", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7307511374854918`*^9, 3.7307511550866985`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"8ea68744-8c98-4118-93b4-7f5aa04a99b1"],
Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{3.730751156472698*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"5b04d174-6f4e-41f2-a356-b6cb756ab28e"]
}, Open ]],
Cell["Ra\[IAcute]z cuadrada de la ra\[IAcute]z cuadrada de 3 mas 1", "Text",
 CellChangeTimes->{{3.7307511637330484`*^9, 3.7307511930520334`*^9}, {
 3.7327193070310593`*^9, 
 3.7327193356652794`*^9}},ExpressionUUID->"c9ec0386-86cb-43d9-a77b-\
cd5599b07b8e"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Sqrt", "[", 
 RowBox[{
 RowBox[{"Sqrt", "[", "3", "]"}], "+", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.709910159548114*^9, 
 3.7099101771771765`*^9}},ExpressionUUID->"6a03f42b-cb5c-4900-8706-\
d23fdc28b244"],
Cell[BoxData[
 SqrtBox[
 RowBox[{"1", "+", 
 SqrtBox["3"]}]]], "Output",
 CellChangeTimes->{
 3.70991017883342*^9},ExpressionUUID->"f8da50a3-c14c-400c-ac73-51018070536b"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.4\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 " El comando",
 StyleBox[" ",
 FontWeight->"Bold"],
 StyleBox["% ",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]],
 "realiza la operaci\[OAcute]n sobre el \[UAcute]ltimo dato calculado. Al \
usarlo se usara lo que esta dentro del ultimo Out generado."
}], "Text",
 CellChangeTimes->{{3.709910236121117*^9, 3.709910290708033*^9}, 
 3.7099103797350607`*^9, {3.73075122500955*^9, 3.7307512414141607`*^9}, {
 3.7327193392347617`*^9, 3.7327194049165354`*^9}, {3.7327199058812504`*^9, 
 3.732719912489853*^9}, {3.7327206378486247`*^9, 3.732720643987297*^9}, {
 3.732720696674027*^9, 3.7327206984006243`*^9}, {3.733961044514075*^9, 
 3.733961047768547*^9}, 3.734029111211811*^9},
 CellTags->"1.4",ExpressionUUID->"1285d75d-7de0-4a76-a370-b35e0c0c8f02"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"N", "[", 
 RowBox[{"%", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.709910297525218*^9, 
 3.7099103153668375`*^9}},ExpressionUUID->"93f518aa-69a7-4f47-9868-\
485481286894"],
Cell[BoxData["1.65289165028106948009584147101503434347`10."], "Output",
 CellChangeTimes->{
 3.7099103162461114`*^9},ExpressionUUID->"039752c4-5149-485f-a85a-\
30f3272c148e"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.5",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "\nPi = \[Pi]\n",
 StyleBox["E =\[ExponentialE]",
 FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.6796695445495825`*^9, 3.6796695896745853`*^9}, {
 3.697816925058323*^9, 3.697817059822719*^9}, {3.6978173891083775`*^9, 
 3.697817403953718*^9}, {3.6978176122573185`*^9, 3.6978176363069105`*^9}, 
 3.7307513966543636`*^9, {3.730751440555833*^9, 3.7307514542563004`*^9}, {
 3.7327201302258167`*^9, 3.7327201325929956`*^9}, {3.732720700657858*^9, 
 3.7327207013348255`*^9}, {3.7339602639014883`*^9, 3.7339602739535418`*^9}},
 CellTags->"1.5",ExpressionUUID->"7179b8c7-d1a4-4108-a79e-57a9178a9c31"],
Cell[CellGroupData[{
Cell[BoxData[{"Pi", "\[IndentingNewLine]", "E"}], "Input",
 CellChangeTimes->{{3.6796696026582246`*^9, 3.679669621267767*^9}, {
 3.7307514013122597`*^9, 3.730751402429329*^9}, {3.733960291892292*^9, 
 3.733960292278449*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"878f01e7-120e-452d-8430-166bd675bdea"],
Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{{3.6796696090801272`*^9, 3.6796696226584287`*^9}, 
 3.7307514043783665`*^9, 3.733960294810845*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"02e6b184-1866-4268-a364-90cac39cc50a"],
Cell[BoxData["\[ExponentialE]"], "Output",
 CellChangeTimes->{{3.6796696090801272`*^9, 3.6796696226584287`*^9}, 
 3.7307514043783665`*^9, 3.7339602948148537`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"9ab0d0e9-40ac-4cb0-8a4d-d85ebfb0e5c0"]
}, Open ]],
Cell["\<\
Para escribir las funciones trigonom\[EAcute]tricas se usan los siguientes \
comandos\
\>", "Text",
 CellChangeTimes->{{3.733960366857743*^9, 3.7339603871284266`*^9}, {
 3.7339604617903447`*^9, 
 3.7339604934451113`*^9}},ExpressionUUID->"437fee40-5365-43fe-8bc1-\
8dc0626f1f3d"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Sin", "[", "Pi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Tan", "[", "Pi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Cos", "[", "Pi", "]"}]}], "Input",
 CellChangeTimes->{{3.733960397208111*^9, 3.7339604475291834`*^9}, {
 3.7339604963351707`*^9, 
 3.733960549348168*^9}},ExpressionUUID->"3d74b17e-b7c0-46ef-950a-\
2fc0c33c17ee"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.7339604149139895`*^9, 3.733960448118597*^9}, 
 3.7339605388891616`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"0f9205c9-cb74-4b55-8184-3428b6f71ee9"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.7339604149139895`*^9, 3.733960448118597*^9}, 
 3.7339605388941846`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"91edf357-8cbb-43a4-9eb9-7c1b3565eceb"],
Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{{3.7339604149139895`*^9, 3.733960448118597*^9}, 
 3.7339605388966813`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"da87fae1-d47e-4cf1-86af-31288a2b38a7"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.6\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "Variables: se pueden definir las letras, combinaciones de letras o s\
\[IAcute]mbolos (que no est\[EAcute]n ya definidas por el programa) y decir \
que son: un conjunto de elementos, funciones ",
 StyleBox["*2.0",
 FontColor->RGBColor[0, 0, 1]],
 " ,un valor, una gr\[AAcute]fica ",
 StyleBox["*2.1",
 FontColor->RGBColor[0, 0, 1]],
 "... etc (b\[AAcute]sicamente iguales a casi cualquier Out o in que puedas \
poner el en programa), y despu\[EAcute]s el programa los recordara."
}], "Text",
 CellChangeTimes->{{3.73396379007281*^9, 3.7339638510707445`*^9}, {
 3.733963890931802*^9, 3.733964154971349*^9}, {3.7339642551991663`*^9, 
 3.7339642554250317`*^9}, {3.734023223003209*^9, 3.734023233952407*^9}, {
 3.7340232774454947`*^9, 3.7340232819233217`*^9}, {3.734023340816448*^9, 
 3.7340233455720797`*^9}, {3.7340236758994617`*^9, 3.7340236956065216`*^9}, {
 3.7340291162835407`*^9, 3.7340291301822424`*^9}},
 CellTags->"1.6",ExpressionUUID->"999dc809-28e3-44c0-846b-9f7d0ab37f22"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"p", "=", "3"}], "\[IndentingNewLine]", 
 RowBox[{"k", "=", 
 RowBox[{"Sqrt", "[", "2", "]"}]}]}], "Input",
 CellChangeTimes->{{3.733963861243534*^9, 3.7339638804498577`*^9}, {
 3.733964164603965*^9, 3.733964190161763*^9}, {3.7339642491581697`*^9, 
 3.7339643372571173`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"101156dd-52c1-4c7f-ac6e-0f7cbdb151db"],
Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.7339638639951982`*^9, 3.7339638781866055`*^9}, 
 3.733964190827817*^9, 3.7339643012601147`*^9, 3.733964337781047*^9, 
 3.7340231195512533`*^9, 3.7345632791033506`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"4d4aebf8-4fc8-41d5-8a75-b2870b13570e"],Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{{3.7339638639951982`*^9, 3.7339638781866055`*^9}, 
 3.733964190827817*^9, 3.7339643012601147`*^9, 3.733964337781047*^9, 
 3.7340231195512533`*^9, 3.734563279116401*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"aa55d63e-73d3-4797-ae73-f0da80864149"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"k", "+", "p"}], "\[IndentingNewLine]", 
 RowBox[{"k", "*", "p"}]}], "Input",
 CellChangeTimes->{{3.7339641932313027`*^9, 3.7339641965717955`*^9}, 
 3.733964258881875*^9, {3.7339643149842587`*^9, 3.7339643269192286`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"5c947823-19b7-498e-bf9c-8383d75a080c"],
Cell[BoxData[
 RowBox[{"3", "+", 
 SqrtBox["2"]}]], "Output",
 CellChangeTimes->{
 3.7339641969355965`*^9, {3.7339643277551055`*^9, 3.7339643398178053`*^9}, 
 3.7340231221997757`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"982f5b26-54f2-40ac-97d3-10ad4bec6fd4"],
Cell[BoxData[
 RowBox[{"3", " ", 
 SqrtBox["2"]}]], "Output",
 CellChangeTimes->{
 3.7339641969355965`*^9, {3.7339643277551055`*^9, 3.7339643398178053`*^9}, 
 3.734023122206746*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"39fc6e7b-7f73-4a9c-8286-19a31ccbbd30"]
}, Open ]],
Cell[TextData[{
 "El programa lee las combinaciones de letras o s\[IAcute]mbolos como \
variables diferentes (tambi\[EAcute]n esto incluye a los n\[UAcute]meros el \
programa considera por ejemplo a k12 como una variable), si quieres hacer una \
operaci\[OAcute]n entre dos variables tienes que indicarlo en el Input (de \
hecho tambi\[EAcute]n pasa lo mismo con los n\[UAcute]meros si es que los \
pones despues de la variable si los pones antes el programa los lee como una \
multiplicacion), de otro modo el programa lo leer\[AAcute] como una variable \
sin definir. ",
 StyleBox["*3.0",
 FontColor->RGBColor[0, 0, 1]],
 "\nEjemplo: (pensando en que ya definimos k y p antes)"
}], "Text",
 CellChangeTimes->{{3.7340229894557323`*^9, 3.7340231144925013`*^9}, {
 3.734023198410932*^9, 3.734023211227722*^9}, {3.73403430137716*^9, 
 3.7340343654733953`*^9}, {3.734034423004444*^9, 3.734034435221445*^9}, {
 3.734034479999612*^9, 3.7340345057109623`*^9}, {3.734035182675497*^9, 
 3.734035190085951*^9}, {3.734563236257434*^9, 
 3.734563266016508*^9}},ExpressionUUID->"a06c234a-e131-4fa6-a7a3-\
020ef022b7f4"],
Cell[CellGroupData[{
Cell[BoxData[{"kpk", "\[IndentingNewLine]", "k1", "\[IndentingNewLine]", 
 RowBox[{"k", "*", "p", "*", "k"}], "\[IndentingNewLine]", 
 RowBox[{"k5", "=", "12"}], "\[IndentingNewLine]", 
 RowBox[{"5", "k"}], "\[IndentingNewLine]", 
 RowBox[{"kp", "=", "800"}]}], "Input",
 CellChangeTimes->{{3.7340231260445166`*^9, 3.734023177685115*^9}, {
 3.7340232558825874`*^9, 3.7340232565609207`*^9}, {3.7340343691758747`*^9, 
 3.734034403832835*^9}, {3.7345632706665783`*^9, 3.7345632759931045`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"dd8019ec-d6be-45d8-922f-2043bf98d847"],
Cell[BoxData["kpk"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.73456328527181*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"761e7609-320c-4c8b-9870-789ef9833fc4"],
Cell[BoxData["k1"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.7345632852874565`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"03905acb-1329-4d9e-8b12-dabe55969059"],
Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"cb14aa3e-47bf-43a4-894a-33d397cc43f4"],
Cell[BoxData["12"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"d5d9f451-5486-4e34-91e6-9857a246a7cd"],
Cell[BoxData[
 RowBox[{"5", " ", 
 SqrtBox["2"]}]], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"1c94ab33-3459-4c0f-9410-6dd1facec8d1"],
Cell[BoxData["800"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"23c1bb64-650b-4fdb-98d7-ed2157c20f38"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{"kp", "\[IndentingNewLine]", 
 RowBox[{"k5", "*", "3"}]}], "Input",
 CellChangeTimes->{{3.7340231893986998`*^9, 3.7340231895210733`*^9}, {
 3.734034398050846*^9, 3.7340343994849834`*^9}, {3.7340344503233747`*^9, 
 3.7340344565100307`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"0bb4a0dd-2be0-46f6-8b92-cd71491e3f9b"],
Cell[BoxData["800"], "Output",
 CellChangeTimes->{3.734023191788829*^9, 3.734034459185315*^9, 
 3.734563289002062*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"a3c74f62-9f82-4d8e-867e-03d72cc4ea50"],
Cell[BoxData["36"], "Output",
 CellChangeTimes->{3.734023191788829*^9, 3.734034459185315*^9, 
 3.734563289005014*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"dcef2b20-d922-459f-bbbc-fd0fa4548048"]
}, Open ]],
Cell[TextData[{
 "\n",
 StyleBox["1.7\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "El comando",
 StyleBox[" ",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["ClearAll limpia asignaciones anteriores",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[".",
 FontWeight->"Bold"],
 "\nEsto se usa despu\[EAcute]s de haber hecho un problema para que no queden \
huellas de asignaciones anteriores para una letra en especifico (tambi\
\[EAcute]n sirve para borrar funciones ",
 StyleBox["*2.0",
 FontColor->RGBColor[0, 0, 1]],
 ". Osea cuando hemos definido algo en especifico para una inc\[OAcute]gnita. \
Ejemplo x=1 "
}], "Text",
 CellChangeTimes->{{3.6978177065175695`*^9, 3.697817896147414*^9}, {
 3.6978181655044565`*^9, 3.697818241512685*^9}, {3.697818528354838*^9, 
 3.6978186083165693`*^9}, {3.697818749019126*^9, 3.697818785929511*^9}, {
 3.697819418169421*^9, 3.6978194777695894`*^9}, 3.697826551081898*^9, {
 3.6982725231164455`*^9, 3.698272603606604*^9}, {3.698358463942144*^9, 
 3.69835847830302*^9}, 3.698358661435993*^9, {3.7099104897941837`*^9, 
 3.7099105196407275`*^9}, {3.729901439490587*^9, 3.7299014517099943`*^9}, {
 3.730751480033722*^9, 3.7307514805186763`*^9}, {3.7307516818769*^9, 
 3.730751691973129*^9}, {3.7307518162259398`*^9, 3.7307518166270504`*^9}, {
 3.7327201857869067`*^9, 3.732720213675894*^9}, {3.732720297403878*^9, 
 3.7327203858215275`*^9}, {3.7327204686445203`*^9, 3.732720475177862*^9}, {
 3.7327207050247297`*^9, 3.7327207057724752`*^9}, 3.7327208654767623`*^9, {
 3.7339605626117296`*^9, 3.7339606490564547`*^9}, {3.733963905316197*^9, 
 3.7339639133467283`*^9}, {3.734021344271856*^9, 3.734021396599432*^9}, {
 3.7340231826677704`*^9, 3.7340231850247326`*^9}, {3.7340291220344887`*^9, 
 3.7340291237512417`*^9}},
 CellTags->"1.7",ExpressionUUID->"65a2338b-85a1-4d37-a150-d08fda03ef12"],
Cell[BoxData[
 RowBox[{
 RowBox[{"ClearAll", "[", "x", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6978179309480658`*^9, 3.697818014535181*^9}, {
 3.697818157128582*^9, 3.6978181596758456`*^9}, {3.6978188929097877`*^9, 
 3.6978188937223635`*^9}, {3.697818987154309*^9, 3.69781901847018*^9}, {
 3.69781964782755*^9, 3.6978196502497005`*^9}, 3.6983586376997786`*^9, {
 3.698436186722922*^9, 3.698436187455285*^9}, 3.7307515396945467`*^9, 
 3.730751582072279*^9, 3.730751673687481*^9, {3.7307522323372517`*^9, 
 3.7307523512166395`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"d990a36a-8916-4364-bf13-d5650490a559"],Cell["\<\
Para borrar todas las asignaciones incluyendo funciones derivadas etc... Se \
usa este comando:\
\>", "Text",
 CellChangeTimes->{
 3.7327204094815865`*^9, {3.732720879199299*^9, 
 3.7327208938356237`*^9}},ExpressionUUID->"4546ff92-4d48-4720-8554-\
9c476f7be73b"],
Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7327204530982904`*^9, 3.732720453117849*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"c3ee4feb-a348-43ed-ad71-ed888296af51"],
Cell["\<\
Dato: si tienes otra hoja de trabajo abierta y le pones una \
asignaci\[OAcute]n a una variable esta se vera afectada tambi\[EAcute]n el la \
otra hoja de trabajo, asi que lo mas recomendable es que si empiezas una hoja \
nueva lo mejor es usar el comando ClearAll[\[OpenCurlyDoubleQuote]Global`*\
\[CloseCurlyDoubleQuote]] para asigurarse de que no haya ninguna asiganacion \
a variables.\
\>", "Text",
 CellChangeTimes->{{3.7299044138439913`*^9, 3.7299044178129673`*^9}, {
 3.732720216197957*^9, 3.7327202850268445`*^9}, {3.7327204008967867`*^9, 
 3.7327204038946447`*^9}, 3.7327204617439723`*^9, {3.734022790201296*^9, 
 3.734022973050519*^9}, {3.7340236200352297`*^9, 3.734023620445266*^9}, {
 3.73403452190851*^9, 
 3.7340345502982492`*^9}},ExpressionUUID->"7d0e9c2f-f347-448c-b2f5-\
93a079793eb6"],
Cell[TextData[{
 StyleBox["2.0",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" Definici\[OAcute]n de una Funci\[OAcute]n",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[0., 0., 1.]],
 StyleBox[" ",
 FontSize->36,
 FontColor->RGBColor[0., 0., 1.]],
 StyleBox["\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["2.0*",
 FontSize->18,
 FontColor->RGBColor[0.5, 0, 0.5]],
 " ",
 StyleBox["L",
 FontSize->14],
 StyleBox["a funci\[OAcute]n definida por ",
 FontSize->14,
 FontColor->GrayLevel[0]],
 Cell[BoxData[
 FormBox[
 RowBox[{
 RowBox[{"g", "(", "s", ")"}], "=", 
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], 
 RowBox[{"1", "/", "3"}]]}], TraditionalForm]],
 FontSize->14,ExpressionUUID->"28066fed-d449-4432-bbcc-2c3be046f507"],
 StyleBox[" se define mediante el comando: ",
 FontSize->14,
 FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{
 3.6983693242334166`*^9, {3.7327208330419636`*^9, 3.7327208448023844`*^9}, {
 3.7327209410752335`*^9, 3.7327209432572002`*^9}, {3.73402250150383*^9, 
 3.734022532808524*^9}, {3.7340225845074224`*^9, 3.7340226609910636`*^9}, {
 3.734029165330927*^9, 3.7340291664847775`*^9}, 3.7340345199539547`*^9, {
 3.734034553011245*^9, 3.73403455852777*^9}},
 CellTags->"2.0",ExpressionUUID->"d9e1a951-fc92-441b-b2c9-89c878b51d27"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{
 RowBox[{"g", "[", "s_", "]"}], "=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], "^", 
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6610958214120455`*^9, 3.6610958214120455`*^9}, 
 3.6610958887523556`*^9, 3.661096047005429*^9, {3.6610966466599593`*^9, 
 3.661096651008296*^9}, {3.67966866723685*^9, 3.6796686842242856`*^9}, {
 3.6796700063997726`*^9, 3.6796700358611856`*^9}, 3.6978156792207055`*^9, {
 3.6978163504649887`*^9, 3.6978163750457487`*^9}},
 CellLabel->
 "In[381]:=",ExpressionUUID->"d1929da1-f7fd-49e3-bf62-c986bf224cc5"],
Cell[BoxData[
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], 
 RowBox[{"1", "/", "3"}]]], "Output",
 CellChangeTimes->{
 3.6978156857995415`*^9, 3.697815839284842*^9, 3.6978162897552958`*^9, 
 3.697816418659822*^9, 3.6978195790774193`*^9, 3.7327200733693457`*^9, {
 3.7340214658352213`*^9, 3.734021480464226*^9}, 3.7340242400121474`*^9, 
 3.7340243349255943`*^9, 3.7340415534281464`*^9},
 CellLabel->
 "Out[381]=",ExpressionUUID->"852ed77f-16b1-4a02-9081-a444f9232a67"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.7340415463340673`*^9, 3.7340415502600327`*^9}},
 CellLabel->
 "In[382]:=",ExpressionUUID->"bf28f183-b4de-4d1d-8aef-26672226ae3f"],
Cell[BoxData[
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "x"}], ")"}], 
 RowBox[{"1", "/", "3"}]]], "Output",
 CellChangeTimes->{3.7340415552388124`*^9},
 CellLabel->
 "Out[382]=",ExpressionUUID->"26077670-cb72-4330-bd5d-410ff3694ee4"]
}, Open ]],
Cell[TextData[StyleBox["Para que el comando funcione es necesario que la \
letra g y s no posean asignaciones desde antes asi que en caso de que los \
tengan hay que usar el comando ClearAll en las variables.",
 FontSize->14,
 FontColor->GrayLevel[0]]], "Text",
 CellChangeTimes->{{3.7340226788471794`*^9, 
 3.7340227710449924`*^9}},ExpressionUUID->"95e93847-02a7-4e9c-888c-\
6557cd554f96"],
Cell["\<\
Al escribir la funci\[OAcute]n quedara registrado para tomar valores siempre \
y cuando pongas la letra correspondiente seguida de llaves con un valor dentro\
\>", "Text",
 CellChangeTimes->{
 3.734021683217634*^9},ExpressionUUID->"3f32bf47-3b1d-47e8-a4a2-\
06974c04a22c"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7299011972119417`*^9, 3.729901201087184*^9}},
 CellLabel->
 "In[112]:=",ExpressionUUID->"9e51c9a5-589a-4a59-aea0-81400caa88c0"],
Cell[BoxData[
 SuperscriptBox["5", 
 RowBox[{"1", "/", "3"}]]], "Output",
 CellChangeTimes->{3.72990120188406*^9, 3.734024359370756*^9},
 CellLabel->
 "Out[112]=",ExpressionUUID->"40ab5c4a-eacd-411c-87ce-bdbe84237a1b"]
}, Open ]],
Cell["\<\
Si quieres borrar la asignaci\[OAcute]n para que ya no tome valores y \
simplemente quede como una funcion no definida (osea como g[x] en este caso), \
debes usar el comando ClearAll y poner dentro la variable correspondiente, en \
este caso para borrar la funcion g:\
\>", "Text",
 CellChangeTimes->{{3.7340214419959316`*^9, 3.734021457130694*^9}, {
 3.7340215065001*^9, 3.734021631021591*^9}, {3.734021690827675*^9, 
 3.734021907423459*^9}, {3.734022328818634*^9, 
 3.7340223720165296`*^9}},ExpressionUUID->"c4ffff60-7e40-4945-aa82-\
92e5d082cdc7"],
Cell[BoxData[
 RowBox[{"ClearAll", "[", "g", "]"}]], "Input",
 CellChangeTimes->{{3.7340223406139975`*^9, 3.7340223522815857`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"43a02e69-863e-43c8-8b2b-2ff75b0c3249"],
Cell["Ahora probamos:", "Text",
 CellChangeTimes->{{3.7340415078765574`*^9, 
 3.7340415132360835`*^9}},ExpressionUUID->"58e7a611-e3b2-4404-bd24-\
eb6ab807fd08"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.734022386367485*^9, 3.734022389582651*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"3055a211-0c65-4437-b502-7c2dc614eb19"],
Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.734022389996861*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"e9ec8018-48d6-4388-8d35-9ef1759e9ddc"]
}, Open ]],
Cell[TextData[{
 "Hay otras maneras para definir una funcion, por ejemplo una bastante \
\[UAcute]til es utilizando el comando",
 StyleBox[" Function[variable, imagen] ",
 FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.679669506846775*^9, 3.6796695299400277`*^9}, 
 3.6796718563807983`*^9, {3.6978165295312853`*^9, 3.6978165491113944`*^9}, {
 3.6978165997262554`*^9, 3.6978166119307923`*^9}, {3.697817111812858*^9, 
 3.697817135752924*^9}, 3.697819599861024*^9, {3.6982724093884478`*^9, 
 3.6982724137780094`*^9}, {3.698358089170745*^9, 3.6983580943170705`*^9}, {
 3.7299010256714725`*^9, 3.729901070830164*^9}, {3.729901133771037*^9, 
 3.7299011438184824`*^9}, {3.7299012260729017`*^9, 3.729901245558323*^9}, {
 3.729901277606899*^9, 3.7299013272970524`*^9}, 3.7307513145107756`*^9, 
 3.7307517180574064`*^9, {3.734022408980323*^9, 
 3.734022476169915*^9}},ExpressionUUID->"80621d27-8bcf-4699-a977-\70a227d2cefa"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"f", "=", 
 RowBox[{"Function", "[", 
 RowBox[{"x", ",", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "+", "x"}], ")"}], "^", 
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
 3.698358643072879*^9, 3.7307518445182076`*^9, {3.730752971094823*^9, 
 3.7307529946153345`*^9}, {3.7327210196705694`*^9, 3.7327210218390684`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"aadcc96c-2ac0-4acb-9484-c6fed3e9f574"],
Cell[BoxData[
 RowBox[{"Function", "[", 
 RowBox[{"x", ",", 
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "x"}], ")"}], 
 RowBox[{"1", "/", "3"}]]}], "]"}]], "Output",
 CellChangeTimes->{3.7327210229701643`*^9, 3.7328259103363004`*^9, 
 3.734022463523253*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"51eefbc0-d0f9-4547-86a9-a42c3f4d2c31"]
}, Open ]],
Cell["\<\
Si no desea ver el Out se pueden poner dos puntos (:) antes del signo de \
igualdad.\
\>", "Text",
 CellChangeTimes->{
 3.729901074470964*^9, {3.7299011048319798`*^9, 3.729901129677055*^9}, {
 3.732720949494355*^9, 3.732720958840211*^9}, 3.7327210138580685`*^9, 
 3.733961152171965*^9, {3.7339613356411123`*^9, 3.7339613421276026`*^9}, {
 3.733961494062558*^9, 3.733961497722208*^9}, {3.733961568924125*^9, 
 3.7339616743739376`*^9}},ExpressionUUID->"a186fa4e-f183-4eac-b04d-\
248513dad788"],
Cell[BoxData[
 RowBox[{
 RowBox[{"g", "[", "s_", "]"}], ":=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], "^", 
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.72990109036248*^9, 3.7299010969878407`*^9}, 
 3.7339615603036323`*^9},
 CellLabel->
 "In[111]:=",ExpressionUUID->"802e3f2d-9825-4dc3-a3c6-ad63ba517904"],
Cell[TextData[{
 StyleBox["2.1",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],
 Background->None],
 StyleBox["\n",
 FontSize->24,
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->None],
 StyleBox["El comando para graficar una funci\[OAcute]n h[x] en el intervalo \
[a, b] es : ",
 FontSize->16],
 StyleBox["Plot[h[x], {x,a,b}]",
 FontSize->16,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" (x no debe tener asignaciones previas)",
 FontSize->16,
 FontColor->GrayLevel[0]],
 StyleBox["\nEjemplo: ",
 FontSize->16,
 FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.6681871992600117`*^9, 3.668187229690279*^9}, {
 3.668187422960865*^9, 3.6681874934884434`*^9}, {3.6978214774853263`*^9, 
 3.6978214780947657`*^9}, {3.6978218962648687`*^9, 3.6978219325031624`*^9}, {
 3.6978219670536413`*^9, 3.697822070908559*^9}, {3.6978221016931515`*^9, 
 3.697822140025524*^9}, {3.697822192046623*^9, 3.6978221948594675`*^9}, {
 3.697822237567157*^9, 3.6978222462401166`*^9}, {3.697826612385528*^9, 
 3.697826690925238*^9}, {3.6982752327153473`*^9, 3.6982752331087065`*^9}, {
 3.6982752749001355`*^9, 3.6982752909571457`*^9}, {3.7299032325387707`*^9, 
 3.729903395063122*^9}, {3.7299043630756407`*^9, 3.7299043854674625`*^9}, {
 3.732721074775134*^9, 3.732721091154069*^9}, {3.733961505474228*^9, 
 3.7339615055772147`*^9}, {3.734023712613594*^9, 3.7340237346742067`*^9}, {
 3.7340291584246073`*^9, 3.734029159152398*^9}, {3.734031558150769*^9, 
 3.734031675957656*^9}},
 CellTags->"2.1",ExpressionUUID->"22cb9710-cbd1-4cf0-8989-e8f7a3251e6d"],
Cell[BoxData[
 RowBox[{
 RowBox[{"v", "[", "x_", "]"}], ":=", 
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"x", "^", "2"}], "-", "x"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.661096504728983*^9, 3.6610965078605137`*^9}, {
 3.6681815892353334`*^9, 3.6681816134262257`*^9}, {3.6798604112989144`*^9, 
 3.6798604261694946`*^9}, {3.697821237014681*^9, 3.697821244640379*^9}, 
 3.7339616868415565`*^9},
 CellLabel->
 "In[202]:=",ExpressionUUID->"bbbdb464-451d-4e8a-bc00-d71abb0c19ab"],
Cell[TextData[{
 "Por ejemplo el gr\[AAcute]fico de v(x) definido anteriormente entre [ -1 , \
2 ]",
 StyleBox[":",
 FontSize->16]
}], "Text",
 CellChangeTimes->{{3.6681875068628073`*^9, 3.668187524544112*^9}, {
 3.6681875572856207`*^9, 3.6681875852049527`*^9}, {3.668187675762199*^9, 
 3.668187709823203*^9}, 3.679670445440498*^9, {3.679860856136304*^9, 
 3.6798608755301156`*^9}, {3.6798611597530317`*^9, 3.679861170716753*^9}, {
 3.6978264366009383`*^9, 3.6978264695887365`*^9}, {3.6978268573181944`*^9, 
 3.697826867616169*^9}, {3.698275335267932*^9, 3.698275375315841*^9}, {
 3.69827585247956*^9, 3.6982758877155223`*^9}, {3.698276004845175*^9, 
 3.6982760314430437`*^9}, 3.698359608535082*^9, 3.6983602018922234`*^9, {
 3.698363323155754*^9, 3.698363348502474*^9}, {3.7299034238459563`*^9, 
 3.72990347044221*^9}, 
 3.732721084019785*^9},ExpressionUUID->"991e4427-7c0d-4748-a9fa-\
4f1a2f53d7a2"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6982759503550596`*^9, 3.698275991592921*^9}, {
 3.73396171435987*^9, 3.7339617147734003`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"232972f3-dbe4-447a-8977-4dafaf5d248e"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwViXc4FfofgE+EEBmJY4Sy9yyE71e3Mi6SEbddKiFUaClZGS1EhKy4dZOs
bOWDcG2Hjn3iDJusIw4qv/v7433e531e2Qs+9pfYCARC6X/83w1nZEc2N+eB
Z+2NGIFARQor+tY3WfPQY79G/oeDiiKfWlXMLsyDYT1nviMvFVl/8o0boM2D
aV1rQ8kuKuomNpp//DIPnjwdNanqVEQlexRcjpiHfsd5Hq5TVPTTqji4nX8e
VL1+nrOroiK9/eZyKVJzcInbcad9GA1hEBx5LTQLYe+G/jT2ZiDNjLdp9irT
YLw3dokaMYb0Xh3N69szDb902/xIMWPI6OXq51MS00DHtLaGpDF0JMb82+Xt
0/C9kiRc934MnQqakAiYmwL2qbfPt5DGUOQ5xaSsoingOnxALJM4jugyb+OW
jaZAwlW2OqpwHMVnvolM+HMSGnceyHT8MYFctOSt7vwxCYJll3zaCZNIErJ4
Tx2YhEV/p1nb7ZMom5LxTFZ1EiSPGYte3TuJikVT4nN5JkH6G1NPwH4SkZ9G
Z9Q1T4C7Oqmfq3ASidy9XT5nPgE/8Z3WNf8plGBvNXnk0Diseck34t0zqJqf
YllsPA6JU4bB5qozaKzF672s/jjw1OzWcDGYQXp/xHr/lB8HmTfzEYn2M6hb
t3+5kGscPI7xukdHzKAdIpe3SLWOAb/v5n0v5gyK7AsWZx4bA7WPP8R1v86i
u6cqrNPPjkKyQ4J2WskcOvde9pyH8yhIHidEkRvn0JH1KF/9o6PgFXHPRrx/
Dgm9PJHcajoKtrPPPcnrcyjn68bEqtQojMsmyXGYzaNBK9NQOwoDnk8nG3qQ
5pGR4ZeKLX8x4PbCUuPM/QUkE6na3mbHgN9kEj02YgFx9sVREy0YYBm2ymcW
u4C6/S5yaRgwID1Bva4yewF5FHA4nRBlgKaf3qpk2wJKVrRYKOqhQ9EnZvBb
yUW0IdKucNGeDh9iLuhoNyyiC9wjj5ys6PBPdoDJSOciavm5MHfkIB3K9v1I
TxxcRMmMnWXKOnToW6vNUlxYREaFp8znBenAsnI1bJRYQretZ93udtHAqlYq
ksd/Ca2E8L6LsaPB3HWjWkktJjpzU4ovxIIGueG+2rrGTNTornndF9Og16CO
6WTBRAl2DobHtWgQ8utHSc05JtLfndIsIUADwkigqvpzJvKrUJl+00kFaR87
uRurTLQ0b6n62ZYKtCym3r62ZVQt4KNpaE6FMkJXAf/AMorSjtctQVTozhgS
XB5bRjK+wwc+aFFBLEyvfWxzGdms3LBOFaKCms1HPTe9H+jY2v6h9dwRuO5w
Inkp/QeqFqKcDfg0DGIWn/dWBq8gJ0eFK74fhkE8Tb/UKWYFzb64ds0zbRjq
RDjqCekriEjkCD4ZNAxPhS7nP/y0gvykNV4fODQMhj4pZ21YK0hFLWh0o/Ub
fCEtJE7dWEWJh+Xc7w1RoLOAI5zXn4VyciV6NFsp0OpIGNaOYKFqYWEzRiUF
8JiRvXcSC43TthCtkilQajGgrFLNQnqBI02if1Eg/oIyvXDbGuouTVb62DsE
njIBPPKv1xCfkuDkVNcgdL2sMmqdWEcy0dscU2sH4VDELIHr1zrSW9kEu8JB
UP522O+M0AY6VT+XWBYzCN7OBJ3zJhso51yb+cOjg7BSV9tdFb+BLJIi3sq0
D8DTQNL7HxY/USjP78vOTf1wzSU3htj8C51pkxCWqegHMVHFs0+pv5DBM0OY
fNcPOSrvqdKsX2hO0F/07uN++Ce/dzRT8Tc6QZz995VtP7Bs+91lIn8jLaVB
JTq5D+qjTIgmRzcR5XDp9FVaL/w7oSNLDyDgMi5ygn53LyQRVs0aogj4efPi
wd91vaBCyGNVJRKwuY16SnR2L+xj528a/UjARY7Zfxa59UJJqryb0ncCjnR9
nrv6vQfedNRQX7luwfrB3t4h62S4lJ/Oun+eDe98MlKVOEMG+5b89Z7rbHgp
wY77A4UMjGcHg46EsOG8XJ3svmoyfC2mzlzPYsNK/SsDaqFk8LpbjFnjbFhS
88HhPl4yXO3Z3bt8gx1v/RYtqSb1FRLPPtpyIWMrpk8QPMz4v8KoV3y1afFW
XLt0vez4Zjdk8OexGzdtxYHbHO2Dad0Qtuvi6aSFrZilKxbZ+3c3DCXDtsmD
HHj2UQYzSKMbvluYee6e48BfDQpbelAX3DZJ0vY7z4U13DsD3mh2gTK7Q7jC
PS78KOm72i3pLnioFKDDl8iF8bpytNgmCQJyy2butHPhvKrXDierSfCeNjVE
M96Go0zjKVRjEni6qPgHKHDjUe+ip4VqJHhNDO2qPsSNcTrJNESSBILagdvN
XLnx903iQXNWJ4ydtZTmyOTGTSG8rW03O4HpveGZKc2DAyPnKH2+HRBqOyDM
UObF+lMq6I5DB8Q3iOj4W/PiWUu3THHdDuhaEyhz8OHFf/FSL51eaoeRGwsDayW8WO9Z1xz9WjuYcXIWc5pvx9NxxYQ5rzaQT6DZCt/hw07pd+W2XmmBXIH2
xiYhAZxcws5FsmyBXunOh+5KAni49clUimoLJCue9DExFcBXWGl5uvPNQKLs
ign2EMD3jn0xcL3ZDDlXSy9GNwjgbPbtNnVhTXCy+Cz7tXBBPEV8ofnschPE
EaW+paULYg2t3UInLJrgQ09aDV+FIC4/pdW3yPtfX3jglT8riFtLHM/Lxv0L
+Vqm01LOQnjJLdU/KLMRhEQ7uF8YCuP9gQou1qGNIF04WYCdhfG9+HwjsUuN
wPWQuGjiL4w5a2s385Uagc3J4JZOkTAWFx+PGslvgLBvJa3KWjuxWZtGmml1
PRhryuilmojgcHpZEE9GPeScpnjuOC+CW1jYtTf4vx/c/nUmTAQ7yjsoeR+u
h/TtdlnT7SL4SuCtotS2L8C2V7Jh36VdOEarpvHnYB1QLB4qjeeI4s7YrGuo
sg74LjpEJg6IYn5muHhIUh2o/0j4ML9NDD8usfHmcqmDLofmg6/dxXC40ZCI
UE8tiHA6893WJeKGlGpwLK4FxCbq3ehGxFt/ZbonxtXCjgcxePAVEQfDlc+S
9rXAEDxS48otju8dWrmo2FkDxFFny6BZcVz19wC/R14NBHrwhAYoSuB1zs/l
uU9r4NZJ8YELrhL4VnPodh3rGqBKdkttH5bAjFd7rtx5DhBFxD+9RyRxR4EL
Z3b4Z3jyiK5iLyaNrX2lTygf/gyqM/rcIpekcbP++Ic89s9w84lbif5HaVxf
6etUEfQJwh/8FhlSlsEV9c+yO+5WwSqNGe/2VQbvi3BiORhWAcvAba1tUwYX
W0paD6xWgr62SQuvuizO63jHZPhVwkvnt/Maj2Rxdn/9wTXvClCjXN3fcnQP
3pPyOCFQvQKeaZh7lofuwemn7afZZ8shNkQysqJ8D06mj8Tyu5eD1PhbYVGF
vThmdp2617UMCsjOdUd2yGH+/Fq9d7JlkPcu06XLWg4/vh4ZqUEthSvGLUHV
j+Vw+IqIluHpUji02r1vkU8eBxC0H9g6l0DcOf9ydXkFvG3ikAunaAn8UcmQ
o3op4Ph2F+3q3mIgufiGOJUr4NzkIIb68WIY37wz2WqviCl6JHM+p4/QkHGf
MZOuhK9IjMo07PwIsVHxASUsJby8hbV2j1wEWbv8eKkOypivUzp31qEI4mxa
DD4JqmBTdx+BNvtCeGFIlknPU8UtR0OnQoUKwci8mH5TSg0f35dYd6C7AEr5
w1gZ0WrYhx383h8rgLQTJqpRgep4Y6rbxlWwABLkQhZSNtQxf2a7zb7X+aCY
olqdc08Dt1RUGEY8yofp7Jd3U19o4P8BhmveBA==
 "]], LineBox[CompressedData["
1:eJw12Hc8lf/7B3BEych9jmPvmYRoKIqLdrLKTEOhZEcSGkZWReXTJCSKojKy
QrlEhZCVnTPMk3PKSJr63r8/fn+dx/Nxj8f7fr9f7+tc963iFrD3KB8PD89O
Xh6e//v9U0xrZK0ugLdGiT0j4QZ4/HTOMsnMApC4/GPusLkBSttPZxCUQlgX
RFvQ4DHAs75XDSX3FsKTK5kmc6iPW9PfH1XpKoTWK9rddjv1sXNhS/363iLY
kijMTOrRQ0Mp1n4TmWJQ6Y3NFAvUw9RVkbObXYrh4vPL8r6ieuh2uFrVerAY
NvT9MwdrXZypXRvlwXgOTmf3RB7nrkTH/g5pb5USmLU73dmSuhIrZ04UBriV
gIrE6m3bLVZitNpTevhICSwccZFUK9BGSqyGafJEKRQFs4ozr6zA4PS6j7dW
lMHMox5GvsUK7C094pfmXQZCjmu1tgmuwMyx9LRcThk8uPJHhRuvhfo7JX+/
nCoHhWU6Anh7OdoIL6n4/OMFMPwoa7ymNPBWhbDN3XWVIOI+yN5Xp4FDR4mx
3UGVkF2SFyh/WwP9UYb2dLISLmjdaecx18DEUzonAoaq4K/9fZ+ydHXsUjVY
oixXDZOn4F12iDrKta3LaHOqht+GG5w32qpjnjY0G7RXw/HoKgdnAXVsoO/R
+lb3Eo5zM/sHQtSQSHKsecDzCmD/5FS+vRo6Ge93dDB5BXPtX/kF16jh2A2P
mLKyV0CUX1jvNK2K/BanGaGPa2CyaunTPydVUdnFuvn8O4S5fxWGi66qYH1h
m1TPKMKAx1tD02AVPL7Ezn0Vfy3MTJ/cPrBPBQtKnH7RzWrB2Dkkfo2mCpqK
HdEyr6wFDdGP65fXKeOB+pMxi56+huE62oYUEWXkkfv+Yf/71zAh7kLd9EUJ
HwSGypWwX4PEpYLTXXVKOKl4rthDsw6mHjvw5p5QwvCwOMabe3WQoarSl9im
iCl6KZsS/qsH6ajZMJdcBdxsXItez+vB45Wb884oBeRsY2/d3VUPFcG8k8/3
K6DZQSOrZZJv4PVgHvGbooATl/sO3kh5Aw5Xc7NEYuRxA1smIjPzLZytPRUe
eVYOWd/MF0XXvoXXfUWKdgflMJHHO96d9RZ0vK7mxZjKIUOq8qqm+jtQLq03
XuCVw4TtLplPct/Bg42JASpJstibnVpb8awBPPktOLPFMhhd8Hpb6ocGUCs5
fk8oRQZ1qj43nplqAKNtie3eETIY2WHcYbq6EXD5rR2LrGRQi3eAVV/aCO5t
4Y0hk9IYekiOv726CfYKuDVfXiuNUjJp29lNzVC/Z1QrdFoSK/9TSDCYbIZX
TS10S7okHhC51xgm3ALXl335YN0iiVn/7lsKWbaAX3y+dO9jSdQZy927sqUF
7vRF80x7SKLZ8+eH/D60wq2WF+6NLAlk6azLLP3aCsE8u5+t7pTA2Jwy5l+x
D6C+7KVebZ0ENqW88Lhi+wECO0SlLR9KoENkjXdB+wdoyF5HF/WWwNKco1U/
vNqAqX7Pkv2ThnHumoPy4W0g8CS29hSHhs7K43/MLrWB3Mzl7Sp0Gv5KOW56
Ma8N1pieXdlVT0OzJJ9amck2+LDT3C4zmYZNJwPfGfu2g5f3QmGSPg2HzM51
nvXvAH59356OKHGcyJIquXyuAzyjeaRcQ8Vxhr/4RmpiB9gUrfy64C+OSxrH
HCryOmBnpnd16AFx1N9j2zs71gF7/w6ust0gjtFH1D55u3bCSO0rD59ZKibW
vXwZ5t8J8ncZSxUnqXhLwzkj4Vwn5N862c5kUTGfneiac7cTPJYGbUzroGJX
4Hcms6cTVPjEqnuLqagR3TjmbNsF52uk+u1CqKg/4v7O07ULKl0+EEsDqGi8
fSE3xL8LRpL2HG/xpKK10BqvG4ldkGzftPjCPiqG/Jc2+aGhC5guRVMZJlRs
yAqY2m7+EVgSV4SiBanoWyfxa+3qbuCXFJK0eETBn//4Tids7obDN6ZrjLIo
GLdpanZgbzeEFpc/Xp9GwfulTdzok93wcVdt38FrFOzOjWC2lXSDQeTzJXvC
KGieyG7wXd8DVfeehL2yomBrQ/c23NED564WasbvpOABgfrX4s49gF+k8w5s
oWDI+YzqytAeuOV0Y1jXiIJPTtgVClb2QMms1J9jGhSUdHh5+8GmXviq8dNb
jYeC2cl5tB+WvVDK7ble+JtA/dbbybsP9oIL54nfrnkCd+8IujxzrhduL8zP
pH8hMNJoeYRZTS9MsUzi2z4ROKmQfGzQvA9uVoqlW78iMNTl/PCqvX1QT6On
X60kcPFtn8MX3PpALN/NbaCMQGViu4v2hT64fPkX7/UCAh35fluF1vfBTGLe
uqj7BOKYxzrajn74ZrOx0zqewLiGlUF7HfshvudevHcMgZZ5M8+uHe2HpF7V
n1eiCOzzi9QSjekHA76Q6ekzBM58uyu3uLYfpo5F2CgFEqi+qJP3h/EAbL17
k0UcJPDzSIqpocUAvOld9ajEhcDCt4fPBO8bgBMHWAWHnQk0ufTl29TpAWB+
vufdbkeOjyI0wS4ZgCeryrtpuwlMUDJvHdAbBClnHS3FjQRa8woKy5oOgoM1
TWGLEYG04dYdzlaDEJ0k8C1gPYH3cw7UdvkMQmWX5xrmGgIrdUNLWh4NQmyo
op+KLjmfYjAtXDEIkW0pYzErCdw+LaBn8W4Q5lZby02tILCz5Hru29FB8DMs
ffBJk0DOxoLUGtVPEChTgzQVAosVQnr+GnwCmf+y00qVyPn/t4m2yfwTPHpd
Qj2kSKBAXVNShesnKFaLfPVGjkBFi7HIorRPgD/Di75KEjiy8unLr/mf4NcL
9q9mCQLzRIN/6VaR15vw1RXRCDRs5w3O6/sEz38J1iVTCbRxVvDMlhyCpQF/
DPKXEUidvsZ3U2MI3AzFbzeIEth1kT8jbu0QpNR/k+WKEOhSNdnltXcIdEEu
ZLcwgfL2rif2HxkC8XDKrlghAumcDmGrE0Pg+mft6rdLCfRQrNysf2UIlC6t
h4OCBGqW6w6ppA+BZpGr6/MlBLJt7oeJPxkCPdMdVwjS/lEJhd8bh+Di01IK
Q4DMr+yf3RO9Q/Dhq5z7XtKzxQHjfeND4L6F5+V7fnJ+RhwVXwrQIXq+NaZz
EYHG55pePKPRIb9Yd+oI6b8Spg6ZanTIUZs9NM9H5vFZ0VTyajoQtUvarpOO
3qGReMGcDv2nj21eT3or487yU7Z0yHwgX8rkJXBJmEjdMVc6eIpaLL9OuokS
ecjZnw5jA8p3dpNOzJv9uescHczujC4WJm29xfPmxkQ6rFX/GtTOQyBlsF9f
9y4dWspyBjJIdwVbNyvm0SGuN97sJOlboq89iRd0YLkq37cm7ZyzbhFfAx0u
+RN/9UnLweOM2W46tPkL2cuSHuqRNx4dpUM5pfOhEOnME9c+dn+jQ6CV+Qwv
6SL+6A0jvAywOWBqxEOa2r5x8cGlDNCrfhMuQDo4fa7zI8EAF73RMgrpj14F
962lGTBeXs1VJ21o6BXwTokBkVnnlYD0HT41E7PlDCg9F2B5mPTP1kGhF3oM
qFQeC04g7XL3Vq+BIQPSnuxOKSdd5Wmbk2fCgLkrcpVc0vJrhYLVtjGAFjvc
o03Oz3meevM0Swak3tsy60+a3nxOTMKeAbe2fxGpJG2Wsv5T0n4GiJs+0hAh
1yPr6HTeYncGqOfvND1K2mPBY/uPQAZ8i5wL0iHX902TIi0wjAFcS5HkVNKa
t3uZ7EgG2LkpPhcj88FeZXlu4CoDvlymCYqR+bH4I7Db/jYDGojbJimknzTU
SLdkMCC5fc9Z7cVk/o6sKXn1lAGFRWFybmQe23S5UetLGZDlJhshSObX4FeO
TWE1AzrjXWZKSX/7T3by/nsGqAx9WaZJ5j+snlc1lk0+D4vXaT+5f+QXRkwy
p8nxV90ssCL316v1DfuqfjJg21FBn51iBPLnX0meXsqEF6d6JJ0oBF5LluM9
pM2EH/NSGX3k/l3zfkE+bDUTQpRGjotJEdjNz9pww5gJk3vGiqykyXyEPjrR
ZMEEre8mrcOyBOYcWscw9GFCcpLqgxBlAnfdkf6z5yQT2IsaOqfI+sJp/y3l
d4YJu073Z59UI59n22ub7MtMGLQK33CdrEfVK21qxJ4woS3zMBqT9azzx/GM
CQ4TfFTnCf1NBIastqxcNMeEGrZovaEpgdK+q7oV/zIh9tnLwO1mBB6iz4k6
iLKg+1daT+RWsj6/iT5Xq8sCvTWbr7pZEchzPe1Aqj8LgiI2aDEOE5jdHBFa
GsKCGQd5dpg7WS8Xu99oO8+CSzFmigrHCLwctqJ58VUWpJkfEIz0IVDycNnG
kwUs+EmFvooQAnV122Qtp1gwGE5vX7hCoK9R5q3BefL4Itayv8nk+m47QfX7
xwLPjrdi/DcJ1D5ECF1ZNgzrVb2idO4SqHXV9ucHnWHY2mGpNZFLoOp0W4+d
1zD4lSYT4nUEHvmbaTdyYhhEE8RFst6S+21p4Ifg0GGYf7fgbdxEoJIq5d3N
+GGYVbofEd9OrrfdnrKeh8PwtO/flhsMcryl7Tf2s4bh6NNdJdHk/7ND7X2C
wx6G4qFXvk/5KXijJTDx7PQwxCSLW7IEKSg+RolJ5xkB6Wtlpd4UChJSe0/S
FUfgjFZb5bwqBYXCOva47x8BHeoBazGyX1jY1LnMp4s831U16kEqBSPKmnvT
B0fgfQHGPs6kII/+26y2kRHo8nAZrs6hIK/aC0PDuREQfJIoJvacgvxL7x3i
lRwFK9i81KOZgsIfvZ/ddhqFpUpWtyZ4yf7M2iO0yXUU4uuX9dPJfkik4eDm
v56jEMQftWFcjIrLqmy73UJH4XO4R52mIhWp9w0XdFNGoSrGK9V3IxWl/fis
6/tHYe1WV1GDMCqmjP2WmmeNwhtxh1yjKCrKHp5jrpgcBc35gXj7i1SUs5s4
dfX3KEhXZlXUplBR0ag13UV+DM44n9p4vors9wRSuVMHxyAq+E/pAz5xXJ1u
kKTAHAO9t3tmvmaKo0FQ1GJt9hhkGPaYH8sn+88d7RGG02Mg0hcm+K1UHPWm
TwTZ8I7D05RgluN7cdTeVugUpTIOvgGOlmbz4qjK1VMdPTIOxfyH+frsaKjy
+vzdaa9xSJv3LBt2paHy7VbaQuA4ZMUFTCz1paGiuf8SqehxyAnXnXwcQ0PZ
m085O7PG4fYb23yzchpSTHTKn7DG4Uu4N5+YqgQS1LP6Lz6Pw7LyO/bfV0ng
svH3j9/MjIOU8YqtCyYSKJLskzbENwE+hkZBgS4SKDiaF0WoTcCW2cmMrzck
kCdphWWw+wQcOslj+JCQxKlBTebGkQmIgCE1TU0pTIxxr3w5OQHHF4JFitdL
4XKdzOswOwE57n+veO6SwkNnZLZv4WND5r6b3nv8pLBZRiTfQpkNCa91DFeV
S2Gu43TwvgNscAw1/3DNTho3L+haD7izwSDvEPzwlMahh97LD/qwIWV1Udx/
Z6WRNjfcdzicDeLanF1uOdIYfb3b9PgdNmSI3JaP/iONh9qqBE93sWE44hrH
67kM/jr9g/ljgA2tAang+F4GbyqtqwofZoOPx4byqGEZbPZ/5nd+hrzf/rzC
FJosGove74glPoPj8UjaRJgsSljEpd2w/AyGvd+1mHvksHD69SlJ+88gZU5d
a+gvh5Yp/6zv7P8M9y/8Uxq4JIfRE6G8ad6f4Z9i9nWZN3I4FedzLDuBvL5u
wDjJRB6b62z1i+vJ48T45UuggI97y5y6mz+D2/uLtKMeChjHlY/41fUZLnK6
9F5cJN9vpdgtm0c/w0pzYbmejwpY4h3l0ykwCR41Rko6wYqYRinO+bZ9EiyS
cyei3ythmKZ0q7TNJNhlv/+p8VMJHTeen9vkNAl/Xkorl4srI3HUYmus5yS8
yRAVXNisjDEVLKZEwiScqnLqqHiojL6u4grrGydB9sHyp9nnVHBXcNjW/e2T
IOmZkRafqoKaF+k+EX2TMBbGx6WXqyCjOL/yHXsSHgc0X/gxq4L2i7c6Owtx
wEFEdpVskCoayOVFnKVygNe/YvP0f6q4TJ/IzZTlgJCdTbV9iSo27Bucm9Dm
wOJrtu2tP1Rx09Pg62G7OVBjk/dmPkENZV73V6bbceBVbXhyyjM1/N5txqrd
z4GgEPOJsS41LOQRNRDy5UBwh/zpW2rqqG7/sDU1kQNVmlK7OhrVUfj3x6XV
LRxI49YJ55lqYgxLK9nhIwf2BsaXq/hr4kLjGemvgxygtl6Pi87QxKk7KstV
ORyonOqOlOVbjt2GflsThLgg3JSdF/BxOdoq4nsVKhfI15bUXyJa2Cggblcl
w4U2jUcCT7ZpYXVXxZEvWlwoL55Zk1uphVlB/BH2O7ggvcSqRqpkBcq7OC3+
Ys0FJ+MCHu7cCrxpnpcU78gFsUaPZyZG2phA2KZVHuUCfUfR6th6bfR/dveFcgwXArrTPhp/XYkTN7+YVV7mguh0JuuUqQ4eOWfeYHedCyfEYnwfXtVBe8vx
7rgsLhjUGFjpbtBFo8+rv3GQC44rX7kuf6CHxe2xZ+IauBDVFkvfIbAKdV70
8im3ceGCRPBZMa9VqJhwnmJH58Kcdnd/tLw+3glov8MZ48J34/SbFXv1keKk
rhz3hQu2gg0fz1/SR37NJr0Xf7kw7NM1uuifPp4XVSjbK/AF7hwVpk9sNMD5
bwEmHJEvMBfc1ZcXboAvVWanZ0j///fG/wEdTP0d
 "]], LineBox[CompressedData["
1:eJwVlXc41nsDxh9UyMzISLKz0yAZ3V+eSmmdpGgPIqKpc2RlUyidI2Q2pZJX
i47MOPImo+GUiEcKGfF79sDz9v5xX5/r/u/zx31dt/7hEx5HJGk0Wsmv/J+a
FR1+x6YmMXI7Oyz/qjWRfGtjHzaXQq4WpWn9xZLomuUI4xUpzIovFcgctSSO
MVLVl1Uo1AadEu3iWpCQpf+63NGmwD5sub5Jx4IMXgnf2GFOgd+Wd0ElzYxI
jnxT6LamoKSbVPJxiRlZ5Lql4/syCvkbXFardZoSb6beDpEDhfFLZwL/NDEl
LR5N+002UrCVX5nsNGBC7NRM3o5uofBo1+QezzwTcr0zgf7Ig8Iu34Vpkl4m
5HfvtaZOu391vsz3sQ5jYrC/kdoWQMHR7Wni7U4jkrbIyFcjmELwWMV39Rwj
wmfE/dtzkoL+kgyq7oARafWhv/APpWCQ5+tZ8NOQhAa8jI9MouC9eGdMrJYh
GTA34LmmUEjcE3Lt9aAB2TIWEyBzmUL2+tefZJ8ZEMMTLlv+yqRgZai7zsPT
gLSF1Gncu0Oh2nQx2ytfnxhH19z/0EDhXp8w08NTj6S76C7MeUUhfdzr23pr
PSKUjLp8oIXC5WaFRIaMHulIcA4ZeUdhv1wnms8vIhEpVc60r7/8vjVxHgTo
kneZlR0WNCaoLx5slRM6xNlbm05JMdE52Hies1yHFGuFPSuXZkJmSaNeuWAB
icxbleOixESKTnxaTdICYnrzuY+XLhP0/tyh4Ifa5PzDcm6sExMJGadk/16g
RS4aW6RfI0zsry8JTB/WJJn5hWZla5jYVHSyzKBck5SmJe/9sokJOVnatqPb
NUlP8O6XK/cxkeTz5bpypgaxt55JG4tkwp4k1I3Yzydrik4vloplIrJPpNOh
NJ9s1R2q00pkYlqj7pXTkDrxU+xgrbvEROpcry83stTJ1Z83dt0oYCIzP3+H
14waYZauNd5Zy8QNx3m6Mf2qZMaksiaogQm+RtJ4c60qkS209o57xcTEI/fW
swWqRO+yRkpZOxM2o+s6eXtVyZYTPybnMpgo9Vv67nivCnmwJK2qlsZCrVOd
9wdqHvEt+7DdzJUFvYt9xUHblEnNFeQL17LgL9uubeWoTDTP3B9s2cDCMrPu
cwbGyqTFNvrc8W0shE3b0D1YSmTZC4vCJwdZ6O4pCTN2VyISTbEjzudZkC8o
DE2VVSS7744vV4pj4VhiXJPcgAJ5muwdyUhk4SrrxTNGlQI5utFaOe4SC8Ji
lmHSKQXS0dFl25zPQsAPPWZxrzwp6LaJ8ahi4YiiAs/nlRzhV+W+NqxjoSom
/XzjHTniUTBHjdPAQiWvnX4sXo7MPtRTlNXCgsBQ3iLZVY4EDSa96fnMgnv/
/N7h+rnEkerV8Bew8DSqfVvuG1nyaU5aabgdG2z/Y79JKMgQSv1W+yoHNhIl
3s5xY0mTucZ/T/Kc2bA4EP3Piy5p4kT/vixkLRtZv18LsLkrTQrPO1cEebKx
kT5fftUaaeLHH6/dd5qNfKkP1OHEOYT9Y8tblLIh2He3eLXpbKIg8GVOP2Kj
+A9BW7rqbGIiE65a9YyNCyUZy2aLZxFvk7s77KvZSL5oG7j931nkxWFxl80b
NuqWyfZFJM4isd3/+ao/wkbJc13d+jEpMq9VmS1lwsG2tiOxJu2S5PWfjk6q
5hycHW1OaqySJPHefvEG1hxkqptWR9+XJPyBF2oudhyoLEnL8UiUJL1CP9uo
dRzsVJuO9YQkKTGt/p3vx8GckqXvM8slyLr4AMHYXQ6a7wWJA5/TCM09w2Xq
AQd/nG66vv0ejVQq1V6QK+Mg3e0lzyOHRqxy1bTNn3Pgbp0leTWCRtQe1zr4
N3Pwj/3DzfquNNLfpx7RP8zB2wgGx/emGBGOL2c6zbi4ejJ1j87UNOIDB7iF
VlysmIhKzfs2jdRrsyYClnKRKKvn5Ng6jTzeur5pey6Uecq27wum8eJJS63x
ei5Em/TD/enTEFp0Rp/146JC8DWEeWUKoTrDkuq3uAhpn3BYQRcheqOsqLeI
i/NtuVJ6S0RIDjNnFd/nomp3kaHRAhGyPwUNOD3m4rnHhfoQlhAVGVSDbz0X
JlGmE8vuCMGVF8U/7ePizuEIVZqCEGenFaQ9dXhwLN6k/3GMD90BuskJPR6e
SLCvKn/mo6n53NqLRjwcyXhtc+gVH5oZ3+PqLHlIqai2c7vJR6V5Nc3KmYfH
1rKmBrv4oHkHCWfv58FJYnKIes3DxcevxysKeeg9Q5ynqrlYnk1TeH+Lh0s/
Kp3fPeSiJ9LO8uddHlhpDszKfC6sNtwMNCrjQdCSNdUQyUVH37mh9Doedq91
cX+0mgt1BbP+gH4eqIxPK/oaOLjun/RhgSEf2yPvfHj1mQ2Z8KMthov52Hcz
rG3m1+5OXtrw0sKCj5fXzqSsqWUDz+TKHJfz4T0WzBHdYqNXMj1lD52PP7uC
9TWPs6FTkO2a68MH549vRqxZbGR/uFemfZuPvw69DSlyYiHd5U2qlrEAMqvP
iOQ7KKyrubW8x1SAbby2s2pNFKYcwj8XWAqQ//qvIaMqCkdXmJsarRBAOpQf
d7CYAlmc3GBNF4DmUejnEkNhUn6NkH5IgEehia7XV1DY+umF//F8AewSpXZf
uDEJxRMPXBvUhWjV8Sj4YTiBIzezlD9qCZFM7DZGqEygqjOud2ShEJutmpN0
JSYQ4LQ3TMVEiIJ4ncNXen+iUVbh8SE7ITLnR8VY5/xE2O3j+jQvIea9KRfb
qv3EYNdSmnO2EKtW5l+fUhlHzZrn1eXaIoxa1C/tXDkKn/4cxwRdEW5qOSg+
MR+FTFTk39sNRIj44snLWTgKjwrXZ5NmInw6ktiYLDWKQbPWEvNVIuygnuh3
t49AUelrboGXCC2e11q3BY5gf5dcWGKGCPTBbj4p+oHp4AN2OxWnULTxnqm+
/TAO24+nzFOZQmwwXS7YahhNkuH9b9Sn0KVS6FtnMIxLWZmp9IVTOHW2eH+k
wjB061u/2lhO4dXpfXe3DgxhtZrTZTn3KYwbu/psTR/C+UrN4bqEKRSyaman
TgxCQvrdNYvpKZQlzMzPrv8Ou/WnX7rTZhBnEeNZGD0AYU/JsDpzBvF3Dlrt
Ke/HmqDm9M3cGRxkuixkl/YjTTRgnyCcAbdTg3Hlbj/0tBdcYEuKMfJ4U2t3
dj/cvC6YvVcVY1/Kjdbi8H5kvD0SmG4rhlro2qeGrv2wbtIdm3tOjJp/auKj
3zEQusMhwzVSDJ0oh/8+aGGg/tsOp7AYMY5yVA50NzLgKZWW+uOCGL+5vT/h
VsFAOBFZNueI0bZoU7VHHgPNlR+DE6rEWKP4x/tl/gyouLPUq+vE6P8ZfebG
QQb2dinWsBvFePNbsbnabgYmeGsVfVvFEBzd2DF7MwPzbZ+Wuvb+8p3Jy9Ja
zsDBxvadYV/F0Lu99HKxJQP3to/OPBoUQ71jdayjCQNOpw226k+IUf5p5eZg
Lcavn1nN82aJkRXnryuvykBH+q7CdJ4Y+m5ZX0rlGdDWO+vWLBLDdfnppB1z
GPD5T/qEWCyGrKBIk0Zj4H9YClKI
 "]]},
 Annotation[#, 
 "Charting`Private`Tag$2590#1"]& ], {}}, {{}, {}, {}}}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 2}, {-17.48005435155371, 15.29221709359486}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.698275993876052*^9, 3.698278492444171*^9, 
 3.698363767602743*^9, 3.733961692523363*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"e785dc9e-8d02-4e4c-9323-1df1a14dc1b5"]
}, Open ]],
Cell["\<\
No es necesario que ya este definida la funci\[OAcute]n para graficarla, \
puedes definir la funci\[OAcute]n dentro del comando Plot siempre y cuando \
tambi\[EAcute]n definas que variable quieres graficar. 
Ejemplo:
Voy a graficar la misma funci\[OAcute]n de 3 maneras distintas\
\>", "Text",
 CellChangeTimes->{{3.7339626427732935`*^9, 3.733962717997139*^9}, {
 3.7339628310706177`*^9, 3.733962914043126*^9}, {3.7339631081245947`*^9, 
 3.733963164176154*^9}, {3.7339632817708387`*^9, 3.733963317534256*^9}, {
 3.7339635793638697`*^9, 3.733963607361714*^9}, {3.7340298480955915`*^9, 
 3.734029848946987*^9}},ExpressionUUID->"5530dbc5-65a4-4f7d-907f-\
91030743f218"],
Cell[BoxData[
 RowBox[{
 RowBox[{"v", "[", "x_", "]"}], ":=", 
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"x", "^", "2"}], "-", "x"}], ")"}]}]}]], "Input",
 CellLabel->"In[41]:=",ExpressionUUID->"4cf5fcbb-1013-402b-9085-d1e8bad66393"],
Cell[CellGroupData[{
Cell[BoxData[
 StyleBox[
 RowBox[{"{", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"x", "^", "2"}], "-", "x"}], ")"}]}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"a", "^", "2"}], "-", "a"}], ")"}]}], ",", 
 RowBox[{"{", 
 RowBox[{"a", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}],
 FontColor->GrayLevel[0]]], "Input",
 CellChangeTimes->{{3.733962633016077*^9, 3.733962634130811*^9}, {
 3.733962720023489*^9, 3.7339627665059023`*^9}, {3.7339627978564425`*^9, 
 3.7339628216281366`*^9}, {3.733963057760971*^9, 3.7339630858208976`*^9}, {
 3.733963259626186*^9, 3.733963271294895*^9}, {3.733963359873578*^9, 
 3.7339634501459475`*^9}, {3.7339634955502667`*^9, 3.7339634967649155`*^9}, {
 3.734023915510474*^9, 3.7340239726259775`*^9}},
 CellLabel->
 "In[103]:=",ExpressionUUID->"17a55be9-85e2-4192-b250-d87e24f4d2fb"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx