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
