Plot[{x*(x-1)*(x+1)+1,-x+1,x+1,x/100+1},{x,-2,2}, Axes->True, Ticks->None, PlotStyle->{Normal,Normal,Dashed,Dashed}]

b=Plot[-x+1,{x,-2,2}]

c=Plot[x+1,{x,-2,2},PlotStyle->Dashed]

d=Plot[x/100+1,{x,-2,2},PlotStyle->Dashed]

ListPlot[a,b,c,d]

v=Plot[{Cos[x],1-x^2/2,1},{x,-4,4},AxesOrigin->Automatic,PlotStyle->{Normal, Normal,Dashed},Ticks->None, PlotRange->{-2,2}]