(* Hay que introducir la llamada a la función con el número complejo en forma binómica*)
(* De la siguiente forma: RepresentaciónComplejo[Complejo] *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)

Clear["Global`*"]

RepresentacionComplejo[Complejo_]:=
     Module[{Modulo=0, Argumento=0,ArgumentoGrados=0, ArgumentoFraccionado=0,ParteReal= 0,
                  ParteImaginaria=0,NeperianoModulo,Lista={}, Punto={}},
                   Modulo = Abs[Complejo];                                                                                                                              (* cálculo *)
                   Argumento = Arg[Complejo];
                   NeperianoModulo=Log[Modulo];
                   ArgumentoGrados=N[Argumento/Degree];
                   ArgumentoFraccionado=DMSList[ArgumentoGrados];
                   ParteReal=Re[Complejo];
                   ParteImaginaria=Im[Complejo];
                   AppendTo[Lista, {ParteReal,ParteImaginaria}];
                   Print["El módulo es: ",Modulo];                                                                                                           (* salida resultados *)
                   Print["El argumento en radianes es: ",Argumento];
                   Print["El argumento en grados es: ", ArgumentoGrados];
                   Print["El argumento en grados, minutos y segundos es: ",ArgumentoFraccionado];
                   Print["L(z)= ", NeperianoModulo + I(Argumento)];
                   Print["La parte real es: ",ParteReal];
	          Print["La parte imaginaria es: ",ParteImaginaria];
                   Print["El complejo a representar es ",Lista];  
                   g1=ListPlot[Lista, AxesLabel->{Re,Im},                                                                                        (* representación gráfica *)
                                                             AspectRatio->Automatic,    
                                                             PlotRange->Automatic,
                                                             PlotStyle->PointSize[0.02],ImageSize->Large];
                  g2=Graphics[Arrow[{{0,0},{ParteReal,ParteImaginaria}}]];
                  Show[g1,g2]
                  ]

Complejo=1+I;
RepresentacionComplejo[Complejo]

Complejo=8-8I;

RepresentacionComplejo[Complejo]