A  =  Import["dati.dat"];
A  =  Transpose[A];
A  =  A[[1]];

\(\(\(ListPlot[
      A, 
PlotJoined -> True, \  (*\ 
        congiunge\ i\ punti\ con\ dei\ segmenti\ *) 
PlotRange -> All, \  (*\ 
        quali\ valori\ vedere\ sull' 
          asse\ y\ *) 
AspectRatio -> 
        Automatic, \  (*\ 
        rapporto\ tra\ le\ lunghezze\ usate\ nei\ due\ assi\ *) 
AxesLabel -> {"x", "y"}, \  (*\ 
        etichette\ sugli\ assi\ *) 
PlotLabel -> "Medie"\  (*\ 
        etichetta\ del\ grafico\ *) 
]\)\(
\)
    \)\)