<div dir="ltr"><div>Fernando,</div><div><br></div><div>Listei o código da draw.circle() e pelo que pude entender, ela depende diretamente das definições da tela ativa (par). </div><div><br></div><div><div><font face="courier new, monospace">function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, </font></div>
<div><font face="courier new, monospace"> lwd = 1) </font></div><div><font face="courier new, monospace">{</font></div><div><font face="courier new, monospace"> xylim <- par("usr")</font></div><div><font face="courier new, monospace"> plotdim <- par("pin")</font></div>
<div><font face="courier new, monospace"> ymult <- (xylim[4] - xylim[3])/(xylim[2] - xylim[1]) * plotdim[1]/plotdim[2]</font></div><div><font face="courier new, monospace"> angle.inc <- 2 * pi/nv</font></div><div>
<font face="courier new, monospace"> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)</font></div><div><font face="courier new, monospace"> if (length(col) < length(radius)) </font></div><div><font face="courier new, monospace"> col <- rep(col, length.out = length(radius))</font></div>
<div><font face="courier new, monospace"> for (circle in 1:length(radius)) {</font></div><div><font face="courier new, monospace"> xv <- cos(angles) * radius[circle] + x</font></div><div><font face="courier new, monospace"> yv <- sin(angles) * radius[circle] * ymult + y</font></div>
<div><font face="courier new, monospace"> polygon(xv, yv, border = border, col = col[circle], lty = lty, </font></div><div><font face="courier new, monospace"> lwd = lwd)</font></div><div><font face="courier new, monospace"> }</font></div>
<div><font face="courier new, monospace"> invisible(list(x = xv, y = yv))</font></div><div><font face="courier new, monospace">}</font></div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br><div class="gmail_quote">Em 14 de novembro de 2013 20:40, FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Éder,<div><br></div><div>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!</div>
<div><br></div><div>obrigado.</div><div><br></div><div>att,</div><div>FH</div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/14 Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Olá, Fernando!</div><div><br></div><div>As figuras estão distorcidas. Tente o primeiro código definindo 'asp=1' em plot(). Aqui deu certo!</div>
<div><br></div><div><font face="courier new, monospace">require(plotrix)</font></div>
<div><font face="courier new, monospace">#x11()</font></div><div><font face="courier new, monospace">plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '', asp=1)</font></div>
<div>
<div><font face="courier new, monospace">rect(-1, -1, 1, 1, lwd = 1.5)</font></div><div><font face="courier new, monospace">draw.circle(0, 0, 1)</font></div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">
Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div></div>
<br><br><div class="gmail_quote">Em 14 de novembro de 2013 19:58, FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div>
<div dir="ltr">Obtive uma resposta correta...<div><br></div><div><div><div>plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '')</div><div>rect(-1, -1, 1, 1, lwd = 1.5)</div>
</div><div>
x <- cos(seq(0, 2 * pi, length = 1000))</div><div>y <- sin(seq(0, 2 * pi, length = 1000))</div><div>polygon(x, y, lwd = 1.5)</div></div><div><br></div><div>att,</div><div>FH</div></div><div><div>
<div class="gmail_extra"><br><br>
<div class="gmail_quote">2013/11/14 FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Senhores,<div><br></div><div>Segue um CMR extremamente simples... a pergunta o resultado está certo?</div><div><br></div><div><div>require(plotrix)</div><div>plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '')</div>
<div>rect(-1, -1, 1, 1, lwd = 1.5)</div><div>draw.circle(0, 0, 1)</div></div><div><br></div><div>Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?</div><div><br></div><div>att,</div>
<div>FH</div></div>
</blockquote></div><br></div>
</div></div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>