#
x1 <- -12; x2 <- 12; y1 <- -12; y2 <- 12
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(h=0,col="brown"); abline(v=0,col="brown")
abline(h=axTicks(2),v=axTicks(1),lty=3,col="brown")
for(c1 in -5:5) {c2 <- c1; symbols(c1, c2, circles=1, inches=FALSE, add=TRUE, fg="blue")}
for(c2 in -5:5) {c1 <- -5; symbols(c1, c2, circles=1, inches=FALSE, add=TRUE, fg="blue")}
for(c1 in -5:5) {c2 <- -5; symbols(c1, c2, circles=1, inches=FALSE, add=TRUE, fg="blue")}
for(n in 1:5) {c1 <- c2 <- 5; symbols(c1, c2, circles=2/n, inches=FALSE, add=TRUE, fg="blue")}
#
x1 <- -12; x2 <- 12; y1 <- -12; y2 <- 12
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(h=0,col="brown"); abline(v=0,col="brown")
abline(h=axTicks(2),v=axTicks(1),lty=3,col="brown")
for(i in 0:10) lines(c(i,i),c(?,i) )
#
x1 <- -12; x2 <- 12; y1 <- -12; y2 <- 12
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(h=0,col="brown"); abline(v=0,col="brown")
abline(h=axTicks(2),v=axTicks(1),lty=3,col="brown")
for(i in 1:10) symbols(i/2, i/2, circles=sqrt(2)*i/2, inches=FALSE, add=TRUE, fg="blue")
#
x1 <- -12; x2 <- 12; y1 <- -12; y2 <- 12
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(h=0,col="brown"); abline(v=0,col="brown")
abline(h=axTicks(2),v=axTicks(1),lty=3,col="brown")
for(i in 1:5) symbols(i, i, circles=sqrt(2)*i, inches=FALSE, add=TRUE, fg="blue")
for(i in 1:5) symbols(-i, -i, circles=sqrt(2)*i, inches=FALSE, add=TRUE, fg="blue")
for(i in 1:5) symbols(?,?, circles=sqrt(2)*i, inches=FALSE, add=TRUE, fg="blue")