Usa in R ("a scatola nera") i seguenti comandi per generare un'equazione polinomiale  a[1] + a[2]·x + a[3]·x² + a[4]·x³ = 0  e ottenerne le soluzioni.  Prova a risolvere la stessa equazione schizzandone il grafico e trovandone le soluzioni con un metodo numerico, e confronta le soluzioni ottenute.

source("http://macosa.dima.unige.it/r.R")   # se non hai già caricato il file
# Ricopia la riga  set.seed(150); ..  e metti al posto di 150 un numero intero qualunque.
# Ottieni 4 numeri a[1],..,a[4] e le soluzioni di a[1] + a[2]*x + a[3]*x^2 + a[4]*x^3 = 0
set.seed(150); a = RUNIF(4, -20,20); a; solpol(a)
## -18  -2  -1  14
##  1.1564065748452
set.seed(5); a = RUNIF(4, -20,20); a; solpol(a)
## -12   8  17  -9
##  0.76282888125868  -0.87393999236979  2