Manipulate[Column[{Show[ListPlot[{{-10,0},{10,0},{0,-10},{0,10}},PlotStyle->{Red,PointSize[Small]}],ListPlot[GL[n]],Graphics[{Dotted,Line[{{p[[1]],0},p}],Line[{{0,p[[2]]},p}]}],Graphics[{PointSize[Small],Point[{p},VertexColors->{Green}]
}]],If[m==True,LL],Button["Generar",d++;p={0,0}]},Center],{{p,{0,0},"Punto en el plano"},{-10,-10},{10,10}},{n,2,10,1},{{m,False,"Ver coordenadas y cuadrantes"},{True,False}},Alignment->Center,TrackedSymbols:>{p,m,n} ,Initialization:>(d=0;GL[n_]:=Module[{},SeedRandom[d];L=RandomInteger[{-10,10},{n,2}];LL={};For[i=1,i≤Length[L],If[L[[i,1]]>0&&L[[i,2]]>0,LL=Append[LL,{L[[i]],"I"}]];If[L[[i,1]]<0&&L[[i,2]]>0,LL=Append[LL,{L[[i]],"II"}]];If[L[[i,1]]<0&&L[[i,2]]<0,LL=Append[LL,{L[[i]],"III"}]];If[L[[i,1]]>0&&L[[i,2]]<0,LL=Append[LL,{L[[i]],"IV"}]];If[L[[i,1]]==0&&L[[i,2]]≠0,LL=Append[LL,{L[[i]],"Eje y"}]];If[L[[i,1]]≠0&&L[[i,2]]==0,LL=Append[LL,{L[[i]],"Eje x"}]];i++];L])]

Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada, Escuela de Informática, Universidad Nacional de Costa Rica,  .