Displaying 9 results from an estimated 9 matches for "getymult".
Did you mean:
getmul
2017 Jun 14
4
[FORGED] Re: draw stripes in a circle in R
...console and edit
>
> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
> density=NA, angle=45, lwd = 1 )
> {
> xylim <- par("usr")
> plotdim <- par("pin")
> ymult <- getYmult()
> 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) * radi...
2017 Jun 14
0
draw stripes in a circle in R
...------
draw.circle # then copy to console and edit
draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
density=NA, angle=45, lwd = 1 )
{
xylim <- par("usr")
plotdim <- par("pin")
ymult <- getYmult()
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...
2017 Jun 14
0
[FORGED] Re: draw stripes in a circle in R
...dit
>> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
>> density=NA, angle=45, lwd = 1 )
>> {
>> xylim <- par("usr")
>> plotdim <- par("pin")
>> ymult <- getYmult()
>> 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 <-...
2017 Jun 14
3
draw stripes in a circle in R
> On Jun 14, 2017, at 9:46 AM, Jeff Newmiller <jdnewmil at dcn.davis.ca.us> wrote:
>
> I don't see a question. If your question is whether R supports pattern fills, AFAIK it does not. If that is not your question, ask one.
> --
> Sent from my phone. Please excuse my brevity.
>
> On June 14, 2017 7:57:41 AM PDT, jean-philippe <jeanphilippe.fontaine at
2017 Jun 15
2
[FORGED] Re: draw stripes in a circle in R
...2 <- function (x, y, radius, nv = 100, border = NULL,
>col = NA, lty = 1,
>>> density=NA, angle=45, lwd = 1 )
>>> {
>>> xylim <- par("usr")
>>> plotdim <- par("pin")
>>> ymult <- getYmult()
>>> 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)) {
>&g...
2017 Jun 14
1
[FORGED] Re: draw stripes in a circle in R
...console and edit
>
> draw.circle2? <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
>???????????????????????????? density=NA, angle=45,? lwd = 1 )
> {
>????? xylim <- par("usr")
>????? plotdim <- par("pin")
>????? ymult <- getYmult()
>????? 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) * radi...
2017 Jun 15
1
draw stripes in a circle in R
...o console and edit
>
> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
> density=NA, angle=45, lwd = 1 )
> {
> xylim <- par("usr")
> plotdim <- par("pin")
> ymult <- getYmult()
> 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) * radi...
2017 Jun 15
0
[FORGED] Re: draw stripes in a circle in R
...y, radius, nv = 100, border = NULL,
>> col = NA, lty = 1,
>>>> density=NA, angle=45, lwd = 1 )
>>>> {
>>>> xylim <- par("usr")
>>>> plotdim <- par("pin")
>>>> ymult <- getYmult()
>>>> 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(ra...
2017 Dec 31
1
Draw Overlapping Circles with shaded tracks
Dear All:
Thank you very much for all of you.
I just have one more thing. Is there a way to fill the borders with small
dots, may be different sizes.
I tried to do it, but it looks ugly.
Here what I tried:
library(plotrix)
plot(0:10, 0:10, type="n",axes=FALSE,xlab="",ylab="") #### 0:5,
draw.circle(4,5,radius=3,border="#ff0000aa", lwd=75)