Я использую пакет plotrix для рисования кругов.
И я не понимаю, что не так с моим кодом... :-(
У меня три балла. Первая точка (1,1)
должна быть центром круга. Следующие две точки (1,4)
и (4,1)
имеют одинаковое расстояние/радиус до центра. Значит, окружность на графике должна проходить через эти точки, верно?
И я не знаю, почему круг выглядит неправильно. Есть объяснение?
p1 <- c(1,1)
p2 <- c(4,1)
p3 <- c(1,4)
r <- sqrt(sum((p1-p2)^2))
plot(x=c(p1[1], p2[1], p3[1]),
y=c(p1[2], p2[2], p3[2]),
ylim=c(-5,5), xlim=c(-5,5))
draw.circle(x=p1[1], y=p1[2], radius=(r))
abline(v=-5:5, col="#0000FF66")
abline(h=-5:5, col="#0000FF66")
Взгляните на полученный результат здесь
asp
в?plot
- person baptiste   schedule 27.09.2012