# alcune curve in coordinate polari usando source("http://macosa.dima.unige.it/r.R")
source("http://macosa.dima.unige.it/r.R")
HF=3; BF=3; noBox=1
ro1 <- function(a) cos(3*a); polarb(ro1,0,pi, "blue")
#
noBox=1
ro2 <- function(a) 1+2*cos(a); polarb(ro2,0,2*pi, "blue")
#
noBox=1
ro3 <- function(a) 1-cos(a); polarb(ro3,0,2*pi, "blue")



# Senza usare il file richiamato sopra
x1 <- -1; x2 <- 1; y1 <- -1; y2 <- 1
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(v=axTicks(1), h=axTicks(2), col="blue", lty=3)
abline(v=0, h=0, col="blue", lty=2)
t <- seq(0,pi,len=1000); ro <- cos(3*t)
lines(ro*cos(t),ro*sin(t))
#
x1 <- -0.5; x2 <- 3.5; y1 <- -2; y2 <- 2
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(v=axTicks(1), h=axTicks(2), col="blue", lty=3)
abline(v=0, h=0, col="blue", lty=2)
t <- seq(0,2*pi,len=1000); ro <- 1+2*cos(t)
lines(ro*cos(t),ro*sin(t))
#
x1 <- -2; x2 <- 1; y1 <- -1.5; y2 <- 1.5
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
abline(v=axTicks(1), h=axTicks(2), col="blue", lty=3)
abline(v=0, h=0, col="blue", lty=2)
t <- seq(0,2*pi,len=1000); ro <- 1-cos(t)
lines(ro*cos(t),ro*sin(t))