(* Hay que introducir la llamada a la función con el número complejo y el índice de la raíz *)
(* De la siguiente forma RaicesComplejas[Complejo_, IndiceRaiz_] *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)

RaicesComplejas[Complejo_, IndiceRaiz_]:=
	      Module[{Modulo=0,ModuloRaiz=0,Argumento=0, ArgumentoInicial=0,Angulo=0,Lista={},Puntos={},Raiz=0, Contador=0},
		               Modulo=Abs[Complejo];
                             ModuloRaiz=Modulo^(1/IndiceRaiz);
		               ArgumentoInicial=Arg[Complejo];
                             Print["Módulo= ",ModuloRaiz];
                             Print["Argumento inicial= ",ArgumentoInicial];
		               While[Contador<IndiceRaiz, 
 			                   Angulo=(Contador*360)*(π/180);
				           Contador=Contador + 1;
			                    ArgumentoFinal=(ArgumentoInicial+Angulo)/IndiceRaiz;
			                    Raiz=N[ModuloRaiz*(Cos[ArgumentoFinal]+I Sin[ArgumentoFinal])];
			                    AppendTo[Puntos, {Re[Raiz], Im[Raiz]}];
			                    AppendTo[Lista, ArgumentoFinal]];
		                              Print["Los argumentos son: ",Lista];
		                              Print["Los puntos a representar son: ", Puntos];
		                              ListPlot[Puntos, PlotStyle->PointSize[0.02]]
			                   ]

RaicesComplejas[1+I, 2]