# Grafico con R:
source("http://macosa.dima.unige.it/r.R")
F = function(x,y) y^2-x^2*(a-x)/(a+x)
a=pi/2
PLANE(-1,2, -1.5,1.5)
CURVE(F, "blue")