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: