(* Hay que introducir la llamada a la función con RepresentaciónComplejo[Complejo] *)
(* Introducimos el complejo y me da su opuesto y su conjugado *)
(* Si introducimos el complejo directamente la i tiene que ir con mayúscula *)

Clear["Global`*"];

RepresentacionComplejo[Complejo_]:=
     Module[{Modulo=0, Argumento=0, ParteReal=0,ParteImaginaria=0,ParteRealOpuesto =0,ParteImaginariaOpuesto=0,
                ParteRealConjugado =0,ParteImaginariaConjugado=0, Lista={}, Punto={}},
                  Modulo = Abs[Complejo];
                  Argumento = N[Arg[Complejo]];
                  ParteReal =Re[Complejo];
                  ParteImaginaria=Im[Complejo];
                  ParteRealOpuesto =-Re[Complejo];
                 ParteImaginariaOpuesto=-Im[Complejo];
                  ParteRealConjugado =Re[Complejo];
                 ParteImaginariaConjugado=-Im[Complejo];
                 AppendTo[Lista, {ParteReal,ParteImaginaria}];
                  AppendTo[Lista, {ParteRealOpuesto,ParteImaginariaOpuesto}];
                  AppendTo[Lista, {ParteRealConjugado,ParteImaginariaConjugado}];
                  Print["Los números complejos a representar son ",Lista];  
                    g1=ListPlot[Lista, AxesLabel->{Re,Im},
                                                             AspectRatio->Automatic,    
                                                             PlotRange->Automatic, 
                                                             PlotStyle->PointSize[0.02],
                                                             ImageSize->Large]; 
                    g2=Graphics[{Blue,Arrow[{{0,0},{ParteReal,ParteImaginaria}}],
                                              Red,Arrow[{{0,0},{ParteRealOpuesto,ParteImaginariaOpuesto}}], 
                                              Green,Arrow[{{0,0},{ParteRealConjugado,ParteImaginariaConjugado}}]}];
                     Show[g1,g2]
                 ]

Complejo=3-5I;

RepresentacionComplejo[Complejo]

Complejo=5+2I;

RepresentacionComplejo[Complejo]

Complejo=-1-2I;

RepresentacionComplejo[Complejo]

Complejo=-2+3I;

RepresentacionComplejo[Complejo]

Complejo=5;

RepresentacionComplejo[Complejo]

Complejo=0;

RepresentacionComplejo[Complejo]

Complejo=2I;

RepresentacionComplejo[Complejo]

Complejo=-5I;

RepresentacionComplejo[Complejo]