(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     34172,        718]
NotebookOptionsPosition[     32402,        684]
NotebookOutlinePosition[     33001,        704]
CellTagsIndexPosition[     32958,        701]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Hay", " ", "que", " ", "introducir", " ", "la", " ", "llamada", " ", "a", 
    " ", "la", " ", "funci\[OAcute]n", " ", "con", " ", "el", " ", 
    "n\[UAcute]mero", " ", "complejo", " ", "en", " ", "forma", " ", 
    "bin\[OAcute]mica"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "la", " ", "i", " ", "tiene", " ", "que", " ", "ir", " ", "con", " ", 
    "may\[UAcute]scula"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"De", " ", "la", " ", "siguiente", " ", 
    RowBox[{"forma", ":", " ", 
     RowBox[{"Representaci\[OAcute]nComplejo", "[", "Complejo", "]"}]}]}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.691744939277571*^9, 3.6917450518827605`*^9}, {
   3.6917451411058173`*^9, 3.6917451709386606`*^9}, {3.6938415743097887`*^9, 
   3.693841659188142*^9}, 3.6938417308226686`*^9, 3.893846040048711*^9, {
   3.893846106572768*^9, 3.893846159982129*^9}, 3.8939264390785418`*^9, {
   3.981382807534211*^9, 3.981382829993752*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"ae1624a4-41cc-4344-8346-17b88ead86b8"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellLabel->"In[58]:=",ExpressionUUID->"2ab0ca7f-aab9-41c9-9fa5-f3de3136eafa"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"RepresentacionComplejo", "[", "Complejo_", "]"}], ":=", 
   "\[IndentingNewLine]", "     ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Modulo", "=", "0"}], ",", " ", 
       RowBox[{"Argumento", "=", "0"}], ",", 
       RowBox[{"ArgumentoGrados", "=", "0"}], ",", " ", 
       RowBox[{"ArgumentoFraccionado", "=", "0"}], ",", 
       RowBox[{"ParteReal", "=", " ", "0"}], ",", 
       RowBox[{"ParteImaginaria", "=", "0"}], ",", " ", "NeperianoModulo", ",", 
       RowBox[{"Lista", "=", 
        RowBox[{"{", "}"}]}], ",", " ", 
       RowBox[{"Punto", "=", 
        RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "C\[CapitalAAcute]LCULO", " ", "*)"}], 
     StyleBox[
      RowBox[{"\t", "\t"}]], "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Modulo", " ", "=", " ", 
       RowBox[{"Abs", "[", "Complejo", "]"}]}], ";", 
      "                                                                       \
                                                    ", "\[IndentingNewLine]", 
      " ", 
      RowBox[{"Argumento", " ", "=", " ", 
       RowBox[{"Arg", "[", "Complejo", "]"}]}], ";", "\[IndentingNewLine]", 
      " ", 
      RowBox[{"NeperianoModulo", "=", 
       RowBox[{"Log", "[", "Modulo", "]"}]}], ";", "\[IndentingNewLine]", " ", 
      RowBox[{"ArgumentoGrados", "=", 
       RowBox[{"N", "[", 
        RowBox[{"Argumento", "/", "Degree"}], "]"}]}], ";", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"ArgumentoFraccionado", "=", 
       RowBox[{"DMSList", "[", "ArgumentoGrados", "]"}]}], ";", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"ParteReal", "=", 
       RowBox[{"Re", "[", "Complejo", "]"}]}], ";", "\[IndentingNewLine]", 
      " ", 
      RowBox[{"ParteImaginaria", "=", 
       RowBox[{"Im", "[", "Complejo", "]"}]}], ";", "\[IndentingNewLine]", 
      " ", 
      RowBox[{"AppendTo", "[", 
       RowBox[{"Lista", ",", " ", 
        RowBox[{"{", 
         RowBox[{"ParteReal", ",", "ParteImaginaria"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "                   ", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SALIDA", " ", "DE", " ", "RESULTADOS"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<El m\[OAcute]dulo es: \>\"", ",", "Modulo"}], "]"}], ";", 
      "                                                                       \
                                    ", "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<El argumento en radianes es: \>\"", ",", "Argumento"}], 
       "]"}], ";", "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<El argumento en grados es: \>\"", ",", " ", 
        "ArgumentoGrados"}], "]"}], ";", "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<El argumento en grados, minutos y segundos es: \>\"", ",",
         "ArgumentoFraccionado"}], "]"}], ";", "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<L(z)= \>\"", ",", " ", 
        RowBox[{"NeperianoModulo", " ", "+", " ", 
         RowBox[{"I", 
          RowBox[{"(", "Argumento", ")"}]}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<La parte real es: \>\"", ",", "ParteReal"}], "]"}], ";", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<La parte imaginaria es: \>\"", ",", "ParteImaginaria"}], 
       "]"}], ";", "\[IndentingNewLine]", " ", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<El complejo a representar es \>\"", ",", "Lista"}], "]"}],
       ";", "  ", "\[IndentingNewLine]", 
      StyleBox[
       RowBox[{"       ", " "}]], 
      StyleBox[
       RowBox[{" ", " "}]], 
      StyleBox[
       RowBox[{" ", " "}]], 
      RowBox[{"(*", " ", 
       RowBox[{
       "REPRESENTACI\[CapitalOAcute]N", " ", "GR\[CapitalAAcute]FICA"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      StyleBox[
       RowBox[{"      ", " "}]], 
      StyleBox[
       RowBox[{" ", " "}]], 
      StyleBox[
       RowBox[{" ", " "}]], "  ", 
      RowBox[{"g1", "=", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Lista", ",", " ", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Re", ",", "Im"}], "}"}]}], ",", 
         "                                                                    \
                    ", "\[IndentingNewLine]", 
         "                                                       ", 
         RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "    ", 
         "\[IndentingNewLine]", 
         "                                                       ", 
         RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", 
         "\[IndentingNewLine]", 
         "                                                       ", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "              ", 
      RowBox[{"g2", "=", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", " ", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ParteReal", ",", "ParteImaginaria"}], "}"}]}], "}"}], 
           "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "              ", 
      RowBox[{"Show", "[", 
       RowBox[{"g1", ",", "g2"}], "]"}]}]}], "\[IndentingNewLine]", "    ", 
    "]"}]}],
  FontSize->16]], "Input",
 CellChangeTimes->{{3.691826184148611*^9, 3.691826300275962*^9}, {
   3.691826330412305*^9, 3.6918267397554274`*^9}, 3.691826769848255*^9, {
   3.6918270249014883`*^9, 3.691827225304472*^9}, {3.691827676887168*^9, 
   3.691827686089014*^9}, {3.6918278287863383`*^9, 3.6918278472466583`*^9}, 
   3.6918278975186934`*^9, {3.6918279751309056`*^9, 3.6918279881761456`*^9}, {
   3.6918280716609735`*^9, 3.6918281077260685`*^9}, {3.691828302584319*^9, 
   3.6918283354859533`*^9}, {3.6918283956089926`*^9, 
   3.6918284003882885`*^9}, {3.6918285553644204`*^9, 
   3.6918285587322507`*^9}, {3.6918287386412897`*^9, 
   3.6918287896046295`*^9}, {3.6918289186549416`*^9, 
   3.6918289378206263`*^9}, {3.6918290310640945`*^9, 
   3.6918290408626146`*^9}, {3.6918302431094465`*^9, 
   3.6918302459414263`*^9}, {3.691830289476906*^9, 3.6918303358375416`*^9}, {
   3.691830452247245*^9, 3.6918304575357018`*^9}, {3.691830552612122*^9, 
   3.691830561863754*^9}, {3.691830602674449*^9, 3.691830606132692*^9}, {
   3.6918306794343615`*^9, 3.691830773796836*^9}, {3.6918308313489966`*^9, 
   3.6918309106411448`*^9}, {3.6918309941449995`*^9, 
   3.6918309981953583`*^9}, {3.691831038355411*^9, 3.6918310422350283`*^9}, {
   3.691831228670256*^9, 3.6918312420423183`*^9}, {3.691839157163799*^9, 
   3.6918392276436863`*^9}, {3.6918392668556356`*^9, 3.691839383838979*^9}, {
   3.6918394731919994`*^9, 3.691839496268346*^9}, {3.691839587341999*^9, 
   3.691839602675*^9}, {3.691839647059517*^9, 3.6918397005819526`*^9}, 
   3.6918397611862917`*^9, {3.691839802489634*^9, 3.691839808038471*^9}, {
   3.691839844766671*^9, 3.691839966748969*^9}, {3.691840031655272*^9, 
   3.6918400355718164`*^9}, {3.691840080376106*^9, 3.6918400837283754`*^9}, {
   3.6918411643862104`*^9, 3.6918413889269495`*^9}, {3.691841428026282*^9, 
   3.6918415090766907`*^9}, {3.693838645151016*^9, 3.6938386854749017`*^9}, {
   3.693838727189065*^9, 3.693838728343593*^9}, {3.6938388011354027`*^9, 
   3.6938388490881796`*^9}, 3.693838915517905*^9, {3.6938400720871086`*^9, 
   3.693840130533532*^9}, {3.6938414614839354`*^9, 3.693841473372944*^9}, {
   3.693841543247699*^9, 3.693841545030839*^9}, {3.6938416964776077`*^9, 
   3.6938417120862436`*^9}, {3.6938419213433914`*^9, 
   3.6938419233165207`*^9}, {3.6938423452666283`*^9, 
   3.6938423886871967`*^9}, {3.8938458189821577`*^9, 
   3.8938458241011057`*^9}, {3.8938458873315763`*^9, 3.893845969555736*^9}, 
   3.893846632980447*^9, {3.963139496884941*^9, 3.96313953199399*^9}, {
   3.9632265042634487`*^9, 3.963226522564445*^9}, {3.963226575984511*^9, 
   3.96322659483552*^9}, {3.963227291444227*^9, 3.963227335939415*^9}, {
   3.963309314226041*^9, 3.9633094020186167`*^9}, {3.963309451231052*^9, 
   3.963309455100223*^9}, {3.9633094980523777`*^9, 3.963309526437881*^9}, {
   3.963309563619753*^9, 3.963309587187044*^9}, {3.963309621795866*^9, 
   3.963309633429799*^9}, {3.9633097084831*^9, 3.963309709508029*^9}, {
   3.963309903581338*^9, 3.963309995547113*^9}, {3.963310349202752*^9, 
   3.963310357880335*^9}, {3.9633105961223583`*^9, 3.963310605427423*^9}, {
   3.963310696639557*^9, 3.9633107939350367`*^9}, {3.9633137099054813`*^9, 
   3.9633138294087267`*^9}, {3.9633139083456984`*^9, 3.963313918029364*^9}, 
   3.963313954349049*^9, {3.981381922705182*^9, 3.981382224413294*^9}, {
   3.9813822670780277`*^9, 3.981382268585877*^9}, {3.98138231277363*^9, 
   3.981382366622024*^9}, {3.9813824015464783`*^9, 3.981382403906619*^9}, {
   3.981382475374229*^9, 3.981382481094468*^9}, {3.98138251349722*^9, 
   3.9813825572309427`*^9}},
 FontSize->20,
 CellLabel->"In[59]:=",ExpressionUUID->"c61a8f6b-2f92-42c2-961a-354629e6b8f2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RepresentacionComplejo", "[", 
  RowBox[{"1", "-", "I"}], "]"}]], "Input",
 CellChangeTimes->{{3.691827333148488*^9, 3.691827375957631*^9}, {
   3.6918275884556108`*^9, 3.691827605318357*^9}, {3.6918276511889915`*^9, 
   3.6918276527202406`*^9}, {3.6918281627934513`*^9, 
   3.6918282306807055`*^9}, {3.6918290594695024`*^9, 3.69182906200494*^9}, {
   3.691830407276147*^9, 3.691830409366005*^9}, {3.691839429295698*^9, 
   3.6918394299910817`*^9}, {3.691839712927142*^9, 3.691839723110505*^9}, {
   3.691839984609437*^9, 3.6918399923406277`*^9}, {3.691840131960631*^9, 
   3.691840136555485*^9}, 3.69184016843888*^9, {3.691841091335762*^9, 
   3.691841099285141*^9}, {3.691841129336747*^9, 3.6918411297366724`*^9}, 
   3.6938400525526648`*^9, 3.693841368024601*^9, {3.6938416680430737`*^9, 
   3.693841673634301*^9}, {3.6938424065149717`*^9, 3.6938424066313887`*^9}, 
   3.693842782947923*^9, {3.9631393601588287`*^9, 3.963139368240409*^9}, {
   3.963227739524639*^9, 3.963227744345636*^9}, {3.98138170500454*^9, 
   3.981381705381214*^9}, {3.981381887289254*^9, 3.981381895171122*^9}, {
   3.981382729688815*^9, 3.9813827326007547`*^9}, 3.981382769527793*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"f728da5b-1436-4732-9c6f-7bdf7c70fa4d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"El m\[OAcute]dulo es: \"\>", "\[InvisibleSpace]", 
   SqrtBox["2"]}],
  SequenceForm["El m\[OAcute]dulo es: ", 2^Rational[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851984396*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"19d00e55-1249-483d-b10c-6faa12ca2310"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"El argumento en radianes es: \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "4"]}]}],
  SequenceForm["El argumento en radianes es: ", Rational[-1, 4] Pi],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851985903*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"c274d4bc-74a7-4d04-9813-cb1c85e52e58"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"El argumento en grados es: \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "45.`"}]}],
  SequenceForm["El argumento en grados es: ", -45.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851987762*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"2bc49894-7ac9-4dfa-b7ed-c13e4fb8189d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"El argumento en grados, minutos y segundos es: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "45"}], ",", "0", ",", "0.`"}], "}"}]}],
  SequenceForm[
  "El argumento en grados, minutos y segundos es: ", {-45, 0, 0.}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.98138285198903*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"a668b02d-03df-4a83-865f-d9765bc3dbfe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"L(z)= \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "4"]}], "+", 
    FractionBox[
     RowBox[{"Log", "[", "2", "]"}], "2"]}]}],
  SequenceForm["L(z)= ", Complex[0, 
      Rational[-1, 4]] Pi + Rational[1, 2] Log[2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851990377*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"8f5386ca-c68e-422f-abdc-4ceacee5b2cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"La parte real es: \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["La parte real es: ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851991588*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"ac1a9eec-c45d-4a2b-9479-cf462fc32be5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"La parte imaginaria es: \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "1"}]}],
  SequenceForm["La parte imaginaria es: ", -1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851992703*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"f9e4ad4e-b0d5-478a-8689-4f8d697f7768"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"El complejo a representar es \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}], "}"}]}],
  SequenceForm["El complejo a representar es ", {{1, -1}}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9632265995324497`*^9, 3.963227347581812*^9, 3.963227751107795*^9, 
   3.9633092747501163`*^9, 3.963309322752471*^9, {3.963309385808166*^9, 
   3.963309409398923*^9}, {3.963309534825075*^9, 3.963309547609708*^9}, 
   3.9633095972251177`*^9, 3.963309639701703*^9, 3.963309720155776*^9, 
   3.963310007296524*^9, 3.963310046142685*^9, 3.963310364311213*^9, 
   3.9633106457966957`*^9, {3.963310808896153*^9, 3.963310849929521*^9}, 
   3.9633108802100353`*^9, 3.963313837840817*^9, 3.9633139648748207`*^9, 
   3.977978059019182*^9, 3.981381710109353*^9, 3.981381897317294*^9, 
   3.981382382003006*^9, 3.981382414477974*^9, 3.981382489271718*^9, 
   3.981382569190329*^9, 3.981382739695477*^9, 3.981382775985752*^9, 
   3.981382851993865*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[60]:=",ExpressionUUID->"d05bf1b5-b584-4c31-8ea4-f1e50e943908"]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{}, 
    InterpretationBox[{
      TagBox[
       TagBox[
        {RGBColor[0.24, 0.6, 0.8], PointSize[0.02], AbsoluteThickness[2], 
         PointBox[{{1., -1.}, {1., -1.}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ],
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               PointSize[0.02]], 
              Point[{{1., -1.}, {1., -1.}}]}, "Charting`Private`Tag#1"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 2.}, {-2., 0}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {576, 720}, 
             "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
             Automatic, "DefaultStyle" -> {
               Directive[
                RGBColor[0.24, 0.6, 0.8], 
                AbsoluteThickness[2], 
                PointSize[0.02]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 2.}, {-2., 0}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {576, 720}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            Automatic, "DefaultStyle" -> {
              Directive[
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               PointSize[0.02]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>],
        ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}],
       Selectable->False]},
     Annotation[{{
        Annotation[{
          Directive[
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           PointSize[0.02]], 
          Point[{{1., -1.}, {1., -1.}}]}, "Charting`Private`Tag#1"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 2.}, {-2., 0}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {576, 720}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> Automatic, "DefaultStyle" -> {
           Directive[
            RGBColor[0.24, 0.6, 0.8], 
            AbsoluteThickness[2], 
            PointSize[0.02]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         ListPlot, "GroupHighlight" -> False|>|>, 
      "DynamicHighlight"]], {{}, {}}}, 
   {RGBColor[0, 0, 1], ArrowBox[{{0, 0}, {1, -1}}]}},
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["Re", HoldForm], TraditionalForm], 
    FormBox[
     TagBox["Im", HoldForm], TraditionalForm]},
  AxesOrigin->{0, 0},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.24, 0.6, 0.8], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.95, 0.627, 0.1425], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.455, 0.7, 0.21], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.578, 0.51, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.4, 0.64, 1.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1., 0.75, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.8, 0.4, 0.76], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.637, 0.65, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, 
    "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{0, 2.}, {-2., 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.691827355524064*^9, 3.6918273772443557`*^9}, 
   3.6918274747718487`*^9, {3.691827538645314*^9, 3.691827569574139*^9}, 
   3.6918276130187387`*^9, 3.6918276552068057`*^9, 3.691827856482587*^9, 
   3.691827902675563*^9, 3.691827992012723*^9, {3.691828112595852*^9, 
   3.6918282341649456`*^9}, 3.6918283416680937`*^9, 3.6918284115199304`*^9, 
   3.6918285632659655`*^9, {3.691828797406397*^9, 3.6918288219440827`*^9}, 
   3.691828942527935*^9, {3.6918290450905514`*^9, 3.691829063305274*^9}, {
   3.6918303455272417`*^9, 3.6918303577205634`*^9}, 3.691830412743117*^9, 
   3.6918305677649546`*^9, 3.6918306151182036`*^9, 3.6918307455358057`*^9, 
   3.6918307795340033`*^9, 3.6918310072267184`*^9, 3.69183105055579*^9, {
   3.6918312352076025`*^9, 3.6918312465482216`*^9}, {3.6918393921179333`*^9, 
   3.691839435606077*^9}, {3.6918395031070347`*^9, 3.6918395276296487`*^9}, 
   3.6918396079148016`*^9, 3.691839674387059*^9, {3.691839705313489*^9, 
   3.6918397266020894`*^9}, 3.6918397658659463`*^9, 3.6918398136813936`*^9, {
   3.69183997184945*^9, 3.69183999499465*^9}, 3.691840104544321*^9, 
   3.6918401397720175`*^9, 3.691840171655924*^9, {3.691841103586233*^9, 
   3.691841132406619*^9}, {3.6918413711130657`*^9, 3.691841401128183*^9}, 
   3.6938386957576227`*^9, 3.6938388549356623`*^9, 3.6938400185126524`*^9, 
   3.693840056899522*^9, 3.693840095293536*^9, 3.6938401346746273`*^9, 
   3.693841372026085*^9, 3.6938414784153337`*^9, 3.693841675414154*^9, 
   3.693841717740568*^9, 3.6938419295898843`*^9, 3.6938423738906336`*^9, 
   3.6938424080389624`*^9, {3.693842784533041*^9, 3.693842794162938*^9}, 
   3.893770163139852*^9, 3.8938457936053677`*^9, 3.8938459808950157`*^9, 
   3.89384659100548*^9, 3.8938466420577593`*^9, 3.893926529918827*^9, 
   3.963139375138071*^9, {3.963139528246208*^9, 3.963139538685779*^9}, 
   3.963226535280463*^9, 3.9632265997745028`*^9, 3.963227347621386*^9, 
   3.963227751154862*^9, 3.963309274792679*^9, 3.963309322791861*^9, {
   3.9633093858682423`*^9, 3.9633094094587708`*^9}, {3.963309534915554*^9, 
   3.963309547655428*^9}, 3.9633095972886257`*^9, 3.9633096397768087`*^9, 
   3.963309720228426*^9, 3.963310007360108*^9, 3.9633100462307243`*^9, 
   3.9633103643618107`*^9, 3.963310645852187*^9, {3.963310808973661*^9, 
   3.963310849979751*^9}, 3.9633108802429857`*^9, 3.963313837891523*^9, 
   3.963313964912716*^9, 3.977978059324943*^9, 3.981381710167611*^9, 
   3.9813818973664207`*^9, 3.981382382059022*^9, 3.981382414537776*^9, 
   3.981382489331411*^9, 3.9813825692512093`*^9, 3.981382739766765*^9, 
   3.981382776044017*^9, 3.981382852044417*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"b87ba59e-dc9a-4535-9672-b56f8a1d0c79"]
}, Open  ]]
},
WindowSize->{1412, 816},
WindowMargins->{{Automatic, 91}, {Automatic, 27}},
FrontEndVersion->"14.3 para Mac OS X x86 (64-bit) (July 8, 2025)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, 
  FrontEndVersion -> "14.3 para Mac OS X x86 (64-bit) (July 8, 2025)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"5d3abbdc-6e58-4754-a7a8-f0c0fd244363"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1137, 22, 70, "Input",ExpressionUUID->"ae1624a4-41cc-4344-8346-17b88ead86b8"],
