+ - перед квадратным корнем в R

Question

Я пытаюсь написать уравнение в R (см. Код ниже). Мне было интересно, как я могу правильно использовать + - до sqrt() в моем коде?

x <- seq(0,1,by=0.01) 
y <- %+-%sqrt((.5^2)-(x-.5)^2)+.5 

Answer 1

Вы можете иметь уравнение в параметрической форме, не требуя + - от SQRT.

theta <- seq(0,2*pi,0.01) 
x <- 0.5 + 0.5*sin(theta) 
y <- 0.5 + 0.5*cos(theta) 
plot(x, y) 
title(main= substitute(paste('x=(1+sin',theta,')/2, y=(1+cos', theta, ')/2'))) 

Попробуйте это:

draw.circle <- function(stepsize=.01) { 
    theta <- seq(0,2*pi,by=stepsize) 
    x <- 0.5 + 0.5*sin(theta) 
    y <- 0.5 + 0.5*cos(theta) 
    plot(x, y,type="n",xlim = c(0,1),ylim = c(0,1)) 
    segments(x,y,.5,.5) 
} 

draw.circle(.01) 

draw.circle(.02) 

draw.circle(.05) 

Answer 2

Нужно построить их по отдельности, но оператор %+-% может быть использован в plotmath выражениях. Нуждается в окружении двух значений, однако, следовательно, необходимо использовать непечатаемые phantom():

x <- c(seq(0,1,by=0.01)) 
y <- c(sqrt((.5^2)-(x-.5)^2)+.5, -sqrt((.5^2)-(x-.5)^2)+.5) 
plot(rep(x,times=2), y) 
title(main= bquote(phantom(0) %+-% sqrt((.5^2)-(x-.5)^2)+.5))