Entrada destacada

Juego del Caos cambiando el dado al orden del Genoma

martes, 8 de mayo de 2018

Generador de Funciones en Diagrama Sagital


Dados dos conjuntos discretos X={a,b,c,d,e,f} y Y={1,2,3,4,5,6} construimos un generador de funciones del conjunto X en el conjunto Y.

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]



A diferencia del aplicativo anterior, ahora generamos un aplicativo que nos muestra el dominio de la función f de X en Y.

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, num = RandomInteger[{1, 5}]; 
   Graphics[{Red, 
     Table[Arrow[{{0, n}, {10, ran}}], {n, 6, 8 - 2 num, -2}], Blue, 
     Circle[{0, 7 - num}, {1.3, num}], Text["Dom(f)", {-2.7, 7 - num}]}], 
   aaa]], {asignar, {False, True}}, SaveDefinitions -> True]





Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas


No hay comentarios.:

Publicar un comentario