Gostaria de colorir apenas a região dentro do circulo, mas não estou conseguindo. O programa e a imagem são:
theta <- seq(0, 2 * pi, length = 200)
r = exp(1i*theta)
fx=function(r) {
x = r-1
return (x) }
xi = fx(r)
plot(xi)
Gostaria de colorir apenas a região dentro do circulo, mas não estou conseguindo. O programa e a imagem são:
theta <- seq(0, 2 * pi, length = 200)
r = exp(1i*theta)
fx=function(r) {
x = r-1
return (x) }
xi = fx(r)
plot(xi)
Considero que a melhor maneira de resolver este problema, dada esta resposta ao meu comentário acima, é fazer um polígono com os valores da função em vez de tentar fazer um círculo. Segue o código para isso:
theta <- seq(0, 2 * pi, length = 200)
r <- exp(1i*theta)
fx <- function(r) {
x = r-1
return (x)
}
xi <- fx(r)
plot(xi)
polygon(Re(xi), Im(xi), col="cyan")
Note que simplesmente construí um polígono com as partes reais e imaginárias do resultado obtido pela função.