Usa in R ("a scatola nera") i seguenti comandi per generare un'equazione polinomiale
# Ricopia la riga set.seed(35); .. e metti al posto di 35 un numero intero qualunque. # Ottieni 3 numeri a[1],a[2],a[3] e le soluzioni di a[1] + a[2]*x + a[3]*x^2 = 0 sol <- function(a) if(Im(polyroot(a)[1])!=0) print("senza soluzioni") else Re(polyroot(a)) set.seed(150); a <- floor(runif(3)*40-20); a; sol(a) [1] -18 -3 -2 [1] "senza soluzioni" set.seed(35); a <- floor(runif(3)*40-20); a; sol(a) [1] 14 -20 2 [1] 0.7573593 9.2426407