Post Reply 
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
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[{0n}], {n, -462}];
puntosb Table[Point[{10n}], {n, -462}];
aaa Graphics[{Circle[{00}, {37}], Circle[{100}, {37}], 
    
Circle[{50}, 8, {Pi/32 Pi/3}], Arrow[{{8.96.95}, {96.9}}],
     
Text["f", {57}], Text["X", {-27}], Text["Y", {127}], Text["a", {-16}], Text["b", {-14}], Text["c", {-12}], Text["d", {-10}], Text["e", {-1, -2}], Text["f", {-1, -4}], Text["1", {116}], Text["2", {114}], Text["3", {112}], Text["4", {110}], Text["5", {11, -2}], Text["6", {11, -4}], puntosapuntosb}];
ran := RandomChoice[{-4, -20246}]
Manipulate[
 
Show[aaa
  If[
asignar
   
Graphics[{RedTable[Arrow[{{0n}, {10ran}}], {n, -462}]}], 
   
aaa]], {asignar, {FalseTrue}}, 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
Find all posts by this user
Quote this message in a reply
Post Reply 




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