#
# R
#
# Fractais
#
#    O menor código para gerar
#    o Conjunto de Mandelbrot para
#    fins educacionais
#
# quarta-feira 25 março 2026
# by
# j
#

x <- c()
y <- c()

mandelbrot <- function(num) {

    xmin <- -2
    xmax <- +2
    ymin <- -2
    ymax <- +2
    
    maxx <- 20
    maxy <- 20

    dx <- (xmax - xmin)/maxx
    dy <- (ymax - ymin)/maxy
    
    lim <- 81
    
    ix <- 0
    while (ix < maxx) {

        xn <- xmin + ix*dx
        
        iy <- 0
        while (iy < maxy) {
            
           yn <- ymin + iy*dy
            
           z <- 0
           C <- xn + yn*1i

           n <- 0

           flag <- TRUE
            
           while (n <= lim && flag ) {
               
             z <- z^2 + C

             if ( Mod(z) > 2 ) {

                 flag <- FALSE
                 
             }
               
             n <- n + 1
               
           }

           if (flag) {

               x <- c(x,xn)
               y <- c(y,yn)
               
           }

           iy <- iy + 1
            
        }

        ix <- ix + 1

    }

    plot(x, y, pch=19, mai = "Mandelbrot", col="darkblue", cex = 2 )
               
}

mandelbrot(0)