#---------------------------------------------------------------
# Ossatura per lo script che risolve equazioni di secondo grado,
# o di primo grado se a == 0
#

#-------------------------------------------------------------
# Leggiamo i parametri dalla console
# (comando volutamente criptico: lo si esegua un pezzo alla volta,
# anche basandosi sullo script esempio_readline.R, per capire

par <-  as.numeric( unlist( strsplit( readline(prompt="da a, b, c separati da virgola \n"), ',') ) )

# se mancano due parametri non possiamo fare niente
 if ( sum ( is.na(par) ) > 1 ) {
  cat(sprintf("Servono almeno due parametri. Ciao \n"))
  stop()
}

# sostituiamo con 0 un eventuale NA
par[ is.na(par) ] = 0

print(par)

# a, b e c
a <- par[1]
b <- par[2]
c <- par[3]

cat(sprintf(" a = %.2f,  b = %.2f, c = %.2f\n", a, b, c) )

# qui fare il plot

if (a == 0) { 

  cat( sprintf(" a = 0 : abbiamo un'equazione di primo grado\n") )
  # mettere qui la soluzione dell'equazione di primo grado

} else {

  cat( sprintf(" a = 0 : abbiamo un'equazione di secondo grado\n") )
  # mettere qui le soluzioni dell'equazione di secondo grado

}