parametri.lancio <- function(nome) {
   v        <- as.numeric( strsplit(nomeFile, '_')[[1]][2] )
   theta    <- as.numeric( strsplit(nomeFile, '_')[[1]][3] )
   altro    <- strsplit(nomeFile, '_')[[1]][4]
   s.dec    <- strsplit(altro, '.', TRUE)[[1]][1:2]
   dt <- as.numeric ( paste(s.dec, collapse='.') )
   
# in una sola riga, ma criptico   
#  dt <- as.numeric ( paste( strsplit( strsplit(nomeFile, '_')[[1]][4], '.', 1)[[1]][1:2], collapse='.') )

   return(list(v=v, theta=theta, dt=dt))
}
   
par <- parametri.lancio(nomeFile)

print(par)

cat("Ora che abbiamo i parametri del lancio, possiamo ricalcolarci tutto in R\n")