# 29-iperbole

Postscript("29-iperbole.ps",2,1.5)
latox=c(-4,4); latoy=c(-3,3)
par(bg="#ccff99")
Grafica(latox,latoy,cornice=T)
par(col="peru"); abline(h=0,v=0)
par(lwd=1,col=1); t=seq(-9,9,by=0.01);
lines(Iperbole(t,0.5,1))
par(col="blue")
lines(Iperbole(t,-0.5,1))
par(col="red",lwd=0.7)
lines(2+1.5i
  +Rot(Iperbole(t,0.4,0.7),20))
lines(2+1.5i
  +Rot(Iperbole(t,-0.4,0.7),20))
dev.off()