application to graph mathematical relations (set)

[compsystems]

Hello.
In the following blog there is information on how to graph relations (sagittal diagram) from a code written for mathematica software.

[img width=304 height=320]https://3.bp.blogspot.com/-aF6wuvCTdr0/WvGBn2LPFpI/AAAAAAAABMc/vKfUyFG07qU9p_XQfiBTa-7DDwq6tOOjwCLcBGAs/s320/funcionsagital1.jpeg[/img]

but the code is not a function that allows you to change, for certain cases, parameters and then make the graph, you have to make many changes manually to the code.

PHP Code:

puntosa = Table[Point[{0, n}], {n, -4, 6, 2}];
puntosb = Table[Point[{10, n}], {n, -4, 6, 2}];
aaa = Graphics[{Circle[{0, 0}, {3, 7}], Circle[{10, 0}, {3, 7}], 
    Circle[{5, 0}, 8, {Pi/3, 2 Pi/3}], Arrow[{{8.9, 6.95}, {9, 6.9}}],
     Text["f", {5, 7}], Text["X", {-2, 7}], Text["Y", {12, 7}], Text["a", {-1, 6}], Text["b", {-1, 4}], Text["c", {-1, 2}], Text["d", {-1, 0}], Text["e", {-1, -2}], Text["f", {-1, -4}], Text["1", {11, 6}], Text["2", {11, 4}], Text["3", {11, 2}], Text["4", {11, 0}], Text["5", {11, -2}], Text["6", {11, -4}], puntosa, puntosb}];
ran := RandomChoice[{-4, -2, 0, 2, 4, 6}]
Manipulate[
 Show[aaa, 
  If[asignar, 
   Graphics[{Red, Table[Arrow[{{0, n}, {10, ran}}], {n, -4, 6, 2}]}], 
   aaa]], {asignar, {False, True}}, SaveDefinitions -> True] 


Please let me know if you know of an application like lucidChart or similar (geogebra) that makes sagittal diagrams, that is, one among the elements of the sets X={a,b,c,d,e,f}, Y={ 1,2,3,4,5,6}, and the relationships as (x,y) pairs, then have him draw the diagram with their relationships.



Thank you