рисование круга внутри квадрата в R
Я искал сравнительный тест как это в течение долгого времени. Спасибо!
В моей компании мы сделали подстановочный знак, отображающийся на нескольких веб-сайтах (стандартные веб-формы, .net1.1 и 2, iis6), и sys администраторы сказали мне, что они не сделали заметил любые проблемы производительности.
, Но, это кажется Вами подчеркнутая сеть, не сервер. Таким образом, возможно, очки так подобны потому что сетевое узкое место? Просто размышление...
2 ответа
Вот решение в базе R:
x <- seq(-2, 2, 0.01)
y <- seq(-2, 2, 0.01)
plot(x,y, xlim = c(-2,2), ylim=c(-2,2), type='n', asp = 1)
curve(( 1 * (4 - x^2)^0.5 ), add=TRUE, from=-2 , to =2)
curve(( -1 * (4 - x^2)^0.5 ), add=TRUE, from=-2 , to =2)
rect(-2,-2,2,2)
# to fill circle and square
plot(x,y, xlim = c(-2,2), ylim=c(-2,2), type='n', asp = 1)
x2 <- c(seq(-2, 2, 0.01), seq(-2, 2, 0.01))
y2 <- c(( 1 * (4 - x2[1:401]^2)^0.5 ), ( -1 * (4 - x2[402:802]^2)^0.5 ))
rect(-2,-2,2,2, col = 'red')
polygon(x2,y2, col = 'green', border = NA)
РЕДАКТИРОВАТЬ
Просто для удовольствия, вот функция:
circle.square.function <- function(radius, x.midpoint, y.midpoint,
my.x.lim, my.y.lim) {
x <- seq(x.midpoint-radius, x.midpoint+radius, 0.01)
y <- seq(y.midpoint-radius, y.midpoint+radius, 0.01)
plot(x,y, xlim = my.x.lim, ylim = my.y.lim, type='n', asp = 1)
curve(( 1 * (radius^2 - (x - x.midpoint)^2)^0.5 + y.midpoint), add=TRUE,
from = (x.midpoint-radius) , to = (x.midpoint+radius))
curve(( -1 * (radius^2 - (x - x.midpoint)^2)^0.5 + y.midpoint), add=TRUE,
from = (x.midpoint-radius) , to = (x.midpoint+radius))
rect((x.midpoint-radius),(y.midpoint-radius),
(x.midpoint+radius),(y.midpoint+radius))
}
radius <- 10 # radius of circle
x.midpoint <- 150 # center of circle on x-axis
y.midpoint <- 50 # center of circle on y-axis
my.x.lim <- c(-100,200) # x-axis to plot
my.y.lim <- c( 0,200) # y-axis to plot
circle.square.function(radius, x.midpoint, y.midpoint, my.x.lim, my.y.lim)
Другое решение для построения круга внутри квадрата в R в базе R:
plot(c(-1, 1), c(-1,1), type = "n", asp=1)
symbols(x=0, y=0, squares=1, inches=F, add=T)
symbols(x=0, y=0, circles=.5, inches=F, add=T)
И решение, когда asp! = 1 с использованием plotrix. Когда asp! = 1 круги выглядят как эллипсы.
symbols(x=0, y=0, rectangles=matrix(c(1,1),ncol=2), inches=F)
library("plotrix")
draw.ellipse(x=0, y=0, a=.5, b=.5)
Или решение Марка Миллера по основанию R , которое работает также для asp! = 1.