Cell[1698, 44, 152, 2, 42, "Input",ExpressionUUID->"2ab0ca7f-aab9-41c9-9fa5-f3de3136eafa"],
Cell[1853, 48, 9475, 187, 1298, "Input",ExpressionUUID->"c61a8f6b-2f92-42c2-961a-354629e6b8f2"],
Cell[CellGroupData[{
Cell[11353, 239, 1264, 18, 42, "Input",ExpressionUUID->"f728da5b-1436-4732-9c6f-7bdf7c70fa4d"],
Cell[CellGroupData[{
Cell[12642, 261, 1088, 20, 23, "Print",ExpressionUUID->"19d00e55-1249-483d-b10c-6faa12ca2310"],
Cell[13733, 283, 1137, 21, 33, "Print",ExpressionUUID->"c274d4bc-74a7-4d04-9813-cb1c85e52e58"],
Cell[14873, 306, 1095, 20, 23, "Print",ExpressionUUID->"2bc49894-7ac9-4dfa-b7ed-c13e4fb8189d"],
Cell[15971, 328, 1206, 23, 23, "Print",ExpressionUUID->"a668b02d-03df-4a83-865f-d9765bc3dbfe"],
Cell[17180, 353, 1255, 26, 36, "Print",ExpressionUUID->"8f5386ca-c68e-422f-abdc-4ceacee5b2cf"],
Cell[18438, 381, 1052, 19, 23, "Print",ExpressionUUID->"ac1a9eec-c45d-4a2b-9479-cf462fc32be5"],
Cell[19493, 402, 1084, 20, 23, "Print",ExpressionUUID->"f9e4ad4e-b0d5-478a-8689-4f8d697f7768"],
Cell[20580, 424, 1179, 23, 23, "Print",ExpressionUUID->"d05bf1b5-b584-4c31-8ea4-f1e50e943908"]
}, Open  ]],
Cell[21774, 450, 10612, 231, 614, "Output",ExpressionUUID->"b87ba59e-dc9a-4535-9672-b56f8a1d0c79"]
}, Open  ]]
}
]
*)