(* Hay que introducir el complejo en forma polar en sus partes: módulo, argumento (grados), potencia *)
(* La llamada a la función será PotenciaPolar[modulo, argumento, potencia] *)
(* El resultado de la aplicación de la función será: módulo, argumento (grados), argumento (radianes), complejo en polar (grados), complejo en polar (radianes) *)

PotenciaPolar[modulo_,argumento_,potencia_]:=
	      Module[{Modulo=0,ArgumentoGrados=0, ArgumentoRadianes=0,Potencia =0,NumeroPolarGrados= 0,NumeroPolarRadianes= 0},
		               Modulo=modulo^potencia;
                             ArgumentoGrados=argumento;
                             ArgumentoRadianes=argumento*(π/180);
			 NumeroPolarGrados =Modulo Exp[ArgumentoGrados];
                             NumeroPolarRadianes=Modulo Exp[ArgumentoRadianes];
                             Print["Módulo= ",Modulo];
                             Print["Argumento (grados)= ",ArgumentoGrados];
                            Print["Argumento (radianes)= ",ArgumentoRadianes];
		               Print["El número complejo en polar grados es= ",NumeroPolarGrados];
                             Print["El número complejo en polar radianes es= ",NumeroPolarRadianes];

			   ]

PotenciaPolar[2,30,3]

PotenciaPolar[2,270,3]

PotenciaPolar[2,230,4]