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

BinomicaPolar[Complejo_]:=
	      Module[{Modulo=0,Argumento=0, NumeroPolar= 0,ParteReal =0,ParteImaginaria=0, Lista={}},
		               Modulo=Abs[Complejo];
                             Argumento=Arg[Complejo];
                             ParteReal =Re[Complejo];
                             ParteImaginaria=Im[Complejo];
                             NumeroPolar=Modulo Exp[Argumento];
                             AppendTo[Lista, {ParteReal,ParteImaginaria}];
                             Print["Módulo= ",Modulo];
                             Print["Argumento= ",Argumento];
		               Print["El número complejo en polar es= ",NumeroPolar];
                             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]
			   ]

BinomicaPolar[4+2I]