<<VilCretas`

GrafoString["Bienvenido"]

A = {{1,2},{3,2},{2,5}};
(*Este comando le da vuelta a la lista, no a los elementos*)

Reverse[A]

Con este comando el eje X pasa a ser el eje Y, el eje Y pasa a ser el X

Reverse /@ A

Comandos de operaciones con matrices

InterseccionBooleana

UnionBooleana

ComplementoBooleano

ProductoBooleano

Transpose

Comandos de operaciones con relaciones

Intersection

Union

Complement

RelacionComposicion

Reverse /@

A={9,106,132,18,28,44,72,61,94,2};

R={{2,2},{2,18},{2,94},{9,9},{9,106},{18,2},{18,18},{18,94},{28,28},{44,44},{44,61},{61,44},{61,61},{72,72},{94,2},{94,18},{94,94},{106,9},{106,106},{132,132}};

ClasesEquivalencia[R,A]

(CanvasOverlay[(CanvasFrame), ])

A={46,31,40,66,30,37};

R={{40,40},{66,40},{30,46},{66,46},{40,30},{31,30},{31,46},{37,37},{46,40},{37,31},{46,46},{30,37},{31,37},{66,30},{30,66}};

MR=MatrizRelBin[R,A,A]

A= Range[-30, 996,18];
B= Range[-30,998, 4];
Length[PC[A,B]]
PC[A,B]//Length

A={100,8,55,34,81,1,39,87,53,16};

B={13,62,21,66,44,88,93,95,80,16};

H={22,64,5,18,95,72,52,44,98,10};

R1={{8,88},{100,80},{53,80},{100,44},{87,93},{53,16},{8,93},{87,13},{1,62},{100,93}};

R2={{16,22},{95,98},{88,10},{66,5},{80,72},{21,22},{88,44},{62,72},{80,22},{66,72}};

MR1=MatrizRelBin[R1,A,B][[1]];

MR2=MatrizRelBin[R2,B,H][[1]];

R=RelBinMatriz[ProductoBooleano[MR1,MR2][[1]],A,H]

R=RelacionComposicion[R2,R1];

opciones = {{100,72},{34,10},{53,22},{39,64},{87,95},{1,72}};
Table[i->ElementRelBinQ[R,i],{i,opciones}]