<<Vilcretas`

GrafoString["Hola"]

?ClasificacionRelBin

?RelBinGrafo

A=Range[2,500,2];

B=Range[1,500,2];

Length[PC[A,B]]

a-b

-10+6

-6+2

Clear[A,B]

A=Range[1,99,2];
B = Range[2,100,2];

R=RelBin["",A,B]

L={{(Sqrt[2]),(7/3)(Sqrt[(17/2)])},{5(Sqrt[2]),(7/3)(Sqrt[(29/2)])},{2(Sqrt[7]),((7(Sqrt[2]))/3)},{(Sqrt[2]),(7/3)(Sqrt[(53/2)])},{-3,((7(Sqrt[3]))/2)},{(Sqrt[3]),-(7/2)(Sqrt[(11/3)])},{-3,((7(Sqrt[11]))/2)},{(Sqrt[7]),-((7(Sqrt[29]))/6)},{(1/2),-((7(Sqrt[143]))/12)},{0,-7}};
Table[punto->ElementRelBinQ["a^2/36+b^2/49==1",punto,expalgebra->True],{punto,L}]

<<TutoriasED`

existeElementoRelBin[R_,opciones_]:=Table[i->ElementRelBinQ[R,i],{i,opciones}]

opciones = {{100,22},{34,10},{53,22},{39,64},{1,72}};
resultados = {{1,72},{8,10},{8,44},{53,22},{53,72},{100,10},{100,44}};

existeElementoRelBin[resultados, opciones]

existeElementoRelBin[resultados, opciones]

A2 =Range[2,100,2];

R2 =RelBin["a+b<=20",A2,A2]

Length[R2]

DominioRelBin[R2]

RangoRelBin[R2]

?GrafoRelBin

A3={11,13,17,19,21,22,23,29,32,51,72,83,89,97,113,121,127,222,312,723};

R3=RelBin["PalindromeQ[a]&&PalindromeQ[b]",A3,A3]

PalindromeQ[a]&&PalindromeQ[b]

A4=Range[5];
R4=RelBin["Mod[a^2-b^2,5]==0",A4,A4]

R2
GraficaRelBinPares[R2]
MR2=MatrizRelBin[R2,A,A]
GrafoRelBin[R2,A]

A={11,13,17,19,21,22,23,29,32,51,72,83,89,97,113,121,127,222,312,723};
R3=RelBin["PalindromeQ[a]&&PalindromeQ[b]",A,A];
GraficaRelBinPares[R3]
MR3=MatrizRelBin[R3,A,A, encabezados->True]
GrafoRelBin[R3,A]

A=Range[5];
R4=RelBin["Mod[a^2-b^2,5]==0",A,A];
GraficaRelBinPares[R4]
MR4=MatrizRelBin[R4,A,A]
GrafoRelBin[R4,A]

ComplementoBooleano[Transpose[MR4[[1]]]]

MR4

R4
Reverse/@R4