(* Hay que introducir la llamada a la función con la base y el exponente de la función por separado *)
(* Si introducimos la i tiene que ir con mayúscula *)

Clear["Global`*"]

ExponencialCompleja[Base_,Exponente_]:=
	      Module[{ Modulo=0,Argumento=0, NeperianoBase=0, NeperianoModulo=0,Exponencial=0},
		               Modulo=Abs[Base];
			 Argumento=Arg[Base];
                             NeperianoModulo=Log[Modulo];
                             NeperianoBase=NeperianoModulo + I(Argumento);
                             Exponencial=Exp[(Exponente*NeperianoBase)];
                             Print["Módulo= ",Modulo];
                             Print["Argumento= ",Argumento];
                             Print["Neperiano del módulo= ", NeperianoModulo];
                             Print["NeperianoBase = ",  NeperianoBase];
                             Print[ "Exponencial = ",Exponencial]
    	               ]

ExponencialCompleja[-1,I]

ExponencialCompleja[I,I]

ExponencialCompleja[2,1+I]

ExponencialCompleja[1+I,I]

ExponencialCompleja[-1+I,1/3]