Colorized Curves

Show[Table[Plot[Sin[x],{x,i*Pi/24,(i+1)*Pi/24},
PlotStyle->{Hue[i/48],Thickness[0.02]}],{i,Range[0,47,1]}],
         ImageSize->Large,GridLines->Automatic,PlotRange->All]