Escorpión del artista Hamid Naderi Yeganeh

                                                                                                                  Descargar como Notebook

El matemático iraní Hamid Naderi Yeganeh genera otra figura de la naturaleza, ahora un escorpión.

El centro y radio de las circunferencias están dados por:

A[t_] := 1/3 Sin[20 t]^19 (Pi/2 + ArcTan[500 Cos[2 t]]) - 3/4 Sin[t]^20

B[t_] := 4/3 Cos[2 t] + 1/3 Sin[20 t]^20 Sin[120 t]^6 + 

  1/3 Sin[t]^60 Sin[3 t]^60 + 

  4/3 (Cos[t] Cos[3 t] Sin[20 t])^20 (1/2 + 3/2 Sin[60 t]^24)

R[t_] := 1/80 + 

  1/7 (1 + Cos[t]^4) (1 - Sin[20 t]^4) (1 - Sin[t]^80 Sin[3 t]^80) + 

  1/2 Cos[t]^40 Cos[3 t]^40 Sin[20 t]^50 Sin[320 t]^2

donde el parámetro t toma valores entre 0 y Pi, los tomamos con valores cada 0.001 para considerar 3141 circunferencias.

RegionPlot[

 Evaluate@Table[(x - A[t])^2 + (y - B[t])^2 <= R[t]^2, {t, 0, Pi, 

    0.001}], {x, -2, 2}, {y, -1.5, 3}, PlotPoints -> 100, 

 BoundaryStyle -> Black, PlotStyle -> Black]

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