BF=4; HF=4
PIANO(-3,3, -3,3)
q=1; PUNTO(q,0, "red"); retta2p(-1,-2, -1,2, "red")
parabola <- function(x,y) y^2-4*q*x
curva(parabola, "black")
fig <- recordPlot()
# la parte superiore della parabola
f = function(x) sqrt(4*q*x)
for(x in (22:0)/10) {attendi(0.3);replayPlot(fig)
PUNTO(q,0, "red"); retta2p(-1,-2, -1,2, "red")
curva(parabola, "black")
y=f(x); PUNTO(x,y, "brown"); spezza( c(-1,x,1), c(y,y,0), "brown")}
# Un momento della animazione: