Mathematica Code:
Plot[{LegendreP[2,x],LegendreP[3,x],ChebyshevT[2,x],ChebyshevT[3,x]},{x,-1,1}, PlotRange->{-1.1,1.1}, PlotStyle->{{Hue[0]},{Hue[0.3]},{Hue[0.6]},{Hue[0.8]}}, AspectRatio->Automatic]
