#
# R • MyCompiler
# atractordesimone
# https://[Log in to view URL]
# Atrator de Simone
# 
# 2026 Junho Sáb, 6
# by 
# j
# 

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

tipo <- 5

a <- switch(tipo,
                 3.61,
                 0.54,
                 3.69,
                 0.29,
                 3.64
            )

b <- switch(tipo,
                 4.24,
                 1.23,
                 4.51,
                 0.95,
                 1.71
            )

xn <- 1.0
yn <- -0.5

i <- 0

maxL <- 30000

while (i<=maxL) {

   xnp1 <- sin(xn*xn - yn*yn + a)
   ynp1 <- cos(2*xn*yn + b)
    
   xn <- xnp1
   yn <- ynp1

   x <- c(x,xn)
   y <- c(y,yn)
   
   i <- i + 1
   
}

plot(x, y, main = "Atrator Simone | R",pch=19, col="darkred", cex = 0.15)