CONVERSIÓN DE COMPLEJOS. BINOMICA-POLAR

Clear["Global`*"];

BinomicaPolar[Complejo_]:=
	      Module[{Modulo=0,ArgumentoRadianes=0, ArgumentoGrados=0,NumeroPolar= 0,ParteReal =0,ParteImaginaria=0, Lista={}},
		               Modulo=Abs[Complejo];
                             ArgumentoRadianes=Arg[Complejo];
                             ArgumentoGrados=ArgumentoRadianes*(180/π);
                             ParteReal =Re[Complejo];
                             ParteImaginaria=Im[Complejo];
                             NumeroPolar=Modulo Exp[ArgumentoRadianes];
                             AppendTo[Lista, {ParteReal,ParteImaginaria}];
                             Print["Módulo= ",Modulo];
                             Print["El argumento en radianes= ",ArgumentoRadianes ];
                             Print["El argumento en grados= ",ArgumentoGrados ];
		               Print["El número complejo en polar es= ",NumeroPolar];
                             g1=ListPlot[Lista, AxesLabel->{Re,Im},
                                                                      PlotLabel->"Representación del complejo",
                                                                      AspectRatio->Automatic,    
                                                                      PlotRange->Automatic, 
                                                                      PlotStyle->PointSize[0.02],
                                                                      ImageSize->Large]; 
                            g2=Graphics[Arrow[{{0,0},{ParteReal,ParteImaginaria}}]];                  
                           Show[g1,g2]
			   ]

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

BinomicaPolar[1+(Sqrt[3])I]