Senhores, Segue um CMR extremamente simples... a pergunta o resultado está certo? require(plotrix) plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1) Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado? att, FH
Obtive uma resposta correta... plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) x <- cos(seq(0, 2 * pi, length = 1000)) y <- sin(seq(0, 2 * pi, length = 1000)) polygon(x, y, lwd = 1.5) att, FH 2013/11/14 FHRB Toledo <fernandohtoledo@gmail.com>
Senhores,
Segue um CMR extremamente simples... a pergunta o resultado está certo?
require(plotrix) plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1)
Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?
att, FH
Olá, Fernando! As figuras estão distorcidas. Tente o primeiro código definindo 'asp=1' em plot(). Aqui deu certo! require(plotrix) #x11() plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '', asp=1) rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1) Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W] Em 14 de novembro de 2013 19:58, FHRB Toledo <fernandohtoledo@gmail.com>escreveu:
Obtive uma resposta correta...
plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) x <- cos(seq(0, 2 * pi, length = 1000)) y <- sin(seq(0, 2 * pi, length = 1000)) polygon(x, y, lwd = 1.5)
att, FH
2013/11/14 FHRB Toledo <fernandohtoledo@gmail.com>
Senhores,
Segue um CMR extremamente simples... a pergunta o resultado está certo?
require(plotrix) plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1)
Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?
att, FH
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Éder, Sua solução funcionou... o engraçado é que, quando não setamos o "asp=1" plotando os dois círculos (pela draw.circle() e "fazendo na mão") um circulo fica correto e o outro não! obrigado. att, FH 2013/11/14 Éder Comunello <comunello.eder@gmail.com>
Olá, Fernando!
As figuras estão distorcidas. Tente o primeiro código definindo 'asp=1' em plot(). Aqui deu certo!
require(plotrix) #x11() plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '', asp=1) rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1)
Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
Em 14 de novembro de 2013 19:58, FHRB Toledo <fernandohtoledo@gmail.com>escreveu:
Obtive uma resposta correta...
plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) x <- cos(seq(0, 2 * pi, length = 1000)) y <- sin(seq(0, 2 * pi, length = 1000)) polygon(x, y, lwd = 1.5)
att, FH
2013/11/14 FHRB Toledo <fernandohtoledo@gmail.com>
Senhores,
Segue um CMR extremamente simples... a pergunta o resultado está certo?
require(plotrix) plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1)
Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?
att, FH
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Fernando, Listei o código da draw.circle() e pelo que pude entender, ela depende diretamente das definições da tela ativa (par). function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, lwd = 1) { xylim <- par("usr") plotdim <- par("pin") ymult <- (xylim[4] - xylim[3])/(xylim[2] - xylim[1]) * plotdim[1]/plotdim[2] angle.inc <- 2 * pi/nv angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) if (length(col) < length(radius)) col <- rep(col, length.out = length(radius)) for (circle in 1:length(radius)) { xv <- cos(angles) * radius[circle] + x yv <- sin(angles) * radius[circle] * ymult + y polygon(xv, yv, border = border, col = col[circle], lty = lty, lwd = lwd) } invisible(list(x = xv, y = yv)) } Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W] Em 14 de novembro de 2013 20:40, FHRB Toledo <fernandohtoledo@gmail.com>escreveu:
Éder,
Sua solução funcionou... o engraçado é que, quando não setamos o "asp=1" plotando os dois círculos (pela draw.circle() e "fazendo na mão") um circulo fica correto e o outro não!
obrigado.
att, FH
2013/11/14 Éder Comunello <comunello.eder@gmail.com>
Olá, Fernando!
As figuras estão distorcidas. Tente o primeiro código definindo 'asp=1' em plot(). Aqui deu certo!
require(plotrix) #x11() plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '', asp=1) rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1)
Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
Em 14 de novembro de 2013 19:58, FHRB Toledo <fernandohtoledo@gmail.com>escreveu:
Obtive uma resposta correta...
plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) x <- cos(seq(0, 2 * pi, length = 1000)) y <- sin(seq(0, 2 * pi, length = 1000)) polygon(x, y, lwd = 1.5)
att, FH
2013/11/14 FHRB Toledo <fernandohtoledo@gmail.com>
Senhores,
Segue um CMR extremamente simples... a pergunta o resultado está certo?
require(plotrix) plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '') rect(-1, -1, 1, 1, lwd = 1.5) draw.circle(0, 0, 1)
Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?
att, FH
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
participantes (2)
-
FHRB Toledo -
Éder Comunello