(* Hay que introducir la llamada a la función con el número complejo *)
(* De la siguiente forma RepresentaciónComplejo[Complejo] *)

RepresentacionComplejo[Complejo_]:=
     Module[{Modulo=0, Argumento=0, ArgumentoFraccionado=0,ArgumentoGrados=0,Lista={}, Punto={}},
                   Modulo = Abs[Complejo];
                   Argumento = N[Arg[Complejo]];
                   ArgumentoGrados=N[Argumento/Degree];
                   ArgumentoFraccionado=DMSList[Argumento];
                   ParteReal =Re[Complejo];
                   ParteImaginaria=Im[Complejo];
                   AppendTo[Lista, {ParteReal,ParteImaginaria}];
                   Print["La parte real es: ",ParteReal];
	          Print["La parte imaginaria es: ",ParteImaginaria];
                   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["El complejo a representar es ",Lista];  
                   g1=ListPlot[Lista, AxesLabel->{Re,Im},
                                                             AspectRatio->Automatic,    
                                                             PlotRange->Automatic, 
                                                           PlotStyle->PointSize[0.02],
                                                           ImageSize->Large]; 
                  g2=Graphics[Arrow[{{0,0},{ParteReal,ParteImaginaria}}]];                  
                  Show[g1,g2]
]

Complejo=4-(Sqrt[2])I;
RepresentacionComplejo[Complejo]