Usa in R ("a scatola nera") i seguenti comandi per generare un'equazione polinomiale
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