Usa in R ("a scatola nera") i seguenti comandi per generare un'equazione polinomiale  a[1] + a[2]·x + a[3]·x² = 0  e ottenerne le soluzioni. Prova a risolvere la stessa equazione "a mano" e controlla se ottieni le stesse soluzioni. Sotto sono presentati anche due esempi d'uso (per -18-3x-2x²=0 si ottiene che non ha soluzioni).

# 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