#
# R
# Mapa Logístico
#
# Quarta~Feira 1 de Abril 2026
# by
# j
# 

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

maplog <- function() {
    
    max <- 1000
    last <- 100

    lmin <- 2.6
    lmax <- 4.0

    xstart <- 0.5

    ldelta <- 0.0045
    
    l <- lmin
    
    while (l <= lmax) {
        
        i <-0

        xn <- xstart
        
        while (i <= max) {

          xn <- l*xn*(1-xn)
            
          if (i > (max - last)) {
              
              x <- c(x,l)
              y <- c(y,xn)
              
          }
            
          i <- i + 1
            
        }
        
        l <- l + ldelta
    }
    
    plot(x, y, main = 'Diagrama de Bifurcacao do Mapa Logistico', pch=19, col="blue", cex = 0.1)
    
}

maplog()