lissajous.R

# gerar uma sequência de -2pi até 2pi, com discretização de 2000
t <- seq(from = -2*pi, to = 2*pi, length.out = 2000)

# função para gerar os valores de x
X <- function(t, a, A = 1, d = pi/2) {
  A*sin(a*t+d)
}

# para gerar os valores de y
Y <- function(t, b, B = 1) {
  B*sin(b*t)
}

# parâmetros para gerar os gráficos em um plot device
# com 4 linhas e 4 colunas
par(mfrow = c(4, 4))

# plotar 16 vezes os pontos gerados com aquelas funções
for(i in 1:16) {
  a <- sample(1:10, 1)
  b <- sample(1:10, 1)

  plot(X(t, a), Y(t, b), main = paste0("a: ", a, " b: ", b))
}