Entrada destacada

Distancia media de dos puntos en un cuadrado unitario

martes, 27 de febrero de 2018

Arte Matemático de Hamid Naderi Yeganeh



Generando 10000 circulos con centros en (x[k], y[k]) y radios r[k] se generan estas hermosas figuras, puede encontrar más en la página del artista mathematics.culturalspot.org/home Aquí unos ejemplos para explorar

En Blanco y Negro

x[k_] := 2/3 Sin[14 \[Pi] k/10000] + 
  1/3 Sin[6 \[Pi] k/10000]^3 Cos[24 \[Pi] k/10000] + 
  1/10 Sin[106 \[Pi] k/10000]
y[k_] := 2/3 Cos[10 \[Pi] k/10000] + 
  1/3 Cos[6 \[Pi] k/10000]^3 Cos[24 \[Pi] k/10000] + 
  1/10 Cos[106 \[Pi] k/10000]
r[k_] := 1/150 + 
  1/18 Sin[38 \[Pi] k/10000]^4 (1 + Sin[8 \[Pi] k/10000]^2)

Graphics[Table[{(*RGBColor[Sin[k],Cos[k],1-Cos[k]],*)Opacity[0.2], 
   Circle[{x[k], y[k]}, r[k]]}, {k, 1, 10000}]]


En Color

x1[k_] := 
 1/2 Sin[38 \[Pi] k/10000] Cos[36 \[Pi] k/10000] + 
  1/2 Sin[18 \[Pi] k/10000]^3
y1[k_] := 
 2/3 Cos[18 \[Pi] k/10000] + 
  1/3 Cos[38 \[Pi] k/10000] Cos[36 \[Pi] k/10000] + 
  1/4 Cos[18 \[Pi] k/10000]^3
r1[k_] := 
 1/150 + 1/10 Sin[18 \[Pi] k/10000]^10 Sin[100 \[Pi] k/10000]^6 + 
  1/20 Sin[72 \[Pi] k/10000]^8 Cos[18 \[Pi] k/10000]^6

Graphics[Table[{RGBColor[Sin[k], Cos[k], 1 - Cos[k]], Opacity[0.2], 
   Circle[{x1[k], y1[k]}, r1[k]]}, {k, 1, 10000}]]



x2[k_] := 
 2/3 Sin[14 \[Pi] k/10000] + 
  1/3 Sin[36 \[Pi] k/10000]^3 Cos[24 \[Pi] k/10000] + 
  1/10 Sin[102 \[Pi] k/10000]
y2[k_] := 
 2/3 Cos[10 \[Pi] k/10000] + 
  1/3 Cos[10 \[Pi] k/10000]^3 Cos[28 \[Pi] k/10000] + 
  1/10 Cos[102 \[Pi] k/10000]
r2[k_] := 
 1/150 + 1/18 Sin[52 \[Pi] k/10000]^4 (1 + Sin[8 \[Pi] k/10000]^2)

Graphics[Table[{RGBColor[Sin[k], Cos[k], 1 - Cos[k]], Opacity[0.2], 
   Circle[{x2[k], y2[k]}, r2[k]]}, {k, 1, 10000}]]




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