Scrivi in R N <- … con al posto di ... un numero intero e incolla le righe seguenti. Ottieni una parabola, dall'aspetto simile a quella a lato. Scrivine l'equazione.

N <- ...               # completa
set.seed(N)
a1 = c(-2, -1, -1/2, 1/2, 1, 2, -1/3, 1/3); a = a1[RUNIF(1, 1,8)]
v1 = c(-1, 1, 2, 3, 4, 0, -1, 1, 2, 3, 4); v1 = v1[RUNIF(1, 1,11)]
if(a>0) v2 = c(-4,-3,-2,-1,0,1,2,3) else v2 = c(0,1,2,3,4,5,6,7)
v2 = v2[RUNIF(1, 1,8)]; a3 = -v1*2*a; c = v2+a3^2/(4*a)
BF=3; HF=3; PLANE(-4,7, -4,7)
f=function(x) x*(x-1)*(-v1*2*a+a*x+v2/x+a3^2/(4*a*x))/(-1+x)
graph(f,-4,7,"brown")