6 votos

¿Existe el círculo de Koch?

¿Existe algún fractal como el copo de nieve de Koch, pero sólo con muchos círculos alrededor de un círculo inicial más grande, cada uno de ellos rodeado por círculos más pequeños y así sucesivamente (pero todos ellos besando a un círculo más grande)? O sea, círculos en lugar de los triángulos de un copo de nieve de Koch... Si no es así, ¿por qué?

4 votos

No estoy seguro de todos los detalles que quieres, pero cualquier cosa que puedas imaginar o dibujar a grandes rasgos podría ciertamente ser "fractalizada", pero queda la cuestión de por qué alguien querría estudiarla. Lo más parecido a lo que quieres podría ser Junta apolínea Sin embargo.

1 votos

Una junta apolínea se acerca a lo que imagino, ¡sí! Sinceramente, no conozco una razón para estudiarlo, aparte de que puede ser bonito (probablemente no tan bonito como la junta).

0 votos

La junta apolínea parece la mejor respuesta hasta ahora.

9voto

Claude Puntos 188

Partes de la Conjunto de Mandelbrot parecen círculos con círculos más pequeños unidos recursivamente:

the Mandelbrot set rendered in black and white with distance estimation

No son círculos del todo exactos (excepto el centrado en $-1+0i$ ), pero la propiedad de que el radio del círculo menor unido a un ángulo racional $\frac{p}{q}$ medido en vueltas es aproximadamente $q^2$ veces más pequeño proporciona una forma de construir un fractal similar a partir de círculos exactos:

fractal circles similar to the Mandelbrot set

Código fuente de Haskell utilizando el Diagramas biblioteca:

import Diagrams.Prelude
import Diagrams.Backend.SVG.CmdLine (defaultMain)

main
  = defaultMain
  $ diagram 1
  # rotateBy (-0.25)
  # pad 1.1
  # lw thin
  # bg white

power = 2

minimumRadius = 0.001

diagram radius
  | radius < minimumRadius = mempty
  | otherwise = circle radius <> mconcat
     [ diagram r
     # rotateBy (s - 0.5)
     # translate (r2 (rr * cos t, rr * sin t))
     | den <- [ 2 .. ceiling (sqrt (radius / minimumRadius)) ]
     , num <- [ 1 .. den - 1 ]
     , num `gcd` den == 1
     , let s = fi num / fi den
     , let t = 2 * pi * s
     , let r = radius / fi den ** power
     , let rr = radius + r
     ]
  where
    fi = fromInteger

Reducir la power hace que los círculos sean más grandes, pero si es demasiado baja, acaban solapándose; en cualquier caso, la potencia debe ser mayor que uno para garantizar que los círculos se reduzcan realmente.

0 votos

(+1) Gracias por el código :) El solapamiento de los círculos también me preocupaba, ¡has encontrado una buena reducción de lo que buscaba!

0 votos

¿Puedes enlazar una versión de la segunda imagen en la que la potencia esté ajustada de forma que los círculos se reduzcan lo más gradualmente posible sin superponerse?

1 votos

@alan2here Sospecho que la potencia mínima sin superposición es de hecho $2$ como en la foto, aunque todavía no tengo una prueba. Tal vez el hecho de que $\operatorname{exsec} \theta \approx \frac{1}{2}\theta^2$ ¿tiene algo que ver?

8voto

Mark McClure Puntos 14421

¿Esto es bueno?

enter image description here

Es el último cuadro de la animación para esta respuesta .

2 votos

Creo que esta es definitivamente la más cercana de las tres respuestas a coincidir con el espíritu de la pregunta del OP. Es muy fascinante. +1

0 votos

Sí, ¡elijo esto como respuesta! Casi exactamente como me lo imaginaba... ¡pero más bonito! Aunque también me han gustado las otras respuestas :)

7voto

Anthony Cramp Puntos 126

Tal vez la "Coraza del Faraón" descrita por Mandelbrot.

PB Aquí trazado por Ken Monks

2voto

Tom H Puntos 21

Si dibujas 6 círculos más pequeños dentro de cada círculo que dibujas... terminas con algo así como un

"Sierpinski circle"

Mi renderización sólo dibuja 6 iteraciones de profundidad - pero teóricamente podrías ir para siempre.

i-Ciencias.com

I-Ciencias es una comunidad de estudiantes y amantes de la ciencia en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros usuarios, hacer tus propias preguntas o resolver las de los demás.

Powered by:

X