(* Hay que introducir la llamada a la función con el número complejo en forma polar *)
(* El ángulo se introduce en grados y el cálculo lo pasa a radianes *)
(* La llamada a la función es PolarBinomica[Modulo_, Argumento] *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)
(* g1 es la representación del número complejo *)
(* g2 es el vector que apunta al número complejo *)

PolarBinomica[Modulo_, Argumento_]:=
	      Module[{NumeroPolar= 0,NumeroBinomica=0,NumeroTrigonometrica=0,ParteReal =0,ParteImaginaria=0, Lista={}},
		               ParteReal=Modulo Cos[Argumento*(π/180)];
                             ParteImaginaria=Modulo Sin[Argumento*(π/180)];
                             NumeroBinomica=ParteReal + ParteImaginaria I;
                             NumeroTrigonometrica=Modulo (Cos[Argumento]+ I Sin[Argumento]);
                            AppendTo[Lista, {ParteReal,ParteImaginaria}];
                            Print["El módulo es= ",Modulo];
                            Print["El Argumento es= ",Argumento];
                            Print["El complejo en forma binómica es= ",NumeroTrigonometrica];
                            Print["Realizando operaciones, queda= ",N[NumeroBinomica]];
		              g1=ListPlot[Lista, AxesLabel->{Re,Im},
                                                                      AspectRatio->Automatic,    
                                                                      PlotRange->Automatic, 
                                                                      PlotStyle->PointSize[0.02],
                                                                      ImageSize->Large]; 
                            g2=Graphics[{Red,Arrow[{{0,0},{ParteReal,ParteImaginaria}}]}];                  
                            Show[g1,g2]
			   ]

PolarBinomica[(2^(1/4)),75]

PolarBinomica[(2^(1/4)),165]

PolarBinomica[(2^(1/4)),255]

PolarBinomica[(2^(1/4)),345]