CONVERSIÓN DE COMPLEJOS EN TODAS SUS FORMAS

Ejercicio modelo de conversión

1.- Expresa el complejo z = -2 + 2(Sqrt[3]) I en todos sus formas: binómica, polar, exponencial y trigonométrica.

Clear["Global`*"];

Conversion[Complejo_]:=
	      Module[{Binomica=0,Modulo=0,ArgumentoRadianes=0, ArgumentoGrados=0,NumeroExp=0, NumeroPolar= 0,NumeroTrig=0,ParteReal =0,ParteImaginaria=0, Polar=0,Lista={}},
		               Binomica=Complejo;
                             Modulo=Abs[Complejo];
                             ArgumentoRadianes=Arg[Complejo];
                             ArgumentoGrados=ArgumentoRadianes*(180/π);
                             ParteReal =Re[Complejo];
                             ParteImaginaria=Im[Complejo];
                             NumeroTrig=Modulo [Cos[ArgumentoRadianes] + I Sin[ArgumentoRadianes]];
                             NumeroExp=Modulo Exp[ArgumentoRadianes];
                             Polar=Subscript[Modulo,ArgumentoRadianes];
                             AppendTo[Lista, {ParteReal,ParteImaginaria}];
   (* Presentación de resultados *)
                             Print["El complejo = ",Binomica];
                             Print["Módulo= ",Modulo];
                             Print["El argumento en radianes= ",ArgumentoRadianes ];
                             Print["El argumento en grados= ",ArgumentoGrados ];
		               Print["El número complejo en forma trigonométrica es= ",NumeroTrig];
                             Print["El número complejo en forma polar es= ",Polar];
                             Print["El número complejo en forma exponencial es= ",NumeroExp];

      (* Presentación del gráfico *)          
                            g1=ListPlot[Lista, AxesLabel->{Re,Im},
                                                                      PlotLabel->"Representación del complejo",
                                                                      AspectRatio->Automatic,    
                                                                      PlotRange->Automatic, 
                                                                      PlotStyle->PointSize[0.02],
                                                                      ImageSize->Medium]; 
                            g2=Graphics[{Red,Arrow[{{0,0},{ParteReal,ParteImaginaria}}]}];          
                            Print["La representación gráfica del número complejo es: "];
                           Show[g1,g2]
                         TableForm[{{Binomica,Modulo, ArgumentoRadianes,ArgumentoGrados, NumeroTrig,Polar,NumeroExp}},
                       TableHeadings->{{"Complejos"},{"Complejo","Módulo","Arg(radianes)","Arg(grados)","Trigonométrica","Polar", "Exponencial"}}]
			   ]

Conversion[-1 + (Sqrt[3])I]

Conversion[-(1/2)+((Sqrt[3])/2)I]

Conversion[0+(1/2)I]

Conversion[5]