(* Hay que introducir la llamada a la función con el número complejo del cual se calculará el neperiano *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)

NeperianoComplejo[Complejo_]:=
	      Module[{Modulo=0,Argumento=0, NeperianoModulo=0},
		               Modulo=Abs[Complejo];
			 Argumento=Arg[Complejo];
                             NeperianoModulo=Log[Modulo];
                             Print["Módulo= ",Modulo];
                             Print["Argumento= ",Argumento];
                             Print["Neperiano del módulo= ", NeperianoModulo];
                             Print["L(z)= ", NeperianoModulo + I(Argumento)]
    	               ]

NeperianoComplejo[1+I]