application to graph mathematical relations (set)
03-20-2022, 01:59 PM (This post was last modified: 03-20-2022 07:56 PM by compsystems.)
Post: #1
 compsystems Senior Member Posts: 1,328 Joined: Dec 2013
application to graph mathematical relations (set)
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
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)