> with(orthopoly):
> p[0]:=P(0,x): p[1]:=P(1,x): p[3]:=P(3,x): p[4]:=P(4,x): p[6]:=P(6,x):
> plot({p[0],p[1],p[3],p[4],p[6]},x=-1..1, scaling=constrained,
> color=black);
> 

> 
> 
