[R-br] Círculo

[Éder Comunello]

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 em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]


Em 14 de novembro de 2013 20:40, FHRB Toledo
<fernandohtoledo em 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 em 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 em gmail.com>omunello.eder em gmail.com>
>> Dourados, MS - [22 16.5'S, 54 49'W]
>>
>>
>> Em 14 de novembro de 2013 19:58, FHRB Toledo <fernandohtoledo em 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 em 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 em 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 em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131114/bb3c4d01/attachment.html>