Clear["Global`*"];

(* Calcula la potencia de un número complejo en forma binómica, pasándolo previamente a polar*)
(* Hay que introducir la llamada a la función con el número complejo en forma binómica y el índice de la potencia *)
(* llamamos a la rutina de cálculo BinomicaPolar[Complejo_] *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)

BinomicaPolar[Complejo_,Exponente_]:=
	      Module[{Modulo=0,ArgumentoRadianes=0, ArgumentoGrados=0,NumeroPolar= 0,ParteReal =0,ParteImaginaria=0, Lista={}},
		               Modulo=Abs[Complejo];
                             ArgumentoRadianes=Arg[Complejo];
                                    If[ ArgumentoRadianes<0, ArgumentoRadianes=2π+ ArgumentoRadianes]; (* lo hacemos positivo *);
                             ArgumentoGrados=ArgumentoRadianes*(180/π);
                                    If[ ArgumentoGrados<0, ArgumentoGrados=360+ ArgumentoGrados]; (* lo hacemos positivo *);
                             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];
                             Print["La potencia del complejo es = ",(((NumeroPolar))^Exponente)];
                             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]
			   ]

BinomicaPolar[-1-I,5]

BinomicaPolar[-2(Sqrt[3])+2I,6]

BinomicaPolar[3-4I,3]