(* Hay que introducir la base y el exponente de la potencia compleja *)
(* Hay que introducir la llamada a la función con el que se calculará la potencia: PotenciaCompleja[BasePotencia_,ExponentePotencia_] *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)

PotenciaCompleja[BasePotencia_,ExponentePotencia_]:=
	      Module[{Modulo=0,Argumento=0, Potencia=0, NeperianoModulo=0,  NeperianoBase=0},
		               Modulo=Abs[BasePotencia];
			 Argumento=Arg[BasePotencia];
                             NeperianoModulo=Log[Modulo]; 
                             NeperianoBase=NeperianoModulo + I(Argumento);
                             Potencia=Exp[ExponentePotencia*NeperianoBase];
                             Print["Módulo= ",Modulo];
                             Print["Argumento= ",Argumento];
                             Print["Neperiano del módulo= ", NeperianoModulo];
                             Print["L(Base)= ", NeperianoModulo + I(Argumento)];
                             Print["Potencia]= ",Potencia]
  	               ]

PotenciaCompleja[1+I,I]