\(\(\( (*\ TURNO\ 14 - 16\ *) \)\(
\)\(<< 
      Graphics`Legend`\ \ \ \ \  (*\ 
      include\ l' estensione\ per\ la\ legenda\ *) 

    Plot[{Sin[2  x], E^\(-x\)}, {x, 0, \ 
        4  π}, 
AxesLabel -> {"x", "y"}, 
AxesStyle -> {RGBColor[ .8,  .8,  .8]}, \ \ \ \ \  (*\ stile\ degli\ assi\  - \ 
          in\ questo\ caso\ abbiamo\ solo\ cambiato\ colore\ ma\ si\ possono\ provare\ ad\ usare\ anche\ i\ comandi\ Thickness\ e\ Dashing\ *) 
PlotLabel -> "Prova", 
PlotStyle -> {RGBColor[1, 0, 0], 
          RGBColor[0, 0, 1]}, \ \ \ \ \  (*\ 
        stile\ dei\ grafici\  - \ 
          per\ ogni\ grafico\ c' è\ una\ lista\ di\ opzioni\ \((in\ questo\ caso\ è\ solo\ un\ elemento\ e\ dunque\ abbiamo\ omesso\ le\ parentesi\ graffe)\)\ *) 
PlotLegend -> {"pippo", "pappo"}, \ \ \ \ \  (*\ 
        nella\ legenda\ possono\ essere\ inserite\ qualunque\ stringhe\ *) 
LegendSize -> { .35,  .35}, \ \ \ \ \  (*\ 
        dimensione\ \((orizzontale\ e\ verticale)\)\ della\ legenda\ *) 
LegendPosition -> {1, 0}\ \ \ \ \  (*\ 
        posizione\ della\ legenda\ *) 
]\)\)\)

\(\(\( (*\ TURNO\ 16 - 18\ *) \)\(
\)\(<< 
      Graphics`Legend`

    Plot[{Sin[π\ x], 
        Cos[π\ x]}, {x, \(-\(π\/2\)\), \(3\/2\) π}, 
AxesLabel -> {"x", "y"}, 
AxesStyle -> {RGBColor[ .8,  .8, 
            0]}, 
PlotLabel -> "Seni e Coseni", 
PlotStyle -> {RGBColor[0,  .8,  .8], 
          RGBColor[ .8, 
            0,  .8]}, 
PlotLegend -> {"Cos[πx]", "Sin[πx]"}, \ \ \ \ \  (*\ 
        da\ notare\ che\ i\ nomi\ nella\ legenda\ sono\ invertiti\ rispetto\ all' espressione\ analitica\ della\ legenda\  - \ 
          non\ c' è\ nessuna\ correlazione\ tra\ le\ due\ *) 
LegendSize -> { .5,  .5}, 
LegendPosition -> {1, 
          0}
]\)\)\)