El matemático iraní Hamid Naderi Yeganeh se ha caracterizado por generar figuras de la vida real a partir de objetos matemáticos, ya había publicado algunos de sus objetos aquí. Ahora, nos muestra como generar un ave.
Clear[a,b,r]
a[k_] := k/15000 +
Sin[17 Pi/20 (k/20000)^5] Cos[
41 k Pi/20000]^6 + (1/3 Cos[41 k Pi/20000]^16 +
1/3 Cos[41 k Pi/20000]^80) Cos[k Pi/40000]^12 Sin[6 k Pi/20000]
b[k_] := 1/2 (k/20000)^4 -
Cos[17 Pi/20 (k/20000)^5] (11/10 +
9/4 Cos[k Pi/40000]^8 Cos[3 k Pi/40000]^6) Cos[
41 k Pi/20000]^6 +
3/5 Cos[3 k Pi/200000]^10 Cos[9 k Pi/200000]^10 Cos[
18 k Pi/200000]^10
r[k_] := (1/
50) + (1/40) (Sin[41 k Pi/20000]^2) (Sin[9 k Pi/200000]^2) + (1/
17) (Cos[41 k Pi/20000]^2) (Cos[k Pi/40000]^10)
Graphics[Table[Circle[{a[k], b[k]}, r[k]], {k, -20000, 20000}]]
Otra perspectiva del ave
a[k_] := k/1500 +
Sin[17 Pi/20 (k/20000)^5] Cos[
41 k Pi/20000]^6 + (1/3 Cos[41 k Pi/20000]^16 +
1/3 Cos[41 k Pi/20000]^80) Cos[k Pi/40000]^12 Sin[6 k Pi/20000]
b[k_] := 1/2 (k/20000)^4 -
Cos[17 Pi/20 (k/20000)^5] (11/10 +
9/4 Cos[k Pi/40000]^8 Cos[3 k Pi/40000]^6) Cos[
41 k Pi/20000]^6 +
3/5 Cos[3 k Pi/200000]^10 Cos[9 k Pi/200000]^10 Cos[
18 k Pi/200000]^10
r[k_] := (1/
50) + (1/40) (Sin[41 k Pi/20000]^2) (Sin[9 k Pi/200000]^2) + (1/
17) (Cos[41 k Pi/20000]^2) (Cos[k Pi/40000]^10)
Graphics[Table[Circle[{a[k], b[k]}, r[k]], {k, -20000, 20000}]]
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